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

Changed default filename shown in tabs to 'new.bas'

Browse Source
This commit is contained in:
AIR 2023-01-14 02:26:16 -05:00
parent 8d51ab873e
commit e1687a7c28
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Aide.bas
View File

@ -62,7 +62,7 @@ END ENUM
ghMainTab = BCX_TAB(ghMainFrm, ID_TAB, 1, ghTab, gTabPage$, 0, 0, fWidth, fHeight-26,NULL)
BCX_SET_FONT(ghMainTab, "Verdana", 9)
ghEdit[0] = BCX_CONTROL("RAEdit", ghTab[0], "This is Page ", 6000, rc.left,rc.top,rc.right-rc.left-8,rc.bottom-rc.top-46, _
ghEdit[0] = BCX_CONTROL("RAEdit", ghTab[0], "", 6000, rc.left,rc.top,rc.right-rc.left-8,rc.bottom-rc.top-46, _
WS_CHILD OR WS_VISIBLE OR WS_BORDER OR ES_LEFT OR ES_MULTILINE OR STYLE_AUTOSIZELINENUM OR STYLE_NOLINENUMBER OR STYLE_DRAGDROP OR STYLE_NOSIZEGRIP)
RaConfigEditor(ghEdit[0])
@ -143,7 +143,6 @@ SUB RaSaveFile(hEDT as HWND)
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
@ -161,14 +160,13 @@ BEGIN EVENTS
SELECT CASE CBMSG
CASE WM_SHOWWINDOW
' RaNewEdit()
SetTabLabelText("New.bas",0)
CASE WM_COMMAND
SELECT CASE CBCTL
CASE mnuOpen
dim fname$
IF TRIM$(GetTabLabelText(TabCtrl_GetCurSel(ghMainTab))) <> "<Untitled.bas>" THEN
IF TRIM$(GetTabLabelText(TabCtrl_GetCurSel(ghMainTab))) <> "New.bas" THEN
RaNewEdit()
END IF

2
raedit.inc
View File

@ -12,7 +12,7 @@ SUB RaNewEdit()
AdjustWindowRect (&rc, 0, 0)
IF pn THEN
BCX_ADDTAB(ghMainTab, pn, "<Untitled.bas>")
BCX_ADDTAB(ghMainTab, pn, "New.bas")
ghEdit[pn] = BCX_CONTROL("RAEdit", ghTab[pn], "This is Page ", pn+6000, rc.left,rc.top,rc.right-rc.left-8,rc.bottom-rc.top-26, _
WS_CHILD OR WS_VISIBLE OR WS_BORDER OR ES_LEFT OR ES_MULTILINE OR STYLE_AUTOSIZELINENUM OR STYLE_NOLINENUMBER OR STYLE_DRAGDROP OR STYLE_NOSIZEGRIP)
END IF