set csrh 20
set ctxh 20
+proc debug {m} {
+ puts stderr "SHOW-THING $m"
+}
+
proc init_widgets {} {
# idempotent
global csrh gotsh ctxh
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}]
helptext {{{ Processing }}}
unbind_all_keys
update idletasks
- puts stderr "$how $what"
+ debug "$how $what"
eval update_database/$how $what
done/$mainkind
}
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 {}