From 634bee63eb9bd2582fbe52068475d7b6cff5d258 Mon Sep 17 00:00:00 2001
From: Samuel Gomes <samuel_gomes@outlook.com>
Date: Wed, 23 Aug 2023 00:51:00 +0530
Subject: [PATCH] Fix save dialog filter

---
 source/ide/ide_methods.bas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 503d4c74c..205bdc57a 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -20300,7 +20300,7 @@ FUNCTION SaveFile$ (IdeOpenFile AS STRING)
         IF RIGHT$(Default_StartDir$, 1) <> idepathsep$ THEN Default_StartDir$ = Default_StartDir$ + idepathsep$
     END IF
 
-    f$ = _SAVEFILEDIALOG$("Save As", Default_StartDir$ + path$ + IdeOpenFile, ".bas", "QB64PE BAS file")
+    f$ = _SAVEFILEDIALOG$("Save Source File", Default_StartDir$ + IdeOpenFile, "*.bas", "QB64-PE BAS File")
     IF f$ = "" THEN
         SaveFile$ = "C"
         EXIT FUNCTION 'someone canceled the input.
@@ -20311,6 +20311,9 @@ FUNCTION SaveFile$ (IdeOpenFile AS STRING)
     pathseppos = _INSTRREV(f$, idepathsep$)
     IF pathseppos > 0 THEN f$ = MID$(f$, pathseppos + 1)
 
+    Default_StartDir$ = path$
+    IF RIGHT$(Default_StartDir$, 1) <> idepathsep$ THEN Default_StartDir$ = Default_StartDir$ + idepathsep$
+
     ideerror = 3
     OPEN path$ + idepathsep$ + f$ FOR BINARY AS #150
     ideerror = 1