summaryrefslogtreecommitdiffstats
path: root/library/ttk
diff options
context:
space:
mode:
Diffstat (limited to 'library/ttk')
-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]