Exception

Important

! Exception class methodsFor: #signaling-VSECompat!
signal: msg
   ^(self new messagetext: msg) signal! !

! Exception class methodsFor: #adding-VSECompat!
, arg
    "Answer a new instance of ExceptionSet containing the receiver and the argument."

    ^(ExceptionSet with: self) , arg! !

Object
   subclass: #ExceptionSet
   instanceVariableNames: 'exceptions'
   category: #Kernel-VSECompat !

! ExceptionSet class methodsFor: #copying !
with: anException
   "Create an instance of the receiver with <anException> as its sole member."

   | new |
   new := self new.
   new exceptions add: anException.
   ^new! !

! ExceptionSet methodsFor: #copying !
, arg
   "Answer the receiver with arg added to its list of exceptions"

   self exceptions add: arg! !

! ExceptionSet methodsFor: #accesing !
exceptions
   "Private - Answer a collection of exceptions in the ExceptionSet"

   exceptions == nil
      ifTrue: [exceptions := Set new].
   ^exceptions! !

! ExceptionSet methodsFor: #testing !
handles: anException
   "Answer <true> if a any of the exceptions in this exception
   set can handle <anException>."

   self exceptions
      detect:
	[:ex | ex handles: anException]
      ifNone: [^false].
   ^true! !

! Exception class methodsFor: #testing-VSECompat!
handles: anException
   "Answer true if a handler for the receiver
   can handle the argument exception"

    ^anException isKindOf: self! !

Secondary

Private