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

Allows QB64 to be used to debug itself again.

Browse source
This commit is contained in:
FellippeHeitor 2021-08-15 00:49:06 -03:00
parent 083648e617
commit b1f53bedf3
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
internal/support/vwatch/vwatch.bm
View file

@ -16,10 +16,15 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
SUB vwatch_starttimers ALIAS start_timers
SUB unlockvWatchHandle
SUB set_qbs_size (target AS _OFFSET, BYVAL length&)
SUB set_foreground_window (BYVAL hwnd AS _OFFSET)
FUNCTION stop_program_state&
END DECLARE
$IF WIN THEN
DECLARE DYNAMIC LIBRARY "user32"
FUNCTION SetForegroundWindow& (BYVAL hWnd AS _OFFSET)
END DECLARE
$END IF
IF vw_bypass THEN EXIT SUB
vwatch_goto = 0
@ -190,7 +195,9 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
vw_cmd$ = "current sub:" + LEFT$(vwatch_stack(vwatch_sublevel), INSTR(vwatch_stack(vwatch_sublevel), ",") - 1)
GOSUB SendCommand
set_foreground_window vw_idehwnd
$IF WIN THEN
vw_i = SetForegroundWindow&(vw_idehwnd)
$END IF
DO 'main loop
IF stop_program_state& THEN vw_bypass = -1: EXIT DO