--- a/Autoload.st Wed Jul 12 16:03:28 2000 +0200
+++ b/Autoload.st Fri Jul 14 11:27:57 2000 +0200
@@ -314,9 +314,9 @@
Project setProject:nil.
].
+ package := self package.
Class nameSpaceQuerySignal answer:myNameSpace "Smalltalk"
do:[
- package := self package.
(Smalltalk
fileInClass:myName
package:package
@@ -377,20 +377,21 @@
^ nil
].
+ newClass setPackage:package.
"/
"/ autoloaded classes get their package from the revision (if present)
"/ this only happens with autoloaded sourceFiles which have no package
"/ info encoded. (binary classes have it)
"/ If there is no such information, give it my package (if I have one)
"/
- newClass setPackageFromRevision.
-
- newPackage := newClass package.
- (newPackage isNil or:[newPackage = 'no package']) ifTrue:[
- (package notNil and:[package ~= 'no package']) ifTrue:[
- newClass setPackage:package.
- ].
- ].
+"/ newClass setPackageFromRevision.
+"/
+"/ newPackage := newClass package.
+"/ (newPackage isNil or:[newPackage = 'no package']) ifTrue:[
+"/ (package notNil and:[package ~= 'no package']) ifTrue:[
+"/ newClass setPackage:package.
+"/ ].
+"/ ].
LoadedClasses isNil ifTrue:[
LoadedClasses := IdentitySet new.
@@ -592,6 +593,6 @@
!Autoload class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.102 2000-03-30 14:37:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.103 2000-07-14 09:27:57 cg Exp $'
! !
Autoload initialize!