--- 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 @@
<resource: #canvas>
^
- #(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