Better native looking rendering for the vista theme combobox, as agreed in [05bd7f4da8]. This now really looks like a native combobox on vista, be it in the normal state or disabled state. The previous commit provided a readonly combobox looking native which was moved to the wiki, see [https://wiki.tcl-lang.org/55506]

1 files changed, 5 insertions, 5 deletions

diff --git a/library/ttk/vistaTheme.tcl b/library/ttk/vistaTheme.tcl
index bd59eb8..ecb39c9 100644
--- a/library/ttk/vistaTheme.tcl
+++ b/library/ttk/vistaTheme.tcl
@@ -61,18 +61,18 @@ namespace eval ttk::theme::vista {
 
         # Combobox
 	ttk::style configure TCombobox -padding 2
-        ttk::style element create Combobox.field vsapi \
-            COMBOBOX 5 {disabled 4 pressed 3 active 2 hover 2 {} 1}
         ttk::style element create Combobox.border vsapi \
             COMBOBOX 4 {disabled 4 focus 3 active 2 hover 2 {} 1}
+        ttk::style element create Combobox.background vsapi \
+            EDIT 3 {disabled 3 readonly 5 focus 4 hover 2 {} 1}
         ttk::style element create Combobox.rightdownarrow vsapi \
             COMBOBOX 6 {disabled 4 pressed 3 active 2 {} 1} \
             -syssize {SM_CXVSCROLL SM_CYVSCROLL}
         ttk::style layout TCombobox {
             Combobox.border -sticky nswe -border 0 -children {
-                Combobox.field -sticky nswe -children {
-                    Combobox.rightdownarrow -side right -sticky ns
-                    Combobox.padding -expand 1 -sticky nswe -children {
+                Combobox.rightdownarrow -side right -sticky ns
+                Combobox.padding -expand 1 -sticky nswe -children {
+                    Combobox.background -sticky nswe -children {
                         Combobox.focus -expand 1 -sticky nswe -children {
                             Combobox.textarea -sticky nswe
                         }