}
proc execpnm_createphoto {photoname args} {
- set tmpfile ./#dictimage#.tmp
+ set tmpfile ./_dictimage.tmp
eval exec $args > $tmpfile
image create photo $photoname -file $tmpfile
file delete $tmpfile
proc select_database {dbname_spec} {
global dbname
set dbname $dbname_spec
- read_database "./#local-$dbname#.txt"
+ read_database "./_local-$dbname.txt"
}
proc do_database_update {im def} {