Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use onChangeEvaluate:
authorClaus Gittinger <cg@exept.de>
Thu, 03 Feb 2000 19:44:49 +0100
changeset 1329 a38c2e29d1fb
parent 1328 d14a9e2af362
child 1330 45983bc2efe1
use onChangeEvaluate:
ImageEditor.st file | annotate | diff | comparison | revisions
ProjectBrowser.st file | annotate | diff | comparison | revisions
ResourceSelectionBrowser.st file | annotate | diff | comparison | revisions
UIHelpTool.st file | annotate | diff | comparison | revisions 
--- a/ImageEditor.st	Thu Feb 03 18:31:08 2000 +0100
+++ b/ImageEditor.st	Thu Feb 03 19:44:49 2000 +0100
@@ -1861,7 +1861,7 @@
 
     editMode isNil ifTrue: [
         editMode := #point asValue.
-        editMode onChangeSend:#value to:[imageEditView editMode:(editMode value)]
+        editMode onChangeEvaluate:[imageEditView editMode:(editMode value)]
     ].
 
     ^editMode
@@ -1874,7 +1874,7 @@
     ifTrue:
     [
         mouseKeyColorMode := 1 asValue.
-        mouseKeyColorMode onChangeSend: #value to: [imageEditView mouseKeyColorMode: mouseKeyColorMode value. self selectionOfColor value: (self listOfColors indexOf: imageEditView selectedColor).]
+        mouseKeyColorMode onChangeEvaluate: [imageEditView mouseKeyColorMode: mouseKeyColorMode value. self selectionOfColor value: (self listOfColors indexOf: imageEditView selectedColor).]
     ].
 
     ^mouseKeyColorMode
--- 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.
 
--- a/ResourceSelectionBrowser.st	Thu Feb 03 18:31:08 2000 +0100
+++ b/ResourceSelectionBrowser.st	Thu Feb 03 19:44:49 2000 +0100
@@ -566,7 +566,7 @@
 
     (holder := builder bindingAt:#selectionOfClassPresentation) isNil ifTrue:[
         builder aspectAt:#selectionOfClassPresentation put:(holder :=  RadioButtonGroup with: (ClassPresentation := ClassPresentation ? #'Class Categories')).
-        holder onChangeSend: #value to: 
+        holder onChangeEvaluate: 
             [
                  |hv comp newRoot|
 
--- a/UIHelpTool.st	Thu Feb 03 18:31:08 2000 +0100
+++ b/UIHelpTool.st	Thu Feb 03 19:44:49 2000 +0100
@@ -548,7 +548,7 @@
 
         (eTxtView := self editTextView) notNil ifTrue: [
             modChannel := eTxtView modifiedChannel.
-            modChannel onChangeSend:#value to:[
+            modChannel onChangeEvaluate:[
                 modifiedHolder notNil ifTrue:[
                     modChannel value ifTrue:[
                         modifiedHolder value:true
hg/stx-libtool2