Choice sample





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
  }
}