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