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

Timestamp:

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

Author:

イグトランス (egtra)

Message:

Object.ReferenceEqualsを追加

File:

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

Include/Classes/System/Drawing/Size.ab

@@ -19 +19 @@
     End Sub
 
-    Sub Size(ByRef sz As Size)
+    Sub Size(sz As Size)
         width = sz.width
         height = sz.height
@@ -62 +62 @@
         Return Not Equals(sz)
     End Function
-
+/*
     Sub Operator =(ByRef sz As Size)
         width = sz.width
         height = sz.height
     End Sub
-
+*/
     Function Equals(sz As Size) As Boolean
         If width = sz.width And height = sz.height Then
@@ -81 +81 @@
 
     Function IsEmpty() As Boolean
-        If width = 0 And height = 0 Then
-            Empty = _System_TRUE
-        Else
-            Empty = _System_FALSE
-        End If
+        Return width = 0 And height = 0
     End Function