--- 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:[