--- a/DataSetBuilder.st Mon Dec 14 15:44:10 2015 +0100
+++ b/DataSetBuilder.st Mon Dec 14 22:11:05 2015 +0100
@@ -455,298 +455,301 @@
<resource: #canvas>
^
- #(FullSpec
- name: basicsEditSpec
- window:
- (WindowSpec
- label: 'DataSet Basic'
- name: 'DataSet Basic'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 389 473)
- )
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel1'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'Header:'
- name: 'headerFrame'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'ID:'
- name: 'idLabel'
- layout: (AlignmentOrigin 94 0 14 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- )
- (InputFieldSpec
- name: 'idField'
- layout: (LayoutFrame 97 0 0 0 2 1.0 22 0)
- activeHelpKey: basicsLabelId
- tabable: true
- model: id
- group: inputGroup
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'Label:'
- name: 'label1'
- layout: (AlignmentOrigin 94 0 39 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- )
- (InputFieldSpec
- name: 'labelField'
- layout: (LayoutFrame 97 0 28 0 2 1.0 50 0)
- activeHelpKey: basicsLabel
- tabable: true
- model: label
- group: inputGroup
- type: smalltalkObject
- immediateAccept: false
- acceptOnLeave: false
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'Font:'
- name: 'LabelFont'
- layout: (AlignmentOrigin 94 0 68 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: left
- )
- (FontMenuSpec
- name: 'fontMenu'
- layout: (LayoutFrame 97 0 56 0 0 1.0 78 0)
- activeHelpKey: labelFont
- model: style
- allowSymbolicFonts: true
- )
- (LabelSpec
- label: 'Type:'
- name: 'Type'
- layout: (AlignmentOrigin 52 0 100 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (ComboListSpec
- name: 'labelButtonType'
- layout: (LayoutFrame 57 0 91 0 158 0 111 0)
- tabable: true
- model: labelButtonType
- comboList:
- (Array
- None Button
- Group
- )
- useIndex: false
- hidePullDownMenuButton: false
- )
- (LabelSpec
- label: 'Align:'
- name: 'JustificationLabel'
- layout: (AlignmentOrigin 243 0 100 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (PopUpListSpec
- label: 'Alignment'
- name: 'Alignment'
- layout: (LayoutFrame 248 0 91 0 2 1.0 113 0)
- activeHelpKey: basicsJustification
- tabable: true
- model: labelAlignment
- menu:
- (Array
- left right
- center
- )
- )
- (CheckBoxSpec
- label: 'Label Is Image'
- name: 'labelIsImage'
- layout: (LayoutOrigin -3 0 120 0)
- activeHelpKey: basicsLabelIsImage
- tabable: true
- model: labelIsImage
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'Translate Label'
- name: 'CheckBox2'
- layout: (LayoutOrigin 200 0 120 0)
- activeHelpKey: basicsLabelTranslate
- tabable: true
- model: translateLabel
- translateLabel: true
- )
+ #(FullSpec
+ name: basicsEditSpec
+ window:
+ (WindowSpec
+ label: 'DataSet Basic'
+ name: 'DataSet Basic'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 389 473)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel1'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'Header:'
+ name: 'headerFrame'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'ID:'
+ name: 'idLabel'
+ layout: (AlignmentOrigin 94 0 14 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ )
+ (InputFieldSpec
+ name: 'idField'
+ layout: (LayoutFrame 97 0 0 0 2 1.0 22 0)
+ activeHelpKey: basicsLabelId
+ tabable: true
+ model: id
+ group: inputGroup
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Label:'
+ name: 'label1'
+ layout: (AlignmentOrigin 94 0 39 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ )
+ (InputFieldSpec
+ name: 'labelField'
+ layout: (LayoutFrame 97 0 28 0 2 1.0 50 0)
+ activeHelpKey: basicsLabel
+ tabable: true
+ model: label
+ group: inputGroup
+ type: smalltalkObject
+ immediateAccept: false
+ acceptOnLeave: false
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Font:'
+ name: 'LabelFont'
+ layout: (AlignmentOrigin 94 0 68 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: left
+ )
+ (FontMenuSpec
+ name: 'fontMenu'
+ layout: (LayoutFrame 97 0 56 0 0 1.0 78 0)
+ activeHelpKey: labelFont
+ model: style
+ allowSymbolicFonts: true
+ )
+ (LabelSpec
+ label: 'Type:'
+ name: 'Type'
+ layout: (AlignmentOrigin 52 0 100 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (ComboListSpec
+ name: 'labelButtonType'
+ layout: (LayoutFrame 57 0 91 0 158 0 111 0)
+ tabable: true
+ model: labelButtonType
+ comboList:
+ (Array
+ None Button
+ Group
+ )
+ useIndex: false
+ hidePullDownMenuButton: false
+ )
+ (LabelSpec
+ label: 'Align:'
+ name: 'JustificationLabel'
+ layout: (AlignmentOrigin 243 0 100 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (PopUpListSpec
+ label: 'Alignment'
+ name: 'Alignment'
+ layout: (LayoutFrame 248 0 91 0 2 1.0 113 0)
+ activeHelpKey: basicsJustification
+ translateLabel: true
+ tabable: true
+ model: labelAlignment
+ menu:
+ (Array
+ left right
+ center
+ )
+ )
+ (CheckBoxSpec
+ label: 'Label Is Image'
+ name: 'labelIsImage'
+ layout: (LayoutOrigin -3 0 120 0)
+ activeHelpKey: basicsLabelIsImage
+ tabable: true
+ model: labelIsImage
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Translate Label'
+ name: 'CheckBox2'
+ layout: (LayoutOrigin 200 0 120 0)
+ activeHelpKey: basicsLabelTranslate
+ tabable: true
+ model: translateLabel
+ translateLabel: true
)
-
- )
- extent: (Point 389 176)
- )
- (FramedBoxSpec
- label: 'Cell Type:'
- name: 'typesFrame'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Renderer:'
- name: 'rendererLabel'
- layout: (AlignmentOrigin 94 0 16 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- )
- (ComboListSpec
- name: 'rendererField'
- layout: (LayoutFrame 97 0 5 0 2 1.0 27 0)
- activeHelpKey: basicsRenderer
- tabable: true
- model: rendererType
- comboList: rendererTypeList
- useIndex: false
- hidePullDownMenuButton: false
- )
- (LabelSpec
- label: 'Editor:'
- name: 'editorLabel'
- layout: (AlignmentOrigin 94 0 42 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- )
- (ComboBoxSpec
- name: 'editorField'
- layout: (LayoutFrame 97 0 31 0 2 1.0 53 0)
- activeHelpKey: basicsEditor
- tabable: true
- model: editorType
- type: symbolOrNil
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- comboList: editorTypeList
- useIndex: false
- isFilenameBox: false
- )
- (LabelSpec
- label: 'Align:'
- name: 'JustificationC'
- layout: (LayoutFrame -194 1 58 0 -114 1 79 0)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (PopUpListSpec
- label: 'Alignment'
- name: 'AlignmentC'
- layout: (LayoutFrame -115 1 58 0 2 1.0 80 0)
- activeHelpKey: basicsJustificationEditor
- tabable: true
- model: columnAlignment
- menu:
- (Array
- left right
- center decimal decimalRight
- )
- )
- (CheckBoxSpec
- label: 'Compress Long Strings'
- name: 'LongStringCompressionCheckBox'
- layout: (LayoutFrame -3 0 58 0 188 0 79 0)
- activeHelpKey: basicsLabelTranslate
- tabable: true
- model: longStringCompression
- translateLabel: true
- )
+ )
+
+ )
+ extent: (Point 389 190)
+ )
+ (FramedBoxSpec
+ label: 'Cell Type:'
+ name: 'typesFrame'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Renderer:'
+ name: 'rendererLabel'
+ layout: (AlignmentOrigin 94 0 16 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ )
+ (ComboListSpec
+ name: 'rendererField'
+ layout: (LayoutFrame 97 0 5 0 2 1.0 27 0)
+ activeHelpKey: basicsRenderer
+ tabable: true
+ model: rendererType
+ comboList: rendererTypeList
+ useIndex: false
+ hidePullDownMenuButton: false
+ )
+ (LabelSpec
+ label: 'Editor:'
+ name: 'editorLabel'
+ layout: (AlignmentOrigin 94 0 42 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ )
+ (ComboBoxSpec
+ name: 'editorField'
+ layout: (LayoutFrame 97 0 31 0 2 1.0 53 0)
+ activeHelpKey: basicsEditor
+ tabable: true
+ model: editorType
+ type: symbolOrNil
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
+ comboList: editorTypeList
+ useIndex: false
+ isFilenameBox: false
+ )
+ (LabelSpec
+ label: 'Align:'
+ name: 'JustificationC'
+ layout: (LayoutFrame -194 1 58 0 -114 1 79 0)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
)
-
- )
- extent: (Point 389 114)
- )
- (FramedBoxSpec
- label: 'Active Help:'
- name: 'activeHelpFrame'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Key:'
- name: 'Label1'
- layout: (AlignmentOrigin 94 0 14 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- )
- (InputFieldSpec
- name: 'EntryField1'
- layout: (LayoutFrame 97 0 0 0 2 1.0 22 0)
- activeHelpKey: basicsLabelId
- tabable: true
- model: activeHelpKey
- group: inputGroup
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'Key for Label:'
- name: 'Label2'
- layout: (AlignmentOrigin 94 0 42 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- )
- (InputFieldSpec
- name: 'EntryField2'
- layout: (LayoutFrame 97 0 28 0 2 1.0 50 0)
- activeHelpKey: basicsLabelId
- tabable: true
- model: activeHelpKeyForLabel
- group: inputGroup
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
+ (PopUpListSpec
+ label: 'Alignment'
+ name: 'AlignmentC'
+ layout: (LayoutFrame -115 1 58 0 2 1.0 80 0)
+ activeHelpKey: basicsJustificationEditor
+ translateLabel: true
+ tabable: true
+ model: columnAlignment
+ menu:
+ (Array
+ left right
+ center decimal
+ decimalRight
+ )
+ )
+ (CheckBoxSpec
+ label: 'Compress Long Strings'
+ name: 'LongStringCompressionCheckBox'
+ layout: (LayoutFrame -3 0 58 0 188 0 79 0)
+ activeHelpKey: basicsLabelTranslate
+ tabable: true
+ model: longStringCompression
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 389 120)
+ )
+ (FramedBoxSpec
+ label: 'Active Help:'
+ name: 'activeHelpFrame'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Key:'
+ name: 'Label1'
+ layout: (AlignmentOrigin 94 0 14 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
)
-
- )
- extent: (Point 389 81)
- )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 97 0 0 0 2 1.0 22 0)
+ activeHelpKey: basicsLabelId
+ tabable: true
+ model: activeHelpKey
+ group: inputGroup
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Key for Label:'
+ name: 'Label2'
+ layout: (AlignmentOrigin 94 0 42 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ )
+ (InputFieldSpec
+ name: 'EntryField2'
+ layout: (LayoutFrame 97 0 28 0 2 1.0 50 0)
+ activeHelpKey: basicsLabelId
+ tabable: true
+ model: activeHelpKeyForLabel
+ group: inputGroup
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
+ )
+ )
+
+ )
+ extent: (Point 389 95)
)
-
- )
- )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
+ )
!
colorsEditSpec
@@ -764,237 +767,232 @@
<resource: #canvas>
^
- #(FullSpec
- name: colorsEditSpec
- window:
- (WindowSpec
- label: 'DataSet Misc'
- name: 'DataSet Misc'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 369 451)
- )
- component:
- (SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'Label Colors:'
- name: 'ColorsBox'
- layout: (LayoutFrame 0 0.0 3 0 0 1.0 86 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Foreground:'
- name: 'label1'
- layout: (AlignmentOrigin 112 0 14 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (ColorMenuSpec
- name: 'colorMenu1'
- layout: (LayoutFrame 115 0 2 0 -3 1.0 24 0)
- activeHelpKey: colorsForegroundLabelColor
- model: labelForegroundColor
- labelsAreColored: true
- )
- (LabelSpec
- label: 'Background:'
- name: 'label2'
- layout: (AlignmentOrigin 112 0 42 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (ColorMenuSpec
- name: 'colorMenu2'
- layout: (LayoutFrame 115 0 30 0 -3 1.0 52 0)
- activeHelpKey: colorsBackgroundLabelColor
- model: labelBackgroundColor
- labelsAreColored: false
- )
+ #(FullSpec
+ name: colorsEditSpec
+ window:
+ (WindowSpec
+ label: 'DataSet Misc'
+ name: 'DataSet Misc'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 369 451)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'Label Colors:'
+ name: 'ColorsBox'
+ layout: (LayoutFrame 0 0.0 3 0 0 1.0 95 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Foreground:'
+ name: 'label1'
+ layout: (AlignmentOrigin 112 0 14 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (ColorMenuSpec
+ name: 'colorMenu1'
+ layout: (LayoutFrame 115 0 2 0 -3 1.0 24 0)
+ activeHelpKey: colorsForegroundLabelColor
+ model: labelForegroundColor
+ labelsAreColored: true
+ )
+ (LabelSpec
+ label: 'Background:'
+ name: 'label2'
+ layout: (AlignmentOrigin 112 0 42 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (ColorMenuSpec
+ name: 'colorMenu2'
+ layout: (LayoutFrame 115 0 30 0 -3 1.0 52 0)
+ activeHelpKey: colorsBackgroundLabelColor
+ model: labelBackgroundColor
+ )
+ )
+
+ )
+ )
+ (FramedBoxSpec
+ label: 'Cell Colors:'
+ name: 'defaultColorsBox'
+ layout: (LayoutFrame 0 0.0 95 0 0 1.0 245 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Foreground:'
+ name: 'fgLabel'
+ layout: (AlignmentOrigin 112 0 11 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (ColorMenuSpec
+ name: 'fgMenu'
+ layout: (LayoutFrame 115 0 -1 0 -3 1.0 21 0)
+ activeHelpKey: colorsForegroundCellColor
+ model: foregroundColor
+ labelsAreColored: true
+ )
+ (LabelSpec
+ label: 'Background:'
+ name: 'bgLabel'
+ layout: (AlignmentOrigin 112 0 39 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (ColorMenuSpec
+ name: 'bgMenu'
+ layout: (LayoutFrame 115 0 27 0 -3 1.0 49 0)
+ activeHelpKey: colorsBackgroundCellColor
+ model: backgroundColor
+ )
+ (LabelSpec
+ label: 'FG-Selector:'
+ name: 'fgSelLabel'
+ layout: (AlignmentOrigin 112 0 73 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'fgSelField'
+ layout: (LayoutFrame 115 0 62 0 0 1.0 84 0)
+ activeHelpKey: colorsForegroundSelector
+ tabable: true
+ model: foregroundSelector
+ group: inputGroup
+ type: symbolOrNil
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
)
-
- )
- )
- (FramedBoxSpec
- label: 'Cell Colors:'
- name: 'defaultColorsBox'
- layout: (LayoutFrame 0 0.0 91 0 0 1.0 232 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Foreground:'
- name: 'fgLabel'
- layout: (AlignmentOrigin 112 0 11 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (ColorMenuSpec
- name: 'fgMenu'
- layout: (LayoutFrame 115 0 -1 0 -3 1.0 21 0)
- activeHelpKey: colorsForegroundCellColor
- model: foregroundColor
- labelsAreColored: true
- )
- (LabelSpec
- label: 'Background:'
- name: 'bgLabel'
- layout: (AlignmentOrigin 112 0 39 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (ColorMenuSpec
- name: 'bgMenu'
- layout: (LayoutFrame 115 0 27 0 -3 1.0 49 0)
- activeHelpKey: colorsBackgroundCellColor
- model: backgroundColor
- labelsAreColored: false
- )
- (LabelSpec
- label: 'FG-Selector:'
- name: 'fgSelLabel'
- layout: (AlignmentOrigin 112 0 73 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'fgSelField'
- layout: (LayoutFrame 115 0 62 0 0 1.0 84 0)
- activeHelpKey: colorsForegroundSelector
- tabable: true
- model: foregroundSelector
- group: inputGroup
- type: symbolOrNil
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'BG-Selector:'
- name: 'bgSelLabel'
- layout: (AlignmentOrigin 112 0 98 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'bgSelField'
- layout: (LayoutFrame 115 0 87 0 0 1.0 109 0)
- activeHelpKey: colorsBackgroundSelector
- tabable: true
- model: backgroundSelector
- group: inputGroup
- type: symbolOrNil
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
+ (LabelSpec
+ label: 'BG-Selector:'
+ name: 'bgSelLabel'
+ layout: (AlignmentOrigin 112 0 98 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'bgSelField'
+ layout: (LayoutFrame 115 0 87 0 0 1.0 109 0)
+ activeHelpKey: colorsBackgroundSelector
+ tabable: true
+ model: backgroundSelector
+ group: inputGroup
+ type: symbolOrNil
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
+ )
+ )
+
+ )
+ )
+ (FramedBoxSpec
+ label: 'Selected Cell Colors:'
+ name: 'selectedCellColorsBox'
+ layout: (LayoutFrame 0 0.0 245 0 0 1.0 390 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Foreground:'
+ name: 'selFgLabel'
+ layout: (AlignmentOrigin 112 0 11 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (ColorMenuSpec
+ name: 'selFgMenu'
+ layout: (LayoutFrame 115 0 -1 0 -3 1.0 21 0)
+ activeHelpKey: selectedForegroundCellColor
+ model: selectedForegroundColor
+ labelsAreColored: true
+ )
+ (LabelSpec
+ label: 'Background:'
+ name: 'selBgLabel'
+ layout: (AlignmentOrigin 112 0 39 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
)
-
- )
- )
- (FramedBoxSpec
- label: 'Selected Cell Colors:'
- name: 'selectedCellColorsBox'
- layout: (LayoutFrame 0 0.0 236 0 0 1.0 377 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Foreground:'
- name: 'selFgLabel'
- layout: (AlignmentOrigin 112 0 11 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (ColorMenuSpec
- name: 'selFgMenu'
- layout: (LayoutFrame 115 0 -1 0 -3 1.0 21 0)
- activeHelpKey: selectedForegroundCellColor
- model: selectedForegroundColor
- labelsAreColored: true
- )
- (LabelSpec
- label: 'Background:'
- name: 'selBgLabel'
- layout: (AlignmentOrigin 112 0 39 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (ColorMenuSpec
- name: 'selBgMenu'
- layout: (LayoutFrame 115 0 27 0 -3 1.0 49 0)
- activeHelpKey: colorsBackgroundCellColor
- model: selectedBackgroundColor
- labelsAreColored: false
- )
- (LabelSpec
- label: 'FG-Selector:'
- name: 'Label3'
- layout: (AlignmentOrigin 112 0 73 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField1'
- layout: (LayoutFrame 115 0 62 0 0 1.0 84 0)
- activeHelpKey: colorsForegroundSelector
- tabable: true
- model: selectedForegroundSelector
- group: inputGroup
- type: symbolOrNil
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'BG-Selector:'
- name: 'Label4'
- layout: (AlignmentOrigin 112 0 98 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField2'
- layout: (LayoutFrame 115 0 87 0 0 1.0 109 0)
- activeHelpKey: colorsBackgroundSelector
- tabable: true
- model: selectedBackgroundSelector
- group: inputGroup
- type: symbolOrNil
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
+ (ColorMenuSpec
+ name: 'selBgMenu'
+ layout: (LayoutFrame 115 0 27 0 -3 1.0 49 0)
+ activeHelpKey: colorsBackgroundCellColor
+ model: selectedBackgroundColor
+ )
+ (LabelSpec
+ label: 'FG-Selector:'
+ name: 'Label3'
+ layout: (AlignmentOrigin 112 0 73 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 115 0 62 0 0 1.0 84 0)
+ activeHelpKey: colorsForegroundSelector
+ tabable: true
+ model: selectedForegroundSelector
+ group: inputGroup
+ type: symbolOrNil
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
)
-
- )
- )
+ (LabelSpec
+ label: 'BG-Selector:'
+ name: 'Label4'
+ layout: (AlignmentOrigin 112 0 98 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField2'
+ layout: (LayoutFrame 115 0 87 0 0 1.0 109 0)
+ activeHelpKey: colorsBackgroundSelector
+ tabable: true
+ model: selectedBackgroundSelector
+ group: inputGroup
+ type: symbolOrNil
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
+ )
+ )
+
+ )
)
-
- )
- )
-
- "Modified: / 01-04-2011 / 16:26:37 / cg"
+ )
+
+ )
+ )
!
defineClassNameSpec
@@ -1012,65 +1010,66 @@
<resource: #canvas>
^
- #(FullSpec
- name: defineClassNameSpec
- window:
- (WindowSpec
- label: 'Data Set Builder'
- name: 'Data Set Builder'
- min: (Point 10 10)
- bounds: (Rectangle 14 46 341 182)
- )
- component:
- (SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'Class for code'
- name: 'framedBox1'
- layout: (LayoutFrame 0 0.0 3 0.0 0 1.0 -34 1.0)
- labelPosition: topLeft
- translateLabel: true
- )
- (LabelSpec
- label: 'Class:'
- name: 'classLabel'
- layout: (AlignmentOrigin 73 0.11 38 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'classNameInputField'
- layout: (LayoutFrame 77 0.11 27 0 -16 1.0 49 0)
- tabable: true
- model: classNameChannel
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'Superclass:'
- name: 'superClassLabel'
- layout: (AlignmentOrigin 73 0.11 65 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'superclassNameInputField'
- layout: (LayoutFrame 76 0.11 55 0 -16 1.0 77 0)
- tabable: true
- model: superclassNameChannel
- acceptOnPointerLeave: false
- )
- (UISubSpecification
- name: 'SubSpecification'
- layout: (LayoutFrame 0 0.0 -29 1 0 1.0 -5 1.0)
- majorKey: ToolApplicationModel
- minorKey: windowSpecForCommitWithoutChannels
- )
+ #(FullSpec
+ name: defineClassNameSpec
+ window:
+ (WindowSpec
+ label: 'Data Set Builder'
+ name: 'Data Set Builder'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 327 136)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'Class for code'
+ name: 'framedBox1'
+ layout: (LayoutFrame 0 0.0 3 0.0 0 1.0 -34 1.0)
+ labelPosition: topLeft
+ translateLabel: true
+ )
+ (LabelSpec
+ label: 'Class:'
+ name: 'classLabel'
+ layout: (AlignmentOrigin 73 0.11 38 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
)
-
- )
- )
+ (InputFieldSpec
+ name: 'classNameInputField'
+ layout: (LayoutFrame 77 0.11 27 0 -16 1.0 49 0)
+ tabable: true
+ model: classNameChannel
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Superclass:'
+ name: 'superClassLabel'
+ layout: (AlignmentOrigin 73 0.11 65 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'superclassNameInputField'
+ layout: (LayoutFrame 76 0.11 55 0 -16 1.0 77 0)
+ tabable: true
+ model: superclassNameChannel
+ acceptOnPointerLeave: false
+ )
+ (UISubSpecification
+ name: 'SubSpecification'
+ layout: (LayoutFrame 0 0.0 -35 1 0 1.0 -5 1.0)
+ majorKey: ToolApplicationModel
+ minorKey: windowSpecForCommitWithoutChannels
+ keepSpaceForOSXResizeHandleH: true
+ )
+ )
+
+ )
+ )
!
formatEditSpec
@@ -1088,114 +1087,114 @@
<resource: #canvas>
^
- #(FullSpec
- name: formatEditSpec
- window:
- (WindowSpec
- label: 'DataSet Details'
- name: 'DataSet Details'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 388 149)
- )
- component:
- (SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'Column Format'
- name: 'framedBox1'
- layout: (LayoutFrame 0 0.0 3 0 0 1.0 149 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Type:'
- name: 'typeLabel'
- layout: (AlignmentOrigin 115 0 26 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- activeHelpKey: formatInputType
- )
- (ComboListSpec
- name: 'typeCombo'
- layout: (LayoutFrame 118 0 15 0 3 1.0 37 0)
- activeHelpKey: formatInputType
- tabable: true
- model: type
- comboList: possiblePrintConverterTypes
- useIndex: false
- hidePullDownMenuButton: false
- )
- (LabelSpec
- label: 'Max Size:'
- name: 'sizeLabel'
- layout: (AlignmentOrigin 115 0 52 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- activeHelpKey: formatMaxSize
- )
- (InputFieldSpec
- name: 'sizeField'
- layout: (LayoutFrame 118 0 41 0 3 1.0 63 0)
- activeHelpKey: formatMaxSize
- tabable: true
- model: size
- group: inputGroup
- type: numberOrNil
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'Text Format:'
- name: 'formatLabel'
- layout: (AlignmentOrigin 115 0 77 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- activeHelpKey: formatTextFormat
- )
- (InputFieldSpec
- name: 'formatField'
- layout: (LayoutFrame 118 0 66 0 3 1.0 88 0)
- activeHelpKey: formatTextFormat
- tabable: true
- model: formatString
- group: inputGroup
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'Format Selector:'
- name: 'formatSelectorLabel'
- layout: (AlignmentOrigin 115 0 103 0 1 0.5)
- translateLabel: true
- resizeForLabel: true
- activeHelpKey: formatFormatSelector
- )
- (InputFieldSpec
- name: 'formatSelector'
- layout: (LayoutFrame 118 0 92 0 3 1.0 114 0)
- activeHelpKey: formatFormatSelector
- tabable: true
- model: formatSelector
- group: inputGroup
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
+ #(FullSpec
+ name: formatEditSpec
+ window:
+ (WindowSpec
+ label: 'DataSet Details'
+ name: 'DataSet Details'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 388 149)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'Column Format'
+ name: 'framedBox1'
+ layout: (LayoutFrame 0 0.0 3 0 0 1.0 155 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Type:'
+ name: 'typeLabel'
+ layout: (AlignmentOrigin 115 0 21 0 1 0.5)
+ activeHelpKey: formatInputType
+ translateLabel: true
+ resizeForLabel: true
+ )
+ (ComboListSpec
+ name: 'typeCombo'
+ layout: (LayoutFrame 118 0 10 0 3 1.0 32 0)
+ activeHelpKey: formatInputType
+ tabable: true
+ model: type
+ comboList: possiblePrintConverterTypes
+ useIndex: false
+ hidePullDownMenuButton: false
+ )
+ (LabelSpec
+ label: 'Max Size:'
+ name: 'sizeLabel'
+ layout: (AlignmentOrigin 115 0 47 0 1 0.5)
+ activeHelpKey: formatMaxSize
+ translateLabel: true
+ resizeForLabel: true
)
-
- )
- )
+ (InputFieldSpec
+ name: 'sizeField'
+ layout: (LayoutFrame 118 0 36 0 3 1.0 58 0)
+ activeHelpKey: formatMaxSize
+ tabable: true
+ model: size
+ group: inputGroup
+ type: numberOrNil
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Text Format:'
+ name: 'formatLabel'
+ layout: (AlignmentOrigin 115 0 72 0 1 0.5)
+ activeHelpKey: formatTextFormat
+ translateLabel: true
+ resizeForLabel: true
+ )
+ (InputFieldSpec
+ name: 'formatField'
+ layout: (LayoutFrame 118 0 61 0 3 1.0 83 0)
+ activeHelpKey: formatTextFormat
+ tabable: true
+ model: formatString
+ group: inputGroup
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Format Selector:'
+ name: 'formatSelectorLabel'
+ layout: (AlignmentOrigin 115 0 98 0 1 0.5)
+ activeHelpKey: formatFormatSelector
+ translateLabel: true
+ resizeForLabel: true
+ )
+ (InputFieldSpec
+ name: 'formatSelector'
+ layout: (LayoutFrame 118 0 87 0 3 1.0 109 0)
+ activeHelpKey: formatFormatSelector
+ tabable: true
+ model: formatSelector
+ group: inputGroup
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
+ )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
+ )
!
frameEditSpec
@@ -1281,7 +1280,7 @@
(FramedBoxSpec
label: 'Dimensions:'
name: 'framedBox1'
- layout: (LayoutFrame 0 0.0 133 0 0 1.0 305 0)
+ layout: (LayoutFrame 0 0.0 133 0 0 1.0 315 0)
labelPosition: topLeft
translateLabel: true
component:
@@ -1396,167 +1395,165 @@
<resource: #canvas>
^
- #(FullSpec
- name: selectionEditSpec
- window:
- (WindowSpec
- label: 'DataSet Basic'
- name: 'DataSet Basic'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 331 328)
- )
- component:
- (SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'Label Select Action:'
- name: 'LabelSelectAction'
- layout: (LayoutFrame 0 0.0 3 0 0 1.0 97 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Selector:'
- name: 'ActionLabel'
- layout: (AlignmentOrigin 95 0 20 0 1 0.5)
- resizeForLabel: true
- adjust: left
- translateLabel: true
- )
- (InputFieldSpec
- name: 'ActionSelector'
- layout: (LayoutFrame 98 0 9 0 3 1.0 31 0)
- activeHelpKey: selectionLabelClickSelector
- tabable: true
- model: labelActionSelector
- group: inputGroup
- type: symbolOrNil
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'Argument:'
- name: 'ArgumentLabel'
- layout: (AlignmentOrigin 95 0 48 0 1 0.5)
- resizeForLabel: true
- adjust: left
- translateLabel: true
- )
- (InputFieldSpec
- name: 'ArgumentValue'
- layout: (LayoutFrame 98 0 37 0 3 1.0 59 0)
- activeHelpKey: selectionLabelSelectorArgument
- tabable: true
- model: labelActionArgument
- group: inputGroup
- type: string
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
+ #(FullSpec
+ name: selectionEditSpec
+ window:
+ (WindowSpec
+ label: 'DataSet Basic'
+ name: 'DataSet Basic'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 331 328)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'Label Select Action:'
+ name: 'LabelSelectAction'
+ layout: (LayoutFrame 0 0.0 3 0 0 1.0 100 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Selector:'
+ name: 'ActionLabel'
+ layout: (AlignmentOrigin 95 0 20 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: left
+ )
+ (InputFieldSpec
+ name: 'ActionSelector'
+ layout: (LayoutFrame 98 0 9 0 3 1.0 31 0)
+ activeHelpKey: selectionLabelClickSelector
+ tabable: true
+ model: labelActionSelector
+ group: inputGroup
+ type: symbolOrNil
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Argument:'
+ name: 'ArgumentLabel'
+ layout: (AlignmentOrigin 95 0 48 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: left
+ )
+ (InputFieldSpec
+ name: 'ArgumentValue'
+ layout: (LayoutFrame 98 0 37 0 3 1.0 59 0)
+ activeHelpKey: selectionLabelSelectorArgument
+ tabable: true
+ model: labelActionArgument
+ group: inputGroup
+ type: string
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
)
-
- )
- )
- (FramedBoxSpec
- label: 'Cell Selection:'
- name: 'CellSelection'
- layout: (LayoutFrame 0 0.0 105 0 0 1.0 215 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Is Selectable'
- name: 'canSelect'
- layout: (Point 95 -4)
- activeHelpKey: selectionIsSelectable
- tabable: true
- model: canSelect
- translateLabel: true
- )
- (LabelSpec
- label: 'Selector:'
- name: 'selectorLabel'
- layout: (AlignmentOrigin 95 0 37 0 1 0.5)
- resizeForLabel: true
- adjust: right
- translateLabel: true
- activeHelpKey: selectionCellClickSelector
- )
- (InputFieldSpec
- name: 'selectSelector'
- layout: (LayoutFrame 98 0 26 0 3 1.0 48 0)
- activeHelpKey: selectionCellClickSelector
- tabable: true
- model: selectSelector
- group: inputGroup
- type: symbolOrNil
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
- (CheckBoxSpec
- label: 'Show Selection HighLightened'
- name: 'showSelectionHighLightened'
- layout: (LayoutFrame 95 0 53 0 3 1.0 77 0)
- activeHelpKey: showSelectionHighLighted
- tabable: true
- model: showSelectionHighLighted
- translateLabel: true
- )
+ )
+
+ )
+ )
+ (FramedBoxSpec
+ label: 'Cell Selection:'
+ name: 'CellSelection'
+ layout: (LayoutFrame 0 0.0 105 0 0 1.0 225 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Is Selectable'
+ name: 'canSelect'
+ layout: (Point 95 -4)
+ activeHelpKey: selectionIsSelectable
+ tabable: true
+ model: canSelect
+ translateLabel: true
+ )
+ (LabelSpec
+ label: 'Selector:'
+ name: 'selectorLabel'
+ layout: (AlignmentOrigin 95 0 37 0 1 0.5)
+ activeHelpKey: selectionCellClickSelector
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'selectSelector'
+ layout: (LayoutFrame 98 0 26 0 3 1.0 48 0)
+ activeHelpKey: selectionCellClickSelector
+ tabable: true
+ model: selectSelector
+ group: inputGroup
+ type: symbolOrNil
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
)
-
- )
- )
- (FramedBoxSpec
- label: 'Cell Double Click:'
- name: 'CellDoubleClick'
- layout: (LayoutFrame 0 0.0 227 0 0 1.0 293 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Selector:'
- name: 'doubleLabel'
- layout: (AlignmentOrigin 95 0 19 0 1 0.5)
- resizeForLabel: true
- adjust: right
- translateLabel: true
- activeHelpKey: selectionCellDoubleClickSelector
- )
- (InputFieldSpec
- name: 'doubleClicked'
- layout: (LayoutFrame 98 0 8 0 3 1.0 30 0)
- activeHelpKey: selectionCellDoubleClickSelector
- tabable: true
- model: doubleClickedSelector
- group: inputGroup
- type: symbolOrNil
- acceptOnLostFocus: false
- acceptChannel: acceptChannel
- modifiedChannel: modifiedChannel
- acceptOnPointerLeave: false
- )
+ (CheckBoxSpec
+ label: 'Show Selection HighLightened'
+ name: 'showSelectionHighLightened'
+ layout: (LayoutFrame 95 0 53 0 3 1.0 77 0)
+ activeHelpKey: showSelectionHighLighted
+ tabable: true
+ model: showSelectionHighLighted
+ translateLabel: true
)
-
- )
- )
+ )
+
+ )
)
-
- )
- )
-
- "Modified: / 25-10-2010 / 10:29:42 / cg"
+ (FramedBoxSpec
+ label: 'Cell Double Click:'
+ name: 'CellDoubleClick'
+ layout: (LayoutFrame 0 0.0 227 0 0 1.0 300 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Selector:'
+ name: 'doubleLabel'
+ layout: (AlignmentOrigin 95 0 19 0 1 0.5)
+ activeHelpKey: selectionCellDoubleClickSelector
+ translateLabel: true
+ resizeForLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'doubleClicked'
+ layout: (LayoutFrame 98 0 8 0 3 1.0 30 0)
+ activeHelpKey: selectionCellDoubleClickSelector
+ tabable: true
+ model: doubleClickedSelector
+ group: inputGroup
+ type: symbolOrNil
+ acceptOnLostFocus: false
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
!
slices
@@ -1628,7 +1625,7 @@
(LabelSpec
label: 'Sort Selector:'
name: 'sortSelector'
- layout: (AlignmentOrigin 134 0 42 0 1 0.5)
+ layout: (AlignmentOrigin 142 0 55 0 1 0.5)
activeHelpKey: sortSelector
translateLabel: true
resizeForLabel: true
@@ -1636,7 +1633,7 @@
)
(InputFieldSpec
name: 'EntryField3'
- layout: (LayoutFrame 135 0 30 0 2 1 56 0)
+ layout: (LayoutFrame 141 0 43 0 8 1 69 0)
activeHelpKey: sortSelector
enableChannel: isSortable
tabable: true
@@ -1653,7 +1650,7 @@
(LabelSpec
label: 'Sort Block Selector:'
name: 'Label1'
- layout: (AlignmentOrigin 134 0 75 0 1 0.5)
+ layout: (AlignmentOrigin 142 0 85 0 1 0.5)
activeHelpKey: sortBlockSelector
translateLabel: true
resizeForLabel: true
@@ -1661,7 +1658,7 @@
)
(InputFieldSpec
name: 'EntryField4'
- layout: (LayoutFrame 135 0 63 0 2 1 89 0)
+ layout: (LayoutFrame 141 0 73 0 8 1 99 0)
activeHelpKey: sortBlockSelector
enableChannel: isSortable
tabable: true
@@ -1678,7 +1675,7 @@
)
)
- extent: (Point 430 122)
+ extent: (Point 430 140)
)
)
@@ -1712,7 +1709,7 @@
label: 'DataSet Basic'
name: 'DataSet Basic'
min: (Point 10 10)
- bounds: (Rectangle 0 0 471 417)
+ bounds: (Rectangle 0 0 472 460)
)
component:
(SpecCollection
@@ -1848,7 +1845,7 @@
)
)
- extent: (Point 471 160)
+ extent: (Point 472 170)
)
(FramedBoxSpec
label: 'Range:'
@@ -1907,7 +1904,7 @@
)
)
- extent: (Point 471 56)
+ extent: (Point 472 65)
)
(FramedBoxSpec
label: 'Popup Menu:'
@@ -1951,7 +1948,7 @@
)
)
- extent: (Point 471 80)
+ extent: (Point 472 90)
)
(FramedBoxSpec
label: 'Combo List/Box Selectors:'
@@ -2033,7 +2030,7 @@
)
)
- extent: (Point 471 107)
+ extent: (Point 472 120)
)
)
@@ -2061,128 +2058,129 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Data Set Builder'
- name: 'Data Set Builder'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 633 658)
- menu: menu
- )
- component:
- (SpecCollection
- collection: (
- (MenuPanelSpec
- name: 'menuToolbarView'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 32 0)
- tabable: true
- menu: menuToolbar
- )
- (VariableVerticalPanelSpec
- name: 'mainPanel'
- layout: (LayoutFrame 0 0.0 38 0.0 0 1.0 -26 1.0)
- component:
- (SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'Table Columns'
- name: 'FramedBox'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (DataSetSpec
- name: 'columnView'
- layout: (LayoutFrame 0 0.0 6 0.0 0 1.0 2 1.0)
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: false
- miniScrollerHorizontal: true
- useIndex: false
- has3Dseparators: true
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Data Set Builder'
+ name: 'Data Set Builder'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 633 658)
+ menu: menu
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (MenuPanelSpec
+ name: 'menuToolbarView'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 32 0)
+ tabable: true
+ menu: menuToolbar
+ )
+ (VariableVerticalPanelSpec
+ name: 'mainPanel'
+ layout: (LayoutFrame 0 0.0 38 0.0 0 1.0 -26 1.0)
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'Table Columns'
+ name: 'FramedBox'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (DataSetSpec
+ name: 'columnView'
+ layout: (LayoutFrame -2 0.0 0 0.0 2 1.0 4 1.0)
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: false
+ miniScrollerHorizontal: true
+ useIndex: false
+ has3Dseparators: true
)
-
- )
- )
- (VariableHorizontalPanelSpec
- name: 'VariablePanel'
- level: -1
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'labelsView'
- component:
- (SpecCollection
- collection: (
- (SequenceViewSpec
- name: 'labelAndColumns'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- tabable: true
- model: selectedColumnModel
- menu: menuEdit
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- isMultiSelect: true
- useIndex: true
- sequenceList: seqList
- )
+ )
+
+ )
+ )
+ (VariableHorizontalPanelSpec
+ name: 'VariablePanel'
+ level: -1
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'labelsView'
+ component:
+ (SpecCollection
+ collection: (
+ (SequenceViewSpec
+ name: 'labelAndColumns'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ tabable: true
+ model: selectedColumnModel
+ menu: menuEdit
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ isMultiSelect: true
+ useIndex: true
+ sequenceList: seqList
)
-
- )
- postBuildCallback: postBuildListOfItemsView:
- )
- (ViewSpec
- name: 'specView'
- level: -1
- component:
- (SpecCollection
- collection: (
- (NoteBookViewSpec
- name: 'NoteBook'
- layout: (LayoutFrame 1 0.0 0 0.0 0 1.0 -30 1.0)
- tabable: true
- model: tabModel
- menu: tabList
- useIndex: true
- canvas: canvasHolder
- keepCanvasAlive: true
- )
- (UISubSpecification
- name: 'SubSpecification'
- layout: (LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
- majorKey: ToolApplicationModel
- minorKey: windowSpecForCommit
- )
+ )
+
+ )
+ postBuildCallback: postBuildListOfItemsView:
+ )
+ (ViewSpec
+ name: 'specView'
+ level: -1
+ component:
+ (SpecCollection
+ collection: (
+ (NoteBookViewSpec
+ name: 'NoteBook'
+ layout: (LayoutFrame 1 0.0 0 0.0 0 1.0 -30 1.0)
+ tabable: true
+ model: tabModel
+ menu: tabList
+ useIndex: true
+ translateLabel: true
+ canvas: canvasHolder
+ keepCanvasAlive: true
)
-
- )
- postBuildCallback: postBuildSpecView:
- )
+ (UISubSpecification
+ name: 'SubSpecification'
+ layout: (LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
+ majorKey: ToolApplicationModel
+ minorKey: windowSpecForCommit
+ )
+ )
+
+ )
+ postBuildCallback: postBuildSpecView:
)
-
- )
- handles: (Any 0.235387 1.0)
- )
+ )
+
+ )
+ handles: (Any 0.23538700000000001 1.0)
)
-
- )
- handles: (Any 0.208748 1.0)
- )
- (UISubSpecification
- name: 'infoBarSubSpec'
- layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
- majorKey: ToolApplicationModel
- minorKey: windowSpecForInfoBar
- )
+ )
+
+ )
+ handles: (Any 0.20874799999999999 1.0)
)
-
- )
- )
+ (UISubSpecification
+ name: 'infoBarSubSpec'
+ layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
+ majorKey: ToolApplicationModel
+ minorKey: windowSpecForInfoBar
+ )
+ )
+
+ )
+ )
! !
!DataSetBuilder class methodsFor:'menu specs'!