mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 11:40:38 +00:00
Makes idegotobox a SUB.
This commit is contained in:
parent
bae61981f0
commit
aef35c96e1
|
@ -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
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -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) --------
|
||||
|
|
Loading…
Reference in a new issue