mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +00:00
Checks whether execution is in a sub/function before F6 acts.
This commit is contained in:
parent
f682815ca3
commit
fdf332b3e5
1 changed files with 13 additions and 6 deletions
|
@ -7073,12 +7073,19 @@ SUB DebugMode
|
|||
F6:
|
||||
requestStepOut:
|
||||
IF PauseMode THEN
|
||||
PauseMode = 0
|
||||
cmd$ = "step out"
|
||||
GOSUB SendCommand
|
||||
clearStatusWindow 1
|
||||
setStatusMessage 1, "Running...", 10
|
||||
dummy = DarkenFGBG(1)
|
||||
IF LEN(currentSub$) > 0 THEN
|
||||
PauseMode = 0
|
||||
cmd$ = "step out"
|
||||
GOSUB SendCommand
|
||||
clearStatusWindow 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
|
||||
CASE 16640 'F7
|
||||
F7:
|
||||
|
|
Loading…
Reference in a new issue