From b85ae0cedb6068b060256c709950afdf474787cb Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 17 May 2009 03:09:09 +0000
Subject: [PATCH] codetools: class completion: do not update abstract methods

git-svn-id: trunk@20003 -
---
 components/codetools/codecompletiontool.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/codetools/codecompletiontool.pas b/components/codetools/codecompletiontool.pas
index 4e8cfbcbd9..ebb978d64c 100644
--- a/components/codetools/codecompletiontool.pas
+++ b/components/codetools/codecompletiontool.pas
@@ -5758,7 +5758,8 @@ var
       while DefAVLNode<>nil do begin
         DefNodeExt:=TCodeTreeNodeExtension(DefAVLNode.Data);
         DefAVLNode:=ClassProcs.FindSuccessor(DefAVLNode);
-        if ProcBodyNodes.Find(DefNodeExt)=nil then begin
+        if (ProcBodyNodes.Find(DefNodeExt)=nil)
+        and (not ProcNodeHasSpecifier(DefNodeExt.Node,psABSTRACT)) then begin
           // move proc definition from ClassProcs to DefsWithoutBodies
           DefsWithoutBodies:=TAVLTree.Create(@CompareCodeTreeNodeExt);
           DefsWithoutBodies.Add(DefNodeExt);