Posted to tcl by dizach at Tue Mar 02 22:59:40 GMT 2010view raw
- 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