--- a/Point.st Sun Jan 09 22:17:33 1994 +0100
+++ b/Point.st Sun Jan 09 22:19:21 1994 +0100
@@ -33,7 +33,7 @@
x <Number> the x-coordinate of myself
y <Number> the y-coordinate of myself
-$Header: /cvs/stx/stx/libbasic/Point.st,v 1.5 1993-12-11 00:53:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Point.st,v 1.6 1994-01-09 21:19:21 claus Exp $
written 89 by claus
'!
@@ -213,10 +213,14 @@
!Point methodsFor:'converting'!
generality
+ "return the generality value - see ArithmeticValue>>retry:coercing:"
+
^ 120
!
coerce:anObject
+ "return aNumber converted into receivers type"
+
^ anObject asPoint
!