--- a/Autoload.st Tue Apr 01 13:19:28 2008 +0200
+++ b/Autoload.st Tue Apr 01 18:17:14 2008 +0200
@@ -360,10 +360,10 @@
do:[
Class classConventionViolationConfirmationQuerySignal answer:true
do:[
- (classFilename notNil and:[classFilename asFilename isAbsolute]) ifTrue:[
+ (self classFilename notNil and:[self classFilename asFilename isAbsolute]) ifTrue:[
"/ if filename is absolute, the autoload-class was created by an
"/ explicit install-as-autoloaded via the fileBrowser.
- Smalltalk fileIn:classFilename lazy:false silent:nil.
+ Smalltalk fileIn:self classFilename lazy:false silent:nil.
] ifFalse:[
(Smalltalk
fileInClass:myName
@@ -857,6 +857,10 @@
^ false
!
+isAbstract
+ ^ true
+!
+
isBehavior
"return true, if the receiver is describing another objects behavior.
Autoloaded classes are definitely; therefore return true."
@@ -913,7 +917,7 @@
!Autoload class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.145 2008-04-01 11:19:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.146 2008-04-01 16:17:14 fm Exp $'
! !
Autoload initialize!