Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 28 Jan 1997 00:40:23 +0100
changeset 2290 80404098824a
parent 2289 023fa6dbeaf3
child 2291 af7652b82404
*** empty log message ***
ArrColl.st file | annotate | diff | comparison | revisions
ArrayedCollection.st file | annotate | diff | comparison | revisions 
--- a/ArrColl.st	Tue Jan 28 00:40:12 1997 +0100
+++ b/ArrColl.st	Tue Jan 28 00:40:23 1997 +0100
@@ -298,9 +298,9 @@
     |index "{ Class: SmallInteger }"|
 
     thisContext isRecursive ifTrue:[
-	Transcript showCR:'Error: storeOn: of self referencing collection.'.
-	aStream nextPutAll:'#recursive'.
-	^ self
+        'ArrayedCollection [error]: storeOn: of self referencing collection.' errorPrintCR.
+        aStream nextPutAll:'#recursive'.
+        ^ self
     ].
 
     aStream nextPutAll:'(('; nextPutAll:self class name; nextPutAll:' new:'.
@@ -308,10 +308,10 @@
     aStream nextPutAll:')'.
     index := 1.
     self do:[:element |
-	aStream nextPutAll:' at:'. index printOn:aStream. aStream nextPutAll:' put:('.
-	element storeOn:aStream.
-	aStream nextPutAll:');'.
-	index := index + 1
+        aStream nextPutAll:' at:'. index printOn:aStream. aStream nextPutAll:' put:('.
+        element storeOn:aStream.
+        aStream nextPutAll:');'.
+        index := index + 1
     ].
     index > 1 ifTrue:[aStream nextPutAll:' yourself'].
     aStream nextPut:$)
@@ -320,7 +320,7 @@
      (Array with:(1@2) with:(1->2)) storeString    
     "
 
-    "Modified: 18.5.1996 / 15:37:30 / cg"
+    "Modified: 28.1.1997 / 00:39:59 / cg"
 ! !
 
 !ArrayedCollection methodsFor:'resizing'!
@@ -415,5 +415,5 @@
 !ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ArrColl.st,v 1.42 1997-01-22 18:36:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ArrColl.st,v 1.43 1997-01-27 23:40:23 cg Exp $'
 ! !
--- a/ArrayedCollection.st	Tue Jan 28 00:40:12 1997 +0100
+++ b/ArrayedCollection.st	Tue Jan 28 00:40:23 1997 +0100
@@ -298,9 +298,9 @@
     |index "{ Class: SmallInteger }"|
 
     thisContext isRecursive ifTrue:[
-	Transcript showCR:'Error: storeOn: of self referencing collection.'.
-	aStream nextPutAll:'#recursive'.
-	^ self
+        'ArrayedCollection [error]: storeOn: of self referencing collection.' errorPrintCR.
+        aStream nextPutAll:'#recursive'.
+        ^ self
     ].
 
     aStream nextPutAll:'(('; nextPutAll:self class name; nextPutAll:' new:'.
@@ -308,10 +308,10 @@
     aStream nextPutAll:')'.
     index := 1.
     self do:[:element |
-	aStream nextPutAll:' at:'. index printOn:aStream. aStream nextPutAll:' put:('.
-	element storeOn:aStream.
-	aStream nextPutAll:');'.
-	index := index + 1
+        aStream nextPutAll:' at:'. index printOn:aStream. aStream nextPutAll:' put:('.
+        element storeOn:aStream.
+        aStream nextPutAll:');'.
+        index := index + 1
     ].
     index > 1 ifTrue:[aStream nextPutAll:' yourself'].
     aStream nextPut:$)
@@ -320,7 +320,7 @@
      (Array with:(1@2) with:(1->2)) storeString    
     "
 
-    "Modified: 18.5.1996 / 15:37:30 / cg"
+    "Modified: 28.1.1997 / 00:39:59 / cg"
 ! !
 
 !ArrayedCollection methodsFor:'resizing'!
@@ -415,5 +415,5 @@
 !ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.42 1997-01-22 18:36:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.43 1997-01-27 23:40:23 cg Exp $'
 ! !
hg/stx-libbasic