From f77eca2b4dce3066084189fa3b18accf5d50bfa2 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 10 Sep 2009 16:44:06 +0100
Subject: [PATCH] Expand pixmap (island name) listboxes as necessary

---
 yarrg/dictionary-manager | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/yarrg/dictionary-manager b/yarrg/dictionary-manager
index 623e07d..65fc977 100755
--- a/yarrg/dictionary-manager
+++ b/yarrg/dictionary-manager
@@ -450,14 +450,14 @@ proc required/pixmap {} {
     set col 0; foreach {colname coldesc rows} $alloptions {
 	debug "INIT $col $colname \"$coldesc\""
 	label .pe.grid.t$col -text $colname
-	listbox .pe.grid.l$col
+	listbox .pe.grid.l$col -height -1
 	foreach {rowname rowdesc} $rows {
 	    debug "INIT $col $colname \"$coldesc\" $rowname \"$rowdesc\""
 	    .pe.grid.l$col insert end $rowdesc
 	}
 	bind .pe.grid.l$col <<ListboxSelect>> [list pixmap_select $col]
 	grid .pe.grid.t$col -column $col -row 0
-	grid .pe.grid.l$col -column $col -row 1
+	grid .pe.grid.l$col -column $col -row 1 -sticky ns
 	incr col
     }
     pixmap_maybe_ok
-- 
2.30.2