From 57fc44c584797fe0a1f04d80fa255ad5e3339b86 Mon Sep 17 00:00:00 2001 From: fvogel Date: Wed, 8 Feb 2017 18:22:34 +0000 Subject: Fix [c492c96aa2]: Combobox arrow not grayed (alt, clam and default ttk themes) --- library/ttk/altTheme.tcl | 1 + library/ttk/clamTheme.tcl | 1 + library/ttk/defaults.tcl | 1 + 3 files changed, 3 insertions(+) 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 \ -- cgit v0.12 From cb619ed5ddc6047ebf6fff8c2c64a42c37e95926 Mon Sep 17 00:00:00 2001 From: fvogel Date: Thu, 9 Feb 2017 19:28:56 +0000 Subject: Group multiple [style map TCombobox] statements into a single instruction --- library/ttk/altTheme.tcl | 4 ++-- library/ttk/clamTheme.tcl | 3 +-- library/ttk/defaults.tcl | 4 ++-- 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 \ -- cgit v0.12