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
rationalise debugging output
[ypp-sc-tools.db-test.git]
/
pctb
/
show-thing.tcl
diff --git
a/pctb/show-thing.tcl
b/pctb/show-thing.tcl
index 1af2101f9077d7f24927f1b0ea25ba39312d778d..c04d4ddf21b897e56d323e0c1ac17d40a14f8ea3 100755
(executable)
--- a/
pctb/show-thing.tcl
+++ b/
pctb/show-thing.tcl
@@
-26,6
+26,10
@@
set gotsh 20
set csrh 20
set ctxh 20
set csrh 20
set ctxh 20
+proc debug {m} {
+ puts stderr "SHOW-THING $m"
+}
+
proc init_widgets {} {
# idempotent
global csrh gotsh ctxh
proc init_widgets {} {
# idempotent
global csrh gotsh ctxh
@@
-134,7
+138,7
@@
proc read_xpm {f} {
set realcols $cols
set cols [expr {$cols - $chop_l - $chop_r}]
set realcols $cols
set cols [expr {$cols - $chop_l - $chop_r}]
-
puts stderr
"NOW cols=$cols chop_l,r=$chop_l,$chop_r rows=$rows\
+
debug
"NOW cols=$cols chop_l,r=$chop_l,$chop_r rows=$rows\
$unk_l $unk_r $ngd"
set mulcols [expr {$cols*$mul+$inter}]
$unk_l $unk_r $ngd"
set mulcols [expr {$cols*$mul+$inter}]
@@
-477,7
+481,7
@@
proc RETURN_RESULT {how what} {
helptext {{{ Processing }}}
unbind_all_keys
update idletasks
helptext {{{ Processing }}}
unbind_all_keys
update idletasks
-
puts stderr
"$how $what"
+
debug
"$how $what"
eval update_database/$how $what
done/$mainkind
}
eval update_database/$how $what
done/$mainkind
}
@@
-518,7
+522,7
@@
proc required {} {
init_widgets
manyset [lrange $l 0 3] unk_l unk_r unk_contexts
set glyphsdone [lrange $l 3 end]
init_widgets
manyset [lrange $l 0 3] unk_l unk_r unk_contexts
set glyphsdone [lrange $l 3 end]
-
puts stderr "SHOW-THING
GOT $l"
+
debug "
GOT $l"
fileevent stdin readable {}
fileevent stdin readable {}