Posted to tcl by kevin_walzer at Thu Aug 13 00:40:57 GMT 2009view raw
- 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