equal
deleted
inserted
replaced
3543 ) do:[:aKey| |
3543 ) do:[:aKey| |
3544 (aspects at:aKey) value:nil |
3544 (aspects at:aKey) value:nil |
3545 ] |
3545 ] |
3546 ]. |
3546 ]. |
3547 aspects keysAndValuesDo:[:aKey :aModel| |
3547 aspects keysAndValuesDo:[:aKey :aModel| |
3548 column perform:(aKey , ':') asSymbol with: aModel value |
3548 column perform:aKey asMutator with: aModel value |
3549 ]. |
3549 ]. |
3550 self seqList at:self singleSelectedColumnIndex put:(self labelFromColumn:column). |
3550 self seqList at:self singleSelectedColumnIndex put:(self labelFromColumn:column). |
3551 self updateColumnView. |
3551 self updateColumnView. |
3552 self cancel. |
3552 self cancel. |
3553 self clearModified. |
3553 self clearModified. |