From 2a51fa6c0e913442e078efc966aecc7b7814fc54 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Tue, 31 Oct 2017 19:43:22 -0200
Subject: [PATCH] Allows Shift+Click to select area from cursor.

---
 source/ide/ide_methods.bas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index ab95fc334..04680f368 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -2773,7 +2773,8 @@ FUNCTION ide2 (ignore)
                     idecx = (mX - 1 + idesx - 1) - maxLineNumberLength
                     idecy = mY - 2 + idesy - 1
                     IF idecy > iden THEN idecy = iden
-                    ideselect = 1: ideselectx1 = idecx: ideselecty1 = idecy
+                    ideselect = 1
+                    IF (NOT KSHIFT) THEN ideselectx1 = idecx: ideselecty1 = idecy
                     idemouseselect = 1
                     wholeword.select = 0
                 END IF
@@ -2782,13 +2783,12 @@ FUNCTION ide2 (ignore)
                 ideselect = 1
                 idecy = mY - 2 + idesy - 1
                 IF idecy < iden THEN
-                    ideselectx1 = 1: ideselecty1 = idecy
+                    IF (NOT KSHIFT) THEN ideselectx1 = 1: ideselecty1 = idecy
                     idecy = idecy + 1
                     idecx = 1
                 ELSEIF idecy = iden THEN
                     a$ = idegetline$(idecy)
-                    ideselectx1 = 1
-                    ideselecty1 = idecy
+                    IF (NOT KSHIFT) THEN ideselectx1 = 1: ideselecty1 = idecy
                     idecx = LEN(a$) + 1
                 ELSEIF idecy > iden THEN
                     idecy = iden