ver 0.6

Add Some defaults for non ttk-widgets so that they fit to the Breeze theme, too
MaxPerl · May 18, 2019 · 2a52666 · 2a52666
1 parent 5aa1217
commit 2a52666
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/breeze.tcl b/breeze.tcl
@@ -8,7 +8,7 @@ package require Tk 8.6.0
 
 namespace eval ttk::theme::Breeze {
 
-    variable version 0.5
+    variable version 0.6
     package provide ttk::theme::Breeze $version
 
     variable colors
@@ -319,5 +319,16 @@ namespace eval ttk::theme::Breeze {
         # Treeview
         ttk::style configure Treeview -background white
         ttk::style configure Treeview.Item -padding {2 0 0 0}
+
+        # Some defaults for non ttk-widgets so that they fit
+        # to the Breeze theme, too
+        tk_setPalette background [ttk::style lookup . -background] \
+        	foreground [ttk::style lookup . -foreground] \
+        	highlightColor [ttk::style lookup . -focuscolor] \
+        	selectBackground [ttk::style lookup . -selectbackground] \
+        	selectForeground [ttk::style lookup . -selectforeground] \
+        	activeBackground [ttk::style lookup . -selectbackground] \
+        	activeForeground [ttk::style lookup . -selectforeground]
+        option add *font [ttk::style lookup . -font]
     }
 }
diff --git a/pkgIndex.tcl b/pkgIndex.tcl
@@ -9,6 +9,6 @@
 if {![file isdirectory [file join $dir Breeze]]} { return }
 if {![package vsatisfies [package provide Tcl] 8.6]} { return }
 
-package ifneeded ttk::theme::Breeze 0.5 \
+package ifneeded ttk::theme::Breeze 0.6 \
     [list source [file join $dir breeze.tcl]]