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