--- a/DataSetBuilder.st	Mon Mar 29 15:47:38 2004 +0200
+++ b/DataSetBuilder.st	Fri Apr 02 15:43:38 2004 +0200
@@ -2528,6 +2528,10 @@
     modalOpened := false.
     listOfSpecViews := Array new:(self class slices size).
 
+!
+
+setDefaultValuesInNewColumn:aDataSetColumnSpec
+    "/ nothing done here - hook for WO
 ! !
 
 !DataSetBuilder methodsFor:'private'!
@@ -2843,11 +2847,12 @@
 doCreateColumn
     "create a new column after selected column or at left (nothing selected)"
 
-    |label list|
+    |label list dscs |
 
     list := self seqList.
     label := 'Column ', (list size + 1) printString.
-    columns add:(DataSetColumnSpec label:label selector:nil) afterIndex:selectedColumnIndex.
+    columns add:(dscs := DataSetColumnSpec label:label selector:nil) afterIndex:selectedColumnIndex.
+    self setDefaultValuesInNewColumn:dscs.
     self seqList add:label afterIndex:selectedColumnIndex.
     self valueOfEnablingCommitButtons value ifFalse:[
         self selectedColumnModel value:selectedColumnIndex + 1
@@ -2855,7 +2860,6 @@
     self cancel.
     self updateColumnView.
     modified := true.
-
 !
 
 doCut