anchor.diff:      AddMenuItem('Save As...', '', @miProjectSaveAs);
       AddMenuItem('-', '', nil);
       AddMenuItem('View Source', '', nil);
  -    AddMenuItem('Add editor file to Project', '', nil);
  +    AddMenuItem('Add editor file to Project', '', @miProjectAddUnitToProject);
     end;
   
     mnuRun := TfpgPopupMenu.Create(self);
  
positive.code:       s := s + cProjectExt;
      GProject.Save(s);
    end;
  
  end;
  
  procedure TMainForm.TabSheetClosing(Sender: TObject; ATabSheet: TfpgTabSheet);
  
negative.code:   ,frm_debug
    ,ideconst
    ,Project
    ,UnitList
    ;
  
  
  