Fix [a69fd7cdc7]: File clamTheme.tcl misses code related to the -indi…

…catorforeground option.
tcltk · Nov 28, 2024 · efbf465 · efbf465
1 parent 61968d5
commit efbf465
Showing 1 changed file with 16 additions and 10 deletions.
diff --git a/library/ttk/clamTheme.tcl b/library/ttk/clamTheme.tcl
@@ -72,22 +72,28 @@ namespace eval ttk::theme::clam {
 
 	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