diff options
author | fvogel <fvogelnew1@free.fr> | 2018-07-04 08:46:12 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2018-07-04 08:46:12 (GMT) |
commit | a5b68dc96ced6843cdbe05e9dd38b5c1467d074c (patch) | |
tree | bab41608928192a881cf5789874817bff0b2a148 /library/ttk | |
parent | 5e2862ac6986ee04aad4ae7cb203efb64ce5b1c5 (diff) | |
parent | 99d872a884c845a1e4aded9363ef7cf4c827b46b (diff) | |
download | tk-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.tcl | 3 | ||||
-rw-r--r-- | library/ttk/winTheme.tcl | 2 | ||||
-rw-r--r-- | library/ttk/xpTheme.tcl | 1 |
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 \ ; |