mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +00:00
Tweak to previous commit "close menus when IDE loses focus".
This commit is contained in:
parent
86a6646bdb
commit
5ba4cde9ac
1 changed files with 6 additions and 4 deletions
|
@ -1288,7 +1288,6 @@ FUNCTION ide2 (ignore)
|
|||
LOCATE , , 0
|
||||
_PALETTECOLOR 5, IDEBackgroundColor, 0
|
||||
_PALETTECOLOR 6, IDEBackgroundColor, 0
|
||||
KALT = 0
|
||||
END IF
|
||||
|
||||
IF KALT THEN 'alt held
|
||||
|
@ -3870,7 +3869,6 @@ FUNCTION ide2 (ignore)
|
|||
_LIMIT 1000
|
||||
GetInput
|
||||
IF _WINDOWHASFOCUS = 0 THEN
|
||||
KALT = 0
|
||||
LOCATE 1, 1: COLOR 0, 7: PRINT menubar$;
|
||||
SCREEN , , 3, 0: PCOPY 3, 0
|
||||
GOTO ideloop
|
||||
|
@ -3879,6 +3877,12 @@ FUNCTION ide2 (ignore)
|
|||
KB = KEY_ESC
|
||||
END IF
|
||||
|
||||
IF _WINDOWHASFOCUS = 0 THEN
|
||||
LOCATE 1, 1: COLOR 0, 7: PRINT menubar$;
|
||||
SCREEN , , 3, 0: PCOPY 3, 0
|
||||
GOTO ideloop
|
||||
END IF
|
||||
|
||||
IF mCLICK OR mCLICK2 THEN
|
||||
IF mY = 1 THEN
|
||||
FOR i = 1 TO menus
|
||||
|
@ -4040,7 +4044,6 @@ FUNCTION ide2 (ignore)
|
|||
_LIMIT 1000
|
||||
GetInput
|
||||
IF _WINDOWHASFOCUS = 0 THEN
|
||||
KALT = 0
|
||||
LOCATE 1, 1: COLOR 0, 7: PRINT menubar$;
|
||||
PCOPY 3, 0: SCREEN , , 3, 0
|
||||
GOTO ideloop
|
||||
|
@ -4051,7 +4054,6 @@ FUNCTION ide2 (ignore)
|
|||
END IF
|
||||
IF _EXIT THEN ideexit = 1: GOTO ideloop
|
||||
IF _WINDOWHASFOCUS = 0 THEN
|
||||
KALT = 0
|
||||
LOCATE 1, 1: COLOR 0, 7: PRINT menubar$;
|
||||
PCOPY 3, 0: SCREEN , , 3, 0
|
||||
GOTO ideloop
|
||||
|
|
Loading…
Reference in a new issue