chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2f218c0
)
Expand pixmap (island name) listboxes as necessary
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Thu, 10 Sep 2009 15:44:06 +0000
(16:44 +0100)
committer
Ian Jackson
<Ian.Jackson@eu.citrix.com>
Thu, 10 Sep 2009 15:44:06 +0000
(16:44 +0100)
yarrg/dictionary-manager
patch
|
blob
|
history
diff --git
a/yarrg/dictionary-manager
b/yarrg/dictionary-manager
index 623e07dc0f5431d3d33b22c075183fb5a615444c..65fc977b505fd9b8c3b3dd343e37e891d853edff 100755
(executable)
--- 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
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
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
incr col
}
pixmap_maybe_ok