diff options
| author | drh <drh@noemail.net> | 2002-07-19 14:37:21 (GMT) |
|---|---|---|
| committer | drh <drh@noemail.net> | 2002-07-19 14:37:21 (GMT) |
| commit | 8f637f4cc961c202da3cdc5e430d07b9d7deabff (patch) | |
| tree | 4b4130361c7843ca788134875d6d9288bec5768c | |
| parent | 230e6e3f4b259a89945c3636ba3ba130165eb641 (diff) | |
| download | tk-8f637f4cc961c202da3cdc5e430d07b9d7deabff.zip tk-8f637f4cc961c202da3cdc5e430d07b9d7deabff.tar.gz tk-8f637f4cc961c202da3cdc5e430d07b9d7deabff.tar.bz2 | |
Oops. Minor fix to the previous fix.
FossilOrigin-Name: 5288fc9de13cc90fd90d0a4f5de6630f87684e10
| -rw-r--r-- | library/mkpsenc.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/mkpsenc.tcl b/library/mkpsenc.tcl index e7fce19..bc3c243 100644 --- a/library/mkpsenc.tcl +++ b/library/mkpsenc.tcl @@ -10,7 +10,7 @@ proc ::tk::CreatePostscriptEncoding {encoding} { for {set i 0} {$i<256} {incr i 8} { for {set j 0} {$j<8} {incr j} { set enc [encoding convertfrom $encoding [format %c [expr {$i+$j}]]] - if {[catch {format %04X [scan $enc %c]} hexcode]} continue + if {[catch {format %04X [scan $enc %c]} hexcode]} {set hexcode {}} 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.2 2002/07/19 14:27:45 drh Exp $ +% RCS: @(#) $Id: mkpsenc.tcl,v 1.3 2002/07/19 14:37:21 drh Exp $ % The definitions below just define all of the variables used in % any of the procedures here. This is needed for obscure reasons |