diff -r 57c23d1beb53 -r fb363ce089de DataSetBuilder.st --- a/DataSetBuilder.st Tue May 11 14:49:57 2004 +0200 +++ b/DataSetBuilder.st Thu May 27 16:26:08 2004 +0200 @@ -103,6 +103,8 @@ menu foregroundSelector backgroundSelector + selectedForegroundSelector + selectedBackgroundSelector doubleClickedSelector rowSeparatorSelector selectSelector @@ -118,6 +120,8 @@ showRowSeparator backgroundColor foregroundColor + selectedBackgroundColor + selectedForegroundColor labelForegroundColor labelBackgroundColor labelFont @@ -183,22 +187,22 @@ '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.' @@ -254,6 +258,18 @@ #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' @@ -347,7 +363,7 @@ label: 'DataSet Basic' name: 'DataSet Basic' min: (Point 10 10) - bounds: (Rectangle 14 46 403 372) + bounds: (Rectangle 0 0 389 304) ) component: (SpecCollection @@ -418,6 +434,7 @@ layout: (AlignmentOrigin 52 0 105 0 1 0.5) translateLabel: true resizeForLabel: true + adjust: right ) (ComboListSpec name: 'labelButtonType' @@ -429,13 +446,14 @@ 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' @@ -472,7 +490,7 @@ (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 @@ -491,6 +509,7 @@ model: rendererType comboList: rendererTypeList useIndex: false + hidePullDownMenuButton: false ) (LabelSpec label: 'Editor:' @@ -516,9 +535,9 @@ (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' @@ -536,7 +555,7 @@ (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 @@ -574,7 +593,7 @@ label: 'DataSet Misc' name: 'DataSet Misc' min: (Point 10 10) - bounds: (Rectangle 14 46 383 346) + bounds: (Rectangle 0 0 369 451) ) component: (SpecCollection @@ -582,21 +601,23 @@ (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 @@ -604,13 +625,14 @@ (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 @@ -622,21 +644,23 @@ (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 @@ -644,13 +668,14 @@ (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 @@ -658,13 +683,14 @@ (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 @@ -678,13 +704,14 @@ (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 @@ -699,6 +726,91 @@ ) ) + (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 + acceptOnPointerLeave: false + ) + ) + + ) + ) ) ) @@ -928,7 +1040,7 @@ label: 'DataSet Dimension' name: 'DataSet Dimension' min: (Point 10 10) - bounds: (Rectangle 14 46 410 359) + bounds: (Rectangle 0 0 396 313) ) component: (SpecCollection @@ -1050,9 +1162,9 @@ 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 @@ -1060,7 +1172,7 @@ (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 @@ -1273,7 +1385,7 @@ label: 'DataSet Basic' name: 'DataSet Basic' min: (Point 10 10) - bounds: (Rectangle 0 0 436 576) + bounds: (Rectangle 0 0 436 348) ) component: (SpecCollection @@ -1393,7 +1505,7 @@ (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 @@ -1413,7 +1525,6 @@ model: minValue group: inputGroup type: numberOrNil - formatString: '' acceptOnLeave: true acceptOnLostFocus: true acceptChannel: acceptChannel @@ -1448,7 +1559,7 @@ (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 @@ -1480,7 +1591,7 @@ (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 @@ -1562,7 +1673,7 @@ 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: @@ -1662,7 +1773,7 @@ ) ) - handles: (Any 0.25 1.0) + handles: (Any 0.208748 1.0) ) (UISubSpecification name: 'infoBarSubSpec' @@ -2342,7 +2453,7 @@ |sel catg code bCode| - catg := #'accessing action'. + catg := #'accessing-action'. code := '\' , ' "automatically generated by DataSetBuilder ..."\' , '\' @@ -2367,7 +2478,7 @@ " |sel catg code bCode| - catg := #'accessing look'. + catg := #'accessing-look'. code := '\' , ' "automatically generated by DataSetBuilder ..."\' , '\' @@ -2381,7 +2492,7 @@ and:[(aClass includesSelector:sel) not]) ifTrue: [ - bCode := sel asString, code, ' ^nil'. + bCode := sel asString, code, ' ^ nil'. self compile:bCode forClass:aClass inCategory:catg ] ]