# 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