From 2dbe9d104a772ebb291756b7b3db8e85dd6b814b Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Tue, 12 Jan 2021 21:07:42 -0300
Subject: [PATCH] Improves behavior of compilation requests.

- 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.
---
 source/ide/ide_methods.bas | 24 ++++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index d08349563..30faebcc2 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -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