diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-02-08 18:22:34 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-02-08 18:22:34 (GMT) |
| commit | 57fc44c584797fe0a1f04d80fa255ad5e3339b86 (patch) | |
| tree | 30ca903fe5f89be5b5f7d32dad7b66e4706dcaf8 | |
| parent | 334a0cab800af743b3db1b6da0023918dfa89790 (diff) | |
| download | tk-57fc44c584797fe0a1f04d80fa255ad5e3339b86.zip tk-57fc44c584797fe0a1f04d80fa255ad5e3339b86.tar.gz tk-57fc44c584797fe0a1f04d80fa255ad5e3339b86.tar.bz2 | |
Fix [c492c96aa2]: Combobox arrow not grayed (alt, clam and default ttk themes)
| -rw-r--r-- | library/ttk/altTheme.tcl | 1 | ||||
| -rw-r--r-- | library/ttk/clamTheme.tcl | 1 | ||||
| -rw-r--r-- | library/ttk/defaults.tcl | 1 |
3 files changed, 3 insertions, 0 deletions
diff --git a/library/ttk/altTheme.tcl b/library/ttk/altTheme.tcl index e792539..9aa6061 100644 --- a/library/ttk/altTheme.tcl +++ b/library/ttk/altTheme.tcl @@ -64,6 +64,7 @@ namespace eval ttk::theme::alt { ttk::style configure TCombobox -padding 1 ttk::style map TCombobox -fieldbackground \ [list readonly $colors(-frame) disabled $colors(-frame)] + ttk::style map TCombobox -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 f4ad43b..b278e3f 100644 --- a/library/ttk/clamTheme.tcl +++ b/library/ttk/clamTheme.tcl @@ -111,6 +111,7 @@ namespace eval ttk::theme::clam { readonly $colors(-frame)] \ -foreground [list {readonly focus} $colors(-selectfg)] \ ; + ttk::style map TCombobox -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 853ed20..f38a4a2 100644 --- a/library/ttk/defaults.tcl +++ b/library/ttk/defaults.tcl @@ -74,6 +74,7 @@ namespace eval ttk::theme::default { -relief sunken -fieldbackground white -padding 1 ttk::style map TEntry -fieldbackground \ [list readonly $colors(-frame) disabled $colors(-frame)] + ttk::style map TCombobox -arrowcolor [list disabled $colors(-disabledfg)] ttk::style configure TCombobox -arrowsize 12 -padding 1 ttk::style map TCombobox -fieldbackground \ |