paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 05:20:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added deprecated Find*UsesSection for compatibility

Browse Source 
git-svn-id: trunk@49343 -
This commit is contained in:
mattias 2015-06-16 09:30:23 +00:00
parent 2f643bd4d4
commit ef8ec94a3e
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/codetools/pascalparsertool.pas
View File

@ -268,8 +268,10 @@ type
function FindRootNode(Desc: TCodeTreeNodeDesc): TCodeTreeNode;
function FindInterfaceNode: TCodeTreeNode;
function FindMainUsesNode(UseContainsSection: boolean = false): TCodeTreeNode;
function FindMainUsesSection(UseContainsSection: boolean = false): TCodeTreeNode; deprecated; // use FindMainUsesNode
function FindImplementationNode: TCodeTreeNode;
function FindImplementationUsesNode: TCodeTreeNode;
function FindImplementationUsesSection: TCodeTreeNode; deprecated; // use FindImplementationUsesNode
function FindInitializationNode: TCodeTreeNode;
function FindFinalizationNode: TCodeTreeNode;
function FindMainBeginEndNode: TCodeTreeNode;
@ -5880,6 +5882,11 @@ begin
if (Result.Desc<>ctnUsesSection) then Result:=nil;
end;
function TPascalParserTool.FindImplementationUsesSection: TCodeTreeNode;
begin
Result:=FindImplementationUsesNode;
end;
function TPascalParserTool.FindInitializationNode: TCodeTreeNode;
begin
Result:=FindRootNode(ctnInitialization);
@ -5926,6 +5933,12 @@ begin
end;
end;
function TPascalParserTool.FindMainUsesSection(UseContainsSection: boolean
): TCodeTreeNode;
begin
Result:=FindMainUsesNode(UseContainsSection);
end;
function TPascalParserTool.FindFirstSectionChild: TCodeTreeNode;
begin
Result:=Tree.Root;