--- a/OrdColl.st Sun Jan 09 22:17:33 1994 +0100
+++ b/OrdColl.st Sun Jan 09 22:19:21 1994 +0100
@@ -22,7 +22,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.7 1994-01-08 16:28:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.8 1994-01-09 21:18:57 claus Exp $
written spring 89 by claus
'!
@@ -449,6 +449,8 @@
!
initContents:size
+ "setup the receiver-collection to hold size entries"
+
contentsArray := Array new:size.
firstIndex := 1.
lastIndex := 0
--- a/OrderedCollection.st Sun Jan 09 22:17:33 1994 +0100
+++ b/OrderedCollection.st Sun Jan 09 22:19:21 1994 +0100
@@ -22,7 +22,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.7 1994-01-08 16:28:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.8 1994-01-09 21:18:57 claus Exp $
written spring 89 by claus
'!
@@ -449,6 +449,8 @@
!
initContents:size
+ "setup the receiver-collection to hold size entries"
+
contentsArray := Array new:size.
firstIndex := 1.
lastIndex := 0
--- 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
!