paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-21 22:48:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: Patch for bug #30372: Drag and drop on app icon does not work with Cocoa widget set

Browse Source 
git-svn-id: trunk@53850 -
This commit is contained in:
sekelsenmat 2017-01-03 06:19:42 +00:00
parent f9a5f928c7
commit ffc1493b4a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoaobject.inc
View File

@ -630,6 +630,8 @@ begin
lFiles[i] := NSStringToString(lNSStr); lFiles[i] := NSStringToString(lNSStr);
end; end;
Application.IntfDropFiles(lFiles); Application.IntfDropFiles(lFiles);
if Application.MainForm<>nil then
Application.MainForm.IntfDropFiles(lFiles);
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------