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

"Double-click to launch $INCLUDE file" now waits for new window to close.

Browse source 
- The IDE will wait until the second instance is closed, check if the file was changed and recompile accordingly.
- Interface lights dim while the second instance is being used.
This commit is contained in:
FellippeHeitor 2017-10-23 10:19:08 -02:00
parent 5a84de731f
commit 5fb0bc3050
1 changed files with 50 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

51
source/ide/ide_methods.bas
View file

@ -2675,7 +2675,56 @@ FUNCTION ide2 (ignore)
p$ = idepath$ + pathsep$
f$ = p$ + ActiveINCLUDELinkFile
IF _FILEEXISTS(f$) THEN
SHELL _DONTWAIT QuotedFilename$(COMMAND$(0)) + " " + QuotedFilename$(f$)
backupIncludeFile = FREEFILE
OPEN f$ FOR BINARY AS #backupIncludeFile
tempInclude1$ = SPACE$(LOF(backupIncludeFile))
CLOSE #backupIncludeFile
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "FALSE"
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Width", "80"
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", "25"
SCREEN , , 3, 0
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
LOCATE idewy - 3, 2
COLOR 15, 1
PRINT "Editing $INCLUDE file..."
dummy = DarkenFGBG(1)
PCOPY 3, 0
_DELAY .2
SHELL QuotedFilename$(COMMAND$(0)) + " " + QuotedFilename$(f$)
IF IDE_AutoPosition THEN
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "TRUE"
END IF
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Width", STR$(idewx)
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", STR$(idewy)
OPEN f$ FOR BINARY AS #backupIncludeFile
tempInclude2$ = SPACE$(LOF(backupIncludeFile))
CLOSE #backupIncludeFile
dummy = DarkenFGBG(0)
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
IF tempInclude1$ = tempInclude2$ THEN
IF IDEShowErrorsImmediately THEN
LOCATE idewy - 3, 2
IF idecompiling = 1 THEN
PRINT "...";
ELSE
PRINT "OK"; 'report OK status
END IF
END IF
ELSE
idechangemade = 1
END IF
PCOPY 3, 0
tempInclude1$ = ""
tempInclude2$ = ""
END IF
ELSE
a$ = idegetline$(idecy)