# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1370442362 -7200
# Node ID d971763e5d03bc4f30278fd4a44bdebd60710ab5
# Parent  6aff65697c4f50197269d712ecd915d6fd53427f
class: Tools::ViewTreeInspectorApplication

diff -r 6aff65697c4f -r d971763e5d03 Tools__ViewTreeApplication.st
--- 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
 !