mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 09:20:38 +00:00
Adds Ctrl+Shift+G shortcut to jump to line with error.
This commit is contained in:
parent
cd8318c6dc
commit
77cfd7ea9d
|
@ -956,7 +956,7 @@ FUNCTION ide2 (ignore)
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
IF l <> 0 AND idecy <> l THEN
|
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
|
COLOR 11, 1
|
||||||
FOR i = 1 TO LEN(a$)
|
FOR i = 1 TO LEN(a$)
|
||||||
x = x + 1: IF x = idewx THEN x = 2: y = y + 1
|
x = x + 1: IF x = idewx THEN x = 2: y = y + 1
|
||||||
|
@ -3002,9 +3002,16 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF KCONTROL AND UCASE$(K$) = "G" THEN 'goto line
|
IF KCONTROL AND UCASE$(K$) = "G" THEN 'goto line
|
||||||
retval = idegotobox
|
IF KSHIFT AND idefocusline > 0 THEN
|
||||||
'retval is ignored
|
idecx = 1
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
AddQuickNavHistory idecy
|
||||||
|
idecy = idefocusline
|
||||||
|
ideselect = 0
|
||||||
|
ELSE
|
||||||
|
retval = idegotobox
|
||||||
|
'retval is ignored
|
||||||
|
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
||||||
|
END IF
|
||||||
GOTO specialchar
|
GOTO specialchar
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue