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