anchor.diff:      procedure   miProjectOpen(Sender: TObject);
       procedure   miProjectSave(Sender: TObject);
       procedure   miProjectSaveAs(Sender: TObject);
  +    procedure   miProjectAddUnitToProject(Sender: TObject);
       procedure   TabSheetClosing(Sender: TObject; ATabSheet: TfpgTabSheet);
       procedure   UpdateStatus(const AText: TfpgString);
       procedure   SetupProjectTree;
  
positive.code:     AddMenuItem('Save As...', '', @miProjectSaveAs);
      AddMenuItem('-', '', nil);
      AddMenuItem('View Source', '', nil);
      AddMenuItem('Add editor file to Project', '', nil);
    end;
  
    mnuRun := TfpgPopupMenu.Create(self);
  
negative.code:   ,frm_debug
    ,ideconst
    ,Project
    ,UnitList
    ;
  
  
  