diff -r 032e13b1bfda -r 911e51013604 InspectorView.st --- 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'!