diff options
author | fvogel <fvogelnew1@free.fr> | 2016-09-25 19:20:24 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2016-09-25 19:20:24 (GMT) |
commit | e05a73a1dc281d212fc7f4f6b35e0bc5f4204d9c (patch) | |
tree | 8d049405dc06ff0d34571dcba6da598cc9d58992 | |
parent | eb9183790f07065eb2210b29d6fc9276e49481e1 (diff) | |
download | tk-e05a73a1dc281d212fc7f4f6b35e0bc5f4204d9c.zip tk-e05a73a1dc281d212fc7f4f6b35e0bc5f4204d9c.tar.gz tk-e05a73a1dc281d212fc7f4f6b35e0bc5f4204d9c.tar.bz2 |
Fixed [3217462fff] for the alt and classic themes
-rw-r--r-- | library/ttk/altTheme.tcl | 9 | ||||
-rw-r--r-- | library/ttk/classicTheme.tcl | 9 |
2 files changed, 14 insertions, 4 deletions
diff --git a/library/ttk/altTheme.tcl b/library/ttk/altTheme.tcl index d57227c..e792539 100644 --- a/library/ttk/altTheme.tcl +++ b/library/ttk/altTheme.tcl @@ -14,6 +14,7 @@ namespace eval ttk::theme::alt { -disabledfg "#a3a3a3" -selectbg "#4a6984" -selectfg "#ffffff" + -altindicator "#aaaaaa" } ttk::style theme settings alt { @@ -46,9 +47,13 @@ namespace eval ttk::theme::alt { ttk::style configure TCheckbutton -indicatorcolor "#ffffff" -padding 2 ttk::style configure TRadiobutton -indicatorcolor "#ffffff" -padding 2 ttk::style map TCheckbutton -indicatorcolor \ - [list disabled $colors(-frame) pressed $colors(-frame)] + [list pressed $colors(-frame) \ + alternate $colors(-altindicator) \ + disabled $colors(-frame)] ttk::style map TRadiobutton -indicatorcolor \ - [list disabled $colors(-frame) pressed $colors(-frame)] + [list pressed $colors(-frame) \ + alternate $colors(-altindicator) \ + disabled $colors(-frame)] ttk::style configure TMenubutton \ -width -11 -padding "3 3" -relief raised diff --git a/library/ttk/classicTheme.tcl b/library/ttk/classicTheme.tcl index 7e3eff5..e510361 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,14 +50,18 @@ namespace eval ttk::theme::classic { ttk::style configure TCheckbutton -indicatorrelief raised ttk::style map TCheckbutton \ -indicatorcolor [list \ - pressed $colors(-frame) selected $colors(-indicator)] \ + pressed $colors(-frame) \ + selected $colors(-indicator) \ + alternate $colors(-altindicator)] \ -indicatorrelief {selected sunken pressed sunken} \ ; ttk::style configure TRadiobutton -indicatorrelief raised ttk::style map TRadiobutton \ -indicatorcolor [list \ - pressed $colors(-frame) selected $colors(-indicator)] \ + pressed $colors(-frame) \ + selected $colors(-indicator) \ + alternate $colors(-altindicator)] \ -indicatorrelief {selected sunken pressed sunken} \ ; |