Object.st
changeset 7455 6abc135763f6
parent 7402 b9d45ce2463a
child 7458 b0ca7546cbd6
--- a/Object.st	Sat Jun 21 12:49:43 2003 +0200
+++ b/Object.st	Sat Jun 21 12:53:44 2003 +0200
@@ -3610,6 +3610,15 @@
     ^ false
 !
 
+equalFromLargeFloat:aLargeFloat
+    "adding this method here allows for any non-number to be compared to a largeFloat
+     and return false from this comparison.
+     Reason: we want to be able to put both numbers and non-numbers into a collection
+     which uses #= (i.e. a Set or Dictionary)."
+
+    ^ false
+!
+
 equalFromLongFloat:aLongFloat
     "adding this method here allows for any non-number to be compared to a longFloat
      and return false from this comparison.
@@ -9171,7 +9180,7 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.474 2003-06-17 14:08:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.475 2003-06-21 10:53:44 cg Exp $'
 ! !
 
 Object initialize!