source stooop.tcl
namespace import stooop::*
source switched.tcl
source scwoop.tcl
source scwoutil.tcl
source bindings.tcl
source widgetip.tcl
source scroll.tcl
source scroller.tcl
source confint.tcl
source labelfra.tcl

. configure -highlightbackground black -highlightthickness 1
set options [new configurationInterface .]
set frame [new labelledFrame [configurationInterface::container $options] -text choices]
pack $widget::($frame,path)
configurationInterface::manage $options $frame

set selection 1
pack [radiobutton $widget::($frame,path).first -variable selection -value 1 -text {first choice}] -anchor nw
pack [radiobutton $widget::($frame,path).second -variable selection -value 2 -text {second choice}] -anchor nw
pack [radiobutton $widget::($frame,path).third -variable selection -value 3 -text {third choice}] -anchor nw
