# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 924290912 -7200
# Node ID e88edf4a8cbe551b84e1866203107a0108bec2f4
# Parent  0d190d1f48753ac9b2eb79b38b6e38d1856b52dc
editFields - accept

diff -r 0d190d1f4875 -r e88edf4a8cbe ProjectBrowser.st
--- a/ProjectBrowser.st	Fri Apr 16 21:01:01 1999 +0200
+++ b/ProjectBrowser.st	Fri Apr 16 21:28:32 1999 +0200
@@ -349,6 +349,7 @@
                     #tabable: true
                     #model: #installDirectory
                     #modifiedChannel: #modifiedChannel
+                    #acceptChannel: #acceptChannel
                   )
                  )
                
@@ -781,6 +782,7 @@
                     #enableChannel: #currentProjectWasNotLoadedFromFile
                     #model: #projectDirectory
                     #modifiedChannel: #modifiedChannel
+                    #acceptChannel: #acceptChannel
                   )
                  )
                
@@ -800,12 +802,14 @@
                     #layout: #(#LayoutFrame 92 0.0 4 0 0 1.0 26 0)
                     #model: #repositoryModule
                     #modifiedChannel: #modifiedChannel
+                    #acceptChannel: #acceptChannel
                   )
                  #(#InputFieldSpec
                     #name: 'EntryField3'
                     #layout: #(#LayoutFrame 92 0.0 29 0 0 1.0 51 0)
                     #model: #repositoryDirectory
                     #modifiedChannel: #modifiedChannel
+                    #acceptChannel: #acceptChannel
                   )
                  #(#LabelSpec
                     #label: 'Module:'
@@ -839,6 +843,7 @@
                     #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0)
                     #model: #projectNamespace
                     #modifiedChannel: #modifiedChannel
+                    #acceptChannel: #acceptChannel
                   )
                  )
                
@@ -1456,6 +1461,18 @@
 
 !ProjectBrowser methodsFor:'aspects'!
 
+acceptChannel
+    |holder|
+
+    (holder := builder bindingAt:#acceptChannel) isNil ifTrue:[
+        holder := false asValue.
+        builder aspectAt:#acceptChannel put:holder.
+    ].
+    ^ holder.
+
+    "Created: / 23.3.1999 / 14:18:05 / cg"
+!
+
 browseClass
     |node className cls|
 
@@ -2160,6 +2177,8 @@
     p notNil ifTrue:[
         p removeDependent:self.
 
+        self acceptChannel value:true; value:false.
+
 "/        self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
         p type:self projectType value.
 "/        p directory:self projectDirectory value.