--- a/ViewStyle.st	Tue Feb 27 15:46:15 2007 +0100
+++ b/ViewStyle.st	Thu Mar 01 12:57:34 2007 +0100
@@ -220,6 +220,18 @@
     ].
 
     ^ name == #win95 or:[name == #win98]
+!
+
+isWindowsXPStyle
+    "answer true if this is a MS-Windows-XP (or later) style.
+     XXX Currently we simply check the name"
+
+    name isNil ifTrue:[
+        "read name into instance variable name (for speed)"
+        self name
+    ].
+
+    ^ name == #winXP or:[name == #winVista]
 ! !
 
 !ViewStyle methodsFor:'special'!
@@ -253,5 +265,5 @@
 !ViewStyle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.30 2006-11-27 15:47:09 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.31 2007-03-01 11:57:34 cg Exp $'
 ! !