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

Adds Ctrl+P to skip line; Ctrl+Shift+G to run to line.

Browse source
This commit is contained in:
FellippeHeitor 2021-07-20 22:48:14 -03:00
parent 2097f35a8b
commit fb94a16bfe
1 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
source/ide/ide_methods.bas
View file

@ -3201,6 +3201,10 @@ FUNCTION ide2 (ignore)
GOTO ctrlOpen GOTO ctrlOpen
END IF END IF
IF KCONTROL AND UCASE$(K$) = "P" THEN 'Debug -> Toggle Skip Line
GOTO toggleSkipLine
END IF
IF (NOT KSHIFT) AND KCONTROL AND UCASE$(K$) = "R" THEN 'Comment (add ') - R for REMark IF (NOT KSHIFT) AND KCONTROL AND UCASE$(K$) = "R" THEN 'Comment (add ') - R for REMark
GOTO ctrlAddComment GOTO ctrlAddComment
END IF END IF
@ -5691,7 +5695,7 @@ FUNCTION ide2 (ignore)
GOTO EnterDebugMode GOTO EnterDebugMode
END IF END IF
IF menu$(m, s) = "#Run To This Line" THEN IF menu$(m, s) = "#Run To This Line Ctrl+Shift+G" THEN
IdeDebugMode = 8 IdeDebugMode = 8
GOTO EnterDebugMode GOTO EnterDebugMode
END IF END IF
@ -6749,7 +6753,7 @@ SUB DebugMode
CASE 103, 71 'g, G CASE 103, 71 'g, G
IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN
IF _KEYDOWN(100304) OR _KEYDOWN(100303) THEN IF _KEYDOWN(100304) OR _KEYDOWN(100303) THEN
result = idegetlinenumberbox("Run To Line") result = idegetlinenumberbox("Run To Line", idecy)
PCOPY 3, 0: SCREEN , , 3, 0 PCOPY 3, 0: SCREEN , , 3, 0
requestRunToThisLine: requestRunToThisLine:
IF result > 0 AND result < iden THEN IF result > 0 AND result < iden THEN
@ -6763,7 +6767,7 @@ SUB DebugMode
dummy = DarkenFGBG(1) dummy = DarkenFGBG(1)
END IF END IF
ELSE ELSE
result = idegetlinenumberbox("Set Next Line") result = idegetlinenumberbox("Set Next Line", idecy)
PCOPY 3, 0: SCREEN , , 3, 0 PCOPY 3, 0: SCREEN , , 3, 0
requestSetNextLine: requestSetNextLine:
IF result > 0 AND result < iden THEN IF result > 0 AND result < iden THEN
@ -6774,7 +6778,7 @@ SUB DebugMode
END IF END IF
CASE 112, 80 'p, P CASE 112, 80 'p, P
IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN
result = idegetlinenumberbox("Skip Line") result = idegetlinenumberbox("Skip Line", idecy)
PCOPY 3, 0: SCREEN , , 3, 0 PCOPY 3, 0: SCREEN , , 3, 0
requestToggleSkipLine: requestToggleSkipLine:
IF result > 0 AND result <= iden THEN IF result > 0 AND result <= iden THEN
@ -11774,8 +11778,9 @@ SUB idegotobox
ideselect = 0 ideselect = 0
END SUB END SUB
FUNCTION idegetlinenumberbox(title$) FUNCTION idegetlinenumberbox(title$, initialValue&)
a2$ = "" a2$ = str2$(initialValue&)
IF a2$ = "0" THEN a2$ = ""
v$ = ideinputbox$(title$, "#Line", a2$, "0123456789", 30, 8) v$ = ideinputbox$(title$, "#Line", a2$, "0123456789", 30, 8)
IF v$ = "" THEN EXIT FUNCTION IF v$ = "" THEN EXIT FUNCTION
@ -14423,7 +14428,7 @@ SUB IdeMakeContextualMenu
menu$(m, i) = "-": i = i + 1 menu$(m, i) = "-": i = i + 1
menu$(m, i) = "Set #Next Line Ctrl+G": i = i + 1 menu$(m, i) = "Set #Next Line Ctrl+G": i = i + 1
menuDesc$(m, i - 1) = "Jumps to the selected line before continuing execution" menuDesc$(m, i - 1) = "Jumps to the selected line before continuing execution"
menu$(m, i) = "#Run To This Line": i = i + 1 menu$(m, i) = "#Run To This Line Ctrl+Shift+G": i = i + 1
menuDesc$(m, i - 1) = "Runs until the selected line is reached" menuDesc$(m, i - 1) = "Runs until the selected line is reached"
menu$(m, i) = "-": i = i + 1 menu$(m, i) = "-": i = i + 1
menu$(m, i) = "Toggle #Breakpoint F9": i = i + 1 menu$(m, i) = "Toggle #Breakpoint F9": i = i + 1