UILayoutTool.st
changeset 2953 934578ff722b
parent 2949 325e4c28a579
child 2954 fac62f1cddaa
--- a/UILayoutTool.st	Fri Jan 25 00:38:43 2013 +0100
+++ b/UILayoutTool.st	Fri Jan 25 00:39:54 2013 +0100
@@ -846,7 +846,8 @@
         (usePreferredHeight false)
         (useDynamicPreferredWidth false)
         (useDynamicPreferredHeight false)
-        (keepSpaceForOSXResizeHandle false)
+        (keepSpaceForOSXResizeHandleV false)
+        (keepSpaceForOSXResizeHandleH false)
     )
 
     do:[:aKeyOrPair| |holder key val|
@@ -1730,9 +1731,12 @@
 #horizontalFixPartLayout
 'Set layout for a small fixed-height area centered vertically in the widgets container'
 
-#keepSpaceForOSXResizeHandle
+#keepSpaceForOSXResizeHandleH
 'Keep space at the right for the window resize handle under MAXOS-X; ignored when running on other systems'
 
+#keepSpaceForOSXResizeHandleV
+'Keep space at the bottom for the window resize handle under MAXOS-X; ignored when running on other systems'
+
 #leftFixPartLayout
 'Set layout for a small fixed area at the left of the widgets container'
 
@@ -2226,7 +2230,7 @@
           label: 'UILayoutTool-LayoutFrame'
           name: 'UILayoutTool-LayoutFrame'
           min: (Point 10 10)
-          bounds: (Rectangle 0 0 518 376)
+          bounds: (Rectangle 0 0 527 393)
         )
         component: 
        (SpecCollection
@@ -2240,7 +2244,7 @@
            (FramedBoxSpec
               label: 'Corner'
               name: 'FramedBox'
-              layout: (LayoutFrame 1 0.0 113 0 0 1.0 242 0)
+              layout: (LayoutFrame 1 0.0 113 0 0 1.0 266 0)
               labelPosition: topLeft
               translateLabel: true
               component: 
@@ -2397,11 +2401,19 @@
                     translateLabel: true
                   )
                  (CheckBoxSpec
-                    label: 'OSX-Resize'
-                    name: 'CheckBox5'
+                    label: 'OSX-ResizeH'
+                    name: 'OSXResizeH Checkbox'
                     layout: (LayoutFrame 287 0 70 0 480 0 92 0)
-                    activeHelpKey: keepSpaceForOSXResizeHandle
-                    model: keepSpaceForOSXResizeHandle
+                    activeHelpKey: keepSpaceForOSXResizeHandleH
+                    model: keepSpaceForOSXResizeHandleH
+                    translateLabel: true
+                  )
+                 (CheckBoxSpec
+                    label: 'OSX-ResizeV'
+                    name: 'OSXResizeV Checkbox'
+                    layout: (LayoutFrame 287 0 98 0 480 0 120 0)
+                    activeHelpKey: keepSpaceForOSXResizeHandleV
+                    model: keepSpaceForOSXResizeHandleV
                     translateLabel: true
                   )
                  )
@@ -2410,7 +2422,7 @@
             )
            (MenuPanelSpec
               name: 'commonLayoutToolBar1'
-              layout: (LayoutFrame 6 0.0 243 0 -4 1.0 275 0)
+              layout: (LayoutFrame 6 0.0 267 0 -4 1.0 299 0)
               level: 0
               tabable: true
               menu: commonFrameLayoutsMenu1
@@ -2418,7 +2430,7 @@
             )
            (MenuPanelSpec
               name: 'commonLayoutToolBar2'
-              layout: (LayoutFrame 6 0.0 283 0 -4 1.0 315 0)
+              layout: (LayoutFrame 6 0.0 299 0 -4 1.0 331 0)
               level: 0
               tabable: true
               menu: commonFrameLayoutsMenu2
@@ -2719,7 +2731,8 @@
     (self aspectFor:#useDynamicPreferredWidth) value:(aSpec useDynamicPreferredWidth).
     (self aspectFor:#useDynamicPreferredHeight) value:(aSpec useDynamicPreferredHeight).
 
-    (self aspectFor:#keepSpaceForOSXResizeHandle) value:(aSpec keepSpaceForOSXResizeHandle).
+    (self aspectFor:#keepSpaceForOSXResizeHandleV) value:(aSpec keepSpaceForOSXResizeHandleV).
+    (self aspectFor:#keepSpaceForOSXResizeHandleH) value:(aSpec keepSpaceForOSXResizeHandleH).
 !
 
 layout