diff options
author | fvogel <fvogelnew1@free.fr> | 2016-10-12 19:30:09 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2016-10-12 19:30:09 (GMT) |
commit | 3777c7414cf7ce927a2e71969018eab91f98815b (patch) | |
tree | 28cb5dda4a97398f7ef1d023955eefc1adcf3118 /library/ttk/classicTheme.tcl | |
parent | 8bb0c09912bcf8aaa8d5366525d7895c0fe96ad7 (diff) | |
parent | 549f2d1d605a90214702cc88d5516ac24e6996b2 (diff) | |
download | tk-3777c7414cf7ce927a2e71969018eab91f98815b.zip tk-3777c7414cf7ce927a2e71969018eab91f98815b.tar.gz tk-3777c7414cf7ce927a2e71969018eab91f98815b.tar.bz2 |
Fixed [3217462fff] - Tri-state buttons not working for non-native themes
Diffstat (limited to 'library/ttk/classicTheme.tcl')
-rw-r--r-- | library/ttk/classicTheme.tcl | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/library/ttk/classicTheme.tcl b/library/ttk/classicTheme.tcl index 7e3eff5..3cb2b18 100644 --- a/library/ttk/classicTheme.tcl +++ b/library/ttk/classicTheme.tcl @@ -15,6 +15,7 @@ namespace eval ttk::theme::classic { -selectfg "#000000" -disabledfg "#a3a3a3" -indicator "#b03060" + -altindicator "#b05e5e" } ttk::style theme settings classic { @@ -49,15 +50,19 @@ namespace eval ttk::theme::classic { ttk::style configure TCheckbutton -indicatorrelief raised ttk::style map TCheckbutton \ -indicatorcolor [list \ - pressed $colors(-frame) selected $colors(-indicator)] \ - -indicatorrelief {selected sunken pressed sunken} \ + pressed $colors(-frame) \ + alternate $colors(-altindicator) \ + selected $colors(-indicator)] \ + -indicatorrelief {alternate raised selected sunken pressed sunken} \ ; ttk::style configure TRadiobutton -indicatorrelief raised ttk::style map TRadiobutton \ -indicatorcolor [list \ - pressed $colors(-frame) selected $colors(-indicator)] \ - -indicatorrelief {selected sunken pressed sunken} \ + pressed $colors(-frame) \ + alternate $colors(-altindicator) \ + selected $colors(-indicator)] \ + -indicatorrelief {alternate raised selected sunken pressed sunken} \ ; ttk::style configure TMenubutton -relief raised -padding "3m 1m" |