equal
deleted
inserted
replaced
2526 selectedColumnIndex := 0. |
2526 selectedColumnIndex := 0. |
2527 columns := OrderedCollection new. |
2527 columns := OrderedCollection new. |
2528 modalOpened := false. |
2528 modalOpened := false. |
2529 listOfSpecViews := Array new:(self class slices size). |
2529 listOfSpecViews := Array new:(self class slices size). |
2530 |
2530 |
|
2531 ! |
|
2532 |
|
2533 setDefaultValuesInNewColumn:aDataSetColumnSpec |
|
2534 "/ nothing done here - hook for WO |
2531 ! ! |
2535 ! ! |
2532 |
2536 |
2533 !DataSetBuilder methodsFor:'private'! |
2537 !DataSetBuilder methodsFor:'private'! |
2534 |
2538 |
2535 askForListModification |
2539 askForListModification |
2841 ! |
2845 ! |
2842 |
2846 |
2843 doCreateColumn |
2847 doCreateColumn |
2844 "create a new column after selected column or at left (nothing selected)" |
2848 "create a new column after selected column or at left (nothing selected)" |
2845 |
2849 |
2846 |label list| |
2850 |label list dscs | |
2847 |
2851 |
2848 list := self seqList. |
2852 list := self seqList. |
2849 label := 'Column ', (list size + 1) printString. |
2853 label := 'Column ', (list size + 1) printString. |
2850 columns add:(DataSetColumnSpec label:label selector:nil) afterIndex:selectedColumnIndex. |
2854 columns add:(dscs := DataSetColumnSpec label:label selector:nil) afterIndex:selectedColumnIndex. |
|
2855 self setDefaultValuesInNewColumn:dscs. |
2851 self seqList add:label afterIndex:selectedColumnIndex. |
2856 self seqList add:label afterIndex:selectedColumnIndex. |
2852 self valueOfEnablingCommitButtons value ifFalse:[ |
2857 self valueOfEnablingCommitButtons value ifFalse:[ |
2853 self selectedColumnModel value:selectedColumnIndex + 1 |
2858 self selectedColumnModel value:selectedColumnIndex + 1 |
2854 ]. |
2859 ]. |
2855 self cancel. |
2860 self cancel. |
2856 self updateColumnView. |
2861 self updateColumnView. |
2857 modified := true. |
2862 modified := true. |
2858 |
|
2859 ! |
2863 ! |
2860 |
2864 |
2861 doCut |
2865 doCut |
2862 "remove selected column and put it to the clipboard" |
2866 "remove selected column and put it to the clipboard" |
2863 |
2867 |