--- a/Tools__ViewTreeApplication.st Wed Jun 05 15:24:03 2013 +0200
+++ b/Tools__ViewTreeApplication.st Wed Jun 05 16:26:02 2013 +0200
@@ -2197,7 +2197,7 @@
!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'displaying'!
additionalLabelForItem:anItem
- "answer an additional item for an Item or nil"
+ "answer an additional label for an Item"
parent notNil ifTrue:[
^ parent additionalLabelForItem:anItem
@@ -4017,11 +4017,13 @@
additionalLabelForItem:anItem
"answer the additional lable for an item or nil"
- |l applClass applClassName|
+ |widget l applClass applClassName key|
+
+ widget := anItem widget.
l := nil.
showWidgetNames == true ifTrue:[
- l := '"', anItem widget name, '"'
+ l := '"', widget name, '"'
].
anItem isApplicationClass ifTrue:[
@@ -4031,6 +4033,14 @@
l := (l isNil ifTrue:[''] ifFalse:[l , ' ']) , applClassName
].
].
+
+ application notNil ifTrue:[
+ key := application builder namedComponents keyAtValue:widget ifAbsent:nil.
+ key notNil ifTrue:[
+ l := l , ' #',key
+ ].
+ ].
+
^ l
!