From e6e40fafbf7ab54130c0a474928e70564a24d36b Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 23 Sep 2010 16:19:16 +0200
Subject: DND: clean-up after we are done.

---
 src/corelib/x11/fpg_x11.pas | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/corelib/x11')

diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas
index 1bebb2cf..d776a7e1 100644
--- a/src/corelib/x11/fpg_x11.pas
+++ b/src/corelib/x11/fpg_x11.pas
@@ -3371,6 +3371,9 @@ end;
 destructor TfpgX11Drag.Destroy;
 begin
   FSource.MouseCursor := mcDefault;
+  XDeleteProperty(xapplication.Display, FSource.WinHandle, xapplication.XdndAware);
+  XDeleteProperty(xapplication.Display, FSource.WinHandle, xapplication.XdndTypeList);
+  SetLength(FMimeTypesArray, 0);
   inherited Destroy;
 end;
 
-- 
cgit v1.2.3-70-g09d2