Comments
Patch
@@ -30,6 +30,8 @@ if {[catch {package require Ttk}]} {
interp alias {} ttk::label {} label
interp alias {} ttk::scrollbar {} scrollbar
interp alias {} ttk::optionMenu {} tk_optionMenu
+
+ proc updatepalette {} {}
} else {
proc ::ttk::optionMenu {w varName firstValue args} {
upvar #0 $varName var
@@ -46,6 +48,11 @@ if {[catch {package require Ttk}]} {
}
return $w.menu
}
+ proc updatepalette {} {
+ catch {
+ tk_setPalette background [ttk::style lookup client -background]
+ }
+ }
}
if {[tk windowingsystem] eq "win32"} {
@@ -120,6 +127,7 @@ if {$theme eq "default"} {
}
+updatepalette
# Unify right mouse button handling.
# See "mouse buttons on macintosh" thread on comp.lang.tcl