--- a/DebugView.st Mon Sep 02 17:16:51 2013 +0200
+++ b/DebugView.st Mon Sep 02 17:19:27 2013 +0200
@@ -6974,26 +6974,19 @@
show2 ifTrue:[
(self showingContext3:con nesting:count) ifTrue:[
- "/ ignore it, if its in the same
- "/ method as the previous context
-"/ (verboseBacktrace ~~ true
-"/ and:[count > 0
-"/ and:[contextArray last method == con method
-"/ and:[(contextArray last isBlockContext not
-"/ & con isBlockContext not) not ]]]) ifTrue:[
-"/ "/ skip it, if its in the same method
-"/ "/ as the called context.
-"/ ] ifFalse:[
- contextArray add:con.
-
- (MoreDebuggingDetail == true) ifTrue:[
- nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString).
- ] ifFalse:[
- nm := self contextListEntryFor:con.
- ].
- text add:nm.
- count := count + 1.
-"/ ].
+ contextArray add:con.
+
+ (MoreDebuggingDetail == true) ifTrue:[
+ nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString).
+ ] ifFalse:[
+ nm := self contextListEntryFor:con.
+ ].
+ text add:nm.
+ count := count + 1.
+ ] ifFalse:[
+ DebuggingDebugger3 == true ifTrue:[
+ 'showingContext3: (' print. con print. ') --> false' printCR.
+ ].
]
].
@@ -7425,30 +7418,32 @@
hideSupportCode ifFalse:[^ true].
aContext isNil ifTrue:[^ true].
- rec := aContext receiver.
- sel := aContext selector.
- mClass := aContext methodClass.
-
- sender := aContext sender.
- sender notNil ifTrue:[
- senderSelector := sender selector.
- senderReceiver := sender receiver.
- senderReceiverClass := senderReceiver class.
- ].
-
- (sel == #perform:
- or:[sel == #perform:with:
- or:[sel == #perform:with:with:
- or:[sel == #perform:with:with:with:
- or:[sel == #perform:with:with:with:with:
- or:[sel == #perform:withArguments:
- or:[sel == #perform:with:ifNotUnderstood:
- or:[sel == #perform:withArguments:ifNotUnderstood:]]]]]]])
- ifTrue:[
- mClass == Object ifTrue:[^ false]
- ].
-
- ^ true.
+^ true.
+"/ mhmh - what was this useful for?
+"/ rec := aContext receiver.
+"/ sel := aContext selector.
+"/ mClass := aContext methodClass.
+"/
+"/ sender := aContext sender.
+"/ sender notNil ifTrue:[
+"/ senderSelector := sender selector.
+"/ senderReceiver := sender receiver.
+"/ senderReceiverClass := senderReceiver class.
+"/ ].
+"/
+"/ (sel == #perform:
+"/ or:[sel == #perform:with:
+"/ or:[sel == #perform:with:with:
+"/ or:[sel == #perform:with:with:with:
+"/ or:[sel == #perform:with:with:with:with:
+"/ or:[sel == #perform:withArguments:
+"/ or:[sel == #perform:with:ifNotUnderstood:
+"/ or:[sel == #perform:withArguments:ifNotUnderstood:]]]]]]])
+"/ ifTrue:[
+"/ mClass == Object ifTrue:[^ false]
+"/ ].
+"/
+"/ ^ true.
"Created: / 17-11-2001 / 19:34:20 / cg"
"Modified: / 27-07-2012 / 17:26:54 / cg"
@@ -8894,15 +8889,15 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.628 2013-09-01 12:02:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.629 2013-09-02 15:19:27 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.628 2013-09-01 12:02:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.629 2013-09-02 15:19:27 cg Exp $'
!
version_SVN
- ^ '$Id: DebugView.st,v 1.628 2013-09-01 12:02:40 cg Exp $'
+ ^ '$Id: DebugView.st,v 1.629 2013-09-02 15:19:27 cg Exp $'
! !