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