Artifact
3c96bdec34467f9d519220e31099d71987b44fb6c141df9ff88cf5352c56354f:
Attachment "clamTheme.diff" to
ticket [a69fd7cd]
added by
nemethi
2024-11-27 15:32:30.
Index: library/ttk/clamTheme.tcl
==================================================================
--- library/ttk/clamTheme.tcl
+++ library/ttk/clamTheme.tcl
@@ -70,26 +70,32 @@
-lightcolor [list pressed $colors(-darker)] \
-darkcolor [list pressed $colors(-darker)]
ttk::style configure TCheckbutton \
-indicatorbackground "#ffffff" \
+ -indicatorforeground "#000000" \
-indicatormargin {1 1 4 1} \
-padding 2
ttk::style configure TRadiobutton \
-indicatorbackground "#ffffff" \
+ -indicatorforeground "#000000" \
-indicatormargin {1 1 4 1} \
-padding 2
- ttk::style map TCheckbutton -indicatorbackground \
- [list pressed $colors(-frame) \
- {!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 $colors(-frame)]
+ ttk::style map TCheckbutton \
+ -indicatorbackground [list \
+ pressed $colors(-frame) \
+ {alternate disabled} $colors(-disabledaltindicator) \
+ alternate $colors(-altindicator) \
+ disabled $colors(-frame)] \
+ -indicatorforeground [list disabled $colors(-disabledfg)]
+ ttk::style map TRadiobutton \
+ -indicatorbackground [list \
+ pressed $colors(-frame) \
+ {alternate disabled} $colors(-disabledaltindicator) \
+ alternate $colors(-altindicator) \
+ disabled $colors(-frame)] \
+ -indicatorforeground [list disabled $colors(-disabledfg)]
ttk::style configure TMenubutton \
-width -11 -padding 5 -relief raised
ttk::style configure TEntry -padding 1 -insertwidth 1
