--- a/DebugView.st Thu Jul 19 16:16:38 2018 +0200
+++ b/DebugView.st Sat Jul 21 18:38:10 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -7776,7 +7774,7 @@
]
].
- s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
+ s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
"/ s infoPrintCR.
RememberedCallChain notNil ifTrue:[
(RememberedCallChain includesIdentical:aContext) ifTrue:[
@@ -9618,7 +9616,8 @@
"
((sender := homeContext sender) notNil
and:[((sender selector ? '') startsWith:'valueWithReceiver:')
- and:[sender receiver isMethod]]) ifTrue:[
+ and:[ sender receiver isBridgeProxy not
+ and:[ sender receiver isMethod]]]) ifTrue:[
method := sender receiver.
canAccept := false.
] ifFalse:[
@@ -9669,7 +9668,8 @@
] ifFalse:[
(sender notNil
and:[((sender selector ? '') startsWith:'valueWith')
- and:[sender receiver isMethod]]) ifTrue:[
+ and:[sender receiver isBridgeProxy not
+ and:[sender receiver isMethod]]]) ifTrue:[
method := sender receiver.
]
]
@@ -9905,6 +9905,7 @@
"Created: / 14-08-1997 / 20:15:00 / cg"
"Modified: / 05-10-2011 / 11:55:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 30-08-2017 / 15:56:10 / cg"
+ "Modified: / 21-07-2018 / 17:42:59 / Claus Gittinger"
! !
!DebugView::IgnoredHaltOrBreakpoint methodsFor:'accessing'!
@@ -9961,7 +9962,7 @@
printConditionOn:aStream
ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[
- aStream nextPutAll:(' if called from %1 » %2'
+ aStream nextPutAll:(' if called from %1 » %2'
bindWith:ignoredSendingClassAndSelectors first first
with:ignoredSendingClassAndSelectors first second).
^ self.