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 | 74607ec0cc8a43fcd4eee20367551cfe4c9b6be3 (patch) | |
| tree | 54777509221f3836a6476f53f585d0fd218a540a /tests/canvText.test | |
| parent | 38552c3a2aca52950e9aab3fae0045c6ad03c17e (diff) | |
| download | tk-74607ec0cc8a43fcd4eee20367551cfe4c9b6be3.zip tk-74607ec0cc8a43fcd4eee20367551cfe4c9b6be3.tar.gz tk-74607ec0cc8a43fcd4eee20367551cfe4c9b6be3.tar.bz2 | |
Applied patch #546910 -- international postscript output
Diffstat (limited to 'tests/canvText.test')
| -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 |