classFilename access
authorfm
Tue, 01 Apr 2008 18:17:14 +0200
changeset 10928 4638bb4a03c7
parent 10927 4ce8dcd6e1f3
child 10929 7f025abfa145
classFilename access
Autoload.st
--- 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!