diff --git a/src/Spec2-Layout/SpExecutableLayout.class.st b/src/Spec2-Layout/SpExecutableLayout.class.st index 4e44caa8..f7f9b514 100644 --- a/src/Spec2-Layout/SpExecutableLayout.class.st +++ b/src/Spec2-Layout/SpExecutableLayout.class.st @@ -306,12 +306,14 @@ SpExecutableLayout >> resolvePresenter: aPresenterOrLayout presenter: aPresenter { #category : 'accessing' } SpExecutableLayout >> selector [ + ^ selector ] { #category : 'accessing' } -SpExecutableLayout >> selector: anObject [ - selector := anObject +SpExecutableLayout >> selector: aSelector [ + + selector := aSelector ] { #category : 'private' } @@ -338,13 +340,16 @@ SpExecutableLayout >> unsubscribe [ { #category : 'events' } SpExecutableLayout >> whenChildrenAddedDo: aBlock [ - self announcer when: SpChildrenAdded do: aBlock for: aBlock receiver + self announcer weak + when: SpChildrenAdded + do: aBlock + for: aBlock receiver ] { #category : 'events' } SpExecutableLayout >> whenChildrenRemovedDo: aBlock [ - self announcer + self announcer weak when: SpChildrenRemoved do: aBlock for: aBlock receiver