QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-04 04:50:22 +00:00
Code Issues Releases Wiki Activity

Wait for key release before running

Browse source 
Issue #290
This commit is contained in:
SteveMcNeill 2023-10-15 08:26:16 -04:00
parent 669e20fdea
commit f27a9129d0
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/ide/ide_methods.bas
View file

@ -5923,20 +5923,22 @@ FUNCTION ide2 (ignore)
END IF
IF menu$(m, s) = "#Start F5" THEN
_KeyClear
Do: _Limit 15: Loop Until _KeyHit = 0 'wait for user to remove finger from F5 key before running
PCOPY 3, 0: SCREEN , , 3, 0
startPaused = 0
GOTO idemrun
END IF
IF menu$(m, s) = "Run #Only (No EXE)" THEN
_KeyClear
Do: _Limit 15: Loop Until _KeyHit = 0 'wait for user to remove finger from F5 key before running
PCOPY 3, 0: SCREEN , , 3, 0
NoExeSaved = -1
startPaused = 0
GOTO idemrun
END IF
IF menu$(m, s) = "Modify #COMMAND$..." THEN
PCOPY 2, 0
ModifyCOMMAND$ = " " + ideinputbox$("Modify COMMAND$", "#Enter text for COMMAND$", _TRIM$(ModifyCOMMAND$), "", 60, 0, 0)