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.
handle nonparsable blockVars
authorClaus Gittinger <cg@exept.de>
Thu, 07 Nov 1996 17:28:51 +0100
changeset 840 ffc3caf94d23
parent 839 b3ddd53c2791
child 841 4d803d693dfa
handle nonparsable blockVars
ConInspV.st file | annotate | diff | comparison | revisions
ContextInspectorView.st file | annotate | diff | comparison | revisions 
--- a/ConInspV.st	Thu Nov 07 16:33:37 1996 +0100
+++ b/ConInspV.st	Thu Nov 07 17:28:51 1996 +0100
@@ -56,7 +56,7 @@
     "set the context to be inspected"
 
     |homeContext method homeNames rec sel implementorClass 
-     argNames varNames tmpNames m argsOnly blockNode|
+     argNames varNames tmpNames m argsOnly blockNode vars|
 
     (con == inspectedContext) ifTrue:[
         listView selection notNil ifTrue:[
@@ -158,10 +158,16 @@
                                 numArgs:con numArgs
                                 numVars:con numVars.
                 blockNode notNil ifTrue:[
-                    con numArgs > 0 ifTrue:[argNames := blockNode arguments collect:[:var | var name]].
+                    con numArgs > 0 ifTrue:[
+                        vars := blockNode arguments.
+                        vars size > 0 ifTrue:[
+                            argNames := vars collect:[:var | var name]
+                        ]
+                    ].
                     con numVars > 0 ifTrue:[
-                        blockNode variables size > 0 ifTrue:[
-                            varNames := blockNode variables collect:[:var | var name].
+                        vars := blockNode variables.
+                        vars size > 0 ifTrue:[
+                            varNames := vars collect:[:var | var name].
                         ]
                     ]
                 ]
@@ -203,7 +209,7 @@
     workspace contents:nil.
     self setDoitActionIn:workspace for:con.
 
-    "Modified: 23.10.1996 / 16:20:59 / cg"
+    "Modified: 7.11.1996 / 17:21:21 / cg"
 !
 
 release
@@ -367,5 +373,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.27 1996-10-23 15:34:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.28 1996-11-07 16:28:51 cg Exp $'
 ! !
--- a/ContextInspectorView.st	Thu Nov 07 16:33:37 1996 +0100
+++ b/ContextInspectorView.st	Thu Nov 07 17:28:51 1996 +0100
@@ -56,7 +56,7 @@
     "set the context to be inspected"
 
     |homeContext method homeNames rec sel implementorClass 
-     argNames varNames tmpNames m argsOnly blockNode|
+     argNames varNames tmpNames m argsOnly blockNode vars|
 
     (con == inspectedContext) ifTrue:[
         listView selection notNil ifTrue:[
@@ -158,10 +158,16 @@
                                 numArgs:con numArgs
                                 numVars:con numVars.
                 blockNode notNil ifTrue:[
-                    con numArgs > 0 ifTrue:[argNames := blockNode arguments collect:[:var | var name]].
+                    con numArgs > 0 ifTrue:[
+                        vars := blockNode arguments.
+                        vars size > 0 ifTrue:[
+                            argNames := vars collect:[:var | var name]
+                        ]
+                    ].
                     con numVars > 0 ifTrue:[
-                        blockNode variables size > 0 ifTrue:[
-                            varNames := blockNode variables collect:[:var | var name].
+                        vars := blockNode variables.
+                        vars size > 0 ifTrue:[
+                            varNames := vars collect:[:var | var name].
                         ]
                     ]
                 ]
@@ -203,7 +209,7 @@
     workspace contents:nil.
     self setDoitActionIn:workspace for:con.
 
-    "Modified: 23.10.1996 / 16:20:59 / cg"
+    "Modified: 7.11.1996 / 17:21:21 / cg"
 !
 
 release
@@ -367,5 +373,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.27 1996-10-23 15:34:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.28 1996-11-07 16:28:51 cg Exp $'
 ! !
hg/stx-libtool