# HG changeset patch
# User tz
# Date 884962392 -3600
# Node ID 6fbb954fdd758b29c576a747b6ace5070d53da27
# Parent  9215eb553600a6a32d846874520d6b58db66ed98
column save request after close request

diff -r 9215eb553600 -r 6fbb954fdd75 DataSetBuilder.st
--- 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.