--- a/Autoload.st Thu Jul 20 16:02:47 2000 +0200
+++ b/Autoload.st Thu Jul 20 16:06:18 2000 +0200
@@ -317,24 +317,28 @@
package := self package.
Class nameSpaceQuerySignal answer:myNameSpace "Smalltalk"
do:[
- (Smalltalk
- fileInClass:myName
- package:package
- initialize:false
- lazy:LazyLoading
- silent:nil) isNil ifTrue:[
- "/ temporary: try without stx/package prefix
- "/ this will vanish as soon as source-directory
- "/ is always guaranteed to contain an stx-subtree
- ((package startsWith:'stx/')
- or:[package startsWith:'stx:']) ifTrue:[
- package := package copyFrom:5.
- Smalltalk
- fileInClass:myName
- package:package
- initialize:false
- lazy:LazyLoading
- silent:nil.
+ Class packageQuerySignal answer:package
+ do:[
+ (Smalltalk
+ fileInClass:myName
+ package:package
+ initialize:false
+ lazy:LazyLoading
+ silent:nil) isNil
+ ifTrue:[
+ "/ temporary: try without stx/package prefix
+ "/ this will vanish as soon as source-directory
+ "/ is always guaranteed to contain an stx-subtree
+ ((package startsWith:'stx/')
+ or:[package startsWith:'stx:']) ifTrue:[
+ package := package copyFrom:5.
+ Smalltalk
+ fileInClass:myName
+ package:package
+ initialize:false
+ lazy:LazyLoading
+ silent:nil.
+ ]
]
]
].
@@ -593,6 +597,6 @@
!Autoload class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.103 2000-07-14 09:27:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.104 2000-07-20 14:06:18 cg Exp $'
! !
Autoload initialize!