Merge pull request #702 from moosetechnology/when-do

Remove some deprecated calls in P12

Author: jecisc

src/Moose-Core-Tests/MooseModelTest.class.st

@@ -20,9 +20,10 @@ MooseModelTest >> testAdd [
 
 { #category : #tests }
 MooseModelTest >> testAddAnnouncement [
+
 	| entity announcedEntity |
 	entity := MooseEntity new.
-	group announcer when: MooseEntityAdded do: [ :a | announcedEntity := a entity ].
+	group announcer when: MooseEntityAdded do: [ :a | announcedEntity := a entity ] for: self.
 
 	group add: entity.
 	self assert: announcedEntity identicalTo: entity
@@ -57,10 +58,11 @@ MooseModelTest >> testAsMSEString [
 
 { #category : #tests }
 MooseModelTest >> testBookmarkAsRaisesAnnouncement [
+
 	| entity1 announcedEntity |
 	entity1 := MooseEntity new.
 	group add: entity1.
-	group announcer when: MooseEntityAdded do: [ :a | announcedEntity := a entity ].
+	group announcer when: MooseEntityAdded do: [ :a | announcedEntity := a entity ] for: self.
 
 	entity1 bookmarkAs: 'one'.
 	self assert: announcedEntity isNotNil
@@ -162,9 +164,10 @@ MooseModelTest >> testRemoveAllEntity [
 
 { #category : #tests }
 MooseModelTest >> testRemoveAnnouncement [
+
 	| entity announcedEntity |
 	entity := MooseEntity new.
-	group announcer when: MooseEntityRemoved do: [ :a | announcedEntity := a entity ].
+	group announcer when: MooseEntityRemoved do: [ :a | announcedEntity := a entity ] for: self.
 	group add: entity.
 	self assert: announcedEntity isNil.
 	group remove: entity.
@@ -213,8 +216,9 @@ MooseModelTest >> testRemoveModelNamedFromRoot [
 
 { #category : #tests }
 MooseModelTest >> testRenamedAnnouncement [
+
 	| oldName |
-	group announcer when: MooseEntityRenamed do: [ :a | oldName := a oldName ].
+	group announcer when: MooseEntityRenamed do: [ :a | oldName := a oldName ] for: self.
 	group name: #somename.
 	self assert: oldName equals: #noname.
 	group name: #anothername.