(* * 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.