mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 11:40:38 +00:00
Fix ESC deleting the current selection.
This commit is contained in:
parent
96f450e2ff
commit
261d6fc97d
|
@ -3173,6 +3173,8 @@ DO
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
IF K$ = CHR$(27) AND NOT AltSpecial THEN GOTO specialchar 'Steve edit 07-04-2014 to stop ESC from printing chr$(27) in the IDE
|
||||||
|
|
||||||
'standard character
|
'standard character
|
||||||
IF ideselect THEN GOSUB delselect
|
IF ideselect THEN GOSUB delselect
|
||||||
idechangemade = 1
|
idechangemade = 1
|
||||||
|
@ -3195,8 +3197,6 @@ DO
|
||||||
a$ = idegetline(idecy)
|
a$ = idegetline(idecy)
|
||||||
IF LEN(a$) < idecx - 1 THEN a$ = a$ + SPACE$(idecx - 1 - LEN(a$))
|
IF LEN(a$) < idecx - 1 THEN a$ = a$ + SPACE$(idecx - 1 - LEN(a$))
|
||||||
|
|
||||||
IF K$ = CHR$(27) AND NOT AltSpecial THEN GOTO specialchar 'Steve edit 07-04-2014 to stop ESC from printing chr$(27) in the IDE
|
|
||||||
|
|
||||||
IF ideinsert THEN
|
IF ideinsert THEN
|
||||||
a2$ = RIGHT$(a$, LEN(a$) - idecx + 1)
|
a2$ = RIGHT$(a$, LEN(a$) - idecx + 1)
|
||||||
IF LEN(a2$) THEN a2$ = RIGHT$(a$, LEN(a$) - idecx)
|
IF LEN(a2$) THEN a2$ = RIGHT$(a$, LEN(a$) - idecx)
|
||||||
|
|
Loading…
Reference in a new issue