diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-02-22 19:52:08 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-02-22 19:52:08 (GMT) |
| commit | 4050013c1861b023bdea1f636d058f4898bbe5e3 (patch) | |
| tree | 73f6042e4783628980b5bb54353ff70c5d788037 | |
| parent | 6214efc0cc2054edbeaf5d08ac8c9a1864797d4a (diff) | |
| parent | cafe007583f184fc9867a86b1fbe08457c363657 (diff) | |
| download | tk-4050013c1861b023bdea1f636d058f4898bbe5e3.zip tk-4050013c1861b023bdea1f636d058f4898bbe5e3.tar.gz tk-4050013c1861b023bdea1f636d058f4898bbe5e3.tar.bz2 | |
Fix [c492c96aa2]: Combobox arrow not grayed (alt, clam and default ttk themes) - Patch from Koen Danckaert
| -rw-r--r-- | library/ttk/altTheme.tcl | 3 | ||||
| -rw-r--r-- | library/ttk/clamTheme.tcl | 2 | ||||
| -rw-r--r-- | library/ttk/defaults.tcl | 3 |
3 files changed, 5 insertions, 3 deletions
diff --git a/library/ttk/altTheme.tcl b/library/ttk/altTheme.tcl index e792539..5630e6c 100644 --- a/library/ttk/altTheme.tcl +++ b/library/ttk/altTheme.tcl @@ -63,7 +63,8 @@ namespace eval ttk::theme::alt { [list readonly $colors(-frame) disabled $colors(-frame)] ttk::style configure TCombobox -padding 1 ttk::style map TCombobox -fieldbackground \ - [list readonly $colors(-frame) disabled $colors(-frame)] + [list readonly $colors(-frame) disabled $colors(-frame)] \ + -arrowcolor [list disabled $colors(-disabledfg)] ttk::style configure ComboboxPopdownFrame \ -relief solid -borderwidth 1 diff --git a/library/ttk/clamTheme.tcl b/library/ttk/clamTheme.tcl index 49db744..98f0036 100644 --- a/library/ttk/clamTheme.tcl +++ b/library/ttk/clamTheme.tcl @@ -110,7 +110,7 @@ namespace eval ttk::theme::clam { -fieldbackground [list {readonly focus} $colors(-selectbg) \ readonly $colors(-frame)] \ -foreground [list {readonly focus} $colors(-selectfg)] \ - ; + -arrowcolor [list disabled $colors(-disabledfg)] ttk::style configure ComboboxPopdownFrame \ -relief solid -borderwidth 1 diff --git a/library/ttk/defaults.tcl b/library/ttk/defaults.tcl index 43e68d1..9cc5880 100644 --- a/library/ttk/defaults.tcl +++ b/library/ttk/defaults.tcl @@ -77,7 +77,8 @@ namespace eval ttk::theme::default { ttk::style configure TCombobox -arrowsize 12 -padding 1 ttk::style map TCombobox -fieldbackground \ - [list readonly $colors(-frame) disabled $colors(-frame)] + [list readonly $colors(-frame) disabled $colors(-frame)] \ + -arrowcolor [list disabled $colors(-disabledfg)] ttk::style configure TSpinbox -arrowsize 10 -padding {2 0 10 0} ttk::style map TSpinbox -fieldbackground \ |