diff options
| author | fvogel <fvogelnew1@free.fr> | 2015-01-12 22:29:37 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2015-01-12 22:29:37 (GMT) |
| commit | c71c8dc6ca6cd9e73befdfa7d64892e1e7803c3e (patch) | |
| tree | 0302427b89ca39e0ce2c53b2310cae6875ea1555 /tests | |
| parent | fc28bf31b87731b48755993238d24958d7b350c5 (diff) | |
| parent | 6d8d08c676dacd6ff69624d8129747330a9b1df6 (diff) | |
| download | tk-c71c8dc6ca6cd9e73befdfa7d64892e1e7803c3e.zip tk-c71c8dc6ca6cd9e73befdfa7d64892e1e7803c3e.tar.gz tk-c71c8dc6ca6cd9e73befdfa7d64892e1e7803c3e.tar.bz2 | |
Merged core-8-5-branch
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/canvText.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/canvText.test b/tests/canvText.test index 20a39b0..7eef938 100644 --- a/tests/canvText.test +++ b/tests/canvText.test @@ -485,8 +485,8 @@ test canvText-17.1 {TextToPostscript procedure} { .c itemconfig test -font $font -text "00000000" -width [expr 3*$ax] .c itemconfig test -anchor n -fill black set x [.c postscript] - set x [string range $x [string first "/Courier-Oblique" $x] end] -} "/Courier-Oblique findfont [font actual $font -size] scalefont ISOEncode setfont + set x [string range $x [string first "findfont " $x] end] +} "findfont [font actual $font -size] scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 100 200 \[ \[(000)\] |