freepascal.compiler/packages/x11/src/xlbx.pp

(*
 * Copyright 1992 Network Computing Devices
 *
 * Permission to use, copy, modify, distribute, and sell this software and its
 * documentation for any purpose is hereby granted without fee, provided that
 * the above copyright notice appear in all copies and that both that
 * copyright notice and this permission notice appear in supporting
 * documentation, and that the name of NCD. not be used in advertising or
 * publicity pertaining to distribution of the software without specific,
 * written prior permission.  NCD. makes no representations about the
 * suitability of this software for any purpose.  It is provided "as is"
 * without express or implied warranty.
 *
 * NCD. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL NCD.
 * BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
 * OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
 * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 *
 *)

{$IFNDEF FPC_DOTTEDUNITS}
unit xlbx;
{$ENDIF FPC_DOTTEDUNITS}

interface

{$IFDEF FPC_DOTTEDUNITS}
uses
  System.CTypes, Api.X11.Xlib;
{$ELSE FPC_DOTTEDUNITS}
uses
  ctypes, xlib;
{$ENDIF FPC_DOTTEDUNITS}

const
  libXext = 'Xext';

{$I lbx.inc}

function XLbxQueryExtension(
    dpy: PDisplay;
    requestp,
    event_basep,
    error_basep: Pcint
): TBoolResult; cdecl; external libXext;

function XLbxQueryVersion(
    dpy: PDisplay;
    majorVersion,
    minorVersion: Pcint
): TBoolResult; cdecl; external libXext;

function XLbxGetEventBase(dpy: PDisplay): cint; cdecl; external libXext;

implementation
end.