--- 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 $'
! !