agg: New "friend" class so we can get access to a protect property WinHandle

1 files changed, 5 insertions, 4 deletions

diff --git a/src/corelib/render/software/agg_platform_x11.inc b/src/corelib/render/software/agg_platform_x11.inc
index 38f31b11..880dde06 100644
--- a/src/corelib/render/software/agg_platform_x11.inc
+++ b/src/corelib/render/software/agg_platform_x11.inc
@@ -31,7 +31,8 @@ type
   // to get access to protected methods
   TX11AppHack = class(TfpgApplication);
   TX11ImageHack = class(TfpgImage);
-
+  TX11WindowHack = class(TfpgWindow);
+  
 procedure TAgg2D.DoSetFontRes(fntres: TfpgFontResourceBase);
 begin
   Font('/usr/share/fonts/truetype/ttf-liberation/LiberationSans-Regular.ttf', 13);
@@ -207,17 +208,17 @@ var
   drawgc: Tgc;
   GcValues: TXGcValues;
 begin
-  if TfpgX11Window(FWindow).WinHandle <= 0 then
+  if TX11WindowHack(FWindow).WinHandle <= 0 then
   begin
     writeln('    no winhandle available');
     exit;
   end;
 
   FImg.UpdateImage;
-  drawgc := XCreateGc(fpgApplication.Display, TfpgX11Window(FWindow).WinHandle, 0, @GcValues);
+  drawgc := XCreateGc(fpgApplication.Display, TX11WindowHack(FWindow).WinHandle, 0, @GcValues);
 
   // finally dump the image to screen!
-  XPutImage(fpgApplication.Display, TfpgX11Window(FWindow).WinHandle,
+  XPutImage(fpgApplication.Display, TX11WindowHack(FWindow).WinHandle,
       drawgc, TX11ImageHack(FImg).XImage, 0, 0, 0, 0,
       FWindow.Width, FWindow.Height);