From 93f48894d7aa6afacbc82bf4f32318662ba7225b Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Tue, 30 Jun 2009 20:26:50 +0100
Subject: [PATCH] wip matching context selection

---
 pctb/dictionary-manager | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

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
-- 
2.30.2