mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 19:10:25 +00:00
Prevents Watch List from showing before compilation ends
This commit is contained in:
parent
72aa362956
commit
cade46d545
|
@ -1648,7 +1648,26 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF KB = KEY_F4 THEN 'variable watch
|
IF KB = KEY_F4 THEN 'variable watch
|
||||||
GOTO showWatchList
|
IF vWatchOn = 0 THEN
|
||||||
|
result = idemessagebox("Watch List", "Insert $DEBUG metacommand?", "#Yes;#No")
|
||||||
|
IF result = 1 THEN
|
||||||
|
ideselect = 0
|
||||||
|
ideinsline 1, SCase$("$Debug")
|
||||||
|
idecy = idecy + 1
|
||||||
|
idechangemade = 1
|
||||||
|
GOTO ideloop
|
||||||
|
ELSE
|
||||||
|
GOTO ideloop
|
||||||
|
END IF
|
||||||
|
ELSE
|
||||||
|
IF idecompiling = 1 THEN
|
||||||
|
result = idemessagebox("Watch List", "Variable List not yet available.\nWait for the 'OK' message in the status area.", "")
|
||||||
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
|
GOTO ideloop
|
||||||
|
ELSE
|
||||||
|
GOTO showWatchList
|
||||||
|
END IF
|
||||||
|
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
|
||||||
|
|
Loading…
Reference in a new issue