diff options
Diffstat (limited to 'x11-fonts/tkfont/files/patch-tkfont')
| -rw-r--r-- | x11-fonts/tkfont/files/patch-tkfont | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/x11-fonts/tkfont/files/patch-tkfont b/x11-fonts/tkfont/files/patch-tkfont new file mode 100644 index 000000000000..7ba658346e40 --- /dev/null +++ b/x11-fonts/tkfont/files/patch-tkfont @@ -0,0 +1,32 @@ +--- /usr/local/bin/tkfont Tue Oct 12 13:37:45 1999 ++++ tkfont Tue Oct 12 14:27:43 1999 +@@ -33,11 +33,4 @@ +-proc GetFontDirs { } { +- global FontDirList +- set TempFileName "/tmp/dirs.list.[pid]" +- exec /usr/local/lib/tkfont/GetFontDirs > $TempFileName +- list FontDirList_a +- +- set Chan [open $TempFileName r] +- set chars 1 +- while {$chars > 0} { +- set chars [gets $Chan onedirname] +- lappend FontDirList_a $onedirname ++proc GetFontDirs {} { ++ global FontDirList errorCode ++ if {[catch {exec xset -q} result] && $errorCode != "NONE"} { ++ error $result +@@ -45,5 +38,8 @@ +- close $Chan +- exec rm $TempFileName +- set FontDirList [lreplace $FontDirList_a 0 0 \ +- [string trim [lindex $FontDirList_a 0]]] +- set FontDirList [lreplace $FontDirList end end] ++ set lines [split $result \n] ++ set i [lsearch -exact $lines "Font Path:"] ++ if {$i == -1} { ++ error "Output of `xset -q' did not contain\ ++ `Font Path:'\n$result" ++ } ++ set dirLine [string trim [lindex $lines [incr i]]] ++ set FontDirList [split $dirLine ,] |