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

codetools: class completion: fixed checking if ancestor method is proc

Browse Source 
git-svn-id: trunk@33985 -
This commit is contained in:
mattias 2011-12-05 23:30:24 +00:00
parent 123e380712
commit b940e9e6a6
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/codecompletiontool.pas
View File

@ -7056,12 +7056,13 @@ begin
Tool:=Params.NewCodeTool; Tool:=Params.NewCodeTool;
ClassNode:=Params.NewNode; ClassNode:=Params.NewNode;
Params.ContextNode:=ClassNode; Params.ContextNode:=ClassNode;
Params.IdentifierTool:=Tool; Params.IdentifierTool:=Self;
// FirstChild skips keyword 'procedure' or 'function' // FirstChild skips keyword 'procedure' or 'function'
Params.SetIdentifier(Self,@Src[ProcNode.FirstChild.StartPos],nil); Params.SetIdentifier(Self,@Src[ProcNode.FirstChild.StartPos],nil);
// Found ancestor definition.
if Tool.FindIdentifierInContext(Params) then begin if Tool.FindIdentifierInContext(Params) then begin
if Params.NewNode<>nil then // Found ancestor definition.
if (Params.NewNode<>nil)
and (Params.NewNode.Desc in [ctnProcedure,ctnProcedureHead]) then
InclProcCall:=not Tool.ProcNodeHasSpecifier(Params.NewNode,psABSTRACT); InclProcCall:=not Tool.ProcNodeHasSpecifier(Params.NewNode,psABSTRACT);
Break; Break;
end; end;