From aef35c96e1e1d8251e9583cf93d73b9e65e44c8c Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Wed, 13 Jan 2021 02:07:22 -0300
Subject: [PATCH] Makes idegotobox a SUB.

---
 source/ide/ide_methods.bas | 11 +++++------
 source/qb64.bas            |  2 --
 2 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 198603b9b..b09cbff07 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -3136,7 +3136,7 @@ FUNCTION ide2 (ignore)
                 idecy = idefocusline
                 ideselect = 0
             ELSE
-                retval = idegotobox
+                idegotobox
                 'retval is ignored
                 PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
             END IF
@@ -4958,8 +4958,7 @@ FUNCTION ide2 (ignore)
 
             IF menu$(m, s) = "#Go To Line...  Ctrl+G" THEN
                 PCOPY 2, 0
-                retval = idegotobox
-                'retval is ignored
+                idegotobox
                 PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
                 GOTO ideloop
             END IF
@@ -10651,10 +10650,10 @@ FUNCTION idebackupbox
     LOOP
 END FUNCTION
 
-FUNCTION idegotobox
+SUB idegotobox
     IF idegotobox_LastLineNum > 0 THEN a2$ = str2$(idegotobox_LastLineNum) ELSE a2$ = ""
     v$ = ideinputbox$("Go To Line", "#Line", a2$, "0123456789", 30, 8)
-    IF v$ = "" THEN EXIT FUNCTION
+    IF v$ = "" THEN EXIT SUB
 
     v& = VAL(v$)
     IF v& < 1 THEN v& = 1
@@ -10663,7 +10662,7 @@ FUNCTION idegotobox
     AddQuickNavHistory idecy
     idecy = v&
     ideselect = 0
-END FUNCTION
+END SUB
 
 
 
diff --git a/source/qb64.bas b/source/qb64.bas
index d417041ab..75c5ddcb9 100644
--- a/source/qb64.bas
+++ b/source/qb64.bas
@@ -15,7 +15,6 @@ $SCREENHIDE
 '$INCLUDE:'global\constants.bas'
 '$INCLUDE:'subs_functions\extensions\opengl\opengl_global.bas'
 
-'INCLUDE:'qb_framework\qb_framework_global.bas'
 DEFLNG A-Z
 
 '-------- Optional IDE Component (1/2) --------
@@ -25201,7 +25200,6 @@ END SUB
 
 '$INCLUDE:'subs_functions\extensions\opengl\opengl_methods.bas'
 
-'INCLUDE:'qb_framework\qb_framework_methods.bas'
 DEFLNG A-Z
 
 '-------- Optional IDE Component (2/2) --------