ContextInspectorView.st
changeset 13982 25d8cef3bc77
parent 13973 50c36cd3ce36
child 14051 607958377e4f
--- a/ContextInspectorView.st	Sat Feb 22 13:42:48 2014 +0100
+++ b/ContextInspectorView.st	Sat Feb 22 16:57:11 2014 +0100
@@ -514,7 +514,7 @@
         list := list 
                 , { '-','all workspace vars' allItalic} 
                 , (workspaceVariableNamesInDoIts keysAndValuesCollect:
-                        [:idx :nm | self listEntryForName:nm value:((Workspace workspaceVariableAt:nm)value) ]
+                        [:idx :nm | self listEntryForName:nm value:(Workspace workspaceVariableAt:nm) ]
                   )
     ].
 
@@ -588,7 +588,7 @@
 
     ^ self 
         stringWithAllNames:workspaceVariableNamesInDoIts 
-        andValues:(workspaceVariableNamesInDoIts collect:[:nm| (Workspace workspaceVariableAt:nm)value])
+        andValues:(workspaceVariableNamesInDoIts collect:[:nm| Workspace workspaceVariableAt:nm])
 !
 
 valueAtIndex:varIdx
@@ -641,7 +641,7 @@
 
         wsIndex := varIdx - values size - 1.
         wsIndex <= workspaceVariableNamesInDoIts size ifTrue:[
-            ^ (Workspace workspaceVariableAt:(workspaceVariableNamesInDoIts at:wsIndex)) value.
+            ^ Workspace workspaceVariableAt:(workspaceVariableNamesInDoIts at:wsIndex).
         ].
         ^ '** oops - could not find value **'
     ].
@@ -694,7 +694,7 @@
         ^ inspectedObject
     ].
     (line startsWith:'-all workspace vars') ifTrue:[
-        ^ workspaceVariableNamesInDoIts collect:[:nm | (Workspace workspaceVariableAt:nm) value].
+        ^ workspaceVariableNamesInDoIts collect:[:nm | Workspace workspaceVariableAt:nm].
     ].
 
     self error:'unknown special line'.
@@ -744,10 +744,10 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.94 2014-02-21 11:27:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.95 2014-02-22 15:57:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.94 2014-02-21 11:27:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.95 2014-02-22 15:57:11 cg Exp $'
 ! !