summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-09-25 19:20:24 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-09-25 19:20:24 (GMT)
commite05a73a1dc281d212fc7f4f6b35e0bc5f4204d9c (patch)
tree8d049405dc06ff0d34571dcba6da598cc9d58992
parenteb9183790f07065eb2210b29d6fc9276e49481e1 (diff)
downloadtk-e05a73a1dc281d212fc7f4f6b35e0bc5f4204d9c.zip
tk-e05a73a1dc281d212fc7f4f6b35e0bc5f4204d9c.tar.gz
tk-e05a73a1dc281d212fc7f4f6b35e0bc5f4204d9c.tar.bz2
Fixed [3217462fff] for the alt and classic themes
-rw-r--r--library/ttk/altTheme.tcl9
-rw-r--r--library/ttk/classicTheme.tcl9
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} \
;