set choice red
foreach i {red green blue white brown yellow} {
    radiobutton .$i -text $i -variable choice \
	    -value $i -bg grey77 -selectcolor $i
    pack .$i -side left -fill both -expand y
}