Posted to tcl by saedelaere at Mon Aug 17 20:26:04 GMT 2009view raw

  1. ttk::menubutton .mb \
  2. -menu .mb_menu \
  3. -textvariable mb
  4. menu .mb_menu
  5. set styles {bold italic something}
  6. foreach style $styles {
  7. .mb_menu add radiobutton \
  8. -label [mc $style] \
  9. -command [list changeStyle $style]
  10. }