--- a/ViewStyle.st	Fri Nov 18 21:26:33 2016 +0000
+++ b/ViewStyle.st	Thu Nov 24 21:55:24 2016 +0000
@@ -307,14 +307,9 @@
 !
 
 isWindowsVistaStyle
-    "answer true if this is a MS-Windows-Vista (or later) style.
-     XXX Currently we simply check the name"
+    ^ (name ? self name) == #winVista
 
-    |nm|
-
-    nm := name ? self name.
-
-    ^ nm == #winVista
+    "Modified (format): / 19-11-2016 / 15:49:48 / cg"
 !
 
 isWindowsXPStyle