Changeset 257 for Include/Classes/System/OperatingSystem.ab

Timestamp:

May 19, 2007, 3:29:33 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

VersionTest追加、Log1p追加

File:

• Include/Classes/System/OperatingSystem.ab (modified) (5 diffs)

Include/Classes/System/OperatingSystem.ab

@@ -10 +10 @@
 Public
     ' Constractor
-    Sub OperatingSystem(platform As PlatformID, version As Version)
+    Sub OperatingSystem(platform As PlatformID, version As System.Version)
         pf = platform
         ver = version
@@ -18 +18 @@
     Sub OperatingSystem(vi As OSVERSIONINFOA)
         pf = vi.dwPlatformId As PlatformID
-        ver = New Version(vi.dwMajorVersion, vi.dwMinorVersion, vi.dwBuildNumber)
+        ver = New System.Version(vi.dwMajorVersion, vi.dwMinorVersion, vi.dwBuildNumber)
         sp = New String(vi.szCSDVersion As PCSTR)
     End Sub
@@ -24 +24 @@
     Sub OperatingSystem(vi As OSVERSIONINFOW)
         pf = vi.dwPlatformId As PlatformID
-        ver = New Version(vi.dwMajorVersion, vi.dwMinorVersion, vi.dwBuildNumber)
+        ver = New System.Version(vi.dwMajorVersion, vi.dwMinorVersion, vi.dwBuildNumber)
         sp = New String(vi.szCSDVersion As PCSTR)
     End Sub
@@ -33 +33 @@
     End Function
 
-    Const Function Version() As Version
+    Const Function Version() As System.Version
         Return ver
     End Function
@@ -71 +71 @@
 Private
     pf As PlatformID
-    ver As Version
+    ver As System.Version
     sp As String
 End Class