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

Prevents showing the call stack dialog when it's empty.

Browse source
This commit is contained in:
FellippeHeitor 2021-07-19 22:55:03 -03:00
parent 655f1e3b19
commit 10ce193ba9
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
source/ide/ide_methods.bas
View file

@ -1582,7 +1582,13 @@ FUNCTION ide2 (ignore)
END IF
IF KB = KEY_F4 THEN
GOTO showCallStackDialog
IF callStackLength > 0 THEN
GOTO showCallStackDialog
ELSE
result = idemessagebox("$DEBUG MODE", "No call stack log available.", "")
PCOPY 3, 0: SCREEN , , 3, 0
GOTO ideloop
END IF
END IF
IF KB = KEY_F5 THEN 'Note: F5 or SHIFT+F5 accepted
@ -6432,7 +6438,6 @@ SUB DebugMode
dummy = DarkenFGBG(0)
clearStatusWindow 0
setStatusMessage 1, "Requesting call stack...", 7
noFocusMessage = -1
start! = TIMER
DO
@ -6453,6 +6458,7 @@ SUB DebugMode
clearStatusWindow 0
setStatusMessage 1, "Error retrieving call stack.", 2
END IF
noFocusMessage = NOT noFocusMessage
END IF
CASE 16128 'F5
PauseMode = 0