equal
deleted
inserted
replaced
1528 |
1528 |
1529 |lbl id| |
1529 |lbl id| |
1530 |
1530 |
1531 (self class == InspectorView |
1531 (self class == InspectorView |
1532 and:[anObject inspectorClass ~~ InspectorView]) ifTrue:[ |
1532 and:[anObject inspectorClass ~~ InspectorView]) ifTrue:[ |
1533 lbl := 'BasicInspector on: %1' |
1533 lbl := 'BasicInspector on: ' |
1534 ] ifFalse:[ |
1534 ] ifFalse:[ |
1535 lbl := 'Inspector on: %1' |
1535 lbl := 'Inspector on: ' |
1536 ]. |
1536 ]. |
1537 (anObject isImmediate |
1537 (anObject isImmediate |
1538 or:[anObject isBoolean]) ifFalse:[ |
1538 or:[anObject isBoolean]) ifFalse:[ |
1539 lbl := lbl , ' <%2>' |
1539 lbl := lbl , '<%2> ' |
1540 ]. |
1540 ]. |
|
1541 lbl := lbl , '%1'. |
1541 |
1542 |
1542 IdDictionary isNil ifTrue:[ |
1543 IdDictionary isNil ifTrue:[ |
1543 IdDictionary := WeakIdentityDictionary new. |
1544 IdDictionary := WeakIdentityDictionary new. |
1544 ]. |
1545 ]. |
1545 [ |
1546 [ |
1764 ! ! |
1765 ! ! |
1765 |
1766 |
1766 !InspectorView class methodsFor:'documentation'! |
1767 !InspectorView class methodsFor:'documentation'! |
1767 |
1768 |
1768 version |
1769 version |
1769 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.156 2004-09-21 10:30:52 ca Exp $' |
1770 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.157 2004-11-11 09:51:15 cg Exp $' |
1770 ! ! |
1771 ! ! |