better skip raiseRequest as well
authorClaus Gittinger <cg@exept.de>
Wed, 08 Jan 1997 17:39:54 +0100
changeset 923 3878260918ee
parent 922 c72dae45cf15
child 924 8bd0c37affdf
better skip raiseRequest as well
DebugView.st
--- a/DebugView.st	Wed Jan 08 15:35:09 1997 +0100
+++ b/DebugView.st	Wed Jan 08 17:39:54 1997 +0100
@@ -331,7 +331,8 @@
     1 to:5 do:[:i |
         c isNil ifTrue:[^ 1 "^ nil"].
         sel := c selector.
-        (sel == #raise) ifTrue:[
+        ((sel == #raise) 
+        or:[sel == #raiseRequest]) ifTrue:[
             (c receiver isKindOf:Exception) ifTrue:[
                 ex := c receiver.
                 offset := i.
@@ -418,8 +419,8 @@
 
     ^ offset
 
-    "Modified: 26.7.1996 / 16:34:58 / cg"
     "Created: 7.1.1997 / 21:26:05 / cg"
+    "Modified: 8.1.1997 / 17:39:15 / cg"
 ! !
 
 !DebugView methodsFor:'basic'!
@@ -3042,5 +3043,5 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.119 1997-01-07 20:43:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.120 1997-01-08 16:39:54 cg Exp $'
 ! !