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

Ctrl+left/right arrows now properly stops cursor at the end of lines.

Browse source
This commit is contained in:
FellippeHeitor 2020-01-10 03:07:36 -03:00
parent 1f3a106230
commit 5e7f77d23a
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
source/ide/ide_methods.bas
View file

@ -3394,8 +3394,9 @@ FUNCTION ide2 (ignore)
IF idecy = 1 THEN idecx = 1: GOTO specialchar IF idecy = 1 THEN idecx = 1: GOTO specialchar
idecy = idecy - 1 idecy = idecy - 1
a$ = idegetline(idecy) a$ = idegetline(idecy)
idecx = LEN(a$) idecx = LEN(a$) + 1
LOOP UNTIL LEN(a$) LOOP UNTIL LEN(a$)
GOTO specialchar 'stop at the end of the previous line
END IF END IF
'check character 'check character
IF alphanumeric(ASC(a$, idecx)) THEN IF alphanumeric(ASC(a$, idecx)) THEN
@ -3429,6 +3430,7 @@ FUNCTION ide2 (ignore)
'move 'move
IF first = 0 THEN idecx = idecx + 1 IF first = 0 THEN idecx = idecx + 1
'latch onto next character 'latch onto next character
IF first = 0 AND idecx = LEN(a$) + 1 THEN GOTO specialchar 'stop at the end of the line
IF idecx > LEN(a$) THEN IF idecx > LEN(a$) THEN
DO DO
IF idecy = iden THEN GOTO specialchar IF idecy = iden THEN GOTO specialchar