--- a/Autoload.st Sun Feb 09 16:48:59 2003 +0100
+++ b/Autoload.st Mon Feb 10 17:39:23 2003 +0100
@@ -174,17 +174,17 @@
|myName fileName nm package|
(self == Autoload) ifTrue:[
- ^ super
- basicFileOutDefinitionOn:aStream
- withNameSpace:forceNameSpace
- withPackage:withPackage
+ ^ super
+ basicFileOutDefinitionOn:aStream
+ withNameSpace:forceNameSpace
+ withPackage:withPackage
].
myName := self name.
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; nextPutLine:myName , ' autoload'.
+ spaces:4; nextPutLine:myName , ' is not yet loaded.'; cr.
+ aStream nextPutLine:'to load, execute: '.
+ aStream cr; spaces:4; nextPutLine:myName , ' autoload'.
aStream cr; nextPutLine:'or use the browsers load-function (in the class menu)'.
aStream nextPutLine:'(double-click on the class will also load it).'.
"
@@ -195,49 +195,49 @@
"
fileName := Smalltalk fileNameForClass:myName.
(ObjectFileLoader notNil and:[Smalltalk loadBinaries]) ifTrue:[
- (nm := Smalltalk libraryFileNameOfClass:myName) notNil ifTrue:[
- nm := nm , ' (a classLibrary, possibly including more classes)'
- ] ifFalse:[
- nm := Smalltalk getBinaryFileName:(fileName , '.so').
- nm isNil ifTrue:[
- nm := Smalltalk getBinaryFileName:(fileName , '.o')
- ].
- nm notNil ifTrue:[
- nm := nm , ' (a classBinary)'
- ]
- ].
+ (nm := Smalltalk libraryFileNameOfClass:myName) notNil ifTrue:[
+ nm := nm , ' (a classLibrary, possibly including more classes)'
+ ] ifFalse:[
+ nm := Smalltalk getBinaryFileName:(fileName , '.so').
+ nm isNil ifTrue:[
+ nm := Smalltalk getBinaryFileName:(fileName , '.o')
+ ].
+ nm notNil ifTrue:[
+ nm := nm , ' (a classBinary)'
+ ]
+ ].
].
nm isNil ifTrue:[
- package := self package.
- package notNil ifTrue:[
- nm := Smalltalk getSourceFileName:((package copyReplaceAll:$: with:$/) , '/' , fileName , '.st').
- ].
- nm isNil ifTrue:[
- nm := Smalltalk getSourceFileName:(fileName , '.st').
- ].
+ package := self package.
+ package notNil ifTrue:[
+ nm := Smalltalk getSourceFileName:((package copyReplaceAll:$: with:$/) , '/' , fileName , '.st').
+ ].
+ nm isNil ifTrue:[
+ nm := Smalltalk getSourceFileName:(fileName , '.st').
+ ].
].
nm notNil ifTrue:[
- 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 nextPutLine:'which is a link to: '; spaces:4;
- nextPutAll:(nm asFilename linkInfo path).
- ]
+ 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 nextPutLine:'which is a link to: '; spaces:4;
+ nextPutAll:(nm asFilename linkInfo path).
+ ]
] ifFalse:[
- package := self package.
- (Smalltalk at:#SourceCodeManager) notNil ifTrue:[
- aStream nextPutAll:'
+ package := self package.
+ (Smalltalk at:#SourceCodeManager) notNil ifTrue:[
+ aStream nextPutAll:'
When accessed, I''ll ask the sourceCodeManager to load the code
from ''' , fileName , '.st'' in the ''' , package , ''' package.'.
- ] ifFalse:[
- aStream nextPutAll:'
+ ] ifFalse:[
+ aStream nextPutAll:'
When accessed, I''ll search for a file named
''' , fileName , '.st'' in the ''' , package , ''' package.
Packages are tried along the packagePath, which is:
' , ((Smalltalk packagePath asStringCollection collect:[:each| ' ' , each]) asStringWith:Character cr).
- ]
+ ]
].
aStream cr; nextPutAll:'"'.
@@ -636,7 +636,7 @@
!Autoload class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.114 2002-09-25 08:25:28 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.115 2003-02-10 16:38:46 penk Exp $'
! !
Autoload initialize!