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