--- a/DebugView.st Tue Jun 03 20:10:44 2003 +0200
+++ b/DebugView.st Tue Jun 03 20:34:52 2003 +0200
@@ -1455,10 +1455,10 @@
] do:[
con := thisContext sender.
[
- (con selector ~~ #enter:select:)
- or:[con receiver ~~ self]
+ (con selector == #enter:select:)
+ and:[con receiver == self]
]
- whileTrue:[ con := con sender ].
+ whileFalse:[ con := con sender ].
con unwindThenDo:[AbortOperationRequest raise].
"/ AbortOperationRequest raise.
@@ -5464,17 +5464,20 @@
con := ex suspendedContext.
s nextPutAll: '**** '; nextPutLine:(con printString).
con := con sender.
- [con notNil] whileTrue:[
- Error catch:[:ex |
- s nextPutAll: '**** '; nextPutLine:(con printString).
- ].
-
- con receiver == self ifTrue:[
- con := nil
- ] ifFalse:[
- con := con sender.
- ]
- ].
+
+ con fullPrintAllOn:s.
+
+"/ [con notNil] whileTrue:[
+"/ Error catch:[:ex |
+"/ s nextPutAll: '**** '; nextPutLine:(con printString).
+"/ ].
+"/
+"/ (con receiver == self and:[con selector == #'enter:select:']) ifTrue:[
+"/ con := nil
+"/ ] ifFalse:[
+"/ con := con sender.
+"/ ]
+"/ ].
codeView contents:(s contents).
ex return.
] do:[
@@ -5640,7 +5643,7 @@
"
((sender := homeContext sender) notNil
- and:[(sender selector startsWith:'valueWithReceiver:')
+ and:[((sender selector ? '') startsWith:'valueWithReceiver:')
and:[sender receiver isMethod]]) ifTrue:[
method := sender receiver.
self sensor shiftDown ifTrue:[
@@ -5672,7 +5675,7 @@
"/ fall back heuristics
con isBlockContext ifTrue:[
((sender := con sender) notNil
- and:[(sender selector startsWith:'value')
+ and:[((sender selector ? '') startsWith:'value')
and:[sender receiver isBlock]]) ifTrue:[
code := sender receiver source.
]
@@ -5892,7 +5895,7 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.343 2003-05-28 08:23:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.344 2003-06-03 18:34:52 cg Exp $'
! !
DebugView initialize!