QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 13:50:36 +00:00
Code Issues Releases Wiki Activity

Reenable line selection when debug is off

Browse source 
Clicking line numbers when not in Debug mode and
when "auto-add debug" is disabled will select the
clicked line
This commit is contained in:
Fellippe Heitor 2022-03-10 10:30:06 -03:00
parent fd5ba476b5
commit b2f35b9e98
1 changed files with 28 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
source/ide/ide_methods.bas
View file

@ -3054,6 +3054,7 @@ FUNCTION ide2 (ignore)
(mX = 1 AND mY > 2 AND mY < (idewy - 5) AND ShowLineNumbers = 0) THEN (mX = 1 AND mY > 2 AND mY < (idewy - 5) AND ShowLineNumbers = 0) THEN
'line numbers are visible and have been clicked or 'line numbers are visible and have been clicked or
'line numbers are hidden and the left border has been clicked 'line numbers are hidden and the left border has been clicked
IF AutoAddDebugCommand <> 0 OR vWatchOn <> 0 THEN
ideselect = 0 ideselect = 0
idecytemp = mY - 2 + idesy - 1 idecytemp = mY - 2 + idesy - 1
IF idecytemp =< iden THEN IF idecytemp =< iden THEN
@ -3064,6 +3065,25 @@ FUNCTION ide2 (ignore)
GOTO toggleBreakpoint GOTO toggleBreakpoint
END IF END IF
END IF END IF
ELSE
ideselect = 1
idecy = mY - 2 + idesy - 1
IF idecy < iden THEN
IF (NOT KSHIFT) THEN ideselectx1 = 1: ideselecty1 = idecy
idecy = idecy + 1
idecx = 1
ELSEIF idecy = iden THEN
a$ = idegetline$(idecy)
IF (NOT KSHIFT) THEN ideselectx1 = 1: ideselecty1 = idecy
idecx = LEN(a$) + 1
ELSEIF idecy > iden THEN
idecy = iden
ideselect = 0
idecx = 1
END IF
wholeword.select = 0
idemouseselect = 0
END IF
END IF END IF
END IF END IF