Signal.st
changeset 20427 0f3f9a156d0d
parent 20266 db7ad9651afb
child 20578 39641ba8d6e0
child 20820 01811b77f67f
equal deleted inserted replaced
20426:2ec010b1a559 20427:0f3f9a156d0d
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1993 by Claus Gittinger
     4  COPYRIGHT (c) 1993 by Claus Gittinger
     3 	      All Rights Reserved
     5 	      All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
   151 ! !
   153 ! !
   152 
   154 
   153 !Signal class methodsFor:'Signal constants'!
   155 !Signal class methodsFor:'Signal constants'!
   154 
   156 
   155 genericSignal
   157 genericSignal
   156     "return the generic signal - thats the parent of all signals
   158     "return the generic signal - that's the parent of all signals
   157      in the system."
   159      in the system."
   158 
   160 
   159     ^ GenericException
   161     ^ GenericException
   160 
   162 
   161     "Created: / 8.10.1997 / 11:46:28 / cg"
   163     "Created: / 8.10.1997 / 11:46:28 / cg"
   267     notifierString := aString
   269     notifierString := aString
   268 !
   270 !
   269 
   271 
   270 originalSignal
   272 originalSignal
   271     "return the signal/exception which was originally raised.
   273     "return the signal/exception which was originally raised.
   272      For noHandler, that is my unhandled signal; for others, thats the exception itself."
   274      For noHandler, that is my unhandled signal; for others, that's the exception itself."
   273 
   275 
   274     ^ self.
   276     ^ self.
   275 !
   277 !
   276 
   278 
   277 parent
   279 parent