diff -r 54dbb4838d23 -r 914a2f26aa72 DataSetBuilder.st
--- a/DataSetBuilder.st	Mon Feb 02 23:11:35 1998 +0100
+++ b/DataSetBuilder.st	Mon Feb 02 23:28:17 1998 +0100
@@ -16,7 +16,7 @@
 
 ToolApplicationModel subclass:#DataSetBuilder
 	instanceVariableNames:'className superclassName hasChanged columnView columns
-		selectedColumnIndex tabSelectionIndex aspects isModified'
+		selectedColumnIndex tabSelectionIndex aspects'
 	classVariableNames:'Number'
 	poolDictionaries:''
 	category:'Interface-UIPainter'
@@ -1508,7 +1508,7 @@
 update:something with:aParameter from:someObject
     "one of my aspects has changed; update modified channel"
 
-    isModified 
+    hasChanged
     ifFalse:
     [
         self valueOfEnablingCommitButtons value: true.
@@ -1796,7 +1796,6 @@
     columns := OrderedCollection new.
     aspects := IdentityDictionary new.
     hasChanged := false.
-    isModified := false.
 
     #(
         label
@@ -1978,7 +1977,7 @@
     |column type|
 
     self valueOfEnablingCommitButtons value == false ifTrue: [^self].
-    isModified := hasChanged := true.
+    hasChanged := true.
 
     (column := self selectedColumn) isNil ifTrue: [^self cancel].
 
@@ -2005,7 +2004,6 @@
     self updateInputFields.
     self valueOfEnablingCommitButtons value:false.
     self columnIsNotEditing value: true.
-    isModified := false
 !
 
 doBrowseClass
@@ -2061,11 +2059,11 @@
         columns removeIndex:idx.
         self seqList removeIndex:idx.
         columns size > 0 ifTrue: [self selectedColumnModel value: ((idx - 1) max: 1)].
+        self updateColumnView.
         self updateInputFields.
-        self updateColumnView.
         columns isEmpty ifTrue: [self isColumnSelected value: false].
         self cancel.
-        isModified := hasChanged := true.
+        hasChanged := true.
     ]
 !
 
@@ -2225,7 +2223,7 @@
 
     self valueOfEnablingCommitButtons value ifFalse:[self selectedColumnModel value:selectedColumnIndex + 1].
     self updateColumnView.
-
+    self updateInputFields.
 ! !
 
 !DataSetBuilder class methodsFor:'documentation'!