From a7de88dfeed95f4c0459f483cfee3305dc51fb46 Mon Sep 17 00:00:00 2001
From: Roland Heyder <support@rhosigma-cw.net>
Date: Wed, 7 Feb 2024 20:53:53 +0100
Subject: [PATCH] 2.) Steve's fixes

- changes to Open/Save dialogs suggested by Steve to avoid adding a second extension
---
 source/ide/ide_methods.bas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index eb4b4ab37..da51a0db0 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -20317,7 +20317,7 @@ FUNCTION SaveFile$ (IdeOpenFile AS STRING)
         IF RIGHT$(Default_StartDir$, 1) <> idepathsep$ THEN Default_StartDir$ = Default_StartDir$ + idepathsep$
     END IF
 
-    f$ = _SAVEFILEDIALOG$("Save Source File", Default_StartDir$ + IdeOpenFile, "*.bas|*.BAS|*.Bas", "QB64-PE BAS File")
+    f$ = _SAVEFILEDIALOG$("Save Source File", Default_StartDir$ + IdeOpenFile, "*.bas|*.BAS|*.Bas|*.bi|*.BI|*.Bi|*.bm|*.BM|*.Bm", "QB64(PE) Source Files")
     IF f$ = "" THEN
         SaveFile$ = "C"
         EXIT FUNCTION 'someone canceled the input.
@@ -20353,7 +20353,7 @@ FUNCTION OpenFile$ (IdeOpenFile AS STRING) 'load routine copied/pasted from the
     END IF
 
     ideopenloop:
-    IF IdeOpenFile = "" THEN f$ = _OPENFILEDIALOG$("Open Source File", Default_StartDir$, "*.bas|*.BAS|*.Bas|*.bi|*.BI|*.Bi|*.bm|*.BM|*.Bm", "QB64-PE Source Files", 0) ELSE f$ = IdeOpenFile
+    IF IdeOpenFile = "" THEN f$ = _OPENFILEDIALOG$("Open Source File", Default_StartDir$, "*.bas|*.BAS|*.Bas|*.bi|*.BI|*.Bi|*.bm|*.BM|*.Bm", "QB64(PE) Source Files", 0) ELSE f$ = IdeOpenFile
     IF f$ = "" THEN OpenFile$ = "C": EXIT FUNCTION
     path$ = ideztakepath$(f$)