class: Tools::ViewTreeInspectorApplication
authorClaus Gittinger <cg@exept.de>
Wed, 11 Feb 2015 13:02:34 +0100
changeset 3183cd02c3731897
parent 3182 c7579f84fa6b
child 3184 7ff3f8fb0b79
class: Tools::ViewTreeInspectorApplication
changed: #submenuGeometry:
Tools__ViewTreeApplication.st
     1.1 --- a/Tools__ViewTreeApplication.st	Sat Feb 07 17:00:05 2015 +0100
     1.2 +++ b/Tools__ViewTreeApplication.st	Wed Feb 11 13:02:34 2015 +0100
     1.3 @@ -1636,7 +1636,20 @@
     1.4      (inst := view transformation) notNil ifTrue:[ inst := inst displayString ].
     1.5      list add:(MenuDesc title:'transformation' value:inst).
     1.6  
     1.7 -  ^ MenuDesc buildFromList:list onGC:aMenu
     1.8 +    (view isKindOf:Label) ifTrue:[
     1.9 +        list add:(MenuDesc separator).
    1.10 +        (inst := view adjust) notNil ifTrue:[ inst := inst displayString ].
    1.11 +        list add:(MenuDesc title:'adjust' value:inst).
    1.12 +    ].
    1.13 +    (view isKindOf:PanelView) ifTrue:[
    1.14 +        list add:(MenuDesc separator).
    1.15 +        (inst := view horizontalLayout ) notNil ifTrue:[ inst := inst displayString ].
    1.16 +        list add:(MenuDesc title:'horizontalLayout' value:inst).
    1.17 +        (inst := view verticalLayout ) notNil ifTrue:[ inst := inst displayString ].
    1.18 +        list add:(MenuDesc title:'verticalLayout' value:inst).
    1.19 +    ].
    1.20 +
    1.21 +    ^ MenuDesc buildFromList:list onGC:aMenu
    1.22  !
    1.23  
    1.24  submenuInspector:aMenu