ComboBox sample





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