chiark / gitweb /
Use tmpfile trick for pixmaps too [-iwj]
authorceb <clareb@felix.relativity.greenend.org.uk>
Sat, 4 Jul 2009 20:45:05 +0000 (21:45 +0100)
committerceb <clareb@felix.relativity.greenend.org.uk>
Sat, 4 Jul 2009 20:45:05 +0000 (21:45 +0100)
pctb/dictionary-manager

index ad05c6b..5e108a7 100755 (executable)
@@ -422,8 +422,10 @@ proc required/pixmap {} {
        if {![string length $ppml]} break
        append ppm $ppml "\n"
     }
-    set data [exec pnmscale 2 << $ppm]
-    image create photo image/main -data $data
+    set tmpfile ./#dictimage#.tmp
+    exec pnmscale 2 << $ppm >$tmpfile
+    image create photo image/main -file $tmpfile
+    file delete $tmpfile
 
     set alloptions [exec ./database-info-fetch $unk_what]