X11: extra failsafe before posting FPGM_RESIZE event.

1 files changed, 8 insertions, 5 deletions

diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas
index a5fb68e0..837b2d34 100644
--- a/src/corelib/x11/fpg_x11.pas
+++ b/src/corelib/x11/fpg_x11.pas
@@ -1906,11 +1906,14 @@ begin
           { X11 is too efficient, so new windows don't need a OnResize when mapped,
             but because Windows GDI does so, we want the same events under X11.
             Lets fake one. }
-          msgp.rect.Left   := w.Left;
-          msgp.rect.Top    := w.Top;
-          msgp.rect.Width  := w.Width;
-          msgp.rect.Height := w.Height;
-          fpgPostMessage(nil, w, FPGM_RESIZE, msgp);
+          if w <> nil then
+          begin
+            msgp.rect.Left   := w.Left;
+            msgp.rect.Top    := w.Top;
+            msgp.rect.Width  := w.Width;
+            msgp.rect.Height := w.Height;
+            fpgPostMessage(nil, w, FPGM_RESIZE, msgp);
+          end;
         end;
 
     X.UnmapNotify: