mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-09 18:55:12 +00:00
Fix save dialog filter
This commit is contained in:
parent
3b44191330
commit
634bee63eb
|
@ -20300,7 +20300,7 @@ FUNCTION SaveFile$ (IdeOpenFile AS STRING)
|
||||||
IF RIGHT$(Default_StartDir$, 1) <> idepathsep$ THEN Default_StartDir$ = Default_StartDir$ + idepathsep$
|
IF RIGHT$(Default_StartDir$, 1) <> idepathsep$ THEN Default_StartDir$ = Default_StartDir$ + idepathsep$
|
||||||
END IF
|
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
|
IF f$ = "" THEN
|
||||||
SaveFile$ = "C"
|
SaveFile$ = "C"
|
||||||
EXIT FUNCTION 'someone canceled the input.
|
EXIT FUNCTION 'someone canceled the input.
|
||||||
|
@ -20311,6 +20311,9 @@ FUNCTION SaveFile$ (IdeOpenFile AS STRING)
|
||||||
pathseppos = _INSTRREV(f$, idepathsep$)
|
pathseppos = _INSTRREV(f$, idepathsep$)
|
||||||
IF pathseppos > 0 THEN f$ = MID$(f$, pathseppos + 1)
|
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
|
ideerror = 3
|
||||||
OPEN path$ + idepathsep$ + f$ FOR BINARY AS #150
|
OPEN path$ + idepathsep$ + f$ FOR BINARY AS #150
|
||||||
ideerror = 1
|
ideerror = 1
|
||||||
|
|
Loading…
Reference in a new issue