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