From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Tue, 30 Jun 2009 19:26:50 +0000 (+0100)
Subject: wip matching context selection
X-Git-Tag: 1.9.2~87
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=commitdiff_plain;h=93f48894d7aa6afacbc82bf4f32318662ba7225b

wip matching context selection
---

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