--- 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.