anchor.diff:      AddMenuItem('New from Template...', '', nil);
       AddMenuItem('Open...', '', @miProjectOpen);
       AddMenuItem('Open Recent', '', nil);
  -    AddMenuItem('Save...', '', nil);
  +    AddMenuItem('Save', '', @miProjectSave);
       AddMenuItem('Save As...', '', @miProjectSaveAs);
       AddMenuItem('-', '', nil);
       AddMenuItem('View Source', '', nil);
  
positive.code:     OpenEditorPage(GProject.ProjectDir + GProject.MainUnit);
      AddMessage('Project loaded');
    end;
  end;
  
  procedure TMainForm.miProjectSaveAs(Sender: TObject);
  
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);
  