Update Load and Save routines

Aide.bas

@@ -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,14 +143,19 @@ 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
+    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 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
 
 
@@ -161,20 +166,19 @@ 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
 
                         fname$ = RaLoadFile(ghEdit[TabCtrl_GetCurSel(ghMainTab)])
 
-                        IF *fname$ THEN
+                        IF LEN(fname$) THEN
                             SetTabLabelText(fname$, TabCtrl_GetCurSel(ghMainTab))
                         END IF
 

raedit.inc

@@ -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
@@ -49,6 +49,8 @@ SUB RaConfigEditor(hEDT as HWND)
 
     SendMessage(hEDT, REM_SETSTYLEEX, STILEEX_STRINGMODEFB, 0)
 
+    SendMessage(hEDT, REM_SETSTYLEEX, STILEEX_LINECHANGED, 0)
+
     ' Set Colors and Keywords
     RaSetColors(hEDT)
     RaLoadKeyWords(hEDT)
@@ -134,13 +136,18 @@ FUNCTION RaLoadFile(edt AS HWND) AS STRING
     DIM AS CHARRANGE chrg
     RetStr$ = GetFileName$("Open File...", "BCX Files|*.BAS;*.INC;*.bi;*.bci")
     IF Len(RetStr$) THEN
+
+
         EDITLOADFILE(edt, RetStr$)
         chrg.cpMin = 0
         chrg.cpMax = 0
         SendMessage(edt, EM_EXSETSEL, 0, &chrg)
         SendMessage(edt, EM_SCROLLCARET, 0, 0)
         SendMessage(edt, REM_HILITEACTIVELINE, 0, 2)
+        SendMessage(edt, EM_SETMODIFY, FALSE, 0)
+        SendMessage(edt, REM_SETCHANGEDSTATE, FALSE, 0)
         SetFocus(edt)
+        
     END IF
     FUNCTION = RetStr$
 END FUNCTION