1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00

Adds Ctrl+Shift+G shortcut to jump to line with error.

This commit is contained in:
FellippeHeitor 2018-04-12 11:30:05 -03:00
parent cd8318c6dc
commit 77cfd7ea9d

View file

@ -956,7 +956,7 @@ FUNCTION ide2 (ignore)
NEXT
IF l <> 0 AND idecy <> l THEN
a$ = " on line" + STR$(l)
a$ = " on line" + STR$(l) + " (click here or Ctrl+Shift+G to jump there)"
COLOR 11, 1
FOR i = 1 TO LEN(a$)
x = x + 1: IF x = idewx THEN x = 2: y = y + 1
@ -3002,9 +3002,16 @@ FUNCTION ide2 (ignore)
END IF
IF KCONTROL AND UCASE$(K$) = "G" THEN 'goto line
retval = idegotobox
'retval is ignored
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
IF KSHIFT AND idefocusline > 0 THEN
idecx = 1
AddQuickNavHistory idecy
idecy = idefocusline
ideselect = 0
ELSE
retval = idegotobox
'retval is ignored
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
END IF
GOTO specialchar
END IF