diff options
| author | culler <culler> | 2019-03-11 16:18:42 (GMT) |
|---|---|---|
| committer | culler <culler> | 2019-03-11 16:18:42 (GMT) |
| commit | cc0838e96eb2896404e634bea95769c4fd7ebd76 (patch) | |
| tree | 4861c70a0e7dc31462c78fbcd6f7b6f46bdf3806 /library/ttk | |
| parent | ecdf944613bc935541cc765dbfb03b93ab8d389d (diff) | |
| download | tk-cc0838e96eb2896404e634bea95769c4fd7ebd76.zip tk-cc0838e96eb2896404e634bea95769c4fd7ebd76.tar.gz tk-cc0838e96eb2896404e634bea95769c4fd7ebd76.tar.bz2 | |
Add colors systemControlTextColor and systemDisabledControlTextColor and
use them for ttk buttons. These colors adapt to Dark Mode.
Diffstat (limited to 'library/ttk')
| -rw-r--r-- | library/ttk/aquaTheme.tcl | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/library/ttk/aquaTheme.tcl b/library/ttk/aquaTheme.tcl index df8eb24..01ce869 100644 --- a/library/ttk/aquaTheme.tcl +++ b/library/ttk/aquaTheme.tcl @@ -8,26 +8,29 @@ namespace eval ttk::theme::aqua { ttk::style configure . \ -font TkDefaultFont \ -background systemWindowBody \ - -foreground systemTtkForeground \ + -foreground systemLabelColor \ -selectbackground systemHighlight \ - -selectforeground systemTtkForeground \ + -selectforeground systemLabelColor \ -selectborderwidth 0 \ -insertwidth 1 ttk::style map . \ -foreground { - disabled systemTtkForeground - background systemTtkForeground} \ + disabled systemLabelColor + background systemLabelColor} \ -selectbackground { background systemHighlight !focus systemHighlightSecondary} \ -selectforeground { - background systemTtkForeground + background systemLabelColor !focus systemDialogActiveText} # Buttons - ttk::style configure TButton -anchor center -width -6 - #-padding {0 2 0 3} + ttk::style configure TButton -anchor center -width -6 \ + -foreground systemControlTextColor + ttk::style map TButton \ + -foreground { + disabled systemDisabledControlTextColor} ttk::style configure Toolbutton -padding 4 -foreground black # Workaround for #1100117: # Actually, on Aqua we probably shouldn't stipple images in @@ -43,7 +46,7 @@ namespace eval ttk::theme::aqua { ttk::style map TNotebook.Tab \ -foreground { {background !disabled} black - disabled darkgray + disabled darkGray !selected black} # Combobox: |