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

MG: fixed adding of class comment without new procs

Browse Source 
git-svn-id: trunk@530 -
This commit is contained in:
lazarus 2001-12-15 22:56:38 +00:00
parent 0908e8916e
commit 8bb59a9320
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/codecompletiontool.pas
View File

@ -820,10 +820,12 @@ writeln('TCodeCompletionCodeTool.CreateMissingProcBodies Gather existing method
InsertPos:=ANode.EndPos;
end;
// insert class comment
ClassStartComment:=GetIndentStr(Indent)
+'{ '+ExtractClassName(ClassNode,false)+' }';
ASourceChangeCache.Replace(gtEmptyLine,gtEmptyLine,InsertPos,InsertPos,
ClassStartComment);
if MissingNode<>nil then begin
ClassStartComment:=GetIndentStr(Indent)
+'{ '+ExtractClassName(ClassNode,false)+' }';
ASourceChangeCache.Replace(gtEmptyLine,gtEmptyLine,InsertPos,InsertPos,
ClassStartComment);
end;
// insert all missing proc bodies
while (MissingNode<>nil) do begin
ANodeExt:=TCodeTreeNodeExtension(MissingNode.Data);
@ -1021,6 +1023,9 @@ writeln('TCodeCompletionCodeTool.CompleteCode Apply ... ');
RaiseException('unable to apply changes');
if JumpToProc<>'' then begin
{$IFDEF CTDEBUG}
writeln('TCodeCompletionCodeTool.CompleteCode Jump to new proc body ... ');
{$ENDIF}
// there was a new proc body
// -> find it and jump to
@ -1054,6 +1059,9 @@ writeln('TCodeCompletionCodeTool.CompleteCode Apply ... ');
Result:=FindJumpPointInProcNode(ProcNode,NewPos,NewTopLine);
exit;
end else begin
{$IFDEF CTDEBUG}
writeln('TCodeCompletionCodeTool.CompleteCode Adjust Cursor ... ');
{$ENDIF}
// there was no new proc body
// -> adjust cursor
NewPos:=CursorPos;