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

Checks whether execution is in a sub/function before F6 acts.

Browse source
This commit is contained in:
FellippeHeitor 2021-08-01 01:51:51 -03:00
parent f682815ca3
commit fdf332b3e5
1 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
source/ide/ide_methods.bas
View file

@ -7073,12 +7073,19 @@ SUB DebugMode
F6: F6:
requestStepOut: requestStepOut:
IF PauseMode THEN IF PauseMode THEN
PauseMode = 0 IF LEN(currentSub$) > 0 THEN
cmd$ = "step out" PauseMode = 0
GOSUB SendCommand cmd$ = "step out"
clearStatusWindow 1 GOSUB SendCommand
setStatusMessage 1, "Running...", 10 clearStatusWindow 1
dummy = DarkenFGBG(1) setStatusMessage 1, "Running...", 10
dummy = DarkenFGBG(1)
GOSUB UpdateDisplay
ELSE
clearStatusWindow 0
setStatusMessage 1, "Not inside a sub/function.", 4
GOSUB UpdateDisplay
END IF
END IF END IF
CASE 16640 'F7 CASE 16640 'F7
F7: F7: