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
wip matching context selection
[ypp-sc-tools.db-test.git]
/
pctb
/
dictionary-manager
diff --git
a/pctb/dictionary-manager
b/pctb/dictionary-manager
index 374c4ef7a67b9595cc4edddc63eec02fdaeef8d7..9d92a66b78d04218db1214d2ee7e2045d783c882 100755
(executable)
--- a/
pctb/dictionary-manager
+++ b/
pctb/dictionary-manager
@@
-123,6
+123,7
@@
static unsigned char csr_bits[] = {
entry .d.csr.csr.e -bd 0
pack .d.csr.csr.l -side left
entry .d.csr.csr.e -bd 0
pack .d.csr.csr.l -side left
+ frame .d.seldict
frame .d.mi.csr_0 -bg white -width 1
frame .d.mi.csr_1 -bg white -width 1
frame .d.pe
frame .d.mi.csr_0 -bg white -width 1
frame .d.mi.csr_1 -bg white -width 1
frame .d.pe
@@
-262,10
+263,15
@@
proc required/char {} {
foreach {min max contexts got} $glyphsdone {
show_context maxh $min $contexts
}
foreach {min max contexts got} $glyphsdone {
show_context maxh $min $contexts
}
+
+ destroy [winfo children .d.seldict]
+ label .d.seldict.title -text {Select matching context:}
+ pack .d.seldict.title -side left
+
show_context maxh $unk_l $unk_contexts
.d.ctx configure -height $maxh
pack forget .d.pe
show_context maxh $unk_l $unk_contexts
.d.ctx configure -height $maxh
pack forget .d.pe
- pack .d.csr -side top -before .d.mi
+ pack .d.
seldict .d.
csr -side top -before .d.mi
pack .d.got .d.ctx -side top -after .d.mi
focus .d
pack .d.got .d.ctx -side top -after .d.mi
focus .d
@@
-385,7
+391,7
@@
proc required/pixmap {} {
place forget .d.mi.csr_0
place forget .d.mi.csr_1
place forget .d.mi.csr_0
place forget .d.mi.csr_1
- pack forget .d.csr .d.got
+ pack forget .d.
seldict .d.
csr .d.got
pack .d.pe -side top -before .d.mi -pady 2
.d configure -takefocus 0
#-pady 2 -fill x
pack .d.pe -side top -before .d.mi -pady 2
.d configure -takefocus 0
#-pady 2 -fill x