Added vista theme to iron out the visual differences between vista and XP.

1 files changed, 1 insertions, 46 deletions

diff --git a/library/ttk/xpTheme.tcl b/library/ttk/xpTheme.tcl
index 07df1d9..d786841 100644
--- a/library/ttk/xpTheme.tcl
+++ b/library/ttk/xpTheme.tcl
@@ -1,5 +1,5 @@
 #
-# $Id: xpTheme.tcl,v 1.11 2008/11/29 00:43:48 patthoyts Exp $
+# $Id: xpTheme.tcl,v 1.12 2008/12/05 11:11:58 patthoyts Exp $
 #
 # Settings for 'xpnative' theme
 #
@@ -60,50 +60,5 @@ namespace eval ttk::theme::xpnative {
 
 	ttk::style configure Toolbutton -padding {4 4}
 
-	# Vista requires some style modifications. There are some
-	# additional or different elements in use.
-	if {[tk windowingsystem] eq "win32"
-	    && [info exists tcl_platform(osVersion)]
-	    && $tcl_platform(osVersion) >= 6.0} {
-
-	    ttk::style element create Combobox.field vsapi \
-		COMBOBOX 2 {{} 1}
-	    ttk::style element create Combobox.border vsapi \
-		COMBOBOX 4 {disabled 4 focus 3 active 2 {} 1}
-            ttk::style element create Combobox.rightdownarrow vsapi \
-                COMBOBOX 6 {disabled 4 pressed 3 active 2 {} 1}
-	    ttk::style layout TCombobox {
-		Combobox.border -sticky nswe -border 0 -children {
-		    Combobox.rightdownarrow -side right -sticky ns
-		    Combobox.padding -expand 1 -sticky nswe -children {
-			Combobox.focus -expand 1 -sticky nswe -children {
-			    Combobox.textarea -sticky nswe
-			}
-		    }
-		}
-	    }
-            ttk::style element create ComboboxPopdownFrame.background vsapi\
-                COMBOBOX 2
-            ttk::style layout ComboboxPopdownFrame {
-                ComboboxPopdownFrame.background -sticky news -border 1 -children {
-                    ComboboxPopdownFrame.padding -sticky news
-                }
-            }
-
-            # EDIT EP_EDITBORDER_HVSCROLL
-            ttk::style configure TSpinbox -padding {2 0 15 1}
-            ttk::style element create Vista.Spinbox.field vsapi \
-                EDIT 9 {disabled 4 focus 3 active 2 {} 1} \
-                -padding {1 1 1 2}
-            ttk::style layout TSpinbox {
-                Vista.Spinbox.field -sticky nswe -children {
-                    Spinbox.padding -sticky nswe -children {
-                        Spinbox.textarea -expand 1 -sticky {}
-                    }
-                    Spinbox.uparrow -side top -sticky ens
-                    Spinbox.downarrow -side bottom -sticky ens
-                }
-            }
-	}
     }
 }