Posted to tcl by dizach at Tue Mar 02 22:59:40 GMT 2010view pretty
proc foo {} {puts ok}
menu .mc
.mc add radiobutton -label test1 -variable ::rb -value 0 -command ::foo
.mc add radiobutton -label test2 -variable ::rb -value 1 -command ::foo
menu .m
.m add cascade -label test -menu .mc
.m post 100 100