# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1211921987 -7200
# Node ID 4720caf862eb4e603dc646774a329bace82cf751
# Parent  b02059a52c1da2fa3169e0f274f5f4145070923c
*** empty log message ***

diff -r b02059a52c1d -r 4720caf862eb DebugView.st
--- a/DebugView.st	Tue May 27 18:57:08 2008 +0200
+++ b/DebugView.st	Tue May 27 22:59:47 2008 +0200
@@ -735,7 +735,7 @@
      actually occured.
      Just for your convenience :-)"
 
-    |con con2 found offset sel sel2 prev ex rcvr nMax idx|
+    |con found offset sel prev ex rcvr nMax idx|
 
 "/ Transcript showCR:aContextArray.
 
@@ -880,27 +880,24 @@
             ].
             ^ idx
         ].
-
-        "/ the above is all too hard-coded;
-        "/ ask the method, if it thinks it should be skipped in the walkback.
-        "/ as more methods get flagged, remove code from above.
         offset := 1.
+    ].
+
+    "/ the above is all too hard-coded;
+    "/ ask the method, if it thinks it should be skipped in the walkback.
+    "/ as more methods get flagged, remove code from above.
+    con := aContextArray at:offset ifAbsent:nil.
+
+    [ 
+      con notNil
+      and:[ con methodHome notNil
+      and:[ con methodHome method notNil
+      and:[ con methodHome method shouldBeSkippedInDebuggersWalkBack ]]]
+    ] whileTrue:[
+"/ Transcript showCR:con methodHome method.
+        offset := offset + 1.
         con := aContextArray at:offset ifAbsent:nil.
-
-        [ 
-          con notNil
-          and:[ con methodHome notNil
-          and:[ con methodHome method notNil
-          and:[ con methodHome method shouldBeSkippedInDebuggersWalkBack ]]]
-        ] whileTrue:[
-Transcript showCR:con methodHome method.
-            offset := offset + 1.
-            con := aContextArray at:offset ifAbsent:nil.
-        ].
-        ^ offset
-    ].
-
-    con := found.
+    ].
 
     "
      got it; move up, skipping all intermediate Signal and
@@ -4873,8 +4870,8 @@
 
     |con|
 
+    con := aContext.
     verboseBacktrace ifFalse:[
-        con := aContext.
         (con notNil and:[con selector == #threadSwitch:]) ifTrue:[
             con := con sender.
             (con notNil and:[con selector == #timerInterrupt]) ifTrue:[
@@ -6087,7 +6084,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.431 2008-05-27 10:24:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.432 2008-05-27 20:59:47 cg Exp $'
 ! !
 
 DebugView initialize!