anchor.diff:    Result := StrToBool(Self.GetAttribute(Name, BoolToStr(DefaultValue, true)));
   end;
   
  -function TmXmlElement.GetAttribute(Name: TmXmlString): TmXmlString;
  -begin
  -  Result := FImpl._GetAttribute(Name);
  +function TmXmlElement.GetAttribute(const aName: TmXmlString): TmXmlString;
  +begin
  +  Result := FImpl._GetAttribute(aName);
   end;
   
   function TmXmlElement.HasAttribute(const Name: TmXMLString): boolean;
  
positive.code:   inherited;
  end;
  
  function TmXmlElement.GetAttribute(Name: TmXmlString; DefaultValue: TmXmlString
    ): TmXmlString;
  begin
    Result := FImpl._GetAttribute(Name, DefaultValue);
  end;
  
  function TmXmlElement.GetDateTimeAttribute(Name: TmXmlString): TDateTime;
  begin
    Result := FImpl._GetDateTimeAttribute(Name);
  end;
  
  function TmXmlElement.GetDateTimeAttribute(Name: TmXmlString; DefaultValue: TDateTime): TDateTime;
  begin
    Result := FImpl._GetDateTimeAttribute(Name, DefaultValue);
  end;
  
  procedure TmXmlElement.SetFloatAttribute(Name: TmXmlString; Value: Double);
  begin
    FImpl._SetFloatAttribute(Name, Value);
  end;
  
  function TmXmlElement.GetFloatAttribute(Name: TmXmlString): Double;
  begin
    Result := FImpl._GetFloatAttribute(Name);
  end;
  
  function TmXmlElement.GetFloatAttribute(Name: TmXmlString; DefaultValue: Double): Double;
  begin
    Result := FImpl._GetFloatAttribute(Name, DefaultValue);
  end;
  
  function TmXmlElement.GetIntegerAttribute(Name: TmXmlString): integer;
  begin
    Result := FImpl._GetIntegerAttribute(Name);
  end;
  
  function TmXmlElement.GetIntegerAttribute(Name: TmXmlString; DefaultValue: integer): integer;
  begin
    Result := FImpl._GetIntegerAttribute(Name, DefaultValue)
  end;
  
  procedure TmXmlElement.SetBooleanAttribute(Name: TmXmlString; Value: Boolean);
  
negative.code: interface
  
  uses
    Classes, SysUtils,
    mNullables;
  
  type
    TmXMLString = string;
  