diff options
| author | drh@sqlite.org <drh> | 2002-07-19 14:27:44 (GMT) |
|---|---|---|
| committer | drh@sqlite.org <drh> | 2002-07-19 14:27:44 (GMT) |
| commit | 6911f35e198212b4c1b6944067af256c9ea609f7 (patch) | |
| tree | 6f8743e9601a6793409324349fe316aa16e23443 /library | |
| parent | 18f9f5b3a6198807bd4b24f59a7a7ead35c58756 (diff) | |
| download | tk-6911f35e198212b4c1b6944067af256c9ea609f7.zip tk-6911f35e198212b4c1b6944067af256c9ea609f7.tar.gz tk-6911f35e198212b4c1b6944067af256c9ea609f7.tar.bz2 | |
Fix a bug in the Postscript encoding vector generator that was causing
postscript generation to fail under Win2K.
Diffstat (limited to 'library')
| -rw-r--r-- | library/mkpsenc.tcl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/library/mkpsenc.tcl b/library/mkpsenc.tcl index b8603ea..e7fce19 100644 --- a/library/mkpsenc.tcl +++ b/library/mkpsenc.tcl @@ -9,8 +9,8 @@ proc ::tk::CreatePostscriptEncoding {encoding} { set result "/CurrentEncoding \[\n" for {set i 0} {$i<256} {incr i 8} { for {set j 0} {$j<8} {incr j} { - set hexcode [format "%04X" [scan [encoding convertfrom\ - $encoding [format "%c" [expr $i+$j] ]] %c]] + set enc [encoding convertfrom $encoding [format %c [expr {$i+$j}]]] + if {[catch {format %04X [scan $enc %c]} hexcode]} continue if [info exists ::tk::psglyphs($hexcode)] { append result "/$::tk::psglyphs($hexcode)" } else { @@ -1089,7 +1089,7 @@ append ps_preamable { 50 dict begin % This is a standard prolog for Postscript generated by Tk's canvas % widget. -% RCS: @(#) $Id: mkpsenc.tcl,v 1.1 2002/06/25 16:27:43 a_kovalenko Exp $ +% RCS: @(#) $Id: mkpsenc.tcl,v 1.2 2002/07/19 14:27:45 drh Exp $ % The definitions below just define all of the variables used in % any of the procedures here. This is needed for obscure reasons @@ -1365,4 +1365,3 @@ append ps_preamable { proc tk::ensure_psenc_is_loaded {} { } - |