UILayoutTool.st
changeset 2953 934578ff722b
parent 2949 325e4c28a579
child 2954 fac62f1cddaa
equal deleted inserted replaced
2952:3b055207c961 2953:934578ff722b
   844 
   844 
   845         (usePreferredWidth false)
   845         (usePreferredWidth false)
   846         (usePreferredHeight false)
   846         (usePreferredHeight false)
   847         (useDynamicPreferredWidth false)
   847         (useDynamicPreferredWidth false)
   848         (useDynamicPreferredHeight false)
   848         (useDynamicPreferredHeight false)
   849         (keepSpaceForOSXResizeHandle false)
   849         (keepSpaceForOSXResizeHandleV false)
       
   850         (keepSpaceForOSXResizeHandleH false)
   850     )
   851     )
   851 
   852 
   852     do:[:aKeyOrPair| |holder key val|
   853     do:[:aKeyOrPair| |holder key val|
   853         (key := aKeyOrPair) isSymbol ifFalse:[
   854         (key := aKeyOrPair) isSymbol ifFalse:[
   854             key := aKeyOrPair first.
   855             key := aKeyOrPair first.
  1728 'Set layout to fill all of the widgets container'
  1729 'Set layout to fill all of the widgets container'
  1729 
  1730 
  1730 #horizontalFixPartLayout
  1731 #horizontalFixPartLayout
  1731 'Set layout for a small fixed-height area centered vertically in the widgets container'
  1732 'Set layout for a small fixed-height area centered vertically in the widgets container'
  1732 
  1733 
  1733 #keepSpaceForOSXResizeHandle
  1734 #keepSpaceForOSXResizeHandleH
  1734 'Keep space at the right for the window resize handle under MAXOS-X; ignored when running on other systems'
  1735 'Keep space at the right for the window resize handle under MAXOS-X; ignored when running on other systems'
       
  1736 
       
  1737 #keepSpaceForOSXResizeHandleV
       
  1738 'Keep space at the bottom for the window resize handle under MAXOS-X; ignored when running on other systems'
  1735 
  1739 
  1736 #leftFixPartLayout
  1740 #leftFixPartLayout
  1737 'Set layout for a small fixed area at the left of the widgets container'
  1741 'Set layout for a small fixed area at the left of the widgets container'
  1738 
  1742 
  1739 #leftHalfLayout
  1743 #leftHalfLayout
  2224         window: 
  2228         window: 
  2225        (WindowSpec
  2229        (WindowSpec
  2226           label: 'UILayoutTool-LayoutFrame'
  2230           label: 'UILayoutTool-LayoutFrame'
  2227           name: 'UILayoutTool-LayoutFrame'
  2231           name: 'UILayoutTool-LayoutFrame'
  2228           min: (Point 10 10)
  2232           min: (Point 10 10)
  2229           bounds: (Rectangle 0 0 518 376)
  2233           bounds: (Rectangle 0 0 527 393)
  2230         )
  2234         )
  2231         component: 
  2235         component: 
  2232        (SpecCollection
  2236        (SpecCollection
  2233           collection: (
  2237           collection: (
  2234            (UISubSpecification
  2238            (UISubSpecification
  2238               minorKey: layoutOriginSpec
  2242               minorKey: layoutOriginSpec
  2239             )
  2243             )
  2240            (FramedBoxSpec
  2244            (FramedBoxSpec
  2241               label: 'Corner'
  2245               label: 'Corner'
  2242               name: 'FramedBox'
  2246               name: 'FramedBox'
  2243               layout: (LayoutFrame 1 0.0 113 0 0 1.0 242 0)
  2247               layout: (LayoutFrame 1 0.0 113 0 0 1.0 266 0)
  2244               labelPosition: topLeft
  2248               labelPosition: topLeft
  2245               translateLabel: true
  2249               translateLabel: true
  2246               component: 
  2250               component: 
  2247              (SpecCollection
  2251              (SpecCollection
  2248                 collection: (
  2252                 collection: (
  2395                     activeHelpKey: useDynamicPreferredWidth
  2399                     activeHelpKey: useDynamicPreferredWidth
  2396                     model: useDynamicPreferredHeight
  2400                     model: useDynamicPreferredHeight
  2397                     translateLabel: true
  2401                     translateLabel: true
  2398                   )
  2402                   )
  2399                  (CheckBoxSpec
  2403                  (CheckBoxSpec
  2400                     label: 'OSX-Resize'
  2404                     label: 'OSX-ResizeH'
  2401                     name: 'CheckBox5'
  2405                     name: 'OSXResizeH Checkbox'
  2402                     layout: (LayoutFrame 287 0 70 0 480 0 92 0)
  2406                     layout: (LayoutFrame 287 0 70 0 480 0 92 0)
  2403                     activeHelpKey: keepSpaceForOSXResizeHandle
  2407                     activeHelpKey: keepSpaceForOSXResizeHandleH
  2404                     model: keepSpaceForOSXResizeHandle
  2408                     model: keepSpaceForOSXResizeHandleH
       
  2409                     translateLabel: true
       
  2410                   )
       
  2411                  (CheckBoxSpec
       
  2412                     label: 'OSX-ResizeV'
       
  2413                     name: 'OSXResizeV Checkbox'
       
  2414                     layout: (LayoutFrame 287 0 98 0 480 0 120 0)
       
  2415                     activeHelpKey: keepSpaceForOSXResizeHandleV
       
  2416                     model: keepSpaceForOSXResizeHandleV
  2405                     translateLabel: true
  2417                     translateLabel: true
  2406                   )
  2418                   )
  2407                  )
  2419                  )
  2408                
  2420                
  2409               )
  2421               )
  2410             )
  2422             )
  2411            (MenuPanelSpec
  2423            (MenuPanelSpec
  2412               name: 'commonLayoutToolBar1'
  2424               name: 'commonLayoutToolBar1'
  2413               layout: (LayoutFrame 6 0.0 243 0 -4 1.0 275 0)
  2425               layout: (LayoutFrame 6 0.0 267 0 -4 1.0 299 0)
  2414               level: 0
  2426               level: 0
  2415               tabable: true
  2427               tabable: true
  2416               menu: commonFrameLayoutsMenu1
  2428               menu: commonFrameLayoutsMenu1
  2417               textDefault: true
  2429               textDefault: true
  2418             )
  2430             )
  2419            (MenuPanelSpec
  2431            (MenuPanelSpec
  2420               name: 'commonLayoutToolBar2'
  2432               name: 'commonLayoutToolBar2'
  2421               layout: (LayoutFrame 6 0.0 283 0 -4 1.0 315 0)
  2433               layout: (LayoutFrame 6 0.0 299 0 -4 1.0 331 0)
  2422               level: 0
  2434               level: 0
  2423               tabable: true
  2435               tabable: true
  2424               menu: commonFrameLayoutsMenu2
  2436               menu: commonFrameLayoutsMenu2
  2425               textDefault: true
  2437               textDefault: true
  2426             )
  2438             )
  2717     (self aspectFor:#usePreferredWidth) value:(aSpec usePreferredWidth).
  2729     (self aspectFor:#usePreferredWidth) value:(aSpec usePreferredWidth).
  2718     (self aspectFor:#usePreferredHeight) value:(aSpec usePreferredHeight).
  2730     (self aspectFor:#usePreferredHeight) value:(aSpec usePreferredHeight).
  2719     (self aspectFor:#useDynamicPreferredWidth) value:(aSpec useDynamicPreferredWidth).
  2731     (self aspectFor:#useDynamicPreferredWidth) value:(aSpec useDynamicPreferredWidth).
  2720     (self aspectFor:#useDynamicPreferredHeight) value:(aSpec useDynamicPreferredHeight).
  2732     (self aspectFor:#useDynamicPreferredHeight) value:(aSpec useDynamicPreferredHeight).
  2721 
  2733 
  2722     (self aspectFor:#keepSpaceForOSXResizeHandle) value:(aSpec keepSpaceForOSXResizeHandle).
  2734     (self aspectFor:#keepSpaceForOSXResizeHandleV) value:(aSpec keepSpaceForOSXResizeHandleV).
       
  2735     (self aspectFor:#keepSpaceForOSXResizeHandleH) value:(aSpec keepSpaceForOSXResizeHandleH).
  2723 !
  2736 !
  2724 
  2737 
  2725 layout
  2738 layout
  2726     "returns the current layout as layoutFrame
  2739     "returns the current layout as layoutFrame
  2727     "
  2740     "