mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 09:04:43 +00:00
Display breakpoint indicator when line numbers are hidden ($DEBUG).
This commit is contained in:
parent
dd11629eff
commit
c2192f9340
1 changed files with 37 additions and 14 deletions
|
@ -2914,6 +2914,16 @@ FUNCTION ide2 (ignore)
|
||||||
IdeBreakpoints(idecy) = NOT IdeBreakpoints(idecy)
|
IdeBreakpoints(idecy) = NOT IdeBreakpoints(idecy)
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
ELSEIF mX = 1 AND mY > 2 AND mY < (idewy - 5) AND ShowLineNumbers = 0 THEN
|
||||||
|
'line numbers are hidden and the left border has been clicked
|
||||||
|
IF vWatchOn THEN
|
||||||
|
ideselect = 0
|
||||||
|
idecytemp = mY - 2 + idesy - 1
|
||||||
|
IF idecytemp =< iden THEN
|
||||||
|
idecy = idecytemp
|
||||||
|
IdeBreakpoints(idecy) = NOT IdeBreakpoints(idecy)
|
||||||
|
END IF
|
||||||
|
END IF
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
@ -5998,6 +6008,7 @@ SUB DebugMode
|
||||||
clearStatusWindow 1
|
clearStatusWindow 1
|
||||||
setStatusMessage 1, "Failed to initiate debug session.", 7
|
setStatusMessage 1, "Failed to initiate debug session.", 7
|
||||||
setStatusMessage 2, "Cannot receive connections. Check your firewall permissions.", 2
|
setStatusMessage 2, "Cannot receive connections. Check your firewall permissions.", 2
|
||||||
|
WHILE _MOUSEINPUT: WEND
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
@ -6019,6 +6030,7 @@ SUB DebugMode
|
||||||
setStatusMessage 2, "Connection timeout.", 2
|
setStatusMessage 2, "Connection timeout.", 2
|
||||||
END IF
|
END IF
|
||||||
_KEYCLEAR
|
_KEYCLEAR
|
||||||
|
WHILE _MOUSEINPUT: WEND
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
@ -6040,6 +6052,7 @@ SUB DebugMode
|
||||||
setStatusMessage 2, "Connection timeout.", 2
|
setStatusMessage 2, "Connection timeout.", 2
|
||||||
END IF
|
END IF
|
||||||
_KEYCLEAR
|
_KEYCLEAR
|
||||||
|
WHILE _MOUSEINPUT: WEND
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
@ -6065,6 +6078,7 @@ SUB DebugMode
|
||||||
cmd$ = "vwatch:file mismatch"
|
cmd$ = "vwatch:file mismatch"
|
||||||
GOSUB SendCommand
|
GOSUB SendCommand
|
||||||
CLOSE #client&
|
CLOSE #client&
|
||||||
|
WHILE _MOUSEINPUT: WEND
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
ELSE
|
ELSE
|
||||||
EXIT DO
|
EXIT DO
|
||||||
|
@ -6146,6 +6160,7 @@ SUB DebugMode
|
||||||
dummy = DarkenFGBG(0)
|
dummy = DarkenFGBG(0)
|
||||||
clearStatusWindow 0
|
clearStatusWindow 0
|
||||||
setStatusMessage 1, "Debug session aborted.", 7
|
setStatusMessage 1, "Debug session aborted.", 7
|
||||||
|
WHILE _MOUSEINPUT: WEND
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
CASE 16128 'F5
|
CASE 16128 'F5
|
||||||
PauseMode = 0
|
PauseMode = 0
|
||||||
|
@ -6215,6 +6230,7 @@ SUB DebugMode
|
||||||
_LIMIT 100
|
_LIMIT 100
|
||||||
LOOP
|
LOOP
|
||||||
|
|
||||||
|
WHILE _MOUSEINPUT: WEND
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
GetCommand:
|
GetCommand:
|
||||||
GET #client&, , temp$
|
GET #client&, , temp$
|
||||||
|
@ -8458,7 +8474,7 @@ SUB ideshowtext
|
||||||
COLOR 7, 1
|
COLOR 7, 1
|
||||||
_PRINTSTRING (1, y + 3), CHR$(179) 'clear prev bookmarks from lhs
|
_PRINTSTRING (1, y + 3), CHR$(179) 'clear prev bookmarks from lhs
|
||||||
|
|
||||||
IF ShowLineNumbers THEN GOSUB ShowLineNumber
|
GOSUB ShowLineNumber
|
||||||
|
|
||||||
IF l = idefocusline AND idecy <> l THEN
|
IF l = idefocusline AND idecy <> l THEN
|
||||||
COLOR 7, 4 'Line with error gets a red background
|
COLOR 7, 4 'Line with error gets a red background
|
||||||
|
@ -8845,7 +8861,7 @@ SUB ideshowtext
|
||||||
COLOR 7, 1
|
COLOR 7, 1
|
||||||
_PRINTSTRING (1, y + 3), CHR$(179) 'clear prev bookmarks from lhs
|
_PRINTSTRING (1, y + 3), CHR$(179) 'clear prev bookmarks from lhs
|
||||||
|
|
||||||
IF ShowLineNumbers THEN GOSUB ShowLineNumber
|
GOSUB ShowLineNumber
|
||||||
|
|
||||||
IF l = idefocusline AND idecy <> l THEN COLOR 13, 4 ELSE COLOR 13, 1
|
IF l = idefocusline AND idecy <> l THEN COLOR 13, 4 ELSE COLOR 13, 1
|
||||||
|
|
||||||
|
@ -8924,6 +8940,7 @@ SUB ideshowtext
|
||||||
|
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
ShowLineNumber:
|
ShowLineNumber:
|
||||||
|
IF ShowLineNumbers THEN
|
||||||
IF ShowLineNumbersUseBG THEN COLOR , 6
|
IF ShowLineNumbersUseBG THEN COLOR , 6
|
||||||
DO WHILE l > UBOUND(IdeBreakpoints)
|
DO WHILE l > UBOUND(IdeBreakpoints)
|
||||||
REDIM _PRESERVE IdeBreakpoints(UBOUND(IdeBreakpoints) + 100) AS _BYTE
|
REDIM _PRESERVE IdeBreakpoints(UBOUND(IdeBreakpoints) + 100) AS _BYTE
|
||||||
|
@ -8938,6 +8955,12 @@ SUB ideshowtext
|
||||||
END IF
|
END IF
|
||||||
IF ShowLineNumbersSeparator THEN _PRINTSTRING (1 + maxLineNumberLength, y + 3), CHR$(179)
|
IF ShowLineNumbersSeparator THEN _PRINTSTRING (1 + maxLineNumberLength, y + 3), CHR$(179)
|
||||||
COLOR , 1
|
COLOR , 1
|
||||||
|
ELSE
|
||||||
|
IF vWatchOn = 1 AND IdeBreakpoints(l) <> 0 THEN
|
||||||
|
COLOR 7, 4
|
||||||
|
_PRINTSTRING (1, y + 3), CHR$(179)
|
||||||
|
END IF
|
||||||
|
END IF
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
END SUB
|
END SUB
|
||||||
|
|
Loading…
Reference in a new issue