diff -r 704af58a697e -r 9d9ab34773a6 DataSetBuilder.st --- a/DataSetBuilder.st Fri Aug 23 12:07:08 2013 +0200 +++ b/DataSetBuilder.st Fri Aug 23 12:28:19 2013 +0200 @@ -1211,172 +1211,172 @@ ^ - #(FullSpec - name: frameEditSpec - window: - (WindowSpec - label: 'DataSet Dimension' - name: 'DataSet Dimension' - min: (Point 10 10) - bounds: (Rectangle 0 0 396 313) - ) - component: - (SpecCollection - collection: ( - (FramedBoxSpec - label: 'Separators' - name: 'separatorBox' - layout: (LayoutFrame 0 0.0 3 0 0 1.0 132 0) - labelPosition: topLeft - translateLabel: true - component: - (SpecCollection - collection: ( - (CheckBoxSpec - label: 'Show Row-Separator' - name: 'showRowSeparator' - layout: (LayoutFrame 5 0 15 0 293 0 38 0) - activeHelpKey: frameShowRowSeparator - tabable: true - model: showRowSeparator - translateLabel: true - ) - (InputFieldSpec - name: 'rowSeparatorSelector' - layout: (LayoutFrame 142 0 41 0 2 1.0 63 0) - activeHelpKey: frameShowRowSeparatorSelector - tabable: true - model: rowSeparatorSelector - group: inputGroup - type: symbolOrNil - acceptOnLostFocus: false - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (CheckBoxSpec - label: 'Show Column-Separator' - name: 'showColSeparator' - layout: (LayoutFrame 5 0 70 0 294 0 93 0) - activeHelpKey: frameShowColumnSeparator - tabable: true - model: showColSeparator - translateLabel: true - ) - (LabelSpec - label: 'Selector:' - activeHelpKey: frameShowRowSeparatorSelector - name: 'Label1' - layout: (LayoutFrame 80 0.0 44 0 140 0.0 61 0) - resizeForLabel: true - adjust: right - translateLabel: true - ) + #(FullSpec + name: frameEditSpec + window: + (WindowSpec + label: 'DataSet Dimension' + name: 'DataSet Dimension' + min: (Point 10 10) + bounds: (Rectangle 0 0 396 313) + ) + component: + (SpecCollection + collection: ( + (FramedBoxSpec + label: 'Separators' + name: 'separatorBox' + layout: (LayoutFrame 0 0.0 3 0 0 1.0 132 0) + labelPosition: topLeft + translateLabel: true + component: + (SpecCollection + collection: ( + (CheckBoxSpec + label: 'Show Row-Separator' + name: 'showRowSeparator' + layout: (LayoutFrame 5 0 15 0 293 0 38 0) + activeHelpKey: frameShowRowSeparator + tabable: true + model: showRowSeparator + translateLabel: true + ) + (InputFieldSpec + name: 'rowSeparatorSelector' + layout: (LayoutFrame 142 0 41 0 2 1.0 63 0) + activeHelpKey: frameShowRowSeparatorSelector + tabable: true + model: rowSeparatorSelector + group: inputGroup + type: symbolOrNil + acceptOnLostFocus: false + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: false + ) + (CheckBoxSpec + label: 'Show Column-Separator' + name: 'showColSeparator' + layout: (LayoutFrame 5 0 70 0 294 0 93 0) + activeHelpKey: frameShowColumnSeparator + tabable: true + model: showColSeparator + translateLabel: true + ) + (LabelSpec + label: 'Selector:' + name: 'Label1' + layout: (LayoutFrame 80 0.0 44 0 140 0.0 61 0) + activeHelpKey: frameShowRowSeparatorSelector + translateLabel: true + resizeForLabel: true + adjust: right + ) + ) + + ) + ) + (FramedBoxSpec + label: 'Dimensions:' + name: 'framedBox1' + layout: (LayoutFrame 0 0.0 133 0 0 1.0 305 0) + labelPosition: topLeft + translateLabel: true + component: + (SpecCollection + collection: ( + (LabelSpec + label: 'Column Width:' + name: 'widthLabel' + layout: (AlignmentOrigin 140 0.0 23 0 1 0.5) + activeHelpKey: frameColumnWidth + translateLabel: true + resizeForLabel: true + adjust: right ) - - ) - ) - (FramedBoxSpec - label: 'Dimensions:' - name: 'framedBox1' - layout: (LayoutFrame 0 0.0 133 0 0 1.0 305 0) - labelPosition: topLeft - translateLabel: true - component: - (SpecCollection - collection: ( - (LabelSpec - label: 'Column Width:' - name: 'widthLabel' - layout: (AlignmentOrigin 140 0.0 23 0 1 0.5) - resizeForLabel: true - adjust: right - translateLabel: true - activeHelpKey: frameColumnWidth - ) - (InputFieldSpec - name: 'widthField' - layout: (LayoutFrame 142 0 12 0 2 1.0 34 0) - activeHelpKey: frameColumnWidth - tabable: true - model: width - group: inputGroup - type: numberOrNil - acceptOnLostFocus: false - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (LabelSpec - label: 'Min. Width:' - name: 'minWidthLabel' - layout: (AlignmentOrigin 140 0.0 51 0 1 0.5) - resizeForLabel: true - adjust: right - translateLabel: true - activeHelpKey: frameMinWidth - ) - (InputFieldSpec - name: 'minWidthField' - layout: (LayoutFrame 142 0 40 0 2 1.0 62 0) - activeHelpKey: frameMinWidth - tabable: true - model: minWidth - group: inputGroup - type: numberOrNil - acceptOnLostFocus: false - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (LabelSpec - label: 'Row Height:' - name: 'heightLabel' - layout: (AlignmentOrigin 140 0.0 79 0 1 0.5) - resizeForLabel: true - adjust: right - translateLabel: true - activeHelpKey: frameRowHeight - ) - (InputFieldSpec - name: 'heightField' - layout: (LayoutFrame 142 0 68 0 2 1.0 90 0) - activeHelpKey: frameRowHeight - tabable: true - model: height - group: inputGroup - type: numberOrNil - acceptOnLostFocus: false - acceptChannel: acceptChannel - modifiedChannel: modifiedChannel - acceptOnPointerLeave: false - ) - (CheckBoxSpec - label: 'Compute Width from Items' - name: 'usePreferredWidth' - layout: (LayoutFrame 5 0 96 0 -5 1 118 0) - activeHelpKey: usePreferredWidth - tabable: true - model: usePreferredWidth - translateLabel: true - ) - (CheckBoxSpec - label: 'Is Resizeable' - name: 'isResizeable' - layout: (LayoutFrame 5 0 121 0 -5 1.0 144 0) - activeHelpKey: isResizeable - tabable: true - model: isResizeable - translateLabel: true - ) + (InputFieldSpec + name: 'widthField' + layout: (LayoutFrame 142 0 12 0 2 1.0 34 0) + activeHelpKey: frameColumnWidth + tabable: true + model: width + group: inputGroup + type: numberOrNil + acceptOnLostFocus: false + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: false + ) + (LabelSpec + label: 'Min. Width:' + name: 'minWidthLabel' + layout: (AlignmentOrigin 140 0.0 51 0 1 0.5) + activeHelpKey: frameMinWidth + translateLabel: true + resizeForLabel: true + adjust: right + ) + (InputFieldSpec + name: 'minWidthField' + layout: (LayoutFrame 142 0 40 0 2 1.0 62 0) + activeHelpKey: frameMinWidth + tabable: true + model: minWidth + group: inputGroup + type: numberOrNil + acceptOnLostFocus: false + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: false ) - - ) - ) + (LabelSpec + label: 'Row Height:' + name: 'heightLabel' + layout: (AlignmentOrigin 140 0.0 79 0 1 0.5) + activeHelpKey: frameRowHeight + translateLabel: true + resizeForLabel: true + adjust: right + ) + (InputFieldSpec + name: 'heightField' + layout: (LayoutFrame 142 0 68 0 2 1.0 90 0) + activeHelpKey: frameRowHeight + tabable: true + model: height + group: inputGroup + type: symbolOrNumberOrNil + acceptOnLostFocus: false + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: false + ) + (CheckBoxSpec + label: 'Compute Width from Items' + name: 'usePreferredWidth' + layout: (LayoutFrame 5 0 96 0 -5 1 118 0) + activeHelpKey: usePreferredWidth + tabable: true + model: usePreferredWidth + translateLabel: true + ) + (CheckBoxSpec + label: 'Is Resizeable' + name: 'isResizeable' + layout: (LayoutFrame 5 0 121 0 -5 1.0 144 0) + activeHelpKey: isResizeable + tabable: true + model: isResizeable + translateLabel: true + ) + ) + + ) ) - - ) - ) + ) + + ) + ) ! selectionEditSpec