QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-06 01:10:23 +00:00
Code Issues Releases Wiki Activity

Fix save dialog filter

Browse source
This commit is contained in:
Samuel Gomes 2023-08-23 00:51:00 +05:30
parent 3b44191330
commit 634bee63eb
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
source/ide/ide_methods.bas
View file

@ -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