From efbf465e352797cea1728d0a8fb5108a6aee2422 Mon Sep 17 00:00:00 2001 From: csaba Date: Thu, 28 Nov 2024 10:21:38 +0000 Subject: [PATCH] Fix [a69fd7cdc7]: File clamTheme.tcl misses code related to the -indicatorforeground option. --- library/ttk/clamTheme.tcl | 26 ++++++++++++++++---------- 1 file changed, 16 insertions(+), 10 deletions(-) diff --git a/library/ttk/clamTheme.tcl b/library/ttk/clamTheme.tcl index 6aca60bb8..665bcaf2e 100644 --- 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