paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 14:32:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: add default class section for short classes

Browse Source 
git-svn-id: trunk@39126 -
This commit is contained in:
mattias 2012-10-18 11:53:07 +00:00
parent de4e10c615
commit e4a6b07ebc
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/pascalparsertool.pas
View File

@ -3997,6 +3997,12 @@ begin
ClassNode.SubDesc:=ClassNode.SubDesc or ctnsForwardDeclaration; ClassNode.SubDesc:=ClassNode.SubDesc or ctnsForwardDeclaration;
end else begin end else begin
// very short class found e.g. = class(TAncestor); // very short class found e.g. = class(TAncestor);
CreateChildNode;
if ClassDesc in [ctnClass,ctnObjCClass] then
CurNode.Desc:=ctnClassPublished
else
CurNode.Desc:=ctnClassPublic;
EndChildNode;
end; end;
end; end;
end else begin end else begin