catch #error
authortm
Mon, 25 Aug 2003 13:44:36 +0200
changeset 7574 8041a5795bbf
parent 7573 5c0f8cd19b66
child 7575 80341bf0e03e
catch #error
Autoload.st
--- a/Autoload.st	Sat Aug 23 14:09:21 2003 +0200
+++ b/Autoload.st	Mon Aug 25 13:44:36 2003 +0200
@@ -487,6 +487,12 @@
     "Modified: 24.4.1996 / 19:53:27 / cg"
 !
 
+error
+    "catch error - load the class and resend #error to the real one"
+
+    ^ self doesNotUnderstand:(Message selector:#error)
+!
+
 loadAndResendMessage
     "common helper to autoload a class and define a subclass of it by sending
      the sender-message again.
@@ -640,7 +646,7 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.118 2003-05-09 16:11:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.119 2003-08-25 11:44:36 tm Exp $'
 ! !
 
 Autoload initialize!