X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=pctb%2Fdictionary-manager;h=9d92a66b78d04218db1214d2ee7e2045d783c882;hp=374c4ef7a67b9595cc4edddc63eec02fdaeef8d7;hb=93f48894d7aa6afacbc82bf4f32318662ba7225b;hpb=7ca1164cb2e18550cbdf1684802b6573a6165a8c

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index 374c4ef..9d92a66 100755
--- 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
 
+    frame .d.seldict
     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
     }
+
+    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
-    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
 
@@ -385,7 +391,7 @@ proc required/pixmap {} {
     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