--- a/DataSetBuilder.st Fri Jan 16 15:10:41 1998 +0100
+++ b/DataSetBuilder.st Fri Jan 16 15:53:12 1998 +0100
@@ -1439,7 +1439,8 @@
columns removeIndex:idx.
self seqList removeIndex:idx.
self updateColumnView.
- columns isEmpty ifTrue: [self isColumnSelected value: false]
+ columns isEmpty ifTrue: [self isColumnSelected value: false].
+ hasChanged := true
].
!
@@ -2214,6 +2215,12 @@
!DataSetBuilder methodsFor:'startup / release'!
+closeRequest
+ "close request
+ "
+ self checkMenuItemModified ifTrue: [super closeRequest]
+!
+
postBuildWith:builder
super postBuildWith:builder.