Posted to tcl by saedelaere at Sun Aug 08 21:48:05 GMT 2010view raw

  1. ttk::menubutton .mb \
  2. -menu .mb.m1 \
  3. -text Test \
  4. -style Toolbutton
  5.  
  6. menu .mb.m1
  7. .mb.m1 add cascade \
  8. -label Subcascade1 \
  9. -menu .mb.m2
  10.  
  11. .mb.m1 add command \
  12. -label Foo
  13. .mb.m1 add command \
  14. -label Bar
  15.  
  16. menu .mb.m2
  17.  
  18. .mb.m2 add cascade \
  19. -label Subcascade1 \
  20. -menu .mb.m3
  21. .mb.m2 add command \
  22. -label Foo
  23. .mb.m2 add command \
  24. -label Bar
  25.  
  26. menu .mb.m3
  27. .mb.m3 add command \
  28. -label Foo
  29. .mb.m3 add command \
  30. -label Bar
  31.  
  32. grid .mb