mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-16 21:15:15 +00:00
Changes the shortcut to skip line to Shift+click.
Minor visual changes to breakpoint/skip line indicators.
This commit is contained in:
parent
fcc243f902
commit
5406492be8
|
@ -2961,7 +2961,7 @@ FUNCTION ide2 (ignore)
|
||||||
idecytemp = mY - 2 + idesy - 1
|
idecytemp = mY - 2 + idesy - 1
|
||||||
IF idecytemp =< iden THEN
|
IF idecytemp =< iden THEN
|
||||||
idecy = idecytemp
|
idecy = idecytemp
|
||||||
IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN
|
IF _KEYDOWN(100304) OR _KEYDOWN(100303) THEN
|
||||||
GOTO toggleSkipLine
|
GOTO toggleSkipLine
|
||||||
ELSE
|
ELSE
|
||||||
GOTO toggleBreakpoint
|
GOTO toggleBreakpoint
|
||||||
|
@ -6354,7 +6354,7 @@ SUB DebugMode
|
||||||
ideselect = 0
|
ideselect = 0
|
||||||
idecytemp = mY - 2 + idesy - 1
|
idecytemp = mY - 2 + idesy - 1
|
||||||
IF idecytemp =< iden THEN
|
IF idecytemp =< iden THEN
|
||||||
IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN
|
IF _KEYDOWN(100304) OR _KEYDOWN(100303) THEN
|
||||||
IF IdeSkipLines(idecytemp) = -1 THEN
|
IF IdeSkipLines(idecytemp) = -1 THEN
|
||||||
IdeSkipLines(idecytemp) = 0
|
IdeSkipLines(idecytemp) = 0
|
||||||
cmd$ = "clear skip line:" + MKL$(idecytemp)
|
cmd$ = "clear skip line:" + MKL$(idecytemp)
|
||||||
|
@ -9549,11 +9549,15 @@ SUB ideshowtext
|
||||||
l2$ = STR$(l)
|
l2$ = STR$(l)
|
||||||
IF 2 + maxLineNumberLength - (LEN(l2$) + 1) >= 2 THEN
|
IF 2 + maxLineNumberLength - (LEN(l2$) + 1) >= 2 THEN
|
||||||
_PRINTSTRING (2 + maxLineNumberLength - (LEN(l2$) + 1), y + 3), l2$
|
_PRINTSTRING (2 + maxLineNumberLength - (LEN(l2$) + 1), y + 3), l2$
|
||||||
IF vWatchOn AND IdeSkipLines(l) <> 0 THEN
|
IF vWatchOn THEN
|
||||||
|
IF IdeBreakpoints(l) <> 0 THEN
|
||||||
|
_PRINTSTRING (2, y + 3), CHR$(7)
|
||||||
|
ELSEIF IdeSkipLines(l) <> 0 THEN
|
||||||
_PRINTSTRING (2, y + 3), "!"
|
_PRINTSTRING (2, y + 3), "!"
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
END IF
|
||||||
IF ShowLineNumbersSeparator THEN
|
IF ShowLineNumbersSeparator THEN
|
||||||
IF l = debugnextline THEN
|
IF l = debugnextline THEN
|
||||||
COLOR 10
|
COLOR 10
|
||||||
|
@ -9569,16 +9573,16 @@ SUB ideshowtext
|
||||||
END IF
|
END IF
|
||||||
COLOR , 1
|
COLOR , 1
|
||||||
ELSE
|
ELSE
|
||||||
IF vWatchOn = 1 AND IdeBreakpoints(l) <> 0 THEN
|
IF vWatchOn = 1 AND (IdeBreakpoints(l) <> 0 OR IdeSkipLines(l) <> 0) THEN
|
||||||
COLOR 7, 4
|
COLOR 7, 4
|
||||||
IF l = debugnextline THEN
|
IF l = debugnextline THEN
|
||||||
COLOR 10
|
COLOR 10
|
||||||
_PRINTSTRING (1, y + 3), CHR$(16)
|
_PRINTSTRING (1, y + 3), CHR$(16)
|
||||||
ELSEIF IdeSkipLines(l) <> 0 THEN
|
ELSEIF IdeSkipLines(l) <> 0 THEN
|
||||||
COLOR 14
|
COLOR 14, 1
|
||||||
_PRINTSTRING (1, y + 3), "!"
|
_PRINTSTRING (1, y + 3), "!"
|
||||||
ELSE
|
ELSE
|
||||||
_PRINTSTRING (1, y + 3), CHR$(179)
|
_PRINTSTRING (1, y + 3), CHR$(7)
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
Loading…
Reference in a new issue