mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +00:00
Makes idegotobox a SUB.
This commit is contained in:
parent
bae61981f0
commit
aef35c96e1
2 changed files with 5 additions and 8 deletions
|
@ -3136,7 +3136,7 @@ FUNCTION ide2 (ignore)
|
||||||
idecy = idefocusline
|
idecy = idefocusline
|
||||||
ideselect = 0
|
ideselect = 0
|
||||||
ELSE
|
ELSE
|
||||||
retval = idegotobox
|
idegotobox
|
||||||
'retval is ignored
|
'retval is ignored
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
||||||
END IF
|
END IF
|
||||||
|
@ -4958,8 +4958,7 @@ FUNCTION ide2 (ignore)
|
||||||
|
|
||||||
IF menu$(m, s) = "#Go To Line... Ctrl+G" THEN
|
IF menu$(m, s) = "#Go To Line... Ctrl+G" THEN
|
||||||
PCOPY 2, 0
|
PCOPY 2, 0
|
||||||
retval = idegotobox
|
idegotobox
|
||||||
'retval is ignored
|
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
||||||
GOTO ideloop
|
GOTO ideloop
|
||||||
END IF
|
END IF
|
||||||
|
@ -10651,10 +10650,10 @@ FUNCTION idebackupbox
|
||||||
LOOP
|
LOOP
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
FUNCTION idegotobox
|
SUB idegotobox
|
||||||
IF idegotobox_LastLineNum > 0 THEN a2$ = str2$(idegotobox_LastLineNum) ELSE a2$ = ""
|
IF idegotobox_LastLineNum > 0 THEN a2$ = str2$(idegotobox_LastLineNum) ELSE a2$ = ""
|
||||||
v$ = ideinputbox$("Go To Line", "#Line", a2$, "0123456789", 30, 8)
|
v$ = ideinputbox$("Go To Line", "#Line", a2$, "0123456789", 30, 8)
|
||||||
IF v$ = "" THEN EXIT FUNCTION
|
IF v$ = "" THEN EXIT SUB
|
||||||
|
|
||||||
v& = VAL(v$)
|
v& = VAL(v$)
|
||||||
IF v& < 1 THEN v& = 1
|
IF v& < 1 THEN v& = 1
|
||||||
|
@ -10663,7 +10662,7 @@ FUNCTION idegotobox
|
||||||
AddQuickNavHistory idecy
|
AddQuickNavHistory idecy
|
||||||
idecy = v&
|
idecy = v&
|
||||||
ideselect = 0
|
ideselect = 0
|
||||||
END FUNCTION
|
END SUB
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -15,7 +15,6 @@ $SCREENHIDE
|
||||||
'$INCLUDE:'global\constants.bas'
|
'$INCLUDE:'global\constants.bas'
|
||||||
'$INCLUDE:'subs_functions\extensions\opengl\opengl_global.bas'
|
'$INCLUDE:'subs_functions\extensions\opengl\opengl_global.bas'
|
||||||
|
|
||||||
'INCLUDE:'qb_framework\qb_framework_global.bas'
|
|
||||||
DEFLNG A-Z
|
DEFLNG A-Z
|
||||||
|
|
||||||
'-------- Optional IDE Component (1/2) --------
|
'-------- Optional IDE Component (1/2) --------
|
||||||
|
@ -25201,7 +25200,6 @@ END SUB
|
||||||
|
|
||||||
'$INCLUDE:'subs_functions\extensions\opengl\opengl_methods.bas'
|
'$INCLUDE:'subs_functions\extensions\opengl\opengl_methods.bas'
|
||||||
|
|
||||||
'INCLUDE:'qb_framework\qb_framework_methods.bas'
|
|
||||||
DEFLNG A-Z
|
DEFLNG A-Z
|
||||||
|
|
||||||
'-------- Optional IDE Component (2/2) --------
|
'-------- Optional IDE Component (2/2) --------
|
||||||
|
|
Loading…
Reference in a new issue