# HG changeset patch
# User ca
# Date 1244640354 -7200
# Node ID befc1c21628763a8152128e30d473bd144488998
# Parent  736533777318b60a71b702f7a838987b27cf5736
*** empty log message ***

diff -r 736533777318 -r befc1c216287 DataSetBuilder.st
--- a/DataSetBuilder.st	Fri Jun 05 21:09:34 2009 +0200
+++ b/DataSetBuilder.st	Wed Jun 10 15:25:54 2009 +0200
@@ -3015,8 +3015,8 @@
 !
 
 updateAfterColumnChange
-    self tabModel value:0; value:1.                 "/ toggle to force change
-    self selectedColumnModel value:nil; value:1.    "/ toggle to force change
+    self tabModel changed "value:0; value:1".                 "/ toggle to force change
+    self selectedColumnModel changed "value:nil; value:1".    "/ toggle to force change
     self updateColumnView.
     self updateInputFields.
     self updateInfoLabel.
@@ -3408,7 +3408,7 @@
     columns     := OrderedCollection new.
     modalOpened := false.
     listOfSpecViews := Array new:(self class slices size).
-
+    editingSpecOnly := false.
 !
 
 loadFromResourceSpec: aResourceSpec
@@ -3622,16 +3622,6 @@
 
 !DataSetBuilder methodsFor:'private'!
 
-askForModification
-    "asks first for item and then for resource modification"
-
-    editingSpecOnly ifTrue:[
-        self accept.
-        ^ true.
-    ].
-    ^ self askForItemModification and: [self askForListModification]
-!
-
 labelFromColumn:aColumn
     |label|
 
@@ -3753,6 +3743,8 @@
 
     something == selectedColumnIndex ifFalse:[
         selectedColumnIndex := something ? 0.
+        "/ self assert:( selectedColumnIndex <= columns size ).
+        "/ self assert:( selectedColumnIndex <= self seqList size ).
         self isColumnSelected value: true
     ].
 !
@@ -3957,7 +3949,7 @@
 doAddColumn:descr
     "adds a new column after the selected column or at the left (if nothing is selected)"
 
-    columns add:descr afterIndex:self singleSelectedColumnIndex.
+    columns add:descr afterIndex:(self singleSelectedColumnIndex min:columns size).
     self setDefaultValuesInNewColumn:descr.
     self seqList add:(descr label) afterIndex:self singleSelectedColumnIndex.
     self enablingCommitButtonsHolder value ifFalse:[