--- 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"