# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1423656154 -3600
# Node ID cd02c37318979b3d34d365f473b32431f00e7fa9
# Parent  c7579f84fa6bf60e904be5fba03495d887cf7af7
class: Tools::ViewTreeInspectorApplication
changed: #submenuGeometry:

diff -r c7579f84fa6b -r cd02c3731897 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