Use tmpfile trick for pixmaps too [-iwj]

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index ad05c6b1760b343571a1bb3b052b57f17c2b8f82..5e108a7ea72583e29a958ac60027dac37f73f845 100755 (executable)
--- a/pctb/dictionary-manager
+++ b/pctb/dictionary-manager
@@ -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]