From f6c95b997daa758545b8cb3b4482d4d66279892f Mon Sep 17 00:00:00 2001 From: AIR Date: Sat, 14 Jan 2023 03:33:43 -0500 Subject: [PATCH] Update Load and Save routines --- Aide.bas | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/Aide.bas b/Aide.bas index b413a07..2865851 100644 --- a/Aide.bas +++ b/Aide.bas @@ -149,12 +149,13 @@ SUB RaSaveFile(hEDT as HWND) ELSE fNAME$ = tabName$ END IF - - IF *fNAME$ THEN + + IF LEN(fNAME$) THEN eTEXT$ = BCX_GET_TEXT$(hEDT) - OPEN fNAME$ FOR OUTPUT AS FP1 + OPEN fNAME$ FOR BINARY NEW AS FP1 PUT$ FP1, eTEXT$, LEN(eTEXT$) CLOSE FP1 + SetTabLabelText(fNAME$, TabCtrl_GetCurSel(ghMainTab)) END IF @@ -177,7 +178,7 @@ BEGIN EVENTS fname$ = RaLoadFile(ghEdit[TabCtrl_GetCurSel(ghMainTab)]) - IF *fname$ THEN + IF LEN(fname$) THEN SetTabLabelText(fname$, TabCtrl_GetCurSel(ghMainTab)) END IF