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