# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 931880187 -7200
# Node ID e413149dabe60e6bcc8bda93d26cb940dfce50a9
# Parent  4cea2d4e9dbc445647d553fbe4b4eb9b1faa1725
code cleanup

diff -r 4cea2d4e9dbc -r e413149dabe6 DataSetBuilder.st
--- a/DataSetBuilder.st	Sat Jul 10 00:11:07 1999 +0200
+++ b/DataSetBuilder.st	Tue Jul 13 17:36:27 1999 +0200
@@ -2055,15 +2055,13 @@
 
     updateBlock := [
         columns notEmpty ifTrue: [
-            self tabModel value: 0. 
-            self tabModel value: 1. 
-            self selectedColumnModel value: nil.
-            self selectedColumnModel value: 1.
+            self tabModel value:0; value:1.                 "/ toggle to force change
+            self selectedColumnModel value:nil; value:1.    "/ toggle to force change
             self updateColumnView.
             self updateInputFields.
             self updateInfoLabel.
             self updateHistory.
-            self modifiedChannel value: false.
+            self clearModifiedFlag.
             self valueOfEnablingCommitButtons value:false.
         ]
     ].
@@ -2106,8 +2104,7 @@
 
     columns notEmpty ifTrue: [
         self tabModel value: 1. 
-        self selectedColumnModel value: nil.
-        self selectedColumnModel value: 1.
+        self selectedColumnModel value:nil; value:1.    "/ toggle to force change
         self updateInputFields.
         self updateInfoLabel.
         self updateHistory
@@ -2694,7 +2691,7 @@
     self updateInputFields.
     self valueOfEnablingCommitButtons value:false.
     self columnIsNotEditing value: true.
-    self modifiedChannel value: false.
+    self clearModifiedFlag.
     self valueOfEnablingCommitButtons value:false.
 
     "Modified: / 27.10.1998 / 14:41:41 / cg"