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

Adjusts status message colors.

Browse source
This commit is contained in:
Fellippe Heitor 2021-07-29 12:07:31 -03:00
parent 27893f66c2
commit f816013e8d
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
source/ide/ide_methods.bas
View file

@ -6445,7 +6445,7 @@ SUB DebugMode
dummy = DarkenFGBG(1) dummy = DarkenFGBG(1)
clearStatusWindow 0 clearStatusWindow 0
setStatusMessage 1, "Entering $DEBUG mode (ESC to abort)...", 13 setStatusMessage 1, "Entering $DEBUG mode (ESC to abort)...", 15
IF host& = 0 THEN IF host& = 0 THEN
host& = _OPENHOST("TCP/IP:" + hostport$) host& = _OPENHOST("TCP/IP:" + hostport$)
@ -6485,7 +6485,7 @@ SUB DebugMode
ideselect = 0 ideselect = 0
clearStatusWindow 1 clearStatusWindow 1
setStatusMessage 1, "Handshaking...", 13 setStatusMessage 1, "Handshaking...", 15
start! = TIMER start! = TIMER
DO DO
@ -6575,7 +6575,7 @@ SUB DebugMode
GOSUB SendCommand GOSUB SendCommand
clearStatusWindow 2 clearStatusWindow 2
setStatusMessage 2, "$DEBUG MODE: Set focus to the IDE to control execution", 13 setStatusMessage 2, "$DEBUG MODE: Set focus to the IDE to control execution", 15
noFocusMessage = -1 noFocusMessage = -1
@ -6952,7 +6952,7 @@ SUB DebugMode
IF noFocusMessage = 0 THEN IF noFocusMessage = 0 THEN
clearStatusWindow 2 clearStatusWindow 2
clearStatusWindow 3 clearStatusWindow 3
setStatusMessage 2, "Set focus to the IDE to control execution", 13 setStatusMessage 2, "Set focus to the IDE to control execution", 15
noFocusMessage = -1 noFocusMessage = -1
END IF END IF
END IF END IF
@ -7180,10 +7180,10 @@ SUB DebugMode
IF callStackLength = -1 THEN IF callStackLength = -1 THEN
callStackLength = 0 callStackLength = 0
clearStatusWindow 0 clearStatusWindow 0
setStatusMessage 1, "Error retrieving call stack.", 2 setStatusMessage 1, "Error retrieving call stack.", 4
ELSEIF callStackLength = 0 THEN ELSEIF callStackLength = 0 THEN
clearStatusWindow 0 clearStatusWindow 0
setStatusMessage 1, "No call stack log available.", 2 setStatusMessage 1, "No call stack log available.", 4
END IF END IF
END IF END IF
noFocusMessage = NOT noFocusMessage noFocusMessage = NOT noFocusMessage
@ -7340,7 +7340,7 @@ SUB DebugMode
CLOSE #client& CLOSE #client&
dummy = DarkenFGBG(0) dummy = DarkenFGBG(0)
clearStatusWindow 0 clearStatusWindow 0
setStatusMessage 1, "Debug session aborted.", 13 setStatusMessage 1, "Debug session aborted.", 15
IF LEN(value$) THEN IF LEN(value$) THEN
setStatusMessage 2, value$, 7 setStatusMessage 2, value$, 7
END IF END IF
@ -7355,7 +7355,7 @@ SUB DebugMode
GOSUB UpdateDisplay GOSUB UpdateDisplay
clearStatusWindow 1 clearStatusWindow 1
COLOR , 4 COLOR , 4
setStatusMessage 1, "Error occurred on line" + STR$(l), 13 setStatusMessage 1, "Error occurred on line" + STR$(l), 15
BypassRequestCallStack = -1 BypassRequestCallStack = -1
PauseMode = -1 PauseMode = -1
CASE "call stack size" CASE "call stack size"