From 3093cb581763e272c88cb278cbdebfc64740cb1f Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 25 Oct 2012 15:40:04 +0100
Subject: Adds missing clearing of record structure before use.

The XLib man pages clearly state that  the TXEvent structure must be cleared to 0 values
before use.
---
 src/corelib/x11/fpg_x11.pas | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/corelib/x11')

diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas
index 39eaffe7..4211dd19 100644
--- a/src/corelib/x11/fpg_x11.pas
+++ b/src/corelib/x11/fpg_x11.pas
@@ -3547,6 +3547,8 @@ var
 begin
   if FDropAccepted then
   begin
+    FillChar(xev, SizeOf(TXEvent), 0);
+
     xev.xany._type      := X.ClientMessage;
     xev.xany.display    := xapplication.Display;
     xev.xclient.window  := FLastTarget;
-- 
cgit v1.2.3-70-g09d2