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