equal
deleted
inserted
replaced
2037 "create a new column after selected column or at left (nothing selected)" |
2037 "create a new column after selected column or at left (nothing selected)" |
2038 |
2038 |
2039 |label list| |
2039 |label list| |
2040 |
2040 |
2041 list := self seqList. |
2041 list := self seqList. |
2042 label := 'Column ', list size printString. |
2042 label := 'Column ', (list size + 1) printString. |
2043 columns add:(DataSetColumnSpec label:label selector:nil) afterIndex:selectedColumnIndex. |
2043 columns add:(DataSetColumnSpec label:label selector:nil) afterIndex:selectedColumnIndex. |
2044 self seqList add:label afterIndex:selectedColumnIndex. |
2044 self seqList add:label afterIndex:selectedColumnIndex. |
2045 hasChanged := true. |
2045 hasChanged := true. |
2046 self valueOfEnablingCommitButtons value ifFalse:[self selectedColumnModel value:selectedColumnIndex + 1]. |
2046 self valueOfEnablingCommitButtons value ifFalse:[self selectedColumnModel value:selectedColumnIndex + 1]. |
2047 self cancel |
2047 self cancel |