DynamicListBox sample





source ../../oo.tcl

@import core.*
@import gui.*

wm geometry . "300x200"

set box [DynamicListBox new] 
$box label: "This is a DynamicListBox widget"
$box list: {train car bus}

if {![$box contains: plane]} {
  $box add: plane
}
$box selection: car

$box show