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

Improves behavior of compilation requests.

Browse source 
- Adds "Cancel" to the dialog "Your program will be compiled..."
- Shows the location of the generated binary with the "Already created executable" message.
- Allows triggering compilation again without having to edit the source if SaveExeWithSource is toggled.
This commit is contained in:
FellippeHeitor 2021-01-12 21:07:42 -03:00
parent 0afa42cc46
commit 2dbe9d104a
1 changed files with 22 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
source/ide/ide_methods.bas
View file

@ -1502,15 +1502,22 @@ FUNCTION ide2 (ignore)
IF SaveExeWithSource THEN
result = idemessagebox("Run", "Your program will be compiled to the same folder where your" + CHR$(10) + _
"source code is saved. You can change that by unchecking the" + CHR$(10) + _
"option 'Output EXE to Source Folder' in the Run menu.", "#OK;#Don't show this again")
"option 'Output EXE to Source Folder' in the Run menu.", "#OK;#Don't show this again;#Cancel")
ELSE
result = idemessagebox("Run", "Your program will be compiled to your QB64 folder. You can" + CHR$(10) + _
"change that by checking the option 'Output EXE to Source" + CHR$(10) + _
"Folder' in the Run menu.", "#OK;#Don't show this again")
"Folder' in the Run menu.", "#OK;#Don't show this again;#Cancel")
END IF
IF result = 2 THEN
WriteConfigSetting "'[GENERAL SETTINGS]", "ExeToSourceFolderFirstTimeMsg", "TRUE"
ExeToSourceFolderFirstTimeMsg = -1
ELSEIF result = 3 THEN
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
LOCATE , , 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
PRINT "Compilation request canceled."
GOTO specialchar
END IF
END IF
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
@ -1532,6 +1539,18 @@ FUNCTION ide2 (ignore)
PRINT "Already created .EXE file!";
END IF
LOCATE idewy - 2, 2
PRINT "Location: ";
COLOR 11, 1
location$ = lastBinaryGenerated$
IF path.exe$ = "" THEN location$ = _STARTDIR$ + pathsep$ + location$
IF POS(0) + LEN(location$) > idewx THEN
PRINT "..."; RIGHT$(location$, idewx - 15);
ELSE
PRINT location$;
END IF
statusarealink = 3
GOTO specialchar
ELSEIF _FILEEXISTS(lastBinaryGenerated$) = 0 THEN
idecompiled = 0
@ -4847,6 +4866,7 @@ FUNCTION ide2 (ignore)
menu$(RunMenuID, RunMenuSaveExeWithSource) = "Output EXE to Source #Folder"
END IF
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
idecompiled = 0
GOTO ideloop
END IF