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

proc menuAdjustProc {menu} {
  # adjust your options for each theme
  set stylemap {
    clam {-foreground snow -borderwidth .....}
    alt  {....}
    ....
  }
  
  $menu configure {*}[dict get $stylemap $::ttk::currentTheme]
}

bind Menu <<ThemeChanged>> {menuAdjustProc %W}