Changeset 166 for Include/Classes/System/Drawing/Size.ab

Timestamp:

Mar 13, 2007, 11:55:49 AM (18 years ago)

Author:

イグトランス (egtra)

Message:

GetHashCodeを実装

File:

• Include/Classes/System/Drawing/Size.ab (modified) (3 diffs)

Include/Classes/System/Drawing/Size.ab

@@ -40 +40 @@
     End Sub
 
-    Function Operator + (sz As Size) As Size
+    Function Operator +(sz As Size) As Size
         Dim ret As Size(width + sz.width, height + sz.height)
         Return ret
     End Function
 
-    Function Operator - (sz As Size) As Size
+    Function Operator -(sz As Size) As Size
         Dim ret As Size(width - sz.width, height - sz.height)
         Return ret
@@ -55 +55 @@
     End Function
 
-    Function Operator == (sz As Size) As Boolean
+    Function Operator ==(sz As Size) As Boolean
         Return Equals(sz)
     End Function
 
-    Function Operator <> (sz As Size) As Boolean
+    Function Operator <>(sz As Size) As Boolean
         Return Not Equals(sz)
     End Function
 
-    Sub Operator = (ByRef sz As Size)
+    Sub Operator =(ByRef sz As Size)
         width = sz.width
         height = sz.height
@@ -74 +74 @@
             Equals = _System_FALSE
         End If
+    End Function
+
+    Override Function GetHashCode() As Long
+        Return width Xor _System_BSwap(height)
     End Function