diff options
author | fvogel <fvogelnew1@free.fr> | 2016-10-12 19:30:58 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2016-10-12 19:30:58 (GMT) |
commit | 685b8e2972aff70596e861c3369e48067e55a112 (patch) | |
tree | 275f97c6fc6a3ef2764da393af50745092b95e9a /library/ttk/clamTheme.tcl | |
parent | a193632d10533d3800204b95ae54bb963f7f4e0e (diff) | |
parent | 3777c7414cf7ce927a2e71969018eab91f98815b (diff) | |
download | tk-685b8e2972aff70596e861c3369e48067e55a112.zip tk-685b8e2972aff70596e861c3369e48067e55a112.tar.gz tk-685b8e2972aff70596e861c3369e48067e55a112.tar.bz2 |
Fixed [3217462fff] - Tri-state buttons not working for non-native themes
Diffstat (limited to 'library/ttk/clamTheme.tcl')
-rw-r--r-- | library/ttk/clamTheme.tcl | 32 |
1 files changed, 20 insertions, 12 deletions
diff --git a/library/ttk/clamTheme.tcl b/library/ttk/clamTheme.tcl index 1789b8a..49db744 100644 --- a/library/ttk/clamTheme.tcl +++ b/library/ttk/clamTheme.tcl @@ -7,16 +7,18 @@ namespace eval ttk::theme::clam { variable colors array set colors { - -disabledfg "#999999" - -frame "#dcdad5" - -window "#ffffff" - -dark "#cfcdc8" - -darker "#bab5ab" - -darkest "#9e9a91" - -lighter "#eeebe7" - -lightest "#ffffff" - -selectbg "#4a6984" - -selectfg "#ffffff" + -disabledfg "#999999" + -frame "#dcdad5" + -window "#ffffff" + -dark "#cfcdc8" + -darker "#bab5ab" + -darkest "#9e9a91" + -lighter "#eeebe7" + -lightest "#ffffff" + -selectbg "#4a6984" + -selectfg "#ffffff" + -altindicator "#5895bc" + -disabledaltindicator "#a0a0a0" } ttk::style theme settings clam { @@ -80,9 +82,15 @@ namespace eval ttk::theme::clam { -indicatormargin {1 1 4 1} \ -padding 2 ; ttk::style map TCheckbutton -indicatorbackground \ - [list disabled $colors(-frame) pressed $colors(-frame)] + [list pressed $colors(-frame) \ + {!disabled alternate} $colors(-altindicator) \ + {disabled alternate} $colors(-disabledaltindicator) \ + disabled $colors(-frame)] ttk::style map TRadiobutton -indicatorbackground \ - [list disabled $colors(-frame) pressed $colors(-frame)] + [list pressed $colors(-frame) \ + {!disabled alternate} $colors(-altindicator) \ + {disabled alternate} $colors(-disabledaltindicator) \ + disabled $colors(-frame)] ttk::style configure TMenubutton \ -width -11 -padding 5 -relief raised |