From 31bf30fb5812a8913bcd2463b53a27689bc90edd Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Thu, 30 Dec 2010 15:46:21 +0200
Subject: X11: Correctly implemented the handling of X11's GraphicsExpose
 event.

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

(limited to 'src/corelib')

diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas
index 0a432335..8c7350d7 100644
--- a/src/corelib/x11/fpg_x11.pas
+++ b/src/corelib/x11/fpg_x11.pas
@@ -1743,6 +1743,17 @@ begin
           end;
         end;
 
+    X.GraphicsExpose:
+        begin
+          repeat
+            //
+          until not XCheckTypedWindowEvent(display, ev.xexpose.window, X.GraphicsExpose, @ev);
+          if ev.xgraphicsexpose.count = 0 then
+          begin
+            fpgPostMessage(nil, FindWindowByHandle(ev.xgraphicsexpose.drawable), FPGM_PAINT);
+          end;
+        end;
+
     X.MotionNotify:
         begin
           repeat
@@ -2008,7 +2019,6 @@ begin
             RemoveWindowLookup(TfpgX11Window(w));
         end;
 
-    X.GraphicsExpose,
     X.NoExpose:
         begin
           // writeln('got a GraphicsExpose or NoExpose event');
-- 
cgit v1.2.3-70-g09d2