mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +00:00
Ctrl+left/right arrows now properly stops cursor at the end of lines.
This commit is contained in:
parent
1f3a106230
commit
5e7f77d23a
1 changed files with 3 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue