lazarus-ccr/bindings/gtk3/xlib2.pas

unit xlib2;

{$MODE OBJFPC}{$H+}

{$PACKRECORDS C}
{$BITPACKING ON}
{$MODESWITCH DUPLICATELOCALS+}

interface
uses
  CTypes;

const
  xlib2_library = '';

type

  PPAtom = ^PAtom;
  PAtom = ^TAtom;
  TAtom = culong;

  PPColormap = ^PColormap;
  PColormap = ^TColormap;
  TColormap = culong;

  PPCursor = ^PCursor;
  PCursor = ^TCursor;
  TCursor = culong;

  PPDisplay = ^PDisplay;
  PDisplay = ^TDisplay;

  TDisplay = record
    Unknown: Pointer;
  end;



  PPDrawable = ^PDrawable;
  PDrawable = ^TDrawable;
  TDrawable = culong;

  PPGC = ^PGC;
  PGC = ^TGC;
  TGC = pointer;

  PPKeyCode = ^PKeyCode;
  PKeyCode = ^TKeyCode;
  TKeyCode = cuint8;

  PPKeySym = ^PKeySym;
  PKeySym = ^TKeySym;
  TKeySym = culong;

  PPPicture = ^PPicture;
  PPicture = ^TPicture;
  TPicture = culong;

  PPScreen = ^PScreen;
  PScreen = ^TScreen;

  TScreen = record
    Unknown: Pointer;
  end;



  PPime = ^Pime;
  Pime = ^Time;
  Time = culong;

  PPVisual = ^PVisual;
  PVisual = ^TVisual;

  TVisual = record
    Unknown: Pointer;
  end;



  PPVisualID = ^PVisualID;
  PVisualID = ^TVisualID;
  TVisualID = culong;

  PPWindow = ^PWindow;
  PWindow = ^TWindow;
  TWindow = culong;
  TXEvent = record
  end;



  PPXConfigureEvent = ^PXConfigureEvent;
  PXConfigureEvent = ^TXConfigureEvent;

  TXConfigureEvent = record
    Unknown: Pointer;
  end;



  PPXID = ^PXID;
  PXID = ^TXID;
  TXID = culong;

  PPPixmap = ^PPixmap;
  PPixmap = ^TPixmap;
  TPixmap = culong;

  PPXImage = ^PXImage;
  PXImage = ^TXImage;

  TXImage = record
    Unknown: Pointer;
  end;



  PPXFontStruct = ^PXFontStruct;
  PXFontStruct = ^TXFontStruct;

  TXFontStruct = record
    Unknown: Pointer;
  end;



  PPXTrapezoid = ^PXTrapezoid;
  PXTrapezoid = ^TXTrapezoid;

  TXTrapezoid = record
    Unknown: Pointer;
  end;



  PPXVisualInfo = ^PXVisualInfo;
  PXVisualInfo = ^TXVisualInfo;

  TXVisualInfo = record
    Unknown: Pointer;
  end;



  PPXWindowAttributes = ^PXWindowAttributes;
  PXWindowAttributes = ^TXWindowAttributes;

  TXWindowAttributes = record
    Unknown: Pointer;
  end;



  { void }
  Tvoid = record
    { opaque type }
    Unknown: Pointer;
  end;


procedure XOpenDisplay; cdecl; external;
implementation
end.