Changeset 161 for Include/Classes

Timestamp:

Mar 13, 2007, 1:57:54 AM (18 years ago)

Author:

dai

Message:

コンストラクタのパラメータ指定で "build As Long" が抜けていたので修正。
MajorRivision、MinorRivisionプロパティ定義で "()" が抜けていたので修正。

File:

• Include/Classes/System/Version.ab (modified) (2 diffs)

Include/Classes/System/Version.ab

@@ -29 +29 @@
     End Sub
 
-    Sub Version(major As Long, minor As Long, revision As Long)
+    Sub Version(major As Long, minor As Long, build As Long, revision As Long)
         This.major = major
         This.minor = minor
@@ -52 +52 @@
     End Function
 
-    Const Function MajorRivision As Integer
+    Const Function MajorRivision() As Integer
         Return HIWORD(revision) As Integer
     End Function
 
-    Const Function MinorRivision As Integer
+    Const Function MinorRivision() As Integer
         Return LOWORD(revision) As Integer
     End Function