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.
try to reselect the same name-entry, if inspected context
authorClaus Gittinger <cg@exept.de>
Thu, 30 Jul 1998 18:07:57 +0200
changeset 1769 6b904f69858f
parent 1768 486def0f628a
child 1770 5cb6d7232aaa
try to reselect the same name-entry, if inspected context changes (useful when debugging a recursive walkback)
ConInspV.st file | annotate | diff | comparison | revisions
ContextInspectorView.st file | annotate | diff | comparison | revisions 
--- a/ConInspV.st	Thu Jul 30 17:52:41 1998 +0200
+++ b/ConInspV.st	Thu Jul 30 18:07:57 1998 +0200
@@ -58,7 +58,8 @@
     |homeContext method homeNames rec sel implementorClass 
      argNames varNames tmpNames m argsOnly blockNode vars
      numVarsInSource numVarsInContext isDoIt
-     numArgs numVars n tempNames realTempNames src|
+     numArgs numVars n tempNames realTempNames src
+     oldSelection oldSelectedName|
 
     (aContext == inspectedContext) ifTrue:[
         "/ care for contexts which change size
@@ -75,6 +76,8 @@
     inspectedObject := nil.
     inspectedContext := aContext.
     contextSize := inspectedContext size.
+    oldSelection := selectedLine.
+    oldSelection notNil ifTrue:[oldSelectedName := listView at:oldSelection].
 
     aContext isNil ifTrue:[
         names := nil.
@@ -353,7 +356,14 @@
     workspace contents:nil.
     self setDoitActionIn:workspace for:aContext.
 
-    "Modified: / 2.4.1998 / 15:11:27 / cg"
+    oldSelectedName notNil ifTrue:[
+        (names includes:oldSelectedName) ifTrue:[
+            listView selectElement:oldSelectedName.
+            self showSelection:(listView list indexOf:oldSelectedName).
+        ]
+    ].
+
+    "Modified: / 30.7.1998 / 12:51:44 / cg"
 !
 
 release
@@ -531,5 +541,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.44 1998-05-21 11:26:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.45 1998-07-30 16:07:57 cg Exp $'
 ! !
--- a/ContextInspectorView.st	Thu Jul 30 17:52:41 1998 +0200
+++ b/ContextInspectorView.st	Thu Jul 30 18:07:57 1998 +0200
@@ -58,7 +58,8 @@
     |homeContext method homeNames rec sel implementorClass 
      argNames varNames tmpNames m argsOnly blockNode vars
      numVarsInSource numVarsInContext isDoIt
-     numArgs numVars n tempNames realTempNames src|
+     numArgs numVars n tempNames realTempNames src
+     oldSelection oldSelectedName|
 
     (aContext == inspectedContext) ifTrue:[
         "/ care for contexts which change size
@@ -75,6 +76,8 @@
     inspectedObject := nil.
     inspectedContext := aContext.
     contextSize := inspectedContext size.
+    oldSelection := selectedLine.
+    oldSelection notNil ifTrue:[oldSelectedName := listView at:oldSelection].
 
     aContext isNil ifTrue:[
         names := nil.
@@ -353,7 +356,14 @@
     workspace contents:nil.
     self setDoitActionIn:workspace for:aContext.
 
-    "Modified: / 2.4.1998 / 15:11:27 / cg"
+    oldSelectedName notNil ifTrue:[
+        (names includes:oldSelectedName) ifTrue:[
+            listView selectElement:oldSelectedName.
+            self showSelection:(listView list indexOf:oldSelectedName).
+        ]
+    ].
+
+    "Modified: / 30.7.1998 / 12:51:44 / cg"
 !
 
 release
@@ -531,5 +541,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.44 1998-05-21 11:26:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.45 1998-07-30 16:07:57 cg Exp $'
 ! !
hg/stx-libtool