QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 07:41:21 +00:00
Code Releases Wiki Activity

Adds Step Out

Browse source
This commit is contained in:
Fellippe Heitor 2021-07-16 01:09:27 -03:00
parent 74d2e0853a
commit 8109b81ef7
2 changed files with 19 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
source/ide/ide_methods.bas
View file

@ -6199,8 +6199,8 @@ SUB DebugMode
IF noFocusMessage THEN
clearStatusWindow 2
clearStatusWindow 3
setStatusMessage 2, "$DEBUG: <F5 = Run> <F7 = Step Over> <F8 = Step> <F9 = Toggle Breakpoint>", 15
setStatusMessage 3, " <F10 = Clear All Breakpoints> <ESC = Abort>", 15
setStatusMessage 2, "$DEBUG: <F5 = Run> <F6 = Step Out> <F7 = Step Over> <F8 = Step>", 15
setStatusMessage 3, " <F9 = Toggle Breakpoint> <F10 = Clear All Breakpoints> <ESC = Abort>", 15
noFocusMessage = 0
END IF
ELSE
@ -6231,17 +6231,21 @@ SUB DebugMode
clearStatusWindow 1
setStatusMessage 1, "Running...", 10
dummy = DarkenFGBG(1)
CASE 16640 'F7
clearStatusWindow 1
IF PauseMode = 0 THEN
cmd$ = "break"
PauseMode = -1
CASE 16384 'F6
IF PauseMode THEN
PauseMode = 0
cmd$ = "step out"
GOSUB SendCommand
setStatusMessage 1, "Paused.", 2
ELSE
clearStatusWindow 1
setStatusMessage 1, "Running...", 10
dummy = DarkenFGBG(1)
END IF
CASE 16640 'F7
IF PauseMode THEN
cmd$ = "step over"
PauseMode = 0
GOSUB SendCommand
clearStatusWindow 1
setStatusMessage 1, "Running...", 10
dummy = DarkenFGBG(1)
END IF

6
source/utilities/vwatch.bm
View file

@ -122,6 +122,12 @@ SUB vwatch (linenumber AS LONG)
startLevel = vwatch_sublevel
vwatch_starttimers
EXIT SUB
CASE "step out"
pauseMode = -1
stepOver = -1
startLevel = vwatch_sublevel - 1
vwatch_starttimers
EXIT SUB
CASE "free"
CLOSE #ide
ide = 0