equal
deleted
inserted
replaced
747 |
747 |
748 inspectedObject isNil ifTrue:[^ #()]. |
748 inspectedObject isNil ifTrue:[^ #()]. |
749 |
749 |
750 cls := inspectedObject class. |
750 cls := inspectedObject class. |
751 |
751 |
752 self windowGroup withWaitCursorDo:[ |
752 self topView withWaitCursorDo:[ |
753 aList := self namedFieldList. |
753 aList := self namedFieldList. |
754 hideReceiver ifFalse:[aList addFirst:'self']. |
754 hideReceiver ifFalse:[aList addFirst:'self']. |
755 |
755 |
756 aList addAll:(self indexedFieldList). |
756 aList addAll:(self indexedFieldList). |
757 ]. |
757 ]. |
1153 ! ! |
1153 ! ! |
1154 |
1154 |
1155 !InspectorView class methodsFor:'documentation'! |
1155 !InspectorView class methodsFor:'documentation'! |
1156 |
1156 |
1157 version |
1157 version |
1158 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.92 1999-07-16 17:26:13 cg Exp $' |
1158 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.93 1999-07-16 20:05:34 cg Exp $' |
1159 ! ! |
1159 ! ! |