class: Tools::ViewTreeInspectorApplication
authorClaus Gittinger <cg@exept.de>
Wed, 11 Feb 2015 13:02:34 +0100
changeset 3183 cd02c3731897
parent 3182 c7579f84fa6b
child 3184 7ff3f8fb0b79
class: Tools::ViewTreeInspectorApplication changed: #submenuGeometry:
Tools__ViewTreeApplication.st
--- a/Tools__ViewTreeApplication.st	Sat Feb 07 17:00:05 2015 +0100
+++ b/Tools__ViewTreeApplication.st	Wed Feb 11 13:02:34 2015 +0100
@@ -1636,7 +1636,20 @@
     (inst := view transformation) notNil ifTrue:[ inst := inst displayString ].
     list add:(MenuDesc title:'transformation' value:inst).
 
-  ^ MenuDesc buildFromList:list onGC:aMenu
+    (view isKindOf:Label) ifTrue:[
+        list add:(MenuDesc separator).
+        (inst := view adjust) notNil ifTrue:[ inst := inst displayString ].
+        list add:(MenuDesc title:'adjust' value:inst).
+    ].
+    (view isKindOf:PanelView) ifTrue:[
+        list add:(MenuDesc separator).
+        (inst := view horizontalLayout ) notNil ifTrue:[ inst := inst displayString ].
+        list add:(MenuDesc title:'horizontalLayout' value:inst).
+        (inst := view verticalLayout ) notNil ifTrue:[ inst := inst displayString ].
+        list add:(MenuDesc title:'verticalLayout' value:inst).
+    ].
+
+    ^ MenuDesc buildFromList:list onGC:aMenu
 !
 
 submenuInspector:aMenu