equal
deleted
inserted
replaced
282 "inspect a new instance; update contents |
282 "inspect a new instance; update contents |
283 " |
283 " |
284 (inspectorList inspectedObject) == anObject ifTrue:[ |
284 (inspectorList inspectedObject) == anObject ifTrue:[ |
285 ^ self update |
285 ^ self update |
286 ]. |
286 ]. |
287 inspectorList := InspectorList for:anObject. |
287 inspectorList := NewInspectorList for:anObject. |
288 inspectorList includesSelf:includesSelf. |
288 inspectorList includesSelf:includesSelf. |
289 |
289 |
290 super list:(inspectorList instanceNames). |
290 super list:(inspectorList instanceNames). |
291 ! ! |
291 ! ! |
292 |
292 |