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

MG: fixed class completion end of interface/implemention node

Browse Source 
git-svn-id: trunk@356 -
This commit is contained in:
lazarus 2001-10-17 17:31:03 +00:00
parent 96a5cb3237
commit 8b0b91740a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/codetools.pas
View File

@ -3172,7 +3172,10 @@ end;
function TPascalParserTool.KeyWordFuncEnd: boolean;
// end (parse end of block, e.g. begin..end)
begin
CurNode.EndPos:=CurPos.EndPos;
if CurNode.Desc in [ctnImplementation,ctnInterface] then
CurNode.EndPos:=CurPos.StartPos
else
CurNode.EndPos:=CurPos.EndPos;
EndChildNode;
ReadNextAtom;
if AtomIsChar('.') then
@ -6957,8 +6960,7 @@ writeln('TCodeCompletionCodeTool.CreateMissingProcBodies Gather existing method
// -> insert at the end of the implementation section
ImplementationNode:=FindImplementationNode;
if ImplementationNode=nil then exit;
Indent:=GetLineIndent(Src,ImplementationNode.StartPos)
+ASourceChangeCache.BeautifyCodeOptions.Indent;
Indent:=GetLineIndent(Src,ImplementationNode.StartPos);
InsertPos:=ImplementationNode.EndPos;
end else begin
// class is not in interface section