QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 05:21:21 +00:00
Code Releases Wiki Activity

Merge pull request #1 from QB64Team/linux-windowfocus

Browse source 
Ignores _WINDOWHASFOCUS for the IDE in Linux
This commit is contained in:
Fellippe Heitor 2020-01-15 00:08:09 -03:00 committed by GitHub
parent 5ab9249a6f 884944ea18
commit 9c86afd4c7
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 15 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
source/ide/ide_methods.bas
View file

@ -1310,14 +1310,16 @@ FUNCTION ide2 (ignore)
END IF
END IF
IF _WINDOWHASFOCUS THEN
LOCATE , , 1
_PALETTECOLOR 5, IDEBracketHighlightColor, 0
_PALETTECOLOR 6, IDEBackgroundColor2, 0
ELSE
LOCATE , , 0
_PALETTECOLOR 5, IDEBackgroundColor, 0
_PALETTECOLOR 6, IDEBackgroundColor, 0
IF os$ = "WIN" OR MacOSX = 1 THEN
IF _WINDOWHASFOCUS THEN
LOCATE , , 1
_PALETTECOLOR 5, IDEBracketHighlightColor, 0
_PALETTECOLOR 6, IDEBackgroundColor2, 0
ELSE
LOCATE , , 0
_PALETTECOLOR 5, IDEBackgroundColor, 0
_PALETTECOLOR 6, IDEBackgroundColor, 0
END IF
END IF
IF KALT THEN 'alt held
@ -1342,7 +1344,7 @@ FUNCTION ide2 (ignore)
idealthighlight = 0
LOCATE , , 0: COLOR 0, 7: LOCATE 1, 1: PRINT menubar$;
IF ideentermenu = 1 AND KCONTROL = 0 THEN 'alt was pressed then released
IF _WINDOWHASFOCUS THEN
IF _WINDOWHASFOCUS OR os$ = "LNX" THEN
LOCATE , , , IDENormalCursorStart, IDENormalCursorEnd
skipdisplay = 0
ideentermenu = 0
@ -4035,7 +4037,7 @@ FUNCTION ide2 (ignore)
DO
_LIMIT 1000
GetInput
IF _WINDOWHASFOCUS = 0 THEN
IF _WINDOWHASFOCUS = 0 AND (os$ = "WIN" OR MacOSX = 1) THEN
LOCATE 1, 1: COLOR 0, 7: PRINT menubar$;
SCREEN , , 3, 0: PCOPY 3, 0
GOTO ideloop
@ -4048,7 +4050,7 @@ FUNCTION ide2 (ignore)
KB = KEY_ESC
END IF
IF _WINDOWHASFOCUS = 0 THEN
IF _WINDOWHASFOCUS = 0 AND (os$ = "WIN" OR MacOSX = 1) THEN
LOCATE 1, 1: COLOR 0, 7: PRINT menubar$;
SCREEN , , 3, 0: PCOPY 3, 0
GOTO ideloop
@ -4256,7 +4258,7 @@ FUNCTION ide2 (ignore)
DO
_LIMIT 1000
GetInput
IF _WINDOWHASFOCUS = 0 THEN
IF _WINDOWHASFOCUS = 0 AND (os$ = "WIN" OR MacOSX = 1) THEN
LOCATE 1, 1: COLOR 0, 7: PRINT menubar$;
PCOPY 3, 0: SCREEN , , 3, 0
GOTO ideloop
@ -4270,7 +4272,7 @@ FUNCTION ide2 (ignore)
GOTO startmenu2
END IF
IF _EXIT THEN ideexit = 1: GOTO ideloop
IF _WINDOWHASFOCUS = 0 THEN
IF _WINDOWHASFOCUS = 0 AND (os$ = "WIN" OR MacOSX = 1) THEN
LOCATE 1, 1: COLOR 0, 7: PRINT menubar$;
PCOPY 3, 0: SCREEN , , 3, 0
GOTO ideloop