* cleanup, removed warnings

  * external decls moved from implementation to interface

packages/x11/Makefile

@@ -1,5 +1,5 @@
 #
-# Makefile generated by fpcmake v0.99.13 [2000/02/09]
+# Makefile generated by fpcmake v0.99.13 [2000/02/24]
 #
 
 defaultrule: all
@@ -184,7 +184,7 @@ endif
 
 # Targets
 
-override UNITOBJECTS+=x xresource xlib xutil
+override UNITOBJECTS+=x xlib xutil xresource
 
 # Clean
 

packages/x11/Makefile.fpc

@@ -3,7 +3,7 @@
 #
 
 [targets]
-units=x xresource xlib xutil
+units=x xlib xutil xresource
 
 [dirs]
 fpcdir=../..

packages/x11/x.pp

@@ -10,18 +10,18 @@ unit x;
        X_PROTOCOL = 11;
 
        X_PROTOCOL_REVISION = 0;
-    
+
 
     type
     { Inserted the following by hand. It was under a ifndef _XSERVER64. All
       were unsigned longs originally
-      -- MVC. } 
-	TXID = cardinal ;
-	TMask = cardinal ;
-	TAtom = cardinal ;
-	TVisualID = cardinal ;
-	TTime = cardinal ;
-	{ End of insert }
+      -- MVC. }
+        TXID = cardinal ;
+        TMask = cardinal ;
+        TAtom = cardinal ;
+        TVisualID = cardinal ;
+        TTime = cardinal ;
+        { End of insert }
        TWindow = TXID;
        TDrawable = TXID;
        TFont = TXID;
@@ -33,13 +33,13 @@ unit x;
        TKeyCode = char;
        PKeyCode = ^TKeyCode;
        { Pointers to all these things. Needed for C calls. MVC }
-       PAtom = ^TAtom; 
+       PAtom = ^TAtom;
        PPAtom = ^PAtom;
        PWindow = ^TWindow;
        PColormap = ^TColormap;
        PKeySym = ^TKeysym;
        PPixmap = ^TPixmap;
-       
+
     {*****************************************************************
      * RESERVED RESOURCE AND CONSTANT DEFINITIONS
      *****************************************************************}
@@ -48,12 +48,12 @@ unit x;
     const
        None = 0;
     {* background pixmap in CreateWindow
-    				    and ChangeWindowAttributes *}
+                                    and ChangeWindowAttributes *}
        ParentRelative = 1;
     {* border pixmap in CreateWindow
-    				       and ChangeWindowAttributes
-    				   special VisualID and special window
-    				       class passed to CreateWindow *}
+                                       and ChangeWindowAttributes
+                                   special VisualID and special window
+                                       class passed to CreateWindow *}
        CopyFromParent = 0;
     {* destination window in SendEvent *}
        PointerWindow = 0;
@@ -72,8 +72,8 @@ unit x;
     {* special Time *}
        CurrentTime = 0;
     {* special KeySym *}
