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

Timestamp:

May 21, 2007, 1:03:21 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

Prompt.sbp内を名前空間に入れた。EnvironmentのMachineName, UserName, GetFolderPathを実装。

File:

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

Include/Classes/System/OperatingSystem.ab

@@ -6 +6 @@
 #require <Classes/System/Version.ab>
 
+Namespace System
+
 Class OperatingSystem
     ' Inherits ICloneable', ISerializable
 Public
     ' Constractor
-    Sub OperatingSystem(platform As PlatformID, version As System.Version)
+    Sub OperatingSystem(platform As PlatformID, version As Version)
         pf = platform
         ver = version
@@ -18 +20 @@
     Sub OperatingSystem(vi As OSVERSIONINFOA)
         pf = vi.dwPlatformId As PlatformID
-        ver = New System.Version(vi.dwMajorVersion, vi.dwMinorVersion, vi.dwBuildNumber)
+        ver = New Version(vi.dwMajorVersion, vi.dwMinorVersion, vi.dwBuildNumber)
         sp = New String(vi.szCSDVersion As PCSTR)
     End Sub
@@ -24 +26 @@
     Sub OperatingSystem(vi As OSVERSIONINFOW)
         pf = vi.dwPlatformId As PlatformID
-        ver = New System.Version(vi.dwMajorVersion, vi.dwMinorVersion, vi.dwBuildNumber)
+        ver = New Version(vi.dwMajorVersion, vi.dwMinorVersion, vi.dwBuildNumber)
         sp = New String(vi.szCSDVersion As PCSTR)
     End Sub
@@ -33 +35 @@
     End Function
 
-    Const Function Version() As System.Version
+    Const Function Version() As Version
         Return ver
     End Function
@@ -71 +73 @@
 Private
     pf As PlatformID
-    ver As System.Version
+    ver As Version
     sp As String
 End Class
@@ -83 +85 @@
 End Enum
 
+End Namespace
+
 #endif '__SYSYTEM_OPERATINGSYSTEM_AB__