equal
deleted
inserted
replaced
473 ^ newClass perform:sel withArguments:args |
473 ^ newClass perform:sel withArguments:args |
474 ]. |
474 ]. |
475 ^ nil |
475 ^ nil |
476 |
476 |
477 "Created: 8.2.1997 / 19:42:47 / cg" |
477 "Created: 8.2.1997 / 19:42:47 / cg" |
|
478 ! |
|
479 |
|
480 subclass:nameSymbol instanceVariableNames:instVarNames classVariableNames:cVarNames poolDictionaries:poolDicts privateIn:owningClass |
|
481 "catch subclass creation - this forces missing superclasses to be |
|
482 loaded first" |
|
483 |
|
484 |newClass sel args| |
|
485 |
|
486 "take care: subclassing Autoload must still be possible" |
|
487 (self == Autoload) ifTrue:[ |
|
488 ^ super |
|
489 subclass:nameSymbol |
|
490 instanceVariableNames:instVarNames |
|
491 classVariableNames:cVarNames |
|
492 poolDictionaries:poolDicts |
|
493 privateIn:owningClass |
|
494 ]. |
|
495 |
|
496 newClass := self autoload. |
|
497 sel := thisContext selector. |
|
498 args := thisContext args. |
|
499 newClass notNil ifTrue:[ |
|
500 ^ newClass perform:sel withArguments:args |
|
501 ]. |
|
502 ^ nil |
|
503 |
|
504 "Created: 8.2.1997 / 19:42:47 / cg" |
478 ! ! |
505 ! ! |
479 |
506 |
480 !Autoload class methodsFor:'queries'! |
507 !Autoload class methodsFor:'queries'! |
481 |
508 |
482 isBehavior |
509 isBehavior |
516 ! ! |
543 ! ! |
517 |
544 |
518 !Autoload class methodsFor:'documentation'! |
545 !Autoload class methodsFor:'documentation'! |
519 |
546 |
520 version |
547 version |
521 ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.66 1997-02-10 12:20:50 cg Exp $' |
548 ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.67 1997-04-07 16:21:27 ca Exp $' |
522 ! ! |
549 ! ! |
523 Autoload initialize! |
550 Autoload initialize! |