Changeset 233 for Include/Classes/System/Version.ab

Timestamp:

May 6, 2007, 8:37:57 PM (18 years ago)

Author:

dai

Message:

タスプミスを修正。

File:

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

Include/Classes/System/Version.ab

@@ -57 +57 @@
     End Function
 
-    Const Function MajorRivision() As Integer
+    Const Function MajorRevision() As Integer
         Return HIWORD(revision) As Integer
     End Function
 
-    Const Function MinorRivision() As Integer
+    Const Function MinorRevision() As Integer
         Return LOWORD(revision) As Integer
     End Function
@@ -72 +72 @@
         CompareTo = build - v.build
         If CompareTo <> 0 Then Exit Function
-        CompareTo = rivision - v.rivision
+        CompareTo = revision - v.revision
     End Function
 
@@ -80 +80 @@
 
     Override Function GetHashCode() As Long
-        Return _System_BSwap(major As DWord) Xor minor Xor build Xor _System_BSwap(rivision As DWord)
+        Return _System_BSwap(major As DWord) Xor minor Xor build Xor _System_BSwap(revision As DWord)
     End Function
 
@@ -111 +111 @@
         If build >= 0 Then
             ToString = ToString + "." + Str$(build)
-            If rivision >= 0 Then
-                ToString = ToString + "." + Str$(rivision)
+            If revision >= 0 Then
+                ToString = ToString + "." + Str$(revision)
             End If
         End If
@@ -136 +136 @@
         If fieldCount = 3 Then Exit Function
 
-        If rivision < 0 Then
+        If revision < 0 Then
             ' Throw ArgumentException
             Debug
         End If
-        ToString = ToString + "." + Str$(rivision)
+        ToString = ToString + "." + Str$(revision)
     End Function
 Private
@@ -146 +146 @@
     minor As Long
     build As Long
-    rivision As Long
+    revision As Long
 End Class