diff options
| -rw-r--r-- | library/ttk/classicTheme.tcl | 12 | ||||
| -rw-r--r-- | library/ttk/defaults.tcl | 12 |
2 files changed, 12 insertions, 12 deletions
diff --git a/library/ttk/classicTheme.tcl b/library/ttk/classicTheme.tcl index e510361..3cb2b18 100644 --- a/library/ttk/classicTheme.tcl +++ b/library/ttk/classicTheme.tcl @@ -51,18 +51,18 @@ namespace eval ttk::theme::classic { ttk::style map TCheckbutton \ -indicatorcolor [list \ pressed $colors(-frame) \ - selected $colors(-indicator) \ - alternate $colors(-altindicator)] \ - -indicatorrelief {selected sunken pressed sunken} \ + alternate $colors(-altindicator) \ + selected $colors(-indicator)] \ + -indicatorrelief {alternate raised selected sunken pressed sunken} \ ; ttk::style configure TRadiobutton -indicatorrelief raised ttk::style map TRadiobutton \ -indicatorcolor [list \ pressed $colors(-frame) \ - selected $colors(-indicator) \ - alternate $colors(-altindicator)] \ - -indicatorrelief {selected sunken pressed sunken} \ + alternate $colors(-altindicator) \ + selected $colors(-indicator)] \ + -indicatorrelief {alternate raised selected sunken pressed sunken} \ ; ttk::style configure TMenubutton -relief raised -padding "3m 1m" diff --git a/library/ttk/defaults.tcl b/library/ttk/defaults.tcl index f07cbf7..853ed20 100644 --- a/library/ttk/defaults.tcl +++ b/library/ttk/defaults.tcl @@ -49,10 +49,10 @@ namespace eval ttk::theme::default { -indicatorcolor "#ffffff" -indicatorrelief sunken -padding 1 ttk::style map TCheckbutton -indicatorcolor \ [list pressed $colors(-activebg) \ - {!disabled selected} $colors(-indicator) \ - {disabled selected} $colors(-disabledindicator) \ {!disabled alternate} $colors(-altindicator) \ - {disabled alternate} $colors(-disabledaltindicator)] + {disabled alternate} $colors(-disabledaltindicator) \ + {!disabled selected} $colors(-indicator) \ + {disabled selected} $colors(-disabledindicator)] ttk::style map TCheckbutton -indicatorrelief \ [list alternate raised] @@ -60,10 +60,10 @@ namespace eval ttk::theme::default { -indicatorcolor "#ffffff" -indicatorrelief sunken -padding 1 ttk::style map TRadiobutton -indicatorcolor \ [list pressed $colors(-activebg) \ - {!disabled selected} $colors(-indicator) \ - {disabled selected} $colors(-disabledindicator) \ {!disabled alternate} $colors(-altindicator) \ - {disabled alternate} $colors(-disabledaltindicator)] + {disabled alternate} $colors(-disabledaltindicator) \ + {!disabled selected} $colors(-indicator) \ + {disabled selected} $colors(-disabledindicator)] ttk::style map TRadiobutton -indicatorrelief \ [list alternate raised] |