--- a/Autoload.st Sun Sep 22 17:36:11 1996 +0200
+++ b/Autoload.st Mon Sep 23 12:45:58 1996 +0200
@@ -474,137 +474,9 @@
^ LoadedClasses notNil and:[LoadedClasses includes:aClass]
! !
-!Autoload methodsFor:'error handling'!
-
-doesNotUnderstand:aMessage
- "this message is sent by the runtime system (VM) when
- a message is not understood by some object (i.e. there
- is no method for that selector). The original message has
- been packed into aMessage (i.e. the receiver, selector and
- any arguments) and the original receiver is then sent the
- #doesNotUnderstand: message.
- Here, we raise another signal which usually enters the debugger.
- You can of course redefine #doesNotUnderstand: in your classes
- to implement message delegation,
- or handle the MessageNotUnderstoodSignal gracefully."
-
- |sel errorString cls sender|
-
- "/ handle the case of an error during early startup
- "/ (output streams not yet initialized)
- "/
- Stdout isNil ifTrue:[
- Smalltalk fatalAbort:'error during init: ' , aMessage selector , ' not understood'.
- ].
-
- (sel := aMessage selector) isNil ifTrue:[
- "/
- "/ happens when things go mad, or a method has been
- "/ called by valueWithReceiver: with a wrong receiver.
- "/ To avoid later trouble (when concatenating strings),
- "/ replace the selector by some (nonNil) string
- "/
- sel := '(nil)'
- ].
-
- "/
- "/ extract the class that should have implemented the message.
- "/ (in case of a super-send, this is not the receivers class)
- "/
- sender := thisContext sender.
- cls := sender searchClass.
- cls isNil ifTrue:[
- "it was NOT a super or directed send ..."
- cls := self class
- ].
-
- cls notNil ifTrue:[
- "/
- "/ displayString is better than 'cls name',
- "/ since it appends (obsolete) for outdated classes.
- "/ (this happens if you send messages to old instances
- "/ after changing a classes definition)
- "/
- errorString := cls displayString.
- ] ifFalse:[
- errorString := '(** nil-class **)'
- ].
- errorString := errorString , ' does not understand: ' , sel.
-
- "/
- "/ this only happens, when YOU play around with my classvars ...
- "/ (or an error occurs during very early startup, when signals are not yet set)
- "/
- MessageNotUnderstoodSignal isNil ifTrue:[
- ^ self enterDebuggerWith:nil
- message:'oops - MessageNotUnderstoodSignal is gone'.
- ].
-
- "/
- "/ thats where we end up normally - raise a signal which (if unhandled) opens a debugger
- "/
- ^ MessageNotUnderstoodSignal
- raiseRequestWith:aMessage
- errorString:errorString
- in:sender
-
- "Modified: 3.5.1996 / 11:51:45 / cg"
-
-"
-*** WARNING
-***
-*** this method has been automatically created,
-*** since all nil-subclasses should respond to some minimum required
-*** protocol.
-***
-*** Inspection and/or debugging of instances may not be possible,
-*** if you remove/change this method.
-"
-! !
-
-!Autoload methodsFor:'queries'!
-
-class
- "return the receivers class"
-
-%{ /* NOCONTEXT */
-
- RETURN ( __Class(self) );
-%}
-
-"
-*** WARNING
-***
-*** this method has been automatically created,
-*** since all nil-subclasses should respond to some minimum required
-*** protocol.
-***
-*** Inspection and/or debugging of instances may not be possible,
-*** if you remove/change this method.
-"
-!
-
-isBehavior
- "return true, if the receiver is some kind of class (i.e. behavior);
- false is returned here - the method is only redefined in Behavior."
-
- ^ false
-
-"
-*** WARNING
-***
-*** this method has been automatically created,
-*** since all nil-subclasses should respond to some minimum required
-*** protocol.
-***
-*** Inspection and/or debugging of instances may not be possible,
-*** if you remove/change this method.
-"
-! !
-
!Autoload class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.52 1996-07-18 15:56:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.53 1996-09-23 10:45:58 cg Exp $'
! !
Autoload initialize!