UILayoutTool.st
changeset 2379 d54bd94c8090
parent 2365 b63bf46bc18a
child 2478 d0ea9b4d0955
equal deleted inserted replaced
2378:6db49934cd0e 2379:d54bd94c8090
   837         topFraction             topOffset
   837         topFraction             topOffset
   838         rightFraction           rightOffset
   838         rightFraction           rightOffset
   839         leftAlignmentFraction   topAlignmentFraction
   839         leftAlignmentFraction   topAlignmentFraction
   840         (useDefaultExtent     false)
   840         (useDefaultExtent     false)
   841         (defaultExtentEnabled false)
   841         (defaultExtentEnabled false)
       
   842 
       
   843         (usePreferredWidth false)
       
   844         (usePreferredHeight false)
       
   845         (useDynamicPreferredWidth false)
       
   846         (useDynamicPreferredHeight false)
   842     )
   847     )
   843 
   848 
   844     do:[:aKeyOrPair| |holder key val|
   849     do:[:aKeyOrPair| |holder key val|
   845         (key := aKeyOrPair) isSymbol ifFalse:[
   850         (key := aKeyOrPair) isSymbol ifFalse:[
   846             key := aKeyOrPair first.
   851             key := aKeyOrPair first.
   854     slices  := self class slices.
   859     slices  := self class slices.
   855     size    := slices size - 1.
   860     size    := slices size - 1.
   856     tabList := Array new:size.
   861     tabList := Array new:size.
   857 
   862 
   858     1 to:size do:[:i| tabList at:i put:((slices at:i) first) ].
   863     1 to:size do:[:i| tabList at:i put:((slices at:i) first) ].
   859 
       
   860 
       
   861 ! !
   864 ! !
   862 
   865 
   863 !UILayoutTool methodsFor:'selection'!
   866 !UILayoutTool methodsFor:'selection'!
   864 
   867 
   865 selectedSlice
   868 selectedSlice
  2148         window: 
  2151         window: 
  2149        (WindowSpec
  2152        (WindowSpec
  2150           label: 'UILayoutTool-LayoutFrame'
  2153           label: 'UILayoutTool-LayoutFrame'
  2151           name: 'UILayoutTool-LayoutFrame'
  2154           name: 'UILayoutTool-LayoutFrame'
  2152           min: (Point 10 10)
  2155           min: (Point 10 10)
  2153           bounds: (Rectangle 0 0 399 303)
  2156           bounds: (Rectangle 0 0 511 302)
  2154           forceRecursiveBackground: false
       
  2155         )
  2157         )
  2156         component: 
  2158         component: 
  2157        (SpecCollection
  2159        (SpecCollection
  2158           collection: (
  2160           collection: (
  2159            (UISubSpecification
  2161            (UISubSpecification
  2286                     layout: (LayoutFrame 257 0 42 0 279 0 64 0)
  2288                     layout: (LayoutFrame 257 0 42 0 279 0 64 0)
  2287                     activeHelpKey: makeBottomRelativeFromBottom
  2289                     activeHelpKey: makeBottomRelativeFromBottom
  2288                     hasCharacterOrientedLabel: false
  2290                     hasCharacterOrientedLabel: false
  2289                     tabable: true
  2291                     tabable: true
  2290                     model: bottomRelativeBottom
  2292                     model: bottomRelativeBottom
       
  2293                   )
       
  2294                  (CheckBoxSpec
       
  2295                     label: 'Use Preferred'
       
  2296                     name: 'CheckBox1'
       
  2297                     layout: (LayoutFrame 287 0 14 0 393 0 36 0)
       
  2298                     model: usePreferredWidth
       
  2299                     translateLabel: true
       
  2300                   )
       
  2301                  (CheckBoxSpec
       
  2302                     label: 'Use Preferred'
       
  2303                     name: 'CheckBox2'
       
  2304                     layout: (LayoutFrame 287 0 42 0 393 0 64 0)
       
  2305                     model: usePreferredHeight
       
  2306                     translateLabel: true
       
  2307                   )
       
  2308                  (CheckBoxSpec
       
  2309                     label: 'Dynamic'
       
  2310                     name: 'CheckBox3'
       
  2311                     layout: (LayoutFrame 394 0 14 0 471 0 36 0)
       
  2312                     model: useDynamicPreferredWidth
       
  2313                     translateLabel: true
       
  2314                   )
       
  2315                  (CheckBoxSpec
       
  2316                     label: 'Dynamic'
       
  2317                     name: 'CheckBox4'
       
  2318                     layout: (LayoutFrame 394 0 42 0 471 0 64 0)
       
  2319                     model: useDynamicPreferredHeight
       
  2320                     translateLabel: true
  2291                   )
  2321                   )
  2292                  )
  2322                  )
  2293                
  2323                
  2294               )
  2324               )
  2295             )
  2325             )
  2579 ! !
  2609 ! !
  2580 
  2610 
  2581 !UILayoutTool::LayoutFrame methodsFor:'accessing'!
  2611 !UILayoutTool::LayoutFrame methodsFor:'accessing'!
  2582 
  2612 
  2583 fetch:aView spec:aSpec
  2613 fetch:aView spec:aSpec
  2584 
       
  2585     |layout|
  2614     |layout|
  2586 
  2615 
  2587     aSpec class == WindowSpec ifTrue:[
  2616     aSpec class == WindowSpec ifTrue:[
  2588          (layout := aSpec layout) isNil ifTrue:[
  2617          (layout := aSpec layout) isNil ifTrue:[
  2589              layout := aSpec bounds asLayout.
  2618              layout := aSpec bounds asLayout.
  2598     (self aspectFor:#rightOffset)    value:(layout rightOffset).
  2627     (self aspectFor:#rightOffset)    value:(layout rightOffset).
  2599     (self aspectFor:#bottomOffset)   value:(layout bottomOffset).
  2628     (self aspectFor:#bottomOffset)   value:(layout bottomOffset).
  2600     (self aspectFor:#rightFraction)  value:(layout rightFraction).
  2629     (self aspectFor:#rightFraction)  value:(layout rightFraction).
  2601     (self aspectFor:#bottomFraction) value:(layout bottomFraction).
  2630     (self aspectFor:#bottomFraction) value:(layout bottomFraction).
  2602 
  2631 
       
  2632     (self aspectFor:#usePreferredWidth) value:(aSpec usePreferredWidth).
       
  2633     (self aspectFor:#usePreferredHeight) value:(aSpec usePreferredHeight).
       
  2634     (self aspectFor:#useDynamicPreferredWidth) value:(aSpec useDynamicPreferredWidth).
       
  2635     (self aspectFor:#useDynamicPreferredHeight) value:(aSpec useDynamicPreferredHeight).
  2603 !
  2636 !
  2604 
  2637 
  2605 layout
  2638 layout
  2606     "returns current layout as layoutFrame
  2639     "returns the current layout as layoutFrame
  2607     "
  2640     "
  2608     |layout|
  2641     |layout|
  2609 
  2642 
  2610     layout  := Smalltalk::LayoutFrame new.
  2643     layout  := Smalltalk::LayoutFrame new.
  2611 
  2644