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