chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Say when OK to mess with YPP client
[ypp-sc-tools.web-live.git]
/
pctb
/
dictionary-manager
diff --git
a/pctb/dictionary-manager
b/pctb/dictionary-manager
index 19e067c93ba188a21222cb8411845ce19ef13b14..2c91a2a372be1a9cac3b5e5482b59bdfad8e51bd 100755
(executable)
--- a/
pctb/dictionary-manager
+++ b/
pctb/dictionary-manager
@@
-95,7
+95,7
@@
proc bgerror {m} {
}
proc execpnm_createphoto {photoname args} {
}
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
eval exec $args > $tmpfile
image create photo $photoname -file $tmpfile
file delete $tmpfile
@@
-257,7
+257,7
@@
proc write_database {} {
proc select_database {dbname_spec} {
global dbname
set dbname $dbname_spec
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} {
}
proc do_database_update {im def} {