diff --git a/internal/support/vwatch/vwatch.bm b/internal/support/vwatch/vwatch.bm index 66fd702ce..81fe279e9 100644 --- a/internal/support/vwatch/vwatch.bm +++ b/internal/support/vwatch/vwatch.bm @@ -24,7 +24,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET) SUB unlockvWatchHandle SUB set_qbs_size (target AS _OFFSET, BYVAL length&) SUB call_setbits (BYVAL bsize AS _UNSIGNED LONG, array AS _OFFSET, BYVAL index AS _OFFSET, BYVAL value AS _INTEGER64) - SUB set_foreground_window (BYVAL hwnd AS _OFFSET) + SUB set_fg ALIAS set_foreground_window (BYVAL hwnd AS _OFFSET) FUNCTION stop_program_state& FUNCTION check_lbound%& (array AS _OFFSET, BYVAL index AS LONG, BYVAL num_indexes AS LONG) FUNCTION check_ubound%& (array AS _OFFSET, BYVAL index AS LONG, BYVAL num_indexes AS LONG) @@ -125,7 +125,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET) GOSUB SendCallStack vw_cmd$ = "error:" + MKL$(vw_lastLine) GOSUB SendCommand - set_foreground_window vw_ideHwnd + set_fg vw_ideHwnd EXIT SUB ELSEIF vwatch_linenumber = -2 THEN 'report a new sub/function has been "entered" @@ -221,7 +221,7 @@ 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 + set_fg vw_ideHwnd DO 'main loop IF stop_program_state& THEN vw_bypass = -1: EXIT DO