summaryrefslogtreecommitdiffstats
path: root/library/ttk
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2018-07-04 08:46:12 (GMT)
committerfvogel <fvogelnew1@free.fr>2018-07-04 08:46:12 (GMT)
commita5b68dc96ced6843cdbe05e9dd38b5c1467d074c (patch)
treebab41608928192a881cf5789874817bff0b2a148 /library/ttk
parent5e2862ac6986ee04aad4ae7cb203efb64ce5b1c5 (diff)
parent99d872a884c845a1e4aded9363ef7cf4c827b46b (diff)
downloadtk-a5b68dc96ced6843cdbe05e9dd38b5c1467d074c.zip
tk-a5b68dc96ced6843cdbe05e9dd38b5c1467d074c.tar.gz
tk-a5b68dc96ced6843cdbe05e9dd38b5c1467d074c.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 be68978..0f5ee46 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 \
;