# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 921846273 -3600
# Node ID 15184a3a00e14158231819afd94f4ef9aa4d0a2c
# Parent  7400e3e3daf6917d81496603e2dfd701c3f7fc49
accept & modifiedChannels

diff -r 7400e3e3daf6 -r 15184a3a00e1 MenuEditor.st
--- 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
 !