1350 extraNamedFieldList := OrderedCollection new. |
1350 extraNamedFieldList := OrderedCollection new. |
1351 |
1351 |
1352 self hasSelfEntry ifTrue:[ |
1352 self hasSelfEntry ifTrue:[ |
1353 self suppressPseudoSlots ifFalse:[ |
1353 self suppressPseudoSlots ifFalse:[ |
1354 derivedFieldList := OrderedCollection new. |
1354 derivedFieldList := OrderedCollection new. |
1355 derivedFieldList add:'-' , 'self' asText allItalic. |
1355 derivedFieldList add:'-' , 'self' allItalic. |
1356 derivedFieldList add:'-' , 'local messages' asText allItalic. |
1356 derivedFieldList add:'-' , 'local messages' allItalic. |
1357 "/ derivedFieldList add:'-' , 'inherited messages' asText allItalic. |
1357 "/ derivedFieldList add:'-' , 'inherited messages' allItalic. |
1358 derivedFieldList add:'-' , 'all messages' asText allItalic. |
1358 derivedFieldList add:'-' , 'all messages' allItalic. |
1359 derivedFieldList add:'-' , 'hash' asText allItalic. |
1359 derivedFieldList add:'-' , 'hash' allItalic. |
1360 derivedFieldList add:'-' , 'identityHash' asText allItalic. |
1360 derivedFieldList add:'-' , 'identityHash' allItalic. |
1361 |
1361 |
1362 cls hasImmediateInstances ifFalse:[ |
1362 cls hasImmediateInstances ifFalse:[ |
1363 inspectedObject dependents notEmptyOrNil ifTrue:[ |
1363 inspectedObject dependents notEmptyOrNil ifTrue:[ |
1364 derivedFieldList add:'-' , 'dependents' asText allItalic. |
1364 derivedFieldList add:'-' , 'dependents' allItalic. |
1365 ]. |
1365 ]. |
1366 ]. |
1366 ]. |
1367 cls instSize > 0 ifTrue:[ |
1367 cls instSize > 0 ifTrue:[ |
1368 derivedFieldList add:'-' , 'all inst vars' asText allItalic. |
1368 derivedFieldList add:'-' , 'all inst vars' allItalic. |
1369 ]. |
1369 ]. |
1370 (indexedList notEmptyOrNil and:[self showAllIndexedVarsInFieldList]) ifTrue:[ |
1370 (indexedList notEmptyOrNil and:[self showAllIndexedVarsInFieldList]) ifTrue:[ |
1371 derivedFieldList add:'-' , 'all indexed vars' asText allItalic. |
1371 derivedFieldList add:'-' , 'all indexed vars' allItalic. |
1372 ]. |
1372 ]. |
1373 |
1373 |
1374 derivedFieldList addAll:(self derivedFieldNames). |
1374 derivedFieldList addAll:(self derivedFieldNames). |
1375 extraNamedFieldList addAll:(self extraNamedFieldNames). |
1375 extraNamedFieldList addAll:(self extraNamedFieldNames). |
1376 ]. |
1376 ]. |