anchor.diff:    dglOpenGL,
     {$IFDEF FPC} GL, LCLIntf, {$ENDIF}
     {$IFDEF MSWindows} Windows, {$ENDIF}
  -  {$IFDEF Unix} LCLType, glx, {$ENDIF}
  +  {$IFDEF Unix} LCLType, glx, x, xlib, xutil, {$ENDIF}
     SysUtils, Forms, KromUtils;
   
   {$IFDEF Unix}
  
positive.code: 
    if not SetDCPixelFormat(h_DC, PixelFormat) then
      exit;
   {$IFDEF MSWINDOWS}
    h_RC := wglCreateContext(h_DC);
   {$ENDIF}
    if h_RC = 0 then
    begin
      MessageBox(HWND(nil), 'Unable to create an OpenGL rendering context', 'Error', MB_OK or MB_ICONERROR);
      exit;
    end;
   {$IFDEF MSWINDOWS}
    if not wglMakeCurrent(h_DC, h_RC) then
    {$ENDIF}
    begin
      MessageBox(HWND(nil), 'Unable to activate OpenGL rendering context', 'Error', MB_OK or MB_ICONERROR);
      exit;
    end;
  end;
  
  
  
negative.code: 
  
  procedure SetContexts(RenderFrame:HWND; PixelFormat:integer; out h_DC: HDC; out h_RC: HGLRC);
  {$IFDEF MSWINDOWS}
  begin
    h_DC := GetDC(RenderFrame);
  
  