Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: DebugView
authorClaus Gittinger <cg@exept.de>
Tue, 24 Feb 2015 19:23:38 +0100
changeset 15412 8b43bca192e9
parent 15411 98211f5fd755
child 15413 764b28599a90
class: DebugView changed: #setContext:releaseInspectors:
DebugView.st file | annotate | diff | comparison | revisions 
--- a/DebugView.st	Tue Feb 24 19:13:14 2015 +0100
+++ b/DebugView.st	Tue Feb 24 19:23:38 2015 +0100
@@ -7373,6 +7373,7 @@
         con := aContext.
         calledContext := nil.
 
+'======================================' print. con printCR.
         alreadyInApplicationCode := 
                 con receiver isLazyValue not     "/ careful to not force futures/lazy values
                 and:[con receiver isKindOf:ApplicationModel].
@@ -7441,7 +7442,8 @@
                 con notNil 
                 and:[ con isBlockContext not
                 and:[ con method notNil          
-                and:[ (con method shouldBeSkippedInDebuggersWalkBack) ]]] 
+                and:[ (con method shouldBeSkippedInDebuggersWalkBack) 
+                and:[ (self haltSelectors includes: con selector) not]]]] 
             ] whileTrue:[
                 "/ Transcript show:'xx '; showCR:con.
                 calledContext := con.
@@ -7461,6 +7463,7 @@
         count := 0.
         [con notNil and:[count <= nChainShown]] whileTrue:[
             "/ remember any halt/breakpoint or openModal on the fly
+'---' print. con printCR.
             sel := con selector.
             (self haltSelectors includes:sel) ifTrue:[
                 (method := con method) notNil ifTrue:[
@@ -7493,7 +7496,7 @@
                 |show1|
 
                 show1 := self showingContext1:con calling:calledContext.
-                DebuggingDebugger3 == true ifTrue:[
+                DebuggingDebugger3 := true== true ifTrue:[
                     'showingContext1: (' print. con print. ') --> ' print. show1 printCR.
                 ].
                 show1
@@ -9526,15 +9529,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.686 2015-02-24 11:50:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.687 2015-02-24 18:23:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.686 2015-02-24 11:50:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.687 2015-02-24 18:23:38 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.686 2015-02-24 11:50:01 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.687 2015-02-24 18:23:38 cg Exp $'
 ! !
hg/stx-libtool