#
#
# mkRadioPanel -  Make a panel of radio buttons
#
# Arguments
#
#	w	Pathname to this window.  All the radiobuttons are children of
#		this frame
#	label	Main title for this window
#	args	each argument is a list of {text variable value}
#
# Return value
#	The pathname of the panel widget
# 
# Arguments/Options not yet implemented
# 
# -origin <origin>  Pack buttons starting from the top|bottom|left|right
#

proc mkRadioPanel {w label args} {
	frame $w
	set n 0
	pack [label $w.la -text $label] -in $w -side top -pady 4 -anchor w
	foreach b $args {
		pack \
		[radiobutton $w.b$n -text [lindex $b 0] -variable [lindex $b 1] \
            		-relief flat -value [lindex $b 2]] -in $w -side top -pady 4 -anchor w
	incr n 1
	}
	return $w
}