summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--library/ttk/clamTheme.tcl6
-rw-r--r--library/ttk/defaults.tcl12
2 files changed, 12 insertions, 6 deletions
diff --git a/library/ttk/clamTheme.tcl b/library/ttk/clamTheme.tcl
index f465922..e6cabb7 100644
--- a/library/ttk/clamTheme.tcl
+++ b/library/ttk/clamTheme.tcl
@@ -83,11 +83,13 @@ namespace eval ttk::theme::clam {
-padding 2 ;
ttk::style map TCheckbutton -indicatorbackground \
[list pressed $colors(-frame) \
- {!disabled alternate} $colors(-altindicator) {disabled alternate} $colors(-disabledaltindicator) \
+ {!disabled alternate} $colors(-altindicator) \
+ {disabled alternate} $colors(-disabledaltindicator) \
disabled $colors(-frame)]
ttk::style map TRadiobutton -indicatorbackground \
[list pressed $colors(-frame) \
- {!disabled alternate} $colors(-altindicator) {disabled alternate} $colors(-disabledaltindicator) \
+ {!disabled alternate} $colors(-altindicator) \
+ {disabled alternate} $colors(-disabledaltindicator) \
disabled $colors(-frame)]
ttk::style configure TMenubutton \
diff --git a/library/ttk/defaults.tcl b/library/ttk/defaults.tcl
index 548d5fe..f07cbf7 100644
--- a/library/ttk/defaults.tcl
+++ b/library/ttk/defaults.tcl
@@ -49,8 +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 selected} $colors(-indicator) \
+ {disabled selected} $colors(-disabledindicator) \
+ {!disabled alternate} $colors(-altindicator) \
+ {disabled alternate} $colors(-disabledaltindicator)]
ttk::style map TCheckbutton -indicatorrelief \
[list alternate raised]
@@ -58,8 +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 selected} $colors(-indicator) \
+ {disabled selected} $colors(-disabledindicator) \
+ {!disabled alternate} $colors(-altindicator) \
+ {disabled alternate} $colors(-disabledaltindicator)]
ttk::style map TRadiobutton -indicatorrelief \
[list alternate raised]