mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-16 21:15:15 +00:00
Replaces "Status" with "$DEBUG MODE" when appropriate.
This commit is contained in:
parent
e64984d5fa
commit
997285994d
|
@ -714,13 +714,15 @@ FUNCTION ide2 (ignore)
|
||||||
idesubwindow = 0
|
idesubwindow = 0
|
||||||
skipdisplay = 0
|
skipdisplay = 0
|
||||||
IdeSystem = 1
|
IdeSystem = 1
|
||||||
retval = 1: GOSUB redrawItAll
|
retval = 1
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
GOSUB redrawItAll
|
||||||
idecompiling = 0
|
idecompiling = 0
|
||||||
ready = 1
|
ready = 1
|
||||||
_RESIZE OFF
|
_RESIZE OFF
|
||||||
DebugMode
|
DebugMode
|
||||||
|
UpdateMenuHelpLine ""
|
||||||
SELECT CASE IdeDebugMode
|
SELECT CASE IdeDebugMode
|
||||||
CASE 1 'clean exit
|
CASE 1 'clean exit
|
||||||
IdeDebugMode = 0
|
IdeDebugMode = 0
|
||||||
|
@ -6004,8 +6006,17 @@ FUNCTION ide2 (ignore)
|
||||||
COLOR 7, 1: _PRINTSTRING (idewx - 2, idewy - 4), CHR$(195)
|
COLOR 7, 1: _PRINTSTRING (idewx - 2, idewy - 4), CHR$(195)
|
||||||
|
|
||||||
'add status title
|
'add status title
|
||||||
IF IdeSystem = 2 THEN COLOR 1, 7 ELSE COLOR 7, 1
|
COLOR 7, 1
|
||||||
_PRINTSTRING ((idewx - 8) / 2, idewy - 4), " Status "
|
a$ = STRING$(14, 196)
|
||||||
|
_PRINTSTRING ((idewx - LEN(a$)) / 2, idewy - 4), a$
|
||||||
|
IF IdeDebugMode THEN
|
||||||
|
COLOR 1, 7
|
||||||
|
a$ = " $DEBUG MODE "
|
||||||
|
ELSE
|
||||||
|
IF IdeSystem = 2 THEN COLOR 1, 7 ELSE COLOR 7, 1
|
||||||
|
a$ = " Status "
|
||||||
|
END IF
|
||||||
|
_PRINTSTRING ((idewx - LEN(a$)) / 2, idewy - 4), a$
|
||||||
|
|
||||||
a$ = idefindtext
|
a$ = idefindtext
|
||||||
tx = 1
|
tx = 1
|
||||||
|
@ -6208,7 +6219,7 @@ FUNCTION ide2 (ignore)
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
SUB DebugMode
|
SUB DebugMode
|
||||||
STATIC PauseMode AS _BYTE
|
STATIC AS _BYTE PauseMode, noFocusMessage
|
||||||
STATIC client&
|
STATIC client&
|
||||||
STATIC buffer$
|
STATIC buffer$
|
||||||
STATIC endc$
|
STATIC endc$
|
||||||
|
@ -6218,44 +6229,31 @@ SUB DebugMode
|
||||||
|
|
||||||
SCREEN , , 3, 0
|
SCREEN , , 3, 0
|
||||||
|
|
||||||
SELECT CASE IdeDebugMode
|
SELECT EVERYCASE IdeDebugMode
|
||||||
CASE 1
|
CASE 1
|
||||||
PauseMode = 0
|
PauseMode = 0
|
||||||
callStackLength = 0
|
callStackLength = 0
|
||||||
callstacklist$ = ""
|
callstacklist$ = ""
|
||||||
buffer$ = ""
|
buffer$ = ""
|
||||||
client& = 0
|
client& = 0
|
||||||
CASE 2
|
CASE IS > 1
|
||||||
IdeDebugMode = 1
|
noFocusMessage = NOT noFocusMessage
|
||||||
GOTO returnFromContextMenu
|
GOSUB UpdateStatusArea
|
||||||
CASE 3
|
clearStatusWindow 1
|
||||||
IdeDebugMode = 1
|
setStatusMessage 1, "Paused.", 2
|
||||||
GOTO requestCallStack
|
CASE 2: IdeDebugMode = 1: GOTO returnFromContextMenu
|
||||||
CASE 4
|
CASE 3: IdeDebugMode = 1: GOTO requestCallStack
|
||||||
IdeDebugMode = 1
|
CASE 4: IdeDebugMode = 1: GOTO requestContinue
|
||||||
GOTO requestContinue
|
CASE 5: IdeDebugMode = 1: GOTO requestStepOut
|
||||||
CASE 5
|
CASE 6: IdeDebugMode = 1: GOTO requestStepOver
|
||||||
IdeDebugMode = 1
|
CASE 7: IdeDebugMode = 1: GOTO requestPause
|
||||||
GOTO requestStepOut
|
|
||||||
CASE 6
|
|
||||||
IdeDebugMode = 1
|
|
||||||
GOTO requestStepOver
|
|
||||||
CASE 7
|
|
||||||
IdeDebugMode = 1
|
|
||||||
GOTO requestPause
|
|
||||||
CASE 8
|
CASE 8
|
||||||
IdeDebugMode = 1
|
IdeDebugMode = 1
|
||||||
result = idecy
|
result = idecy
|
||||||
GOTO requestRunToThisLine
|
GOTO requestRunToThisLine
|
||||||
CASE 9
|
CASE 9: IdeDebugMode = 1: GOTO requestQuit
|
||||||
IdeDebugMode = 1
|
CASE 10: IdeDebugMode = 1: GOTO requestToggleBreakpoint
|
||||||
GOTO requestQuit
|
CASE 11: IdeDebugMode = 1: GOTO requestClearBreakpoints
|
||||||
CASE 10
|
|
||||||
IdeDebugMode = 1
|
|
||||||
GOTO requestToggleBreakpoint
|
|
||||||
CASE 11
|
|
||||||
IdeDebugMode = 1
|
|
||||||
GOTO requestClearBreakpoints
|
|
||||||
CASE 12
|
CASE 12
|
||||||
IdeDebugMode = 1
|
IdeDebugMode = 1
|
||||||
result = idecy
|
result = idecy
|
||||||
|
@ -6264,9 +6262,7 @@ SUB DebugMode
|
||||||
IdeDebugMode = 1
|
IdeDebugMode = 1
|
||||||
result = idecy
|
result = idecy
|
||||||
GOTO requestSetNextLine
|
GOTO requestSetNextLine
|
||||||
CASE 14
|
CASE 14: IdeDebugMode = 1: GOTO requestSubsDialog
|
||||||
IdeDebugMode = 1
|
|
||||||
GOTO requestSubsDialog
|
|
||||||
END SELECT
|
END SELECT
|
||||||
|
|
||||||
COLOR 0, 7: _PRINTSTRING (1, 1), SPACE$(LEN(menubar$))
|
COLOR 0, 7: _PRINTSTRING (1, 1), SPACE$(LEN(menubar$))
|
||||||
|
@ -6406,7 +6402,7 @@ SUB DebugMode
|
||||||
GOSUB SendCommand
|
GOSUB SendCommand
|
||||||
|
|
||||||
clearStatusWindow 2
|
clearStatusWindow 2
|
||||||
setStatusMessage 2, "$DEBUG: Set focus to the IDE to control execution", 15
|
setStatusMessage 2, "$DEBUG MODE: Set focus to the IDE to control execution", 15
|
||||||
|
|
||||||
noFocusMessage = -1
|
noFocusMessage = -1
|
||||||
|
|
||||||
|
@ -6580,22 +6576,25 @@ SUB DebugMode
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
|
||||||
|
UpdateStatusArea:
|
||||||
IF _WINDOWHASFOCUS THEN
|
IF _WINDOWHASFOCUS THEN
|
||||||
IF noFocusMessage THEN
|
IF noFocusMessage THEN
|
||||||
clearStatusWindow 2
|
clearStatusWindow 2
|
||||||
clearStatusWindow 3
|
clearStatusWindow 3
|
||||||
setStatusMessage 2, "$DEBUG: <F4 = Stack> <F5 = Run> <F6 = Step Out> <F7 = Step Over> <F8 = Step>", 15
|
setStatusMessage 2, "<F4 = Call Stack> <F5 = Run> <F6 = Step Out> <F7 = Step Over> <F8 = Step Into>", 15
|
||||||
setStatusMessage 3, " <F9 = Toggle Breakpoint> <F10 = Clear All Breakpoints> <ESC = Abort>", 15
|
setStatusMessage 3, "<F9 = Toggle Breakpoint> <F10 = Clear all breakpoints>", 15
|
||||||
|
UpdateMenuHelpLine "Right-click the code for more options; hit ESC to abort."
|
||||||
noFocusMessage = 0
|
noFocusMessage = 0
|
||||||
END IF
|
END IF
|
||||||
ELSE
|
ELSE
|
||||||
IF noFocusMessage = 0 THEN
|
IF noFocusMessage = 0 THEN
|
||||||
clearStatusWindow 2
|
clearStatusWindow 2
|
||||||
clearStatusWindow 3
|
clearStatusWindow 3
|
||||||
setStatusMessage 2, "$DEBUG: Set focus to the IDE to control execution", 15
|
setStatusMessage 2, "Set focus to the IDE to control execution", 15
|
||||||
noFocusMessage = -1
|
noFocusMessage = -1
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
IF IdeDebugMode > 1 THEN RETURN
|
||||||
|
|
||||||
k& = _KEYHIT
|
k& = _KEYHIT
|
||||||
SELECT CASE k&
|
SELECT CASE k&
|
||||||
|
|
Loading…
Reference in a new issue