QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-08 17:15:13 +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 IF noFocusMessage THEN
clearStatusWindow 2 clearStatusWindow 2
clearStatusWindow 3 clearStatusWindow 3
setStatusMessage 2, "$DEBUG: <F5 = Run> <F7 = Step Over> <F8 = Step> <F9 = Toggle Breakpoint>", 15 setStatusMessage 2, "$DEBUG: <F5 = Run> <F6 = Step Out> <F7 = Step Over> <F8 = Step>", 15
setStatusMessage 3, " <F10 = Clear All Breakpoints> <ESC = Abort>", 15 setStatusMessage 3, " <F9 = Toggle Breakpoint> <F10 = Clear All Breakpoints> <ESC = Abort>", 15
noFocusMessage = 0 noFocusMessage = 0
END IF END IF
ELSE ELSE
@ -6231,17 +6231,21 @@ SUB DebugMode
clearStatusWindow 1 clearStatusWindow 1
setStatusMessage 1, "Running...", 10 setStatusMessage 1, "Running...", 10
dummy = DarkenFGBG(1) dummy = DarkenFGBG(1)
CASE 16640 'F7 CASE 16384 'F6
clearStatusWindow 1 IF PauseMode THEN
IF PauseMode = 0 THEN PauseMode = 0
cmd$ = "break" cmd$ = "step out"
PauseMode = -1
GOSUB SendCommand GOSUB SendCommand
setStatusMessage 1, "Paused.", 2 clearStatusWindow 1
ELSE setStatusMessage 1, "Running...", 10
dummy = DarkenFGBG(1)
END IF
CASE 16640 'F7
IF PauseMode THEN
cmd$ = "step over" cmd$ = "step over"
PauseMode = 0 PauseMode = 0
GOSUB SendCommand GOSUB SendCommand
clearStatusWindow 1
setStatusMessage 1, "Running...", 10 setStatusMessage 1, "Running...", 10
dummy = DarkenFGBG(1) dummy = DarkenFGBG(1)
END IF END IF

6
source/utilities/vwatch.bm
View file

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