summaryrefslogtreecommitdiffstats
path: root/library/ttk
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2018-06-11 17:15:17 (GMT)
committerfvogel <fvogelnew1@free.fr>2018-06-11 17:15:17 (GMT)
commitc595e231fa8ed542c26da45a8b1565fe09b63d14 (patch)
treeb246134e199b1935d8f98d456a5dae11883cab24 /library/ttk
parentc9c922c7cf9193285e2e0375a6759758b1f995b0 (diff)
downloadtk-c595e231fa8ed542c26da45a8b1565fe09b63d14.zip
tk-c595e231fa8ed542c26da45a8b1565fe09b63d14.tar.gz
tk-c595e231fa8ed542c26da45a8b1565fe09b63d14.tar.bz2
Fix [309b426171]: ttk partly fails in Windows high-contrast-mode using wrong colors. Patch provided by cjmcdonald
Diffstat (limited to 'library/ttk')
-rw-r--r--library/ttk/vistaTheme.tcl3
-rw-r--r--library/ttk/winTheme.tcl2
-rw-r--r--library/ttk/xpTheme.tcl1
3 files changed, 5 insertions, 1 deletions
diff --git a/library/ttk/vistaTheme.tcl b/library/ttk/vistaTheme.tcl
index 88995c9..335d949 100644
--- a/library/ttk/vistaTheme.tcl
+++ b/library/ttk/vistaTheme.tcl
@@ -21,6 +21,7 @@ namespace eval ttk::theme::vista {
-foreground SystemWindowText \
-selectforeground SystemHighlightText \
-selectbackground SystemHighlight \
+ -insertcolor SystemWindowText \
-font TkDefaultFont \
;
@@ -54,7 +55,7 @@ namespace eval ttk::theme::vista {
selected SystemHighlightText]
# Label and Toolbutton
- ttk::style configure TLabelframe.Label -foreground "#0046d5"
+ ttk::style configure TLabelframe.Label -foreground SystemButtonText
ttk::style configure Toolbutton -padding {4 4}
diff --git a/library/ttk/winTheme.tcl b/library/ttk/winTheme.tcl
index 6c03ef6..a7a2c79 100644
--- a/library/ttk/winTheme.tcl
+++ b/library/ttk/winTheme.tcl
@@ -10,6 +10,8 @@ namespace eval ttk::theme::winnative {
-foreground SystemWindowText \
-selectforeground SystemHighlightText \
-selectbackground SystemHighlight \
+ -fieldbackground SystemWindow \
+ -insertcolor SystemWindowText \
-troughcolor SystemScrollbar \
-font TkDefaultFont \
;
diff --git a/library/ttk/xpTheme.tcl b/library/ttk/xpTheme.tcl
index a174bfc..5d8d09b 100644
--- a/library/ttk/xpTheme.tcl
+++ b/library/ttk/xpTheme.tcl
@@ -11,6 +11,7 @@ namespace eval ttk::theme::xpnative {
-foreground SystemWindowText \
-selectforeground SystemHighlightText \
-selectbackground SystemHighlight \
+ -insertcolor SystemWindowText \
-font TkDefaultFont \
;