summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2017-02-09 19:28:56 (GMT)
committerfvogel <fvogelnew1@free.fr>2017-02-09 19:28:56 (GMT)
commitcb619ed5ddc6047ebf6fff8c2c64a42c37e95926 (patch)
treeffbc2907f01737d4e8c0aab321918330a1034146
parent57fc44c584797fe0a1f04d80fa255ad5e3339b86 (diff)
downloadtk-cb619ed5ddc6047ebf6fff8c2c64a42c37e95926.zip
tk-cb619ed5ddc6047ebf6fff8c2c64a42c37e95926.tar.gz
tk-cb619ed5ddc6047ebf6fff8c2c64a42c37e95926.tar.bz2
Group multiple [style map TCombobox] statements into a single instructionbug_c492c96aa2
-rw-r--r--library/ttk/altTheme.tcl4
-rw-r--r--library/ttk/clamTheme.tcl3
-rw-r--r--library/ttk/defaults.tcl4
3 files changed, 5 insertions, 6 deletions
diff --git a/library/ttk/altTheme.tcl b/library/ttk/altTheme.tcl
index 9aa6061..5630e6c 100644
--- a/library/ttk/altTheme.tcl
+++ b/library/ttk/altTheme.tcl
@@ -63,8 +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)]
- ttk::style map TCombobox -arrowcolor [list disabled $colors(-disabledfg)]
+ [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 b278e3f..808c365 100644
--- a/library/ttk/clamTheme.tcl
+++ b/library/ttk/clamTheme.tcl
@@ -110,8 +110,7 @@ namespace eval ttk::theme::clam {
-fieldbackground [list {readonly focus} $colors(-selectbg) \
readonly $colors(-frame)] \
-foreground [list {readonly focus} $colors(-selectfg)] \
- ;
- ttk::style map TCombobox -arrowcolor [list disabled $colors(-disabledfg)]
+ -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 f38a4a2..56e2176 100644
--- a/library/ttk/defaults.tcl
+++ b/library/ttk/defaults.tcl
@@ -74,11 +74,11 @@ 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 \
- [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 \