changeset 555 | 54dbb4838d23 |
parent 554 | 34ceed6455fa |
child 556 | 914a2f26aa72 |
--- a/DataSetBuilder.st Mon Feb 02 20:19:04 1998 +0100 +++ b/DataSetBuilder.st Mon Feb 02 23:11:35 1998 +0100 @@ -2060,9 +2060,12 @@ self clipboard: (columns at: idx). columns removeIndex:idx. self seqList removeIndex:idx. + columns size > 0 ifTrue: [self selectedColumnModel value: ((idx - 1) max: 1)]. + self updateInputFields. self updateColumnView. columns isEmpty ifTrue: [self isColumnSelected value: false]. - hasChanged := true + self cancel. + isModified := hasChanged := true. ] !