--- a/InspectorView.st Thu Dec 01 09:29:26 2016 +0000
+++ b/InspectorView.st Sat Dec 03 09:29:15 2016 +0000
@@ -2896,7 +2896,7 @@
s nextPutAll:' ...'.
^ s contents.
].
- s := someValue classNameWithArticle.
+ s := someValue class nameWithArticle.
displayStringMessage == #displayString ifTrue:[
s := s , ' "error in displayString: ' , ex description , '"'
] ifFalse:[
@@ -2971,10 +2971,8 @@
sel := self listEntryAt:idx.
sel isNil ifTrue:[^ someValue].
- object isProtoObject ifFalse:[
- extraAttributes := object inspectorExtraAttributes.
- ].
- (extraAttributes notNil and:[extraAttributes includesKey:sel]) ifTrue:[
+ extraAttributes := self myObjectsInspectorExtraAttributes.
+ (extraAttributes includesKey:sel) ifTrue:[
^ someValue "(extraAttributes at:sel) value" printString
].
@@ -3273,18 +3271,7 @@
!
derivedFields
- "the check below is not sufficient - if some proxy catches messages, for example.
- Therefore, we do a manual lookup here:"
-
- (object class whichClassIncludesSelector:#inspectorExtraAttributes) isNil ifTrue:[
- ^ #()
- ].
- ^ [object inspectorExtraAttributes]
- on: MessageNotUnderstood
- do: [:ex | ex return: #() ]
-
- "Created: / 17-07-2006 / 11:02:32 / cg"
- "Modified: / 29-08-2006 / 13:03:31 / cg"
+ ^ self myObjectsInspectorExtraAttributes
!
extraNamedFieldNames
@@ -3638,6 +3625,21 @@
"Created: / 16-05-2012 / 17:53:39 / cg"
!
+myObjectsInspectorExtraAttributes
+
+ "the MessageNotUnderstood check below is not sufficient - if some proxy catches messages, for example.
+ Therefore, we do a manual lookup here:"
+ (object class canUnderstand:#inspectorExtraAttributes) ifFalse:[
+ ^ #()
+ ].
+ ^ [object inspectorExtraAttributes]
+ on: MessageNotUnderstood
+ do: [:ex | ex return: #() ]
+
+ "Created: / 17-07-2006 / 11:02:32 / cg"
+ "Modified: / 29-08-2006 / 13:03:31 / cg"
+!
+
namedFieldAt:idx
|val|
@@ -3927,8 +3929,8 @@
valueForSpecialLine:line
|idx fieldEntry extraAttributes fields|
- extraAttributes := object inspectorExtraAttributes.
- (extraAttributes notNil and:[ extraAttributes includesKey:line ]) ifTrue:[
+ extraAttributes := self myObjectsInspectorExtraAttributes.
+ (extraAttributes includesKey:line) ifTrue:[
^ (extraAttributes at:line) value
].