summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-10-05 13:48:53 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-10-05 13:48:53 (GMT)
commit828f2c0dd8dccab4a455c82bcf4550036926032c (patch)
tree2e3264150c7dead0a8bf9ea56d2d31495be5a45e
parente05a73a1dc281d212fc7f4f6b35e0bc5f4204d9c (diff)
downloadtk-828f2c0dd8dccab4a455c82bcf4550036926032c.zip
tk-828f2c0dd8dccab4a455c82bcf4550036926032c.tar.gz
tk-828f2c0dd8dccab4a455c82bcf4550036926032c.tar.bz2
Changed themes 'classic' and 'default' according to comments from Christian Gollwitzer in [3217462fff]
-rw-r--r--library/ttk/classicTheme.tcl12
-rw-r--r--library/ttk/defaults.tcl12
2 files changed, 12 insertions, 12 deletions
diff --git a/library/ttk/classicTheme.tcl b/library/ttk/classicTheme.tcl
index e510361..3cb2b18 100644
--- a/library/ttk/classicTheme.tcl
+++ b/library/ttk/classicTheme.tcl
@@ -51,18 +51,18 @@ namespace eval ttk::theme::classic {
ttk::style map TCheckbutton \
-indicatorcolor [list \
pressed $colors(-frame) \
- selected $colors(-indicator) \
- alternate $colors(-altindicator)] \
- -indicatorrelief {selected sunken pressed sunken} \
+ 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) \
- alternate $colors(-altindicator)] \
- -indicatorrelief {selected sunken pressed sunken} \
+ alternate $colors(-altindicator) \
+ selected $colors(-indicator)] \
+ -indicatorrelief {alternate raised selected sunken pressed sunken} \
;
ttk::style configure TMenubutton -relief raised -padding "3m 1m"
diff --git a/library/ttk/defaults.tcl b/library/ttk/defaults.tcl
index f07cbf7..853ed20 100644
--- a/library/ttk/defaults.tcl
+++ b/library/ttk/defaults.tcl
@@ -49,10 +49,10 @@ namespace eval ttk::theme::default {
-indicatorcolor "#ffffff" -indicatorrelief sunken -padding 1
ttk::style map TCheckbutton -indicatorcolor \
[list pressed $colors(-activebg) \
- {!disabled selected} $colors(-indicator) \
- {disabled selected} $colors(-disabledindicator) \
{!disabled alternate} $colors(-altindicator) \
- {disabled alternate} $colors(-disabledaltindicator)]
+ {disabled alternate} $colors(-disabledaltindicator) \
+ {!disabled selected} $colors(-indicator) \
+ {disabled selected} $colors(-disabledindicator)]
ttk::style map TCheckbutton -indicatorrelief \
[list alternate raised]
@@ -60,10 +60,10 @@ namespace eval ttk::theme::default {
-indicatorcolor "#ffffff" -indicatorrelief sunken -padding 1
ttk::style map TRadiobutton -indicatorcolor \
[list pressed $colors(-activebg) \
- {!disabled selected} $colors(-indicator) \
- {disabled selected} $colors(-disabledindicator) \
{!disabled alternate} $colors(-altindicator) \
- {disabled alternate} $colors(-disabledaltindicator)]
+ {disabled alternate} $colors(-disabledaltindicator) \
+ {!disabled selected} $colors(-indicator) \
+ {disabled selected} $colors(-disabledindicator)]
ttk::style map TRadiobutton -indicatorrelief \
[list alternate raised]