upstream fix, grouped project reloaded as FSP after saving project file from an editor

src/ce_dubproject.pas

@@ -116,6 +116,7 @@ type
     function binaryKind: TProjectBinaryKind;
     function getCommandLine: string;
     function outputFilename: string;
+    procedure reload;
     //
     function isSource(const fname: string): boolean;
     function sourcesCount: integer;
@@ -349,6 +350,12 @@ begin
   exit(fBasePath);
 end;
 
+procedure TCEDubProject.reload;
+begin
+  if fFilename.fileExists then
+    loadFromFile(fFilename);
+end;
+
 procedure TCEDubProject.loadFromFile(const fname: string);
 var
   loader: TMemoryStream;

src/ce_interfaces.pas

@@ -43,6 +43,8 @@ type
       procedure loadFromFile(const fname: string);
       // saves project to filename
       procedure saveToFile(const fname: string);
+      // reloads from filename
+      procedure reload;
       // indicates of the project is modified (should be saved or not)
       function modified: boolean;
       // returns the base path used to solve relative locations

src/ce_main.pas

@@ -1430,6 +1430,7 @@ begin
       topsplt := nil;
     end;
     fSymlWidg.showWidget;
+    // TODO-cdocking: Put the new unified project editors and inspectors to the right once done
     // right
     DockMaster.GetAnchorSite(fProjWidg).Width := 190;
     DockMaster.GetAnchorSite(fPrjCfWidg).Width := 190;
@@ -3209,9 +3210,8 @@ begin
   if checkProjectLock then exit;
   //
   fname := fProject.filename;
-  fProject.getProject.Free;
   document.saveToFile(fname);
-  openProj(fname);
+  fProject.reload;
 end;
 
 function TCEMainForm.closeProj: boolean;

src/ce_nativeproject.pas

@@ -103,6 +103,7 @@ type
     function binaryKind: TProjectBinaryKind;
     function getCommandLine: string;
     function modified: boolean;
+    procedure reload;
     //
     function configurationCount: integer;
     procedure setActiveConfigurationIndex(index: integer);
@@ -251,6 +252,12 @@ begin
   endUpdate;
 end;
 
+procedure TCENativeProject.reload;
+begin
+  if fFilename.fileExists then
+    loadFromFile(fFilename);
+end;
+
 procedure TCENativeProject.customLoadFromFile(const fname: string);
 begin
   fbasePath := fname.extractFilePath;