--- a/NameSpace.st Sat Jan 04 19:58:25 1997 +0100
+++ b/NameSpace.st Sat Jan 04 20:36:58 1997 +0100
@@ -239,16 +239,17 @@
!Namespace class methodsFor:'fileOut'!
-basicFileOutDefinitionOn:aStream
+fileOutDefinitionOn:aStream
"redefined to generate another definition message"
self == Namespace ifTrue:[
- super basicFileOutDefinitionOn:aStream
+ super fileOutDefinitionOn:aStream
] ifFalse:[
aStream nextPutAll:('Namespace name:' , self name storeString)
]
"Modified: 8.11.1996 / 21:39:03 / cg"
+ "Created: 4.1.1997 / 20:36:32 / cg"
! !
!Namespace class methodsFor:'printing & storing'!
@@ -299,5 +300,5 @@
!Namespace class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.17 1997-01-04 15:51:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.18 1997-01-04 19:36:58 cg Exp $'
! !
--- a/Namespace.st Sat Jan 04 19:58:25 1997 +0100
+++ b/Namespace.st Sat Jan 04 20:36:58 1997 +0100
@@ -239,16 +239,17 @@
!Namespace class methodsFor:'fileOut'!
-basicFileOutDefinitionOn:aStream
+fileOutDefinitionOn:aStream
"redefined to generate another definition message"
self == Namespace ifTrue:[
- super basicFileOutDefinitionOn:aStream
+ super fileOutDefinitionOn:aStream
] ifFalse:[
aStream nextPutAll:('Namespace name:' , self name storeString)
]
"Modified: 8.11.1996 / 21:39:03 / cg"
+ "Created: 4.1.1997 / 20:36:32 / cg"
! !
!Namespace class methodsFor:'printing & storing'!
@@ -299,5 +300,5 @@
!Namespace class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/Namespace.st,v 1.17 1997-01-04 15:51:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/Namespace.st,v 1.18 1997-01-04 19:36:58 cg Exp $'
! !