RadioBox sample





source ../../oo.tcl

@import core.*
@import gui.*

wm geometry . "300x200"

set box [RadioBox new] 
$box label: "This is a RadioBox widget"
$box list: {Julia Sophia Marleen}
if {![$box contains: Sylvia]} {
  $box add: Sylvia
}
$box selection: Marleen
$box onSelection: {puts stderr "selection is now $selection"}
$box add: Katy
$box sort
$box show