Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added #handlingSignalInContext:
authorClaus Gittinger <cg@exept.de>
Sat, 31 Jul 1999 14:43:43 +0200
changeset 4473 793078981f01
parent 4472 c5262e0e3130
child 4474 d34823aa554e
added #handlingSignalInContext: (see Exception-doRaise)
ExceptionHandlerSet.st file | annotate | diff | comparison | revisions
Signal.st file | annotate | diff | comparison | revisions
SignalSet.st file | annotate | diff | comparison | revisions 
--- a/ExceptionHandlerSet.st	Sat Jul 31 14:42:44 1999 +0200
+++ b/ExceptionHandlerSet.st	Sat Jul 31 14:43:43 1999 +0200
@@ -167,6 +167,12 @@
 
     "Created: / 26.7.1999 / 09:53:28 / stefan"
     "Modified: / 26.7.1999 / 09:59:43 / stefan"
+!
+
+handlingSignalInContext:theContext
+    "answer the handling signal from aContext."
+
+    ^ self
 ! !
 
 !ExceptionHandlerSet methodsFor:'save evaluation'!
@@ -264,5 +270,5 @@
 !ExceptionHandlerSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExceptionHandlerSet.st,v 1.2 1999-07-28 21:00:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExceptionHandlerSet.st,v 1.3 1999-07-31 12:43:08 cg Exp $'
 ! !
--- a/Signal.st	Sat Jul 31 14:42:44 1999 +0200
+++ b/Signal.st	Sat Jul 31 14:43:43 1999 +0200
@@ -447,6 +447,12 @@
     "Created: / 25.7.1999 / 19:55:43 / stefan"
 !
 
+handlingSignalInContext:theContext
+    "answer the handling signal from aContext."
+
+    ^ self
+!
+
 inheritsFrom:anotherSignal
     "return true, if the receiver is a child of anotherSignal
      (i.e. if handling anotherSignal also handles the receiver)
@@ -829,6 +835,6 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.55 1999-07-28 21:00:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.56 1999-07-31 12:43:26 cg Exp $'
 ! !
 Signal initialize!
--- a/SignalSet.st	Sat Jul 31 14:42:44 1999 +0200
+++ b/SignalSet.st	Sat Jul 31 14:43:43 1999 +0200
@@ -110,6 +110,13 @@
     "Created: / 25.7.1999 / 23:46:48 / stefan"
 !
 
+handlingSignalInContext:theContext
+    "answer the handling signal from aContext."
+
+    ^ self
+
+!
+
 includes:aSignal
     "return true, if the receiver contains the argument, aSignal.
      The special any-Set includes every (non-query) signal."
@@ -213,5 +220,5 @@
 !SignalSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.26 1999-07-28 15:17:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.27 1999-07-31 12:43:43 cg Exp $'
 ! !
hg/stx-libbasic