--- 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 $'
! !