Changeset 212 for Include/Classes/System/Drawing/PointF.ab

Timestamp:

Apr 13, 2007, 5:12:31 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Object.ReferenceEqualsを追加

File:

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

Include/Classes/System/Drawing/PointF.ab

@@ -19 +19 @@
     End Sub
 
-    Sub PointF(ByRef pt As PointF)
+    Sub PointF(pt As PointF)
         x = pt.x
         y = pt.y
     End Sub
 
-    Sub PointF(ByRef sz As SizeF)
+    Sub PointF(sz As SizeF)
         x = sz.Width
         y = sz.Height
@@ -46 +46 @@
 
     Function IsEmpty() As Boolean
-        If x = 0 And y = 0 Then
-            Return _System_TRUE
-        Else
-            Return _System_FALSE
-        End If
+        Return x = 0 And y = 0
     End Function
-
+/*
     Sub Operator = (ByRef pt As PointF)
         x = pt.x
         y = pt.y
     End Sub
-
-    Function Operator () As PointF
-        Dim ptf As PointF(X, Y)
-        Return ptf
-    End Function
-
+*/
     Function Operator + (pt As PointF) As PointF
         Return Add(This, pt)
@@ -126 +117 @@
 
     Function Equals(pt As PointF) As Boolean
-        If x = pt.x And y = pt.y Then
-            Equals = _System_TRUE
-        Else
-            Equals = _System_FALSE
-        End If
+        Return x = pt.x And y = pt.y
     End Function
 
     Override Function GetHashCode() As Long
-        Return GetDWord(VarPtr(x)) Xor _System_BSwap(GetDWord(VarPtr(x)))
+        Return (GetDWord(VarPtr(x)) Xor _System_BSwap(GetDWord(VarPtr(x)))) As Long
     End Function