summaryrefslogtreecommitdiff
path: root/src/corelib/x11
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2012-10-25 15:40:04 +0100
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2012-10-25 15:40:04 +0100
commit3093cb581763e272c88cb278cbdebfc64740cb1f (patch)
tree071d3acdd162e04a7b745a5c35bb08c28505c2bb /src/corelib/x11
parentc946ff5b0d593ace2c00a04725137646232cdffa (diff)
downloadfpGUI-3093cb581763e272c88cb278cbdebfc64740cb1f.tar.xz
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.
Diffstat (limited to 'src/corelib/x11')
-rw-r--r--src/corelib/x11/fpg_x11.pas2
1 files changed, 2 insertions, 0 deletions
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;