--- a/DataSetBuilder.st Sat Jan 17 16:23:27 1998 +0100
+++ b/DataSetBuilder.st Sat Jan 17 18:13:47 1998 +0100
@@ -1019,11 +1019,11 @@
#'window:'
#(#WindowSpec
#'name:' 'Data Set Builder'
- #'layout:' #(#LayoutFrame 246 0 169 0 732 0 528 0)
+ #'layout:' #(#LayoutFrame 109 0 262 0 595 0 621 0)
#'label:' 'Data Set Builder'
#'min:' #(#Point 10 10)
#'max:' #(#Point 1152 900)
- #'bounds:' #(#Rectangle 246 169 733 529)
+ #'bounds:' #(#Rectangle 109 262 596 622)
#'menu:' #menu
#'usePreferredExtent:' false
)
@@ -1081,33 +1081,11 @@
#'layout:' #(#LayoutFrame 0 0.0 35 0.0 0 1.0 -30 1.0)
#'specHolder:' #specChannel
)
- #(#HorizontalPanelViewSpec
- #'name:' 'modifyPanel'
- #'layout:' #(#LayoutFrame 0 0.0 -30 1.0 0 1.0 0 1.0)
- #'component:'
- #(#SpecCollection
- #'collection:'
- #(
- #(#ActionButtonSpec
- #'name:' 'cancelButton'
- #'label:' 'Cancel'
- #'model:' #cancel
- #'enableChannel:' #modifiedChannel
- #'extent:' #(#Point 173 24)
- )
- #(#ActionButtonSpec
- #'name:' 'acceptButton'
- #'label:' 'OK'
- #'model:' #accept
- #'enableChannel:' #modifiedChannel
- #'extent:' #(#Point 174 24)
- )
- )
- )
- #'horizontalLayout:' #fitSpace
- #'verticalLayout:' #fitSpace
- #'horizontalSpace:' 3
- #'verticalSpace:' 3
+ #(#UISubSpecification
+ #'name:' 'SubSpecification'
+ #'layout:' #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
+ #'majorKey:' #ToolApplicationModel
+ #'minorKey:' #windowSpecForCommit
)
)
)
@@ -1427,16 +1405,6 @@
!
-modifiedChannel
- "returns a boolean value holder which is set to true if something is modified
- and not accepted"
-
- ^builder booleanValueAspectFor:#modifiedChannel
-
-
-
-!
-
rendererTypeList
"generate list of supported renderer types"
@@ -1520,7 +1488,7 @@
ifFalse:
[
isModified := hasChanged := true.
- self modifiedChannel value: true.
+ self valueOfEnablingCommitButtons value: true.
self columnIsNotEditing value: false
]
! !
@@ -1850,14 +1818,14 @@
checkMenuItemModified
"check column modification"
- self modifiedChannel value
+ self valueOfEnablingCommitButtons value
ifTrue:
[
((YesNoBox title:'Column was modified!!\Save it?\' withCRs)
noText:'No';
yesText:'Yes';
showAtPointer;
- accepted) ifFalse: [self modifiedChannel value: false. ^true].
+ accepted) ifFalse: [self valueOfEnablingCommitButtons value: false. ^true].
self accept
].
^true
@@ -1986,7 +1954,7 @@
|column type|
- self modifiedChannel value == false ifTrue: [^self].
+ self valueOfEnablingCommitButtons value == false ifTrue: [^self].
isModified := true.
(column := self selectedColumn) isNil ifTrue: [^self cancel].
@@ -2012,7 +1980,7 @@
|column|
self updateInputFields.
- self modifiedChannel value:false.
+ self valueOfEnablingCommitButtons value:false.
self columnIsNotEditing value: true.
isModified := false
!
@@ -2052,7 +2020,7 @@
columns add:(DataSetColumnSpec label:label selector:nil) afterIndex:selectedColumnIndex.
self seqList add:label afterIndex:selectedColumnIndex.
hasChanged := true.
- self modifiedChannel value ifFalse:[self selectedColumnModel value:selectedColumnIndex + 1].
+ self valueOfEnablingCommitButtons value ifFalse:[self selectedColumnModel value:selectedColumnIndex + 1].
self cancel
!
@@ -2229,7 +2197,7 @@
self seqList add: label afterIndex:selectedColumnIndex.
hasChanged := true.
- self modifiedChannel value ifFalse:[self selectedColumnModel value:selectedColumnIndex + 1].
+ self valueOfEnablingCommitButtons value ifFalse:[self selectedColumnModel value:selectedColumnIndex + 1].
self updateColumnView.
! !