mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 11:40:38 +00:00
Add Ctrl+G as a shortcut to "Go to line".
This commit is contained in:
parent
ef791afcb6
commit
19ab48caec
|
@ -3,5 +3,5 @@ DIM SHARED BuildNum AS STRING
|
||||||
Version$ = "1.000"
|
Version$ = "1.000"
|
||||||
'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
|
'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
|
||||||
'integer. If you make a change, update the date and increase the id!
|
'integer. If you make a change, update the date and increase the id!
|
||||||
BuildNum$ = "20160708/33"
|
BuildNum$ = "20160709/34"
|
||||||
|
|
||||||
|
|
|
@ -255,7 +255,7 @@ IF idelaunched = 0 THEN
|
||||||
menu$(m, i) = "#Next Bookmark Alt+Down": i = i + 1
|
menu$(m, i) = "#Next Bookmark Alt+Down": i = i + 1
|
||||||
menu$(m, i) = "#Previous Bookmark Alt+Up": i = i + 1
|
menu$(m, i) = "#Previous Bookmark Alt+Up": i = i + 1
|
||||||
menu$(m, i) = "-": 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
|
menusize(m) = i - 1
|
||||||
|
|
||||||
|
@ -2617,6 +2617,14 @@ DO
|
||||||
GOTO specialchar
|
GOTO specialchar
|
||||||
END IF
|
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
|
IF K$ = CHR$(0) + CHR$(60) THEN 'F2
|
||||||
GOTO idesubsjmp
|
GOTO idesubsjmp
|
||||||
END IF
|
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
|
PCOPY 2, 0
|
||||||
retval = idegotobox
|
retval = idegotobox
|
||||||
'retval is ignored
|
'retval is ignored
|
||||||
|
|
Loading…
Reference in a new issue