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
disable OK button while approving
[ypp-sc-tools.web-live.git]
/
pctb
/
dictionary-manager
diff --git
a/pctb/dictionary-manager
b/pctb/dictionary-manager
index d9de00cb99da21296c1142952e15a2eb4961e23c..24e1aa28d306ed74bad41b7406998deca965427b 100755
(executable)
--- a/
pctb/dictionary-manager
+++ b/
pctb/dictionary-manager
@@
-772,7
+772,7
@@
proc recursor//01 {z1} {
if {[lsearch -exact $okctxts $ctx] >= 0} {
bind_key [string tolower $key] "
[list set new_context $ctx]
if {[lsearch -exact $okctxts $ctx] >= 0} {
bind_key [string tolower $key] "
[list set new_context $ctx]
- recursor
+ char_start_define_text
"
} else {
bind_key [string tolower $key] {}
"
} else {
bind_key [string tolower $key] {}
@@
-780,7
+780,7
@@
proc recursor//01 {z1} {
lappend context_help $key
}
set context_help [list [join $context_help " "] \
lappend context_help $key
}
set context_help [list [join $context_help " "] \
-
{Set match context for new glyph
.}]
+
{Set match context for new glyph, confirm location, and start entry
.}]
bind_key space { othercursor }
bind_leftright_q cur_$z1 0 [expr {$cols-1}]
bind_key space { othercursor }
bind_leftright_q cur_$z1 0 [expr {$cols-1}]
@@
-1154,7
+1154,7
@@
proc approve_decompose_data {specdata} {
uplevel 1 chop_counted key
uplevel 1 chop_counted val
uplevel 1 chop_counted key
uplevel 1 chop_counted val
- return [uplevel 1 {list $dict $def $image}]
+ return [uplevel 1 {list $dict $
ctx $
def $image}]
}
proc approve_compare {fd1 fd2} {
}
proc approve_compare {fd1 fd2} {
@@
-1249,6
+1249,8
@@
proc approve_check_server {} {
proc approve_confirm {} {
global approve_ixes approve_entryhow
proc approve_confirm {} {
global approve_ixes approve_entryhow
+ .ok configure -state disabled
+ update idletasks
approve_check_server
foreach ix $approve_ixes {
set how $approve_entryhow($ix)
approve_check_server
foreach ix $approve_ixes {
set how $approve_entryhow($ix)
@@
-1283,6
+1285,7
@@
proc approve_fetch_list {} {
set approve_list [lsort -command approve_compare $approve_list]
approve_show_page 0
set approve_list [lsort -command approve_compare $approve_list]
approve_show_page 0
+ .ok configure -state normal
}
proc main/approve {} {
}
proc main/approve {} {