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