--- a/DebugView.st Thu Mar 27 12:15:37 1997 +0100
+++ b/DebugView.st Thu Mar 27 18:29:25 1997 +0100
@@ -124,7 +124,6 @@
"/ care for the special case, were the Debugger was autoloaded.
"/ in this case, thisContext IS recursive, but thats no error
"/ condition.
-
found := false.
c := thisContext sender.
[found not
@@ -165,7 +164,7 @@
^ self enterUnconditional:aContext withMessage:aString
- "Modified: 11.1.1997 / 14:04:11 / cg"
+ "Modified: 27.3.1997 / 18:25:44 / cg"
!
enterUnconditional:aContext withMessage:aString
@@ -467,7 +466,7 @@
^ offset
"Created: 7.1.1997 / 21:26:05 / cg"
- "Modified: 11.1.1997 / 18:42:17 / cg"
+ "Modified: 27.3.1997 / 18:24:59 / cg"
! !
!DebugView methodsFor:'basic'!
@@ -865,7 +864,7 @@
"/ (i.e. aProcess interruptWith:...)
enteredByInterrupt := false.
- con := thisContext sender.
+ con := thisContext findNextContextWithSelector:#timerInterrupt or:#ioInterrupt.
[enteredByInterrupt not
and:[con notNil
and:[con ~~ aContext]]] whileTrue:[
@@ -873,7 +872,7 @@
or:[sel == #ioInterrupt]) ifTrue:[
enteredByInterrupt := true.
] ifFalse:[
- con := con sender
+ con := con findNextContextWithSelector:#timerInterrupt or:#ioInterrupt.
].
].
@@ -913,7 +912,7 @@
"Created: 24.11.1995 / 19:52:54 / cg"
"Modified: 3.5.1996 / 23:58:16 / stefan"
- "Modified: 20.3.1997 / 16:53:53 / cg"
+ "Modified: 27.3.1997 / 18:28:43 / cg"
!
openOn:aProcess
@@ -2629,7 +2628,6 @@
get them all
"
count := 0.
-
[con notNil and:[count <= nChainShown]] whileTrue:[
(self showingContext:con) ifTrue:[
@@ -2743,7 +2741,7 @@
^ true
"Created: 14.12.1995 / 19:10:31 / cg"
- "Modified: 20.3.1997 / 16:52:54 / cg"
+ "Modified: 27.3.1997 / 18:25:17 / cg"
!
setContextSkippingInterruptContexts:aContext
@@ -3470,6 +3468,6 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.153 1997-03-20 21:04:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.154 1997-03-27 17:29:25 cg Exp $'
! !
DebugView initialize!