--- a/InspectorView.st	Sun Jan 16 05:00:29 1994 +0100
+++ b/InspectorView.st	Sun Jan 16 05:02:19 1994 +0100
@@ -33,7 +33,7 @@
 The system calls the inspector through the global variable "Inspector"
 which is bound to this class (but could be redefined).
 
-$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.6 1994-01-08 17:27:26 claus Exp $
+$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.7 1994-01-16 04:01:57 claus Exp $
 written winter 89 by claus
 '!
 
@@ -90,6 +90,8 @@
     v origin:(0.0 @ 0.0) corner:(0.3 @ 1.0).
     listView := v scrolledView.
     listView action:[:lineNr | self showSelection:lineNr].
+    listView doubleClickAction:[:lineNr | self doInspect].
+    listView ignoreReselect:false.
 
     workspace := CodeView origin:(0.3 @ 0.0) corner:(1.0 @ 1.0) in:panel.
     nShown := 100
@@ -198,9 +200,9 @@
 
     workspace contents:nil.
     workspace doItAction:[:theCode |
-        Compiler evaluate:theCode
-                 receiver:inspectedObject 
-                notifying:workspace
+        inspectedObject class compiler evaluate:theCode
+                                       receiver:inspectedObject 
+                                      notifying:workspace
     ].
 
 "