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

Tweak to previous commit "close menus when IDE loses focus".

Browse source
This commit is contained in:
FellippeHeitor 2017-10-10 00:19:50 -03:00
parent 86a6646bdb
commit 5ba4cde9ac
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
source/ide/ide_methods.bas
View file

@ -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