--- 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
]
]