--- a/Win32OperatingSystem.st Fri Jul 29 20:41:07 2011 +0200
+++ b/Win32OperatingSystem.st Sat Jul 30 17:01:35 2011 +0200
@@ -8412,15 +8412,19 @@
!
osName
-
+ |osVersion|
+
+ osVersion := OperatingSystem osVersion.
^ 'Windows ',
- (#('NT' '2000' 'XP' 'VISTA' '7')
- at: (#('4.1' '5.0' '5.1' '6.0' '6.1') indexOf:OperatingSystem osVersion)
- ifAbsent:OperatingSystem osVersion).
-
- "
- self osName
- "
+ (#('NT' '2000' 'XP' 'VISTA' '7')
+ at: (#('4.1' '5.0' '5.1' '6.0' '6.1') indexOf:osVersion)
+ ifAbsent:osVersion).
+
+ "
+ self osName
+ "
+
+ "Modified (comment): / 30-07-2011 / 17:00:50 / cg"
!
osVersion
@@ -16336,11 +16340,11 @@
!Win32OperatingSystem class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.421 2011-04-19 09:04:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.422 2011-07-30 15:01:35 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.421 2011-04-19 09:04:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.422 2011-07-30 15:01:35 cg Exp $'
! !
Win32OperatingSystem initialize!