diff options
author | fvogel <fvogelnew1@free.fr> | 2018-06-11 17:15:17 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2018-06-11 17:15:17 (GMT) |
commit | c595e231fa8ed542c26da45a8b1565fe09b63d14 (patch) | |
tree | b246134e199b1935d8f98d456a5dae11883cab24 /library/ttk | |
parent | c9c922c7cf9193285e2e0375a6759758b1f995b0 (diff) | |
download | tk-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.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 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 \ ; |