ListBox sample





source ../../oo.tcl

@import core.*
@import gui.*

wm geometry . "300x200"

set box [ListBox new] 
$box label: "This is a ListBox widget"
$box list: {train car bus}
if {![$box contains: plane]} {
  $box add: plane
}
$box selection: car
$box show