From 896b613597d5eab1da7e96d04dd4c4745e74562d Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 18 Aug 2007 15:37:32 +0000
Subject: [PATCH] codetools: fixed parsing properties of class interfaces

git-svn-id: trunk@11835 -
---
 components/codetools/examples/fixdefinitionorder.lpi | 4 ++--
 components/codetools/pascalparsertool.pas            | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/codetools/examples/fixdefinitionorder.lpi b/components/codetools/examples/fixdefinitionorder.lpi
index 6864ec7d5a..9934345049 100644
--- a/components/codetools/examples/fixdefinitionorder.lpi
+++ b/components/codetools/examples/fixdefinitionorder.lpi
@@ -26,10 +26,10 @@
     </RunParams>
     <RequiredPackages Count="2">
       <Item1>
-        <PackageName Value="CodeTools"/>
+        <PackageName Value="LCL"/>
       </Item1>
       <Item2>
-        <PackageName Value="LCL"/>
+        <PackageName Value="CodeTools"/>
       </Item2>
     </RequiredPackages>
     <Units Count="3">
diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index c425c3f128..e7f298b3a6 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -1838,7 +1838,7 @@ function TPascalParserTool.KeyWordFuncClassProperty: boolean;
   end;
 
 begin
-  if not (CurNode.Desc in AllClassBaseSections) then
+  if not (CurNode.Desc in (AllClassBaseSections+[ctnClassInterface])) then
     RaiseIdentExpectedButAtomFound;
   // create class method node
   CreateChildNode;