mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 03:00:25 +00:00
Display warning when $Checking:Off is used with $Debug
This commit is contained in:
parent
1a92e9b318
commit
883cfcb525
|
@ -13038,7 +13038,7 @@ FUNCTION idewarningbox
|
||||||
FOR x = 1 TO warningListItems
|
FOR x = 1 TO warningListItems
|
||||||
IF warningLines(x) = 0 THEN
|
IF warningLines(x) = 0 THEN
|
||||||
l$ = l$ + warning$(x)
|
l$ = l$ + warning$(x)
|
||||||
IF x > 1 THEN ASC(l$, treeConnection) = 192
|
IF x > 1 AND treeConnection > 0 THEN ASC(l$, treeConnection) = 192
|
||||||
ELSE
|
ELSE
|
||||||
l3$ = CHR$(16) + CHR$(2) 'dark grey
|
l3$ = CHR$(16) + CHR$(2) 'dark grey
|
||||||
IF warningIncLines(x) > 0 THEN
|
IF warningIncLines(x) > 0 THEN
|
||||||
|
@ -13052,7 +13052,7 @@ FUNCTION idewarningbox
|
||||||
END IF
|
END IF
|
||||||
treeConnection = LEN(l$) + 1
|
treeConnection = LEN(l$) + 1
|
||||||
text$ = warning$(x)
|
text$ = warning$(x)
|
||||||
IF LEN(text$) + 10 > dialogWidth THEN dialogWidth = LEN(text$) + 10
|
IF LEN(l3$ + text$) + 6 > dialogWidth THEN dialogWidth = LEN(l3$ + text$) + 6
|
||||||
IF LEN(text$) THEN
|
IF LEN(text$) THEN
|
||||||
l$ = l$ + CHR$(195) + CHR$(196) + l3$ + ": " + text$
|
l$ = l$ + CHR$(195) + CHR$(196) + l3$ + ": " + text$
|
||||||
ELSE
|
ELSE
|
||||||
|
|
|
@ -1683,8 +1683,6 @@ DO
|
||||||
LOOP
|
LOOP
|
||||||
InValidLine(linenumber) = 0
|
InValidLine(linenumber) = 0
|
||||||
|
|
||||||
ColorPass:
|
|
||||||
|
|
||||||
IF LEN(wholeline$) THEN
|
IF LEN(wholeline$) THEN
|
||||||
|
|
||||||
IF UCASE$(_TRIM$(wholeline$)) = "$NOPREFIX" THEN
|
IF UCASE$(_TRIM$(wholeline$)) = "$NOPREFIX" THEN
|
||||||
|
@ -3130,12 +3128,18 @@ DO
|
||||||
|
|
||||||
IF a3u$ = "$DEBUG" THEN
|
IF a3u$ = "$DEBUG" THEN
|
||||||
layout$ = SCase$("$Debug")
|
layout$ = SCase$("$Debug")
|
||||||
|
IF NoIDEMode THEN
|
||||||
|
addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "$Debug", "$Debug features only work from the IDE"
|
||||||
|
END IF
|
||||||
GOTO finishednonexec
|
GOTO finishednonexec
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF a3u$ = "$CHECKING:OFF" THEN
|
IF a3u$ = "$CHECKING:OFF" THEN
|
||||||
layout$ = SCase$("$Checking:Off")
|
layout$ = SCase$("$Checking:Off")
|
||||||
NoChecks = 1
|
NoChecks = 1
|
||||||
|
IF vWatchOn <> 0 AND NoIDEMode = 0 AND inclevel = 0 THEN
|
||||||
|
addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "$Debug", "$Debug features won't work in $Checking:Off blocks"
|
||||||
|
END IF
|
||||||
GOTO finishednonexec
|
GOTO finishednonexec
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
@ -8781,13 +8785,13 @@ DO
|
||||||
|
|
||||||
IF firstelement$ = "CHAIN" THEN
|
IF firstelement$ = "CHAIN" THEN
|
||||||
IF vWatchOn THEN
|
IF vWatchOn THEN
|
||||||
addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "Feature incompatible with $DEBUG MODE", "CHAIN"
|
addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "Feature incompatible with $Debug mode", "CHAIN"
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF firstelement$ = "RUN" THEN 'RUN
|
IF firstelement$ = "RUN" THEN 'RUN
|
||||||
IF vWatchOn THEN
|
IF vWatchOn THEN
|
||||||
addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "Feature incompatible with $DEBUG MODE", "RUN"
|
addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "Feature incompatible with $Debug mode", "RUN"
|
||||||
END IF
|
END IF
|
||||||
l$ = SCase$("Run")
|
l$ = SCase$("Run")
|
||||||
IF n = 1 THEN
|
IF n = 1 THEN
|
||||||
|
|
Loading…
Reference in a new issue