Posted to tcl by emiliano at Sun Aug 02 16:14:18 GMT 2009view raw

  1. proc menuAdjustProc {menu} {
  2. # adjust your options for each theme
  3. set stylemap {
  4. clam {-foreground snow -borderwidth .....}
  5. alt {....}
  6. ....
  7. }
  8.  
  9. $menu configure {*}[dict get $stylemap $::ttk::currentTheme]
  10. }
  11.  
  12. bind Menu <<ThemeChanged>> {menuAdjustProc %W}