chiark / gitweb /
use vessel and other icons from info_cache 6.6.0
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 25 Jul 2010 14:10:38 +0000 (15:10 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 25 Jul 2010 14:10:38 +0000 (15:10 +0100)
yarrg/where-vessels

index 092e8da..33df7f8 100755 (executable)
@@ -304,14 +304,16 @@ proc vesselclasses-init {} {
 }
 
 proc load-icon {icon} {
-    image create bitmap icon/$icon -file icons/$icon.xbm
+    global info_cache
+    image create bitmap icon/$icon -file $info_cache/$icon.xbm
 }
 
 proc load-icon-combine {args} {
+    global info_cache
     set cmd {}
     set delim "pnmcat -lr "
     foreach icon $args {
-       append cmd $delim " <(xbmtopbm icons/$icon.xbm)"
+       append cmd $delim " <(xbmtopbm $info_cache/$icon.xbm)"
        set delim " <(pbmmake -white 1 1)"
     }
     append cmd " | pbmtoxbm"