Autoload.st
changeset 6768 4ccf91dfeba2
parent 6602 04a98cfacbe1
child 7019 6591ea303fbd
equal deleted inserted replaced
6767:323056b2a065 6768:4ccf91dfeba2
   459 
   459 
   460     (self == Autoload) ifTrue:[^ super comment].
   460     (self == Autoload) ifTrue:[^ super comment].
   461     ^ 'not yet loaded'
   461     ^ 'not yet loaded'
   462 !
   462 !
   463 
   463 
       
   464 copy
       
   465     "catch copy - load the class and resend #copy to the real one"
       
   466 
       
   467     ^ self doesNotUnderstand:(Message selector:#copy)
       
   468 !
       
   469 
   464 doesNotUnderstand:aMessage
   470 doesNotUnderstand:aMessage
   465     "caught a message; load the class and retry the message"
   471     "caught a message; load the class and retry the message"
   466 
   472 
   467     |newClass|
   473     |newClass|
   468 
   474 
   628 ! !
   634 ! !
   629 
   635 
   630 !Autoload class methodsFor:'documentation'!
   636 !Autoload class methodsFor:'documentation'!
   631 
   637 
   632 version
   638 version
   633     ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.113 2002-07-09 14:01:24 stefan Exp $'
   639     ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.114 2002-09-25 08:25:28 penk Exp $'
   634 ! !
   640 ! !
       
   641 
   635 Autoload initialize!
   642 Autoload initialize!