source ../../oo.tcl @import core.* @import gui.* wm geometry . "300x200" foreach type {radio switch} { foreach value {0 1} { set c [[Choice new] show] $c label: "choice with type=$type and value=$value" $c type: $type $c value: $value } }