*** empty log message ***
authorca
Wed, 10 Jun 2009 15:25:54 +0200
changeset 2557befc1c216287
parent 2556 736533777318
child 2558 1acb2765094d
*** empty log message ***
DataSetBuilder.st
     1.1 --- a/DataSetBuilder.st	Fri Jun 05 21:09:34 2009 +0200
     1.2 +++ b/DataSetBuilder.st	Wed Jun 10 15:25:54 2009 +0200
     1.3 @@ -3015,8 +3015,8 @@
     1.4  !
     1.5  
     1.6  updateAfterColumnChange
     1.7 -    self tabModel value:0; value:1.                 "/ toggle to force change
     1.8 -    self selectedColumnModel value:nil; value:1.    "/ toggle to force change
     1.9 +    self tabModel changed "value:0; value:1".                 "/ toggle to force change
    1.10 +    self selectedColumnModel changed "value:nil; value:1".    "/ toggle to force change
    1.11      self updateColumnView.
    1.12      self updateInputFields.
    1.13      self updateInfoLabel.
    1.14 @@ -3408,7 +3408,7 @@
    1.15      columns     := OrderedCollection new.
    1.16      modalOpened := false.
    1.17      listOfSpecViews := Array new:(self class slices size).
    1.18 -
    1.19 +    editingSpecOnly := false.
    1.20  !
    1.21  
    1.22  loadFromResourceSpec: aResourceSpec
    1.23 @@ -3622,16 +3622,6 @@
    1.24  
    1.25  !DataSetBuilder methodsFor:'private'!
    1.26  
    1.27 -askForModification
    1.28 -    "asks first for item and then for resource modification"
    1.29 -
    1.30 -    editingSpecOnly ifTrue:[
    1.31 -        self accept.
    1.32 -        ^ true.
    1.33 -    ].
    1.34 -    ^ self askForItemModification and: [self askForListModification]
    1.35 -!
    1.36 -
    1.37  labelFromColumn:aColumn
    1.38      |label|
    1.39  
    1.40 @@ -3753,6 +3743,8 @@
    1.41  
    1.42      something == selectedColumnIndex ifFalse:[
    1.43          selectedColumnIndex := something ? 0.
    1.44 +        "/ self assert:( selectedColumnIndex <= columns size ).
    1.45 +        "/ self assert:( selectedColumnIndex <= self seqList size ).
    1.46          self isColumnSelected value: true
    1.47      ].
    1.48  !
    1.49 @@ -3957,7 +3949,7 @@
    1.50  doAddColumn:descr
    1.51      "adds a new column after the selected column or at the left (if nothing is selected)"
    1.52  
    1.53 -    columns add:descr afterIndex:self singleSelectedColumnIndex.
    1.54 +    columns add:descr afterIndex:(self singleSelectedColumnIndex min:columns size).
    1.55      self setDefaultValuesInNewColumn:descr.
    1.56      self seqList add:(descr label) afterIndex:self singleSelectedColumnIndex.
    1.57      self enablingCommitButtonsHolder value ifFalse:[