Autoload.st
changeset 1952 18cfc11b49fa
parent 1862 e8f44f10f1ab
child 2019 8f44b270809b
--- a/Autoload.st	Sat Nov 09 00:46:53 1996 +0100
+++ b/Autoload.st	Sat Nov 09 00:55:16 1996 +0100
@@ -139,10 +139,10 @@
     (self == Autoload) ifTrue:[^ super fileOutDefinitionOn:aStream].
 
     myName := self name.
-    aStream nextPutAll:'"' ; nextPutAll:'Notice from Autoload:'; cr; cr;
-            spaces:4; nextPutAll:myName , ' is not yet loaded.'; cr; cr.
+    aStream nextPutAll:'"' ; nextPutLine:'Notice from Autoload:'; cr;
+            spaces:4; nextPutLine:myName , ' is not yet loaded.'; cr.
     aStream nextPutAll:'to load, execute: '.
-    aStream cr; cr; spaces:4; nextPutAll:myName  , ' autoload'; cr.
+    aStream cr; cr; spaces:4; nextPutLine:myName  , ' autoload'.
 
     "
      the following is simply informative ...
@@ -171,15 +171,15 @@
         ].
     ].
     nm notNil ifTrue:[
-        aStream cr; nextPutAll:'When accessed, ' , myName , ' will automatically be loaded'; cr.
-        aStream nextPutAll:'from: '; cr; spaces:4; nextPutAll:nm.
+        aStream cr; nextPutLine:'When accessed, ' , myName , ' will automatically be loaded'.
+        aStream nextPutLine:'from: '; spaces:4; nextPutAll:nm.
         nm asFilename isSymbolicLink ifTrue:[
             aStream cr; cr.
-            aStream nextPutAll:'which is a link to: '; cr; spaces:4; 
+            aStream nextPutLine:'which is a link to: '; spaces:4; 
                     nextPutAll:(nm asFilename linkInfo path).
         ]
     ] ifFalse:[
-        aStream cr; nextPutAll:'There is currently no file to load ' , myName , ' from.'; cr; cr.
+        aStream cr; nextPutLine:'There is currently no file to load ' , myName , ' from.'; cr.
 
         (mgr := Smalltalk at:#SourceCodeManager) notNil ifTrue:[
             classFileName := Smalltalk fileNameForClass:myName.
@@ -195,7 +195,7 @@
     aStream cr; nextPutAll:'"'.
 
     "Created: 8.12.1995 / 00:31:53 / cg"
-    "Modified: 1.11.1996 / 20:47:47 / cg"
+    "Modified: 8.11.1996 / 23:52:55 / cg"
 ! !
 
 !Autoload class methodsFor:'lazy compilation'!
@@ -484,6 +484,6 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.56 1996-11-01 19:51:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.57 1996-11-08 23:55:16 cg Exp $'
 ! !
 Autoload initialize!