exit 16
}
+proc execpnm_createphoto {photoname args} {
+ set tmpfile ./#dictimage#.tmp
+ eval exec $args > $tmpfile
+ image create photo $photoname -file $tmpfile
+ file delete $tmpfile
+}
+
#---------- display core ----------
set mul 6
if {![string length $ppml]} break
append ppm $ppml "\n"
}
- set tmpfile ./#dictimage#.tmp
- exec pnmscale 2 << $ppm >$tmpfile
- image create photo image/main -file $tmpfile
- file delete $tmpfile
+ execpnm_createphoto image/main pnmscale 2 << $ppm
set alloptions [exec ./database-info-fetch $unk_what]
append o $ointerl
}
- debug "DATA1 $o"
- set tmpfile ./#dictimage#.tmp
- exec pnmscale 1 << $o >$tmpfile
- image create photo image/main -file $tmpfile
- file delete $tmpfile
+# debug "DATA1 $o"
+
+ execpnm_createphoto image/main pnmscale 1 << $o
}
#---------- character set editor display ----------
set image [exec pgmtoppm {#008-white} << $image | pnmnoraw]
append image "\n"
}
- set image [exec pnmscale 2 << $image]
-
- image create photo approve/$ix -data $image
+ execpnm_createphoto approve/$ix pnmscale 2 << $image
label $wb-image -image approve/$ix -bd 2 -relief flat -bg black
manyset [dict2_reqkind_rows $dict] reqkind