Posted to tcl by kevin_walzer at Thu Aug 13 00:40:57 GMT 2009view pretty
menu .m . configure -menu .m menu .m.check .m.check add check -label "Oil checked" -variable oil .m.check add check -label "Transmission checked" -variable trans .m add cascade -label "Check" -menu .m.check