From 075341569666c075ef9e64570d23937c5065c74d Mon Sep 17 00:00:00 2001 From: Nick White Date: Sat, 21 Apr 2012 18:33:04 +0100 Subject: Install icons appropriately --- getxbookgui.tcl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'getxbookgui.tcl') diff --git a/getxbookgui.tcl b/getxbookgui.tcl index fbeb992..a9854fc 100755 --- a/getxbookgui.tcl +++ b/getxbookgui.tcl @@ -10,6 +10,7 @@ set dling 0 set manual 0 set env(PATH) "[file dirname $::argv0]:$env(PATH)" +set iconpath "[file dirname $::argv0]/icons" proc updateStatus {chan} { global dling @@ -85,7 +86,7 @@ frame .binfr for {set i 0} {$i < [llength $bins]} {incr i} { set b [lindex $bins $i] set binname [lindex $b 0] - if { [catch {image create photo im$i -file "icons/$binname.gif"}] } { + if { [catch {image create photo im$i -file "$iconpath/$binname.gif"}] } { image create photo im$i -height 64 } button .binfr.$i -text [lindex $b 2] -image im$i \ -- cgit v1.2.3