}
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"