From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 10 Sep 2009 15:44:06 +0000 (+0100)
Subject: Expand pixmap (island name) listboxes as necessary
X-Git-Tag: 3.5^2~6
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=commitdiff_plain;h=f77eca2b4dce3066084189fa3b18accf5d50bfa2

Expand pixmap (island name) listboxes as necessary
---

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