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

Update Load and Save routines

Browse Source
This commit is contained in:
AIR 2023-01-14 03:33:43 -05:00
parent 9695620832
commit f6c95b997d
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Aide.bas
View File

@ -149,12 +149,13 @@ SUB RaSaveFile(hEDT as HWND)
ELSE ELSE
fNAME$ = tabName$ fNAME$ = tabName$
END IF END IF
IF *fNAME$ THEN IF LEN(fNAME$) THEN
eTEXT$ = BCX_GET_TEXT$(hEDT) eTEXT$ = BCX_GET_TEXT$(hEDT)
OPEN fNAME$ FOR OUTPUT AS FP1 OPEN fNAME$ FOR BINARY NEW AS FP1
PUT$ FP1, eTEXT$, LEN(eTEXT$) PUT$ FP1, eTEXT$, LEN(eTEXT$)
CLOSE FP1 CLOSE FP1
SetTabLabelText(fNAME$, TabCtrl_GetCurSel(ghMainTab))
END IF END IF
@ -177,7 +178,7 @@ BEGIN EVENTS
fname$ = RaLoadFile(ghEdit[TabCtrl_GetCurSel(ghMainTab)]) fname$ = RaLoadFile(ghEdit[TabCtrl_GetCurSel(ghMainTab)])
IF *fname$ THEN IF LEN(fname$) THEN
SetTabLabelText(fname$, TabCtrl_GetCurSel(ghMainTab)) SetTabLabelText(fname$, TabCtrl_GetCurSel(ghMainTab))
END IF END IF