remember selected entry in inspectors;
authorClaus Gittinger <cg@exept.de>
Thu, 13 Sep 2001 11:26:45 +0200
changeset 3165 03d3c485e67d
parent 3164 cde1271d581b
child 3166 8d5a77de603c
remember selected entry in inspectors; try to reselect when reentering.
DebugView.st
--- a/DebugView.st	Thu Sep 13 11:26:10 2001 +0200
+++ b/DebugView.st	Thu Sep 13 11:26:45 2001 +0200
@@ -24,7 +24,8 @@
 		stepForReturn actualContext inWrap stackInspector steppedContext
 		wrapperContext verboseBacktrace firstContext stepHow cachable
 		currentMethod ignoreBreakpoints stepUntilEntering
-		lastStepUntilEntering'
+		lastStepUntilEntering lastSelectionInReceiverInspector
+		lastSelectionInContextInspector'
 	classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
 		DebuggingDebugger VerboseBacktraceDefault DefaultIcon
 		InitialNCHAINShown'
@@ -888,6 +889,8 @@
     "/ codeView contents:nil.
 
     (exitAction ~~ #step) ifTrue:[
+        lastSelectionInReceiverInspector := receiverInspector selectedKeyName.
+        lastSelectionInContextInspector := contextInspector selectedKeyName.
         receiverInspector release.
         contextInspector release.
 
@@ -4071,6 +4074,8 @@
 "/                contextInspector inspect:nil.
 "/            ] do:[
                 contextInspector inspect:con.
+                contextInspector tryToSelectedKeyNamed:lastSelectionInContextInspector.
+
 "/            ].
 
             "/ show a stack inspector sometimes
@@ -4305,6 +4310,7 @@
             ].
 
             receiverInspector inspect:rec.
+            receiverInspector tryToSelectedKeyNamed:lastSelectionInReceiverInspector.
 
             "
              the one below is wrong: currently, the
@@ -4394,6 +4400,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.280 2001-09-10 14:16:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.281 2001-09-13 09:26:45 cg Exp $'
 ! !
 DebugView initialize!