From 2a4b6678f2f32c66a905d4d9b06ac71b0e82dc43 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Tue, 30 Jan 2007 15:29:55 +0000
Subject: [PATCH] IDE: fixed warning about abstract creating a class with
 abstract methods.

git-svn-id: trunk@10539 -
---
 ide/keymapping.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ide/keymapping.pp b/ide/keymapping.pp
index 50a5b7aef6..369f45231a 100644
--- a/ide/keymapping.pp
+++ b/ide/keymapping.pp
@@ -79,7 +79,6 @@ type
     fRelations: TList; // list of TKeyCommandRelation, sorted with Command
     fCategories: TList;// list of TKeyCommandCategory
     fExtToolCount: integer;
-    function GetCategory(Index: integer): TIDECommandCategory; override;
     function GetRelation(Index: integer): TKeyCommandRelation;
     function GetRelationCount: integer;
     function AddCategory(const Name, Description: string;
@@ -94,6 +93,8 @@ type
                         const Name, LocalizedName: string;
                         Command: word):integer;
     procedure SetExtToolCount(NewCount: integer);
+  protected
+    function GetCategory(Index: integer): TIDECommandCategory; override;
   public
     constructor Create;
     destructor Destroy; override;