--- a/ViewStyle.st	Sun Oct 19 17:22:52 2008 +0200
+++ b/ViewStyle.st	Fri Oct 24 15:16:20 2008 +0200
@@ -222,6 +222,18 @@
     ^ name == #win95 or:[name == #win98]
 !
 
+isWindowsVistaStyle
+    "answer true if this is a MS-Windows-Vista (or later) style.
+     XXX Currently we simply check the name"
+
+    name isNil ifTrue:[
+        "read name into instance variable name (for speed)"
+        self name
+    ].
+
+    ^ name == #winVista
+!
+
 isWindowsXPStyle
     "answer true if this is a MS-Windows-XP (or later) style.
      XXX Currently we simply check the name"
@@ -265,5 +277,5 @@
 !ViewStyle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.31 2007-03-01 11:57:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.32 2008-10-24 13:16:20 cg Exp $'
 ! !