--- a/Autoload.st Tue Feb 03 14:37:53 1998 +0100
+++ b/Autoload.st Tue Feb 03 18:30:42 1998 +0100
@@ -258,52 +258,52 @@
"load it"
(Object infoPrinting and:[Smalltalk silentLoading ~~ true]) ifTrue:[
- Transcript showCR:('autoloading ', myName , ' ...'); endEntry.
+ Transcript showCR:('autoloading ', myName , ' ...'); endEntry.
].
[
- prevMode := ClassCategoryReader sourceMode.
+ prevMode := ClassCategoryReader sourceMode.
"/
"/ no- do not do this; it may lead to trouble ...
"/ ClassCategoryReader sourceMode:#reference.
- "/
- "/ in order to not get a package of private (or whatever),
- "/ temporarily set the currentProject to nil.
- "/ we will later set the classes package to something useful
- "/
- Project notNil ifTrue:[
- project := Project current.
- Project setProject:nil.
- ].
+ "/
+ "/ in order to not get a package of private (or whatever),
+ "/ temporarily set the currentProject to nil.
+ "/ we will later set the classes package to something useful
+ "/
+ Project notNil ifTrue:[
+ project := Project current.
+ Project setProject:nil.
+ ].
- Class nameSpaceQuerySignal answer:myNameSpace "Smalltalk"
- do:[
- package := self package.
- package notNil ifTrue:[
- (package includes:$:) ifTrue:[
- package := package asString copy replaceAll:$: with:$/
- ] ifFalse:[
- package := 'stx/' , package
- ]
- ].
- Smalltalk
- fileInClass:myName
- package:package
- initialize:false
- lazy:LazyLoading
- silent:nil.
- ].
- ClassCategoryReader sourceMode:prevMode.
- project notNil ifTrue:[
- Project setProject:project.
- ].
+ Class nameSpaceQuerySignal answer:myNameSpace "Smalltalk"
+ do:[
+ package := self package.
+ package notNil ifTrue:[
+ (package includes:$:) ifTrue:[
+ package := package asString copy replaceAll:$: with:$/
+ ] ifFalse:[
+ package := 'stx/' , package
+ ]
+ ].
+ Smalltalk
+ fileInClass:myName
+ package:package
+ initialize:false
+ lazy:LazyLoading
+ silent:nil.
+ ].
+ ClassCategoryReader sourceMode:prevMode.
+ project notNil ifTrue:[
+ Project setProject:project.
+ ].
] valueOnUnwindDo:[
- ClassCategoryReader sourceMode:prevMode.
- project notNil ifTrue:[
- Project setProject:project.
- ].
- Smalltalk at:myName put:mySelf.
+ ClassCategoryReader sourceMode:prevMode.
+ project notNil ifTrue:[
+ Project setProject:project.
+ ].
+ Smalltalk at:myName put:mySelf.
].
"did it work ?"
@@ -312,25 +312,25 @@
"no - report the error"
newClass isNil ifTrue:[
- "
- this signal is raised, if an autoloaded class
- cannot be loaded. Usually, this happends when
- some sourcefile is missing, not readable or if
- an entry is missing in the abbreviation file.
- Check for a readable file named <myName>.st
- in the 'source' directory and (if its a long fileName)
- for a corresponding entry in the abbreviation file
- 'include/abbrev.stc'.
- Finally, your searchpath could be set wrong -
- both 'source' and 'include' directories must be found in
- one of the directories named in systemPath.
+ "
+ this signal is raised, if an autoloaded class
+ cannot be loaded. Usually, this happends when
+ some sourcefile is missing, not readable or if
+ an entry is missing in the abbreviation file.
+ Check for a readable file named <myName>.st
+ in the 'source' directory and (if its a long fileName)
+ for a corresponding entry in the abbreviation file
+ 'include/abbrev.stc'.
+ Finally, your searchpath could be set wrong -
+ both 'source' and 'include' directories must be found in
+ one of the directories named in systemPath.
- In the debugger, press 'abort' to continue execution.
- "
- AutoloadFailedSignal
- raiseRequestWith:self
- errorString:('autoload of ' , myName , ' failed').
- ^ nil
+ In the debugger, press 'abort' to continue execution.
+ "
+ AutoloadFailedSignal
+ raiseRequestWith:self
+ errorString:('autoload of ' , myName , ' failed').
+ ^ nil
].
"/
@@ -342,15 +342,15 @@
newClass setPackageFromRevision.
(newClass package isNil
or:[newClass package = 'no package']) ifTrue:[
- package := self package.
- (package notNil and:[package ~= 'no package'])
- ifTrue:[
- newClass setPackage:package.
- ].
+ package := self package.
+ (package notNil and:[package ~= 'no package'])
+ ifTrue:[
+ newClass setPackage:package.
+ ].
].
LoadedClasses isNil ifTrue:[
- LoadedClasses := IdentitySet new.
+ LoadedClasses := IdentitySet new.
].
LoadedClasses add:newClass.
@@ -359,7 +359,7 @@
"/ newClass class setSoleInstance:self. "/ will be undone by become ...
oldMeta := self class.
-self setName:(self name , ' (auto)').
+"/ self setName:(self name , ' (auto)').
self becomeSameAs:newClass.
oldMeta becomeSameAs:newClass class.
@@ -368,17 +368,17 @@
LoadedClasses rehash.
(newClass class implements:#initialize) ifTrue:[
- newClass initialize.
+ newClass initialize.
].
newClass privateClassesDo:[:aPrivateClass |
- (aPrivateClass class implements:#initialize) ifTrue:[
- aPrivateClass initialize.
- ]
+ (aPrivateClass class implements:#initialize) ifTrue:[
+ aPrivateClass initialize.
+ ]
].
newClass postAutoload.
^ newClass
- "Modified: / 9.1.1998 / 15:03:00 / cg"
+ "Modified: / 3.2.1998 / 18:30:13 / cg"
! !
!Autoload class methodsFor:'message catching'!
@@ -594,6 +594,6 @@
!Autoload class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.77 1998-01-12 13:09:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.78 1998-02-03 17:30:42 cg Exp $'
! !
Autoload initialize!