--- a/DataSetBuilder.st Fri Apr 02 15:43:38 2004 +0200
+++ b/DataSetBuilder.st Fri Apr 02 15:57:02 2004 +0200
@@ -125,6 +125,8 @@
labelActionArgument
labelAlignment
columnAlignment
+ minValue
+ maxValue
)
"Modified: / 19.5.1998 / 21:27:06 / cg"
@@ -1244,7 +1246,7 @@
label: 'DataSet Basic'
name: 'DataSet Basic'
min: (Point 10 10)
- bounds: (Rectangle 14 46 310 360)
+ bounds: (Rectangle 0 0 436 576)
)
component:
(SpecCollection
@@ -1362,9 +1364,64 @@
)
)
(FramedBoxSpec
+ label: 'Range:'
+ name: 'FramedBox1'
+ layout: (LayoutFrame 0 0.0 158 0 0 1.0 214 0)
+ labelPosition: topLeft
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Min:'
+ name: 'Label1'
+ layout: (LayoutFrame 11 0 3 0 94 0 20 0)
+ resizeForLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 97 0 1 0 20 0.5 23 0)
+ activeHelpKey: valuesMenuSelector
+ tabable: true
+ model: minValue
+ group: inputGroup
+ type: numberOrNil
+ formatString: ''
+ acceptOnLeave: true
+ acceptOnLostFocus: true
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: true
+ )
+ (LabelSpec
+ label: 'Max:'
+ name: 'Label2'
+ layout: (LayoutFrame 21 0.5 3 0 70 0.5 20 0)
+ resizeForLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField2'
+ layout: (LayoutFrame 70 0.5 1 0 -2 1.0 23 0)
+ activeHelpKey: valuesMenuSelector
+ tabable: true
+ model: maxValue
+ group: inputGroup
+ type: numberOrNil
+ acceptOnLeave: true
+ acceptOnLostFocus: true
+ acceptChannel: acceptChannel
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ )
+ (FramedBoxSpec
label: 'Menu:'
name: 'menusBox'
- layout: (LayoutFrame 0 0.0 161 0 0 1.0 218 0)
+ layout: (LayoutFrame 0 0.0 213 0 0 1.0 270 0)
labelPosition: topLeft
component:
(SpecCollection
@@ -1396,7 +1453,7 @@
(FramedBoxSpec
label: 'Combo List/Box Selectors:'
name: 'framedBox1'
- layout: (LayoutFrame 1 0.0 223 0 1 1.0 311 0)
+ layout: (LayoutFrame 1 0.0 271 0 1 1.0 359 0)
labelPosition: topLeft
component:
(SpecCollection
@@ -2531,7 +2588,12 @@
!
setDefaultValuesInNewColumn:aDataSetColumnSpec
- "/ nothing done here - hook for WO
+ aDataSetColumnSpec readSelector: #'valueAtColumnIndex:'.
+ aDataSetColumnSpec writeSelector: #'valueAtColumnIndex:put:'.
+ aDataSetColumnSpec backgroundSelector: #'bgAtRowIndex:columnIndex:'.
+ aDataSetColumnSpec foregroundSelector: #'fgAtRowIndex:columnIndex:'.
+ aDataSetColumnSpec selectSelector: #'selectAtColumnIndex:'.
+ aDataSetColumnSpec editorType: #InputField.
! !
!DataSetBuilder methodsFor:'private'!
@@ -2767,6 +2829,7 @@
width minWidth usePreferredWidth editorType choices
readSelector writeSelector printSelector visibilitySelector
formatString type converterSelector size height canSelect selectSelector showComboFieldSelector
+ minValue maxValue
) do:[:aKey|
(aspects at:aKey) value:nil
]