anchor.diff:      if FileExists(fname) then
       begin
         multidoc.openDocument(fname);
  +      fProject.beginUpdate;
         fProject.addSource(fname);
  +      fProject.endUpdate;
       end;
   end;
   
  -procedure TCEProjectInspectWidget.UpdateByEvent;
  +procedure TCEProjectInspectWidget.updateDelayed;
  +begin
  +  updateImperative;
  +end;
  +
  +procedure TCEProjectInspectWidget.updateImperative;
   var
     src, fold, conf: string;
     lst: TStringList;
  
positive.code: procedure TCEProjectInspectWidget.projNew(aProject: TCEProject);
  begin
    fProject := aProject;
    if Visible then UpdateByEvent;
  end;
  
  procedure TCEProjectInspectWidget.projClosing(aProject: TCEProject);
  
negative.code:   begin
      i := Tree.Selected.Index;
      fProject.ConfigurationIndex := i;
      beginDelayedUpdate;
    end;
  end;
  
  