From 38d6d9c0187da10cdfe046c44fc89865f99fa6ef Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Mon, 17 Jun 2019 19:16:04 +0000
Subject: [PATCH] cocoa: fixing random crashes when the application doesn't
 have a keyWindow

git-svn-id: trunk@61410 -
---
 lcl/interfaces/cocoa/cocoaint.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/cocoa/cocoaint.pas b/lcl/interfaces/cocoa/cocoaint.pas
index 53bec2fe0a..adce1f2b17 100644
--- a/lcl/interfaces/cocoa/cocoaint.pas
+++ b/lcl/interfaces/cocoa/cocoaint.pas
@@ -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