From 316a16c5f3337ad23ecdfdd6444c0b72af3f2406 Mon Sep 17 00:00:00 2001 From: graemeg Date: Mon, 27 Aug 2007 12:57:16 +0000 Subject: * Implemented List Mediators with tiOPF support and added a demo. * Added a quick workaround for the InvertCaret function causing a AV. * MenuBar now keeps the current menu focused even if you open more than 2 levels deep of Popup Menus. * Added some TODO entries to Widgets. Also published some missing properties. * Fixed repainting issue with TfpgComobBox when you set the Width from code and made the component focusable. Not sure why it wasn't! * Updated Lazarus IDE code template for new fpGUI applications. --- src/corelib/x11/gfx_x11.pas | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/corelib/x11') diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas index 250ebf7f..aa3b36a9 100644 --- a/src/corelib/x11/gfx_x11.pas +++ b/src/corelib/x11/gfx_x11.pas @@ -1307,6 +1307,14 @@ var pmh: longword; GcValues: TXGcValues; begin + if Assigned(TfpgWindowImpl(awin)) then + begin + // This occurs every now and again with TfpgMemo and InvertCaret painting! + // Investigate this. + if not TfpgWindowImpl(awin).HasHandle then + raise Exception.Create(' Window doesn''t have a Handle'); + end; + XGetGeometry(xapplication.display, TfpgWindowImpl(awin).FWinHandle, @rw, @x, @y, @w, @h, @bw, @d); if FDrawing and buffered and (FBufferPixmap > 0) then -- cgit v1.2.3-70-g09d2