hg/stx-libtool2: comparison DataSetBuilder.st

equal deleted inserted replaced

-:57c23d1beb53
+:fb363ce089de
 isResizeable
 height
 menu
 foregroundSelector
 backgroundSelector
+selectedForegroundSelector
+selectedBackgroundSelector
 doubleClickedSelector
 rowSeparatorSelector
 selectSelector
 converterSelector
 showComboFieldSelector
 showColSeparator
 showSelectionHighLighted
 showRowSeparator
 backgroundColor
 foregroundColor
+selectedBackgroundColor
+selectedForegroundColor
 labelForegroundColor
 labelBackgroundColor
 labelFont
 labelActionSelector
 labelActionArgument
 #browseRowClass
 'Open a browser on the row class'
 #colorsBackgroundCellColor
-'Sets the background color of the column.'
+'The background color of the cell.'
 #colorsBackgroundLabelColor
-'Sets the background color of the label.'
+'The background color of the label.'
 #colorsBackgroundSelector
-'Selector returning the background color for a cell (optional).'
+'Optional selector returning the background color for the cell.'
 #colorsForegroundCellColor
-'Sets the foreground color of the column.'
+'The foreground color of the cell.'
 #colorsForegroundLabelColor
-'Sets the foreground color of the label.'
+'The foreground color of the label.'
 #colorsForegroundSelector
-'Selector returning the foreground color for a cell (optional).'
+'Optional selector returning the foreground color for a cell.'
 #converterSelector
 'Selector returning a TypeConverter on the model the argument or nil.'
 #fileLoad
 #isResizable
 'Column can be resized by user.'
 #pickColumns
 'Select an open view and readOut the column specification from it.'
