X11: Correctly implemented the handling of X11's GraphicsExpose event.

1 files changed, 11 insertions, 1 deletions

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');