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