mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +00:00
Prevents showing the call stack dialog when it's empty.
This commit is contained in:
parent
655f1e3b19
commit
10ce193ba9
1 changed files with 8 additions and 2 deletions
|
@ -1582,7 +1582,13 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF KB = KEY_F4 THEN
|
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
|
END IF
|
||||||
|
|
||||||
IF KB = KEY_F5 THEN 'Note: F5 or SHIFT+F5 accepted
|
IF KB = KEY_F5 THEN 'Note: F5 or SHIFT+F5 accepted
|
||||||
|
@ -6432,7 +6438,6 @@ SUB DebugMode
|
||||||
dummy = DarkenFGBG(0)
|
dummy = DarkenFGBG(0)
|
||||||
clearStatusWindow 0
|
clearStatusWindow 0
|
||||||
setStatusMessage 1, "Requesting call stack...", 7
|
setStatusMessage 1, "Requesting call stack...", 7
|
||||||
noFocusMessage = -1
|
|
||||||
|
|
||||||
start! = TIMER
|
start! = TIMER
|
||||||
DO
|
DO
|
||||||
|
@ -6453,6 +6458,7 @@ SUB DebugMode
|
||||||
clearStatusWindow 0
|
clearStatusWindow 0
|
||||||
setStatusMessage 1, "Error retrieving call stack.", 2
|
setStatusMessage 1, "Error retrieving call stack.", 2
|
||||||
END IF
|
END IF
|
||||||
|
noFocusMessage = NOT noFocusMessage
|
||||||
END IF
|
END IF
|
||||||
CASE 16128 'F5
|
CASE 16128 'F5
|
||||||
PauseMode = 0
|
PauseMode = 0
|
||||||
|
|
Loading…
Reference in a new issue