--- 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'!