--- 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 $'
! !