summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
Diffstat (limited to 'library')
-rw-r--r--library/ttk/clamTheme.tcl8
-rw-r--r--library/ttk/defaults.tcl15
2 files changed, 19 insertions, 4 deletions
diff --git a/library/ttk/clamTheme.tcl b/library/ttk/clamTheme.tcl
index f184ea0..398a524 100644
--- a/library/ttk/clamTheme.tcl
+++ b/library/ttk/clamTheme.tcl
@@ -17,6 +17,8 @@ namespace eval ttk::theme::clam {
-lightest "#ffffff"
-selectbg "#4a6984"
-selectfg "#ffffff"
+ -altindicator "#9fbdd8"
+ -disabledaltindicator "#c0c0c0"
}
ttk::style theme settings clam {
@@ -80,9 +82,11 @@ namespace eval ttk::theme::clam {
-indicatormargin {1 1 4 1} \
-padding 2 ;
ttk::style map TCheckbutton -indicatorbackground \
- [list disabled $colors(-frame) pressed $colors(-frame)]
+ [list disabled $colors(-frame) pressed $colors(-frame) \
+ {!disabled alternate} $colors(-altindicator) {disabled alternate} $colors(-disabledaltindicator)]
ttk::style map TRadiobutton -indicatorbackground \
- [list disabled $colors(-frame) pressed $colors(-frame)]
+ [list disabled $colors(-frame) pressed $colors(-frame) \
+ {!disabled alternate} $colors(-altindicator) {disabled alternate} $colors(-disabledaltindicator)]
ttk::style configure TMenubutton \
-width -11 -padding 5 -relief raised
diff --git a/library/ttk/defaults.tcl b/library/ttk/defaults.tcl
index 05a46bd..2ab6c9c 100644
--- a/library/ttk/defaults.tcl
+++ b/library/ttk/defaults.tcl
@@ -15,6 +15,9 @@ namespace eval ttk::theme::default {
-darker "#c3c3c3"
-disabledfg "#a3a3a3"
-indicator "#4a6984"
+ -disabledindicator "#a3a3a3"
+ -altindicator "#9fbdd8"
+ -disabledaltindicator "#c0c0c0"
}
ttk::style theme settings default {
@@ -45,12 +48,20 @@ namespace eval ttk::theme::default {
ttk::style configure TCheckbutton \
-indicatorcolor "#ffffff" -indicatorrelief sunken -padding 1
ttk::style map TCheckbutton -indicatorcolor \
- [list pressed $colors(-activebg) selected $colors(-indicator)]
+ [list pressed $colors(-activebg) \
+ {!disabled selected} $colors(-indicator) {disabled selected} $colors(-disabledindicator) \
+ {!disabled alternate} $colors(-altindicator) {disabled alternate} $colors(-disabledaltindicator)]
+ ttk::style map TCheckbutton -indicatorrelief \
+ [list alternate raised]
ttk::style configure TRadiobutton \
-indicatorcolor "#ffffff" -indicatorrelief sunken -padding 1
ttk::style map TRadiobutton -indicatorcolor \
- [list pressed $colors(-activebg) selected $colors(-indicator)]
+ [list pressed $colors(-activebg) \
+ {!disabled selected} $colors(-indicator) {disabled selected} $colors(-disabledindicator) \
+ {!disabled alternate} $colors(-altindicator) {disabled alternate} $colors(-disabledaltindicator)]
+ ttk::style map TRadiobutton -indicatorrelief \
+ [list alternate raised]
ttk::style configure TMenubutton \
-relief raised -padding "10 3"