AIR/Aide
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Updated save file function

Browse Source
This commit is contained in:
AIR 2023-01-14 03:06:14 -05:00
parent 92d6f2d715
commit 9695620832
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Aide.bas
View File

@ -144,7 +144,12 @@ SUB RaSaveFile(hEDT as HWND)
tabName$ = GetTabLabelText(TabCtrl_GetCurSel(ghMainTab)) tabName$ = GetTabLabelText(TabCtrl_GetCurSel(ghMainTab))
fNAME$ = GETFILENAME$("Save","BCX Files|*.BAS;*.INC;*.bi;*.bci",1,ghMainFrm,0,0,tabName$,0) IF tabName$ = "New.bas" THEN
fNAME$ = GETFILENAME$("Save","BCX Files|*.BAS;*.INC;*.bi;*.bci",1,ghMainFrm,0,0,tabName$,0)
ELSE
fNAME$ = tabName$
END IF
IF *fNAME$ THEN IF *fNAME$ THEN
eTEXT$ = BCX_GET_TEXT$(hEDT) eTEXT$ = BCX_GET_TEXT$(hEDT)
OPEN fNAME$ FOR OUTPUT AS FP1 OPEN fNAME$ FOR OUTPUT AS FP1