--- a/ViewStyle.st	Fri Oct 24 15:17:08 2008 +0200
+++ b/ViewStyle.st	Fri Oct 24 15:18:18 2008 +0200
@@ -214,39 +214,37 @@
     "answer true if this is a MS-Windows style.
      XXX Currently we simply check the name"
 
-    name isNil ifTrue:[
-        "read name into instance variable name (for speed)"
-        self name
-    ].
+    |nm|
+
+    nm := name ? self name.
 
-    ^ name == #win95 
-    or:[name == #win98
-    or:[name == #winXP
-    or:[name == #winVista ]]]
+    ^ nm == #win95 
+    or:[nm == #win98
+    or:[nm == #winXP
+    or:[nm == #winVista ]]]
 !
 
 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
-    ].
+    |nm|
 
-    ^ name == #winVista
+    nm := name ? self name.
+
+    ^ nm == #winVista
 !
 
 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
-    ].
+    |nm|
 
-    ^ name == #winXP or:[name == #winVista]
+    nm := name ? self name.
+
+    ^ nm == #winXP 
+    or:[nm == #winVista]
 ! !
 
 !ViewStyle methodsFor:'special'!
@@ -280,5 +278,5 @@
 !ViewStyle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.33 2008-10-24 13:17:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.34 2008-10-24 13:18:18 cg Exp $'
 ! !