# HG changeset patch # User Claus Gittinger # Date 852406618 -3600 # Node ID 09ea6d9cd6079aa6c678bd980eaad44039f5ed7f # Parent 35003ed4b81717f74e29b461ce4532cb9dde2e1c checkin from browser diff -r 35003ed4b817 -r 09ea6d9cd607 NameSpace.st --- 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 $' ! ! diff -r 35003ed4b817 -r 09ea6d9cd607 Namespace.st --- 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 $' ! !