Point.st
changeset 40 a1defe2846d6
parent 13 62303f84ff5f
child 44 b262907c93ea
--- 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
 !