--- a/SimpleView.st	Fri Feb 28 14:27:21 2014 +0100
+++ b/SimpleView.st	Fri Feb 28 16:31:09 2014 +0100
@@ -1244,7 +1244,7 @@
 !
 
 setDefaultStyle
-    |defStyle|
+    |defStyle sysInfo|
 
     DefaultStyle isNil ifTrue:[
         defStyle := OperatingSystem getEnvironment:'STX_VIEWSTYLE'.
@@ -1252,12 +1252,14 @@
             DefaultStyle := defStyle asSymbol.
         ] ifFalse:[
             "/ use XP for both linux and older windows systems;
-            DefaultStyle := ViewStyle msWindowsXP.
+            DefaultStyle := ViewStyle msWindowsVista.
 
             OperatingSystem isMSWINDOWSlike ifTrue:[
-                "/ use Vista for vista systems;
-                OperatingSystem isVistaLike ifTrue:[
-                    DefaultStyle := ViewStyle msWindowsVista
+                "/ use Vista as default for all except for XP
+                sysInfo := OperatingSystem getSystemInfo.
+
+                ((sysInfo at:#majorVersion) == 6 and:[(sysInfo at:#minorVersion) == 1]) ifTrue:[
+                    DefaultStyle := ViewStyle msWindowsXP
                 ].
             ].
         ].
@@ -11157,11 +11159,11 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.742 2014-02-13 18:25:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.743 2014-02-28 15:31:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.742 2014-02-13 18:25:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.743 2014-02-28 15:31:09 cg Exp $'
 !
 
 version_SVN