diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-10-05 13:48:53 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-10-05 13:48:53 (GMT) |
| commit | 9900bbdf3c0591a7c14295e6c15f598b0b803280 (patch) | |
| tree | 2e3264150c7dead0a8bf9ea56d2d31495be5a45e | |
| parent | e65374ae81e113ddfe506916de5b1f49829cbef2 (diff) | |
| download | tk-9900bbdf3c0591a7c14295e6c15f598b0b803280.zip tk-9900bbdf3c0591a7c14295e6c15f598b0b803280.tar.gz tk-9900bbdf3c0591a7c14295e6c15f598b0b803280.tar.bz2 | |
Changed themes 'classic' and 'default' according to comments from Christian Gollwitzer in [3217462fff]
| -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] |