From daea4e2ae99a82f91e3b19d8798b07263623b74f Mon Sep 17 00:00:00 2001 From: fvogel Date: Sat, 24 Sep 2016 18:27:11 +0000 Subject: Fixed clam theme for all states --- library/ttk/clamTheme.tcl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/library/ttk/clamTheme.tcl b/library/ttk/clamTheme.tcl index eddacdd..f465922 100644 --- a/library/ttk/clamTheme.tcl +++ b/library/ttk/clamTheme.tcl @@ -82,11 +82,13 @@ namespace eval ttk::theme::clam { -indicatormargin {1 1 4 1} \ -padding 2 ; ttk::style map TCheckbutton -indicatorbackground \ - [list disabled $colors(-frame) pressed $colors(-frame) \ - {!disabled alternate} $colors(-altindicator) {disabled alternate} $colors(-disabledaltindicator)] + [list pressed $colors(-frame) \ + {!disabled alternate} $colors(-altindicator) {disabled alternate} $colors(-disabledaltindicator) \ + disabled $colors(-frame)] ttk::style map TRadiobutton -indicatorbackground \ - [list disabled $colors(-frame) pressed $colors(-frame) \ - {!disabled alternate} $colors(-altindicator) {disabled alternate} $colors(-disabledaltindicator)] + [list pressed $colors(-frame) \ + {!disabled alternate} $colors(-altindicator) {disabled alternate} $colors(-disabledaltindicator) \ + disabled $colors(-frame)] ttk::style configure TMenubutton \ -width -11 -padding 5 -relief raised -- cgit v0.12