mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 10:30:36 +00:00
Minor visual tweaks.
This commit is contained in:
parent
a15d6622d3
commit
bfed027740
|
@ -6441,9 +6441,8 @@ SUB DebugMode
|
||||||
CASE 15: IdeDebugMode = 1: GOTO requestUnskipAllLines
|
CASE 15: IdeDebugMode = 1: GOTO requestUnskipAllLines
|
||||||
END SELECT
|
END SELECT
|
||||||
|
|
||||||
COLOR 0, 7: _PRINTSTRING (1, 1), SPACE$(LEN(menubar$))
|
COLOR 15, 3: _PRINTSTRING (1, 1), SPACE$(LEN(menubar$))
|
||||||
m$ = "$DEBUG MODE ACTIVE"
|
m$ = "$DEBUG MODE ACTIVE"
|
||||||
COLOR 0
|
|
||||||
_PRINTSTRING ((idewx - LEN(m$)) \ 2, 1), m$
|
_PRINTSTRING ((idewx - LEN(m$)) \ 2, 1), m$
|
||||||
|
|
||||||
dummy = DarkenFGBG(1)
|
dummy = DarkenFGBG(1)
|
||||||
|
@ -7498,6 +7497,7 @@ SUB DebugMode
|
||||||
EnteredInput = -1
|
EnteredInput = -1
|
||||||
l = CVL(value$)
|
l = CVL(value$)
|
||||||
idecy = l
|
idecy = l
|
||||||
|
debugnextline = l
|
||||||
ideselect = 0
|
ideselect = 0
|
||||||
GOSUB UpdateDisplay
|
GOSUB UpdateDisplay
|
||||||
dummy = DarkenFGBG(1)
|
dummy = DarkenFGBG(1)
|
||||||
|
|
Loading…
Reference in a new issue