anchor.diff:        write SetAttr; // Attributes of a Node, accessible by attribute name
     end;
   
  -  TXmlNodeList = class(TList);
  +  TXmlNodeList = class(TXmlList);
   
     TXmlOnNodeSetText = procedure (Sender: TObject; Node: TXmlNode; Text: String) of
       object;
  
positive.code:   Classes;
  
  type
    TXmlNodeList = class;
  
    TXmlAttribute = class(TObject)
  
negative.code:     Value: String; // Attribute value (always as String)
    end;
  
    TXmlAttributeList = class(TXmlList)
    public
      function Find(AttrName: String): TXmlAttribute;
      // Find an Attribute by Name (not case sensitive)
  