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