equal
deleted
inserted
replaced
3013 self columns:list. |
3013 self columns:list. |
3014 self updateAfterColumnChange. |
3014 self updateAfterColumnChange. |
3015 ! |
3015 ! |
3016 |
3016 |
3017 updateAfterColumnChange |
3017 updateAfterColumnChange |
3018 self tabModel value:0; value:1. "/ toggle to force change |
3018 self tabModel changed "value:0; value:1". "/ toggle to force change |
3019 self selectedColumnModel value:nil; value:1. "/ toggle to force change |
3019 self selectedColumnModel changed "value:nil; value:1". "/ toggle to force change |
3020 self updateColumnView. |
3020 self updateColumnView. |
3021 self updateInputFields. |
3021 self updateInputFields. |
3022 self updateInfoLabel. |
3022 self updateInfoLabel. |
3023 self updateHistory. |
3023 self updateHistory. |
3024 self clearModifiedFlag. |
3024 self clearModifiedFlag. |
3406 |
3406 |
3407 selectedColumnIndex := 0. |
3407 selectedColumnIndex := 0. |
3408 columns := OrderedCollection new. |
3408 columns := OrderedCollection new. |
3409 modalOpened := false. |
3409 modalOpened := false. |
3410 listOfSpecViews := Array new:(self class slices size). |
3410 listOfSpecViews := Array new:(self class slices size). |
3411 |
3411 editingSpecOnly := false. |
3412 ! |
3412 ! |
3413 |
3413 |
3414 loadFromResourceSpec: aResourceSpec |
3414 loadFromResourceSpec: aResourceSpec |
3415 self columns:aResourceSpec copy. |
3415 self columns:aResourceSpec copy. |
3416 modified := false. |
3416 modified := false. |
3619 self updateInputFields. |
3619 self updateInputFields. |
3620 self setModified. |
3620 self setModified. |
3621 ! ! |
3621 ! ! |
3622 |
3622 |
3623 !DataSetBuilder methodsFor:'private'! |
3623 !DataSetBuilder methodsFor:'private'! |
3624 |
|
3625 askForModification |
|
3626 "asks first for item and then for resource modification" |
|
3627 |
|
3628 editingSpecOnly ifTrue:[ |
|
3629 self accept. |
|
3630 ^ true. |
|
3631 ]. |
|
3632 ^ self askForItemModification and: [self askForListModification] |
|
3633 ! |
|
3634 |
3624 |
3635 labelFromColumn:aColumn |
3625 labelFromColumn:aColumn |
3636 |label| |
3626 |label| |
3637 |
3627 |
3638 aColumn rendererType == #rowSelector ifTrue:[ |
3628 aColumn rendererType == #rowSelector ifTrue:[ |
3751 selectedColumnIndex:something |
3741 selectedColumnIndex:something |
3752 "changes selected column and updates specifications" |
3742 "changes selected column and updates specifications" |
3753 |
3743 |
3754 something == selectedColumnIndex ifFalse:[ |
3744 something == selectedColumnIndex ifFalse:[ |
3755 selectedColumnIndex := something ? 0. |
3745 selectedColumnIndex := something ? 0. |
|
3746 "/ self assert:( selectedColumnIndex <= columns size ). |
|
3747 "/ self assert:( selectedColumnIndex <= self seqList size ). |
3756 self isColumnSelected value: true |
3748 self isColumnSelected value: true |
3757 ]. |
3749 ]. |
3758 ! |
3750 ! |
3759 |
3751 |
3760 selectedColumnIndices |
3752 selectedColumnIndices |
3955 ! |
3947 ! |
3956 |
3948 |
3957 doAddColumn:descr |
3949 doAddColumn:descr |
3958 "adds a new column after the selected column or at the left (if nothing is selected)" |
3950 "adds a new column after the selected column or at the left (if nothing is selected)" |
3959 |
3951 |
3960 columns add:descr afterIndex:self singleSelectedColumnIndex. |
3952 columns add:descr afterIndex:(self singleSelectedColumnIndex min:columns size). |
3961 self setDefaultValuesInNewColumn:descr. |
3953 self setDefaultValuesInNewColumn:descr. |
3962 self seqList add:(descr label) afterIndex:self singleSelectedColumnIndex. |
3954 self seqList add:(descr label) afterIndex:self singleSelectedColumnIndex. |
3963 self enablingCommitButtonsHolder value ifFalse:[ |
3955 self enablingCommitButtonsHolder value ifFalse:[ |
3964 self selectedColumnModel value:self singleSelectedColumnIndex + 1 |
3956 self selectedColumnModel value:self singleSelectedColumnIndex + 1 |
3965 ]. |
3957 ]. |