update #when:send:to: with #when:do:for:

src/Pyramid-Bloc/PyramidMainExtension.class.st

@@ -147,8 +147,8 @@ PyramidMainExtension >> projectModel: aProjectModel [
 
 	aProjectModel announcer
 		when: PyramidFirstLevelElementsChangedEvent
-		send: #pyramidFirstLevelElementsChanged:
-		to: self
+		do: [ :evt | self pyramidFirstLevelElementsChanged: evt ]
+		for: self
 ]
 
 { #category : 'as yet unclassified' }

src/Pyramid-Bloc/PyramidSaveProjectConfigurationController.class.st

@@ -57,12 +57,12 @@ PyramidSaveProjectConfigurationController >> projectModel: aProjectModel [
 
 	aProjectModel announcer
 		when: PyramidElementsChangedEvent
-		send: #updateSaveState:
-		to: self.
+		do: [ :evt | self updateSaveState: evt ]
+		for: self.
 	aProjectModel announcer
 		when: PyramidFirstLevelElementsChangedEvent
-		send: #updateSaveState:
-		to: self
+		do: [ :evt | self updateSaveState: evt ]
+		for: self.
 ]
 
 { #category : 'as yet unclassified' }

src/Pyramid-Bloc/PyramidSelectionWidgetExtension.class.st

@@ -193,7 +193,10 @@ PyramidSelectionWidgetExtension >> projectModel [
 PyramidSelectionWidgetExtension >> projectModel: aProjectModel [
 
 	projectModel := aProjectModel.
-	projectModel announcer when: PyramidSelectionChangedEvent send: #pyramidSelectionChanged: to: self.
+	projectModel announcer
+		when: PyramidSelectionChangedEvent
+		do: [ :evt | self pyramidSelectionChanged: evt ]
+		for: self.
 	self makeNewSelection
 ]
 

src/Pyramid-Bloc/PyramidTreePresenter.class.st

@@ -123,11 +123,18 @@ PyramidTreePresenter >> projectModel [
 PyramidTreePresenter >> projectModel: anObject [
 
 	projectModel := anObject.
-	projectModel announcer when: PyramidElementsChangedEvent send: #pyramidElementsChanged: to: self.
-	projectModel announcer when: PyramidFirstLevelElementsChangedEvent send: #pyramidFirstLevelElementsChanged: to: self.
-	projectModel announcer when: PyramidSelectionChangedEvent send: #pyramidSelectionChanged: to: self.
-
-
+	projectModel announcer
+		when: PyramidElementsChangedEvent
+		do: [ :evt | self pyramidElementsChanged: evt ]
+		for: self.
+	projectModel announcer
+		when: PyramidFirstLevelElementsChangedEvent
+		do: [ :evt | self pyramidFirstLevelElementsChanged: evt ]
+		for: self.
+	projectModel announcer
+		when: PyramidSelectionChangedEvent
+		do: [ :evt | self pyramidSelectionChanged: evt ]
+		for: self.
 ]
 
 { #category : 'as yet unclassified' }

src/Pyramid-Toplo/PyramidElementThemeSelectorPresenter.class.st

@@ -112,8 +112,14 @@ PyramidElementThemeSelectorPresenter >> projectModel [
 PyramidElementThemeSelectorPresenter >> projectModel: aPyramidProjectModel [
 
 	projectModel := aPyramidProjectModel.
-	projectModel when: PyramidElementsChangedEvent send: #elementsOrSelectionChanged: to: self.
-	projectModel when: PyramidSelectionChangedEvent send: #elementsOrSelectionChanged: to: self.
+	projectModel
+		when: PyramidElementsChangedEvent
+		do: [ :evt | self elementsOrSelectionChanged: evt ]
+		for: self.
+	projectModel
+		when: PyramidSelectionChangedEvent
+		do: [ :evt | self elementsOrSelectionChanged: evt ]
+		for: self.
 ]
 
 { #category : 'as yet unclassified' }

src/Pyramid/PyramidHistoryPlugin.class.st

@@ -80,8 +80,8 @@ PyramidHistoryPlugin >> projectModel: anObject [
 	projectModel := anObject.
 	projectModel announcer
 		when: PyramidElementsChangedEvent
-		send: #pyramidElementsChanged:
-		to: self
+		do: [ :evt | self pyramidElementsChanged: evt ]
+		for: self
 ]
 
 { #category : 'as yet unclassified' }

src/Pyramid/PyramidPlaygroundView.class.st

@@ -65,14 +65,14 @@ PyramidPlaygroundView >> projectModel: aPyramidActiveProject [
 
 	aPyramidActiveProject announcer
 		when: PyramidSelectionChangedEvent
-		send: #pyramidSelectionChanged:
-		to: self.
+		do: [ :evt | self pyramidSelectionChanged: evt ]
+		for: self.
 	self playground interactionModel projectModel: aPyramidActiveProject.
 	playground announcer
 		when: SpCodeEvaluationSucceedAnnouncement
 		do: [ :ann | aPyramidActiveProject informElementsChanged ]
 		for: self.
-	self updateSelectedElementsWith: {  }.
+	self updateSelectedElementsWith: {  }
 ]
 
 { #category : 'as yet unclassified' }

src/Pyramid/PyramidPropertiesManagerForSelection.class.st

@@ -53,12 +53,12 @@ PyramidPropertiesManagerForSelection >> projectModel: aPyramidProjectModel [
 	projectModel := aPyramidProjectModel.
 	aPyramidProjectModel announcer
 		when: PyramidElementsChangedEvent
-		send: #selectionOrElementsChanged:
-		to: self.
+		do: [ :evt | self selectionOrElementsChanged: evt ]
+		for: self.
 	aPyramidProjectModel announcer
 		when: PyramidSelectionChangedEvent
-		send: #selectionOrElementsChanged:
-		to: self
+		do: [ :evt | self selectionOrElementsChanged: evt ]
+		for: self.
 ]
 
 { #category : 'as yet unclassified' }