class: ContextInspectorView
authorClaus Gittinger <cg@exept.de>
Fri, 21 Feb 2014 12:15:27 +0100
changeset 13972 c503d01b46fc
parent 13971 0ba7ad1a3ec2
child 13973 50c36cd3ce36
class: ContextInspectorView changed: #valueAtIndex: ws var access fixed
ContextInspectorView.st
--- a/ContextInspectorView.st	Wed Feb 19 14:21:36 2014 +0100
+++ b/ContextInspectorView.st	Fri Feb 21 12:15:27 2014 +0100
@@ -639,11 +639,11 @@
     varIdx > values size ifTrue:[
         |wsIndex|
 
-        wsIndex := varIdx - values size.
+        wsIndex := varIdx - values size - 1.
         wsIndex <= workspaceVariableNamesInDoIts size ifTrue:[
             ^ (Workspace workspaceVariableAt:(workspaceVariableNamesInDoIts at:wsIndex)) value.
         ].
-        ^ '** oops - could not found value **'
+        ^ '** oops - could not find value **'
     ].
 
     ^ values at:varIdx.
@@ -744,10 +744,10 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.92 2014-02-19 10:37:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.93 2014-02-21 11:15:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.92 2014-02-19 10:37:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.93 2014-02-21 11:15:27 cg Exp $'
 ! !