chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
wip
[ypp-sc-tools.db-test.git]
/
pctb
/
show-thing.tcl
diff --git
a/pctb/show-thing.tcl
b/pctb/show-thing.tcl
index 3d42218619359f68e864dc72c2923a880d415ff0..c0182238557b3dd5e64c5c020d5e8d4d4756393a 100755
(executable)
--- a/
pctb/show-thing.tcl
+++ b/
pctb/show-thing.tcl
@@
-406,7
+406,7
@@
proc RETURN_RESULT {how what} {
helptext {{{ Processing }}}
unbind_all_keys
update idletasks
helptext {{{ Processing }}}
unbind_all_keys
update idletasks
- puts "$how $what"
+ puts
stderr
"$how $what"
eval update_database/$how $what
exec kill -STOP [pid]
fileevent stdin readable required
eval update_database/$how $what
exec kill -STOP [pid]
fileevent stdin readable required
@@
-444,7
+444,7
@@
proc required {} {
init_widgets
manyset [lrange $l 0 3] unk_l unk_r unk_context
set glyphsdone [lrange $l 3 end]
init_widgets
manyset [lrange $l 0 3] unk_l unk_r unk_context
set glyphsdone [lrange $l 3 end]
- puts "SHOW-THING GOT $l"
+ puts
stderr
"SHOW-THING GOT $l"
fileevent stdin readable {}
fileevent stdin readable {}