+proc make-radio-smasher {w label variable descs} {
+ frame $w
+ label $w.label -text $label
+ pack $w.label -side left
+ for {set i 0} {$i < [llength $descs]} {incr i} {
+ radiobutton $w.v$i \
+ -variable $variable -value $i -command redraw-needed \
+ -text [lindex $descs $i]
+ pack $w.v$i -side left
+ }
+}
+