Package: filerunner
Version: 2.5.1-20
Severity: minor
hi,
I wanted 'bitstream vera ...' and fr crashed.
Seems attached patch does fix the problem.
thx
--
paolo
GPG/PGP id:0x3A47DE45 - B5F9 AAA0 44BD 2B63 81E0 971F C6C0 0B87 3A47 DE45
- 9/11: the outrageous deception & coverup: http://journalof911studies.com -
--- /usr/bin/fr 2008-03-09 03:24:29.000000000 +0100
+++ /tmp/fr 2009-01-17 23:50:53.000000000 +0100
@@ -302,7 +302,7 @@
listbox $w.top.list \
-yscrollcommand "$w.top.scrollvert set" \
-xscrollcommand "$w.top.scrollhoriz set" \
- -font $config(gui,font) \
+ -font "$config(gui,font)" \
-background $config(gui,color_bg) -foreground $config(gui,color_fg) \
-selectbackground $config(gui,color_select_bg) -selectforeground
$config(gui,color_select_fg) \
-width 70 \
@@ -399,7 +399,7 @@
}
if {$config(gui,font) != $glob(gui,font)} {
foreach k $glob(gui,color_xx,winlist) {
- catch {$k configure -font $config(gui,font)}
+ catch {$k configure -font "$config(gui,font)"}
}
set glob(gui,font) $config(gui,font)
}
@@ -470,7 +470,7 @@
listbox $w.top.list \
-yscrollcommand "$w.top.scrollvert set" \
-xscrollcommand "$w.top.scrollhoriz set" \
- -font $config(gui,font) \
+ -font "$config(gui,font)" \
-background $config(gui,color_bg) -foreground $config(gui,color_fg) \
-selectbackground $config(gui,color_select_bg) -selectforeground
$config(gui,color_select_fg) \
-width 70 \
@@ -566,18 +566,18 @@
frame $glob(win,bottom).fcmdwin$inst
set w $glob(win,bottom).fcmdwin$inst
- text $w.text -relief sunken -bd 2 -yscrollcommand "$w.fr.scroll set" -height
$config(shell,height,$inst) -font $config(gui,font) -background
$config(gui,color_bg) -foreground $config(gui,color_fg) -selectbackground
$config(gui,color_select_bg) -selectforeground $config(gui,color_select_fg)
+ text $w.text -relief sunken -bd 2 -yscrollcommand "$w.fr.scroll set" -height
$config(shell,height,$inst) -font "$config(gui,font)" -background
$config(gui,color_bg) -foreground $config(gui,color_fg) -selectbackground
$config(gui,color_select_bg) -selectforeground $config(gui,color_select_fg)
lappend glob(gui,color_xx,winlist) $w.text
frame $w.fr -bd 0
scrollbar $w.fr.scroll -command "$w.text yview"
frame $w.bot -bd 0
- entry $w.bot.entry -relief ridge -font $config(gui,font) -background
$config(gui,color_bg) \
+ entry $w.bot.entry -relief ridge -font "$config(gui,font)" -background
$config(gui,color_bg) \
-foreground $config(gui,color_fg) -selectbackground
$config(gui,color_select_bg) -selectforeground $config(gui,color_select_fg)
-highlightthickness 1
lappend glob(gui,color_xx,winlist) $w.bot.entry
$w.text tag configure command -background $config(gui,color_cmd)
lappend glob(gui,color_cmd,winlist) $w.text
$w.text tag configure complete -background $config(gui,color_select_bg)
-foreground $config(gui,color_select_fg)
- label $w.bot.label -textvariable glob($inst,pwd) -font $config(gui,font)
-relief ridge -padx 5
+ label $w.bot.label -textvariable glob($inst,pwd) -font "$config(gui,font)"
-relief ridge -padx 5
button $w.bot.max -bitmap @/usr/share/filerunner/bitmaps/max.bit \
-command "MaxWin $w $inst" -bd 1
button $w.bot.smaller -bitmap @/usr/share/filerunner/bitmaps/smaller.bit \
@@ -1122,7 +1122,7 @@
-command "DoProtCmd \"set glob(forceupdate) 1; FTP_InvalidateCache;
UpdateWindow $inst; set glob(forceupdate) 0\""
- entry $glob(win,$inst).entry_dir -relief {ridge} -font $config(gui,font) \
+ entry $glob(win,$inst).entry_dir -relief {ridge} -font "$config(gui,font)" \
-selectbackground $config(gui,color_select_bg) -selectforeground
$config(gui,color_select_fg) -background $config(gui,color_bg) \
-foreground $config(gui,color_fg) -highlightthickness 1
lappend glob(gui,color_xx,winlist) $glob(win,$inst).entry_dir
@@ -1139,7 +1139,7 @@
-xscrollcommand "$glob(win,$inst).frame_listb.scroll_horiz set" \
-yscrollcommand "$glob(win,$inst).frame_listb.right.scroll_vert set" \
-selectmode extended \
- -font $config(gui,font) \
+ -font "$config(gui,font)" \
-background $config(gui,color_bg) -foreground $config(gui,color_fg) \
-selectbackground $config(gui,color_select_bg) -selectforeground
$config(gui,color_select_fg)
lappend glob(gui,color_xx,winlist) $glob(win,$inst).frame_listb.listbox1
@@ -2378,7 +2378,7 @@
wm geometry $w $config(geometry,textviewer)
text $w.text -relief sunken -bd 2 -yscrollcommand "$w.fr.scroll set"
-setgrid 1 \
- -height 30 -font $config(gui,font) -background $config(gui,color_bg) \
+ -height 30 -font "$config(gui,font)" -background $config(gui,color_bg) \
-foreground $config(gui,color_fg) -selectbackground
$config(gui,color_select_bg) \
-selectforeground $config(gui,color_select_fg) -highlightthickness 0
frame $w.fr -borderwidth 0
@@ -2460,7 +2460,7 @@
wm geometry $w $config(geometry,qedit)
text $w.text -relief sunken -bd 2 -yscrollcommand "$w.fr.scroll set"
-setgrid 1 \
- -highlightthickness 0 -height 30 -font $config(gui,font) -background
$config(gui,color_bg) -foreground $config(gui,color_fg) -selectbackground
$config(gui,color_select_bg) -selectforeground $config(gui,color_select_fg)
+ -highlightthickness 0 -height 30 -font "$config(gui,font)" -background
$config(gui,color_bg) -foreground $config(gui,color_fg) -selectbackground
$config(gui,color_select_bg) -selectforeground $config(gui,color_select_fg)
frame $w.fr -borderwidth 0
scrollbar $w.fr.scroll -command "$w.text yview"
button $w.fr.quit -bitmap @/usr/share/filerunner/bitmaps/cross.bit -command
"EditTextCheckPoint [Esc $filename] $w \"$scriptWhenDone\"" \
@@ -2527,7 +2527,7 @@
wm transient $w [winfo toplevel [winfo parent $w]]
frame $w.bot
- entry $w.entry -highlightthickness 1 -font $config(gui,font) -background
$config(gui,color_bg) -foreground $config(gui,color_fg) -width 70
-selectbackground $config(gui,color_select_bg) -selectforeground
$config(gui,color_select_fg)
+ entry $w.entry -highlightthickness 1 -font "$config(gui,font)" -background
$config(gui,color_bg) -foreground $config(gui,color_fg) -width 70
-selectbackground $config(gui,color_select_bg) -selectforeground
$config(gui,color_select_fg)
$w.entry delete 0 end
$w.entry insert end $start_entry
@@ -2637,7 +2637,7 @@
label $w.us -text Username:
pack $w.us -side top -anchor w -padx 8
- entry $w.entry -highlightthickness 1 -font $config(gui,font) -background
$config(gui,color_bg) -foreground $config(gui,color_fg) -width 70
-selectbackground $config(gui,color_select_bg) -selectforeground
$config(gui,color_select_fg)
+ entry $w.entry -highlightthickness 1 -font "$config(gui,font)" -background
$config(gui,color_bg) -foreground $config(gui,color_fg) -width 70
-selectbackground $config(gui,color_select_bg) -selectforeground
$config(gui,color_select_fg)
$w.entry delete 0 end
$w.entry insert end $start_entry
pack $w.entry -anchor w -side top -padx 8 -pady 4 -expand 1 -fill x
@@ -2645,7 +2645,7 @@
label $w.pw -text Password:
pack $w.pw -side top -anchor w -padx 8
- entry $w.entry2 -highlightthickness 1 -show "*" -font $config(gui,font)
-background $config(gui,color_bg) -foreground $config(gui,color_fg) -width 70
-selectbackground $config(gui,color_select_bg) -selectforeground
$config(gui,color_select_fg)
+ entry $w.entry2 -highlightthickness 1 -show "*" -font "$config(gui,font)"
-background $config(gui,color_bg) -foreground $config(gui,color_fg) -width 70
-selectbackground $config(gui,color_select_bg) -selectforeground
$config(gui,color_select_fg)
$w.entry2 delete 0 end
$w.entry2 insert end ""
pack $w.entry2 -anchor w -side top -padx 8 -pady 4 -expand 1 -fill x
@@ -2731,7 +2731,7 @@
label $w.info_text -justify left -text $info_text1 -wraplength 7i
pack $w.info_text -anchor w -side top -padx 8 -pady 5
- entry $w.entry -highlightthickness 1 -font $config(gui,font) -background
$config(gui,color_bg) -foreground $config(gui,color_fg) -width 70
-selectbackground $config(gui,color_select_bg) -selectforeground
$config(gui,color_select_fg)
+ entry $w.entry -highlightthickness 1 -font "$config(gui,font)" -background
$config(gui,color_bg) -foreground $config(gui,color_fg) -width 70
-selectbackground $config(gui,color_select_bg) -selectforeground
$config(gui,color_select_fg)
$w.entry delete 0 end
$w.entry insert end $start_entry1
pack $w.entry -anchor w -side top -padx 8 -pady 4 -expand 1 -fill x
@@ -2739,7 +2739,7 @@
label $w.info_text2 -text $info_text2 -justify left -wraplength 7i
pack $w.info_text2 -side top -anchor w -padx 8 -pady 5
- entry $w.entry2 -highlightthickness 1 -show "*" -font $config(gui,font)
-background $config(gui,color_bg) -foreground $config(gui,color_fg) -width 70
-selectbackground $config(gui,color_select_bg) -selectforeground
$config(gui,color_select_fg)
+ entry $w.entry2 -highlightthickness 1 -show "*" -font "$config(gui,font)"
-background $config(gui,color_bg) -foreground $config(gui,color_fg) -width 70
-selectbackground $config(gui,color_select_bg) -selectforeground
$config(gui,color_select_fg)
$w.entry2 delete 0 end
$w.entry2 insert end $start_entry2
pack $w.entry2 -anchor w -side top -padx 8 -pady 4 -expand 1 -fill x
@@ -2968,7 +2968,7 @@
set text "$text\n\n...etc..."
}
label $w.msg -justify left -text $text \
- -font $config(gui,font) -wraplength 700 -bg white
+ -font "$config(gui,font)" -wraplength 700 -bg white
#-Adobe-Times-Medium-R-Normal--*-180-*-*-*-*-*-*
pack $w.msg -in $w.top -side right -expand 1 -fill both -padx 3m -pady 3m
if {$bitmap != ""} {
