From 7780afbc23cb1786f0d85f2eccbd5c4962a5e525 Mon Sep 17 00:00:00 2001 From: juha Date: Wed, 19 Apr 2017 11:55:18 +0000 Subject: [PATCH] =?UTF-8?q?LCL-Cocoa:=20Insert=20menu=20items=20at=20corre?= =?UTF-8?q?ct=20location.=20Issue=20#30827,=20patch=20from=20Zo=C3=AB=20Pe?= =?UTF-8?q?terson.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: trunk@54644 - --- lcl/interfaces/cocoa/cocoawsmenus.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lcl/interfaces/cocoa/cocoawsmenus.pas b/lcl/interfaces/cocoa/cocoawsmenus.pas index ab8b09c8b0..e11869a07d 100644 --- a/lcl/interfaces/cocoa/cocoawsmenus.pas +++ b/lcl/interfaces/cocoa/cocoawsmenus.pas @@ -387,7 +387,7 @@ begin Exit; item:=NSMenuItem(AMenuItem.Handle); - Parent.insertItem_atIndex(item, Parent.itemArray.count); + Parent.insertItem_atIndex(item, AMenuItem.MenuVisibleIndex); end; {------------------------------------------------------------------------------