# HG changeset patch
# User claus
# Date 758150361 -3600
# Node ID a1defe2846d602300e07d11ce0f152fffeb93fa9
# Parent  bcf183a31bbb3a6afa6897aa57d97b1b7411fdad
*** empty log message ***

diff -r bcf183a31bbb -r a1defe2846d6 OrdColl.st
--- 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 
diff -r bcf183a31bbb -r a1defe2846d6 OrderedCollection.st
--- 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 
diff -r bcf183a31bbb -r a1defe2846d6 Point.st
--- 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
 !