--- a/ContextInspectorView.st	Tue Aug 19 12:10:49 2003 +0200
+++ b/ContextInspectorView.st	Tue Aug 19 18:00:55 2003 +0200
@@ -61,7 +61,7 @@
      argNames varNames tmpNames m argsOnly blockNode vars
      numVarsInSource numVarsInContext isDoIt
      numArgs numVars n tempNames realTempNames src
-     oldSelection oldSelectedName|
+     oldSelection oldSelectedName argAndVarNames|
 
     (aContext == inspectedContext) ifTrue:[
         "/ care for contexts which change size
@@ -288,38 +288,43 @@
         numVars := aContext numVars.
 
         (numArgs > 0 or:[numVars > 0]) ifTrue:[
+            argAndVarNames := aContext argAndVarNames.
+            argAndVarNames notEmptyOrNil ifTrue:[
+                argNames := argAndVarNames copyTo:numArgs.
+                varNames := argAndVarNames copyFrom:numArgs+1.
+            ].
 
-            method notNil ifTrue:[
-                isDoIt ifTrue:[
-                    "/ special for #doIt
-                    "/ my source is found in the method.
-                    m := nil.
-                    src := ('[' , method source , '\]') withCRs
-                ] ifFalse:[
-                    m := method.
-                    src := nil.
-                ].
-                blockNode := Compiler
-                                blockAtLine:(aContext lineNumber)
-                                in:m
-                                orSource:src
-                                numArgs:numArgs 
-                                numVars:numVars.
-                blockNode notNil ifTrue:[
-                    numArgs > 0 ifTrue:[
-                        vars := blockNode arguments.
-                        vars size > 0 ifTrue:[
-                            argNames := vars collect:[:var | var name]
-                        ]
-                    ].
-                    numVars > 0 ifTrue:[
-                        vars := blockNode variables.
-                        vars size > 0 ifTrue:[
-                            varNames := vars collect:[:var | var name].
-                        ]
-                    ]
-                ].
-            ].
+"/            method notNil ifTrue:[
+"/                isDoIt ifTrue:[
+"/                    "/ special for #doIt
+"/                    "/ my source is found in the method.
+"/                    m := nil.
+"/                    src := ('[' , method source , '\]') withCRs
+"/                ] ifFalse:[
+"/                    m := method.
+"/                    src := nil.
+"/                ].
+"/                blockNode := Compiler
+"/                                blockAtLine:(aContext lineNumber)
+"/                                in:m
+"/                                orSource:src
+"/                                numArgs:numArgs 
+"/                                numVars:numVars.
+"/                blockNode notNil ifTrue:[
+"/                    numArgs > 0 ifTrue:[
+"/                        vars := blockNode arguments.
+"/                        vars size > 0 ifTrue:[
+"/                            argNames := vars collect:[:var | var name]
+"/                        ]
+"/                    ].
+"/                    numVars > 0 ifTrue:[
+"/                        vars := blockNode variables.
+"/                        vars size > 0 ifTrue:[
+"/                            varNames := vars collect:[:var | var name].
+"/                        ]
+"/                    ]
+"/                ].
+"/            ].
         ].
 
         names := OrderedCollection new.
@@ -625,5 +630,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.54 2002-10-29 12:49:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.55 2003-08-19 16:00:55 penk Exp $'
 ! !