InspectorView.st
changeset 811 911e51013604
parent 810 032e13b1bfda
--- a/InspectorView.st	Sat Apr 25 13:12:57 1998 +0200
+++ b/InspectorView.st	Sat Apr 25 17:45:05 1998 +0200
@@ -73,17 +73,24 @@
 
 !InspectorView class methodsFor:'instance creation'!
 
-inspect:anInstance
+inspect:anObject
     "start inspector on an instance
     "
+    ^ self openOn:anObject
+!
+
+openOn:anObject
+    "start an inspector on some object
+    "
+
     |top isp|
 
     top := StandardSystemView new extent:600@400.
     isp := InspectorView origin:0.0@0.0  corner:1.0@1.0 in:top.
-    isp inspect:anInstance.
+    isp inspect:anObject.
     top open.
 
-  ^ isp.
+    ^ isp.
 ! !
 
 !InspectorView methodsFor:'accessing'!