added #openOn: for oldInspector compatibility.
--- 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'!
--- a/NewInspectorView.st Sat Apr 25 13:12:57 1998 +0200
+++ b/NewInspectorView.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'!