source ../../oo.tcl @import core.* @import gui.* wm geometry . "300x200" set box [ComboBox new] $box label: "This is a ComboBox widget" $box list: {eth bri ser} $box height: 3 $box selection: bri $box show