20221124

Help/WinFBE/Visual Designer/Controls/ListView.html

@@ -370,6 +370,9 @@
   <meta http-equiv='X-UA-Compatible' content='IE=edge' />
   <meta http-equiv='MSThemeCompatible' content='Yes'>
 
+  <meta http-equiv='X-UA-Compatible' content='IE=edge' />
+  <meta http-equiv='MSThemeCompatible' content='Yes'>
+
   <meta charset="utf-8" />
   <meta name="generator" content="pandoc" />
   <meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=yes" />
@@ -1076,5 +1079,6 @@ <h5 id="wfxpoint">wfxPoint</h5>
 
 
 
+
 
 

changes.txt

@@ -1,3 +1,8 @@
+Version 3.0.3 (November 24, 2022)
+Editor:
+- Fixed bug whereby SaveAs dialog would appear for Quick Run files.
+
+
 Version 3.0.2 (November 23, 2022)
 Editor:
 - Fixed bug where WinFBE 64-bit only would GPF if currently loaded file is edited by an external editor causing WinFBE to reload the file.

src/WinFBE.bas

@@ -46,7 +46,7 @@ using Afx
 #define APPNAME        wstr("WinFBE - FreeBASIC Editor")
 #define APPNAMESHORT   wstr("WinFBE")
 
-#define APPVERSION     wstr("3.0.2") 
+#define APPVERSION     wstr("3.0.3") 
 #define PREVENT_UPDATE_CHECK FALSE     ' used for betas
 
 #define APPCOPYRIGHT   wstr("Paul Squires, PlanetSquires Software, Copyright (C) 2016-2022") 

src/modCompile.inc

@@ -168,13 +168,13 @@ function code_Compile( ByVal wID As Long ) As BOOLEAN
    ' and compile that bas file instead. The resulting bas file will be deleted after the compiling
    ' has completed and exe will be deleted when the exe is terminated. 
    dim as CWSTR wszTempMainFilename
-   if wID = IDM_QUICKRUN THEN
+   if wID = IDM_QUICKRUN then
       if pDocMain->IsNewFlag then 
          gCompile.MainFolder = AfxGetExePathName
       else
          gCompile.MainFolder = AfxStrPathname("PATH", pDocMain->DiskFilename)
       end if
-      wszTempMainFilename = GetTemporaryFilename(gCompile.MainFolder, "bas")
+      wszTempMainFilename   = GetTemporaryFilename(gCompile.MainFolder, "bas")
       gCompile.MainFilename = wszTempMainFilename
       gCompile.MainName     = AfxStrPathname("NAME", gCompile.MainFilename)
       
@@ -194,7 +194,6 @@ function code_Compile( ByVal wID As Long ) As BOOLEAN
          end if
          pDoc = pDoc->pDocNext
       loop
-
 
       dim pTextStream as CTextStream
       if pTextStream.OpenUnicode(gCompile.MainFilename, IOMODE_FORWRITING, true) = S_OK then
@@ -206,7 +205,7 @@ function code_Compile( ByVal wID As Long ) As BOOLEAN
       gCompile.MainFilename = pDocMain->DiskFilename
       gCompile.MainName     = AfxStrPathname("NAME", pDocMain->DiskFilename)
       gCompile.MainFolder   = AfxStrPathname("PATH", pDocMain->DiskFilename)
-   END IF
+   end if
 
    gCompile.ResourceFile = ""    ' default that there is no resource
    gCompile.CompileFlags = gConfig.Builds(idxBuild).wszOptions
@@ -312,10 +311,11 @@ function code_Compile( ByVal wID As Long ) As BOOLEAN
       pDoc = pDoc->pDocNext
    loop
 
-   ' Do another SaveAll because a call to GenerateFormCode may have created
+   ' Do another Save All because a call to GenerateFormCode may have created
    ' Event code that previously did not exist.
-   OnCommand_FileSaveAll(HWND_FRMMAIN)
-
+   if wID <> IDM_QUICKRUN then
+      OnCommand_FileSaveAll(HWND_FRMMAIN)
+   end if
 
    ' Run any precompile tools
    for y as long = LBound(gConfig.Tools) To UBound(gConfig.Tools)