From 5ba4cde9acf26c5ae2e770de22978e60f6331bc9 Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Tue, 10 Oct 2017 00:19:50 -0300 Subject: [PATCH] Tweak to previous commit "close menus when IDE loses focus". --- source/ide/ide_methods.bas | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas index 6d9a4a0ec..6acb0d1d0 100644 --- a/source/ide/ide_methods.bas +++ b/source/ide/ide_methods.bas @@ -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