--- a/OCInspView.st	Sun Jan 16 05:00:29 1994 +0100
+++ b/OCInspView.st	Sun Jan 16 05:02:19 1994 +0100
@@ -11,10 +11,10 @@
 "
 
 InspectorView subclass:#OrderedCollectionInspectorView
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Interface-Inspector'
+         instanceVariableNames:''
+         classVariableNames:''
+         poolDictionaries:''
+         category:'Interface-Inspector'
 !
 
 !OrderedCollectionInspectorView methodsFor:'user interaction'!
@@ -31,8 +31,39 @@
         val := inspectedObject at:(lineNr - 1)
     ].
     string := val displayString.
-    workspace show:string.
+    workspace paste:string.
     selectedLine := lineNr
+!
+
+doAccept:theText
+    |value|
+
+    value := Compiler evaluate:theText
+                      receiver:inspectedObject 
+                     notifying:workspace.
+
+    inspectedValues isNil ifTrue:[
+        selectedLine notNil ifTrue:[
+            selectedLine == 1 ifFalse:[
+                inspectedObject at:selectedLine - 1 put:value.
+                inspectedObject changed
+            ]
+        ]
+    ].
+!
+
+doInspect
+    "user selected inspect-menu entry"
+
+    selectedLine notNil ifTrue:[
+        inspectedValues isNil ifTrue:[
+            (selectedLine == 1) ifTrue:[
+                inspectedObject inspect
+            ] ifFalse:[
+                (inspectedObject at:selectedLine - 1) inspect
+            ]
+        ].
+    ]
 ! !
 
 !OrderedCollectionInspectorView methodsFor:'accessing'!
@@ -61,4 +92,3 @@
     ].
     ^ aList
 ! !
-