class: Tools::ViewTreeInspectorApplication
authorClaus Gittinger <cg@exept.de>
Wed, 05 Jun 2013 16:26:02 +0200
changeset 3017d971763e5d03
parent 3016 6aff65697c4f
child 3018 31dc0e6c143e
class: Tools::ViewTreeInspectorApplication
Tools__ViewTreeApplication.st
     1.1 --- a/Tools__ViewTreeApplication.st	Wed Jun 05 15:24:03 2013 +0200
     1.2 +++ b/Tools__ViewTreeApplication.st	Wed Jun 05 16:26:02 2013 +0200
     1.3 @@ -2197,7 +2197,7 @@
     1.4  !ViewTreeInspectorApplication::ViewTreeItem methodsFor:'displaying'!
     1.5  
     1.6  additionalLabelForItem:anItem
     1.7 -    "answer an additional item for an Item or nil"
     1.8 +    "answer an additional label for an Item"
     1.9  
    1.10      parent notNil ifTrue:[
    1.11          ^ parent additionalLabelForItem:anItem
    1.12 @@ -4017,11 +4017,13 @@
    1.13  additionalLabelForItem:anItem
    1.14      "answer the additional lable for an item or nil"
    1.15  
    1.16 -    |l applClass applClassName|
    1.17 +    |widget l applClass applClassName key|
    1.18 +
    1.19 +    widget := anItem widget.
    1.20  
    1.21      l := nil.
    1.22      showWidgetNames == true ifTrue:[
    1.23 -        l := '"', anItem widget name, '"'
    1.24 +        l := '"', widget name, '"'
    1.25      ].
    1.26  
    1.27      anItem isApplicationClass ifTrue:[
    1.28 @@ -4031,6 +4033,14 @@
    1.29              l := (l isNil ifTrue:[''] ifFalse:[l , ' ']) , applClassName
    1.30          ].
    1.31      ].
    1.32 +
    1.33 +    application notNil ifTrue:[
    1.34 +        key := application builder namedComponents keyAtValue:widget ifAbsent:nil.
    1.35 +        key notNil ifTrue:[
    1.36 +            l := l , ' #',key
    1.37 +        ].
    1.38 +    ].
    1.39 +
    1.40      ^ l
    1.41  !
    1.42