Posted to tcl by kevin_walzer at Thu Aug 13 00:40:57 GMT 2009view raw

  1. menu .m
  2.  
  3. . configure -menu .m
  4.  
  5. menu .m.check
  6.  
  7. .m.check add check -label "Oil checked" -variable oil
  8. .m.check add check -label "Transmission checked" -variable trans
  9.  
  10. .m add cascade -label "Check" -menu .m.check