summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2017-02-08 18:22:34 (GMT)
committerfvogel <fvogelnew1@free.fr>2017-02-08 18:22:34 (GMT)
commit57fc44c584797fe0a1f04d80fa255ad5e3339b86 (patch)
tree30ca903fe5f89be5b5f7d32dad7b66e4706dcaf8
parent334a0cab800af743b3db1b6da0023918dfa89790 (diff)
downloadtk-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.tcl1
-rw-r--r--library/ttk/clamTheme.tcl1
-rw-r--r--library/ttk/defaults.tcl1
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 \