From de301ed56c19effcbd882fb5de9b9f7e06634b3d Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 27 Jul 2009 09:46:17 +0000
Subject: [PATCH] codetools: do not add found public properties twice

git-svn-id: trunk@20969 -
---
 components/codetools/identcompletiontool.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/codetools/identcompletiontool.pas b/components/codetools/identcompletiontool.pas
index ef6886f53a..858be1f37e 100644
--- a/components/codetools/identcompletiontool.pas
+++ b/components/codetools/identcompletiontool.pas
@@ -891,6 +891,7 @@ var
         exit(true);
       end;
     end;
+    //DebugLn(['ProtectedNodeIsInAllowedClass hidden: ',FindContextToString(FoundContext)]);
 
     Result:=false;
   end;
@@ -916,6 +917,7 @@ var
                          TAVLTree.Create(TListSortCompare(@CompareIdentifiers))
     end else if FoundPublicProperties.Find(Ident)<>nil then begin
       // identifier is already public
+      exit;
     end;
     FoundPublicProperties.Add(Ident);
     //debugln('SavePublicPublishedProperty Identifier=',GetIdentifier(Ident),' Find=',dbgs(FoundPublicProperties.Find(Ident)<>nil));