From edd8aec21a119f9af64f285cc4c88236ab38aba7 Mon Sep 17 00:00:00 2001
From: Durieux Pol <pol.durieux.etu@univ-lille.fr>
Date: Fri, 26 May 2023 12:18:42 +0200
Subject: [PATCH] Commit auto-rewrite from deprecation

---
 src/Spec2-Core/SpPresenter.class.st          | 5 +++--
 src/Spec2-Layout/SpExecutableLayout.class.st | 5 ++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/Spec2-Core/SpPresenter.class.st b/src/Spec2-Core/SpPresenter.class.st
index 4f35aeacb..3d4de879b 100644
--- a/src/Spec2-Core/SpPresenter.class.st
+++ b/src/Spec2-Core/SpPresenter.class.st
@@ -987,9 +987,10 @@ SpPresenter >> whenWindowChanged: aBlock [
 
 	self flag: #TODO. "This is here for backwards compatibility (you can have same 
 	functionality in #initializeWindow:"
-	self announcer 
-		when: SpWindowBuilt 
+	self announcer
+		when: SpWindowBuilt
 		do: [ :ann | aBlock cull: ann model ]
+		for: self
 ]
 
 { #category : #TOREMOVE }
diff --git a/src/Spec2-Layout/SpExecutableLayout.class.st b/src/Spec2-Layout/SpExecutableLayout.class.st
index 3c2e9ea14..605fa8e62 100644
--- a/src/Spec2-Layout/SpExecutableLayout.class.st
+++ b/src/Spec2-Layout/SpExecutableLayout.class.st
@@ -332,9 +332,7 @@ SpExecutableLayout >> unsubscribe [
 { #category : #events }
 SpExecutableLayout >> whenChildrenAddedDo: aBlock [
 
-	self announcer
-		when: SpChildrenAdded
-		do: aBlock
+	self announcer when: SpChildrenAdded do: aBlock for: aBlock receiver
 ]
 
 { #category : #events }
@@ -343,6 +341,7 @@ SpExecutableLayout >> whenChildrenRemovedDo: aBlock [
 	self announcer
 		when: SpChildrenRemoved
 		do: aBlock
+		for: aBlock receiver
 ]
 
 { #category : #private }