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

Add Ctrl+G as a shortcut to "Go to line".

This commit is contained in:
FellippeHeitor 2016-07-09 15:30:10 -03:00
parent ef791afcb6
commit 19ab48caec
2 changed files with 11 additions and 3 deletions

View file

@ -3,5 +3,5 @@ DIM SHARED BuildNum AS STRING
Version$ = "1.000"
'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
'integer. If you make a change, update the date and increase the id!
BuildNum$ = "20160708/33"
BuildNum$ = "20160709/34"

View file

@ -255,7 +255,7 @@ IF idelaunched = 0 THEN
menu$(m, i) = "#Next Bookmark Alt+Down": i = i + 1
menu$(m, i) = "#Previous Bookmark Alt+Up": i = i + 1
menu$(m, i) = "-": i = i + 1
menu$(m, i) = "#Go to line...": i = i + 1
menu$(m, i) = "#Go to line... Ctrl+G": i = i + 1
menusize(m) = i - 1
@ -2617,6 +2617,14 @@ DO
GOTO specialchar
END IF
IF KCONTROL AND UCASE$(K$) = "G" THEN 'goto line
retval = idegotobox
'retval is ignored
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
GOTO specialchar
END IF
IF K$ = CHR$(0) + CHR$(60) THEN 'F2
GOTO idesubsjmp
END IF
@ -4012,7 +4020,7 @@ DO
IF menu$(m, s) = "#Go to line..." THEN
IF menu$(m, s) = "#Go to line... Ctrl+G" THEN
PCOPY 2, 0
retval = idegotobox
'retval is ignored