From e4a6b07ebc41f69fde98812ee151d0a42154a365 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 18 Oct 2012 11:53:07 +0000
Subject: [PATCH] codetools: add default class section for short classes

git-svn-id: trunk@39126 -
---
 components/codetools/pascalparsertool.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index b9388f7849..cf21a03fca 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -3997,6 +3997,12 @@ begin
         ClassNode.SubDesc:=ClassNode.SubDesc or ctnsForwardDeclaration;
       end else begin
         // 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 else begin