From f0cabaa74f8376c12545208aa79aabca83cfd3c5 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 6 Nov 2011 14:42:50 +0000
Subject: [PATCH] IDE: remove obsolete TKeyCommandRelation.SetShortcutA

git-svn-id: trunk@33376 -
---
 ide/keymapping.pp | 21 ---------------------
 1 file changed, 21 deletions(-)

diff --git a/ide/keymapping.pp b/ide/keymapping.pp
index 382bc1c89e..fa068eed9c 100644
--- a/ide/keymapping.pp
+++ b/ide/keymapping.pp
@@ -74,8 +74,6 @@ type
 
   TKeyCommandRelation = class(TIDECommand)
   private
-    procedure SetShortcutA(const AValue: TIDEShortCut); override;
-    procedure SetShortcutB(const AValue: TIDEShortCut); override;
     procedure SetSingle(NewKeyA: word; NewShiftA: TShiftState;
                         NewKeyB: word; NewShiftB: TShiftState);
     procedure SetSingle(NewKeyA: word; NewShiftA: TShiftState);
@@ -764,25 +762,6 @@ end;
 
 { TKeyCommandRelation }
 
-procedure TKeyCommandRelation.SetShortcutA(const AValue: TIDEShortCut);
-begin
-  inherited SetShortcutA(AValue);
-  {if Command=12000 then begin
-    debugln('TKeyCommandRelation.SetShortcutA ',KeyAndShiftStateToEditorKeyString(ShortcutA),' ',KeyAndShiftStateToEditorKeyString(ShortcutB));
-    if AValue.Key1=VK_UNKNOWN then
-      RaiseGDBException('');
-  end;}
-end;
-
-procedure TKeyCommandRelation.SetShortcutB(const AValue: TIDEShortCut);
-begin
-  inherited SetShortcutB(AValue);
-  {if Command=ecBlockIndent then begin
-    debugln('TKeyCommandRelation.SetShortcutB ',KeyAndShiftStateToEditorKeyString(ShortcutA),' ',KeyAndShiftStateToEditorKeyString(ShortcutB));
-    if ShortcutB.Key2=VK_UNKNOWN then
-      RaiseGDBException('');
-  end;}
-end;
 procedure TKeyCommandRelation.SetSingle(NewKeyA: word; NewShiftA: TShiftState;
                                         NewKeyB: word; NewShiftB: TShiftState);
 begin