diff options
author | a_kovalenko <a_kovalenko> | 2002-06-25 16:27:43 (GMT) |
---|---|---|
committer | a_kovalenko <a_kovalenko> | 2002-06-25 16:27:43 (GMT) |
commit | 6aa6d8e14a6a7fe4b790f86a99bfca1bdf5a2f3a (patch) | |
tree | 54777509221f3836a6476f53f585d0fd218a540a /tests | |
parent | 9220a76cd81ab6014f2e715fab0b92ec80ee6e05 (diff) | |
download | tk-6aa6d8e14a6a7fe4b790f86a99bfca1bdf5a2f3a.zip tk-6aa6d8e14a6a7fe4b790f86a99bfca1bdf5a2f3a.tar.gz tk-6aa6d8e14a6a7fe4b790f86a99bfca1bdf5a2f3a.tar.bz2 |
Applied patch #546910 -- international postscript output
Diffstat (limited to 'tests')
-rw-r--r-- | tests/canvText.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/canvText.test b/tests/canvText.test index fd76894..a6316c0 100644 --- a/tests/canvText.test +++ b/tests/canvText.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvText.test,v 1.9 2000/02/03 21:27:27 ericm Exp $ +# RCS: @(#) $Id: canvText.test,v 1.10 2002/06/25 16:27:44 a_kovalenko Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -493,9 +493,9 @@ test canvText-17.1 {TextToPostscript procedure} { } "/Courier-Oblique findfont [font actual $font -size] scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 100 200 \[ -(000) -(000) -(00) +\[(000)\] +\[(000)\] +\[(00)\] ] $ay -0.5 0 0 false DrawText grestore restore showpage |