diff --git a/src/NewTools-Inspector/StObjectContextPresenter.class.st b/src/NewTools-Inspector/StObjectContextPresenter.class.st index a156036ac..2eddb1ffc 100644 --- a/src/NewTools-Inspector/StObjectContextPresenter.class.st +++ b/src/NewTools-Inspector/StObjectContextPresenter.class.st @@ -39,7 +39,7 @@ StObjectContextPresenter >> doEvaluateAndGo [ onCompileError: [ ^ self ] onError: [ :e | e pass ]. - activationBlock value: (StEvaluatedSelectionModel newValue: value) + activationBlock value: value ] { #category : #private } diff --git a/src/NewTools-Inspector/StObjectInspectorPresenter.class.st b/src/NewTools-Inspector/StObjectInspectorPresenter.class.st index 92dbca344..4fc909391 100644 --- a/src/NewTools-Inspector/StObjectInspectorPresenter.class.st +++ b/src/NewTools-Inspector/StObjectInspectorPresenter.class.st @@ -71,7 +71,7 @@ StObjectInspectorPresenter class >> openOn: anObject [ StObjectInspectorPresenter >> activate: aSelection [ activationBlock ifNil: [ ^ self ]. - activationBlock cull: (SpActivatedSelection newValue: aSelection) + activationBlock cull: aSelection ] { #category : #accessing } diff --git a/src/NewTools-Playground/StPlaygroundPagePresenter.class.st b/src/NewTools-Playground/StPlaygroundPagePresenter.class.st index 50c2acc60..12bb87f57 100644 --- a/src/NewTools-Playground/StPlaygroundPagePresenter.class.st +++ b/src/NewTools-Playground/StPlaygroundPagePresenter.class.st @@ -177,7 +177,7 @@ StPlaygroundPagePresenter >> doEvaluateAndGo [ onCompileError: [ ^ self ] onError: [ :e | e pass ]. - activationBlock value: (SpActivatedSelection newValue: value) + activationBlock value: value ] { #category : #accessing }