[fpc-pascal]RE: XTest extension for fpc

[Jeff Pohlmeyer]

> Has anyone translated the XTest xtension of XFree86 to pascal yet?

I think it would look something like this:

unit XTest;

interface

uses x, xlib;

const
  X_XTestGetVersion = 0;
  X_XTestCompareCursor = 1;
  X_XTestFakeInput = 2;
  X_XTestGrabControl = 3;
  XTestNumberEvents = 0;
  XTestNumberErrors = 0;
  XTestMajorVersion = 2;
  XTestMinorVersion = 2;
  XTestExtensionName = 'XTEST';

type 
  Bool =LongInt;

  TXInputClassInfo = record
    input_class : byte;
    event_type_base : byte;
  end;
  PXInputClassInfo = ^TXInputClassInfo;

  TXDevice = record
    device_id : TXID;
    num_classes : longint;
    classes : PXInputClassInfo;
  end;
  PXDevice = ^TXDevice; 

function XTestQueryExtension(dpy:PDisplay; event_basep:Plongint; error_basep:Plongint;
  majorp:Plongint; minorp:Plongint):Bool;cdecl;external;

function XTestCompareCursorWithWindow(dpy:PDisplay; window:TWindow;
  cursor:TCursor):Bool;cdecl;external;

function XTestCompareCurrentCursorWithWindow(dpy:PDisplay;
  win:TWindow):Bool;cdecl;external;

function XTestFakeKeyEvent(dpy:PDisplay; keycode:dword; is_press:Bool;
  delay:dword):longint;cdecl;external;

function XTestFakeButtonEvent(dpy:PDisplay; button:dword; is_press:Bool;
  delay:dword):longint;cdecl;external;

function XTestFakeMotionEvent(dpy:PDisplay; screen:longint; x:longint; y:longint;
  delay:dword):longint;cdecl;external;

function XTestFakeRelativeMotionEvent(dpy:PDisplay; x:longint; y:longint;
  delay:dword):longint;cdecl;external;

function XTestFakeDeviceKeyEvent(dpy:PDisplay; dev:PXDevice; keycode:dword;
  is_press:Bool; axes:Plongint; n_axes:longint; delay:dword):longint;cdecl;external;

function XTestFakeDeviceButtonEvent(dpy:PDisplay; dev:PXDevice; button:dword;
  is_press:Bool; axes:Plongint; n_axes:longint; delay:dword):longint;cdecl;external;

function XTestFakeProximityEvent(dpy:PDisplay; dev:PXDevice;in_prox :Bool; axes:Plongint;
  n_axes:longint; delay :dword):longint;cdecl;external;

function XTestFakeDeviceMotionEvent(dpy:PDisplay; dev:PXDevice; is_relative:Bool;
  first_axis:longint; axes:Plongint; n_axes :longint; delay:dword):longint;cdecl;external;

function XTestGrabControl(dpy:PDisplay; impervious:Bool):longint;cdecl;external;
procedure XTestSetGContextOfGC(gc:TGC; gid:TGContext);cdecl;external;
procedure XTestSetVisualIDOfVisual(visual:PVisual; visualid:TVisualID);cdecl;external;
function XTestDiscard(dpy:PDisplay):TStatus;cdecl;external;

implementation 
end.

( compiles, but not tested )

 - Jeff



__________________________________
Do you Yahoo!?
Yahoo! Mail - More reliable, more storage, less spam
http://mail.yahoo.com