From f32ab925c555cd2509418feff7d2f6911b2f3dab Mon Sep 17 00:00:00 2001 From: guillep Date: Tue, 9 Jun 2026 09:40:34 +0200 Subject: [PATCH] Use the interaction model as requestor. Move correctFrom:to:with: up in the hierarchy. --- src/NewTools-MethodBrowsers/StMethodBrowser.class.st | 2 +- .../StPlaygroundInteractionModel.class.st | 5 ----- 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/src/NewTools-MethodBrowsers/StMethodBrowser.class.st b/src/NewTools-MethodBrowsers/StMethodBrowser.class.st index ecf018222..cf1bc2f25 100644 --- a/src/NewTools-MethodBrowsers/StMethodBrowser.class.st +++ b/src/NewTools-MethodBrowsers/StMethodBrowser.class.st @@ -531,7 +531,7 @@ StMethodBrowser >> connectPresenters [ whenModelChangedDo: [ self updateTitle ]. methodList navigationBlock: [ :type :val | self navigateTo: type value: val ]. textPresenter - whenSubmitDo: [ :text | self accept: text notifying: self ]; + whenSubmitDo: [ :text | self accept: text notifying: textPresenter interactionModel ]; whenResetDo: [ self selectItem: methodList selectedMethod ]. filterPresenter filterInputPresenter whenTextChangedDo: [ :text | | currentScope scopedMethods filtered | diff --git a/src/NewTools-Playground/StPlaygroundInteractionModel.class.st b/src/NewTools-Playground/StPlaygroundInteractionModel.class.st index 0bf99cbf3..10fa1bbb3 100644 --- a/src/NewTools-Playground/StPlaygroundInteractionModel.class.st +++ b/src/NewTools-Playground/StPlaygroundInteractionModel.class.st @@ -80,11 +80,6 @@ StPlaygroundInteractionModel >> bindings [ ^ joinedBindings ] -{ #category : 'interactive error protocol' } -StPlaygroundInteractionModel >> correctFrom: start to: stop with: aString [ - self owner adapter widget correctFrom: start to: stop with: aString -] - { #category : 'binding' } StPlaygroundInteractionModel >> hasBindingOf: aString [