equal
deleted
inserted
replaced
71 " |
71 " |
72 ! ! |
72 ! ! |
73 |
73 |
74 !InspectorView class methodsFor:'instance creation'! |
74 !InspectorView class methodsFor:'instance creation'! |
75 |
75 |
76 inspect:anInstance |
76 inspect:anObject |
77 "start inspector on an instance |
77 "start inspector on an instance |
78 " |
78 " |
|
79 ^ self openOn:anObject |
|
80 ! |
|
81 |
|
82 openOn:anObject |
|
83 "start an inspector on some object |
|
84 " |
|
85 |
79 |top isp| |
86 |top isp| |
80 |
87 |
81 top := StandardSystemView new extent:600@400. |
88 top := StandardSystemView new extent:600@400. |
82 isp := InspectorView origin:0.0@0.0 corner:1.0@1.0 in:top. |
89 isp := InspectorView origin:0.0@0.0 corner:1.0@1.0 in:top. |
83 isp inspect:anInstance. |
90 isp inspect:anObject. |
84 top open. |
91 top open. |
85 |
92 |
86 ^ isp. |
93 ^ isp. |
87 ! ! |
94 ! ! |
88 |
95 |
89 !InspectorView methodsFor:'accessing'! |
96 !InspectorView methodsFor:'accessing'! |
90 |
97 |
91 inspect:anInstance |
98 inspect:anInstance |