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
converts to CanonImage
[ypp-sc-tools.web-live.git]
/
pctb
/
show-thing.tcl
diff --git
a/pctb/show-thing.tcl
b/pctb/show-thing.tcl
index 980a8a48c88763ad41e8bc6ed7bfa1e33a1e8f12..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}]
@@
-269,6
+273,7
@@
proc recursor//01 {z1} {
}
bind_key Return {
if {$cur_0 != $cur_1} {
}
bind_key Return {
if {$cur_0 != $cur_1} {
+ .d.csr.csr.e delete 0 end
set cur_mode text
recursor
}
set cur_mode text
recursor
}
@@
-298,7
+303,6
@@
proc recursor/text {} {
bind_key Return {
set strq [.d.csr.csr.e get]
if {[regexp {^(?:[!-[]|[]-~]|\\\\|\\x[0-9a-f]{2})+} $strq]} {
bind_key Return {
set strq [.d.csr.csr.e get]
if {[regexp {^(?:[!-[]|[]-~]|\\\\|\\x[0-9a-f]{2})+} $strq]} {
- .d.csr.csr.e delete 0 end
RETURN_RESULT DEFINE "$cur_0 $cur_1 $strq"
}
}
RETURN_RESULT DEFINE "$cur_0 $cur_1 $strq"
}
}
@@
-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 {}