QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 10:30: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 stringprocessinghappened AS INTEGER
DIM SHARED cleanupstringprocessingcall AS STRING
DIM SHARED inputfunctioncalled AS _BYTE
DIM SHARED recompile AS INTEGER 'forces recompilation
'COMMON SHARED cmemlist() AS INTEGER
DIM SHARED optionbase AS INTEGER
@ -1451,6 +1452,7 @@ linefragment$ = ""
idn = 0
arrayprocessinghappened = 0
stringprocessinghappened = 0
inputfunctioncalled = 0
subfuncn = 0
closedsubfunc = 0
subfunc = ""
@ -11206,6 +11208,13 @@ DO
THENGOTO = 0
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
inclinenump$ = ""
@ -16582,6 +16591,12 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG)
targetid = currentid
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