From e969a7c5293c54a624569b89e3c08e3842ddfbcf Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Wed, 6 Jan 2021 11:27:03 -0300
Subject: [PATCH] Adds one-time message at 1st compilation (re: 'Save exe to
 source...')

---
 source/global/IDEsettings.bas | 15 ++++++++++++++-
 source/ide/ide_methods.bas    | 17 +++++++++++++++++
 2 files changed, 31 insertions(+), 1 deletion(-)

diff --git a/source/global/IDEsettings.bas b/source/global/IDEsettings.bas
index 23dadd601..c3d7b6dda 100644
--- a/source/global/IDEsettings.bas
+++ b/source/global/IDEsettings.bas
@@ -14,7 +14,7 @@ DIM SHARED SaveExeWithSource AS _BYTE, EnableQuickNav AS _BYTE
 DIM SHARED IDEShowErrorsImmediately AS _BYTE
 DIM SHARED ShowLineNumbersSeparator AS _BYTE, ShowLineNumbersUseBG AS _BYTE
 DIM SHARED IgnoreWarnings AS _BYTE, qb64versionprinted AS _BYTE
-DIM SHARED DisableSyntaxHighlighter AS _BYTE
+DIM SHARED DisableSyntaxHighlighter AS _BYTE, ExeToSourceFolderFirstTimeMsg AS _BYTE
 
 IF LoadedIDESettings = 0 THEN
     'We only want to load the file once when QB64 first starts
@@ -177,6 +177,19 @@ IF LoadedIDESettings = 0 THEN
         PasteCursorAtEnd = -1
     END IF
 
+    result = ReadConfigSetting("ExeToSourceFolderFirstTimeMsg", value$)
+    IF result THEN
+        IF value$ = "TRUE" OR VAL(value$) = -1 THEN
+            ExeToSourceFolderFirstTimeMsg = -1
+        ELSE
+            ExeToSourceFolderFirstTimeMsg = 0
+            WriteConfigSetting "'[GENERAL SETTINGS]", "ExeToSourceFolderFirstTimeMsg", "FALSE"
+        END IF
+    ELSE
+        WriteConfigSetting "'[GENERAL SETTINGS]", "ExeToSourceFolderFirstTimeMsg", "FALSE"
+        ExeToSourceFolderFirstTimeMsg = 0
+    END IF
+
     result = ReadConfigSetting("SaveExeWithSource", value$)
     IF result THEN
         IF value$ = "TRUE" OR VAL(value$) = -1 THEN
diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 826b87ccb..a6344d3eb 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -1493,7 +1493,24 @@ FUNCTION ide2 (ignore)
             idemrun:
             iderunmode = 1 'run detached; = 0 'standard run
             idemrunspecial:
+
             IDECompilationRequested = -1
+
+            IF ExeToSourceFolderFirstTimeMsg = 0 THEN
+                IF SaveExeWithSource THEN
+                    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."
+                ELSE
+                    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."
+                END IF
+                WriteConfigSetting "'[GENERAL SETTINGS]", "ExeToSourceFolderFirstTimeMsg", "TRUE"
+                ExeToSourceFolderFirstTimeMsg = -1
+            END IF
+            PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
+
             'run program
             IF ready <> 0 AND idechangemade = 0 THEN