equal
deleted
inserted
replaced
2058 [ |
2058 [ |
2059 self selectedColumnModel value:0. |
2059 self selectedColumnModel value:0. |
2060 self clipboard: (columns at: idx). |
2060 self clipboard: (columns at: idx). |
2061 columns removeIndex:idx. |
2061 columns removeIndex:idx. |
2062 self seqList removeIndex:idx. |
2062 self seqList removeIndex:idx. |
|
2063 columns size > 0 ifTrue: [self selectedColumnModel value: ((idx - 1) max: 1)]. |
|
2064 self updateInputFields. |
2063 self updateColumnView. |
2065 self updateColumnView. |
2064 columns isEmpty ifTrue: [self isColumnSelected value: false]. |
2066 columns isEmpty ifTrue: [self isColumnSelected value: false]. |
2065 hasChanged := true |
2067 self cancel. |
|
2068 isModified := hasChanged := true. |
2066 ] |
2069 ] |
2067 ! |
2070 ! |
2068 |
2071 |
2069 doDefineClass |
2072 doDefineClass |
2070 "launch a dialog to define class and superclass" |
2073 "launch a dialog to define class and superclass" |