--- a/Autoload.st Sun Jul 10 00:59:39 1994 +0200
+++ b/Autoload.st Fri Aug 05 02:55:07 1994 +0200
@@ -20,6 +20,8 @@
Autoload comment:'
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
+
+$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.9 1994-08-05 00:53:51 claus Exp $
'!
!Autoload class methodsFor:'documentation'!
@@ -40,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.8 1994-06-02 16:19:17 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.9 1994-08-05 00:53:51 claus Exp $
"
!
@@ -55,12 +57,12 @@
all Demos & Goodies be autoloaded ... even for big systems.
class variables:
-
- LazyLoading <Boolean> if true, the loaded classes methods will
- not be compiled at autoload time, but
- instead when first called. This allows
- a faster load - however, expect short
- pauses later.
+
+ LazyLoading <Boolean> if true, the loaded classes methods will
+ not be compiled at autoload time, but
+ instead when first called. This allows
+ a faster load - however, expect short
+ pauses later.
"
! !
@@ -102,12 +104,12 @@
Transcript showCr:('autoloading ', myName , ' ...'); endEntry.
LazyLoading ifTrue:[
- prev := Compiler compileLazy:true.
- [
- Smalltalk fileInClass:myName.
- ] valueNowOrOnUnwindDo:[
- Compiler compileLazy:prev
- ]
+ prev := Compiler compileLazy:true.
+ [
+ Smalltalk fileInClass:myName.
+ ] valueNowOrOnUnwindDo:[
+ Compiler compileLazy:prev
+ ]
] ifFalse:[
Smalltalk fileInClass:myName.
].
@@ -193,10 +195,15 @@
!Autoload class methodsFor:'fileout'!
fileOutDefinitionOn:aStream
- "print an expression to define myself on aStream"
+ "print an expression to define myself on aStream.
+ Since autoloaded classes dont know their real definition, simply
+ output some comment string making things clear."
self == Autoload ifFalse:[
- aStream nextPutAll:'''' , self name , ' is not yet loaded'''
+ aStream nextPutAll:'''' , self name , ' is not yet loaded.'; cr.
+ aStream nextPutAll:' to load, execute: '.
+ aStream cr; cr; spaces:4; nextPutAll:self name , ' autoload'; cr.
+ aStream nextPutAll:''''.
] ifTrue:[
^ super fileOutDefinitionOn:aStream
]