From e25cb27f706c783f507236e54fff88a72af3b157 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 6 Jan 2013 18:58:47 +0000
Subject: [PATCH] LCL: TMenuItem.AddHandler: changed AsLast to AsFirst for
 consistency and implemented it

git-svn-id: trunk@39783 -
---
 lcl/menus.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/menus.pp b/lcl/menus.pp
index 5967bf140b..8c8b8f49a4 100644
--- a/lcl/menus.pp
+++ b/lcl/menus.pp
@@ -249,7 +249,7 @@ type
                                   AsFirst: boolean = false);
     procedure RemoveHandlerOnDestroy(const OnDestroyEvent: TNotifyEvent);
     procedure AddHandler(HandlerType: TMenuItemHandlerType;
-                         const AMethod: TMethod; AsFirst: boolean);
+                         const AMethod: TMethod; AsFirst: boolean = false);
     procedure RemoveHandler(HandlerType: TMenuItemHandlerType;
                             const AMethod: TMethod);
   public