anchor.diff:      OpenEditorPage(GProject.ProjectDir + GProject.MainUnit);
       AddMessage('Project loaded');
     end;
  +end;
  +
  +procedure TMainForm.miProjectSave(Sender: TObject);
  +begin
  +  GProject.Save;
   end;
   
   procedure TMainForm.miProjectSaveAs(Sender: TObject);
  
positive.code:     AddMenuItem('New from Template...', '', nil);
      AddMenuItem('Open...', '', @miProjectOpen);
      AddMenuItem('Open Recent', '', nil);
      AddMenuItem('Save...', '', nil);
      AddMenuItem('Save As...', '', @miProjectSaveAs);
      AddMenuItem('-', '', nil);
      AddMenuItem('View Source', '', nil);
  
negative.code:     procedure   miViewDebug(Sender: TObject);
      procedure   miProjectOptions(Sender: TObject);
      procedure   miProjectOpen(Sender: TObject);
      procedure   miProjectSave(Sender: TObject);
      procedure   miProjectSaveAs(Sender: TObject);
      procedure   TabSheetClosing(Sender: TObject; ATabSheet: TfpgTabSheet);
      procedure   UpdateStatus(const AText: TfpgString);
  