|
|
|
@ -134,6 +134,26 @@ SUB SetTabLabelText(fname$, index AS INTEGER) |
|
|
|
|
tabItem.cchTextMax = BCXSTRSIZE |
|
|
|
|
|
|
|
|
|
TabCtrl_SetItem(ghMainTab, index, &tabItem) |
|
|
|
|
END SUB |
|
|
|
|
|
|
|
|
|
SUB RaSaveFile(hEDT as HWND) |
|
|
|
|
DIM eSIZE, fNAME$, tabName$ |
|
|
|
|
|
|
|
|
|
eSIZE = GetWindowTextLength(hEDT) |
|
|
|
|
DIM eTEXT$*eSIZE+1 |
|
|
|
|
|
|
|
|
|
tabName$ = GetTabLabelText(TabCtrl_GetCurSel(ghMainTab)) |
|
|
|
|
' msgbox(tabName) |
|
|
|
|
|
|
|
|
|
fNAME$ = GETFILENAME$("Save","BCX Files|*.BAS;*.INC;*.bi;*.bci",1,ghMainFrm,0,0,tabName$,0) |
|
|
|
|
IF *fNAME$ THEN |
|
|
|
|
eTEXT$ = BCX_GET_TEXT$(hEDT) |
|
|
|
|
OPEN fNAME$ FOR OUTPUT AS FP1 |
|
|
|
|
PUT$ FP1, eTEXT$, LEN(eTEXT$) |
|
|
|
|
CLOSE FP1 |
|
|
|
|
END IF |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
END SUB |
|
|
|
|
'================================================================ |
|
|
|
|
|
|
|
|
@ -157,7 +177,10 @@ BEGIN EVENTS |
|
|
|
|
IF *fname$ THEN |
|
|
|
|
SetTabLabelText(fname$, TabCtrl_GetCurSel(ghMainTab)) |
|
|
|
|
END IF |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
CASE mnuSave |
|
|
|
|
RaSaveFile(ghEdit[TabCtrl_GetCurSel(ghMainTab)]) |
|
|
|
|
|
|
|
|
|
CASE mnuNew |
|
|
|
|
RaNewEdit() |
|
|
|
|
|
|
|
|
|