From 19ab48caeccc95653c1bd8afcdd3eba284c99af5 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Sat, 9 Jul 2016 15:30:10 -0300
Subject: [PATCH] Add Ctrl+G as a shortcut to "Go to line".

---
 source/global/version.bas  |  2 +-
 source/ide/ide_methods.bas | 12 ++++++++++--
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/source/global/version.bas b/source/global/version.bas
index a25bf02f3..4e43dc29c 100644
--- a/source/global/version.bas
+++ b/source/global/version.bas
@@ -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"
 
diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index d3016fa81..21c0b8ad6 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -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