From b58493f7628fa342dbafcc59d0a6b83a3a826297 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 4 Dec 2016 18:42:06 +0000
Subject: [PATCH] IdeIntf: Change event handler name to ActMoveUpDownExecute in
 ActionListEditor.

git-svn-id: trunk@53557 -
---
 components/ideintf/actionseditor.lfm | 8 ++++----
 components/ideintf/actionseditor.pas | 4 ++--
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/components/ideintf/actionseditor.lfm b/components/ideintf/actionseditor.lfm
index 5cf7e76622..ef0d8bb737 100644
--- a/components/ideintf/actionseditor.lfm
+++ b/components/ideintf/actionseditor.lfm
@@ -154,13 +154,13 @@ object ActionListEditor: TActionListEditor
     end
     object ActMoveUp: TAction
       Category = 'MoveUpDown'
-      OnExecute = ActMoveDownExecute
+      OnExecute = ActMoveUpDownExecute
       OnUpdate = ActMoveUpUpdate
       ShortCut = 16422
     end
     object ActMoveDown: TAction
       Category = 'MoveUpDown'
-      OnExecute = ActMoveDownExecute
+      OnExecute = ActMoveUpDownExecute
       OnUpdate = ActMoveDownUpdate
       ShortCut = 16424
     end
@@ -197,12 +197,12 @@ object ActionListEditor: TActionListEditor
     object mItemActListMoveUpAction: TMenuItem
       Action = ActMoveUp
       Caption = 'Move Up'
-      OnClick = ActMoveDownExecute
+      OnClick = ActMoveUpDownExecute
     end
     object mItemActListMoveDownAction: TMenuItem
       Action = ActMoveDown
       Caption = 'Move Down'
-      OnClick = ActMoveDownExecute
+      OnClick = ActMoveUpDownExecute
     end
     object MenuItem6: TMenuItem
       Caption = '-'
diff --git a/components/ideintf/actionseditor.pas b/components/ideintf/actionseditor.pas
index 48886a193e..9289ef3430 100644
--- a/components/ideintf/actionseditor.pas
+++ b/components/ideintf/actionseditor.pas
@@ -112,7 +112,7 @@ type
     btnDown: TToolButton;
     procedure ActDeleteExecute(Sender: TObject);
     procedure ActDeleteUpdate(Sender: TObject);
-    procedure ActMoveDownExecute(Sender: TObject);
+    procedure ActMoveUpDownExecute(Sender: TObject);
     procedure ActMoveDownUpdate(Sender: TObject);
     procedure ActMoveUpUpdate(Sender: TObject);
     procedure ActNewExecute(Sender: TObject);
@@ -659,7 +659,7 @@ begin
   TAction(Sender).Enabled := lstActionName.SelCount > 0;
 end;
 
-procedure TActionListEditor.ActMoveDownExecute(Sender: TObject);
+procedure TActionListEditor.ActMoveUpDownExecute(Sender: TObject);
 var
   fact0,fAct1: TContainedAction;
   lboxIndex: Integer;