anchor.diff:      function HasAttribute(const Name: TmXMLString): boolean;
       procedure SetAttribute(Name, Value: TmXmlString);
       function GetAttribute(Name: TmXmlString): TmXmlString; overload;
  -    function GetAttribute(Name: TmXmlString; Default: TmXmlString): TmXmlString; overload;
  +    function GetAttribute(Name: TmXmlString; DefaultValue: TmXmlString): TmXmlString; overload;
       procedure SetDateTimeAttribute(Name : TmXmlString; Value: TDateTime);
       function GetDateTimeAttribute(Name: TmXmlString): TDateTime; overload;
  -    function GetDateTimeAttribute(Name: TmXmlString; Default : TDateTime): TDateTime; overload;
  +    function GetDateTimeAttribute(Name: TmXmlString; DefaultValue : TDateTime): TDateTime; overload;
       procedure SetIntegerAttribute(Name : TmXmlString; Value: integer);
       function GetIntegerAttribute(Name: TmXmlString): integer; overload;
  -    function GetIntegerAttribute(Name: TmXmlString; Default : integer): integer; overload;
  +    function GetIntegerAttribute(Name: TmXmlString; DefaultValue : integer): integer; overload;
  +    procedure SetBooleanAttribute(Name : TmXmlString; Value : Boolean);
  +    function GetBooleanAttribute(Name: TmXMLString): boolean; overload;
  +    function GetBooleanAttribute(Name: TmXMLString; DefaultValue : boolean): boolean; overload;
     end;
   
     TmXmlElementCursor = class
  
positive.code:     procedure LoadFromFile(FileName: string);
    end;
  
    TmXmlElement = class
    private
      FImpl : TImpl_mXmlElement;
  
negative.code:   Result := FImpl._GetDateTimeAttribute(Name);
  end;
  
  function TmXmlElement.GetDateTimeAttribute(Name: TmXmlString; DefaultValue: TDateTime): TDateTime;
  begin
    Result := FImpl._GetDateTimeAttribute(Name, DefaultValue);
  end;
  
  function TmXmlElement.GetIntegerAttribute(Name: TmXmlString): integer;
  