# HG changeset patch
# User werner
# Date 1080913418 -7200
# Node ID 8676bf0d2b6cb2ed4a6a37877da07c4881da8cfb
# Parent  3d834d5e5bb4e0342aa55b87bf79cabef8486616
hook for WO

diff -r 3d834d5e5bb4 -r 8676bf0d2b6c DataSetBuilder.st
--- 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