From f06e1e33c935c2ff2a3bdee3282ceb758f77c74d Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Sat, 2 Nov 2019 23:57:26 +0000
Subject: [PATCH] cocoa: adding support for close event of a filedialog

git-svn-id: trunk@62160 -
---
 lcl/interfaces/cocoa/cocoawsdialogs.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/interfaces/cocoa/cocoawsdialogs.pas b/lcl/interfaces/cocoa/cocoawsdialogs.pas
index 3ddfc38164..82c3165b94 100644
--- a/lcl/interfaces/cocoa/cocoawsdialogs.pas
+++ b/lcl/interfaces/cocoa/cocoawsdialogs.pas
@@ -440,6 +440,7 @@ begin
     if lFilter <> nil then
       FileDialog.FilterIndex := lFilter.lastSelectedItemIndex+1;
   end;
+  FileDialog.DoClose;
 
 
   // release everything