Mercurial Mercurial > hg > stx-libtool2 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ProjectBrowser.st
changeset 1329 a38c2e29d1fb
parent 1327 3645e5215142
child 1370 c975b2f00291 
--- a/ProjectBrowser.st	Thu Feb 03 18:31:08 2000 +0100
+++ b/ProjectBrowser.st	Thu Feb 03 19:44:49 2000 +0100
@@ -3075,7 +3075,7 @@
 
     (holder := builder bindingAt:#deliverByteCode) isNil ifTrue:[
         builder aspectAt:#deliverByteCode put:(holder :=  ValueHolder new).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3089,7 +3089,7 @@
 
     (holder := builder bindingAt:#deliverCompiledBinary) isNil ifTrue:[
         builder aspectAt:#deliverCompiledBinary put:(holder :=  ValueHolder new).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3103,7 +3103,7 @@
 
     (holder := builder bindingAt:#deliverGZipArchive) isNil ifTrue:[
         builder aspectAt:#deliverGZipArchive put:(holder :=  ValueHolder new).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3117,7 +3117,7 @@
 
     (holder := builder bindingAt:#deliverLoadAllFile) isNil ifTrue:[
         builder aspectAt:#deliverLoadAllFile put:(holder :=  ValueHolder new).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3131,7 +3131,7 @@
 
     (holder := builder bindingAt:#deliverMakefiles) isNil ifTrue:[
         builder aspectAt:#deliverMakefiles put:(holder :=  ValueHolder new).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3145,7 +3145,7 @@
 
     (holder := builder bindingAt:#deliverSources) isNil ifTrue:[
         builder aspectAt:#deliverSources put:(holder :=  ValueHolder new).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3159,7 +3159,7 @@
 
     (holder := builder bindingAt:#deliverTarArchive) isNil ifTrue:[
         builder aspectAt:#deliverTarArchive put:(holder :=  ValueHolder new).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3173,7 +3173,7 @@
 
     (holder := builder bindingAt:#deliverZipArchive) isNil ifTrue:[
         builder aspectAt:#deliverZipArchive put:(holder :=  ValueHolder new).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3259,7 +3259,7 @@
 
     (holder := builder bindingAt:#installDirectoryUnix) isNil ifTrue:[
         builder aspectAt:#installDirectoryUnix put:(holder := '/opt/smalltalk' asValue).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3273,7 +3273,7 @@
 
     (holder := builder bindingAt:#installDirectoryVMS) isNil ifTrue:[
         builder aspectAt:#installDirectoryVMS put:(holder := '' asValue).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3287,7 +3287,7 @@
 
     (holder := builder bindingAt:#installDirectoryWin32) isNil ifTrue:[
         builder aspectAt:#installDirectoryWin32 put:(holder := '\Programme\SmalltalkX' asValue).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3397,7 +3397,7 @@
 
     (holder := builder bindingAt:#makeDefines) isNil ifTrue:[
         builder aspectAt:#makeDefines put:(holder := '' asValue).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3411,7 +3411,7 @@
 
     (holder := builder bindingAt:#makeIncludes) isNil ifTrue:[
         builder aspectAt:#makeIncludes put:(holder := '' asValue).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3425,7 +3425,7 @@
 
     (holder := builder bindingAt:#makeOtherWarningOptions) isNil ifTrue:[
         builder aspectAt:#makeOtherWarningOptions put:(holder := '' asValue).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3439,7 +3439,7 @@
 
     (holder := builder bindingAt:#makeWarnEOLComments) isNil ifTrue:[
         builder aspectAt:#makeWarnEOLComments put:(holder := false asValue).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3453,7 +3453,7 @@
 
     (holder := builder bindingAt:#makeWarnNonStandard) isNil ifTrue:[
         builder aspectAt:#makeWarnNonStandard put:(holder := true asValue).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3467,7 +3467,7 @@
 
     (holder := builder bindingAt:#methodsFile) isNil ifTrue:[
         builder aspectAt:#methodsFile put:(holder := '' asValue).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3528,7 +3528,7 @@
 
     (holder := builder bindingAt:#projectDirectory) isNil ifTrue:[
         builder aspectAt:#projectDirectory put:(holder := '.' asValue).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3542,7 +3542,7 @@
 
     (holder := builder bindingAt:#projectNamespace) isNil ifTrue:[
         builder aspectAt:#projectNamespace put:(holder :=  ValueHolder new).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3586,7 +3586,7 @@
 
     (holder := builder bindingAt:#projectType) isNil ifTrue:[
         builder aspectAt:#projectType put:(holder :=  ValueHolder new).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3600,7 +3600,7 @@
 
     (holder := builder bindingAt:#repositoryDirectory) isNil ifTrue:[
         builder aspectAt:#repositoryDirectory put:(holder :=  ValueHolder new).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
 
@@ -3614,7 +3614,7 @@
 
     (holder := builder bindingAt:#repositoryModule) isNil ifTrue:[
         builder aspectAt:#repositoryModule put:(holder :=  ValueHolder new).
-        holder onChangeSend:#value to:[modifiedChannel value:true].
+        holder onChangeEvaluate:[modifiedChannel value:true].
     ].
     ^ holder.
hg/stx-libtool2