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.
inlined vars/args are shown as *t<i>
authorClaus Gittinger <cg@exept.de>
Thu, 26 Jun 1997 10:42:58 +0200
changeset 1204 e2f7a2409f7d
parent 1203 ade0bcc06188
child 1205 0b60eda64a3b
inlined vars/args are shown as *t<i>
ConInspV.st file | annotate | diff | comparison | revisions
ContextInspectorView.st file | annotate | diff | comparison | revisions 
--- a/ConInspV.st	Wed Jun 25 14:13:40 1997 +0200
+++ b/ConInspV.st	Thu Jun 26 10:42:58 1997 +0200
@@ -58,7 +58,7 @@
     |homeContext method homeNames rec sel implementorClass 
      argNames varNames tmpNames m argsOnly blockNode vars
      numVarsInSource numVarsInContext isDoIt
-     numArgs numVars|
+     numArgs numVars n|
 
     (aContext == inspectedContext) ifTrue:[
         listView selection notNil ifTrue:[
@@ -199,6 +199,14 @@
                 ]
             ]
         ].
+
+        n := homeNames size.
+        n < (homeContext numVars + homeContext numArgs) ifTrue:[
+            homeNames := homeNames asOrderedCollection.
+            n to:(homeContext numVars + homeContext numArgs - 1) do:[:inlinedTempIdx |
+                homeNames add:('*t' , (inlinedTempIdx - n + 1) printString)
+            ]
+        ]
     ].
 
     "
@@ -284,7 +292,7 @@
     workspace contents:nil.
     self setDoitActionIn:workspace for:aContext.
 
-    "Modified: 1.2.1997 / 18:17:45 / cg"
+    "Modified: 26.6.1997 / 10:33:53 / cg"
 !
 
 release
@@ -448,5 +456,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.34 1997-02-01 18:50:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.35 1997-06-26 08:42:58 cg Exp $'
 ! !
--- a/ContextInspectorView.st	Wed Jun 25 14:13:40 1997 +0200
+++ b/ContextInspectorView.st	Thu Jun 26 10:42:58 1997 +0200
@@ -58,7 +58,7 @@
     |homeContext method homeNames rec sel implementorClass 
      argNames varNames tmpNames m argsOnly blockNode vars
      numVarsInSource numVarsInContext isDoIt
-     numArgs numVars|
+     numArgs numVars n|
 
     (aContext == inspectedContext) ifTrue:[
         listView selection notNil ifTrue:[
@@ -199,6 +199,14 @@
                 ]
             ]
         ].
+
+        n := homeNames size.
+        n < (homeContext numVars + homeContext numArgs) ifTrue:[
+            homeNames := homeNames asOrderedCollection.
+            n to:(homeContext numVars + homeContext numArgs - 1) do:[:inlinedTempIdx |
+                homeNames add:('*t' , (inlinedTempIdx - n + 1) printString)
+            ]
+        ]
     ].
 
     "
@@ -284,7 +292,7 @@
     workspace contents:nil.
     self setDoitActionIn:workspace for:aContext.
 
-    "Modified: 1.2.1997 / 18:17:45 / cg"
+    "Modified: 26.6.1997 / 10:33:53 / cg"
 !
 
 release
@@ -448,5 +456,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.34 1997-02-01 18:50:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.35 1997-06-26 08:42:58 cg Exp $'
 ! !
hg/stx-libtool