*** empty log message ***
authorclaus
Tue, 07 Mar 1995 22:55:20 +0100
changeset 301 35e40a6fc72b
parent 300 fe1f742a9224
child 302 1f76060d58a4
*** empty log message ***
ExtStream.st
ExternalStream.st
Registry.st
--- a/ExtStream.st	Tue Mar 07 22:27:26 1995 +0100
+++ b/ExtStream.st	Tue Mar 07 22:55:20 1995 +0100
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.29 1995-02-18 18:28:59 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.30 1995-03-07 21:54:32 claus Exp $
 '!
 
 !ExternalStream primitiveDefinitions!
@@ -87,7 +87,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.29 1995-02-18 18:28:59 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.30 1995-03-07 21:54:32 claus Exp $
 "
 !
 
@@ -224,7 +224,7 @@
 reOpenFiles
     "reopen all files (if possible) after a snapShot load"
 
-    Lobby contentsDo:[:aFileStream |
+    Lobby do:[:aFileStream |
 	aFileStream reOpen
     ]
 !
--- a/ExternalStream.st	Tue Mar 07 22:27:26 1995 +0100
+++ b/ExternalStream.st	Tue Mar 07 22:55:20 1995 +0100
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.29 1995-02-18 18:28:59 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.30 1995-03-07 21:54:32 claus Exp $
 '!
 
 !ExternalStream primitiveDefinitions!
@@ -87,7 +87,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.29 1995-02-18 18:28:59 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.30 1995-03-07 21:54:32 claus Exp $
 "
 !
 
@@ -224,7 +224,7 @@
 reOpenFiles
     "reopen all files (if possible) after a snapShot load"
 
-    Lobby contentsDo:[:aFileStream |
+    Lobby do:[:aFileStream |
 	aFileStream reOpen
     ]
 !
--- a/Registry.st	Tue Mar 07 22:27:26 1995 +0100
+++ b/Registry.st	Tue Mar 07 22:55:20 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.11 1995-02-02 12:25:47 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.12 1995-03-07 21:55:20 claus Exp $
 '!
 
 !Registry class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.11 1995-02-02 12:25:47 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.12 1995-03-07 21:55:20 claus Exp $
 "
 !
 
@@ -96,7 +96,7 @@
 
 !Registry methodsFor:'enumerating'!
 
-contentsDo:aBlock
+do:aBlock
     "evaluate aBlock for each registered object"
 
     registeredObjects notNil ifTrue:[