equal
deleted
inserted
replaced
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 |