-    {***************************************************************** 
-     * EVENT DEFINITIONS 
+    {*****************************************************************
+     * EVENT DEFINITIONS
      *****************************************************************}
     {* Input Event Masks. Used as event-mask window attribute and as arguments
        to Grab requests.  Not to be confused with event names.  *}
@@ -233,7 +233,7 @@ unit x;
     {* Used in SetInputFocus, GetInputFocus *}
        SyncBoth = 7;
     {*****************************************************************
-     * ERROR CODES 
+     * ERROR CODES
      *****************************************************************}
        RevertToParent = 2;
     {* everything's okay *}
@@ -257,14 +257,14 @@ unit x;
     {* parameter not a Pixmap or Window *}
        BadDrawable = 9;
     {* depending on context:
-    				 - key/button already grabbed
-    				 - attempt to free an illegal 
-    				   cmap entry 
-    				- attempt to store into a read-only 
-    				   color map entry.
-     				- attempt to modify the access control
-    				   list from other than the local host.
-    				*}
+                                 - key/button already grabbed
+                                 - attempt to free an illegal
+                                   cmap entry
+                                - attempt to store into a read-only
+                                   color map entry.
+                                - attempt to modify the access control
+                                   list from other than the local host.
+                                *}
        BadAccess = 10;
     {* insufficient resources *}
        BadAlloc = 11;
@@ -282,7 +282,7 @@ unit x;
        BadImplementation = 17;
        FirstExtensionError = 128;
     {*****************************************************************
-     * WINDOW DEFINITIONS 
+     * WINDOW DEFINITIONS
      *****************************************************************}
     {* Window classes used by CreateWindow *}
     {* Note that CopyFromParent is already defined as 0 above *}
@@ -463,14 +463,14 @@ unit x;
        GCDashList = (1) shl (21);
        GCArcMode = (1) shl (22);
     {*****************************************************************
-     * FONTS 
+     * FONTS
      *****************************************************************}
     {* used in QueryFont -- draw direction *}
        GCLastBit = 22;
        FontLeftToRight = 0;
        FontRightToLeft = 1;
     {*****************************************************************
-     *  IMAGING 
+     *  IMAGING
      *****************************************************************}
     {* ImageFormat -- PutImage, GetImage *}
        FontChange = 255;
@@ -480,7 +480,7 @@ unit x;
        XYPixmap = 1;
     {* depth == drawable depth *}
     {*****************************************************************
-     *  COLOR MAP STUFF 
+     *  COLOR MAP STUFF
      *****************************************************************}
     {* For CreateColormap *}
        ZPixmap = 2;
@@ -501,7 +501,7 @@ unit x;
     {* size tiled fastest *}
        TileShape = 1;
     {* size stippled fastest *}
-    {***************************************************************** 
+    {*****************************************************************
      * KEYBOARD/POINTER STUFF
      *****************************************************************}
        StippleShape = 2;
@@ -525,7 +525,7 @@ unit x;
        MappingModifier = 0;
        MappingKeyboard = 1;
     {*****************************************************************
-     * SCREEN SAVER STUFF 
+     * SCREEN SAVER STUFF
      *****************************************************************}
        MappingPointer = 2;
        DontPreferBlanking = 0;
@@ -547,7 +547,7 @@ unit x;
     {* for ChangeAccessControl *}
        HostDelete = 1;
        EnableAccess = 1;
-    {* Display classes  used in opening the connection 
+    {* Display classes  used in opening the connection
      * Note that the statically allocated ones are even numbered and the
      * dynamically changeable ones are odd numbered *}
        DisableAccess = 0;

packages/x11/xlib.pp

@@ -1,16 +1,20 @@
-
+{
+  $Id$
+}
 unit xlib;
-  { Changes after conversion from Xlib.h marked MVC -- Michael Van Canneyt
-    Removed many many comments. 
-    Including copyright. should be pasted in again. MVC }
+interface
+
+{ Changes after conversion from Xlib.h marked MVC -- Michael Van Canneyt
+  Removed many many comments.
+  Including copyright. should be pasted in again. MVC }
 
-  interface
+uses X;
 
-uses X; { This is needed MVC.}
+{$LinkLib X11}
 
     type
        TXPointer = ^char;
-       TBool = Longint; 
+       TBool = Longint;
        PBool = ^TBool;
        TStatus = Longint; { Also a choice. MVC }
        { Some pointers : }
@@ -26,90 +30,90 @@ uses X; { This is needed MVC.}
     const
 
 {
- Removed, standard in Pascal - MVC 
+ Removed, standard in Pascal - MVC
        True = 1;
        False = 0;
-}       
-	QueuedAlready = 0;
-	QueuedAfterReading = 1;
+}
+        QueuedAlready = 0;
+        QueuedAfterReading = 1;
 
-    {* !!!!!
-    #define ConnectionNumber(dpy) 	(((_XPrivDisplay)dpy)->fd)
-    #define RootWindow(dpy, scr) 	(ScreenOfDisplay(dpy,scr)->root)
-    #define DefaultScreen(dpy) 	(((_XPrivDisplay)dpy)->default_screen)
-    #define DefaultRootWindow(dpy) 	(ScreenOfDisplay(dpy,DefaultScreen(dpy))->root)
+    { !!!!!
+    #define ConnectionNumber(dpy)       (((_XPrivDisplay)dpy)->fd)
+    #define RootWindow(dpy, scr)        (ScreenOfDisplay(dpy,scr)->root)
+    #define DefaultScreen(dpy)  (((_XPrivDisplay)dpy)->default_screen)
+    #define DefaultRootWindow(dpy)      (ScreenOfDisplay(dpy,DefaultScreen(dpy))->root)
     #define DefaultVisual(dpy, scr) (ScreenOfDisplay(dpy,scr)->root_visual)
-    #define DefaultGC(dpy, scr) 	(ScreenOfDisplay(dpy,scr)->default_gc)
-    #define BlackPixel(dpy, scr) 	(ScreenOfDisplay(dpy,scr)->black_pixel)
-    #define WhitePixel(dpy, scr) 	(ScreenOfDisplay(dpy,scr)->white_pixel)
-    #define AllPlanes 		((unsigned long)~0L)
-    #define QLength(dpy) 		(((_XPrivDisplay)dpy)->qlen)
-    #define DisplayWidth(dpy, scr) 	(ScreenOfDisplay(dpy,scr)->width)
+    #define DefaultGC(dpy, scr)         (ScreenOfDisplay(dpy,scr)->default_gc)
+    #define BlackPixel(dpy, scr)        (ScreenOfDisplay(dpy,scr)->black_pixel)
+    #define WhitePixel(dpy, scr)        (ScreenOfDisplay(dpy,scr)->white_pixel)
+    #define AllPlanes           ((unsigned long)~0L)
+    #define QLength(dpy)                (((_XPrivDisplay)dpy)->qlen)
+    #define DisplayWidth(dpy, scr)      (ScreenOfDisplay(dpy,scr)->width)
     #define DisplayHeight(dpy, scr) (ScreenOfDisplay(dpy,scr)->height)
     #define DisplayWidthMM(dpy, scr)(ScreenOfDisplay(dpy,scr)->mwidth)
     #define DisplayHeightMM(dpy, scr)(ScreenOfDisplay(dpy,scr)->mheight)
     #define DisplayPlanes(dpy, scr) (ScreenOfDisplay(dpy,scr)->root_depth)
-    #define DisplayCells(dpy, scr) 	(DefaultVisual(dpy,scr)->map_entries)
-    #define ScreenCount(dpy) 	(((_XPrivDisplay)dpy)->nscreens)
-    #define ServerVendor(dpy) 	(((_XPrivDisplay)dpy)->vendor)
-    #define ProtocolVersion(dpy) 	(((_XPrivDisplay)dpy)->proto_major_version)
-    #define ProtocolRevision(dpy) 	(((_XPrivDisplay)dpy)->proto_minor_version)
-    #define VendorRelease(dpy) 	(((_XPrivDisplay)dpy)->release)
-    #define DisplayString(dpy) 	(((_XPrivDisplay)dpy)->display_name)
-    #define DefaultDepth(dpy, scr) 	(ScreenOfDisplay(dpy,scr)->root_depth)
+    #define DisplayCells(dpy, scr)      (DefaultVisual(dpy,scr)->map_entries)
+    #define ScreenCount(dpy)    (((_XPrivDisplay)dpy)->nscreens)
+    #define ServerVendor(dpy)   (((_XPrivDisplay)dpy)->vendor)
+    #define ProtocolVersion(dpy)        (((_XPrivDisplay)dpy)->proto_major_version)
+    #define ProtocolRevision(dpy)       (((_XPrivDisplay)dpy)->proto_minor_version)
+    #define VendorRelease(dpy)  (((_XPrivDisplay)dpy)->release)
+    #define DisplayString(dpy)  (((_XPrivDisplay)dpy)->display_name)
+    #define DefaultDepth(dpy, scr)      (ScreenOfDisplay(dpy,scr)->root_depth)
     #define DefaultColormap(dpy, scr)(ScreenOfDisplay(dpy,scr)->cmap)
-    #define BitmapUnit(dpy) 	(((_XPrivDisplay)dpy)->bitmap_unit)
-    #define BitmapBitOrder(dpy) 	(((_XPrivDisplay)dpy)->bitmap_bit_order)
-    #define BitmapPad(dpy) 		(((_XPrivDisplay)dpy)->bitmap_pad)
-    #define ImageByteOrder(dpy) 	(((_XPrivDisplay)dpy)->byte_order)
-    
+    #define BitmapUnit(dpy)     (((_XPrivDisplay)dpy)->bitmap_unit)
+    #define BitmapBitOrder(dpy)         (((_XPrivDisplay)dpy)->bitmap_bit_order)
+    #define BitmapPad(dpy)              (((_XPrivDisplay)dpy)->bitmap_pad)
+    #define ImageByteOrder(dpy)         (((_XPrivDisplay)dpy)->byte_order)
+
     #ifdef CRAY /* unable to get WORD64 without pulling in other symbols
-    #define NextRequest(dpy)	XNextRequest(dpy)
+    #define NextRequest(dpy)    XNextRequest(dpy)
     #else
-    #define NextRequest(dpy)	(((_XPrivDisplay)dpy)->request + 1)
+    #define NextRequest(dpy)    (((_XPrivDisplay)dpy)->request + 1)
     #endif
-    #define LastKnownRequestProcessed(dpy)	(((_XPrivDisplay)dpy)->last_request_read)
-    
+    #define LastKnownRequestProcessed(dpy)      (((_XPrivDisplay)dpy)->last_request_read)
+
     /* macros for screen oriented applications (toolkit)
-    
+
     #define ScreenOfDisplay(dpy, scr)(&((_XPrivDisplay)dpy)->screens[scr])
     #define DefaultScreenOfDisplay(dpy) ScreenOfDisplay(dpy,DefaultScreen(dpy))
-    #define DisplayOfScreen(s)	((s)->display)
-    #define RootWindowOfScreen(s)	((s)->root)
-    #define BlackPixelOfScreen(s)	((s)->black_pixel)
-    #define WhitePixelOfScreen(s)	((s)->white_pixel)
+    #define DisplayOfScreen(s)  ((s)->display)
+    #define RootWindowOfScreen(s)       ((s)->root)
+    #define BlackPixelOfScreen(s)       ((s)->black_pixel)
+    #define WhitePixelOfScreen(s)       ((s)->white_pixel)
     #define DefaultColormapOfScreen(s)((s)->cmap)
-    #define DefaultDepthOfScreen(s)	((s)->root_depth)
-    #define DefaultGCOfScreen(s)	((s)->default_gc)
+    #define DefaultDepthOfScreen(s)     ((s)->root_depth)
+    #define DefaultGCOfScreen(s)        ((s)->default_gc)
     #define DefaultVisualOfScreen(s)((s)->root_visual)
-    #define WidthOfScreen(s)	((s)->width)
-    #define HeightOfScreen(s)	((s)->height)
-    #define WidthMMOfScreen(s)	((s)->mwidth)
-    #define HeightMMOfScreen(s)	((s)->mheight)
-    #define PlanesOfScreen(s)	((s)->root_depth)
-    #define CellsOfScreen(s)	(DefaultVisualOfScreen((s))->map_entries)
-    #define MinCmapsOfScreen(s)	((s)->min_maps)
-    #define MaxCmapsOfScreen(s)	((s)->max_maps)
-    #define DoesSaveUnders(s)	((s)->save_unders)
-    #define DoesBackingStore(s)	((s)->backing_store)
-    #define EventMaskOfScreen(s)	((s)->root_input_mask)
-    *}
-    {*
+    #define WidthOfScreen(s)    ((s)->width)
+    #define HeightOfScreen(s)   ((s)->height)
+    #define WidthMMOfScreen(s)  ((s)->mwidth)
+    #define HeightMMOfScreen(s) ((s)->mheight)
+    #define PlanesOfScreen(s)   ((s)->root_depth)
+    #define CellsOfScreen(s)    (DefaultVisualOfScreen((s))->map_entries)
+    #define MinCmapsOfScreen(s) ((s)->min_maps)
+    #define MaxCmapsOfScreen(s) ((s)->max_maps)
+    #define DoesSaveUnders(s)   ((s)->save_unders)
+    #define DoesBackingStore(s) ((s)->backing_store)
+    #define EventMaskOfScreen(s)        ((s)->root_input_mask)
+    }
+    {
      * Extensions need a way to hang private data on some structures.
-     *}
+     }
        QueuedAfterFlush = 2;
-    {* number returned by XRegisterExtension *}
-    {* next item on list of data for structure *}
-    {*!!!!!
-    	int (*free_private)();	/* called to free private storage *}
-    {* data private to this extension. *}
+    { number returned by XRegisterExtension }
+    { next item on list of data for structure }
+    { !!!!!
+        int (*free_private)();  /* called to free private storage }
+    { data private to this extension. }
 
     type
        { Added this for functions at the end. }
        PCardinal = ^Cardinal;
-                 
+
        PXExtData = ^TXExtData ;
-       PPXExtData = ^PXExtData ; 
+       PPXExtData = ^PXExtData ;
        { Put this in to accomodate for the next in the following record. MVC}
        TXExtData = record
             number : longint;
@@ -123,9 +127,9 @@ uses X; { This is needed MVC.}
             first_error : longint;
          end;
        PXExtCodes = ^TXExtCodes;
-    {*
+    {
      * Data structure for retrieving info about pixmap formats.
-     *}
+     }
        TXPixmapFormatValues = record
             depth : longint;
             bits_per_pixel : longint;
@@ -150,7 +154,7 @@ uses X; { This is needed MVC.}
             ts_y_origin : longint;
             font : TFont;
             subwindow_mode : longint;
-            graphics_exposures : TBool;  
+            graphics_exposures : TBool;
                                  { This was Bool - error in converter ? MVC}
             clip_x_origin : longint;
             clip_y_origin : longint;
@@ -161,14 +165,14 @@ uses X; { This is needed MVC.}
        PXGCValues = ^TXGCValues;
     { The GC got defined as GC = ^record - probably from *struct, so I
       defined a GCrecord. MVC. }
-       TGC = ^TGCrecord;   
+       TGC = ^TGCrecord;
        TGCrecord = record
             ext_data : PXExtData;
             gid : TGContext;
          end;
-    {*
+    {
      * Visual structure; contains information about colormapping possible.
-     *}
+     }
        TVisual = record
             ext_data : PXExtData;
             visualid : TVisualID;
@@ -181,26 +185,26 @@ uses X; { This is needed MVC.}
             map_entries : longint;
          end;
        PVisual = ^TVisual;
-    {*
+    {
      * Depth structure; contains information for each possible depth.
-     *}
+     }
        TDepth = record
             depth : longint;
             nvisuals : longint;
             visuals : PVisual;
          end;
        PDepth=^TDepth;
-    {*
+    {
      * Information about the screen.  The contents of this structure are
      * implementation dependent.  A Screen should be treated as opaque
      * by application code.
-     *}
-    {*
-      struct _XDisplay;  Forward declare before use for C++ 
-    *}
-    { Defined this, needed for the display field in the following. 
+     }
+    {
+      struct _XDisplay;  Forward declare before use for C++
+    }
+    { Defined this, needed for the display field in the following.
       Should be a pointer to the previous _Xdisplay... MVC}
-      p_XDisplay = pointer; 
+      p_XDisplay = pointer;
        TScreen = record
             ext_data : PXExtData;
             display : p_XDisplay;
@@ -224,9 +228,9 @@ uses X; { This is needed MVC.}
             root_input_mask : longint;
          end;
          PScreen = ^TScreen;
-    {*
+    {
      * Format structure; describes ZFormat data the screen will understand.
-     *}
+     }
        TScreenFormat = record
             ext_data : PXExtData;
             depth : longint;
@@ -234,9 +238,9 @@ uses X; { This is needed MVC.}
             scanline_pad : longint;
          end;
        PScreenFormat=^TScreenFormat;
-    {*
+    {
      * Data structure for setting window attributes.
-     *}
+     }
        TXSetWindowAttributes = record
             background_pixmap : TPixmap;
             background_pixel : cardinal;
@@ -282,20 +286,20 @@ uses X; { This is needed MVC.}
             screen : PScreen;
          end;
        PXWindowAttributes = ^TXWindowAttributes;
-    {*
+    {
      * Data structure for host setting; getting routines.
      *
-     *}
+     }
        TXHostAddress = record
             family : longint;
             length : longint;
             address : pchar;
          end;
        PXHostAddress = ^TXHostAddress ;
-    {*
+    {
      * Data structure for "image" data, used by image manipulation routines.
-     *}
-     { Added the following empty record - needed in Ximage. 
+     }
+     { Added the following empty record - needed in Ximage.
        Fill in later. MVC }
        Funcsrecord = record
           dummy : integer; { Just something stupid }
@@ -320,9 +324,9 @@ uses X; { This is needed MVC.}
             funcs : funcsrecord {Added this. Incorrectly converted}
          end;
       PXImage = ^TXImage;
-    {* 
+    {
      * Data structure for XReconfigureWindow
-     *}
+     }
        TXWindowChanges = record
             x : longint;
             y : longint;
@@ -333,10 +337,10 @@ uses X; { This is needed MVC.}
             stack_mode : longint;
          end;
         PXWindowChanges =  ^TXWindowChanges;
-    {*
+    {
      * Data structure used by color operations
-     *}
-    {* do_red, do_green, do_blue *}
+     }
+    { do_red, do_green, do_blue }
        TXColor = record
             pixel : cardinal;
             red : word;
@@ -346,11 +350,11 @@ uses X; { This is needed MVC.}
             pad : char;
          end;
        PXColor = ^TXColor;
-    {*
+    {
      * Data structures for graphics operations.  On most machines, these are
      * congruent with the wire protocol structures, so reformatting the data
      * can be avoided on these architectures.
-     *}
+     }
        TXSegment = record
             x1 : integer;
             y1 : integer;
@@ -379,8 +383,8 @@ uses X; { This is needed MVC.}
             angle2 : integer;
          end;
        PXarc = ^TXarc;
-    {* Data structure for XChangeKeyboardControl *}
-    {* On, Off, Default *}
+    { Data structure for XChangeKeyboardControl }
+    { On, Off, Default }
        TXKeyboardControl = record
             key_click_percent : longint;
             bell_percent : longint;
@@ -392,7 +396,7 @@ uses X; { This is needed MVC.}
             auto_repeat_mode : longint;
          end;
         PXKeyboardControl = ^TXKeyboardControl;
-    {* Data structure for XGetKeyboardControl *}
+    { Data structure for XGetKeyboardControl }
        TXKeyboardState = record
             key_click_percent : longint;
             bell_percent : longint;
@@ -403,34 +407,34 @@ uses X; { This is needed MVC.}
             auto_repeats : array[0..(32)-1] of char;
          end;
        PXKeyboardState = ^TXKeyboardState;
-    {* Data structure for XGetMotionEvents.  *}
+    { Data structure for XGetMotionEvents.  }
        TXTimeCoord = record
             time : TTime;
             x : integer;
             y : integer;
          end;
        PXTimeCoord = ^TXTimeCoord;
-    {* Data structure for X{Set,Get}ModifierMapping *}
-    {* The server's max # of keys per modifier *}
-    {* An 8 by max_keypermod array of modifiers *}
+    { Data structure for X[Set,Get]ModifierMapping }
+    { The server's max # of keys per modifier }
+    { An 8 by max_keypermod array of modifiers }
        TXModifierKeymap = record
             max_keypermod : longint;
             modifiermap : PKeyCode;
          end;
        PXModifierKeymap = ^TXModifierKeymap;
-    {*
+    {
      * Display datatype maintaining display specific data.
      * The contents of this structure are implementation dependent.
      * A Display should be treated as opaque by application code.
-     *}
+     }
     { I commented the following. It is a complete mess in the XLib.h !!
       MVC
            Display = Display;
-     }
-    {*
-    struct _XPrivate;		/* Forward declare before use for C++
+    }
+    {
+    struct _XPrivate;           /* Forward declare before use for C++
     struct _XrmHashBucketRec;
-    *}
+    }
        TDisplay = record
             ext_data : PXExtData;
             private1 : pointer ; { Should be to a _Xprivate struct. MVC }
@@ -478,10 +482,10 @@ uses X; { This is needed MVC.}
             xdefaults : pchar;
          end;
          PDisplay=^TDisplay;
-    {*
+    {
      * Definitions of specific events.
-     *}
-    { !! Changed all 'type' definitions to 'eventttype' MVC } 
+     }
+    { !! Changed all 'type' definitions to 'eventttype' MVC }
     { !! Changed al display definitions to 'whatdisplay' MVC }
     { !! Idem dito for window,time,property !!}
        TXKeyEvent = record
@@ -542,10 +546,10 @@ uses X; { This is needed MVC.}
             same_screen : TBool;
          end;
        TXPointerMovedEvent = TXMotionEvent;
-    {*
-    	 * NotifyAncestor, NotifyVirtual, NotifyInferior, 
-    	 * NotifyNonlinear,NotifyNonlinearVirtual
-    	 *}
+    {
+         * NotifyAncestor, NotifyVirtual, NotifyInferior,
+         * NotifyNonlinear,NotifyNonlinearVirtual
+         }
        TXCrossingEvent = record
             eventtype : longint;
             serial : cardinal;
@@ -890,12 +894,12 @@ uses X; { This is needed MVC.}
               32 : (pad : array[0..(24)-1] of longint);
          end;
      PXEvent = ^TXEvent;
-    {*!!!!!!
+    { !!!!!!
     #define XAllocID(dpy) ((*((_XPrivDisplay)dpy)->resource_alloc)((dpy)))
-    *}
-    {*
+    }
+    {
      * per character font metric information.
-     *}
+     }
        TXCharStruct = record
             lbearing : integer;
             rbearing : integer;
@@ -938,7 +942,7 @@ uses X; { This is needed MVC.}
             font : TFont;
          end;
        PXTextItem = ^TXTextItem;
-    {* normal 16 bit characters are two bytes *}
+    { normal 16 bit characters are two bytes }
        TXChar2b = record
             byte1 : char;
             byte2 : char;
@@ -966,7 +970,7 @@ uses X; { This is needed MVC.}
          end;
        PXFontSetExtents = ^TXFontSetExtents;
        TXOMProc = Procedure; cdecl;
-       
+
        TXOMrec = record
          dummy : integer;
        end;
@@ -1019,7 +1023,7 @@ uses X; { This is needed MVC.}
          XOMOrientation_TTB_RTL,
          XOMOrientation_Context
          );
-    {* Input Text description *}
+    { Input Text description }
        TXOMOrientation = record
             num_orient : longint;
             orient : ^TXOrientation;
@@ -1267,832 +1271,426 @@ type
   TXConnectionWatchProc = Procedure(_para1 : PDisplay;_para2 : TXPointer;_para3 : longint;_para4 : TBool;_para5 : PXPointer); cdecl;
 
 
-{ Here start the Function definitions in the C header file. MVC } cdecl;
+{ Here start the Function definitions in the C header file. MVC }
 
-Function XLoadQueryFont (para1 : PDisplay; para2 : pchar) : PXFontStruct; cdecl;
-Function XQueryFont(_para1 : PDisplay;_para2 : TXID) : PXFontStruct; cdecl;
-Function XGetMotionEvents(_para1 : PDisplay;_para2 : TWindow;_para3 : TTime;_para4 : TTime;_para5 : Plongint) : PXTimeCoord; cdecl;
-Function XDeleteModifiermapEntry(_para1 : PXModifierKeymap;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint) : PXModifierKeymap; cdecl;
-Function XGetModifierMapping(_para1 : PDisplay) : PXModifierKeymap; cdecl;
-Function XInsertModifiermapEntry(_para1 : PXModifierKeymap;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint) : PXModifierKeymap; cdecl;
-Function XNewModifiermap(_para1 : longint) : PXModifierKeymap; cdecl;
-Function XCreateImage(_para1 : PDisplay;_para2 : PVisual;_para3 : cardinal;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint) : PXImage; cdecl;
-Function XInitImage(_para1 : PXImage) : TStatus; cdecl;
-Function XGetImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint) : PXImage; cdecl;
-Function XGetSubImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : PXImage;_para10 : longint;_para11 : longint) : PXImage; cdecl;
-Function XOpenDisplay(_para1 : pchar) : PDisplay; cdecl;
-Procedure XrmInitialize; cdecl;
-Function XFetchBytes(_para1 : PDisplay;_para2 : Plongint) : pchar; cdecl;
-Function XFetchBuffer(_para1 : PDisplay;_para2 : Plongint;_para3 : longint) : pchar; cdecl;
-Function XGetAtomName(_para1 : PDisplay;_para2 : TAtom) : pchar; cdecl;
-Function XGetAtomNames(_para1 : PDisplay;_para2 : PAtom;_para3 : longint;_para4 : PPChar) : TStatus; cdecl;
-Function XGetDefault(_para1 : PDisplay;_para2 : pchar;_para3 : pchar) : pchar; cdecl;
-Function XDisplayName(_para1 : pchar) : pchar; cdecl;
-Function XKeysymToString(_para1 : TKeySym) : pchar; cdecl;
-Function XSynchronize(_para1 : PDisplay;_para2 : TBool) : longint; cdecl;
+Function XLoadQueryFont (para1 : PDisplay; para2 : pchar) : PXFontStruct; cdecl;external;
+Function XQueryFont(_para1 : PDisplay;_para2 : TXID) : PXFontStruct; cdecl;external;
+Function XGetMotionEvents(_para1 : PDisplay;_para2 : TWindow;_para3 : TTime;_para4 : TTime;_para5 : Plongint) : PXTimeCoord; cdecl;external;
+Function XDeleteModifiermapEntry(_para1 : PXModifierKeymap;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint) : PXModifierKeymap; cdecl;external;
+Function XGetModifierMapping(_para1 : PDisplay) : PXModifierKeymap; cdecl;external;
+Function XInsertModifiermapEntry(_para1 : PXModifierKeymap;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint) : PXModifierKeymap; cdecl;external;
+Function XNewModifiermap(_para1 : longint) : PXModifierKeymap; cdecl;external;
+Function XCreateImage(_para1 : PDisplay;_para2 : PVisual;_para3 : cardinal;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint) : PXImage; cdecl;external;
+Function XInitImage(_para1 : PXImage) : TStatus; cdecl;external;
+Function XGetImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint) : PXImage; cdecl;external;
+Function XGetSubImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : PXImage;_para10 : longint;_para11 : longint) : PXImage; cdecl;external;
+Function XOpenDisplay(_para1 : pchar) : PDisplay; cdecl;external;
+Procedure XrmInitialize; cdecl;external;
+Function XFetchBytes(_para1 : PDisplay;_para2 : Plongint) : pchar; cdecl;external;
+Function XFetchBuffer(_para1 : PDisplay;_para2 : Plongint;_para3 : longint) : pchar; cdecl;external;
+Function XGetAtomName(_para1 : PDisplay;_para2 : TAtom) : pchar; cdecl;external;
+Function XGetAtomNames(_para1 : PDisplay;_para2 : PAtom;_para3 : longint;_para4 : PPChar) : TStatus; cdecl;external;
+Function XGetDefault(_para1 : PDisplay;_para2 : pchar;_para3 : pchar) : pchar; cdecl;external;
+Function XDisplayName(_para1 : pchar) : pchar; cdecl;external;
+Function XKeysymToString(_para1 : TKeySym) : pchar; cdecl;external;
+Function XSynchronize(_para1 : PDisplay;_para2 : TBool) : longint; cdecl;external;
 { WHat to do with this ??? MVC
-Function XSetAfterFunction(_para1 : PDisplay;_para2 : function(_para1 : PDisplay) : longint) : function : longint; cdecl;
+Function XSetAfterFunction(_para1 : PDisplay;_para2 : function(_para1 : PDisplay) : longint) : function : longint; cdecl;external;
 }
-Function XInternAtom(_para1 : PDisplay;_para2 : pchar;_para3 : TBool) : TAtom; cdecl;
-Function XInternAtoms(_para1 : PDisplay;_para2 : PPChar;_para3 : longint;_para4 : TBool;_para5 : PAtom) : TStatus; cdecl;
-Function XCopyColormapAndFree(_para1 : PDisplay;_para2 : TColormap) : TColormap; cdecl;
-Function XCreateColormap(_para1 : PDisplay;_para2 : TWindow;_para3 : PVisual;_para4 : longint) : TColormap; cdecl;
-Function XCreatePixmapCursor(_para1 : PDisplay;_para2 : TPixmap;_para3 : TPixmap;_para4 : PXColor;_para5 : PXColor;_para6 : cardinal;_para7 : cardinal) : TCursor; cdecl;
-Function XCreateGlyphCursor(_para1 : PDisplay;_para2 : TFont;_para3 : TFont;_para4 : cardinal;_para5 : cardinal;_para6 : PXColor;_para7 : PXColor) : TCursor; cdecl;
-Function XCreateFontCursor(_para1 : PDisplay;_para2 : cardinal) : TCursor; cdecl;
-Function XLoadFont(_para1 : PDisplay;_para2 : pchar) : TFont; cdecl;
-Function XCreateGC(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : PXGCValues) : TGC; cdecl;
-Function XGContextFromGC(_para1 : TGC) : TGContext; cdecl;
-Procedure XFlushGC(_para1 : PDisplay;_para2 : TGC); cdecl;
-Function XCreatePixmap(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : cardinal) : TPixmap; cdecl;
-Function XCreateBitmapFromData(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : cardinal;_para5 : cardinal) : TPixmap; cdecl;
-Function XCreatePixmapFromBitmapData(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : cardinal;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : cardinal) : TPixmap; cdecl;
-Function XCreateSimpleWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : cardinal;_para9 : cardinal) : TWindow; cdecl;
-Function XGetSelectionOwner(_para1 : PDisplay;_para2 : TAtom) : TWindow; cdecl;
-Function XCreateWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : cardinal;_para10 : PVisual;_para11 : cardinal;_para12 : PXSetWindowAttributes) : TWindow; cdecl;
-Function XListInstalledColormaps(_para1 : PDisplay;_para2 : TWindow;_para3 : Plongint) : PColormap; cdecl;
-Function XListFonts(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : Plongint) : PPChar; cdecl;
-Function XListFontsWithInfo(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : Plongint;_para5 : PPXFontStruct) : PPChar; cdecl;
-Function XGetFontPath(_para1 : PDisplay;_para2 : Plongint) : PPChar; cdecl;
-Function XListExtensions(_para1 : PDisplay;_para2 : Plongint) : PPChar; cdecl;
-Function XListProperties(_para1 : PDisplay;_para2 : TWindow;_para3 : Plongint) : PAtom; cdecl;
-Function XListHosts(_para1 : PDisplay;_para2 : Plongint;_para3 : PBool) : PXHostAddress; cdecl;
-Function XKeycodeToKeysym(_para1 : PDisplay;_para3 : TKeyCode;_para4 : longint) : TKeySym; cdecl;
-{ Doesn't want ? MVC 
-Function XLookupKeysym(_para1 : PXKeyEvent;_para2 : longint) : TKeySym; cdecl;
+Function XInternAtom(_para1 : PDisplay;_para2 : pchar;_para3 : TBool) : TAtom; cdecl;external;
+Function XInternAtoms(_para1 : PDisplay;_para2 : PPChar;_para3 : longint;_para4 : TBool;_para5 : PAtom) : TStatus; cdecl;external;
+Function XCopyColormapAndFree(_para1 : PDisplay;_para2 : TColormap) : TColormap; cdecl;external;
+Function XCreateColormap(_para1 : PDisplay;_para2 : TWindow;_para3 : PVisual;_para4 : longint) : TColormap; cdecl;external;
+Function XCreatePixmapCursor(_para1 : PDisplay;_para2 : TPixmap;_para3 : TPixmap;_para4 : PXColor;_para5 : PXColor;_para6 : cardinal;_para7 : cardinal) : TCursor; cdecl;external;
+Function XCreateGlyphCursor(_para1 : PDisplay;_para2 : TFont;_para3 : TFont;_para4 : cardinal;_para5 : cardinal;_para6 : PXColor;_para7 : PXColor) : TCursor; cdecl;external;
+Function XCreateFontCursor(_para1 : PDisplay;_para2 : cardinal) : TCursor; cdecl;external;
+Function XLoadFont(_para1 : PDisplay;_para2 : pchar) : TFont; cdecl;external;
+Function XCreateGC(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : PXGCValues) : TGC; cdecl;external;
+Function XGContextFromGC(_para1 : TGC) : TGContext; cdecl;external;
+Procedure XFlushGC(_para1 : PDisplay;_para2 : TGC); cdecl;external;
+Function XCreatePixmap(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : cardinal) : TPixmap; cdecl;external;
+Function XCreateBitmapFromData(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : cardinal;_para5 : cardinal) : TPixmap; cdecl;external;
+Function XCreatePixmapFromBitmapData(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : cardinal;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : cardinal) : TPixmap; cdecl;external;
+Function XCreateSimpleWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : cardinal;_para9 : cardinal) : TWindow; cdecl;external;
+Function XGetSelectionOwner(_para1 : PDisplay;_para2 : TAtom) : TWindow; cdecl;external;
+Function XCreateWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : cardinal;_para10 : PVisual;_para11 : cardinal;_para12 : PXSetWindowAttributes) : TWindow; cdecl;external;
+Function XListInstalledColormaps(_para1 : PDisplay;_para2 : TWindow;_para3 : Plongint) : PColormap; cdecl;external;
+Function XListFonts(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : Plongint) : PPChar; cdecl;external;
+Function XListFontsWithInfo(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : Plongint;_para5 : PPXFontStruct) : PPChar; cdecl;external;
+Function XGetFontPath(_para1 : PDisplay;_para2 : Plongint) : PPChar; cdecl;external;
+Function XListExtensions(_para1 : PDisplay;_para2 : Plongint) : PPChar; cdecl;external;
+Function XListProperties(_para1 : PDisplay;_para2 : TWindow;_para3 : Plongint) : PAtom; cdecl;external;
+Function XListHosts(_para1 : PDisplay;_para2 : Plongint;_para3 : PBool) : PXHostAddress; cdecl;external;
+Function XKeycodeToKeysym(_para1 : PDisplay;_para3 : TKeyCode;_para4 : longint) : TKeySym; cdecl;external;
+{ Doesn't want ? MVC
+Function XLookupKeysym(_para1 : PXKeyEvent;_para2 : longint) : TKeySym; cdecl;external;
 }
-Function XGetKeyboardMapping(_para1 : PDisplay;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint;_para5 : Plongint) : PKeySym; cdecl;
-Function XStringToKeysym(_para1 : pchar) : TKeySym; cdecl;
-Function XMaxRequestSize(_para1 : PDisplay) : longint; cdecl;
-Function XExtendedMaxRequestSize(_para1 : PDisplay) : longint; cdecl;
-Function XResourceManagerString(_para1 : PDisplay) : pchar; cdecl;
-Function XScreenResourceString(_para1 : PScreen) : pchar; cdecl;
-Function XDisplayMotionBufferSize(_para1 : PDisplay) : cardinal; cdecl;
-Function XVisualIDFromVisual(_para1 : PVisual) : TVisualID; cdecl;
-Function XInitThreads : TStatus; cdecl;
-Procedure XLockDisplay(_para1 : PDisplay); cdecl;
-Procedure XUnlockDisplay(_para1 : PDisplay); cdecl;
-Function XInitExtension(_para1 : PDisplay;_para2 : pchar) : PXExtCodes; cdecl;
-Function XAddExtension(_para1 : PDisplay) : PXExtCodes; cdecl;
-Function XFindOnExtensionList(_para1 : PPXExtData;_para2 : longint) : PXExtData; cdecl;
-Function XEHeadOfExtensionList(_para1 : TXEDataObject) : PPXExtData; cdecl;
-Function XRootWindow(_para1 : PDisplay;_para2 : longint) : TWindow; cdecl;
-Function XDefaultRootWindow(_para1 : PDisplay) : TWindow; cdecl;
-Function XRootWindowOfScreen(_para1 : PScreen) : TWindow; cdecl;
-Function XDefaultVisual(_para1 : PDisplay;_para2 : longint) : PVisual; cdecl;
-Function XDefaultVisualOfScreen(_para1 : PScreen) : PVisual; cdecl;
-Function XDefaultGC(_para1 : PDisplay;_para2 : longint) : TGC; cdecl;
-Function XDefaultGCOfScreen(_para1 : PScreen) : TGC; cdecl;
-Function XBlackPixel(_para1 : PDisplay;_para2 : longint) : cardinal; cdecl;
-Function XWhitePixel(_para1 : PDisplay;_para2 : longint) : cardinal; cdecl;
-Function XAllPlanes : cardinal; cdecl;
-Function XBlackPixelOfScreen(_para1 : PScreen) : cardinal; cdecl;
-Function XWhitePixelOfScreen(_para1 : PScreen) : cardinal; cdecl;
-Function XNextRequest(_para1 : PDisplay) : cardinal; cdecl;
+Function XGetKeyboardMapping(_para1 : PDisplay;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint;_para5 : Plongint) : PKeySym; cdecl;external;
+Function XStringToKeysym(_para1 : pchar) : TKeySym; cdecl;external;
+Function XMaxRequestSize(_para1 : PDisplay) : longint; cdecl;external;
+Function XExtendedMaxRequestSize(_para1 : PDisplay) : longint; cdecl;external;
+Function XResourceManagerString(_para1 : PDisplay) : pchar; cdecl;external;
+Function XScreenResourceString(_para1 : PScreen) : pchar; cdecl;external;
+Function XDisplayMotionBufferSize(_para1 : PDisplay) : cardinal; cdecl;external;
+Function XVisualIDFromVisual(_para1 : PVisual) : TVisualID; cdecl;external;
+Function XInitThreads : TStatus; cdecl;external;
+Procedure XLockDisplay(_para1 : PDisplay); cdecl;external;
+Procedure XUnlockDisplay(_para1 : PDisplay); cdecl;external;
+Function XInitExtension(_para1 : PDisplay;_para2 : pchar) : PXExtCodes; cdecl;external;
+Function XAddExtension(_para1 : PDisplay) : PXExtCodes; cdecl;external;
+Function XFindOnExtensionList(_para1 : PPXExtData;_para2 : longint) : PXExtData; cdecl;external;
+Function XEHeadOfExtensionList(_para1 : TXEDataObject) : PPXExtData; cdecl;external;
+Function XRootWindow(_para1 : PDisplay;_para2 : longint) : TWindow; cdecl;external;
+Function XDefaultRootWindow(_para1 : PDisplay) : TWindow; cdecl;external;
+Function XRootWindowOfScreen(_para1 : PScreen) : TWindow; cdecl;external;
+Function XDefaultVisual(_para1 : PDisplay;_para2 : longint) : PVisual; cdecl;external;
+Function XDefaultVisualOfScreen(_para1 : PScreen) : PVisual; cdecl;external;
+Function XDefaultGC(_para1 : PDisplay;_para2 : longint) : TGC; cdecl;external;
+Function XDefaultGCOfScreen(_para1 : PScreen) : TGC; cdecl;external;
+Function XBlackPixel(_para1 : PDisplay;_para2 : longint) : cardinal; cdecl;external;
+Function XWhitePixel(_para1 : PDisplay;_para2 : longint) : cardinal; cdecl;external;
+Function XAllPlanes : cardinal; cdecl;external;
+Function XBlackPixelOfScreen(_para1 : PScreen) : cardinal; cdecl;external;
+Function XWhitePixelOfScreen(_para1 : PScreen) : cardinal; cdecl;external;
+Function XNextRequest(_para1 : PDisplay) : cardinal; cdecl;external;
 {
-Function XLastKnownRequestProcessed(_para1 : PDisplay) : cardinal; cdecl;
+Function XLastKnownRequestProcessed(_para1 : PDisplay) : cardinal; cdecl;external;
 }
-Function XServerVendor(_para1 : PDisplay) : pchar; cdecl;
-Function XDisplayString(_para1 : PDisplay) : pchar; cdecl;
-Function XDefaultColormap(_para1 : PDisplay;_para2 : longint) : TColormap; cdecl;
-Function XDefaultColormapOfScreen(_para1 : PScreen) : TColormap; cdecl;
-Function XDisplayOfScreen(_para1 : PScreen) : PDisplay; cdecl;
-Function XScreenOfDisplay(_para1 : PDisplay;_para2 : longint) : PScreen; cdecl;
-Function XDefaultScreenOfDisplay(_para1 : PDisplay) : PScreen; cdecl;
-Function XEventMaskOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XScreenNumberOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XSetErrorHandler(_para1 : TXErrorHandler) : TXErrorHandler; cdecl;
-Function XSetIOErrorHandler(_para1 : TXIOErrorHandler) : TXIOErrorHandler; cdecl;
-Function XListPixmapFormats(_para1 : PDisplay;_para2 : Plongint) : PXPixmapFormatValues; cdecl;
-Function XListDepths(_para1 : PDisplay;_para2 : longint;_para3 : Plongint) : Plongint; cdecl;
-Function XReconfigureWMWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : cardinal;_para5 : PXWindowChanges) : TStatus; cdecl;
-Function XGetWMProtocols(_para1 : PDisplay;_para2 : TWindow;_para3 : PPAtom;_para4 : Plongint) : TStatus; cdecl;
-Function XSetWMProtocols(_para1 : PDisplay;_para2 : TWindow;_para3 : PAtom;_para4 : longint) : TStatus; cdecl;
-Function XIconifyWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : TStatus; cdecl;
-Function XWithdrawWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : TStatus; cdecl;
-Function XGetCommand(_para1 : PDisplay;_para2 : TWindow;_para3 : PPPChar;_para4 : Plongint) : TStatus; cdecl;
-Function XGetWMColormapWindows(_para1 : PDisplay;_para2 : TWindow;_para3 : PPWindow;_para4 : Plongint) : TStatus; cdecl;
-Function XSetWMColormapWindows(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : longint) : TStatus; cdecl;
-Procedure XFreeStringList(_para1 : PPChar); cdecl;
-Function XSetTransientForHint(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow) : longint; cdecl;
-Function XActivateScreenSaver(_para1 : PDisplay) : longint; cdecl;
-Function XAddHost(_para1 : PDisplay;_para2 : PXHostAddress) : longint; cdecl;
-Function XAddHosts(_para1 : PDisplay;_para2 : PXHostAddress;_para3 : longint) : longint; cdecl;
+Function XServerVendor(_para1 : PDisplay) : pchar; cdecl;external;
+Function XDisplayString(_para1 : PDisplay) : pchar; cdecl;external;
+Function XDefaultColormap(_para1 : PDisplay;_para2 : longint) : TColormap; cdecl;external;
+Function XDefaultColormapOfScreen(_para1 : PScreen) : TColormap; cdecl;external;
+Function XDisplayOfScreen(_para1 : PScreen) : PDisplay; cdecl;external;
+Function XScreenOfDisplay(_para1 : PDisplay;_para2 : longint) : PScreen; cdecl;external;
+Function XDefaultScreenOfDisplay(_para1 : PDisplay) : PScreen; cdecl;external;
+Function XEventMaskOfScreen(_para1 : PScreen) : longint; cdecl;external;
+Function XScreenNumberOfScreen(_para1 : PScreen) : longint; cdecl;external;
+Function XSetErrorHandler(_para1 : TXErrorHandler) : TXErrorHandler; cdecl;external;
+Function XSetIOErrorHandler(_para1 : TXIOErrorHandler) : TXIOErrorHandler; cdecl;external;
+Function XListPixmapFormats(_para1 : PDisplay;_para2 : Plongint) : PXPixmapFormatValues; cdecl;external;
+Function XListDepths(_para1 : PDisplay;_para2 : longint;_para3 : Plongint) : Plongint; cdecl;external;
+Function XReconfigureWMWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : cardinal;_para5 : PXWindowChanges) : TStatus; cdecl;external;
+Function XGetWMProtocols(_para1 : PDisplay;_para2 : TWindow;_para3 : PPAtom;_para4 : Plongint) : TStatus; cdecl;external;
+Function XSetWMProtocols(_para1 : PDisplay;_para2 : TWindow;_para3 : PAtom;_para4 : longint) : TStatus; cdecl;external;
+Function XIconifyWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : TStatus; cdecl;external;
+Function XWithdrawWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : TStatus; cdecl;external;
+Function XGetCommand(_para1 : PDisplay;_para2 : TWindow;_para3 : PPPChar;_para4 : Plongint) : TStatus; cdecl;external;
+Function XGetWMColormapWindows(_para1 : PDisplay;_para2 : TWindow;_para3 : PPWindow;_para4 : Plongint) : TStatus; cdecl;external;
+Function XSetWMColormapWindows(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : longint) : TStatus; cdecl;external;
+Procedure XFreeStringList(_para1 : PPChar); cdecl;external;
+Function XSetTransientForHint(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow) : longint; cdecl;external;
+Function XActivateScreenSaver(_para1 : PDisplay) : longint; cdecl;external;
+Function XAddHost(_para1 : PDisplay;_para2 : PXHostAddress) : longint; cdecl;external;
+Function XAddHosts(_para1 : PDisplay;_para2 : PXHostAddress;_para3 : longint) : longint; cdecl;external;
 {
-Function XAddToExtensionList(_para1 : ^^*;_para2 : PXExtData) : longint; cdecl;
+Function XAddToExtensionList(_para1 : ^^*;_para2 : PXExtData) : longint; cdecl;external;
 }
-Function XAddToSaveSet(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XAllocColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : TStatus; cdecl;
-Function XAllocColorCells(_para1 : PDisplay;_para2 : TColormap;_para3 : TBool;_para4 : PCardinal;_para5 : cardinal;_para6 : PCardinal;_para7 : cardinal) : TStatus; cdecl;
-Function XAllocColorPlanes(_para1 : PDisplay;_para2 : TColormap;_para3 : TBool;_para4 : PCardinal;_para5 : longint;_para6 : longint;_para7 : longint;_para8 : longint;_para9 : PCardinal;_para10 : PCardinal;_para11 : PCardinal) : TStatus; cdecl;
-Function XAllocNamedColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor;_para5 : PXColor) : TStatus; cdecl;
-Function XAllowEvents(_para1 : PDisplay;_para2 : longint;_para3 : TTime) : longint; cdecl;
-Function XAutoRepeatOff(_para1 : PDisplay) : longint; cdecl;
-Function XAutoRepeatOn(_para1 : PDisplay) : longint; cdecl;
-Function XBell(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XBitmapBitOrder(_para1 : PDisplay) : longint; cdecl;
-Function XBitmapPad(_para1 : PDisplay) : longint; cdecl;
-Function XBitmapUnit(_para1 : PDisplay) : longint; cdecl;
-Function XCellsOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XChangeActivePointerGrab(_para1 : PDisplay;_para2 : cardinal;_para3 : TCursor;_para4 : TTime) : longint; cdecl;
-Function XChangeGC(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : PXGCValues) : longint; cdecl;
-Function XChangeKeyboardControl(_para1 : PDisplay;_para2 : cardinal;_para3 : PXKeyboardControl) : longint; cdecl;
-Function XChangeKeyboardMapping(_para1 : PDisplay;_para2 : longint;_para3 : longint;_para4 : PKeySym;_para5 : longint) : longint; cdecl;
-Function XChangePointerControl(_para1 : PDisplay;_para2 : TBool;_para3 : TBool;_para4 : longint;_para5 : longint;_para6 : longint) : longint; cdecl;
-Function XChangeProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom;_para4 : TAtom;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint) : longint; cdecl;
-Function XChangeSaveSet(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;
-Function XChangeWindowAttributes(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : PXSetWindowAttributes) : longint; cdecl;
+Function XAddToSaveSet(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XAllocColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : TStatus; cdecl;external;
+Function XAllocColorCells(_para1 : PDisplay;_para2 : TColormap;_para3 : TBool;_para4 : PCardinal;_para5 : cardinal;_para6 : PCardinal;_para7 : cardinal) : TStatus; cdecl;external;
+Function XAllocColorPlanes(_para1 : PDisplay;_para2 : TColormap;_para3 : TBool;_para4 : PCardinal;_para5 : longint;_para6 : longint;_para7 : longint;_para8 : longint;_para9 : PCardinal;_para10 : PCardinal;_para11 : PCardinal) : TStatus; cdecl;external;
+Function XAllocNamedColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor;_para5 : PXColor) : TStatus; cdecl;external;
+Function XAllowEvents(_para1 : PDisplay;_para2 : longint;_para3 : TTime) : longint; cdecl;external;
+Function XAutoRepeatOff(_para1 : PDisplay) : longint; cdecl;external;
+Function XAutoRepeatOn(_para1 : PDisplay) : longint; cdecl;external;
+Function XBell(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external;
+Function XBitmapBitOrder(_para1 : PDisplay) : longint; cdecl;external;
+Function XBitmapPad(_para1 : PDisplay) : longint; cdecl;external;
+Function XBitmapUnit(_para1 : PDisplay) : longint; cdecl;external;
+Function XCellsOfScreen(_para1 : PScreen) : longint; cdecl;external;
+Function XChangeActivePointerGrab(_para1 : PDisplay;_para2 : cardinal;_para3 : TCursor;_para4 : TTime) : longint; cdecl;external;
+Function XChangeGC(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : PXGCValues) : longint; cdecl;external;
+Function XChangeKeyboardControl(_para1 : PDisplay;_para2 : cardinal;_para3 : PXKeyboardControl) : longint; cdecl;external;
+Function XChangeKeyboardMapping(_para1 : PDisplay;_para2 : longint;_para3 : longint;_para4 : PKeySym;_para5 : longint) : longint; cdecl;external;
+Function XChangePointerControl(_para1 : PDisplay;_para2 : TBool;_para3 : TBool;_para4 : longint;_para5 : longint;_para6 : longint) : longint; cdecl;external;
+Function XChangeProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom;_para4 : TAtom;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint) : longint; cdecl;external;
+Function XChangeSaveSet(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;external;
+Function XChangeWindowAttributes(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : PXSetWindowAttributes) : longint; cdecl;external;
 {
-Function XCheckIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : TBool; cdecl;
+Function XCheckIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : TBool; cdecl;external;
 }
-Function XCheckMaskEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : TBool; cdecl;
-Function XCheckTypedEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : TBool; cdecl;
-Function XCheckTypedWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : TBool; cdecl;
-Function XCheckWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : TBool; cdecl;
-Function XCirculateSubwindows(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;
-Function XCirculateSubwindowsDown(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XCirculateSubwindowsUp(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XClearArea(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : TBool) : longint; cdecl;
-Function XClearWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XCloseDisplay(_para1 : PDisplay) : longint; cdecl;
-Function XConfigureWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : PXWindowChanges) : longint; cdecl;
-Function XConnectionNumber(_para1 : PDisplay) : longint; cdecl;
-Function XConvertSelection(_para1 : PDisplay;_para2 : TAtom;_para3 : TAtom;_para4 : TAtom;_para5 : TWindow;_para6 : TTime) : longint; cdecl;
-Function XCopyArea(_para1 : PDisplay;_para2 : TDrawable;_para3 : TDrawable;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint) : longint; cdecl;
-Function XCopyGC(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : TGC) : longint; cdecl;
-Function XCopyPlane(_para1 : PDisplay;_para2 : TDrawable;_para3 : TDrawable;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint;_para11 : cardinal) : longint; cdecl;
-Function XDefaultDepth(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XDefaultDepthOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XDefaultScreen(_para1 : PDisplay) : longint; cdecl;
-Function XDefineCursor(_para1 : PDisplay;_para2 : TWindow;_para3 : TCursor) : longint; cdecl;
-Function XDeleteProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom) : longint; cdecl;
-Function XDestroyWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XDestroySubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XDoesBackingStore(_para1 : PScreen) : longint; cdecl;
-Function XDoesSaveUnders(_para1 : PScreen) : TBool; cdecl;
-Function XDisableAccessControl(_para1 : PDisplay) : longint; cdecl;
-Function XDisplayCells(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XDisplayHeight(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XDisplayHeightMM(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XDisplayKeycodes(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint) : longint; cdecl;
-Function XDisplayPlanes(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XDisplayWidth(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XDisplayWidthMM(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XDrawArc(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;
-Function XDrawArcs(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXArc;_para5 : longint) : longint; cdecl;
-Function XDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : longint) : longint; cdecl;
-Function XDrawImageString16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXChar2b;_para7 : longint) : longint; cdecl;
-Function XDrawLine(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : longint;_para7 : longint) : longint; cdecl;
-Function XDrawLines(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint) : longint; cdecl;
-Function XDrawPoint(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint) : longint; cdecl;
-Function XDrawPoints(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint) : longint; cdecl;
-Function XDrawRectangle(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal) : longint; cdecl;
-Function XDrawRectangles(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXRectangle;_para5 : longint) : longint; cdecl;
-Function XDrawSegments(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXSegment;_para5 : longint) : longint; cdecl;
-Function XDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : longint) : longint; cdecl;
-Function XDrawString16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXChar2b;_para7 : longint) : longint; cdecl;
-Function XDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXTextItem;_para7 : longint) : longint; cdecl;
-Function XDrawText16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXTextItem16;_para7 : longint) : longint; cdecl;
-Function XEnableAccessControl(_para1 : PDisplay) : longint; cdecl;
-Function XEventsQueued(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XFetchName(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar) : TStatus; cdecl;
-Function XFillArc(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;
-Function XFillArcs(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXArc;_para5 : longint) : longint; cdecl;
-Function XFillPolygon(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint;_para7 : longint) : longint; cdecl;
-Function XFillRectangle(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal) : longint; cdecl;
-Function XFillRectangles(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXRectangle;_para5 : longint) : longint; cdecl;
-Function XFlush(_para1 : PDisplay) : longint; cdecl;
-Function XForceScreenSaver(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XFree(_para1 : pointer) : longint; cdecl;
-Function XFreeColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;
-Function XFreeColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PCardinal;_para4 : longint;_para5 : cardinal) : longint; cdecl;
-Function XFreeCursor(_para1 : PDisplay;_para2 : TCursor) : longint; cdecl;
-Function XFreeExtensionList(_para1 : PPChar) : longint; cdecl;
-Function XFreeFont(_para1 : PDisplay;_para2 : PXFontStruct) : longint; cdecl;
-Function XFreeFontInfo(_para1 : PPChar;_para2 : PXFontStruct;_para3 : longint) : longint; cdecl;
-Function XFreeFontNames(_para1 : PPChar) : longint; cdecl;
-Function XFreeFontPath(_para1 : PPChar) : longint; cdecl;
-Function XFreeGC(_para1 : PDisplay;_para2 : TGC) : longint; cdecl;
-Function XFreeModifiermap(_para1 : PXModifierKeymap) : longint; cdecl;
-Function XFreePixmap(_para1 : PDisplay;_para2 : TPixmap) : longint; cdecl;
-Function XGeometry(_para1 : PDisplay;_para2 : longint;_para3 : pchar;_para4 : pchar;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint;_para10 : Plongint;_para11 : Plongint;_para12 : Plongint;_para13 : Plongint) : longint; cdecl;
-Function XGetErrorDatabaseText(_para1 : PDisplay;_para2 : pchar;_para3 : pchar;_para4 : pchar;_para5 : pchar;_para6 : longint) : longint; cdecl;
-Function XGetErrorText(_para1 : PDisplay;_para2 : longint;_para3 : pchar;_para4 : longint) : longint; cdecl;
-Function XGetFontProperty(_para1 : PXFontStruct;_para2 : TAtom;_para3 : PCardinal) : TBool; cdecl;
-Function XGetGCValues(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : PXGCValues) : TStatus; cdecl;
-Function XGetGeometry(_para1 : PDisplay;_para2 : TDrawable;_para3 : PWindow;_para4 : Plongint;_para5 : Plongint;_para6 : PCardinal;_para7 : PCardinal;_para8 : PCardinal;_para9 : PCardinal) : TStatus; cdecl;
-Function XGetIconName(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar) : TStatus; cdecl;
-Function XGetInputFocus(_para1 : PDisplay;_para2 : PWindow;_para3 : Plongint) : longint; cdecl;
-Function XGetKeyboardControl(_para1 : PDisplay;_para2 : PXKeyboardState) : longint; cdecl;
-Function XGetPointerControl(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint;_para4 : Plongint) : longint; cdecl;
-Function XGetPointerMapping(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;
-Function XGetScreenSaver(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint;_para4 : Plongint;_para5 : Plongint) : longint; cdecl;
-Function XGetTransientForHint(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow) : TStatus; cdecl;
-Function XGetWindowProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom;_para4 : longint;_para5 : longint;_para6 : TBool;_para7 : TAtom;_para8 : PAtom;_para9 : Plongint;_para10 : PCardinal;_para11 : PCardinal;_para12 : PPChar) : longint; cdecl;
-Function XGetWindowAttributes(_para1 : PDisplay;_para2 : TWindow;_para3 : PXWindowAttributes) : TStatus; cdecl;
-Function XGrabButton(_para1 : PDisplay;_para2 : cardinal;_para3 : cardinal;_para4 : TWindow;_para5 : TBool;_para6 : cardinal;_para7 : longint;_para8 : longint;_para9 : TWindow;_para10 : TCursor) : longint; cdecl;
-Function XGrabKey(_para1 : PDisplay;_para2 : longint;_para3 : cardinal;_para4 : TWindow;_para5 : TBool;_para6 : longint;_para7 : longint) : longint; cdecl;
-Function XGrabKeyboard(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : longint;_para5 : longint;_para6 : TTime) : longint; cdecl;
-Function XGrabPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : cardinal;_para5 : longint;_para6 : longint;_para7 : TWindow;_para8 : TCursor;_para9 : TTime) : longint; cdecl;
-Function XGrabServer(_para1 : PDisplay) : longint; cdecl;
-Function XHeightMMOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XHeightOfScreen(_para1 : PScreen) : longint; cdecl;
+Function XCheckMaskEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : TBool; cdecl;external;
+Function XCheckTypedEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : TBool; cdecl;external;
+Function XCheckTypedWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : TBool; cdecl;external;
+Function XCheckWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : TBool; cdecl;external;
+Function XCirculateSubwindows(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;external;
+Function XCirculateSubwindowsDown(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XCirculateSubwindowsUp(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XClearArea(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : TBool) : longint; cdecl;external;
+Function XClearWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XCloseDisplay(_para1 : PDisplay) : longint; cdecl;external;
+Function XConfigureWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : PXWindowChanges) : longint; cdecl;external;
+Function XConnectionNumber(_para1 : PDisplay) : longint; cdecl;external;
+Function XConvertSelection(_para1 : PDisplay;_para2 : TAtom;_para3 : TAtom;_para4 : TAtom;_para5 : TWindow;_para6 : TTime) : longint; cdecl;external;
+Function XCopyArea(_para1 : PDisplay;_para2 : TDrawable;_para3 : TDrawable;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint) : longint; cdecl;external;
+Function XCopyGC(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : TGC) : longint; cdecl;external;
+Function XCopyPlane(_para1 : PDisplay;_para2 : TDrawable;_para3 : TDrawable;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint;_para11 : cardinal) : longint; cdecl;external;
+Function XDefaultDepth(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external;
+Function XDefaultDepthOfScreen(_para1 : PScreen) : longint; cdecl;external;
+Function XDefaultScreen(_para1 : PDisplay) : longint; cdecl;external;
+Function XDefineCursor(_para1 : PDisplay;_para2 : TWindow;_para3 : TCursor) : longint; cdecl;external;
+Function XDeleteProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom) : longint; cdecl;external;
+Function XDestroyWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XDestroySubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XDoesBackingStore(_para1 : PScreen) : longint; cdecl;external;
+Function XDoesSaveUnders(_para1 : PScreen) : TBool; cdecl;external;
+Function XDisableAccessControl(_para1 : PDisplay) : longint; cdecl;external;
+Function XDisplayCells(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external;
+Function XDisplayHeight(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external;
+Function XDisplayHeightMM(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external;
+Function XDisplayKeycodes(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint) : longint; cdecl;external;
+Function XDisplayPlanes(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external;
+Function XDisplayWidth(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external;
+Function XDisplayWidthMM(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external;
+Function XDrawArc(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;external;
+Function XDrawArcs(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXArc;_para5 : longint) : longint; cdecl;external;
+Function XDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : longint) : longint; cdecl;external;
+Function XDrawImageString16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXChar2b;_para7 : longint) : longint; cdecl;external;
+Function XDrawLine(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : longint;_para7 : longint) : longint; cdecl;external;
+Function XDrawLines(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint) : longint; cdecl;external;
+Function XDrawPoint(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint) : longint; cdecl;external;
+Function XDrawPoints(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint) : longint; cdecl;external;
+Function XDrawRectangle(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal) : longint; cdecl;external;
+Function XDrawRectangles(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXRectangle;_para5 : longint) : longint; cdecl;external;
+Function XDrawSegments(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXSegment;_para5 : longint) : longint; cdecl;external;
+Function XDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : longint) : longint; cdecl;external;
+Function XDrawString16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXChar2b;_para7 : longint) : longint; cdecl;external;
+Function XDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXTextItem;_para7 : longint) : longint; cdecl;external;
+Function XDrawText16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXTextItem16;_para7 : longint) : longint; cdecl;external;
+Function XEnableAccessControl(_para1 : PDisplay) : longint; cdecl;external;
+Function XEventsQueued(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external;
+Function XFetchName(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar) : TStatus; cdecl;external;
+Function XFillArc(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;external;
+Function XFillArcs(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXArc;_para5 : longint) : longint; cdecl;external;
+Function XFillPolygon(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint;_para7 : longint) : longint; cdecl;external;
+Function XFillRectangle(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal) : longint; cdecl;external;
+Function XFillRectangles(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXRectangle;_para5 : longint) : longint; cdecl;external;
+Function XFlush(_para1 : PDisplay) : longint; cdecl;external;
+Function XForceScreenSaver(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external;
+Function XFree(_para1 : pointer) : longint; cdecl;external;
+Function XFreeColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;external;
+Function XFreeColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PCardinal;_para4 : longint;_para5 : cardinal) : longint; cdecl;external;
+Function XFreeCursor(_para1 : PDisplay;_para2 : TCursor) : longint; cdecl;external;
+Function XFreeExtensionList(_para1 : PPChar) : longint; cdecl;external;
+Function XFreeFont(_para1 : PDisplay;_para2 : PXFontStruct) : longint; cdecl;external;
+Function XFreeFontInfo(_para1 : PPChar;_para2 : PXFontStruct;_para3 : longint) : longint; cdecl;external;
+Function XFreeFontNames(_para1 : PPChar) : longint; cdecl;external;
+Function XFreeFontPath(_para1 : PPChar) : longint; cdecl;external;
+Function XFreeGC(_para1 : PDisplay;_para2 : TGC) : longint; cdecl;external;
+Function XFreeModifiermap(_para1 : PXModifierKeymap) : longint; cdecl;external;
+Function XFreePixmap(_para1 : PDisplay;_para2 : TPixmap) : longint; cdecl;external;
+Function XGeometry(_para1 : PDisplay;_para2 : longint;_para3 : pchar;_para4 : pchar;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint;_para10 : Plongint;_para11 : Plongint;_para12 : Plongint;_para13 : Plongint) : longint; cdecl;external;
+Function XGetErrorDatabaseText(_para1 : PDisplay;_para2 : pchar;_para3 : pchar;_para4 : pchar;_para5 : pchar;_para6 : longint) : longint; cdecl;external;
+Function XGetErrorText(_para1 : PDisplay;_para2 : longint;_para3 : pchar;_para4 : longint) : longint; cdecl;external;
+Function XGetFontProperty(_para1 : PXFontStruct;_para2 : TAtom;_para3 : PCardinal) : TBool; cdecl;external;
+Function XGetGCValues(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : PXGCValues) : TStatus; cdecl;external;
+Function XGetGeometry(_para1 : PDisplay;_para2 : TDrawable;_para3 : PWindow;_para4 : Plongint;_para5 : Plongint;_para6 : PCardinal;_para7 : PCardinal;_para8 : PCardinal;_para9 : PCardinal) : TStatus; cdecl;external;
+Function XGetIconName(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar) : TStatus; cdecl;external;
+Function XGetInputFocus(_para1 : PDisplay;_para2 : PWindow;_para3 : Plongint) : longint; cdecl;external;
+Function XGetKeyboardControl(_para1 : PDisplay;_para2 : PXKeyboardState) : longint; cdecl;external;
+Function XGetPointerControl(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint;_para4 : Plongint) : longint; cdecl;external;
+Function XGetPointerMapping(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;external;
+Function XGetScreenSaver(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint;_para4 : Plongint;_para5 : Plongint) : longint; cdecl;external;
+Function XGetTransientForHint(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow) : TStatus; cdecl;external;
+Function XGetWindowProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom;_para4 : longint;_para5 : longint;_para6 : TBool;_para7 : TAtom;_para8 : PAtom;_para9 : Plongint;_para10 : PCardinal;_para11 : PCardinal;_para12 : PPChar) : longint; cdecl;external;
+Function XGetWindowAttributes(_para1 : PDisplay;_para2 : TWindow;_para3 : PXWindowAttributes) : TStatus; cdecl;external;
+Function XGrabButton(_para1 : PDisplay;_para2 : cardinal;_para3 : cardinal;_para4 : TWindow;_para5 : TBool;_para6 : cardinal;_para7 : longint;_para8 : longint;_para9 : TWindow;_para10 : TCursor) : longint; cdecl;external;
+Function XGrabKey(_para1 : PDisplay;_para2 : longint;_para3 : cardinal;_para4 : TWindow;_para5 : TBool;_para6 : longint;_para7 : longint) : longint; cdecl;external;
+Function XGrabKeyboard(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : longint;_para5 : longint;_para6 : TTime) : longint; cdecl;external;
+Function XGrabPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : cardinal;_para5 : longint;_para6 : longint;_para7 : TWindow;_para8 : TCursor;_para9 : TTime) : longint; cdecl;external;
+Function XGrabServer(_para1 : PDisplay) : longint; cdecl;external;
+Function XHeightMMOfScreen(_para1 : PScreen) : longint; cdecl;external;
+Function XHeightOfScreen(_para1 : PScreen) : longint; cdecl;external;
 {
-Function XIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : longint; cdecl;
+Function XIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : longint; cdecl;external;
 }
-Function XImageByteOrder(_para1 : PDisplay) : longint; cdecl;
-Function XInstallColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;
-Function XKeysymToKeycode(_para1 : PDisplay;_para2 : TKeySym) : TKeyCode; cdecl;
-Function XKillClient(_para1 : PDisplay;_para2 : TXID) : longint; cdecl;
-Function XLastKnownRequestProcessed(_para1 : PDisplay) : cardinal; cdecl;
-Function XLookupColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor;_para5 : PXColor) : TStatus; cdecl;
-Function XLowerWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XMapRaised(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XMapSubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XMapWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XMaskEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : longint; cdecl;
-Function XMaxCmapsOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XMinCmapsOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XMoveResizeWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal) : longint; cdecl;
-Function XMoveWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint) : longint; cdecl;
-Function XNextEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;
-Function XNoOp(_para1 : PDisplay) : longint; cdecl;
-Function XParseColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor) : TStatus; cdecl;
-Function XParseGeometry(_para1 : pchar;_para2 : Plongint;_para3 : Plongint;_para4 : PCardinal;_para5 : PCardinal) : longint; cdecl;
-Function XPeekEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;
+Function XImageByteOrder(_para1 : PDisplay) : longint; cdecl;external;
+Function XInstallColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;external;
+Function XKeysymToKeycode(_para1 : PDisplay;_para2 : TKeySym) : TKeyCode; cdecl;external;
+Function XKillClient(_para1 : PDisplay;_para2 : TXID) : longint; cdecl;external;
+Function XLastKnownRequestProcessed(_para1 : PDisplay) : cardinal; cdecl;external;
+Function XLookupColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor;_para5 : PXColor) : TStatus; cdecl;external;
+Function XLowerWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XMapRaised(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XMapSubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XMapWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XMaskEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : longint; cdecl;external;
+Function XMaxCmapsOfScreen(_para1 : PScreen) : longint; cdecl;external;
+Function XMinCmapsOfScreen(_para1 : PScreen) : longint; cdecl;external;
+Function XMoveResizeWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal) : longint; cdecl;external;
+Function XMoveWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint) : longint; cdecl;external;
+Function XNextEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;external;
+Function XNoOp(_para1 : PDisplay) : longint; cdecl;external;
+Function XParseColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor) : TStatus; cdecl;external;
+Function XParseGeometry(_para1 : pchar;_para2 : Plongint;_para3 : Plongint;_para4 : PCardinal;_para5 : PCardinal) : longint; cdecl;external;
+Function XPeekEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;external;
 {
-Function XPeekIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : longint; cdecl;
+Function XPeekIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : longint; cdecl;external;
 }
-Function XPending(_para1 : PDisplay) : longint; cdecl;
-Function XPlanesOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XProtocolRevision(_para1 : PDisplay) : longint; cdecl;
-Function XProtocolVersion(_para1 : PDisplay) : longint; cdecl;
-Function XPutBackEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;
-Function XPutImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXImage;_para5 : longint;_para6 : longint;_para7 : longint;_para8 : longint;_para9 : cardinal;_para10 : cardinal) : longint; cdecl;
-Function XQLength(_para1 : PDisplay) : longint; cdecl;
-Function XQueryBestCursor(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;
-Function XQueryBestSize(_para1 : PDisplay;_para2 : longint;_para3 : TDrawable;_para4 : cardinal;_para5 : cardinal;_para6 : PCardinal;_para7 : PCardinal) : TStatus; cdecl;
-Function XQueryBestStipple(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;
-Function XQueryBestTile(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;
-Function XQueryColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : longint; cdecl;
-Function XQueryColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor;_para4 : longint) : longint; cdecl;
-Function XQueryExtension(_para1 : PDisplay;_para2 : pchar;_para3 : Plongint;_para4 : Plongint;_para5 : Plongint) : TBool; cdecl;
+Function XPending(_para1 : PDisplay) : longint; cdecl;external;
+Function XPlanesOfScreen(_para1 : PScreen) : longint; cdecl;external;
+Function XProtocolRevision(_para1 : PDisplay) : longint; cdecl;external;
+Function XProtocolVersion(_para1 : PDisplay) : longint; cdecl;external;
+Function XPutBackEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;external;
+Function XPutImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXImage;_para5 : longint;_para6 : longint;_para7 : longint;_para8 : longint;_para9 : cardinal;_para10 : cardinal) : longint; cdecl;external;
+Function XQLength(_para1 : PDisplay) : longint; cdecl;external;
+Function XQueryBestCursor(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;external;
+Function XQueryBestSize(_para1 : PDisplay;_para2 : longint;_para3 : TDrawable;_para4 : cardinal;_para5 : cardinal;_para6 : PCardinal;_para7 : PCardinal) : TStatus; cdecl;external;
+Function XQueryBestStipple(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;external;
+Function XQueryBestTile(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;external;
+Function XQueryColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : longint; cdecl;external;
+Function XQueryColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor;_para4 : longint) : longint; cdecl;external;
+Function XQueryExtension(_para1 : PDisplay;_para2 : pchar;_para3 : Plongint;_para4 : Plongint;_para5 : Plongint) : TBool; cdecl;external;
 {
-Function XQueryKeymap(_para1 : PDisplay;_para2 : array[0..(32)-1] of char) : longint; cdecl;
+Function XQueryKeymap(_para1 : PDisplay;_para2 : array[0..(32)-1] of char) : longint; cdecl;external;
 }
-Function XQueryPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : PWindow;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : Plongint;_para9 : PCardinal) : TBool; cdecl;
-Function XQueryTextExtents(_para1 : PDisplay;_para2 : TXID;_para3 : pchar;_para4 : longint;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : PXCharStruct) : longint; cdecl;
-Function XQueryTextExtents16(_para1 : PDisplay;_para2 : TXID;_para3 : PXChar2b;_para4 : longint;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : PXCharStruct) : longint; cdecl;
-Function XQueryTree(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : PWindow;_para5 : PPWindow;_para6 : PCardinal) : TStatus; cdecl;
-Function XRaiseWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XReadBitmapFile(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : PCardinal;_para5 : PCardinal;_para6 : PPixmap;_para7 : Plongint;_para8 : Plongint) : longint; cdecl;
-Function XReadBitmapFileData(_para1 : pchar;_para2 : PCardinal;_para3 : PCardinal;_para4 : PPChar;_para5 : Plongint;_para6 : Plongint) : longint; cdecl;
-Function XRebindKeysym(_para1 : PDisplay;_para2 : TKeySym;_para3 : PKeySym;_para4 : longint;_para5 : pchar;_para6 : longint) : longint; cdecl;
-Function XRecolorCursor(_para1 : PDisplay;_para2 : TCursor;_para3 : PXColor;_para4 : PXColor) : longint; cdecl;
-Function XRefreshKeyboardMapping(_para1 : PXMappingEvent) : longint; cdecl;
-Function XRemoveFromSaveSet(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XRemoveHost(_para1 : PDisplay;_para2 : PXHostAddress) : longint; cdecl;
-Function XRemoveHosts(_para1 : PDisplay;_para2 : PXHostAddress;_para3 : longint) : longint; cdecl;
-Function XReparentWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint) : longint; cdecl;
-Function XResetScreenSaver(_para1 : PDisplay) : longint; cdecl;
-Function XResizeWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : cardinal) : longint; cdecl;
-Function XRestackWindows(_para1 : PDisplay;_para2 : PWindow;_para3 : longint) : longint; cdecl;
-Function XRotateBuffers(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XRotateWindowProperties(_para1 : PDisplay;_para2 : TWindow;_para3 : PAtom;_para4 : longint;_para5 : longint) : longint; cdecl;
-Function XScreenCount(_para1 : PDisplay) : longint; cdecl;
-Function XSelectInput(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;
-Function XSendEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : longint;_para5 : PXEvent) : TStatus; cdecl;
-Function XSetAccessControl(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XSetArcMode(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;
-Function XSetBackground(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;
-Function XSetClipMask(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;
-Function XSetClipOrigin(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint) : longint; cdecl;
-Function XSetClipRectangles(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint;_para5 : PXRectangle;_para6 : longint;_para7 : longint) : longint; cdecl;
-Function XSetCloseDownMode(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XSetCommand(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar;_para4 : longint) : longint; cdecl;
-Function XSetDashes(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : pchar;_para5 : longint) : longint; cdecl;
-Function XSetFillRule(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;
-Function XSetFillStyle(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;
-Function XSetFont(_para1 : PDisplay;_para2 : TGC;_para3 : TFont) : longint; cdecl;
-Function XSetFontPath(_para1 : PDisplay;_para2 : PPChar;_para3 : longint) : longint; cdecl;
-Function XSetForeground(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;
-Function XSetFunction(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;
-Function XSetGraphicsExposures(_para1 : PDisplay;_para2 : TGC;_para3 : TBool) : longint; cdecl;
-Function XSetIconName(_para1 : PDisplay;_para2 : TWindow;_para3 : pchar) : longint; cdecl;
-Function XSetInputFocus(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : TTime) : longint; cdecl;
-Function XSetLineAttributes(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : longint;_para5 : longint;_para6 : longint) : longint; cdecl;
-Function XSetModifierMapping(_para1 : PDisplay;_para2 : PXModifierKeymap) : longint; cdecl;
-Function XSetPlaneMask(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;
-Function XSetPointerMapping(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;
-Function XSetScreenSaver(_para1 : PDisplay;_para2 : longint;_para3 : longint;_para4 : longint;_para5 : longint) : longint; cdecl;
-Function XSetSelectionOwner(_para1 : PDisplay;_para2 : TAtom;_para3 : TWindow;_para4 : TTime) : longint; cdecl;
-Function XSetState(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : cardinal;_para5 : longint;_para6 : cardinal) : longint; cdecl;
-Function XSetStipple(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;
-Function XSetSubwindowMode(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;
-Function XSetTSOrigin(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint) : longint; cdecl;
-Function XSetTile(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;
-Function XSetWindowBackground(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;
-Function XSetWindowBackgroundPixmap(_para1 : PDisplay;_para2 : TWindow;_para3 : TPixmap) : longint; cdecl;
-Function XSetWindowBorder(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;
-Function XSetWindowBorderPixmap(_para1 : PDisplay;_para2 : TWindow;_para3 : TPixmap) : longint; cdecl;
-Function XSetWindowBorderWidth(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;
-Function XSetWindowColormap(_para1 : PDisplay;_para2 : TWindow;_para3 : TColormap) : longint; cdecl;
-Function XStoreBuffer(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : longint) : longint; cdecl;
-Function XStoreBytes(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;
-Function XStoreColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : longint; cdecl;
-Function XStoreColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor;_para4 : longint) : longint; cdecl;
-Function XStoreName(_para1 : PDisplay;_para2 : TWindow;_para3 : pchar) : longint; cdecl;
-Function XStoreNamedColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : cardinal;_para5 : longint) : longint; cdecl;
-Function XSync(_para1 : PDisplay;_para2 : TBool) : longint; cdecl;
-Function XTextExtents(_para1 : PXFontStruct;_para2 : pchar;_para3 : longint;_para4 : Plongint;_para5 : Plongint;_para6 : Plongint;_para7 : PXCharStruct) : longint; cdecl;
-Function XTextExtents16(_para1 : PXFontStruct;_para2 : PXChar2b;_para3 : longint;_para4 : Plongint;_para5 : Plongint;_para6 : Plongint;_para7 : PXCharStruct) : longint; cdecl;
-Function XTextWidth(_para1 : PXFontStruct;_para2 : pchar;_para3 : longint) : longint; cdecl;
-Function XTextWidth16(_para1 : PXFontStruct;_para2 : PXChar2b;_para3 : longint) : longint; cdecl;
-Function XTranslateCoordinates(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint;_para6 : Plongint;_para7 : Plongint;_para8 : PWindow) : TBool; cdecl;
-Function XUndefineCursor(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XUngrabButton(_para1 : PDisplay;_para2 : cardinal;_para3 : cardinal;_para4 : TWindow) : longint; cdecl;
-Function XUngrabKey(_para1 : PDisplay;_para2 : longint;_para3 : cardinal;_para4 : TWindow) : longint; cdecl;
-Function XUngrabKeyboard(_para1 : PDisplay;_para2 : TTime) : longint; cdecl;
-Function XUngrabPointer(_para1 : PDisplay;_para2 : TTime) : longint; cdecl;
-Function XUngrabServer(_para1 : PDisplay) : longint; cdecl;
-Function XUninstallColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;
-Function XUnloadFont(_para1 : PDisplay;_para2 : TFont) : longint; cdecl;
-Function XUnmapSubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XUnmapWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XVendorRelease(_para1 : PDisplay) : longint; cdecl;
-Function XWarpPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;
-Function XWidthMMOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XWidthOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : longint; cdecl;
-Function XWriteBitmapFile(_para1 : PDisplay;_para2 : pchar;_para3 : TPixmap;_para4 : cardinal;_para5 : cardinal;_para6 : longint;_para7 : longint) : longint; cdecl;
-Function XSupportsLocale : TBool; cdecl;
-Function XSetLocaleModifiers(_para1 : pchar) : pchar; cdecl;
+Function XQueryPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : PWindow;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : Plongint;_para9 : PCardinal) : TBool; cdecl;external;
+Function XQueryTextExtents(_para1 : PDisplay;_para2 : TXID;_para3 : pchar;_para4 : longint;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : PXCharStruct) : longint; cdecl;external;
+Function XQueryTextExtents16(_para1 : PDisplay;_para2 : TXID;_para3 : PXChar2b;_para4 : longint;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : PXCharStruct) : longint; cdecl;external;
+Function XQueryTree(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : PWindow;_para5 : PPWindow;_para6 : PCardinal) : TStatus; cdecl;external;
+Function XRaiseWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XReadBitmapFile(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : PCardinal;_para5 : PCardinal;_para6 : PPixmap;_para7 : Plongint;_para8 : Plongint) : longint; cdecl;external;
+Function XReadBitmapFileData(_para1 : pchar;_para2 : PCardinal;_para3 : PCardinal;_para4 : PPChar;_para5 : Plongint;_para6 : Plongint) : longint; cdecl;external;
+Function XRebindKeysym(_para1 : PDisplay;_para2 : TKeySym;_para3 : PKeySym;_para4 : longint;_para5 : pchar;_para6 : longint) : longint; cdecl;external;
+Function XRecolorCursor(_para1 : PDisplay;_para2 : TCursor;_para3 : PXColor;_para4 : PXColor) : longint; cdecl;external;
+Function XRefreshKeyboardMapping(_para1 : PXMappingEvent) : longint; cdecl;external;
+Function XRemoveFromSaveSet(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XRemoveHost(_para1 : PDisplay;_para2 : PXHostAddress) : longint; cdecl;external;
+Function XRemoveHosts(_para1 : PDisplay;_para2 : PXHostAddress;_para3 : longint) : longint; cdecl;external;
+Function XReparentWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint) : longint; cdecl;external;
+Function XResetScreenSaver(_para1 : PDisplay) : longint; cdecl;external;
+Function XResizeWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : cardinal) : longint; cdecl;external;
+Function XRestackWindows(_para1 : PDisplay;_para2 : PWindow;_para3 : longint) : longint; cdecl;external;
+Function XRotateBuffers(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external;
+Function XRotateWindowProperties(_para1 : PDisplay;_para2 : TWindow;_para3 : PAtom;_para4 : longint;_para5 : longint) : longint; cdecl;external;
+Function XScreenCount(_para1 : PDisplay) : longint; cdecl;external;
+Function XSelectInput(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;external;
+Function XSendEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : longint;_para5 : PXEvent) : TStatus; cdecl;external;
+Function XSetAccessControl(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external;
+Function XSetArcMode(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external;
+Function XSetBackground(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;external;
+Function XSetClipMask(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;external;
+Function XSetClipOrigin(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint) : longint; cdecl;external;
+Function XSetClipRectangles(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint;_para5 : PXRectangle;_para6 : longint;_para7 : longint) : longint; cdecl;external;
+Function XSetCloseDownMode(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external;
+Function XSetCommand(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar;_para4 : longint) : longint; cdecl;external;
+Function XSetDashes(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : pchar;_para5 : longint) : longint; cdecl;external;
+Function XSetFillRule(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external;
+Function XSetFillStyle(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external;
+Function XSetFont(_para1 : PDisplay;_para2 : TGC;_para3 : TFont) : longint; cdecl;external;
+Function XSetFontPath(_para1 : PDisplay;_para2 : PPChar;_para3 : longint) : longint; cdecl;external;
+Function XSetForeground(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;external;
+Function XSetFunction(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external;
+Function XSetGraphicsExposures(_para1 : PDisplay;_para2 : TGC;_para3 : TBool) : longint; cdecl;external;
+Function XSetIconName(_para1 : PDisplay;_para2 : TWindow;_para3 : pchar) : longint; cdecl;external;
+Function XSetInputFocus(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : TTime) : longint; cdecl;external;
+Function XSetLineAttributes(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : longint;_para5 : longint;_para6 : longint) : longint; cdecl;external;
+Function XSetModifierMapping(_para1 : PDisplay;_para2 : PXModifierKeymap) : longint; cdecl;external;
+Function XSetPlaneMask(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;external;
+Function XSetPointerMapping(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;external;
+Function XSetScreenSaver(_para1 : PDisplay;_para2 : longint;_para3 : longint;_para4 : longint;_para5 : longint) : longint; cdecl;external;
+Function XSetSelectionOwner(_para1 : PDisplay;_para2 : TAtom;_para3 : TWindow;_para4 : TTime) : longint; cdecl;external;
+Function XSetState(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : cardinal;_para5 : longint;_para6 : cardinal) : longint; cdecl;external;
+Function XSetStipple(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;external;
+Function XSetSubwindowMode(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external;
+Function XSetTSOrigin(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint) : longint; cdecl;external;
+Function XSetTile(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;external;
+Function XSetWindowBackground(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;external;
+Function XSetWindowBackgroundPixmap(_para1 : PDisplay;_para2 : TWindow;_para3 : TPixmap) : longint; cdecl;external;
+Function XSetWindowBorder(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;external;
+Function XSetWindowBorderPixmap(_para1 : PDisplay;_para2 : TWindow;_para3 : TPixmap) : longint; cdecl;external;
+Function XSetWindowBorderWidth(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;external;
+Function XSetWindowColormap(_para1 : PDisplay;_para2 : TWindow;_para3 : TColormap) : longint; cdecl;external;
+Function XStoreBuffer(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : longint) : longint; cdecl;external;
+Function XStoreBytes(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;external;
+Function XStoreColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : longint; cdecl;external;
+Function XStoreColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor;_para4 : longint) : longint; cdecl;external;
+Function XStoreName(_para1 : PDisplay;_para2 : TWindow;_para3 : pchar) : longint; cdecl;external;
+Function XStoreNamedColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : cardinal;_para5 : longint) : longint; cdecl;external;
+Function XSync(_para1 : PDisplay;_para2 : TBool) : longint; cdecl;external;
+Function XTextExtents(_para1 : PXFontStruct;_para2 : pchar;_para3 : longint;_para4 : Plongint;_para5 : Plongint;_para6 : Plongint;_para7 : PXCharStruct) : longint; cdecl;external;
+Function XTextExtents16(_para1 : PXFontStruct;_para2 : PXChar2b;_para3 : longint;_para4 : Plongint;_para5 : Plongint;_para6 : Plongint;_para7 : PXCharStruct) : longint; cdecl;external;
+Function XTextWidth(_para1 : PXFontStruct;_para2 : pchar;_para3 : longint) : longint; cdecl;external;
+Function XTextWidth16(_para1 : PXFontStruct;_para2 : PXChar2b;_para3 : longint) : longint; cdecl;external;
+Function XTranslateCoordinates(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint;_para6 : Plongint;_para7 : Plongint;_para8 : PWindow) : TBool; cdecl;external;
+Function XUndefineCursor(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XUngrabButton(_para1 : PDisplay;_para2 : cardinal;_para3 : cardinal;_para4 : TWindow) : longint; cdecl;external;
+Function XUngrabKey(_para1 : PDisplay;_para2 : longint;_para3 : cardinal;_para4 : TWindow) : longint; cdecl;external;
+Function XUngrabKeyboard(_para1 : PDisplay;_para2 : TTime) : longint; cdecl;external;
+Function XUngrabPointer(_para1 : PDisplay;_para2 : TTime) : longint; cdecl;external;
+Function XUngrabServer(_para1 : PDisplay) : longint; cdecl;external;
+Function XUninstallColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;external;
+Function XUnloadFont(_para1 : PDisplay;_para2 : TFont) : longint; cdecl;external;
+Function XUnmapSubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XUnmapWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external;
+Function XVendorRelease(_para1 : PDisplay) : longint; cdecl;external;
+Function XWarpPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;external;
+Function XWidthMMOfScreen(_para1 : PScreen) : longint; cdecl;external;
+Function XWidthOfScreen(_para1 : PScreen) : longint; cdecl;external;
+Function XWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : longint; cdecl;external;
+Function XWriteBitmapFile(_para1 : PDisplay;_para2 : pchar;_para3 : TPixmap;_para4 : cardinal;_para5 : cardinal;_para6 : longint;_para7 : longint) : longint; cdecl;external;
+Function XSupportsLocale : TBool; cdecl;external;
+Function XSetLocaleModifiers(_para1 : pchar) : pchar; cdecl;external;
 {
-Function XOpenOM(_para1 : PDisplay;_para2 : ^*;_para3 : pchar;_para4 : pchar) : TXOM; cdecl;
+Function XOpenOM(_para1 : PDisplay;_para2 : ^*;_para3 : pchar;_para4 : pchar) : TXOM; cdecl;external;
 }
-Function XCloseOM(_para1 : TXOM) : TStatus; cdecl;
-Function XDisplayOfOM(_para1 : TXOM) : PDisplay; cdecl;
-Function XLocaleOfOM(_para1 : TXOM) : pchar; cdecl;
-Procedure XDestroyOC(_para1 : TXOC); cdecl;
-Function TXOMOfOC(_para1 : TXOC) : TXOM; cdecl;
-Function XCreateFontSet(_para1 : PDisplay;_para2 : pchar;_para3 : PPPChar;_para4 : Plongint;_para5 : PPChar) : TXFontSet; cdecl;
-Procedure XFreeFontSet(_para1 : PDisplay;_para2 : TXFontSet); cdecl;
-Function XFontsOfFontSet(_para1 : TXFontSet;_para2 : PPPXFontStruct;_para3 : PPPChar) : longint; cdecl;
-Function XBaseFontNameListOfFontSet(_para1 : TXFontSet) : pchar; cdecl;
-Function XLocaleOfFontSet(_para1 : TXFontSet) : pchar; cdecl;
-Function XContextDependentDrawing(_para1 : TXFontSet) : TBool; cdecl;
-Function XDirectionalDependentDrawing(_para1 : TXFontSet) : TBool; cdecl;
-Function XContextualDrawing(_para1 : TXFontSet) : TBool; cdecl;
-Function XExtentsOfFontSet(_para1 : TXFontSet) : PXFontSetExtents; cdecl;
-Function XmbTextEscapement(_para1 : TXFontSet;_para2 : pchar;_para3 : longint) : longint; cdecl;
-Function XwcTextEscapement(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint) : longint; cdecl;
-Function XmbTextExtents(_para1 : TXFontSet;_para2 : pchar;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle) : longint; cdecl;
-Function XwcTextExtents(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle) : longint; cdecl;
-Function XmbTextPerCharExtents(_para1 : TXFontSet;_para2 : pchar;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle;_para6 : longint;_para7 : Plongint;_para8 : PXRectangle;_para9 : PXRectangle) : TStatus; cdecl;
-Function XwcTextPerCharExtents(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle;_para6 : longint;_para7 : Plongint;_para8 : PXRectangle;_para9 : PXRectangle) : TStatus; cdecl;
-Procedure XmbDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXmbTextItem;_para7 : longint); cdecl;
-Procedure XwcDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXwcTextItem;_para7 : longint); cdecl;
-Procedure XmbDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint); cdecl;
-Procedure XwcDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : Pwchar_t;_para8 : longint); cdecl;
-Procedure XmbDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint); cdecl;
-Procedure XwcDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : Pwchar_t;_para8 : longint); cdecl;
+Function XCloseOM(_para1 : TXOM) : TStatus; cdecl;external;
+Function XDisplayOfOM(_para1 : TXOM) : PDisplay; cdecl;external;
+Function XLocaleOfOM(_para1 : TXOM) : pchar; cdecl;external;
+Procedure XDestroyOC(_para1 : TXOC); cdecl;external;
+Function TXOMOfOC(_para1 : TXOC) : TXOM; cdecl;external;
+Function XCreateFontSet(_para1 : PDisplay;_para2 : pchar;_para3 : PPPChar;_para4 : Plongint;_para5 : PPChar) : TXFontSet; cdecl;external;
+Procedure XFreeFontSet(_para1 : PDisplay;_para2 : TXFontSet); cdecl;external;
+Function XFontsOfFontSet(_para1 : TXFontSet;_para2 : PPPXFontStruct;_para3 : PPPChar) : longint; cdecl;external;
+Function XBaseFontNameListOfFontSet(_para1 : TXFontSet) : pchar; cdecl;external;
+Function XLocaleOfFontSet(_para1 : TXFontSet) : pchar; cdecl;external;
+Function XContextDependentDrawing(_para1 : TXFontSet) : TBool; cdecl;external;
+Function XDirectionalDependentDrawing(_para1 : TXFontSet) : TBool; cdecl;external;
+Function XContextualDrawing(_para1 : TXFontSet) : TBool; cdecl;external;
+Function XExtentsOfFontSet(_para1 : TXFontSet) : PXFontSetExtents; cdecl;external;
+Function XmbTextEscapement(_para1 : TXFontSet;_para2 : pchar;_para3 : longint) : longint; cdecl;external;
+Function XwcTextEscapement(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint) : longint; cdecl;external;
+Function XmbTextExtents(_para1 : TXFontSet;_para2 : pchar;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle) : longint; cdecl;external;
+Function XwcTextExtents(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle) : longint; cdecl;external;
+Function XmbTextPerCharExtents(_para1 : TXFontSet;_para2 : pchar;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle;_para6 : longint;_para7 : Plongint;_para8 : PXRectangle;_para9 : PXRectangle) : TStatus; cdecl;external;
+Function XwcTextPerCharExtents(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle;_para6 : longint;_para7 : Plongint;_para8 : PXRectangle;_para9 : PXRectangle) : TStatus; cdecl;external;
+Procedure XmbDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXmbTextItem;_para7 : longint); cdecl;external;
+Procedure XwcDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXwcTextItem;_para7 : longint); cdecl;external;
+Procedure XmbDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint); cdecl;external;
+Procedure XwcDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : Pwchar_t;_para8 : longint); cdecl;external;
+Procedure XmbDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint); cdecl;external;
+Procedure XwcDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : Pwchar_t;_para8 : longint); cdecl;external;
 {
-Function XOpenIM(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar) : TXIM; cdecl;
+Function XOpenIM(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar) : TXIM; cdecl;external;
 }
-Function XCloseIM(_para1 : TXIM) : TStatus; cdecl;
-Function XDisplayOfIM(_para1 : TXIM) : PDisplay; cdecl;
-Function XLocaleOfIM(_para1 : TXIM) : pchar; cdecl;
-Procedure XDestroyIC(_para1 : TXIC); cdecl;
-Procedure XSetICFocus(_para1 : TXIC); cdecl;
-Procedure XUnsetICFocus(_para1 : TXIC); cdecl;
-Function XwcResetIC(_para1 : TXIC) : Pwchar_t; cdecl;
-Function XmbResetIC(_para1 : TXIC) : pchar; cdecl;
-Function TXIMOfIC(_para1 : TXIC) : TXIM; cdecl;
-Function XFilterEvent(_para1 : PXEvent;_para2 : TWindow) : TBool; cdecl;
-Function XmbLookupString(_para1 : TXIC;_para2 : PXKeyPressedEvent;_para3 : pchar;_para4 : longint;_para5 : PKeySym;_para6 : PStatus) : longint; cdecl;
-Function XwcLookupString(_para1 : TXIC;_para2 : PXKeyPressedEvent;_para3 : Pwchar_t;_para4 : longint;_para5 : PKeySym;_para6 : PStatus) : longint; cdecl;
+Function XCloseIM(_para1 : TXIM) : TStatus; cdecl;external;
+Function XDisplayOfIM(_para1 : TXIM) : PDisplay; cdecl;external;
+Function XLocaleOfIM(_para1 : TXIM) : pchar; cdecl;external;
+Procedure XDestroyIC(_para1 : TXIC); cdecl;external;
+Procedure XSetICFocus(_para1 : TXIC); cdecl;external;
+Procedure XUnsetICFocus(_para1 : TXIC); cdecl;external;
+Function XwcResetIC(_para1 : TXIC) : Pwchar_t; cdecl;external;
+Function XmbResetIC(_para1 : TXIC) : pchar; cdecl;external;
+Function TXIMOfIC(_para1 : TXIC) : TXIM; cdecl;external;
+Function XFilterEvent(_para1 : PXEvent;_para2 : TWindow) : TBool; cdecl;external;
+Function XmbLookupString(_para1 : TXIC;_para2 : PXKeyPressedEvent;_para3 : pchar;_para4 : longint;_para5 : PKeySym;_para6 : PStatus) : longint; cdecl;external;
+Function XwcLookupString(_para1 : TXIC;_para2 : PXKeyPressedEvent;_para3 : Pwchar_t;_para4 : longint;_para5 : PKeySym;_para6 : PStatus) : longint; cdecl;external;
 {
-Function XRegisterIMInstantiateCallback(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar;_para5 : TXIMProc;_para6 : PXPointer) : TBool; cdecl;
-Function XUnregisterIMInstantiateCallback(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar;_para5 : TXIMProc;_para6 : PXPointer) : TBool; cdecl;
+Function XRegisterIMInstantiateCallback(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar;_para5 : TXIMProc;_para6 : PXPointer) : TBool; cdecl;external;
+Function XUnregisterIMInstantiateCallback(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar;_para5 : TXIMProc;_para6 : PXPointer) : TBool; cdecl;external;
 }
-Function XInternalConnectionNumbers(_para1 : PDisplay;_para2 : PPlongint;_para3 : Plongint) : TStatus; cdecl;
-Procedure XProcessInternalConnection(_para1 : PDisplay;_para2 : longint); cdecl;
-Function XAddConnectionWatch(_para1 : PDisplay;_para2 : TXConnectionWatchProc;_para3 : TXPointer) : TStatus; cdecl;
-Procedure XRemoveConnectionWatch(_para1 : PDisplay;_para2 : TXConnectionWatchProc;_para3 : TXPointer); cdecl;
+Function XInternalConnectionNumbers(_para1 : PDisplay;_para2 : PPlongint;_para3 : Plongint) : TStatus; cdecl;external;
+Procedure XProcessInternalConnection(_para1 : PDisplay;_para2 : longint); cdecl;external;
+Function XAddConnectionWatch(_para1 : PDisplay;_para2 : TXConnectionWatchProc;_para3 : TXPointer) : TStatus; cdecl;external;
+Procedure XRemoveConnectionWatch(_para1 : PDisplay;_para2 : TXConnectionWatchProc;_para3 : TXPointer); cdecl;external;
 
 implementation
 
-function XLoadQueryFont (para1 : PDisplay; para2 : pchar) : PXFontStruct; cdecl;external ;
-function XQueryFont(_para1 : PDisplay;_para2 : TXID) : PXFontStruct; cdecl;external ;
-function XGetMotionEvents(_para1 : PDisplay;_para2 : TWindow;_para3 : TTime;_para4 : TTime;_para5 : Plongint) : PXTimeCoord; cdecl;external ;
-function XDeleteModifiermapEntry(_para1 : PXModifierKeymap;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint) : PXModifierKeymap; cdecl;external ;
-function XGetModifierMapping(_para1 : PDisplay) : PXModifierKeymap; cdecl;external ;
-function XInsertModifiermapEntry(_para1 : PXModifierKeymap;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint) : PXModifierKeymap; cdecl;external ;
-function XNewModifiermap(_para1 : longint) : PXModifierKeymap; cdecl;external ;
-function XCreateImage(_para1 : PDisplay;_para2 : PVisual;_para3 : cardinal;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint) : PXImage; cdecl;external ;
-function XInitImage(_para1 : PXImage) : TStatus; cdecl;external ;
-function XGetImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint) : PXImage; cdecl;external ;
-function XGetSubImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : PXImage;_para10 : longint;_para11 : longint) : PXImage; cdecl;external ;
-function XOpenDisplay(_para1 : pchar) : PDisplay; cdecl;external ;
-procedure XrmInitialize; cdecl;external ;
-function XFetchBytes(_para1 : PDisplay;_para2 : Plongint) : pchar; cdecl;external ;
-function XFetchBuffer(_para1 : PDisplay;_para2 : Plongint;_para3 : longint) : pchar; cdecl;external ;
-function XGetAtomName(_para1 : PDisplay;_para2 : TAtom) : pchar; cdecl;external ;
-function XGetAtomNames(_para1 : PDisplay;_para2 : PAtom;_para3 : longint;_para4 : PPChar) : TStatus; cdecl;external ;
-function XGetDefault(_para1 : PDisplay;_para2 : pchar;_para3 : pchar) : pchar; cdecl;external ;
-function XDisplayName(_para1 : pchar) : pchar; cdecl;external ;
-function XKeysymToString(_para1 : TKeySym) : pchar; cdecl;external ;
-function XSynchronize(_para1 : PDisplay;_para2 : TBool) : longint; cdecl;external ;
-{ WHat to do with this ??? MVC
-function XSetAfterFunction(_para1 : PDisplay;_para2 : function(_para1 : PDisplay) : longint) : function : longint; cdecl;external ;
-}
-function XInternAtom(_para1 : PDisplay;_para2 : pchar;_para3 : TBool) : TAtom; cdecl;external ;
-function XInternAtoms(_para1 : PDisplay;_para2 : PPChar;_para3 : longint;_para4 : TBool;_para5 : PAtom) : TStatus; cdecl;external ;
-function XCopyColormapAndFree(_para1 : PDisplay;_para2 : TColormap) : TColormap; cdecl;external ;
-function XCreateColormap(_para1 : PDisplay;_para2 : TWindow;_para3 : PVisual;_para4 : longint) : TColormap; cdecl;external ;
-function XCreatePixmapCursor(_para1 : PDisplay;_para2 : TPixmap;_para3 : TPixmap;_para4 : PXColor;_para5 : PXColor;_para6 : cardinal;_para7 : cardinal) : TCursor; cdecl;external ;
-function XCreateGlyphCursor(_para1 : PDisplay;_para2 : TFont;_para3 : TFont;_para4 : cardinal;_para5 : cardinal;_para6 : PXColor;_para7 : PXColor) : TCursor; cdecl;external ;
-function XCreateFontCursor(_para1 : PDisplay;_para2 : cardinal) : TCursor; cdecl;external ;
-function XLoadFont(_para1 : PDisplay;_para2 : pchar) : TFont; cdecl;external ;
-function XCreateGC(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : PXGCValues) : TGC; cdecl;external ;
-function XGContextFromGC(_para1 : TGC) : TGContext; cdecl;external ;
-procedure XFlushGC(_para1 : PDisplay;_para2 : TGC); cdecl;external ;
-function XCreatePixmap(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : cardinal) : TPixmap; cdecl;external ;
-function XCreateBitmapFromData(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : cardinal;_para5 : cardinal) : TPixmap; cdecl;external ;
-function XCreatePixmapFromBitmapData(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : cardinal;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : cardinal) : TPixmap; cdecl;external ;
-function XCreateSimpleWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : cardinal;_para9 : cardinal) : TWindow; cdecl;external ;
-function XGetSelectionOwner(_para1 : PDisplay;_para2 : TAtom) : TWindow; cdecl;external ;
-function XCreateWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : cardinal;_para10 : PVisual;_para11 : cardinal;_para12 : PXSetWindowAttributes) : TWindow; cdecl;external ;
-function XListInstalledColormaps(_para1 : PDisplay;_para2 : TWindow;_para3 : Plongint) : PColormap; cdecl;external ;
-function XListFonts(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : Plongint) : PPChar; cdecl;external ;
-function XListFontsWithInfo(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : Plongint;_para5 : PPXFontStruct) : PPChar; cdecl;external ;
-function XGetFontPath(_para1 : PDisplay;_para2 : Plongint) : PPChar; cdecl;external ;
-function XListExtensions(_para1 : PDisplay;_para2 : Plongint) : PPChar; cdecl;external ;
-function XListProperties(_para1 : PDisplay;_para2 : TWindow;_para3 : Plongint) : PAtom; cdecl;external ;
-function XListHosts(_para1 : PDisplay;_para2 : Plongint;_para3 : PBool) : PXHostAddress; cdecl;external ;
-function XKeycodeToKeysym(_para1 : PDisplay;_para3 : TKeyCode;_para4 : longint) : TKeySym; cdecl;external ;
-{ Doesn't want ? MVC 
-function XLookupKeysym(_para1 : PXKeyEvent;_para2 : longint) : TKeySym; cdecl;external ;
-}
-function XGetKeyboardMapping(_para1 : PDisplay;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint;_para5 : Plongint) : PKeySym; cdecl;external ;
-function XStringToKeysym(_para1 : pchar) : TKeySym; cdecl;external ;
-function XMaxRequestSize(_para1 : PDisplay) : longint; cdecl;external ;
-function XExtendedMaxRequestSize(_para1 : PDisplay) : longint; cdecl;external ;
-function XResourceManagerString(_para1 : PDisplay) : pchar; cdecl;external ;
-function XScreenResourceString(_para1 : PScreen) : pchar; cdecl;external ;
-function XDisplayMotionBufferSize(_para1 : PDisplay) : cardinal; cdecl;external ;
-function XVisualIDFromVisual(_para1 : PVisual) : TVisualID; cdecl;external ;
-function XInitThreads : TStatus; cdecl;external ;
-procedure XLockDisplay(_para1 : PDisplay); cdecl;external ;
-procedure XUnlockDisplay(_para1 : PDisplay); cdecl;external ;
-function XInitExtension(_para1 : PDisplay;_para2 : pchar) : PXExtCodes; cdecl;external ;
-function XAddExtension(_para1 : PDisplay) : PXExtCodes; cdecl;external ;
-function XFindOnExtensionList(_para1 : PPXExtData;_para2 : longint) : PXExtData; cdecl;external ;
-function XEHeadOfExtensionList(_para1 : TXEDataObject) : PPXExtData; cdecl;external ;
-function XRootWindow(_para1 : PDisplay;_para2 : longint) : TWindow; cdecl;external ;
-function XDefaultRootWindow(_para1 : PDisplay) : TWindow; cdecl;external ;
-function XRootWindowOfScreen(_para1 : PScreen) : TWindow; cdecl;external ;
-function XDefaultVisual(_para1 : PDisplay;_para2 : longint) : PVisual; cdecl;external ;
-function XDefaultVisualOfScreen(_para1 : PScreen) : PVisual; cdecl;external ;
-function XDefaultGC(_para1 : PDisplay;_para2 : longint) : TGC; cdecl;external ;
-function XDefaultGCOfScreen(_para1 : PScreen) : TGC; cdecl;external ;
-function XBlackPixel(_para1 : PDisplay;_para2 : longint) : cardinal; cdecl;external ;
-function XWhitePixel(_para1 : PDisplay;_para2 : longint) : cardinal; cdecl;external ;
-function XAllPlanes : cardinal; cdecl;external ;
-function XBlackPixelOfScreen(_para1 : PScreen) : cardinal; cdecl;external ;
-function XWhitePixelOfScreen(_para1 : PScreen) : cardinal; cdecl;external ;
-function XNextRequest(_para1 : PDisplay) : cardinal; cdecl;external ;
-function XLastKnownRequestProcessed(_para1 : PDisplay) : cardinal; cdecl;external ;
-function XServerVendor(_para1 : PDisplay) : pchar; cdecl;external ;
-function XDisplayString(_para1 : PDisplay) : pchar; cdecl;external ;
-function XDefaultColormap(_para1 : PDisplay;_para2 : longint) : TColormap; cdecl;external ;
-function XDefaultColormapOfScreen(_para1 : PScreen) : TColormap; cdecl;external ;
-function XDisplayOfScreen(_para1 : PScreen) : PDisplay; cdecl;external ;
-function XScreenOfDisplay(_para1 : PDisplay;_para2 : longint) : PScreen; cdecl;external ;
-function XDefaultScreenOfDisplay(_para1 : PDisplay) : PScreen; cdecl;external ;
-function XEventMaskOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XScreenNumberOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XSetErrorHandler(_para1 : TXErrorHandler) : TXErrorHandler; cdecl;external ;
-function XSetIOErrorHandler(_para1 : TXIOErrorHandler) : TXIOErrorHandler; cdecl;external ;
-function XListPixmapFormats(_para1 : PDisplay;_para2 : Plongint) : PXPixmapFormatValues; cdecl;external ;
-function XListDepths(_para1 : PDisplay;_para2 : longint;_para3 : Plongint) : Plongint; cdecl;external ;
-function XReconfigureWMWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : cardinal;_para5 : PXWindowChanges) : TStatus; cdecl;external ;
-function XGetWMProtocols(_para1 : PDisplay;_para2 : TWindow;_para3 : PPAtom;_para4 : Plongint) : TStatus; cdecl;external ;
-function XSetWMProtocols(_para1 : PDisplay;_para2 : TWindow;_para3 : PAtom;_para4 : longint) : TStatus; cdecl;external ;
-function XIconifyWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : TStatus; cdecl;external ;
-function XWithdrawWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : TStatus; cdecl;external ;
-function XGetCommand(_para1 : PDisplay;_para2 : TWindow;_para3 : PPPChar;_para4 : Plongint) : TStatus; cdecl;external ;
-function XGetWMColormapWindows(_para1 : PDisplay;_para2 : TWindow;_para3 : PPWindow;_para4 : Plongint) : TStatus; cdecl;external ;
-function XSetWMColormapWindows(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : longint) : TStatus; cdecl;external ;
-procedure XFreeStringList(_para1 : PPChar); cdecl;external ;
-function XSetTransientForHint(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow) : longint; cdecl;external ;
-function XActivateScreenSaver(_para1 : PDisplay) : longint; cdecl;external ;
-function XAddHost(_para1 : PDisplay;_para2 : PXHostAddress) : longint; cdecl;external ;
-function XAddHosts(_para1 : PDisplay;_para2 : PXHostAddress;_para3 : longint) : longint; cdecl;external ;
-{
-function XAddToExtensionList(_para1 : ^^*;_para2 : PXExtData) : longint; cdecl;external ;
-}
-function XAddToSaveSet(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XAllocColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : TStatus; cdecl;external ;
-function XAllocColorCells(_para1 : PDisplay;_para2 : TColormap;_para3 : TBool;_para4 : PCardinal;_para5 : cardinal;_para6 : PCardinal;_para7 : cardinal) : TStatus; cdecl;external ;
-function XAllocColorPlanes(_para1 : PDisplay;_para2 : TColormap;_para3 : TBool;_para4 : PCardinal;_para5 : longint;_para6 : longint;_para7 : longint;_para8 : longint;_para9 : PCardinal;_para10 : PCardinal;_para11 : PCardinal) : TStatus; cdecl;external ;
-function XAllocNamedColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor;_para5 : PXColor) : TStatus; cdecl;external ;
-function XAllowEvents(_para1 : PDisplay;_para2 : longint;_para3 : TTime) : longint; cdecl;external ;
-function XAutoRepeatOff(_para1 : PDisplay) : longint; cdecl;external ;
-function XAutoRepeatOn(_para1 : PDisplay) : longint; cdecl;external ;
-function XBell(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XBitmapBitOrder(_para1 : PDisplay) : longint; cdecl;external ;
-function XBitmapPad(_para1 : PDisplay) : longint; cdecl;external ;
-function XBitmapUnit(_para1 : PDisplay) : longint; cdecl;external ;
-function XCellsOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XChangeActivePointerGrab(_para1 : PDisplay;_para2 : cardinal;_para3 : TCursor;_para4 : TTime) : longint; cdecl;external ;
-function XChangeGC(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : PXGCValues) : longint; cdecl;external ;
-function XChangeKeyboardControl(_para1 : PDisplay;_para2 : cardinal;_para3 : PXKeyboardControl) : longint; cdecl;external ;
-function XChangeKeyboardMapping(_para1 : PDisplay;_para2 : longint;_para3 : longint;_para4 : PKeySym;_para5 : longint) : longint; cdecl;external ;
-function XChangePointerControl(_para1 : PDisplay;_para2 : TBool;_para3 : TBool;_para4 : longint;_para5 : longint;_para6 : longint) : longint; cdecl;external ;
-function XChangeProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom;_para4 : TAtom;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint) : longint; cdecl;external ;
-function XChangeSaveSet(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;external ;
-function XChangeWindowAttributes(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : PXSetWindowAttributes) : longint; cdecl;external ;
-{
-function XCheckIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : TBool; cdecl;external ;
-}
-function XCheckMaskEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : TBool; cdecl;external ;
-function XCheckTypedEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : TBool; cdecl;external ;
-function XCheckTypedWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : TBool; cdecl;external ;
-function XCheckWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : TBool; cdecl;external ;
-function XCirculateSubwindows(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;external ;
-function XCirculateSubwindowsDown(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XCirculateSubwindowsUp(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XClearArea(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : TBool) : longint; cdecl;external ;
-function XClearWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XCloseDisplay(_para1 : PDisplay) : longint; cdecl;external ;
-function XConfigureWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : PXWindowChanges) : longint; cdecl;external ;
-function XConnectionNumber(_para1 : PDisplay) : longint; cdecl;external ;
-function XConvertSelection(_para1 : PDisplay;_para2 : TAtom;_para3 : TAtom;_para4 : TAtom;_para5 : TWindow;_para6 : TTime) : longint; cdecl;external ;
-function XCopyArea(_para1 : PDisplay;_para2 : TDrawable;_para3 : TDrawable;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint) : longint; cdecl;external ;
-function XCopyGC(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : TGC) : longint; cdecl;external ;
-function XCopyPlane(_para1 : PDisplay;_para2 : TDrawable;_para3 : TDrawable;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint;_para11 : cardinal) : longint; cdecl;external ;
-function XDefaultDepth(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XDefaultDepthOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XDefaultScreen(_para1 : PDisplay) : longint; cdecl;external ;
-function XDefineCursor(_para1 : PDisplay;_para2 : TWindow;_para3 : TCursor) : longint; cdecl;external ;
-function XDeleteProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom) : longint; cdecl;external ;
-function XDestroyWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XDestroySubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XDoesBackingStore(_para1 : PScreen) : longint; cdecl;external ;
-function XDoesSaveUnders(_para1 : PScreen) : TBool; cdecl;external ;
-function XDisableAccessControl(_para1 : PDisplay) : longint; cdecl;external ;
-function XDisplayCells(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XDisplayHeight(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XDisplayHeightMM(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XDisplayKeycodes(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint) : longint; cdecl;external ;
-function XDisplayPlanes(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XDisplayWidth(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XDisplayWidthMM(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XDrawArc(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;external ;
-function XDrawArcs(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXArc;_para5 : longint) : longint; cdecl;external ;
-function XDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : longint) : longint; cdecl;external ;
-function XDrawImageString16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXChar2b;_para7 : longint) : longint; cdecl;external ;
-function XDrawLine(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : longint;_para7 : longint) : longint; cdecl;external ;
-function XDrawLines(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint) : longint; cdecl;external ;
-function XDrawPoint(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint) : longint; cdecl;external ;
-function XDrawPoints(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint) : longint; cdecl;external ;
-function XDrawRectangle(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal) : longint; cdecl;external ;
-function XDrawRectangles(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXRectangle;_para5 : longint) : longint; cdecl;external ;
-function XDrawSegments(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXSegment;_para5 : longint) : longint; cdecl;external ;
-function XDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : longint) : longint; cdecl;external ;
-function XDrawString16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXChar2b;_para7 : longint) : longint; cdecl;external ;
-function XDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXTextItem;_para7 : longint) : longint; cdecl;external ;
-function XDrawText16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXTextItem16;_para7 : longint) : longint; cdecl;external ;
-function XEnableAccessControl(_para1 : PDisplay) : longint; cdecl;external ;
-function XEventsQueued(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XFetchName(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar) : TStatus; cdecl;external ;
-function XFillArc(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;external ;
-function XFillArcs(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXArc;_para5 : longint) : longint; cdecl;external ;
-function XFillPolygon(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint;_para7 : longint) : longint; cdecl;external ;
-function XFillRectangle(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal) : longint; cdecl;external ;
-function XFillRectangles(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXRectangle;_para5 : longint) : longint; cdecl;external ;
-function XFlush(_para1 : PDisplay) : longint; cdecl;external ;
-function XForceScreenSaver(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XFree(_para1 : pointer) : longint; cdecl;external ;
-function XFreeColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;external ;
-function XFreeColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PCardinal;_para4 : longint;_para5 : cardinal) : longint; cdecl;external ;
-function XFreeCursor(_para1 : PDisplay;_para2 : TCursor) : longint; cdecl;external ;
-function XFreeExtensionList(_para1 : PPChar) : longint; cdecl;external ;
-function XFreeFont(_para1 : PDisplay;_para2 : PXFontStruct) : longint; cdecl;external ;
-function XFreeFontInfo(_para1 : PPChar;_para2 : PXFontStruct;_para3 : longint) : longint; cdecl;external ;
-function XFreeFontNames(_para1 : PPChar) : longint; cdecl;external ;
-function XFreeFontPath(_para1 : PPChar) : longint; cdecl;external ;
-function XFreeGC(_para1 : PDisplay;_para2 : TGC) : longint; cdecl;external ;
-function XFreeModifiermap(_para1 : PXModifierKeymap) : longint; cdecl;external ;
-function XFreePixmap(_para1 : PDisplay;_para2 : TPixmap) : longint; cdecl;external ;
-function XGeometry(_para1 : PDisplay;_para2 : longint;_para3 : pchar;_para4 : pchar;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint;_para10 : Plongint;_para11 : Plongint;_para12 : Plongint;_para13 : Plongint) : longint; cdecl;external ;
-function XGetErrorDatabaseText(_para1 : PDisplay;_para2 : pchar;_para3 : pchar;_para4 : pchar;_para5 : pchar;_para6 : longint) : longint; cdecl;external ;
-function XGetErrorText(_para1 : PDisplay;_para2 : longint;_para3 : pchar;_para4 : longint) : longint; cdecl;external ;
-function XGetFontProperty(_para1 : PXFontStruct;_para2 : TAtom;_para3 : PCardinal) : TBool; cdecl;external ;
-function XGetGCValues(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : PXGCValues) : TStatus; cdecl;external ;
-function XGetGeometry(_para1 : PDisplay;_para2 : TDrawable;_para3 : PWindow;_para4 : Plongint;_para5 : Plongint;_para6 : PCardinal;_para7 : PCardinal;_para8 : PCardinal;_para9 : PCardinal) : TStatus; cdecl;external ;
-function XGetIconName(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar) : TStatus; cdecl;external ;
-function XGetInputFocus(_para1 : PDisplay;_para2 : PWindow;_para3 : Plongint) : longint; cdecl;external ;
-function XGetKeyboardControl(_para1 : PDisplay;_para2 : PXKeyboardState) : longint; cdecl;external ;
-function XGetPointerControl(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint;_para4 : Plongint) : longint; cdecl;external ;
-function XGetPointerMapping(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;external ;
-function XGetScreenSaver(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint;_para4 : Plongint;_para5 : Plongint) : longint; cdecl;external ;
-function XGetTransientForHint(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow) : TStatus; cdecl;external ;
-function XGetWindowProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom;_para4 : longint;_para5 : longint;_para6 : TBool;_para7 : TAtom;_para8 : PAtom;_para9 : Plongint;_para10 : PCardinal;_para11 : PCardinal;_para12 : PPChar) : longint; cdecl;external ;
-function XGetWindowAttributes(_para1 : PDisplay;_para2 : TWindow;_para3 : PXWindowAttributes) : TStatus; cdecl;external ;
-function XGrabButton(_para1 : PDisplay;_para2 : cardinal;_para3 : cardinal;_para4 : TWindow;_para5 : TBool;_para6 : cardinal;_para7 : longint;_para8 : longint;_para9 : TWindow;_para10 : TCursor) : longint; cdecl;external ;
-function XGrabKey(_para1 : PDisplay;_para2 : longint;_para3 : cardinal;_para4 : TWindow;_para5 : TBool;_para6 : longint;_para7 : longint) : longint; cdecl;external ;
-function XGrabKeyboard(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : longint;_para5 : longint;_para6 : TTime) : longint; cdecl;external ;
-function XGrabPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : cardinal;_para5 : longint;_para6 : longint;_para7 : TWindow;_para8 : TCursor;_para9 : TTime) : longint; cdecl;external ;
-function XGrabServer(_para1 : PDisplay) : longint; cdecl;external ;
-function XHeightMMOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XHeightOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-{
-function XIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : longint; cdecl;external ;
-}
-function XImageByteOrder(_para1 : PDisplay) : longint; cdecl;external ;
-function XInstallColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;external ;
-function XKeysymToKeycode(_para1 : PDisplay;_para2 : TKeySym) : TKeyCode; cdecl;external ;
-function XKillClient(_para1 : PDisplay;_para2 : TXID) : longint; cdecl;external ;
-{
-function XLastKnownRequestProcessed(_para1 : PDisplay) : cardinal; cdecl;external ;
-}
-function XLookupColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor;_para5 : PXColor) : TStatus; cdecl;external ;
-function XLowerWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XMapRaised(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XMapSubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XMapWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XMaskEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : longint; cdecl;external ;
-function XMaxCmapsOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XMinCmapsOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XMoveResizeWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal) : longint; cdecl;external ;
-function XMoveWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint) : longint; cdecl;external ;
-function XNextEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;external ;
-function XNoOp(_para1 : PDisplay) : longint; cdecl;external ;
-function XParseColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor) : TStatus; cdecl;external ;
-function XParseGeometry(_para1 : pchar;_para2 : Plongint;_para3 : Plongint;_para4 : PCardinal;_para5 : PCardinal) : longint; cdecl;external ;
-function XPeekEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;external ;
-{
-function XPeekIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : longint; cdecl;external ;
-}
-function XPending(_para1 : PDisplay) : longint; cdecl;external ;
-function XPlanesOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XProtocolRevision(_para1 : PDisplay) : longint; cdecl;external ;
-function XProtocolVersion(_para1 : PDisplay) : longint; cdecl;external ;
-function XPutBackEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;external ;
-function XPutImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXImage;_para5 : longint;_para6 : longint;_para7 : longint;_para8 : longint;_para9 : cardinal;_para10 : cardinal) : longint; cdecl;external ;
-function XQLength(_para1 : PDisplay) : longint; cdecl;external ;
-function XQueryBestCursor(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;external ;
-function XQueryBestSize(_para1 : PDisplay;_para2 : longint;_para3 : TDrawable;_para4 : cardinal;_para5 : cardinal;_para6 : PCardinal;_para7 : PCardinal) : TStatus; cdecl;external ;
-function XQueryBestStipple(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;external ;
-function XQueryBestTile(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;external ;
-function XQueryColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : longint; cdecl;external ;
-function XQueryColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor;_para4 : longint) : longint; cdecl;external ;
-function XQueryExtension(_para1 : PDisplay;_para2 : pchar;_para3 : Plongint;_para4 : Plongint;_para5 : Plongint) : TBool; cdecl;external ;
-{
-function XQueryKeymap(_para1 : PDisplay;_para2 : arraycdecl;external ;
-}
-function XQueryPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : PWindow;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : Plongint;_para9 : PCardinal) : TBool; cdecl;external ;
-function XQueryTextExtents(_para1 : PDisplay;_para2 : TXID;_para3 : pchar;_para4 : longint;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : PXCharStruct) : longint; cdecl;external ;
-function XQueryTextExtents16(_para1 : PDisplay;_para2 : TXID;_para3 : PXChar2b;_para4 : longint;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : PXCharStruct) : longint; cdecl;external ;
-function XQueryTree(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : PWindow;_para5 : PPWindow;_para6 : PCardinal) : TStatus; cdecl;external ;
-function XRaiseWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XReadBitmapFile(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : PCardinal;_para5 : PCardinal;_para6 : PPixmap;_para7 : Plongint;_para8 : Plongint) : longint; cdecl;external ;
-function XReadBitmapFileData(_para1 : pchar;_para2 : PCardinal;_para3 : PCardinal;_para4 : PPChar;_para5 : Plongint;_para6 : Plongint) : longint; cdecl;external ;
-function XRebindKeysym(_para1 : PDisplay;_para2 : TKeySym;_para3 : PKeySym;_para4 : longint;_para5 : pchar;_para6 : longint) : longint; cdecl;external ;
-function XRecolorCursor(_para1 : PDisplay;_para2 : TCursor;_para3 : PXColor;_para4 : PXColor) : longint; cdecl;external ;
-function XRefreshKeyboardMapping(_para1 : PXMappingEvent) : longint; cdecl;external ;
-function XRemoveFromSaveSet(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XRemoveHost(_para1 : PDisplay;_para2 : PXHostAddress) : longint; cdecl;external ;
-function XRemoveHosts(_para1 : PDisplay;_para2 : PXHostAddress;_para3 : longint) : longint; cdecl;external ;
-function XReparentWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint) : longint; cdecl;external ;
-function XResetScreenSaver(_para1 : PDisplay) : longint; cdecl;external ;
-function XResizeWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : cardinal) : longint; cdecl;external ;
-function XRestackWindows(_para1 : PDisplay;_para2 : PWindow;_para3 : longint) : longint; cdecl;external ;
-function XRotateBuffers(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XRotateWindowProperties(_para1 : PDisplay;_para2 : TWindow;_para3 : PAtom;_para4 : longint;_para5 : longint) : longint; cdecl;external ;
-function XScreenCount(_para1 : PDisplay) : longint; cdecl;external ;
-function XSelectInput(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;external ;
-function XSendEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : longint;_para5 : PXEvent) : TStatus; cdecl;external ;
-function XSetAccessControl(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XSetArcMode(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external ;
-function XSetBackground(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;external ;
-function XSetClipMask(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;external ;
-function XSetClipOrigin(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint) : longint; cdecl;external ;
-function XSetClipRectangles(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint;_para5 : PXRectangle;_para6 : longint;_para7 : longint) : longint; cdecl;external ;
-function XSetCloseDownMode(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XSetCommand(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar;_para4 : longint) : longint; cdecl;external ;
-function XSetDashes(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : pchar;_para5 : longint) : longint; cdecl;external ;
-function XSetFillRule(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external ;
-function XSetFillStyle(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external ;
-function XSetFont(_para1 : PDisplay;_para2 : TGC;_para3 : TFont) : longint; cdecl;external ;
-function XSetFontPath(_para1 : PDisplay;_para2 : PPChar;_para3 : longint) : longint; cdecl;external ;
-function XSetForeground(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;external ;
-function XSetFunction(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external ;
-function XSetGraphicsExposures(_para1 : PDisplay;_para2 : TGC;_para3 : TBool) : longint; cdecl;external ;
-function XSetIconName(_para1 : PDisplay;_para2 : TWindow;_para3 : pchar) : longint; cdecl;external ;
-function XSetInputFocus(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : TTime) : longint; cdecl;external ;
-function XSetLineAttributes(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : longint;_para5 : longint;_para6 : longint) : longint; cdecl;external ;
-function XSetModifierMapping(_para1 : PDisplay;_para2 : PXModifierKeymap) : longint; cdecl;external ;
-function XSetPlaneMask(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;external ;
-function XSetPointerMapping(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;external ;
-function XSetScreenSaver(_para1 : PDisplay;_para2 : longint;_para3 : longint;_para4 : longint;_para5 : longint) : longint; cdecl;external ;
-function XSetSelectionOwner(_para1 : PDisplay;_para2 : TAtom;_para3 : TWindow;_para4 : TTime) : longint; cdecl;external ;
-function XSetState(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : cardinal;_para5 : longint;_para6 : cardinal) : longint; cdecl;external ;
-function XSetStipple(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;external ;
-function XSetSubwindowMode(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external ;
-function XSetTSOrigin(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint) : longint; cdecl;external ;
-function XSetTile(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;external ;
-function XSetWindowBackground(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;external ;
-function XSetWindowBackgroundPixmap(_para1 : PDisplay;_para2 : TWindow;_para3 : TPixmap) : longint; cdecl;external ;
-function XSetWindowBorder(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;external ;
-function XSetWindowBorderPixmap(_para1 : PDisplay;_para2 : TWindow;_para3 : TPixmap) : longint; cdecl;external ;
-function XSetWindowBorderWidth(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;external ;
-function XSetWindowColormap(_para1 : PDisplay;_para2 : TWindow;_para3 : TColormap) : longint; cdecl;external ;
-function XStoreBuffer(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : longint) : longint; cdecl;external ;
-function XStoreBytes(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;external ;
-function XStoreColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : longint; cdecl;external ;
-function XStoreColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor;_para4 : longint) : longint; cdecl;external ;
-function XStoreName(_para1 : PDisplay;_para2 : TWindow;_para3 : pchar) : longint; cdecl;external ;
-function XStoreNamedColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : cardinal;_para5 : longint) : longint; cdecl;external ;
-function XSync(_para1 : PDisplay;_para2 : TBool) : longint; cdecl;external ;
-function XTextExtents(_para1 : PXFontStruct;_para2 : pchar;_para3 : longint;_para4 : Plongint;_para5 : Plongint;_para6 : Plongint;_para7 : PXCharStruct) : longint; cdecl;external ;
-function XTextExtents16(_para1 : PXFontStruct;_para2 : PXChar2b;_para3 : longint;_para4 : Plongint;_para5 : Plongint;_para6 : Plongint;_para7 : PXCharStruct) : longint; cdecl;external ;
-function XTextWidth(_para1 : PXFontStruct;_para2 : pchar;_para3 : longint) : longint; cdecl;external ;
-function XTextWidth16(_para1 : PXFontStruct;_para2 : PXChar2b;_para3 : longint) : longint; cdecl;external ;
-function XTranslateCoordinates(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint;_para6 : Plongint;_para7 : Plongint;_para8 : PWindow) : TBool; cdecl;external ;
-function XUndefineCursor(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XUngrabButton(_para1 : PDisplay;_para2 : cardinal;_para3 : cardinal;_para4 : TWindow) : longint; cdecl;external ;
-function XUngrabKey(_para1 : PDisplay;_para2 : longint;_para3 : cardinal;_para4 : TWindow) : longint; cdecl;external ;
-function XUngrabKeyboard(_para1 : PDisplay;_para2 : TTime) : longint; cdecl;external ;
-function XUngrabPointer(_para1 : PDisplay;_para2 : TTime) : longint; cdecl;external ;
-function XUngrabServer(_para1 : PDisplay) : longint; cdecl;external ;
-function XUninstallColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;external ;
-function XUnloadFont(_para1 : PDisplay;_para2 : TFont) : longint; cdecl;external ;
-function XUnmapSubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XUnmapWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XVendorRelease(_para1 : PDisplay) : longint; cdecl;external ;
-function XWarpPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;external ;
-function XWidthMMOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XWidthOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : longint; cdecl;external ;
-function XWriteBitmapFile(_para1 : PDisplay;_para2 : pchar;_para3 : TPixmap;_para4 : cardinal;_para5 : cardinal;_para6 : longint;_para7 : longint) : longint; cdecl;external ;
-function XSupportsLocale : TBool; cdecl;external ;
-function XSetLocaleModifiers(_para1 : pchar) : pchar; cdecl;external ;
-{
-function XOpenOM(_para1 : PDisplay;_para2 : ^*;_para3 : pchar;_para4 : pchar) : TXOM; cdecl;external ;
-}
-function XCloseOM(_para1 : TXOM) : TStatus; cdecl;external ;
-function XDisplayOfOM(_para1 : TXOM) : PDisplay; cdecl;external ;
-function XLocaleOfOM(_para1 : TXOM) : pchar; cdecl;external ;
-procedure XDestroyOC(_para1 : TXOC); cdecl;external ;
-function TXOMOfOC(_para1 : TXOC) : TXOM; cdecl;external ;
-function XCreateFontSet(_para1 : PDisplay;_para2 : pchar;_para3 : PPPChar;_para4 : Plongint;_para5 : PPChar) : TXFontSet; cdecl;external ;
-procedure XFreeFontSet(_para1 : PDisplay;_para2 : TXFontSet); cdecl;external ;
-function XFontsOfFontSet(_para1 : TXFontSet;_para2 : PPPXFontStruct;_para3 : PPPChar) : longint; cdecl;external ;
-function XBaseFontNameListOfFontSet(_para1 : TXFontSet) : pchar; cdecl;external ;
-function XLocaleOfFontSet(_para1 : TXFontSet) : pchar; cdecl;external ;
-function XContextDependentDrawing(_para1 : TXFontSet) : TBool; cdecl;external ;
-function XDirectionalDependentDrawing(_para1 : TXFontSet) : TBool; cdecl;external ;
-function XContextualDrawing(_para1 : TXFontSet) : TBool; cdecl;external ;
-function XExtentsOfFontSet(_para1 : TXFontSet) : PXFontSetExtents; cdecl;external ;
-function XmbTextEscapement(_para1 : TXFontSet;_para2 : pchar;_para3 : longint) : longint; cdecl;external ;
-function XwcTextEscapement(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint) : longint; cdecl;external ;
-function XmbTextExtents(_para1 : TXFontSet;_para2 : pchar;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle) : longint; cdecl;external ;
-function XwcTextExtents(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle) : longint; cdecl;external ;
-function XmbTextPerCharExtents(_para1 : TXFontSet;_para2 : pchar;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle;_para6 : longint;_para7 : Plongint;_para8 : PXRectangle;_para9 : PXRectangle) : TStatus; cdecl;external ;
-function XwcTextPerCharExtents(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle;_para6 : longint;_para7 : Plongint;_para8 : PXRectangle;_para9 : PXRectangle) : TStatus; cdecl;external ;
-procedure XmbDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXmbTextItem;_para7 : longint); cdecl;external ;
-procedure XwcDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXwcTextItem;_para7 : longint); cdecl;external ;
-procedure XmbDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint); cdecl;external ;
-procedure XwcDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : Pwchar_t;_para8 : longint); cdecl;external ;
-procedure XmbDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint); cdecl;external ;
-procedure XwcDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : Pwchar_t;_para8 : longint); cdecl;external ;
-{
-function XOpenIM(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar) : TXIM; cdecl;external ;
-}
-function XCloseIM(_para1 : TXIM) : TStatus; cdecl;external ;
-function XDisplayOfIM(_para1 : TXIM) : PDisplay; cdecl;external ;
-function XLocaleOfIM(_para1 : TXIM) : pchar; cdecl;external ;
-procedure XDestroyIC(_para1 : TXIC); cdecl;external ;
-procedure XSetICFocus(_para1 : TXIC); cdecl;external ;
-procedure XUnsetICFocus(_para1 : TXIC); cdecl;external ;
-function XwcResetIC(_para1 : TXIC) : Pwchar_t; cdecl;external ;
-function XmbResetIC(_para1 : TXIC) : pchar; cdecl;external ;
-function TXIMOfIC(_para1 : TXIC) : TXIM; cdecl;external ;
-function XFilterEvent(_para1 : PXEvent;_para2 : TWindow) : TBool; cdecl;external ;
-function XmbLookupString(_para1 : TXIC;_para2 : PXKeyPressedEvent;_para3 : pchar;_para4 : longint;_para5 : PKeySym;_para6 : PStatus) : longint; cdecl;external ;
-function XwcLookupString(_para1 : TXIC;_para2 : PXKeyPressedEvent;_para3 : Pwchar_t;_para4 : longint;_para5 : PKeySym;_para6 : PStatus) : longint; cdecl;external ;
+end.
 {
-function XRegisterIMInstantiateCallback(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar;_para5 : TXIMProc;_para6 : PXPointer) : TBool; cdecl;external ;
-function XUnregisterIMInstantiateCallback(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar;_para5 : TXIMProc;_para6 : PXPointer) : TBool; cdecl;external ;
-}
-function XInternalConnectionNumbers(_para1 : PDisplay;_para2 : PPlongint;_para3 : Plongint) : TStatus; cdecl;external ;
-procedure XProcessInternalConnection(_para1 : PDisplay;_para2 : longint); cdecl;external ;
-function XAddConnectionWatch(_para1 : PDisplay;_para2 : TXConnectionWatchProc;_para3 : TXPointer) : TStatus; cdecl;external ;
-procedure XRemoveConnectionWatch(_para1 : PDisplay;_para2 : TXConnectionWatchProc;_para3 : TXPointer); cdecl;external ;
-
+  $Log$
+  Revision 1.2  2000-02-27 13:11:31  peter
+    * cleanup, removed warnings
+    * external decls moved from implementation to interface
 
-begin
-end.
+}

packages/x11/xresource.pp

@@ -1,113 +1,106 @@
+{
+  $Id$
+}
 unit xresource;
-
 interface
 
-uses xlib;
+uses
+  xlib;
 
 
 {***************************************************************
- *
  * Quark Management
- *
  ***************************************************************}
 
-type 
- TXrmQuark     = Integer;
- PXrmQuark     = ^TXrmQuark;
- TXrmQuarkList = PXrmQuark;
-  
-  
- Const NULLQUARK = 0 ;
-
-type  TXrmString = Pchar;
+type
+  TXrmQuark     = Longint;
+  PXrmQuark     = ^TXrmQuark;
+  TXrmQuarkList = PXrmQuark;
+  TXrmString    = Pchar;
 
-const NULLSTRING = 0;
+Const
+  NULLQUARK = 0 ;
+  NULLSTRING = 0;
 
 { find quark for string, create new quark if none already exists }
-Function XrmStringToQuark( p1 : pchar ) : TXrmQuark;cdecl;
-
-Function  XrmPermStringToQuark( p1 : pchar ) : TXrmQuark;cdecl;
-
+Function  XrmStringToQuark( p1 : pchar ) : TXrmQuark;cdecl;external;
+Function  XrmPermStringToQuark( p1 : pchar ) : TXrmQuark;cdecl;external;
 { find string for quark }
-Function XrmQuarkToString( p1 : TXrmQuark) : TXrmString;cdecl;
-
-
-Function  XrmUniqueQuark : TXrmQuark;cdecl;
+Function  XrmQuarkToString( p1 : TXrmQuark) : TXrmString;cdecl;external;
+Function  XrmUniqueQuark : TXrmQuark;cdecl;external;
 
 {
 #define XrmStringsEqual(a1, a2) (strcmp(a1, a2) == 0)
 }
 
+
 {***************************************************************
- *
  * Conversion of Strings to Lists
- *
  ***************************************************************}
 
 type
- TXrmBinding = integer;
- TXrmBindingList = ^Integer;
-  Const XrmBindTightly = 0;
-        XrmBindLoosely = 1;
+  TXrmBinding = longint;
+  TXrmBindingList = ^longint;
+Const
+  XrmBindTightly = 0;
+  XrmBindLoosely = 1;
 
 procedure XrmStringToQuarkList(
-    p1 : pchar	{ string };
-    p2 : TXrmQuarkList	{ quarks_return }
-);cdecl;
+    p1 : pchar  { string };
+    p2 : TXrmQuarkList  { quarks_return }
+);cdecl;external;
 
 procedure XrmStringToBindingQuarkList(
-    p1 : pchar	{ string };
-    p2 : TXrmBindingList	{ bindings_return };
-    p3 : TXrmQuarkList	{ quarks_return }
-);cdecl;
+    p1 : pchar  { string };
+    p2 : TXrmBindingList        { bindings_return };
+    p3 : TXrmQuarkList  { quarks_return }
+);cdecl;external;
+
 
 {***************************************************************
- *
  * Name and Class lists.
- *
  ***************************************************************}
 
-type TXrmName = TXrmQuark;
-    TXrmNameList = TXrmQuarkList ;
- {
-#define XrmNameToString(name)		XrmQuarkToString(name)
-#define XrmStringToName(string)		XrmStringToQuark(string)
-#define XrmStringToNameList(str, name)	XrmStringToQuarkList(str, name)
+type
+  TXrmName = TXrmQuark;
+  TXrmNameList = TXrmQuarkList ;
+{
+#define XrmNameToString(name)           XrmQuarkToString(name)
+#define XrmStringToName(string)         XrmStringToQuark(string)
+#define XrmStringToNameList(str, name)  XrmStringToQuarkList(str, name)
 }
  TXrmClass = TXrmQuark;
  TXrmClassList = TXrmQuarkList;
 {
-#define XrmClassToString(c_class)	XrmQuarkToString(c_class)
-#define XrmStringToClass(c_class)	XrmStringToQuark(c_class)
+#define XrmClassToString(c_class)       XrmQuarkToString(c_class)
+#define XrmStringToClass(c_class)       XrmStringToQuark(c_class)
 #define XrmStringToClassList(str,c_class) XrmStringToQuarkList(str, c_class)
 }
 
 
 {***************************************************************
- *
  * Resource Representation Types and Values
- *
  ***************************************************************}
 
-type  TXrmRepresentation = TXrmQuark    ;
-      PXrmRepresentation = ^TXrmRepresentation;
+type
+  TXrmRepresentation = TXrmQuark    ;
+  PXrmRepresentation = ^TXrmRepresentation;
 {
 #define XrmStringToRepresentation(string)   XrmStringToQuark(string)
-#define	XrmRepresentationToString(type)   XrmQuarkToString(type)
+#define XrmRepresentationToString(type)   XrmQuarkToString(type)
 }
 
-type TXrmValue = record
+type
+  TXrmValue = record
     size : word;
     theaddr : TXPointer;
-end;
+  end;
   PXrmValue = ^TXrmValue;
   TXrmValuePtr = PXrmValue;
 
 
 {***************************************************************
- *
  * Resource Manager Functions
- *
  ***************************************************************}
 {
 typedef struct _XrmHashBucketRec *XrmHashBucket;
@@ -115,79 +108,80 @@ typedef XrmHashBucket *XrmHashTable;
 typedef XrmHashTable XrmSearchList[];
 typedef struct _XrmHashBucketRec *XrmDatabase;
 }
-Type TXrmHashBucket = pointer;
-     TXrmHashTable = ^TXrmHashBucket;
-     TXrmSearchList = ^TXrmHashTable;
-     TXrmDatabase = pointer;
-     PXrmDatabase = ^TXrmDatabase;
-     
+Type
+  TXrmHashBucket = pointer;
+  TXrmHashTable = ^TXrmHashBucket;
+  TXrmSearchList = ^TXrmHashTable;
+  TXrmDatabase = pointer;
+  PXrmDatabase = ^TXrmDatabase;
+
 procedure XrmDestroyDatabase(
-    p1 : TXrmDatabase		{ database }    
-);cdecl;
+    p1 : TXrmDatabase           { database }
+);cdecl;external;
 
 Procedure XrmQPutResource(
-    p1 :  PXrmDatabase	{ database };
-    p2 : TXrmBindingList	{ bindings };
-    p3 : TXrmQuarkList	{ quarks };
-    p4 : TXrmRepresentation	{ type };
-    p5 : PXrmValue		{ value }
-);cdecl;
+    p1 :  PXrmDatabase  { database };
+    p2 : TXrmBindingList        { bindings };
+    p3 : TXrmQuarkList  { quarks };
+    p4 : TXrmRepresentation     { type };
+    p5 : PXrmValue              { value }
+);cdecl;external;
 
 Procedure  XrmPutResource(
-    p1 : PXrmDatabase	{ database };
-    p2 : pchar	{ specifier };
-    p3 : pchar	{ type };
-    p4 : PXrmValue		{ value }
-);cdecl;
+    p1 : PXrmDatabase   { database };
+    p2 : pchar  { specifier };
+    p3 : pchar  { type };
+    p4 : PXrmValue              { value }
+);cdecl;external;
 
 Procedure  XrmQPutStringResource(
-    p1 : PXrmDatabase	{ database };
+    p1 : PXrmDatabase   { database };
     p2 : TXrmBindingList      { bindings };
-    p3 : TXrmQuarkList	{ quarks };
-    p4 : Pchar	{ value }
-);cdecl;
+    p3 : TXrmQuarkList  { quarks };
+    p4 : Pchar  { value }
+);cdecl;external;
 
 Procedure XrmPutStringResource(
-    P1 : PXrmDatabase	{ database };
+    P1 : PXrmDatabase   { database };
     p2,p3 : pchar
-);cdecl;
+);cdecl;external;
 
 Procedure XrmPutLineResource(
-    p1 : PXrmDatabase	{ database };
-    p2 : pchar	{ line }
-);cdecl;
+    p1 : PXrmDatabase   { database };
+    p2 : pchar  { line }
+);cdecl;external;
 
 Function XrmQGetResource(
-    p1 : PXrmDatabase		{ database };
-    p2 : TXrmNameList		{ quark_name };
-    p3 : TXrmClassList	{ quark_class };
-    p4 : PXrmRepresentation	{ quark_type_return };
-    p5 : PXrmValue		{ value_return }
-) : Integer;cdecl;
+    p1 : PXrmDatabase           { database };
+    p2 : TXrmNameList           { quark_name };
+    p3 : TXrmClassList  { quark_class };
+    p4 : PXrmRepresentation     { quark_type_return };
+    p5 : PXrmValue              { value_return }
+) : Integer;cdecl;external;
 
 Function XrmGetResource(
-    p1 : TXrmDatabase		{ database };
-    p2 : pchar	{ str_name };
-    p3 : pchar	{ str_class };
-    p4 : ppchar		{ str_type_return };
-    p5 : PXrmValue		{ value_return }
-) : Tbool;cdecl;
+    p1 : TXrmDatabase           { database };
+    p2 : pchar  { str_name };
+    p3 : pchar  { str_class };
+    p4 : ppchar         { str_type_return };
+    p5 : PXrmValue              { value_return }
+) : Tbool;cdecl;external;
 
 Function XrmQGetSearchList(
-    p1 : TXrmDatabase		{ database };
-    p2 : TXrmNameList		{ names };
-    p3 : TXrmClassList	{ classes };
-    p4 : TXrmSearchList	{ list_return };
-    p5 : integer			{ list_length }
-) : Tbool;cdecl;
+    p1 : TXrmDatabase           { database };
+    p2 : TXrmNameList           { names };
+    p3 : TXrmClassList  { classes };
+    p4 : TXrmSearchList { list_return };
+    p5 : integer                        { list_length }
+) : Tbool;cdecl;external;
 
 Function XrmQGetSearchResource(
-    P1 : TXrmSearchList	{ list };
-    p2 : TXrmName		{ name };
-    p3 : TXrmClass		{ class };
-    p4 : PXrmRepresentation	{ type_return };
-    p5 : PXrmValue		{ value_return }
-) : TBool;cdecl;
+    P1 : TXrmSearchList { list };
+    p2 : TXrmName               { name };
+    p3 : TXrmClass              { class };
+    p4 : PXrmRepresentation     { type_return };
+    p5 : PXrmValue              { value_return }
+) : TBool;cdecl;external;
 
 {***************************************************************
  *
@@ -196,69 +190,69 @@ Function XrmQGetSearchResource(
  ***************************************************************}
 
 procedure XrmSetDatabase(
-    p1 : PDisplay		{ display };
-    p2 : TXrmDatabase		{ database }
-);cdecl;
+    p1 : PDisplay               { display };
+    p2 : TXrmDatabase           { database }
+);cdecl;external;
 
 Function  XrmGetDatabase(
-    p1 : PDisplay		{ display }
-) : TXrmDatabase;cdecl;
+    p1 : PDisplay               { display }
+) : TXrmDatabase;cdecl;external;
 
 Function XrmGetFileDatabase(
-    p1 : pchar	{ filename }
-) : TXrmDatabase ;cdecl;
+    p1 : pchar  { filename }
+) : TXrmDatabase ;cdecl;external;
 
 Function XrmCombineFileDatabase(
-    p1 : pchar 	{ filename };
-    p2 : PXrmDatabase	{ target };
-    p3 : TBool		{ override }
-) : TStatus ;cdecl;
+    p1 : pchar  { filename };
+    p2 : PXrmDatabase   { target };
+    p3 : TBool          { override }
+) : TStatus ;cdecl;external;
 
 function XrmGetStringDatabase(
-    p1 : pchar	{ data }  {  null terminated string }
-) : TXrmDatabase ;cdecl;
+    p1 : pchar  { data }  {  null terminated string }
+) : TXrmDatabase ;cdecl;external;
 
 Procedure XrmPutFileDatabase(
-    p1 : TXrmDatabase		{ database };
-    p2: pchar	{ filename }
-);cdecl;
+    p1 : TXrmDatabase           { database };
+    p2: pchar   { filename }
+);cdecl;external;
 
 Procedure XrmMergeDatabases(
-    p1 : TXrmDatabase		{ source_db };
-    p2 : PXrmDatabase	{ target_db }
-);cdecl;
+    p1 : TXrmDatabase           { source_db };
+    p2 : PXrmDatabase   { target_db }
+);cdecl;external;
 
 procedure XrmCombineDatabase(
-    p1 : TXrmDatabase		{ source_db };
-    p2 : PXrmDatabase	{ target_db };
-    p3 : TBool		{ override }
-);cdecl;
+    p1 : TXrmDatabase           { source_db };
+    p2 : PXrmDatabase   { target_db };
+    p3 : TBool          { override }
+);cdecl;external;
 
 const
  XrmEnumAllLevels = 0;
  XrmEnumOneLevel  = 1;
-{
+(*
 Function XrmEnumerateDatabase(
-    XrmDatabase		{ db };
-    XrmNameList		{ name_prefix };
-    XrmClassList	{ class_prefix };
-    int			{ mode };
-    Bool (*)(#if NeedNestedPrototypes
-	     XrmDatabase*	{ db };
-	     XrmBindingList	{ bindings };
-	     XrmQuarkList	{ quarks };
-	     XrmRepresentation*	{ type };
-	     XrmValue*		{ value };
-	     XPointer		{ closure }
-
-	     )		{ proc };
-    XPointer		{ closure }
+    XrmDatabase         { db };
+    XrmNameList         { name_prefix };
+    XrmClassList        { class_prefix };
+    int                 { mode };
+    Bool *(#if NeedNestedPrototypes
+             XrmDatabase*       { db };
+             XrmBindingList     { bindings };
+             XrmQuarkList       { quarks };
+             XrmRepresentation* { type };
+             XrmValue*          { value };
+             XPointer           { closure }
+
+             )          { proc };
+    XPointer            { closure }
 ) : TBool;
-}
+*)
 
 Function XrmLocaleOfDatabase(
-    P1 : TXrmDatabase 	{ database }
-) : Pchar;cdecl;
+    P1 : TXrmDatabase   { database }
+) : Pchar;cdecl;external;
 
 
 {***************************************************************
@@ -268,190 +262,43 @@ Function XrmLocaleOfDatabase(
  ***************************************************************}
 
 Const
-    XrmoptionNoArg = 0;	{ Value is specified in OptionDescRec.value	    }
-    XrmoptionIsArg = 1;     { Value is the option string itself		    }
+    XrmoptionNoArg = 0; { Value is specified in OptionDescRec.value         }
+    XrmoptionIsArg = 1;     { Value is the option string itself             }
     XrmoptionStickyArg = 2; { Value is characters immediately following option }
-    XrmoptionSepArg = 3;    { Value is next argument in argv		    }
-    XrmoptionResArg = 4;	{ Resource and value in next argument in argv      }
+    XrmoptionSepArg = 3;    { Value is next argument in argv                }
+    XrmoptionResArg = 4;        { Resource and value in next argument in argv      }
     XrmoptionSkipArg = 5;   { Ignore this option and the next argument in argv }
-    XrmoptionSkipLine = 6;  { Ignore this option and the rest of argv	    }
-    XrmoptionSkipNArgs = 7;	{ Ignore this option and the next 
-			   OptionDescRes.value arguments in argv }
+    XrmoptionSkipLine = 6;  { Ignore this option and the rest of argv       }
+    XrmoptionSkipNArgs = 7;     { Ignore this option and the next
+                           OptionDescRes.value arguments in argv }
 Type TXrmOptionKind = Integer;
 
 TXrmOptionDescRec = record
-    option : pchar;	    { Option abbreviation in argv	    }
-    specifier : pchar;     { Resource specifier		    }
-    argKind : TXrmOptionKind;	    { Which style of option it is	    }
-    value : TXpointer;	    { Value to provide if XrmoptionNoArg   }
+    option : pchar;         { Option abbreviation in argv           }
+    specifier : pchar;     { Resource specifier             }
+    argKind : TXrmOptionKind;       { Which style of option it is           }
+    value : TXpointer;      { Value to provide if XrmoptionNoArg   }
 end;
-PXrmOptionDescRec= ^TXrmOptionDescRec; 
+PXrmOptionDescRec= ^TXrmOptionDescRec;
 TXrmOptionDescList = PXrmOptionDescRec;
 
 
 Procedure XrmParseCommand(
-    p1 : TXrmDatabase	{ database };
-    p2 : TXrmOptionDescList	{ table };
-    p3 : integer			{ table_count };
-    p4 : pchar	{ name };
-    p5 : Pointer		{ argc_in_out };
-    p6 : ppchar		{ argv_in_out }		     
-);cdecl;
+    p1 : TXrmDatabase   { database };
+    p2 : TXrmOptionDescList     { table };
+    p3 : integer                        { table_count };
+    p4 : pchar  { name };
+    p5 : Pointer                { argc_in_out };
+    p6 : ppchar         { argv_in_out }
+);cdecl;external;
 
 Implementation
 
-Function XrmStringToQuark( p1 : pchar ) : TXrmQuark; cdecl; external;
-Function XrmPermStringToQuark( p1 : pchar ) : TXrmQuark; cdecl; external;
-Function XrmQuarkToString( p1 : TXrmQuark) : TXrmString; cdecl; external;
-
-Function  XrmUniqueQuark : TXrmQuark; cdecl; external;
-procedure XrmStringToQuarkList(
-    p1 : pchar	{ string };
-    p2 : TXrmQuarkList	{ quarks_return }
-); cdecl; external;
-
-procedure XrmStringToBindingQuarkList(
-    p1 : pchar	{ string };
-    p2 : TXrmBindingList	{ bindings_return };
-    p3 : TXrmQuarkList	{ quarks_return }
-); cdecl; external;
-procedure XrmDestroyDatabase(
-    p1 : TXrmDatabase		{ database }    
-); cdecl; external;
-
-Procedure XrmQPutResource(
-    p1 :  PXrmDatabase	{ database };
-    p2 : TXrmBindingList	{ bindings };
-    p3 : TXrmQuarkList	{ quarks };
-    p4 : TXrmRepresentation	{ type };
-    p5 : PXrmValue		{ value }
-); cdecl; external;
-
-Procedure  XrmPutResource(
-    p1 : PXrmDatabase	{ database };
-    p2 : pchar	{ specifier };
-    p3 : pchar	{ type };
-    p4 : PXrmValue		{ value }
-); cdecl; external;
-
-Procedure  XrmQPutStringResource(
-    p1 : PXrmDatabase	{ database };
-    p2 : TXrmBindingList      { bindings };
-    p3 : TXrmQuarkList	{ quarks };
-    p4 : Pchar	{ value }
-); cdecl; external;
-
-procedure XrmPutStringResource(
-    P1 : PXrmDatabase	{ database };
-    p2,p3 : pchar
-); cdecl; external;
-
-Procedure XrmPutLineResource(
-    p1 : PXrmDatabase	{ database };
-    p2 : pchar	{ line }
-); cdecl; external;
-
-Function XrmQGetResource(
-    p1 : PXrmDatabase		{ database };
-    p2 : TXrmNameList		{ quark_name };
-    p3 : TXrmClassList	{ quark_class };
-    p4 : PXrmRepresentation	{ quark_type_return };
-    p5 : PXrmValue		{ value_return }
-) : Integer;  cdecl; external;
-
-Function XrmGetResource(
-    p1 : TXrmDatabase		{ database };
-    p2 : pchar	{ str_name };
-    p3 : pchar	{ str_class };
-    p4 : ppchar		{ str_type_return };
-    p5 : PXrmValue		{ value_return }
-) : Tbool; cdecl; external;
-
-Function XrmQGetSearchList(
-    p1 : TXrmDatabase		{ database };
-    p2 : TXrmNameList		{ names };
-    p3 : TXrmClassList	{ classes };
-    p4 : TXrmSearchList	{ list_return };
-    p5 : integer			{ list_length }
-) : Tbool; cdecl; external;
-
-Function XrmQGetSearchResource(
-    P1 : TXrmSearchList	{ list };
-    p2 : TXrmName		{ name };
-    p3 : TXrmClass		{ class };
-    p4 : PXrmRepresentation	{ type_return };
-    p5 : PXrmValue		{ value_return }
-) : TBool; cdecl; external;
-
-procedure XrmSetDatabase(
-    p1 : PDisplay		{ display };
-    p2 : TXrmDatabase		{ database }
-);  cdecl; external;
-
-Function  XrmGetDatabase(
-    p1 : PDisplay		{ display }
-) : TXrmDatabase; cdecl; external;
-
-Function XrmGetFileDatabase(
-    p1 : pchar	{ filename }
-) : TXrmDatabase ;  cdecl; external;
-
-Function XrmCombineFileDatabase(
-    p1 : pchar 	{ filename };
-    p2 : PXrmDatabase	{ target };
-    p3 : TBool		{ override }
-) : TStatus ;  cdecl; external;
-
-function XrmGetStringDatabase(
-    p1 : pchar	{ data }  {  null terminated string }
-) : TXrmDatabase ;  cdecl; external;
-
-Procedure XrmPutFileDatabase(
-    p1 : TXrmDatabase		{ database };
-    p2: pchar	{ filename }
-); cdecl; external;
-
-Procedure XrmMergeDatabases(
-    p1 : TXrmDatabase		{ source_db };
-    p2 : PXrmDatabase	{ target_db }
-); cdecl; external;
-
-procedure XrmCombineDatabase(
-    p1 : TXrmDatabase		{ source_db };
-    p2 : PXrmDatabase	{ target_db };
-    p3 : TBool		{ override }
-);  cdecl; external;
-
+end.
 {
-Function XrmEnumerateDatabase(
-    XrmDatabase		{ db };
-    XrmNameList		{ name_prefix };
-    XrmClassList	{ class_prefix };
-    int			{ mode };
-    Bool (*)(#if NeedNestedPrototypes
-	     XrmDatabase*	{ db };
-	     XrmBindingList	{ bindings };
-	     XrmQuarkList	{ quarks };
-	     XrmRepresentation*	{ type };
-	     XrmValue*		{ value };
-	     XPointer		{ closure }
-
-	     )		{ proc };
-    XPointer		{ closure }
-) : TBool; cdecl; external;
-}
+  $Log$
+  Revision 1.2  2000-02-27 13:11:31  peter
+    * cleanup, removed warnings
+    * external decls moved from implementation to interface
 
-Function XrmLocaleOfDatabase(
-    P1 : TXrmDatabase 	{ database }
-) : Pchar; cdecl; external;
-
-Procedure XrmParseCommand(
-    p1 : TXrmDatabase	{ database };
-    p2 : TXrmOptionDescList	{ table };
-    p3 : integer			{ table_count };
-    p4 : pchar	{ name };
-    p5 : Pointer		{ argc_in_out };
-    p6 : ppchar		{ argv_in_out }		     
-); cdecl; external;
-
-end.
+}

packages/x11/xutil.pp

@@ -1,184 +1,176 @@
-{$MODE objfpc}	// get integer sizes right
-
+{
+  $Id$
+}
 Unit XUtil;
-
 interface
+uses
+  x,xlib;
 
-uses x,xlib;
+{$linklib x11}
 
-{ You must include <X11/Xlib.h> before including this file }
-
-{ 
- * Bitmask returned by XParseGeometry().  Each bit tells if the corresponding
- * value (x, y, width, height) was found in the parsed string.
- }
+{
+  Bitmask returned by XParseGeometry().  Each bit tells if the corresponding
+  value (x, y, width, height) was found in the parsed string.
+}
 Const
- NoValue	=$0000;
- XValue  	=$0001;
- YValue		=$0002;
- WidthValue  	=$0004;
- HeightValue  	=$0008;
- AllValues 	=$000F;
- XNegative 	=$0010;
- YNegative 	=$0020;
+  NoValue       = $0000;
+  XValue        = $0001;
+  YValue        = $0002;
+  WidthValue    = $0004;
+  HeightValue   = $0008;
+  AllValues     = $000F;
+  XNegative     = $0010;
+  YNegative     = $0020;
 
 {
- * new version containing base_width, base_height, and win_gravity fields;
- * used with WM_NORMAL_HINTS.
- }
+  new version containing base_width, base_height, and win_gravity fields;
+  used with WM_NORMAL_HINTS.
+}
 Type
- long = Cardinal; { Untill we know better. M.}
-
-Type 
-TAspectRecord = record
-    x,y : integer;
-    end;
-
-TXSizeHints = record
-    	flags : Long;	{ marks which fields in this structure are defined }
-	x, y : Integer ;		{ obsolete for new window mgrs, but clients }
-	width, height: Integer ;	{ should set so old wm's don't mess up }
-	min_width, min_height : Integer ;
-	max_width, max_height : Integer ;
-    	width_inc, height_inc : Integer ;
-	min_aspect, max_aspect : TAspectRecord;
-	base_width, base_height : Integer ;		{ added by ICCCM version 1 }
-	win_gravity : Integer ;			{ added by ICCCM version 1 }
-end;
-PXSizeHints=^TXSizeHints;
+  long = Cardinal; { Untill we know better. M.}
+
+Type
+  TAspectRecord = record
+    x,y : longint;
+  end;
+
+  TXSizeHints = record
+        flags : Long;   { marks which fields in this structure are defined }
+        x, y : longint ;                { obsolete for new window mgrs, but clients }
+        width, height: longint ;        { should set so old wm's don't mess up }
+        min_width, min_height : longint ;
+        max_width, max_height : longint ;
+        width_inc, height_inc : longint ;
+        min_aspect, max_aspect : TAspectRecord;
+        base_width, base_height : longint ;             { added by ICCCM version 1 }
+        win_gravity : longint ;                 { added by ICCCM version 1 }
+  end;
+  PXSizeHints=^TXSizeHints;
 
 {
- * The next block of definitions are for window manager properties that
- * clients and applications use for communication.
- }
+  The next block of definitions are for window manager properties that
+  clients and applications use for communication.
+}
 
 { flags argument in size hints }
 Const
- USPosition	= 1 shl 0; { user specified x, y }
- USSize		= 1 shl 1; { user specified width, height }
-
- PPosition	= 1 shl 2; { program specified position }
- PSize		= 1 shl 3; { program specified size }
- PMinSize	= 1 shl 4; { program specified minimum size }
- PMaxSize	= 1 shl 5; { program specified maximum size }
- PResizeInc	= 1 shl 6; { program specified resize increments }
- PAspect	= 1 shl 7; { program specified min and max aspect ratios }
- PBaseSize	= 1 shl 8; { program specified base for incrementing }
- PWinGravity	= 1 shl 9; { program specified window gravity }
-
+  USPosition     = 1 shl 0; { user specified x, y }
+  USSize         = 1 shl 1; { user specified width, height }
+
+  PPosition      = 1 shl 2; { program specified position }
+  PSize          = 1 shl 3; { program specified size }
+  PMinSize       = 1 shl 4; { program specified minimum size }
+  PMaxSize       = 1 shl 5; { program specified maximum size }
+  PResizeInc     = 1 shl 6; { program specified resize increments }
+  PAspect        = 1 shl 7; { program specified min and max aspect ratios }
+  PBaseSize      = 1 shl 8; { program specified base for incrementing }
+  PWinGravity    = 1 shl 9; { program specified window gravity }
 { obsolete }
- PAllHints = PPosition or PSize or PMinSize or PMaxSize or PResizeInc or PAspect;
+  PAllHints = PPosition or PSize or PMinSize or PMaxSize or PResizeInc or PAspect;
 
 Type
+  TXWMHints = record
+        flags : long;   { marks which fields in this structure are defined }
+        input : TBool ; { does this application rely on the window manager to
+                        get keyboard input? }
+        initial_state : longint ;       { see below }
+        icon_pixmap : TPixmap ; { pixmap to be used as icon }
+        icon_window : TWindow ;         { window to be used as icon }
+        icon_x, icon_y : longint ;      { initial position of icon }
+        icon_mask : TPixmap ;   { icon mask bitmap }
+        window_group : TXID ;   { id of related window group }
+        { this structure may be extended in the future }
+  end;
 
- TXWMHints = record
-	flags : long;	{ marks which fields in this structure are defined }
-	input : TBool ;	{ does this application rely on the window manager to
-			get keyboard input? }
-	initial_state : Integer ;	{ see below }
-	icon_pixmap : TPixmap ;	{ pixmap to be used as icon }
-	icon_window : TWindow ; 	{ window to be used as icon }
-	icon_x, icon_y : Integer ; 	{ initial position of icon }
-	icon_mask : TPixmap ;	{ icon mask bitmap }
-	window_group : TXID ;	{ id of related window group }
-	{ this structure may be extended in the future }
-end;
 { definition for flags of XWMHints }
-
 Const
- InputHint 		= 1 shl 0;
- StateHint 		= 1 shl 1;
- IconPixmapHint		= 1 shl 2;
- IconWindowHint		= 1 shl 3;
- IconPositionHint 	= 1 shl 4;
- IconMaskHint		= 1 shl 5;
- AllHints = InputHint or StateHint or IconPixmapHint or IconWindowHint or 
-            IconPositionHint or IconMaskHint {or WindowGroupHint};
- XUrgencyHint		= 1 shl 8;
-
+  InputHint              = 1 shl 0;
+  StateHint              = 1 shl 1;
+  IconPixmapHint         = 1 shl 2;
+  IconWindowHint         = 1 shl 3;
+  IconPositionHint       = 1 shl 4;
+  IconMaskHint           = 1 shl 5;
+  AllHints = InputHint or StateHint or IconPixmapHint or IconWindowHint or
+             IconPositionHint or IconMaskHint {or WindowGroupHint};
+  XUrgencyHint           = 1 shl 8;
 { definitions for initial window state }
- WithdrawnState = 0;	{ for windows that are not mapped }
- NormalState 	= 1;	{ most applications want to start this way }
- IconicState 	= 3;	{ application wants to start as an icon }
-
-{
- * Obsolete states no longer defined by ICCCM
- }
- DontCareState	= 0;	{ don't know or care }
- ZoomState 	= 2;	{ application wants to start zoomed }
- InactiveState	= 4;	{ application believes it is seldom used; }
-			{ some wm's may put it on inactive menu }
-
+  WithdrawnState = 0;    { for windows that are not mapped }
+  NormalState    = 1;    { most applications want to start this way }
+  IconicState    = 3;    { application wants to start as an icon }
+{ Obsolete states no longer defined by ICCCM }
+  DontCareState  = 0;    { don't know or care }
+  ZoomState      = 2;    { application wants to start zoomed }
+  InactiveState  = 4;    { application believes it is seldom used; }
+                         { some wm's may put it on inactive menu }
 
 {
- * new structure for manipulating TEXT properties; used with WM_NAME, 
- * WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND.
- }
+  new structure for manipulating TEXT properties; used with WM_NAME,
+  WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND.
+}
 type
-TXTextProperty = record
-    value : pchar;		{ same as Property routines }
-    encoding : TAtom;			{ prop type }
-    format : Integer ;				{ prop data format: 8, 16, or 32 }
-    nitems : Cardinal;		{ number of data items in value }
-end;
-PXTextProperty = ^TXTextProperty;
+  TXTextProperty = record
+    value : pchar;              { same as Property routines }
+    encoding : TAtom;                   { prop type }
+    format : longint ;                          { prop data format: 8, 16, or 32 }
+    nitems : Cardinal;          { number of data items in value }
+  end;
+  PXTextProperty = ^TXTextProperty;
 
 Const
-
- XNoMemory 		=-1;
- XLocaleNotSupported	=-2;
- XConverterNotFound	=-3;
+  XNoMemory              =-1;
+  XLocaleNotSupported    =-2;
+  XConverterNotFound     =-3;
 
 Type
-  TXICCEncodingStyle = Integer;
+  TXICCEncodingStyle = longint;
 
 Const
-    XStringStyle 	= 0;		{ STRING }
-    XCompoundTextStyle	= 1;		{ COMPOUND_TEXT }
-    XTextStyle		= 2;		{ text in owner's encoding (current locale)}
-    XStdICCTextStyle	= 3;		{ STRING, else COMPOUND_TEXT }
+  XStringStyle        = 0;            { STRING }
+  XCompoundTextStyle  = 1;            { COMPOUND_TEXT }
+  XTextStyle          = 2;            { text in owner's encoding (current locale)}
+  XStdICCTextStyle    = 3;            { STRING, else COMPOUND_TEXT }
 
 Type
-TXIconSize = record
-	min_width, min_height,
-	max_width, max_height,
-	width_inc, height_inc : Integer;
-end;
-PXIconSize = ^TXIconSize;
+  TXIconSize = record
+        min_width, min_height,
+        max_width, max_height,
+        width_inc, height_inc : longint;
+  end;
+  PXIconSize = ^TXIconSize;
 
 type
-TXClassHint = record
-	res_name,
-	res_class : pchar;
-end;
-PXClassHint = ^TXClassHint;
+  TXClassHint = record
+        res_name,
+        res_class : pchar;
+  end;
+  PXClassHint = ^TXClassHint;
 
 {
  * These macros are used to give some sugar to the image routines so that
  * naive people are more comfortable with them.
- }
- 
+}
+
 {
  XDestroyImage(ximage) \
-	((*((ximage)->f.destroy_image))((ximage)))
+        ((*((ximage)->f.destroy_image))((ximage)))
  XGetPixel(ximage, x, y) \
-	((*((ximage)->f.get_pixel))((ximage), (x), (y)))
+        ((*((ximage)->f.get_pixel))((ximage), (x), (y)))
  XPutPixel(ximage, x, y, pixel) \
-	((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel)))
+        ((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel)))
  XSubImage(ximage, x, y, width, height)  \
-	((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height)))
+        ((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height)))
  XAddPixel(ximage, value) \
-	((*((ximage)->f.add_pixel))((ximage), (value)))
+        ((*((ximage)->f.add_pixel))((ximage), (value)))
 }
 {
  * Compose sequence status structure, used in calling XLookupString.
  }
 
-TXComposeStatus = record
-    compose_ptr : TXPointer ;	{ state table pointer }
-    chars_matched : Integer ;		{ match state }
-end;
-PTXComposeStatus = ^TXComposeStatus;
+  TXComposeStatus = record
+    compose_ptr : TXPointer ;   { state table pointer }
+    chars_matched : longint ;           { match state }
+  end;
+  PTXComposeStatus = ^TXComposeStatus;
 
 {
  * Keysym macros, used on Keysyms to test for classes of symbols
@@ -208,10 +200,10 @@ PTXComposeStatus = ^TXComposeStatus;
     or  or  ((KeySym)(keysym) == XK_Num_Lock))
 }
 {
- * opaque reference to Region data type 
+ * opaque reference to Region data type
  }
 {
-typedef struct _XRegion *Region; 
+typedef struct _XRegion *Region;
 }
 
 { Return values from XRectInRegion() }
@@ -219,7 +211,7 @@ Const
  RectangleOut =0;
  RectangleIn  =1;
  RectanglePart=2;
- 
+
 
 {
  * Information used by the visual utility routines to find desired visual
@@ -227,100 +219,87 @@ Const
  }
 
 Type
-TXVisualInfo = record
-  visual : PVisual;
-  visualid : TVisualID ;
-  screen : Integer;
-  depth : Integer;
-  c_class : Integer;
-  red_mask : cardinal;
-  green_mask : cardinal;
-  blue_mask : Cardinal;
-  colormap_size : Integer;
-  bits_per_rgb : Integer;
-end;
-PXVisualInfo = ^TXVisualInfo;
+  TXVisualInfo = record
+    visual : PVisual;
+    visualid : TVisualID ;
+    screen : longint;
+    depth : longint;
+    c_class : longint;
+    red_mask : cardinal;
+    green_mask : cardinal;
+    blue_mask : Cardinal;
+    colormap_size : longint;
+    bits_per_rgb : longint;
+  end;
+  PXVisualInfo = ^TXVisualInfo;
 
 Const
- VisualNoMask		= $0;
- VisualIDMask 		= $1;
- VisualScreenMask	= $2;
- VisualDepthMask	= $4;
- VisualClassMask	= $8;
- VisualRedMaskMask	= $10;
- VisualGreenMaskMask	= $20;
- VisualBlueMaskMask	= $40;
- VisualColormapSizeMask	= $80;
- VisualBitsPerRGBMask	= $100;
- VisualAllMask		= $1FF;
+  VisualNoMask           = $0;
+  VisualIDMask           = $1;
+  VisualScreenMask       = $2;
+  VisualDepthMask        = $4;
+  VisualClassMask        = $8;
+  VisualRedMaskMask      = $10;
+  VisualGreenMaskMask    = $20;
+  VisualBlueMaskMask     = $40;
+  VisualColormapSizeMask = $80;
+  VisualBitsPerRGBMask   = $100;
+  VisualAllMask          = $1FF;
 
 {
  * This defines a window manager property that clients may use to
  * share standard color maps of type RGB_COLOR_MAP:
  }
 Type
-TXStandardColormap = record
-	colormap : TColormap ;
-	red_max : Cardinal;
-	red_mult : Cardinal;
-	green_max : Cardinal;
-	green_mult : Cardinal;
-	blue_max : Cardinal;
-	blue_mult : Cardinal;
-	base_pixel : Cardinal;
-	visualid : TVisualID;		{ added by ICCCM version 1 }
-	killid : TXID ;			{ added by ICCCM version 1 }
-end;
-PXStandardColormap= ^TXStandardColormap;
-
-Const  
- ReleaseByFreeingColormap = 1;  { for killid field above }
+  TXStandardColormap = record
+        colormap : TColormap ;
+        red_max : Cardinal;
+        red_mult : Cardinal;
+        green_max : Cardinal;
+        green_mult : Cardinal;
+        blue_max : Cardinal;
+        blue_mult : Cardinal;
+        base_pixel : Cardinal;
+        visualid : TVisualID;           { added by ICCCM version 1 }
+        killid : TXID ;                 { added by ICCCM version 1 }
+  end;
+  PXStandardColormap= ^TXStandardColormap;
 
+Const
+  ReleaseByFreeingColormap = 1;  { for killid field above }
+{ return codes for XReadBitmapFile and XWriteBitmapFile }
+  BitmapSuccess          =0;
+  BitmapOpenFailed       =1;
+  BitmapFileInvalid      =2;
+  BitmapNoMemory         =3;
 
-{
- * return codes for XReadBitmapFile and XWriteBitmapFile
- }
- BitmapSuccess		=0;
- BitmapOpenFailed 	=1;
- BitmapFileInvalid 	=2;
- BitmapNoMemory		=3;
 
 {***************************************************************
- *
  * Context Management
- *
  ***************************************************************}
 
-
+const
 { Associative lookup table return codes }
-
- XCSUCCESS =0;	{ No error. }
- XCNOMEM   =1;    { Out of memory }
- XCNOENT   =2;    { No entry in table }
-
-type TXContext = Integer;
+  XCSUCCESS =0;  { No error. }
+  XCNOMEM   =1;    { Out of memory }
+  XCNOENT   =2;    { No entry in table }
+type
+  TXContext = longint;
 {
  XUniqueContext()       ((XContext) XrmUniqueQuark())
  XStringToContext(string)   ((XContext) XrmStringToQuark(string))
 }
 
-const _xlib = 'X11';
-
 function XGetVisualInfo(display: PDisplay; vinfo_mask: LongInt;
-  vinfo_template: PXVisualInfo; var nitems_return: Integer): PXVisualInfo;
-  cdecl; external _xlib;
-
+  vinfo_template: PXVisualInfo; var nitems_return: longint): PXVisualInfo;
+  cdecl; external;
 
-
-Implementation
-
-end.
-{
+(*
 _XFUNCPROTOBEGIN
 
 { The following declarations are alphabetized. }
 
-extern XClassHInteger *XAllocClassHInteger (
+extern XClassHlongint *XAllocClassHlongint (
 #if NeedFunctionPrototypes
     void
 #endif
@@ -352,8 +331,8 @@ extern XWMHints *XAllocWMHints (
 
 extern XClipBox(
 #if NeedFunctionPrototypes
-    Region		{ r },
-    XRectangle*		{ rect_return }
+    Region              { r },
+    XRectangle*         { rect_return }
 #endif
 );
 
@@ -369,535 +348,546 @@ extern char *XDefaultString(
 #endif
 );
 
-extern Integer XDeleteContext(
+extern longint XDeleteContext(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    XID			{ rid },
-    XContext		{ context }
+    Display*            { display },
+    XID                 { rid },
+    XContext            { context }
 #endif
 );
 
 extern XDestroyRegion(
 #if NeedFunctionPrototypes
-    Region		{ r }
+    Region              { r }
 #endif
 );
 
 extern XEmptyRegion(
 #if NeedFunctionPrototypes
-    Region		{ r }
+    Region              { r }
 #endif
 );
 
 extern XEqualRegion(
 #if NeedFunctionPrototypes
-    Region		{ r1 },
-    Region		{ r2 }
+    Region              { r1 },
+    Region              { r2 }
 #endif
 );
 
-extern Integer XFindContext(
+extern longint XFindContext(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    XID			{ rid },
-    XContext		{ context },
-    XPointer*		{ data_return }
+    Display*            { display },
+    XID                 { rid },
+    XContext            { context },
+    XPointer*           { data_return }
 #endif
 );
 
 extern Status XGetClassHint(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XClassHint*		{ class_hints_return }
+    Display*            { display },
+    Window              { w },
+    XClassHint*         { class_hints_return }
 #endif
 );
 
 extern Status XGetIconSizes(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XIconSize**		{ size_list_return },
-    int*		{ count_return }
+    Display*            { display },
+    Window              { w },
+    XIconSize**         { size_list_return },
+    int*                { count_return }
 #endif
 );
 
 extern Status XGetNormalHints(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XSizeHints*		{ hints_return }
+    Display*            { display },
+    Window              { w },
+    XSizeHints*         { hints_return }
 #endif
 );
 
 extern Status XGetRGBColormaps(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
+    Display*            { display },
+    Window              { w },
     XStandardColormap** { stdcmap_return },
-    int*		{ count_return },
-    Atom		{ property }
+    int*                { count_return },
+    Atom                { property }
 #endif
 );
 
 extern Status XGetSizeHints(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XSizeHints*		{ hints_return },
-    Atom		{ property }
+    Display*            { display },
+    Window              { w },
+    XSizeHints*         { hints_return },
+    Atom                { property }
 #endif
 );
 
 extern Status XGetStandardColormap(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XStandardColormap*	{ colormap_return },
-    Atom		{ property }			    
+    Display*            { display },
+    Window              { w },
+    XStandardColormap*  { colormap_return },
+    Atom                { property }
 #endif
 );
 
 extern Status XGetTextProperty(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ window },
-    XTextProperty*	{ text_prop_return },
-    Atom		{ property }
+    Display*            { display },
+    Window              { window },
+    XTextProperty*      { text_prop_return },
+    Atom                { property }
 #endif
 );
 
 extern XVisualInfo *XGetVisualInfo(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    long		{ vinfo_mask },
-    XVisualInfo*	{ vinfo_template },
-    int*		{ nitems_return }
+    Display*            { display },
+    long                { vinfo_mask },
+    XVisualInfo*        { vinfo_template },
+    int*                { nitems_return }
 #endif
 );
 
 extern Status XGetWMClientMachine(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XTextProperty*	{ text_prop_return }
+    Display*            { display },
+    Window              { w },
+    XTextProperty*      { text_prop_return }
 #endif
 );
 
 extern XWMHints *XGetWMHints(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w }		      
+    Display*            { display },
+    Window              { w }
 #endif
 );
 
 extern Status XGetWMIconName(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XTextProperty*	{ text_prop_return }
+    Display*            { display },
+    Window              { w },
+    XTextProperty*      { text_prop_return }
 #endif
 );
 
 extern Status XGetWMName(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XTextProperty*	{ text_prop_return }
+    Display*            { display },
+    Window              { w },
+    XTextProperty*      { text_prop_return }
 #endif
 );
 
 extern Status XGetWMNormalHints(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XSizeHints*		{ hints_return },
-    long*		{ supplied_return } 
+    Display*            { display },
+    Window              { w },
+    XSizeHints*         { hints_return },
+    long*               { supplied_return }
 #endif
 );
 
 extern Status XGetWMSizeHints(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XSizeHints*		{ hints_return },
-    long*		{ supplied_return },
-    Atom		{ property }
+    Display*            { display },
+    Window              { w },
+    XSizeHints*         { hints_return },
+    long*               { supplied_return },
+    Atom                { property }
 #endif
 );
 
 extern Status XGetZoomHints(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XSizeHints*		{ zhints_return }
+    Display*            { display },
+    Window              { w },
+    XSizeHints*         { zhints_return }
 #endif
 );
 
 extern XIntersectRegion(
 #if NeedFunctionPrototypes
-    Region		{ sra },
-    Region		{ srb },
-    Region		{ dr_return }
+    Region              { sra },
+    Region              { srb },
+    Region              { dr_return }
 #endif
 );
 
 extern void XConvertCase(
 #if NeedFunctionPrototypes
-    KeySym		{ sym },
-    KeySym*		{ lower },
-    KeySym*		{ upper }
+    KeySym              { sym },
+    KeySym*             { lower },
+    KeySym*             { upper }
 #endif
 );
 
-extern Integer XLookupString(
+extern longint XLookupString(
 #if NeedFunctionPrototypes
-    XKeyEvent*		{ event_struct },
-    char*		{ buffer_return },
-    int			{ bytes_buffer },
-    KeySym*		{ keysym_return },
-    XComposeStatus*	{ status_in_out }
+    XKeyEvent*          { event_struct },
+    char*               { buffer_return },
+    int                 { bytes_buffer },
+    KeySym*             { keysym_return },
+    XComposeStatus*     { status_in_out }
 #endif
 );
 
 extern Status XMatchVisualInfo(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    int			{ screen },
-    int			{ depth },
-    int			{ class },
-    XVisualInfo*	{ vinfo_return }
+    Display*            { display },
+    int                 { screen },
+    int                 { depth },
+    int                 { class },
+    XVisualInfo*        { vinfo_return }
 #endif
 );
 
 extern XOffsetRegion(
 #if NeedFunctionPrototypes
-    Region		{ r },
-    int			{ dx },
-    int			{ dy }
+    Region              { r },
+    int                 { dx },
+    int                 { dy }
 #endif
 );
 
 extern Bool XPointInRegion(
 #if NeedFunctionPrototypes
-    Region		{ r },
-    int			{ x },
-    int			{ y }
+    Region              { r },
+    int                 { x },
+    int                 { y }
 #endif
 );
 
 extern Region XPolygonRegion(
 #if NeedFunctionPrototypes
-    XPoint*		{ points },
-    int			{ n },
-    int			{ fill_rule }
+    XPoint*             { points },
+    int                 { n },
+    int                 { fill_rule }
 #endif
 );
 
-extern Integer XRectInRegion(
+extern longint XRectInRegion(
 #if NeedFunctionPrototypes
-    Region		{ r },
-    int			{ x },
-    int			{ y },
-    unsigned int	{ width },
-    unsigned int	{ height }
+    Region              { r },
+    int                 { x },
+    int                 { y },
+    unsigned int        { width },
+    unsigned int        { height }
 #endif
 );
 
-extern Integer XSaveContext(
+extern longint XSaveContext(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    XID			{ rid },
-    XContext		{ context },
-    _Xconst char*	{ data }
+    Display*            { display },
+    XID                 { rid },
+    XContext            { context },
+    _Xconst char*       { data }
 #endif
 );
 
 extern XSetClassHint(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XClassHint*		{ class_hints }
+    Display*            { display },
+    Window              { w },
+    XClassHint*         { class_hints }
 #endif
 );
 
 extern XSetIconSizes(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XIconSize*		{ size_list },
-    int			{ count }    
+    Display*            { display },
+    Window              { w },
+    XIconSize*          { size_list },
+    int                 { count }
 #endif
 );
 
 extern XSetNormalHints(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XSizeHints*		{ hints }
+    Display*            { display },
+    Window              { w },
+    XSizeHints*         { hints }
 #endif
 );
 
 extern void XSetRGBColormaps(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XStandardColormap*	{ stdcmaps },
-    int			{ count },
-    Atom		{ property }
+    Display*            { display },
+    Window              { w },
+    XStandardColormap*  { stdcmaps },
+    int                 { count },
+    Atom                { property }
 #endif
 );
 
 extern XSetSizeHints(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XSizeHints*		{ hints },
-    Atom		{ property }
+    Display*            { display },
+    Window              { w },
+    XSizeHints*         { hints },
+    Atom                { property }
 #endif
 );
 
 extern XSetStandardProperties(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    _Xconst char*	{ window_name },
-    _Xconst char*	{ icon_name },
-    Pixmap		{ icon_pixmap },
-    char**		{ argv },
-    int			{ argc },
-    XSizeHints*		{ hints }
+    Display*            { display },
+    Window              { w },
+    _Xconst char*       { window_name },
+    _Xconst char*       { icon_name },
+    Pixmap              { icon_pixmap },
+    char**              { argv },
+    int                 { argc },
+    XSizeHints*         { hints }
 #endif
 );
 
 extern void XSetTextProperty(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XTextProperty*	{ text_prop },
-    Atom		{ property }
+    Display*            { display },
+    Window              { w },
+    XTextProperty*      { text_prop },
+    Atom                { property }
 #endif
 );
 
 extern void XSetWMClientMachine(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XTextProperty*	{ text_prop }
+    Display*            { display },
+    Window              { w },
+    XTextProperty*      { text_prop }
 #endif
 );
 
 extern XSetWMHints(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XWMHints*		{ wm_hints }
+    Display*            { display },
+    Window              { w },
+    XWMHints*           { wm_hints }
 #endif
 );
 
 extern void XSetWMIconName(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XTextProperty*	{ text_prop }
+    Display*            { display },
+    Window              { w },
+    XTextProperty*      { text_prop }
 #endif
 );
 
 extern void XSetWMName(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XTextProperty*	{ text_prop }
+    Display*            { display },
+    Window              { w },
+    XTextProperty*      { text_prop }
 #endif
 );
 
 extern void XSetWMNormalHints(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XSizeHints*		{ hints }
+    Display*            { display },
+    Window              { w },
+    XSizeHints*         { hints }
 #endif
 );
 
 extern void XSetWMProperties(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XTextProperty*	{ window_name },
-    XTextProperty*	{ icon_name },
-    char**		{ argv },
-    int			{ argc },
-    XSizeHints*		{ normal_hints },
-    XWMHints*		{ wm_hints },
-    XClassHint*		{ class_hints }
+    Display*            { display },
+    Window              { w },
+    XTextProperty*      { window_name },
+    XTextProperty*      { icon_name },
+    char**              { argv },
+    int                 { argc },
+    XSizeHints*         { normal_hints },
+    XWMHints*           { wm_hints },
+    XClassHint*         { class_hints }
 #endif
 );
 
 extern void XmbSetWMProperties(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    _Xconst char*	{ window_name },
-    _Xconst char*	{ icon_name },
-    char**		{ argv },
-    int			{ argc },
-    XSizeHints*		{ normal_hints },
-    XWMHints*		{ wm_hints },
-    XClassHint*		{ class_hints }
+    Display*            { display },
+    Window              { w },
+    _Xconst char*       { window_name },
+    _Xconst char*       { icon_name },
+    char**              { argv },
+    int                 { argc },
+    XSizeHints*         { normal_hints },
+    XWMHints*           { wm_hints },
+    XClassHint*         { class_hints }
 #endif
 );
 
 extern void XSetWMSizeHints(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XSizeHints*		{ hints },
-    Atom		{ property }
+    Display*            { display },
+    Window              { w },
+    XSizeHints*         { hints },
+    Atom                { property }
 #endif
 );
 
 extern XSetRegion(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    GC			{ gc },
-    Region		{ r }
+    Display*            { display },
+    GC                  { gc },
+    Region              { r }
 #endif
 );
 
 extern void XSetStandardColormap(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XStandardColormap*	{ colormap },
-    Atom		{ property }
+    Display*            { display },
+    Window              { w },
+    XStandardColormap*  { colormap },
+    Atom                { property }
 #endif
 );
 
 extern XSetZoomHints(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    Window		{ w },
-    XSizeHints*		{ zhints }
+    Display*            { display },
+    Window              { w },
+    XSizeHints*         { zhints }
 #endif
 );
 
 extern XShrinkRegion(
 #if NeedFunctionPrototypes
-    Region		{ r },
-    int			{ dx },
-    int			{ dy }
+    Region              { r },
+    int                 { dx },
+    int                 { dy }
 #endif
 );
 
 extern Status XStringListToTextProperty(
 #if NeedFunctionPrototypes
-    char**		{ list },
-    int			{ count },
-    XTextProperty*	{ text_prop_return }
+    char**              { list },
+    int                 { count },
+    XTextProperty*      { text_prop_return }
 #endif
 );
 
 extern XSubtractRegion(
 #if NeedFunctionPrototypes
-    Region		{ sra },
-    Region		{ srb },
-    Region		{ dr_return }
+    Region              { sra },
+    Region              { srb },
+    Region              { dr_return }
 #endif
 );
 
-extern Integer XmbTextListToTextProperty(
+extern longint XmbTextListToTextProperty(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    char**		{ list },
-    int			{ count },
-    XICCEncodingStyle	{ style },
-    XTextProperty*	{ text_prop_return }
+    Display*            { display },
+    char**              { list },
+    int                 { count },
+    XICCEncodingStyle   { style },
+    XTextProperty*      { text_prop_return }
 #endif
 );
 
-extern Integer XwcTextListToTextProperty(
+extern longint XwcTextListToTextProperty(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    wchar_t**		{ list },
-    int			{ count },
-    XICCEncodingStyle	{ style },
-    XTextProperty*	{ text_prop_return }
+    Display*            { display },
+    wchar_t**           { list },
+    int                 { count },
+    XICCEncodingStyle   { style },
+    XTextProperty*      { text_prop_return }
 #endif
 );
 
 extern void XwcFreeStringList(
 #if NeedFunctionPrototypes
-    wchar_t**		{ list }
+    wchar_t**           { list }
 #endif
 );
 
 extern Status XTextPropertyToStringList(
 #if NeedFunctionPrototypes
-    XTextProperty*	{ text_prop },
-    char***		{ list_return },
-    int*		{ count_return }
+    XTextProperty*      { text_prop },
+    char***             { list_return },
+    int*                { count_return }
 #endif
 );
 
-extern Integer XmbTextPropertyToTextList(
+extern longint XmbTextPropertyToTextList(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    XTextProperty*	{ text_prop },
-    char***		{ list_return },
-    int*		{ count_return }
+    Display*            { display },
+    XTextProperty*      { text_prop },
+    char***             { list_return },
+    int*                { count_return }
 #endif
 );
 
-extern Integer XwcTextPropertyToTextList(
+extern longint XwcTextPropertyToTextList(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    XTextProperty*	{ text_prop },
-    wchar_t***		{ list_return },
-    int*		{ count_return }
+    Display*            { display },
+    XTextProperty*      { text_prop },
+    wchar_t***          { list_return },
+    int*                { count_return }
 #endif
 );
 
 extern XUnionRectWithRegion(
 #if NeedFunctionPrototypes
-    XRectangle*		{ rectangle },
-    Region		{ src_region },
-    Region		{ dest_region_return }
+    XRectangle*         { rectangle },
+    Region              { src_region },
+    Region              { dest_region_return }
 #endif
 );
 
 extern XUnionRegion(
 #if NeedFunctionPrototypes
-    Region		{ sra },
-    Region		{ srb },
-    Region		{ dr_return }
+    Region              { sra },
+    Region              { srb },
+    Region              { dr_return }
 #endif
 );
 
-extern Integer XWMGeometry(
+extern longint XWMGeometry(
 #if NeedFunctionPrototypes
-    Display*		{ display },
-    int			{ screen_number },
-    _Xconst char*	{ user_geometry },
-    _Xconst char*	{ default_geometry },
-    unsigned int	{ border_width },
-    XSizeHints*		{ hints },
-    int*		{ x_return },
-    int*		{ y_return },
-    int*		{ width_return },
-    int*		{ height_return },
-    int*		{ gravity_return }
+    Display*            { display },
+    int                 { screen_number },
+    _Xconst char*       { user_geometry },
+    _Xconst char*       { default_geometry },
+    unsigned int        { border_width },
+    XSizeHints*         { hints },
+    int*                { x_return },
+    int*                { y_return },
+    int*                { width_return },
+    int*                { height_return },
+    int*                { gravity_return }
 #endif
 );
 
 extern XXorRegion(
 #if NeedFunctionPrototypes
-    Region		{ sra },
-    Region		{ srb },
-    Region		{ dr_return }
+    Region              { sra },
+    Region              { srb },
+    Region              { dr_return }
 #endif
 );
 
 _XFUNCPROTOEND
 
 #endif { _XUTIL_H_ }
-}
+*)
+
+Implementation
+
+end.
+{
+  $Log$
+  Revision 1.3  2000-02-27 13:11:31  peter
+    * cleanup, removed warnings
+    * external decls moved from implementation to interface
+
+}