paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 13:49:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

dom.pp: Moved creation of all TDOMNodeList's to TDOMDocument (another part of #13605).

Browse Source 
git-svn-id: trunk@13134 -
This commit is contained in:
sergei 2009-05-12 19:46:42 +00:00
parent a24db8854c
commit 4eef2b87a1
1 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
packages/fcl-xml/src/dom.pp
View File

@ -417,6 +417,9 @@ type
function GetOwnerDocument: TDOMDocument; override;
procedure SetTextContent(const value: DOMString); override;
procedure RemoveID(Elem: TDOMElement);
function GetChildNodeList(aNode: TDOMNode): TDOMNodeList;
function GetElementList(aNode: TDOMNode; const tagName: DOMString): TDOMNodeList;
function GetElementList(aNode: TDOMNode; const nsURI, aLocalName: DOMString): TDOMNodeList;
public
function IndexOfNS(const nsURI: DOMString; AddIfAbsent: Boolean = False): Integer;
property DocType: TDOMDocumentType read GetDocType;
@ -807,7 +810,7 @@ end;
function TDOMNode.GetChildNodes: TDOMNodeList;
begin
Result := TDOMNodeList.Create(Self);
Result := FOwnerDocument.GetChildNodeList(Self);
end;
function TDOMNode.GetFirstChild: TDOMNode;
@ -1933,14 +1936,29 @@ begin
Result:=nil;
end;
function TDOMDocument.GetChildNodeList(aNode: TDOMNode): TDOMNodeList;
begin
Result := TDOMNodeList.Create(aNode);
end;
function TDOMDocument.GetElementList(aNode: TDOMNode; const tagName: DOMString): TDOMNodeList;
begin
Result := TDOMElementList.Create(aNode, tagname);
end;
function TDOMDocument.GetElementList(aNode: TDOMNode; const nsURI, aLocalName: DOMString): TDOMNodeList;
begin
Result := TDOMElementList.Create(aNode, nsURI, aLocalName);
end;
function TDOMDocument.GetElementsByTagName(const tagname: DOMString): TDOMNodeList;
begin
Result := TDOMElementList.Create(Self, tagname);
Result := GetElementList(Self, tagname);
end;
function TDOMDocument.GetElementsByTagNameNS(const nsURI, aLocalName: DOMString): TDOMNodeList;
begin
Result := TDOMElementList.Create(Self, nsURI, aLocalName);
Result := GetElementList(Self, nsURI, aLocalName);
end;
function TDOMDocument.CreateAttributeNS(const nsURI,
@ -2313,12 +2331,12 @@ end;
function TDOMElement.GetElementsByTagName(const name: DOMString): TDOMNodeList;
begin
Result := TDOMElementList.Create(Self, name);
Result := FOwnerDocument.GetElementList(Self, name);
end;
function TDOMElement.GetElementsByTagNameNS(const nsURI, aLocalName: DOMString): TDOMNodeList;
begin
Result := TDOMElementList.Create(Self, nsURI, aLocalName);
Result := FOwnerDocument.GetElementList(Self, nsURI, aLocalName);
end;
function TDOMElement.hasAttribute(const name: DOMString): Boolean;