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]