Tools__ViewTreeApplication.st
changeset 3183 cd02c3731897
parent 3174 cd45c49a0d63
child 3184 7ff3f8fb0b79
--- 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