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
always start with a blank entry
[ypp-sc-tools.web-live.git]
/
pctb
/
show-thing.tcl
diff --git
a/pctb/show-thing.tcl
b/pctb/show-thing.tcl
index 980a8a48c88763ad41e8bc6ed7bfa1e33a1e8f12..1af2101f9077d7f24927f1b0ea25ba39312d778d 100755
(executable)
--- a/
pctb/show-thing.tcl
+++ b/
pctb/show-thing.tcl
@@
-269,6
+269,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
+299,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"
}
}