Commit 106dc546 authored by Željan Rikalo's avatar Željan Rikalo 🏊🏼
Browse files

Carbon: trigger assigned action from trayicon popupmenu.Patch by Anton Kavalenka. issue #23399

git-svn-id: trunk@48527 -
parent 21e4c401
......@@ -426,7 +426,7 @@ var
begin
AMenuItem := NSMenuItem.CreateWithHandle(lobjc.id(_cmd));
LCLMenu := TMenuItem(PtrInt(AMenuItem.Tag()));
if (LCLMenu <> nil) and Assigned(LCLMenu.OnClick) then LCLMenu.OnClick(LCLMenu);
if (LCLMenu <> nil) then LCLMenu.Click;
end;
class procedure TPrivateCocoaCarbonTrayIcon.HandleMenuWillOpen(_self: lobjc.id;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment