equal
deleted
inserted
replaced
2257 doPasteColumn |
2257 doPasteColumn |
2258 "paste clipboard copy column after selected column or at left (nothing selected)" |
2258 "paste clipboard copy column after selected column or at left (nothing selected)" |
2259 |
2259 |
2260 |label list| |
2260 |label list| |
2261 |
2261 |
|
2262 self checkMenuItemModified ifFalse: [^nil]. |
2262 list := self seqList. |
2263 list := self seqList. |
2263 label := self class clipboard label. |
2264 label := self class clipboard label. |
2264 columns add: self class clipboard deepCopy afterIndex:selectedColumnIndex. |
2265 columns add: self class clipboard deepCopy afterIndex:selectedColumnIndex. |
2265 self seqList add: label afterIndex:selectedColumnIndex. |
2266 self seqList add: label afterIndex:selectedColumnIndex. |
2266 hasChanged := true. |
2267 hasChanged := true. |