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

2.) Steve's fixes

Browse source 
- changes to Open/Save dialogs suggested by Steve to avoid adding a second extension
This commit is contained in:
Roland Heyder 2024-02-07 20:53:53 +01:00
parent cf71beb796
commit a7de88dfee
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
source/ide/ide_methods.bas
View file

@ -20317,7 +20317,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 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 IF f$ = "" THEN
SaveFile$ = "C" SaveFile$ = "C"
EXIT FUNCTION 'someone canceled the input. EXIT FUNCTION 'someone canceled the input.
@ -20353,7 +20353,7 @@ FUNCTION OpenFile$ (IdeOpenFile AS STRING) 'load routine copied/pasted from the
END IF END IF
ideopenloop: 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 IF f$ = "" THEN OpenFile$ = "C": EXIT FUNCTION
path$ = ideztakepath$(f$) path$ = ideztakepath$(f$)