From 3d9c73bf021bcd0290f678d250099512c493e2d1 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Tue, 15 Sep 2009 21:21:42 +0000
Subject: [PATCH] carbon: Implements TTrayIcon menu item enabled/disabled

git-svn-id: trunk@21717 -
---
 lcl/interfaces/carbon/carbontrayicon.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/interfaces/carbon/carbontrayicon.inc b/lcl/interfaces/carbon/carbontrayicon.inc
index b8e65e568d..a4ec17e23e 100644
--- a/lcl/interfaces/carbon/carbontrayicon.inc
+++ b/lcl/interfaces/carbon/carbontrayicon.inc
@@ -140,6 +140,7 @@ begin
   Result := NSMenu.initWithTitle(EmptyMenuTitle);
 //  Result.setVersion(0);
   Result.setDelegate(Self.Handle);
+  Result.setAutoenablesItems(LongBool(NO)); // For menu enabling/disabling
 
   for i := 0 to APopUpMenu.Items.Count - 1 do
   begin
@@ -166,6 +167,7 @@ begin
 
   // Then a owner for the children
   InternalOwner := NSMenu.initWithTitle(EmptyMenuTitle);
+  InternalOwner.setAutoenablesItems(LongBool(NO)); // For menu enabling/disabling
 
   subindex := Length(SubMenuOwners);
   SetLength(SubMenuOwners, subindex + 1);