summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2017-02-22 19:52:08 (GMT)
committerfvogel <fvogelnew1@free.fr>2017-02-22 19:52:08 (GMT)
commit4050013c1861b023bdea1f636d058f4898bbe5e3 (patch)
tree73f6042e4783628980b5bb54353ff70c5d788037
parent6214efc0cc2054edbeaf5d08ac8c9a1864797d4a (diff)
parentcafe007583f184fc9867a86b1fbe08457c363657 (diff)
downloadtk-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.tcl3
-rw-r--r--library/ttk/clamTheme.tcl2
-rw-r--r--library/ttk/defaults.tcl3
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 \