set choice 0
set c 0
foreach i {red green blue white brown yellow} {
    radiobutton .$i -text $i -variable choice \
	    -value [expr $c % 2] -bg grey77
    pack .$i -side left -fill y
    incr c
}
label .l -textvariable choice
pack .l -side left -fill both -expand y