diff options
| author | Nick White <git@njw.me.uk> | 2012-04-21 18:33:04 +0100 |
|---|---|---|
| committer | Nick White <git@njw.me.uk> | 2012-04-21 18:33:04 +0100 |
| commit | 075341569666c075ef9e64570d23937c5065c74d (patch) | |
| tree | 327b4a792f6c32a8e20561a056fd4218a90bceef /getxbookgui.tcl | |
| parent | 72b7b92091d392c06b5a4795af3cbfa405299484 (diff) | |
Install icons appropriately
Diffstat (limited to 'getxbookgui.tcl')
| -rwxr-xr-x | getxbookgui.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
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 \ |