diff -r ebb32d3a997e -r 8734833de8fe UILayoutTool.st --- a/UILayoutTool.st Wed Sep 04 21:52:31 2013 +0200 +++ b/UILayoutTool.st Wed Sep 04 21:52:50 2013 +0200 @@ -191,161 +191,165 @@ ^ - #(FullSpec - name: layoutOriginSpec - window: - (WindowSpec - label: 'UILayoutTool' - name: 'UILayoutTool' - min: (Point 10 10) - bounds: (Rectangle 0 0 345 107) - ) - component: - (SpecCollection - collection: ( - (FramedBoxSpec - label: 'Origin' - name: 'FramedBox' - layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 108 0) - labelPosition: topLeft - translateLabel: true - component: - (SpecCollection - collection: ( - (LabelSpec - label: 'Relative:' - name: 'labelRelative' - layout: (Point 103 6) - translateLabel: true - ) - (LabelSpec - label: 'Offset:' - name: 'labelAbsolute' - layout: (Point 203 6) - translateLabel: true - ) - (LabelSpec - label: 'Left:' - name: 'labelLeft' - layout: (AlignmentOrigin 68 0 27 0 1 0) - translateLabel: true - ) - (ActionButtonSpec - label: 'imageFractX' - name: 'actionRelativeLeft' - layout: (LayoutFrame 77 0 24 0 99 0 46 0) - activeHelpKey: makeLeftRelative - hasCharacterOrientedLabel: false - tabable: true - model: relativeLeft - ) - (InputFieldSpec - name: 'fieldLeftFraction' - layout: (LayoutFrame 102 0 25 0 152 0 47 0) - activeHelpKey: leftRelative - tabable: true - model: leftFraction - group: inputGroup - type: numberOrNil - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (ActionButtonSpec - label: 'imageAbsX' - name: 'actionAbsoluteLeft' - layout: (LayoutFrame 178 0 24 0 200 0 46 0) - activeHelpKey: makeLeftAbsolute - hasCharacterOrientedLabel: false - tabable: true - model: absoluteLeft - ) - (InputFieldSpec - name: 'fieldLeftOffset' - layout: (LayoutFrame 203 0 24 0 253 0 46 0) - activeHelpKey: leftAbsolute - tabable: true - model: leftOffset - group: inputGroup - type: numberOrNil - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (ActionButtonSpec - label: 'imageAbsXFromRight' - name: 'actionRightRelativeLeft' - layout: (LayoutFrame 257 0 24 0 279 0 46 0) - activeHelpKey: makeLeftRelativeFromRight - hasCharacterOrientedLabel: false - tabable: true - model: rightRelativeLeft - ) - (LabelSpec - label: 'Top:' - name: 'labelTop' - layout: (AlignmentOrigin 68 0 54 0 1 0) - translateLabel: true - ) - (ActionButtonSpec - label: 'imageFractY' - name: 'actionRelativeTop' - layout: (LayoutFrame 77 0 51 0 99 0 73 0) - activeHelpKey: makeTopRelative - hasCharacterOrientedLabel: false - tabable: true - model: relativeTop - ) - (InputFieldSpec - name: 'fieldTopFraction' - layout: (LayoutFrame 103 0 51 0 153 0 73 0) - activeHelpKey: topRelative - tabable: true - model: topFraction - group: inputGroup - type: numberOrNil - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (ActionButtonSpec - label: 'imageAbsY' - name: 'actionAbsoluteTop' - layout: (LayoutFrame 178 0 51 0 200 0 73 0) - activeHelpKey: makeTopAbsolute - hasCharacterOrientedLabel: false - tabable: true - model: absoluteTop - ) - (InputFieldSpec - name: 'fieldTopOffset' - layout: (LayoutFrame 203 0 51 0 253 0 73 0) - activeHelpKey: topAbsolute - tabable: true - model: topOffset - group: inputGroup - type: numberOrNil - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (ActionButtonSpec - label: 'imageAbsYFromBottom' - name: 'actionBottomRelativeTop' - layout: (LayoutFrame 257 0 51 0 279 0 73 0) - activeHelpKey: makeTopRelativeFromBottom - hasCharacterOrientedLabel: false - tabable: true - model: bottomRelativeTop - ) + #(FullSpec + name: layoutOriginSpec + window: + (WindowSpec + label: 'UILayoutTool' + name: 'UILayoutTool' + min: (Point 10 10) + bounds: (Rectangle 0 0 345 107) + ) + component: + (SpecCollection + collection: ( + (FramedBoxSpec + label: 'Origin' + name: 'FramedBox' + layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 108 0) + labelPosition: topLeft + translateLabel: true + component: + (SpecCollection + collection: ( + (LabelSpec + label: 'Relative:' + name: 'labelRelative' + layout: (Point 103 6) + translateLabel: true + ) + (LabelSpec + label: 'Offset:' + name: 'labelAbsolute' + layout: (Point 203 6) + translateLabel: true + ) + (LabelSpec + label: 'Left:' + name: 'labelLeft' + layout: (AlignmentOrigin 68 0 27 0 1 0) + translateLabel: true + ) + (ActionButtonSpec + label: 'imageFractX' + name: 'actionRelativeLeft' + layout: (LayoutFrame 77 0 24 0 99 0 46 0) + activeHelpKey: makeLeftRelative + hasCharacterOrientedLabel: false + tabable: true + model: relativeLeft + ) + (InputFieldSpec + name: 'fieldLeftFraction' + layout: (LayoutFrame 102 0 25 0 152 0 47 0) + activeHelpKey: leftRelative + tabable: true + model: leftFraction + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + (ActionButtonSpec + label: 'imageAbsX' + name: 'actionAbsoluteLeft' + layout: (LayoutFrame 178 0 24 0 200 0 46 0) + activeHelpKey: makeLeftAbsolute + hasCharacterOrientedLabel: false + tabable: true + model: absoluteLeft ) - - ) - ) + (InputFieldSpec + name: 'fieldLeftOffset' + layout: (LayoutFrame 203 0 24 0 253 0 46 0) + activeHelpKey: leftAbsolute + tabable: true + model: leftOffset + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + (ActionButtonSpec + label: 'imageAbsXFromRight' + name: 'actionRightRelativeLeft' + layout: (LayoutFrame 257 0 24 0 279 0 46 0) + activeHelpKey: makeLeftRelativeFromRight + hasCharacterOrientedLabel: false + tabable: true + model: rightRelativeLeft + ) + (LabelSpec + label: 'Top:' + name: 'labelTop' + layout: (AlignmentOrigin 68 0 54 0 1 0) + translateLabel: true + ) + (ActionButtonSpec + label: 'imageFractY' + name: 'actionRelativeTop' + layout: (LayoutFrame 77 0 51 0 99 0 73 0) + activeHelpKey: makeTopRelative + hasCharacterOrientedLabel: false + tabable: true + model: relativeTop + ) + (InputFieldSpec + name: 'fieldTopFraction' + layout: (LayoutFrame 103 0 51 0 153 0 73 0) + activeHelpKey: topRelative + tabable: true + model: topFraction + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + (ActionButtonSpec + label: 'imageAbsY' + name: 'actionAbsoluteTop' + layout: (LayoutFrame 178 0 51 0 200 0 73 0) + activeHelpKey: makeTopAbsolute + hasCharacterOrientedLabel: false + tabable: true + model: absoluteTop + ) + (InputFieldSpec + name: 'fieldTopOffset' + layout: (LayoutFrame 203 0 51 0 253 0 73 0) + activeHelpKey: topAbsolute + tabable: true + model: topOffset + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + (ActionButtonSpec + label: 'imageAbsYFromBottom' + name: 'actionBottomRelativeTop' + layout: (LayoutFrame 257 0 51 0 279 0 73 0) + activeHelpKey: makeTopRelativeFromBottom + hasCharacterOrientedLabel: false + tabable: true + model: bottomRelativeTop + ) + ) + + ) ) - - ) - ) + ) + + ) + ) ! layoutPointSpec @@ -363,71 +367,73 @@ ^ - #(FullSpec - name: layoutPointSpec - window: - (WindowSpec - label: 'UILayoutTool' - name: 'UILayoutTool' - min: (Point 10 10) - bounds: (Rectangle 14 46 292 170) - ) - component: - (SpecCollection - collection: ( - (FramedBoxSpec - label: 'Origin' - name: 'FramedBox' - layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 94 0) - labelPosition: topLeft - translateLabel: true - component: - (SpecCollection - collection: ( - (LabelSpec - label: 'Left:' - name: 'labelOriginY' - layout: (AlignmentOrigin 83 0 14 0 1 0) - translateLabel: true - ) - (InputFieldSpec - name: 'fieldOriginX' - layout: (LayoutFrame 85 0 11 0 135 0 33 0) - activeHelpKey: originX - tabable: true - model: leftOffset - group: inputGroup - type: numberOrNil - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (LabelSpec - label: 'Top:' - name: 'labelOriginX' - layout: (AlignmentOrigin 83 0 39 0 1 0) - translateLabel: true - ) - (InputFieldSpec - name: 'fieldOriginY' - layout: (LayoutFrame 85 0 36 0 135 0 58 0) - activeHelpKey: originY - tabable: true - model: topOffset - group: inputGroup - type: numberOrNil - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) + #(FullSpec + name: layoutPointSpec + window: + (WindowSpec + label: 'UILayoutTool' + name: 'UILayoutTool' + min: (Point 10 10) + bounds: (Rectangle 0 0 278 124) + ) + component: + (SpecCollection + collection: ( + (FramedBoxSpec + label: 'Origin' + name: 'FramedBox' + layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 94 0) + labelPosition: topLeft + translateLabel: true + component: + (SpecCollection + collection: ( + (LabelSpec + label: 'Left:' + name: 'labelOriginY' + layout: (AlignmentOrigin 83 0 14 0 1 0) + translateLabel: true ) - - ) - ) + (InputFieldSpec + name: 'fieldOriginX' + layout: (LayoutFrame 85 0 11 0 135 0 33 0) + activeHelpKey: originX + tabable: true + model: leftOffset + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + (LabelSpec + label: 'Top:' + name: 'labelOriginX' + layout: (AlignmentOrigin 83 0 39 0 1 0) + translateLabel: true + ) + (InputFieldSpec + name: 'fieldOriginY' + layout: (LayoutFrame 85 0 36 0 135 0 58 0) + activeHelpKey: originY + tabable: true + model: topOffset + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + ) + + ) ) - - ) - ) + ) + + ) + ) ! slices @@ -1128,162 +1134,162 @@ ^ - #(FullSpec - name: windowSpec - window: - (WindowSpec - label: 'UILayoutTool-AlignmentOrigin' - name: 'UILayoutTool-AlignmentOrigin' - min: (Point 10 10) - bounds: (Rectangle 0 0 405 220) - ) - component: - (SpecCollection - collection: ( - (UISubSpecification - name: 'layoutOriginSpec' - layout: (LayoutFrame 1 0.0 6 0 0 1.0 111 0) - majorKey: UILayoutTool - minorKey: layoutOriginSpec - ) - (FramedBoxSpec - label: 'Alignment' - name: 'FramedBox' - layout: (LayoutFrame 1 0.0 113 0 0 1.0 215 0) - labelPosition: topLeft - translateLabel: true - component: - (SpecCollection - collection: ( - (LabelSpec - label: 'Horizontal:' - name: 'alignHLabel' - layout: (AlignmentOrigin 88 0 17 0 1 0) - translateLabel: true - adjust: right - ) - (InputFieldSpec - name: 'leftAlignmentFractionField' - layout: (LayoutFrame 90 0 14 0 147 0 36 0) - activeHelpKey: alignHorizontal - tabable: true - model: leftAlignmentFraction - group: inputGroup - type: numberOrNil - acceptOnLostFocus: true - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (LabelSpec - label: 'Vertical:' - name: 'alignVLabel' - layout: (AlignmentOrigin 88 0 43 0 1 0) - translateLabel: true - adjust: right - ) - (InputFieldSpec - name: 'topAlignmentFractionField' - layout: (LayoutFrame 90 0 40 0 147 0 62 0) - activeHelpKey: alignVertical - tabable: true - model: topAlignmentFraction - group: inputGroup - type: numberOrNil - acceptOnLostFocus: true - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (DividerSpec - name: 'separator1' - layout: (LayoutFrame 204 0 19 0 245 0 22 0) - ) - (DividerSpec - name: 'separator2' - layout: (LayoutFrame 204 0 55 0 245 0 58 0) - ) - (DividerSpec - name: 'separator3' - layout: (LayoutFrame 196 0 28 0 199 0 50 0) - orientation: vertical - ) - (DividerSpec - name: 'separator4' - layout: (LayoutFrame 250 0 28 0 253 0 50 0) - orientation: vertical - ) - (ActionButtonSpec - name: 'alignTopLeft' - layout: (LayoutFrame 190 0 14 0 204 0 28 0) - activeHelpKey: alignTopLeft - tabable: true - model: alignTopLeft - ) - (ActionButtonSpec - name: 'alignTopCenter' - layout: (LayoutFrame 217 0 14 0 231 0 28 0) - activeHelpKey: alignTopCenter - tabable: true - model: alignTopCenter - ) - (ActionButtonSpec - name: 'alignTopRight' - layout: (LayoutFrame 245 0 14 0 259 0 28 0) - activeHelpKey: alignTopRight - tabable: true - model: alignTopRight - ) - (ActionButtonSpec - name: 'alignLeftCenter' - layout: (LayoutFrame 190 0 32 0 204 0 46 0) - activeHelpKey: alignLeftCenter - tabable: true - model: alignLeftCenter - ) - (ActionButtonSpec - name: 'alignCenter' - layout: (LayoutFrame 217 0 32 0 231 0 46 0) - activeHelpKey: alignCenter - tabable: true - model: alignCenter - ) - (ActionButtonSpec - name: 'alignRightCenter' - layout: (LayoutFrame 245 0 32 0 259 0 46 0) - activeHelpKey: alignRightCenter - tabable: true - model: alignRightCenter - ) - (ActionButtonSpec - name: 'alignBottomLeft' - layout: (LayoutFrame 190 0 50 0 204 0 64 0) - activeHelpKey: alignBottomLeft - tabable: true - model: alignBottomLeft - ) - (ActionButtonSpec - name: 'alignBottomCenter' - layout: (LayoutFrame 217 0 50 0 231 0 64 0) - activeHelpKey: alignBottomCenter - tabable: true - model: alignBottomCenter - ) - (ActionButtonSpec - name: 'alignBottomRight' - layout: (LayoutFrame 245 0 50 0 259 0 64 0) - activeHelpKey: alignBottomRight - tabable: true - model: alignBottomRight - ) + #(FullSpec + name: windowSpec + window: + (WindowSpec + label: 'UILayoutTool-AlignmentOrigin' + name: 'UILayoutTool-AlignmentOrigin' + min: (Point 10 10) + bounds: (Rectangle 0 0 405 220) + ) + component: + (SpecCollection + collection: ( + (UISubSpecification + name: 'layoutOriginSpec' + layout: (LayoutFrame 1 0.0 6 0 0 1.0 111 0) + majorKey: UILayoutTool + minorKey: layoutOriginSpec + ) + (FramedBoxSpec + label: 'Alignment' + name: 'FramedBox' + layout: (LayoutFrame 1 0.0 113 0 0 1.0 215 0) + labelPosition: topLeft + translateLabel: true + component: + (SpecCollection + collection: ( + (LabelSpec + label: 'Horizontal:' + name: 'alignHLabel' + layout: (AlignmentOrigin 88 0 17 0 1 0) + translateLabel: true + adjust: right + ) + (InputFieldSpec + name: 'leftAlignmentFractionField' + layout: (LayoutFrame 90 0 14 0 147 0 36 0) + activeHelpKey: alignHorizontal + tabable: true + model: leftAlignmentFraction + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + (LabelSpec + label: 'Vertical:' + name: 'alignVLabel' + layout: (AlignmentOrigin 88 0 43 0 1 0) + translateLabel: true + adjust: right + ) + (InputFieldSpec + name: 'topAlignmentFractionField' + layout: (LayoutFrame 90 0 40 0 147 0 62 0) + activeHelpKey: alignVertical + tabable: true + model: topAlignmentFraction + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + (DividerSpec + name: 'separator1' + layout: (LayoutFrame 204 0 19 0 245 0 22 0) + ) + (DividerSpec + name: 'separator2' + layout: (LayoutFrame 204 0 55 0 245 0 58 0) ) - - ) - ) + (DividerSpec + name: 'separator3' + layout: (LayoutFrame 196 0 28 0 199 0 50 0) + orientation: vertical + ) + (DividerSpec + name: 'separator4' + layout: (LayoutFrame 250 0 28 0 253 0 50 0) + orientation: vertical + ) + (ActionButtonSpec + name: 'alignTopLeft' + layout: (LayoutFrame 190 0 14 0 204 0 28 0) + activeHelpKey: alignTopLeft + tabable: true + model: alignTopLeft + ) + (ActionButtonSpec + name: 'alignTopCenter' + layout: (LayoutFrame 217 0 14 0 231 0 28 0) + activeHelpKey: alignTopCenter + tabable: true + model: alignTopCenter + ) + (ActionButtonSpec + name: 'alignTopRight' + layout: (LayoutFrame 245 0 14 0 259 0 28 0) + activeHelpKey: alignTopRight + tabable: true + model: alignTopRight + ) + (ActionButtonSpec + name: 'alignLeftCenter' + layout: (LayoutFrame 190 0 32 0 204 0 46 0) + activeHelpKey: alignLeftCenter + tabable: true + model: alignLeftCenter + ) + (ActionButtonSpec + name: 'alignCenter' + layout: (LayoutFrame 217 0 32 0 231 0 46 0) + activeHelpKey: alignCenter + tabable: true + model: alignCenter + ) + (ActionButtonSpec + name: 'alignRightCenter' + layout: (LayoutFrame 245 0 32 0 259 0 46 0) + activeHelpKey: alignRightCenter + tabable: true + model: alignRightCenter + ) + (ActionButtonSpec + name: 'alignBottomLeft' + layout: (LayoutFrame 190 0 50 0 204 0 64 0) + activeHelpKey: alignBottomLeft + tabable: true + model: alignBottomLeft + ) + (ActionButtonSpec + name: 'alignBottomCenter' + layout: (LayoutFrame 217 0 50 0 231 0 64 0) + activeHelpKey: alignBottomCenter + tabable: true + model: alignBottomCenter + ) + (ActionButtonSpec + name: 'alignBottomRight' + layout: (LayoutFrame 245 0 50 0 259 0 64 0) + activeHelpKey: alignBottomRight + tabable: true + model: alignBottomRight + ) + ) + + ) ) - - ) - ) + ) + + ) + ) ! ! !UILayoutTool::AlignmentOrigin methodsFor:'accessing'! @@ -1492,129 +1498,129 @@ ^ - #(FullSpec - name: windowSpec - window: - (WindowSpec - label: 'UILayoutTool-Extent' - name: 'UILayoutTool-Extent' - min: (Point 10 10) - bounds: (Rectangle 0 0 506 169) - ) - component: - (SpecCollection - collection: ( - (FramedBoxSpec - label: 'Extent' - name: 'FramedBox' - layout: (LayoutFrame 0 0.0 6 0.0 0 1.0 158 0) - labelPosition: topLeft - translateLabel: true - component: - (SpecCollection - collection: ( - (LabelSpec - label: 'Width:' - name: 'labelWidth' - layout: (AlignmentOrigin 89 0 41 0 1 0.5) - translateLabel: true - adjust: right - ) - (InputFieldSpec - name: 'fieldLeftOffset' - layout: (LayoutFrame 90 0 30 0 140 0 52 0) - activeHelpKey: hrzExtent - enableChannel: notUsingDefaultExtent - tabable: true - model: leftOffset - group: inputGroup - type: numberOrNil - acceptOnLostFocus: true - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (LabelSpec - label: 'Height:' - name: 'labelHeight' - layout: (AlignmentOrigin 89 0 66 0 1 0.5) - translateLabel: true - adjust: right - ) - (InputFieldSpec - name: 'fieldRightOffset' - layout: (LayoutFrame 90 0 55 0 140 0 77 0) - activeHelpKey: vrtExtent - enableChannel: notUsingDefaultExtent - tabable: true - model: topOffset - group: inputGroup - type: numberOrNil - acceptOnLostFocus: true - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (CheckBoxSpec - label: 'Preferred' - name: 'CheckBox1' - layout: (LayoutFrame 169 0 30 0 275 0 52 0) - activeHelpKey: usePreferredWidth - model: usePreferredWidth - translateLabel: true - ) - (CheckBoxSpec - label: 'Dynamic' - name: 'CheckBox3' - layout: (LayoutFrame 276 0 30 0 371 0 52 0) - activeHelpKey: useDynamicPreferredWidth - model: useDynamicPreferredWidth - translateLabel: true - ) - (CheckBoxSpec - label: 'Preferred' - name: 'CheckBox2' - layout: (LayoutFrame 169 0 58 0 275 0 80 0) - activeHelpKey: usePreferredHeight - model: usePreferredHeight - translateLabel: true - ) - (CheckBoxSpec - label: 'Dynamic' - name: 'CheckBox4' - layout: (LayoutFrame 276 0 58 0 372 0 80 0) - activeHelpKey: useDynamicPreferredHeight - model: useDynamicPreferredHeight - translateLabel: true - ) - (CheckBoxSpec - label: 'Use Widget''s Default Extent' - name: 'useDefaultExtentCheckBox' - layout: (Point 5 84) - activeHelpKey: useDefaultExtent - enableChannel: defaultExtentEnabled - tabable: true - model: useDefaultExtent - translateLabel: true - ) + #(FullSpec + name: windowSpec + window: + (WindowSpec + label: 'UILayoutTool-Extent' + name: 'UILayoutTool-Extent' + min: (Point 10 10) + bounds: (Rectangle 0 0 506 169) + ) + component: + (SpecCollection + collection: ( + (FramedBoxSpec + label: 'Extent' + name: 'FramedBox' + layout: (LayoutFrame 0 0.0 6 0.0 0 1.0 158 0) + labelPosition: topLeft + translateLabel: true + component: + (SpecCollection + collection: ( + (LabelSpec + label: 'Width:' + name: 'labelWidth' + layout: (AlignmentOrigin 89 0 41 0 1 0.5) + translateLabel: true + adjust: right + ) + (InputFieldSpec + name: 'fieldLeftOffset' + layout: (LayoutFrame 90 0 30 0 140 0 52 0) + activeHelpKey: hrzExtent + enableChannel: notUsingDefaultExtent + tabable: true + model: leftOffset + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + (LabelSpec + label: 'Height:' + name: 'labelHeight' + layout: (AlignmentOrigin 89 0 66 0 1 0.5) + translateLabel: true + adjust: right ) - - ) - ) - (PopUpListSpec - label: 'Common Extents' - name: 'CommonExtentsPopUpList' - layout: (LayoutFrame 189 0 21 0 314 0 43 0) - tabable: true - menu: listOfCommonExtents - useIndex: true - ignoreReselect: false - stateChangeCallBackSelector: commonExtentSelected: - ) + (InputFieldSpec + name: 'fieldRightOffset' + layout: (LayoutFrame 90 0 55 0 140 0 77 0) + activeHelpKey: vrtExtent + enableChannel: notUsingDefaultExtent + tabable: true + model: topOffset + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + (CheckBoxSpec + label: 'Preferred' + name: 'CheckBox1' + layout: (LayoutFrame 169 0 30 0 275 0 52 0) + activeHelpKey: usePreferredWidth + model: usePreferredWidth + translateLabel: true + ) + (CheckBoxSpec + label: 'Dynamic' + name: 'CheckBox3' + layout: (LayoutFrame 276 0 30 0 371 0 52 0) + activeHelpKey: useDynamicPreferredWidth + model: useDynamicPreferredWidth + translateLabel: true + ) + (CheckBoxSpec + label: 'Preferred' + name: 'CheckBox2' + layout: (LayoutFrame 169 0 58 0 275 0 80 0) + activeHelpKey: usePreferredHeight + model: usePreferredHeight + translateLabel: true + ) + (CheckBoxSpec + label: 'Dynamic' + name: 'CheckBox4' + layout: (LayoutFrame 276 0 58 0 372 0 80 0) + activeHelpKey: useDynamicPreferredHeight + model: useDynamicPreferredHeight + translateLabel: true + ) + (CheckBoxSpec + label: 'Use Widget''s Default Extent' + name: 'useDefaultExtentCheckBox' + layout: (Point 5 84) + activeHelpKey: useDefaultExtent + enableChannel: defaultExtentEnabled + tabable: true + model: useDefaultExtent + translateLabel: true + ) + ) + + ) ) - - ) - ) + (PopUpListSpec + label: 'Common Extents' + name: 'CommonExtentsPopUpList' + layout: (LayoutFrame 189 0 21 0 314 0 43 0) + tabable: true + menu: listOfCommonExtents + useIndex: true + ignoreReselect: false + stateChangeCallBackSelector: commonExtentSelected: + ) + ) + + ) + ) ! ! !UILayoutTool::Extent methodsFor:'accessing'! @@ -2223,231 +2229,231 @@ ^ - #(FullSpec - name: windowSpec - window: - (WindowSpec - label: 'UILayoutTool-LayoutFrame' - name: 'UILayoutTool-LayoutFrame' - min: (Point 10 10) - bounds: (Rectangle 0 0 527 393) - ) - component: - (SpecCollection - collection: ( - (UISubSpecification - name: 'layoutOriginSpec' - layout: (LayoutFrame 1 0.0 6 0 0 1.0 110 0) - majorKey: UILayoutTool - minorKey: layoutOriginSpec - ) - (FramedBoxSpec - label: 'Corner' - name: 'FramedBox' - layout: (LayoutFrame 1 0.0 113 0 0 1.0 266 0) - labelPosition: topLeft - translateLabel: true - component: - (SpecCollection - collection: ( - (LabelSpec - label: 'Right:' - name: 'labelRight' - layout: (AlignmentOrigin 68 0 16 0 1 0) - translateLabel: true - ) - (ActionButtonSpec - label: 'imageFractX' - name: 'actionRelativeRight' - layout: (LayoutFrame 78 0 14 0 100 0 36 0) - activeHelpKey: makeRightRelative - hasCharacterOrientedLabel: false - tabable: true - model: relativeRight - ) - (InputFieldSpec - name: 'fieldRightFraction' - layout: (LayoutFrame 103 0 14 0 153 0 36 0) - activeHelpKey: rightRelative - tabable: true - model: rightFraction - group: inputGroup - type: numberOrNil - acceptOnLostFocus: true - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (ActionButtonSpec - label: 'imageAbsX' - name: 'actionAbsoluteRight' - layout: (LayoutFrame 178 0 14 0 200 0 36 0) - activeHelpKey: makeRightAbsolute - hasCharacterOrientedLabel: false - tabable: true - model: absoluteRight - ) - (InputFieldSpec - name: 'fieldRightOffset' - layout: (LayoutFrame 203 0 14 0 253 0 36 0) - activeHelpKey: rightAbsolute - tabable: true - model: rightOffset - group: inputGroup - type: numberOrNil - acceptOnLostFocus: true - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (ActionButtonSpec - label: 'imageAbsXFromRight' - name: 'actionRightRelativeRight' - layout: (LayoutFrame 257 0 14 0 279 0 36 0) - activeHelpKey: makeRightRelativeFromRight - hasCharacterOrientedLabel: false - tabable: true - model: rightRelativeRight - ) - (LabelSpec - label: 'Bottom:' - name: 'labelBottom' - layout: (AlignmentOrigin 68 0 44 0 1 0) - translateLabel: true - ) - (ActionButtonSpec - label: 'imageFractY' - name: 'actionRelativeBottom' - layout: (LayoutFrame 78 0 42 0 100 0 64 0) - activeHelpKey: makeBottomRelative - hasCharacterOrientedLabel: false - tabable: true - model: relativeBottom - ) - (InputFieldSpec - name: 'fieldBottomFraction' - layout: (LayoutFrame 103 0 42 0 153 0 64 0) - activeHelpKey: bottomRelative - tabable: true - model: bottomFraction - group: inputGroup - type: numberOrNil - acceptOnLostFocus: true - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (ActionButtonSpec - label: 'imageAbsY' - name: 'actionAbsoluteBottom' - layout: (LayoutFrame 178 0 42 0 200 0 64 0) - activeHelpKey: makeBottomAbsolute - hasCharacterOrientedLabel: false - tabable: true - model: absoluteBottom - ) - (InputFieldSpec - name: 'fieldBottomOffset' - layout: (LayoutFrame 203 0 42 0 253 0 64 0) - activeHelpKey: bottomAbsolute - tabable: true - model: bottomOffset - group: inputGroup - type: numberOrNil - acceptOnLostFocus: true - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (ActionButtonSpec - label: 'imageAbsYFromBottom' - name: 'actionBottomRelativeBottom' - layout: (LayoutFrame 257 0 42 0 279 0 64 0) - activeHelpKey: makeBottomRelativeFromBottom - hasCharacterOrientedLabel: false - tabable: true - model: bottomRelativeBottom - ) - (CheckBoxSpec - label: 'Preferred' - name: 'CheckBox1' - layout: (LayoutFrame 287 0 14 0 393 0 36 0) - activeHelpKey: usePreferredWidth - model: usePreferredWidth - translateLabel: true - ) - (CheckBoxSpec - label: 'Preferred' - name: 'CheckBox2' - layout: (LayoutFrame 287 0 42 0 393 0 64 0) - activeHelpKey: usePreferredHeight - model: usePreferredHeight - translateLabel: true - ) - (CheckBoxSpec - label: 'Dynamic' - name: 'CheckBox3' - layout: (LayoutFrame 394 0 14 0 481 0 36 0) - activeHelpKey: useDynamicPreferredWidth - model: useDynamicPreferredWidth - translateLabel: true - ) - (CheckBoxSpec - label: 'Dynamic' - name: 'CheckBox4' - layout: (LayoutFrame 394 0 42 0 481 0 64 0) - activeHelpKey: useDynamicPreferredWidth - model: useDynamicPreferredHeight - translateLabel: true - ) - (CheckBoxSpec - label: 'OSX-ResizeH' - name: 'OSXResizeH Checkbox' - layout: (LayoutFrame 287 0 70 0 480 0 92 0) - 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 - ) + #(FullSpec + name: windowSpec + window: + (WindowSpec + label: 'UILayoutTool-LayoutFrame' + name: 'UILayoutTool-LayoutFrame' + min: (Point 10 10) + bounds: (Rectangle 0 0 527 393) + ) + component: + (SpecCollection + collection: ( + (UISubSpecification + name: 'layoutOriginSpec' + layout: (LayoutFrame 1 0.0 6 0 0 1.0 110 0) + majorKey: UILayoutTool + minorKey: layoutOriginSpec + ) + (FramedBoxSpec + label: 'Corner' + name: 'FramedBox' + layout: (LayoutFrame 1 0.0 113 0 0 1.0 266 0) + labelPosition: topLeft + translateLabel: true + component: + (SpecCollection + collection: ( + (LabelSpec + label: 'Right:' + name: 'labelRight' + layout: (AlignmentOrigin 68 0 16 0 1 0) + translateLabel: true + ) + (ActionButtonSpec + label: 'imageFractX' + name: 'actionRelativeRight' + layout: (LayoutFrame 78 0 14 0 100 0 36 0) + activeHelpKey: makeRightRelative + hasCharacterOrientedLabel: false + tabable: true + model: relativeRight + ) + (InputFieldSpec + name: 'fieldRightFraction' + layout: (LayoutFrame 103 0 14 0 153 0 36 0) + activeHelpKey: rightRelative + tabable: true + model: rightFraction + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + (ActionButtonSpec + label: 'imageAbsX' + name: 'actionAbsoluteRight' + layout: (LayoutFrame 178 0 14 0 200 0 36 0) + activeHelpKey: makeRightAbsolute + hasCharacterOrientedLabel: false + tabable: true + model: absoluteRight + ) + (InputFieldSpec + name: 'fieldRightOffset' + layout: (LayoutFrame 203 0 14 0 253 0 36 0) + activeHelpKey: rightAbsolute + tabable: true + model: rightOffset + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + (ActionButtonSpec + label: 'imageAbsXFromRight' + name: 'actionRightRelativeRight' + layout: (LayoutFrame 257 0 14 0 279 0 36 0) + activeHelpKey: makeRightRelativeFromRight + hasCharacterOrientedLabel: false + tabable: true + model: rightRelativeRight + ) + (LabelSpec + label: 'Bottom:' + name: 'labelBottom' + layout: (AlignmentOrigin 68 0 44 0 1 0) + translateLabel: true + ) + (ActionButtonSpec + label: 'imageFractY' + name: 'actionRelativeBottom' + layout: (LayoutFrame 78 0 42 0 100 0 64 0) + activeHelpKey: makeBottomRelative + hasCharacterOrientedLabel: false + tabable: true + model: relativeBottom ) - - ) - ) - (MenuPanelSpec - name: 'commonLayoutToolBar1' - layout: (LayoutFrame 6 0.0 267 0 -4 1.0 299 0) - level: 0 - tabable: true - menu: commonFrameLayoutsMenu1 - textDefault: true - ) - (MenuPanelSpec - name: 'commonLayoutToolBar2' - layout: (LayoutFrame 6 0.0 299 0 -4 1.0 331 0) - level: 0 - tabable: true - menu: commonFrameLayoutsMenu2 - textDefault: true - ) - (MenuPanelSpec - name: 'commonLayoutToolBar3' - layout: (LayoutFrame 6 0.0 323 0 -4 1.0 355 0) - level: 0 - tabable: true - menu: commonFrameLayoutsMenu3 - textDefault: true - ) + (InputFieldSpec + name: 'fieldBottomFraction' + layout: (LayoutFrame 103 0 42 0 153 0 64 0) + activeHelpKey: bottomRelative + tabable: true + model: bottomFraction + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + (ActionButtonSpec + label: 'imageAbsY' + name: 'actionAbsoluteBottom' + layout: (LayoutFrame 178 0 42 0 200 0 64 0) + activeHelpKey: makeBottomAbsolute + hasCharacterOrientedLabel: false + tabable: true + model: absoluteBottom + ) + (InputFieldSpec + name: 'fieldBottomOffset' + layout: (LayoutFrame 203 0 42 0 253 0 64 0) + activeHelpKey: bottomAbsolute + tabable: true + model: bottomOffset + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + (ActionButtonSpec + label: 'imageAbsYFromBottom' + name: 'actionBottomRelativeBottom' + layout: (LayoutFrame 257 0 42 0 279 0 64 0) + activeHelpKey: makeBottomRelativeFromBottom + hasCharacterOrientedLabel: false + tabable: true + model: bottomRelativeBottom + ) + (CheckBoxSpec + label: 'Preferred' + name: 'CheckBox1' + layout: (LayoutFrame 287 0 14 0 393 0 36 0) + activeHelpKey: usePreferredWidth + model: usePreferredWidth + translateLabel: true + ) + (CheckBoxSpec + label: 'Preferred' + name: 'CheckBox2' + layout: (LayoutFrame 287 0 42 0 393 0 64 0) + activeHelpKey: usePreferredHeight + model: usePreferredHeight + translateLabel: true + ) + (CheckBoxSpec + label: 'Dynamic' + name: 'CheckBox3' + layout: (LayoutFrame 394 0 14 0 481 0 36 0) + activeHelpKey: useDynamicPreferredWidth + model: useDynamicPreferredWidth + translateLabel: true + ) + (CheckBoxSpec + label: 'Dynamic' + name: 'CheckBox4' + layout: (LayoutFrame 394 0 42 0 481 0 64 0) + activeHelpKey: useDynamicPreferredWidth + model: useDynamicPreferredHeight + translateLabel: true + ) + (CheckBoxSpec + label: 'OSX-ResizeH' + name: 'OSXResizeH Checkbox' + layout: (LayoutFrame 287 0 70 0 480 0 92 0) + 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 + ) + ) + + ) ) - - ) - ) + (MenuPanelSpec + name: 'commonLayoutToolBar1' + layout: (LayoutFrame 6 0.0 267 0 -4 1.0 299 0) + level: 0 + tabable: true + menu: commonFrameLayoutsMenu1 + textDefault: true + ) + (MenuPanelSpec + name: 'commonLayoutToolBar2' + layout: (LayoutFrame 6 0.0 299 0 -4 1.0 331 0) + level: 0 + tabable: true + menu: commonFrameLayoutsMenu2 + textDefault: true + ) + (MenuPanelSpec + name: 'commonLayoutToolBar3' + layout: (LayoutFrame 6 0.0 323 0 -4 1.0 355 0) + level: 0 + tabable: true + menu: commonFrameLayoutsMenu3 + textDefault: true + ) + ) + + ) + ) ! ! !UILayoutTool::LayoutFrame class methodsFor:'menu specs'! @@ -3071,81 +3077,81 @@ ^ - #(FullSpec - name: windowSpec - window: - (WindowSpec - label: 'UILayoutTool-Rectangle' - name: 'UILayoutTool-Rectangle' - min: (Point 10 10) - bounds: (Rectangle 14 46 356 245) - ) - component: - (SpecCollection - collection: ( - (UISubSpecification - name: 'subSpecification' - layout: (LayoutFrame 1 0.0 6 0 0 1.0 96 0) - majorKey: UILayoutTool - minorKey: layoutPointSpec - ) - (FramedBoxSpec - label: 'Corner' - name: 'FramedBox' - layout: (LayoutFrame 1 0.0 99 0 0 1.0 194 0) - labelPosition: topLeft - translateLabel: true - component: - (SpecCollection - collection: ( - (LabelSpec - label: 'Right:' - name: 'labelCornerY' - layout: (AlignmentOrigin 83 0 16 0 1 0) - adjust: left - translateLabel: true - ) - (InputFieldSpec - name: 'fieldCornerX' - layout: (LayoutFrame 85 0 13 0 135 0 35 0) - activeHelpKey: cornerX - tabable: true - model: rightOffset - group: inputGroup - type: numberOrNil - acceptOnLostFocus: true - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (LabelSpec - label: 'Bottom:' - name: 'labelCornerX' - layout: (AlignmentOrigin 83 0 41 0 1 0) - adjust: left - translateLabel: true - ) - (InputFieldSpec - name: 'fieldCornerY' - layout: (LayoutFrame 85 0 38 0 135 0 60 0) - activeHelpKey: cornerY - tabable: true - model: bottomOffset - group: inputGroup - type: numberOrNil - acceptOnLostFocus: true - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) + #(FullSpec + name: windowSpec + window: + (WindowSpec + label: 'UILayoutTool-Rectangle' + name: 'UILayoutTool-Rectangle' + min: (Point 10 10) + bounds: (Rectangle 0 0 342 199) + ) + component: + (SpecCollection + collection: ( + (UISubSpecification + name: 'subSpecification' + layout: (LayoutFrame 1 0.0 6 0 0 1.0 96 0) + majorKey: UILayoutTool + minorKey: layoutPointSpec + ) + (FramedBoxSpec + label: 'Corner' + name: 'FramedBox' + layout: (LayoutFrame 1 0.0 99 0 0 1.0 194 0) + labelPosition: topLeft + translateLabel: true + component: + (SpecCollection + collection: ( + (LabelSpec + label: 'Right:' + name: 'labelCornerY' + layout: (AlignmentOrigin 83 0 16 0 1 0) + translateLabel: true + adjust: left ) - - ) - ) + (InputFieldSpec + name: 'fieldCornerX' + layout: (LayoutFrame 85 0 13 0 135 0 35 0) + activeHelpKey: cornerX + tabable: true + model: rightOffset + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + (LabelSpec + label: 'Bottom:' + name: 'labelCornerX' + layout: (AlignmentOrigin 83 0 41 0 1 0) + translateLabel: true + adjust: left + ) + (InputFieldSpec + name: 'fieldCornerY' + layout: (LayoutFrame 85 0 38 0 135 0 60 0) + activeHelpKey: cornerY + tabable: true + model: bottomOffset + group: inputGroup + type: numberOrNil + acceptOnLostFocus: true + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: true + ) + ) + + ) ) - - ) - ) + ) + + ) + ) ! ! !UILayoutTool::Rectangle methodsFor:'accessing'!