From 4b4e95f2805375ac80b5921e19c1049090f3a5c8 Mon Sep 17 00:00:00 2001
From: Matthias Melcher <git@matthiasm.com>
Date: Mon, 4 Feb 2019 23:57:22 +0100
Subject: Fixed Fl_Text_Editor selection range after paste (STR #3248).

---
 src/Fl_Text_Display.cxx | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Fl_Text_Display.cxx b/src/Fl_Text_Display.cxx
index 4d940a917..55cf709ed 100644
--- a/src/Fl_Text_Display.cxx
+++ b/src/Fl_Text_Display.cxx
@@ -3971,7 +3971,11 @@ int Fl_Text_Display::handle(int event) {
         handle(FL_FOCUS);
       }
       if (Fl_Group::handle(event)) return 1;
-      if (Fl::event_state()&FL_SHIFT) return handle(FL_DRAG);
+      if (Fl::event_state()&FL_SHIFT) {
+        if (!buffer()->primary_selection()->selected())
+            dragPos = insert_position();
+        return handle(FL_DRAG);
+      }
       dragging = 1;
       int pos = xy_to_position(Fl::event_x(), Fl::event_y(), CURSOR_POS);
       dragPos = pos;
-- 
cgit v1.2.3