*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sun, 05 Jan 1997 14:45:30 +0100
changeset 2067 36226285e85e
parent 2066 b8d1c1d9e100
child 2068 6d5711ab4a44
*** empty log message ***
Autoload.st
--- a/Autoload.st	Sun Jan 05 14:44:10 1997 +0100
+++ b/Autoload.st	Sun Jan 05 14:45:30 1997 +0100
@@ -129,14 +129,14 @@
 
 !Autoload class methodsFor:'fileout'!
 
-fileOutDefinitionOn:aStream
+basicFileOutDefinitionOn:aStream withNameSpace:forceNameSpace
     "print an expression to define myself on aStream.
      Since autoloaded classes dont know their real definition, simply
      output some comment string making things clear in the browser."
 
     |myName fileName nm mgr classFileName packageDir|
 
-    (self == Autoload) ifTrue:[^ super fileOutDefinitionOn:aStream].
+    (self == Autoload) ifTrue:[^ super basicFileOutDefinitionOn:aStream withNameSpace:forceNameSpace].
 
     myName := self name.
     aStream nextPutAll:'"' ; nextPutLine:'Notice from Autoload:'; cr;
@@ -194,8 +194,8 @@
     ].
     aStream cr; nextPutAll:'"'.
 
-    "Created: 8.12.1995 / 00:31:53 / cg"
     "Modified: 30.12.1996 / 17:25:15 / cg"
+    "Created: 5.1.1997 / 14:31:33 / cg"
 ! !
 
 !Autoload class methodsFor:'lazy compilation'!
@@ -491,6 +491,6 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.61 1997-01-04 23:42:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.62 1997-01-05 13:45:30 cg Exp $'
 ! !
 Autoload initialize!