+#selectedBackgroundCellColor
+'Optional background color of a selected cell.'
+#selectedBackgroundCellColorSelector
+'Optional selector returning the background color for a selected cell.'
+#selectedForegroundCellColor
+'Optional foreground color of a selected cell.'
+#selectedForegroundCellColorSelector
+'Optional selector returning the foreground color for a selected cell.'
 #selectionCellClickSelector
 'Message sent if cell is about to be selected - return boolean to en/disable editing'
 #selectionCellDoubleClickSelector
 window:
 (WindowSpec
 label: 'DataSet Basic'
 name: 'DataSet Basic'
 min: (Point 10 10)
-bounds: (Rectangle 14 46 403 372)
+bounds: (Rectangle 0 0 389 304)
 )
 component:
 (SpecCollection
 collection: (
 (FramedBoxSpec
 label: 'Type:'
 name: 'Type'
 layout: (AlignmentOrigin 52 0 105 0 1 0.5)
 translateLabel: true
 resizeForLabel: true
+adjust: right
 )
 (ComboListSpec
 name: 'labelButtonType'
 layout: (LayoutFrame 57 0 96 0 182 0 116 0)
 tabable: true
 comboList:
 (None
 Button Group
 )
 useIndex: false
+hidePullDownMenuButton: false
 )
 (LabelSpec
 label: 'Align:'
 name: 'JustificationLabel'
-layout: (LayoutFrame 191 0 97 0 236 0 118 0)
+layout: (LayoutFrame 186 0 97 0 243 0 118 0)
 resizeForLabel: true
-adjust: left
+adjust: right
 )
 (PopUpListSpec
 label: 'Alignment'
 name: 'Alignment'
 layout: (LayoutFrame 248 0 97 0 2 1.0 119 0)
 )
 )
 (FramedBoxSpec
 label: 'Cell Type:'
 name: 'typesFrame'
-layout: (LayoutFrame 0 0.0 187 0 0 1.0 325 0)
+layout: (LayoutFrame 0 0.0 187 0 0 1.0 301 0)
 labelPosition: topLeft
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 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)
 isFilenameBox: false
 )
 (LabelSpec
 label: 'Align:'
 name: 'JustificationC'
-layout: (LayoutFrame 191 0 58 0 236 0 79 0)
+layout: (LayoutFrame 185 0 58 0 243 0 79 0)
 resizeForLabel: true
-adjust: left
+adjust: right
 )
 (PopUpListSpec
 label: 'Alignment'
 name: 'AlignmentC'
 layout: (LayoutFrame 248 0 58 0 2 1.0 80 0)
 )
 )
 (CheckBoxSpec
 label: 'Compress Long Strings'
 name: 'LongStringCompressionCheckBox'
-layout: (LayoutOrigin 160 0 82 0)
+layout: (LayoutFrame -3 0 58 0 188 0 79 0)
 activeHelpKey: basicsLabelTranslate
 tabable: true
 model: longStringCompression
 translateLabel: true
 )
 window:
 (WindowSpec
 label: 'DataSet Misc'
 name: 'DataSet Misc'
 min: (Point 10 10)
-bounds: (Rectangle 14 46 383 346)
+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)
+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 24 0 1 0.5)
+layout: (AlignmentOrigin 112 0 14 0 1 0.5)
+translateLabel: true
 resizeForLabel: true
 adjust: right
 )
 (ColorMenuSpec
 name: 'colorMenu1'
-layout: (LayoutFrame 115 0 12 0 -3 1.0 34 0)
+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 52 0 1 0.5)
+layout: (AlignmentOrigin 112 0 42 0 1 0.5)
+translateLabel: true
 resizeForLabel: true
 adjust: right
 )
 (ColorMenuSpec
 name: 'colorMenu2'
-layout: (LayoutFrame 115 0 40 0 -3 1.0 62 0)
+layout: (LayoutFrame 115 0 30 0 -3 1.0 52 0)
 activeHelpKey: colorsBackgroundLabelColor
 model: labelBackgroundColor
 labelsAreColored: false
 )
 )
 )
 )
 (FramedBoxSpec
 label: 'Cell Colors:'
 name: 'defaultColorsBox'
-layout: (LayoutFrame 0 0.0 108 0 0 1.0 263 0)
+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 28 0 1 0.5)
+layout: (AlignmentOrigin 112 0 11 0 1 0.5)
+translateLabel: true
 resizeForLabel: true
 adjust: right
 )
 (ColorMenuSpec
 name: 'fgMenu'
-layout: (LayoutFrame 115 0 16 0 -3 1.0 38 0)
+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 56 0 1 0.5)
+layout: (AlignmentOrigin 112 0 39 0 1 0.5)
+translateLabel: true
 resizeForLabel: true
 adjust: right
 )
 (ColorMenuSpec
 name: 'bgMenu'
-layout: (LayoutFrame 115 0 44 0 -3 1.0 66 0)
+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 90 0 1 0.5)
+layout: (AlignmentOrigin 112 0 73 0 1 0.5)
+translateLabel: true
 resizeForLabel: true
 adjust: right
 )
 (InputFieldSpec
 name: 'fgSelField'
-layout: (LayoutFrame 115 0 79 0 0 1.0 101 0)
+layout: (LayoutFrame 115 0 62 0 0 1.0 84 0)
 activeHelpKey: colorsForegroundSelector
 tabable: true
 model: foregroundSelector
 group: inputGroup
 type: symbolOrNil
 acceptOnPointerLeave: false
 )
 (LabelSpec
 label: 'BG-Selector:'
 name: 'bgSelLabel'
-layout: (AlignmentOrigin 112 0 115 0 1 0.5)
+layout: (AlignmentOrigin 112 0 98 0 1 0.5)
+translateLabel: true
 resizeForLabel: true
 adjust: right
 )
 (InputFieldSpec
 name: 'bgSelField'
-layout: (LayoutFrame 115 0 104 0 0 1.0 126 0)
+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 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: selectedForegroundCellColorSelector
+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
 window:
 (WindowSpec
 label: 'DataSet Dimension'
 name: 'DataSet Dimension'
 min: (Point 10 10)
-bounds: (Rectangle 14 46 410 359)
+bounds: (Rectangle 0 0 396 313)
 )
 component:
 (SpecCollection
 collection: (
 (FramedBoxSpec
 acceptChannel: acceptChannel
 modifiedChannel: modifiedChannel
 acceptOnPointerLeave: false
 )
 (CheckBoxSpec
-label: 'Compute Width From Items'
+label: 'Compute Width from Items'
 name: 'usePreferredWidth'
-layout: (LayoutFrame 5 0 96 0 324 0 118 0)
+layout: (LayoutFrame 5 0 96 0 -5 1 118 0)
 activeHelpKey: usePreferredWidth
 tabable: true
 model: usePreferredWidth
 )
 (CheckBoxSpec
 label: 'Is Resizeable'
 name: 'isResizeable'
-layout: (LayoutFrame -361 1.0 121 0 -28 1.0 144 0)
+layout: (LayoutFrame 5 0 121 0 -5 1.0 144 0)
 activeHelpKey: isResizeable
 tabable: true
 model: isResizeable
 )
 )
 window:
 (WindowSpec
 label: 'DataSet Basic'
 name: 'DataSet Basic'
 min: (Point 10 10)
-bounds: (Rectangle 0 0 436 576)
+bounds: (Rectangle 0 0 436 348)
 )
 component:
 (SpecCollection
 collection: (
 (FramedBoxSpec
 )
 )
 (FramedBoxSpec
 label: 'Range:'
 name: 'FramedBox1'
-layout: (LayoutFrame 0 0.0 158 0 0 1.0 214 0)
+layout: (LayoutFrame 0 0.0 158 0 0 1.0 211 0)
 labelPosition: topLeft
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 activeHelpKey: valuesMenuSelector
 tabable: true
 model: minValue
 group: inputGroup
 type: numberOrNil
-formatString: ''
 acceptOnLeave: true
 acceptOnLostFocus: true
 acceptChannel: acceptChannel
 modifiedChannel: modifiedChannel
 acceptOnPointerLeave: true
 )
 )
 (FramedBoxSpec
 label: 'Menu:'
 name: 'menusBox'
-layout: (LayoutFrame 0 0.0 213 0 0 1.0 270 0)
+layout: (LayoutFrame 0 0.0 210 0 0 1.0 262 0)
 labelPosition: topLeft
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 )
 )
 (FramedBoxSpec
 label: 'Combo List/Box Selectors:'
 name: 'framedBox1'
-layout: (LayoutFrame 1 0.0 271 0 1 1.0 359 0)
+layout: (LayoutFrame 1 0.0 263 0 1 1.0 346 0)
 labelPosition: topLeft
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 window:
 (WindowSpec
 label: 'Data Set Builder'
 name: 'Data Set Builder'
 min: (Point 10 10)
-bounds: (Rectangle 14 46 647 613)
+bounds: (Rectangle 0 0 633 658)
 menu: menu
 )
 component:
 (SpecCollection
 collection: (
 handles: (Any 0.235387 1.0)
 )
 )
 )
-handles: (Any 0.25 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
 generateDoubleClickSelectorIn:aClass
 "generate code for #foregroundSelector"
 |sel catg code bCode|
-catg := #'accessing action'.
+catg := #'accessing-action'.
 code :=   '\'
 , '    "automatically generated by DataSetBuilder ..."\'
 , '\'
 , '    "specific selector to be called on double click"\'
 , '\'
 generateForegroundSelectorIn:aClass
 "generate code for #foregroundSelector
 "
 |sel catg code bCode|
-catg := #'accessing look'.
+catg := #'accessing-look'.
 code :=   '\'
 , '    "automatically generated by DataSetBuilder ..."\'
 , '\'
 , '    "specific foreground color for a cell"\'
 , '\'
 [:aColumn|
 ((sel := aColumn foregroundSelector) notNil
 and:[(aClass includesSelector:sel) not])
 ifTrue:
 [
-bCode := sel asString, code, '    ^nil'.
+bCode := sel asString, code, '    ^ nil'.
 self compile:bCode forClass:aClass inCategory:catg
 ]
 ]
 !

changeset 1841	fb363ce089de
parent 1836	1bb281ec7437
child 1857	2265bc87dbb0