equal
deleted
inserted
replaced
237 "Modified: 8.11.1996 / 21:39:20 / cg" |
237 "Modified: 8.11.1996 / 21:39:20 / cg" |
238 ! ! |
238 ! ! |
239 |
239 |
240 !Namespace class methodsFor:'fileOut'! |
240 !Namespace class methodsFor:'fileOut'! |
241 |
241 |
242 basicFileOutDefinitionOn:aStream |
242 fileOutDefinitionOn:aStream |
243 "redefined to generate another definition message" |
243 "redefined to generate another definition message" |
244 |
244 |
245 self == Namespace ifTrue:[ |
245 self == Namespace ifTrue:[ |
246 super basicFileOutDefinitionOn:aStream |
246 super fileOutDefinitionOn:aStream |
247 ] ifFalse:[ |
247 ] ifFalse:[ |
248 aStream nextPutAll:('Namespace name:' , self name storeString) |
248 aStream nextPutAll:('Namespace name:' , self name storeString) |
249 ] |
249 ] |
250 |
250 |
251 "Modified: 8.11.1996 / 21:39:03 / cg" |
251 "Modified: 8.11.1996 / 21:39:03 / cg" |
|
252 "Created: 4.1.1997 / 20:36:32 / cg" |
252 ! ! |
253 ! ! |
253 |
254 |
254 !Namespace class methodsFor:'printing & storing'! |
255 !Namespace class methodsFor:'printing & storing'! |
255 |
256 |
256 displayString |
257 displayString |
297 ! ! |
298 ! ! |
298 |
299 |
299 !Namespace class methodsFor:'documentation'! |
300 !Namespace class methodsFor:'documentation'! |
300 |
301 |
301 version |
302 version |
302 ^ '$Header: /cvs/stx/stx/libbasic/Attic/Namespace.st,v 1.17 1997-01-04 15:51:37 cg Exp $' |
303 ^ '$Header: /cvs/stx/stx/libbasic/Attic/Namespace.st,v 1.18 1997-01-04 19:36:58 cg Exp $' |
303 ! ! |
304 ! ! |