anchor.diff:      fCanBeRun: boolean;
       procedure updateOutFilename;
       procedure doChanged;
  +    procedure updateDcd;
       procedure setLibAliases(const aValue: TStringList);
       procedure subMemberChanged(sender : TObject);
       procedure setOptsColl(const aValue: TCollection);
  
positive.code:     Configuration[i].onChanged := @subMemberChanged;
  end;
  
  procedure TCEProject.addSource(const aFilename: string);
  var
    relSrc, absSrc: string;
  
negative.code:     if aFilename = absSrc then exit;
    end;
    fSrcs.Add(ExtractRelativepath(fBasePath,aFilename));
    updateDcd;
  end;
  
  procedure TCEProject.setRoot(const aValue: string);
  