paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: fixing random crashes when the application doesn't have a keyWindow

Browse Source 
git-svn-id: trunk@61410 -
This commit is contained in:
dmitry 2019-06-17 19:16:04 +00:00
parent 900910e4c4
commit 38d6d9c018
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoaint.pas
View File

@ -501,7 +501,7 @@ begin
begin
try
if win.isKindOfClass_(TCocoaWindow) then begin
wnd := TCocoaWindow(self.keyWindow);
wnd := TCocoaWindow(win);
wnd._keyEvCallback := cb;
wnd._calledKeyEvAfter := False;
end