From c655650a5606b5b2afe6f3367991fa081c3052a3 Mon Sep 17 00:00:00 2001
From: Roland Bernard <18496639+rolandbernard@users.noreply.github.com>
Date: Fri, 26 Sep 2025 14:35:35 +0200
Subject: [PATCH] Initialize search add-on by searching for selection.

---
 .../GtTextualCoder.extension.st                  | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/src/GToolkit-Coder-AddOns/GtTextualCoder.extension.st b/src/GToolkit-Coder-AddOns/GtTextualCoder.extension.st
index a9b503cc..4cc76c15 100644
--- a/src/GToolkit-Coder-AddOns/GtTextualCoder.extension.st
+++ b/src/GToolkit-Coder-AddOns/GtTextualCoder.extension.st
@@ -120,7 +120,21 @@ GtTextualCoder >> initializeSearchTextAddOns: addOns viewModel: aCoderViewModel
 										| anElement |
 										anElement := GtTextualCoderSearchTextElement new
 												textualCoderViewModel: aCoderViewModel;
-												editorDo: [ :anEditor | anEditor requestFocus ];
+												editorDo: [ :anEditor |
+													anEditor requestFocus.
+													aCoderViewModel selection isEmpty ifFalse: [
+														| text |
+														text := (aCoderViewModel sourceText
+															copyFrom: aCoderViewModel selection from + 1
+															to: aCoderViewModel selection to) asString.
+														anEditor doBlockSoon: [
+															(anEditor inserter)
+																atCursor;
+																string: text;
+																insert.
+															(anEditor selecter)
+																all;
+																select ] ] ];
 												hFitContentLimited;
 												constraintsDo: [ :c | 
 													c minWidth: 300.