QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 11:40:38 +00:00
Code Issues Releases Wiki Activity

Makes vwatch.bm try harder to send its own hWnd.

Browse source
This commit is contained in:
FellippeHeitor 2021-08-14 21:27:57 -03:00
parent 8dddefd002
commit d2cf042c45
2 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -3,7 +3,7 @@ $CHECKING:OFF
SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET) SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
STATIC AS LONG vw_ideHost, vw_breakpointCount, vw_skipCount, vw_timeout, vw_startLevel, vw_lastLine STATIC AS LONG vw_ideHost, vw_breakpointCount, vw_skipCount, vw_timeout, vw_startLevel, vw_lastLine
STATIC AS LONG vw_runToLine STATIC AS LONG vw_runToLine
STATIC AS _BYTE vw_pauseMode, vw_stepOver, vw_bypass, vw_setNextLine STATIC AS _BYTE vw_pauseMode, vw_stepOver, vw_bypass, vw_setNextLine, vw_hwndsent
STATIC AS _OFFSET vw_idehwnd STATIC AS _OFFSET vw_idehwnd
STATIC vw_buffer$, vw_endc$ STATIC vw_buffer$, vw_endc$
DIM AS LONG vw_i, vw_tempIndex, vw_localIndex, vw_varSize, vw_sequence DIM AS LONG vw_i, vw_tempIndex, vw_localIndex, vw_varSize, vw_sequence
@ -34,8 +34,11 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
'send this binary's path/exe name 'send this binary's path/exe name
vw_cmd$ = "me:" + COMMAND$(0) vw_cmd$ = "me:" + COMMAND$(0)
GOSUB SendCommand GOSUB SendCommand
vw_cmd$ = "hwnd:" + _MK$(_OFFSET, _WINDOWHANDLE) IF _WINDOWHANDLE THEN
GOSUB SendCommand vw_hwndsent = -1
vw_cmd$ = "hwnd:" + _MK$(_OFFSET, _WINDOWHANDLE)
GOSUB SendCommand
END IF
DO DO
GOSUB GetCommand GOSUB GetCommand
@ -90,6 +93,12 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
LOOP LOOP
END IF END IF
IF vw_hwndsent = 0 AND _WINDOWHANDLE > 0 THEN
vw_hwndsent = -1
vw_cmd$ = "hwnd:" + _MK$(_OFFSET, _WINDOWHANDLE)
GOSUB SendCommand
END IF
IF vwatch_linenumber = 0 THEN IF vwatch_linenumber = 0 THEN
GOSUB SendCallStack GOSUB SendCallStack
vw_cmd$ = "quit:Program ended." vw_cmd$ = "quit:Program ended."

4
source/ide/ide_methods.bas
View file

@ -6525,8 +6525,6 @@ SUB DebugMode
WHILE _MOUSEINPUT: WEND WHILE _MOUSEINPUT: WEND
EXIT SUB EXIT SUB
END IF END IF
CASE "hwnd"
debuggeehwnd = _CV(_OFFSET, value$)
EXIT DO EXIT DO
END SELECT END SELECT
LOOP LOOP
@ -7392,6 +7390,8 @@ SUB DebugMode
END IF END IF
LOOP LOOP
END IF END IF
CASE "hwnd"
debuggeehwnd = _CV(_OFFSET, value$)
CASE "global var", "local var" CASE "global var", "local var"
tempIndex& = CVL(LEFT$(value$, 4)) tempIndex& = CVL(LEFT$(value$, 4))
address%& = _CV(_OFFSET, MID$(value$, 5)) address%& = _CV(_OFFSET, MID$(value$, 5))