QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 13:50:36 +00:00
Code Issues Releases Wiki Activity

Sends focus to debuggee when function INPUT$() is called.

Browse source
This commit is contained in:
FellippeHeitor 2021-09-21 01:28:50 -03:00
parent bb77168127
commit dd302b0b5f
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
source/qb64.bas
View file

@ -792,6 +792,7 @@ DIM SHARED linefragment AS STRING
DIM SHARED arrayprocessinghappened AS INTEGER DIM SHARED arrayprocessinghappened AS INTEGER
DIM SHARED stringprocessinghappened AS INTEGER DIM SHARED stringprocessinghappened AS INTEGER
DIM SHARED cleanupstringprocessingcall AS STRING DIM SHARED cleanupstringprocessingcall AS STRING
DIM SHARED inputfunctioncalled AS _BYTE
DIM SHARED recompile AS INTEGER 'forces recompilation DIM SHARED recompile AS INTEGER 'forces recompilation
'COMMON SHARED cmemlist() AS INTEGER 'COMMON SHARED cmemlist() AS INTEGER
DIM SHARED optionbase AS INTEGER DIM SHARED optionbase AS INTEGER
@ -1451,6 +1452,7 @@ linefragment$ = ""
idn = 0 idn = 0
arrayprocessinghappened = 0 arrayprocessinghappened = 0
stringprocessinghappened = 0 stringprocessinghappened = 0
inputfunctioncalled = 0
subfuncn = 0 subfuncn = 0
closedsubfunc = 0 closedsubfunc = 0
subfunc = "" subfunc = ""
@ -11206,6 +11208,13 @@ DO
THENGOTO = 0 THENGOTO = 0
finishedline2: finishedline2:
IF inputfunctioncalled THEN
inputfunctioncalled = 0
IF vWatchOn = 1 THEN
PRINT #12, "*__LONG_VWATCH_LINENUMBER= -5; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);"
END IF
END IF
IF arrayprocessinghappened = 1 THEN arrayprocessinghappened = 0 IF arrayprocessinghappened = 1 THEN arrayprocessinghappened = 0
inclinenump$ = "" inclinenump$ = ""
@ -16582,6 +16591,12 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG)
targetid = currentid targetid = currentid
IF RTRIM$(id2.callname) = "func_stub" THEN Give_Error "Command not implemented": EXIT FUNCTION IF RTRIM$(id2.callname) = "func_stub" THEN Give_Error "Command not implemented": EXIT FUNCTION
IF RTRIM$(id2.callname) = "func_input" AND inputfunctioncalled = 0 THEN
inputfunctioncalled = -1
IF vWatchOn = 1 THEN
PRINT #12, "*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);"
END IF
END IF
SetDependency id2.Dependency SetDependency id2.Dependency