--- a/MenuEditor.st Fri Mar 19 08:26:32 1999 +0100
+++ b/MenuEditor.st Fri Mar 19 13:24:33 1999 +0100
@@ -386,6 +386,9 @@
#type: #symbolOrNil
#acceptOnReturn: false
#acceptOnTab: false
+ #acceptOnLostFocus: true
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#LabelSpec
#name: 'labelLabel'
@@ -404,6 +407,9 @@
#group: #inputGroup
#acceptOnReturn: false
#acceptOnTab: false
+ #acceptOnLostFocus: true
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#LabelSpec
#name: 'valueLabel'
@@ -423,6 +429,9 @@
#type: #symbolOrNil
#acceptOnReturn: false
#acceptOnTab: false
+ #acceptOnLostFocus: true
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#LabelSpec
#name: 'argumentLabel'
@@ -442,6 +451,9 @@
#type: #string
#acceptOnReturn: false
#acceptOnTab: false
+ #acceptOnLostFocus: true
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#LabelSpec
#name: 'indicationLabel'
@@ -462,6 +474,9 @@
#type: #symbolOrNil
#acceptOnReturn: false
#acceptOnTab: false
+ #acceptOnLostFocus: true
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#LabelSpec
#name: 'choiceLabel'
@@ -483,6 +498,9 @@
#type: #symbolOrNil
#acceptOnReturn: false
#acceptOnTab: false
+ #acceptOnLostFocus: true
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#LabelSpec
#name: 'choiceValueLabel'
@@ -507,6 +525,8 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#CheckBoxSpec
#name: 'translateLabelCheckBox'
@@ -578,6 +598,8 @@
#acceptOnReturn: false
#acceptOnTab: false
#group: #inputGroup
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#LabelSpec
#name: 'labelLabel'
@@ -594,6 +616,8 @@
#acceptOnReturn: false
#acceptOnTab: false
#group: #inputGroup
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#LabelSpec
#name: 'menuLabel'
@@ -611,6 +635,8 @@
#acceptOnReturn: false
#acceptOnTab: false
#group: #inputGroup
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#LabelSpec
#name: 'ArgumentLabel'
@@ -627,6 +653,8 @@
#acceptOnReturn: false
#acceptOnTab: false
#group: #inputGroup
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#CheckBoxSpec
#name: 'translateLabelCheckBox'
@@ -691,6 +719,8 @@
#acceptOnReturn: false
#acceptOnTab: false
#group: #inputGroup
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#LabelSpec
#name: 'labelLabel'
@@ -708,6 +738,8 @@
#acceptOnReturn: false
#acceptOnTab: false
#group: #inputGroup
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#CheckBoxSpec
#name: 'translateLabelCheckBox'
@@ -771,6 +803,8 @@
#acceptOnReturn: false
#acceptOnTab: false
#group: #inputGroup
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
)
)
@@ -842,6 +876,8 @@
#acceptOnReturn: false
#acceptOnTab: false
#group: #inputGroup
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
)
)
@@ -899,6 +935,8 @@
#acceptOnReturn: false
#acceptOnTab: false
#group: #inputGroup
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#LabelSpec
#name: 'enabledLabel'
@@ -918,6 +956,8 @@
#acceptOnReturn: false
#acceptOnTab: false
#group: #inputGroup
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#LabelSpec
#name: 'visibilityLabel'
@@ -937,6 +977,8 @@
#acceptOnReturn: false
#acceptOnTab: false
#group: #inputGroup
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
#(#LabelSpec
#name: 'StartGroupLabel'
@@ -977,6 +1019,8 @@
#acceptOnReturn: false
#acceptOnTab: false
#group: #inputGroup
+ #modifiedChannel: #modifiedChannel
+ #acceptChannel: #acceptChannel
)
)
)
@@ -1060,7 +1104,9 @@
#group: #inputGroup
#type: #symbolOrNil
#acceptOnReturn: false
+ #modifiedChannel: #modifiedChannel
#acceptOnTab: false
+ #acceptChannel: #acceptChannel
)
#(#ActionButtonSpec
#name: 'imageEditorButton'
@@ -2190,7 +2236,9 @@
self helpTool helpKey: self helpKey.
"Next line helps me to preserve myself against unnecessary settings of
valueOfEnablingCommitButtons to true in the help tool."
+
self valueOfEnablingCommitButtons value: false.
+ self modifiedChannel value: false.
slc ~= slices ifTrue:[
tabSelection ~~ 0 ifTrue:[
@@ -2302,18 +2350,13 @@
super accept.
- (node := self treeView selectedNode) notNil
- ifTrue:
- [
- self isHelpToolSelected
- ifTrue:
- [
+ (node := self treeView selectedNode) notNil ifTrue:[
+ self isHelpToolSelected ifTrue:[
self helpTool accept.
node contents activeHelpKey: self helpTool helpKey.
self valueOfEnablingCommitButtons value: false.
- ]
- ifFalse:
- [
+ self modifiedChannel value: false.
+ ] ifFalse:[
node contents buildFromAspects: aspects.
node changed.
specSelector := self treeView selectorName.
@@ -2327,14 +2370,14 @@
"invoked by button 'Cancel'"
|node|
- (node := self treeView selectedNode) notNil
- ifTrue:
- [
+
+ (node := self treeView selectedNode) notNil ifTrue:[
self helpTool helpKey:(self helpKey).
aspects do:[:anAspect| anAspect value:nil].
node contents toAspects:aspects
].
self valueOfEnablingCommitButtons value: false.
+ self modifiedChannel value: false.
modified := false
!