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

Darkens screen while waiting for INPUT/LINE INPUT ($DEBUG).

Browse source
This commit is contained in:
FellippeHeitor 2021-08-14 22:11:11 -03:00
parent 2af2f4e2a1
commit a15d6622d3
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
source/ide/ide_methods.bas
View file

@ -6341,7 +6341,7 @@ SUB UpdateTitleOfMainWindow
END SUB END SUB
SUB DebugMode SUB DebugMode
STATIC AS _BYTE PauseMode, noFocusMessage STATIC AS _BYTE PauseMode, noFocusMessage, EnteredInput
STATIC buffer$ STATIC buffer$
STATIC endc$ STATIC endc$
STATIC currentSub$ STATIC currentSub$
@ -7211,7 +7211,12 @@ SUB DebugMode
GOSUB SendCommand GOSUB SendCommand
END IF END IF
clearStatusWindow 1 clearStatusWindow 1
setStatusMessage 1, "Paused.", 2 IF EnteredInput THEN
setStatusMessage 1, "Execution will be paused after INPUT/LINE INPUT finishes running...", 2
set_foreground_window debuggeehwnd
ELSE
setStatusMessage 1, "Paused.", 2
END IF
IF IdeDebugMode = 2 THEN RETURN IF IdeDebugMode = 2 THEN RETURN
CASE 16896 'F8 CASE 16896 'F8
F8: F8:
@ -7490,17 +7495,21 @@ SUB DebugMode
BypassRequestCallStack = -1 BypassRequestCallStack = -1
PauseMode = -1 PauseMode = -1
CASE "enter input" CASE "enter input"
EnteredInput = -1
l = CVL(value$) l = CVL(value$)
idecy = l idecy = l
ideselect = 0 ideselect = 0
GOSUB UpdateDisplay GOSUB UpdateDisplay
dummy = DarkenFGBG(1)
clearStatusWindow 1 clearStatusWindow 1
setStatusMessage 1, "INPUT/LINE INPUT active in your program...", 10 setStatusMessage 1, "INPUT/LINE INPUT active in your program...", 10
set_foreground_window debuggeehwnd set_foreground_window debuggeehwnd
CASE "leave input" CASE "leave input"
EnteredInput = 0
clearStatusWindow 1 clearStatusWindow 1
IF PauseMode THEN IF PauseMode THEN
setStatusMessage 1, "Paused.", 2 setStatusMessage 1, "Paused.", 2
dummy = DarkenFGBG(0)
ELSE ELSE
setStatusMessage 1, "Running...", 10 setStatusMessage 1, "Running...", 10
END IF END IF