Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

X11.bi

Uploader:MitgliedThePuppetMaster
Datum/Zeit:09.03.2016 14:31:04

' An X Windows XLib framework for the open source FreeBASIC compiler.
'
' Translated by Detlef J�rgen Peters (Joshy)
'
' This software is provided 'as-is', without any express or implied warranty.
' In no event will the authors be held liable for any damages
' arising from the use of this software.
'
' 1. This notice may not be removed or altered from any source distribution.
'
' D.J.Peters@web.de

#ifndef __FB_X11_BI__
#define __FB_X11_BI__

#inclib "X11"

#ifndef NULL
#define NULL  0
#endif

#define XlibSpecificationRelease 6
#define X_PROTOCOL               11 ' current protocol version
#define X_PROTOCOL_REVISION      0  ' current minor version

enum XBOOLEAN
  XFalse = 0
  XTrue  = 1
end enum

' Resources
type Mask      as uinteger
type ATOM      as uinteger
type XTIME     as uinteger

type XID       as uinteger
type VISUALID  as XID
type WINDOWID  as XID
type DRAWABLE  as XID
type FONT      as XID
type PIXMAP    as XID
type CURSOR    as XID
type COLORMAP  as XID
type GCONTEXT  as XID
type KEYSYM    as XID
type KEYCODE   as ubyte
type XPOINTER  as byte ptr
type XCONTEXT  as integer
#Ifndef WCHAR_T
    type WCHAR_T   as short
#endif

'**********************************************
'* RESERVED RESOURCE AND CONSTANT DEFINITIONS *
'**********************************************
#define None                    0 ' universal null resource or null atom
#define ParentRelative          1 ' background pixmap in CreateWindow and ChangeWindowAttributes

'*********************
'* EVENT DEFINITIONS *
'*********************
' Input Event Masks.
' Used as event-mask window attribute and as arguments to Grab requests.
enum EVENTMASKS
  NoEventMask                   = 0
  KeyPressMask                  = ( 1 shl 0)
  KeyReleaseMask                = ( 1 shl 1)
  ButtonPressMask               = ( 1 shl 2)
  ButtonReleaseMask             = ( 1 shl 3)
  EnterWindowMask               = ( 1 shl 4)
  LeaveWindowMask               = ( 1 shl 5)
  PointerMotionMask             = ( 1 shl 6)
  PointerMotionHintMask         = ( 1 shl 7)
  Button1MotionMask             = ( 1 shl 8)
  Button2MotionMask             = ( 1 shl 9)
  Button3MotionMask             = ( 1 shl 10)
  Button4MotionMask             = ( 1 shl 11)
  Button5MotionMask             = ( 1 shl 12)
  ButtonMotionMask              = ( 1 shl 13)
  KeymapStateMask               = ( 1 shl 14)
  ExposureMask                  = ( 1 shl 15)
  VisibilityChangeMask          = ( 1 shl 16)
  StructureNotifyMask           = ( 1 shl 17)
  ResizeRedirectMask            = ( 1 shl 18)
  SubstructureNotifyMask        = ( 1 shl 19)
  SubstructureRedirectMask      = ( 1 shl 20)
  FocusChangeMask               = ( 1 shl 21)
  PropertyChangeMask            = ( 1 shl 22)
  ColormapChangeMask            = ( 1 shl 23)
  OwnerGrabButtonMask           = ( 1 shl 24)
  AllEventsMask                 = &HFFFFFF
end enum

' Event names.  Used in "type" field in structures
' They start from 2 because 0 and 1 are reserved in the protocol for errors and replies.
enum EVENTTYPES
  KeyPress         = 2
  KeyRelease       = 3
  ButtonPress      = 4
  ButtonRelease    = 5
  MotionNotify     = 6
  EnterNotify      = 7
  LeaveNotify      = 8
  FocusIn          = 9
  FocusOut         = 10
  KeymapNotify     = 11
  Expose           = 12
  GraphicsExpose   = 13
  NoExpose         = 14
  VisibilityNotify = 15
  CreateNotify     = 16
  DestroyNotify    = 17
  UnmapNotify      = 18
  MapNotify        = 19
  MapRequest       = 20
  ReparentNotify   = 21
  ConfigureNotify  = 22
  ConfigureRequest = 23
  GravityNotify    = 24
  ResizeRequest    = 25
  CirculateNotify  = 26
  CirculateRequest = 27
  PropertyNotify   = 28
  SelectionClear   = 29
  SelectionRequest = 30
  SelectionNotify  = 31
  ColormapNotify   = 32
  ClientMessage    = 33
  MappingNotify    = 34
  LASTEvent         ' 35 must be bigger than any event #
end enum

' Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer,
' state in various key-, mouse-, and button-related events
enum KEYMASKS
  ShiftMask    = ( 1 shl 0)
  LockMask     = ( 1 shl 1)
  ControlMask  = ( 1 shl 2)
  Mod1Mask     = ( 1 shl 3)
  Mod2Mask     = ( 1 shl 4)
  Mod3Mask     = ( 1 shl 5)
  Mod4Mask     = ( 1 shl 6)
  Mod5Mask     = ( 1 shl 7)
end enum

' modifier names.  Used to build a SetModifierMapping request or to read a GetModifierMapping request.
' These correspond to the masks defined above.
enum KEYINDEXES
  ShiftMapIndex
  LockMapIndex
  ControlMapIndex
  Mod1MapIndex
  Mod2MapIndex
  Mod3MapIndex
  Mod4MapIndex
  Mod5MapIndex
end enum

' button masks.  Used in same manner as Key masks above
enum BUTTONMASKS
  Button1Mask   =(1 shl 8)
  Button2Mask   =(1 shl 9)
  Button3Mask   =(1 shl 10)
  Button4Mask   =(1 shl 11)
  Button5Mask   =(1 shl 12)
  AnyModifier   =(1 shl 15)  ' used in GrabButton, GrabKey
end enum
' button names. Used as arguments to GrabButton and as detail in ButtonPress
' and ButtonRelease events.  Not to be confused with button masks above.
' Note that 0 is already defined above as "AnyButton"
#define Button1        1
#define Button2        2
#define Button3        3
#define Button4        4
#define Button5        5

' Notify modes
#define NotifyNormal           0
#define NotifyGrab             1
#define NotifyUngrab           2
#define NotifyWhileGrabbed     3
#define NotifyHint             1 ' for MotionNotify events

' Notify detail
#define NotifyAncestor                  0
#define NotifyVirtual                   1
#define NotifyInferior                  2
#define NotifyNonlinear                 3
#define NotifyNonlinearVirtual          4
#define NotifyPointer                   5
#define NotifyPointerRoot               6
#define NotifyDetailNone                7

' Visibility notify
#define VisibilityUnobscured            0
#define VisibilityPartiallyObscured     1
#define VisibilityFullyObscured         2

' Circulation request
#define PlaceOnTop                      0
#define PlaceOnBottom                   1

' protocol families
#define FamilyInternet                  0       ' IPv4
#define FamilyDECnet                    1
#define FamilyChaos                     2
#define FamilyInternet6                 6       ' IPv6

' authentication families not tied to a specific protocol
#define FamilyServerInterpreted         5

' Property notification
#define PropertyNewValue                0
#define PropertyDelete                  1

' Color Map notification
#define ColormapUninstalled             0
#define ColormapInstalled               1

' GrabPointer, GrabButton, GrabKeyboard, GrabKey Modes
#define GrabModeSync                    0
#define GrabModeAsync                   1

' GrabPointer, GrabKeyboard reply status
#define GrabSuccess                     0
#define AlreadyGrabbed                  1
#define GrabInvalidTime                 2
#define GrabNotViewable                 3
#define GrabFrozen                      4

' AllowEvents modes
#define AsyncPointer                    0
#define SyncPointer                     1
#define ReplayPointer                   2
#define AsyncKeyboard                   3
#define SyncKeyboard                    4
#define ReplayKeyboard                  5
#define AsyncBoth                       6
#define SyncBoth                        7

' Used in SetInputFocus, GetInputFocus
#define RevertToNone                    None
#define RevertToPointerRoot             PointerRoot
#define RevertToParent                  2

'***************
'* ERROR CODES *
'***************
#define Success                 0       ' everything's okay
#define BadRequest              1       ' bad request code
#define BadValue                2       ' int parameter out of range
#define BadWindow               3       ' parameter not a Window
#define BadPixmap               4       ' parameter not a Pixmap
#define BadAtom                 5       ' parameter not an Atom
#define BadCursor               6       ' parameter not a Cursor
#define BadFont                 7       ' parameter not a Font
#define BadMatch                8       ' parameter mismatch
#define BadDrawable             9       ' parameter not a Pixmap or Window
#define BadAccess               10      ' 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.
#define BadAlloc                11      ' insufficient resources
#define BadColor                12      ' no such colormap
#define BadGC                   13      ' parameter not a GC
#define BadIDChoice             14      ' choice not in range or already used
#define BadName                 15      ' font or color name doesn't exist
#define BadLength               16      ' Request length incorrect
#define BadImplementation       17      ' server is defective

#define FirstExtensionError     128
#define LastExtensionError      255

'**********************
'* WINDOW DEFINITIONS *
'**********************
' Window classes used by CreateWindow
enum WINDOWCLASSES
  CopyFromParent=0
  InputOutput=1
  InputOnly=2
end enum

' border pixmap in CreateWindow and ChangeWindowAttributes1
' special VisualID and special window class passed to CreateWindow
#define PointerWindow          0 ' destination window in SendEvent
#define InputFocus             1 ' destination window in SendEvent
#define PointerRoot            1 ' focus window in SetInputFocus
#define AnyPropertyType        0 ' special Atom, passed to GetProperty
#define AnyKey                 0 ' special Key Code, passed to GrabKey
#define AnyButton              0 ' special Button Code, passed to GrabButton
#define AllTemporary           0 ' special Resource ID passed to KillClient
#define CurrentTime            0 ' special XTIME
#define NoSymbol               0 ' special KeySym

' Window attributes for CreateWindow and ChangeWindowAttributes
enum WINDOWATTRIBUTEMASKS
  CWBackPixmap         = (1 shl 0)
  CWBackPixel          = (1 shl 1)
  CWBorderPixmap       = (1 shl 2)
  CWBorderPixel        = (1 shl 3)
  CWBitGravity         = (1 shl 4)
  CWWinGravity         = (1 shl 5)
  CWBackingStore       = (1 shl 6)
  CWBackingPlanes      = (1 shl 7)
  CWBackingPixel       = (1 shl 8)
  CWOverrideRedirect   = (1 shl 9)
  CWSaveUnder          = (1 shl 10)
  CWEventMask          = (1 shl 11)
  CWDontPropagate      = (1 shl 12)
  CWColormap           = (1 shl 13)
  CWCursor             = (1 shl 14)
end enum

' ConfigureWindow structure
enum CONFIGUREWINDOWVALUES
  CWX                  = (1 shl 0)
  CWY                  = (1 shl 1)
  CWWidth              = (1 shl 2)
  CWHeight             = (1 shl 3)
  CWBorderWidth        = (1 shl 4)
  CWSibling            = (1 shl 5)
  CWStackMode          = (1 shl 6)
end enum

' Bit Gravity
enum BITGRAVITYS
  ForgetGravity
  NorthWestGravity
  NorthGravity
  NorthEastGravity
  WestGravity
  CenterGravity
  EastGravity
  SouthWestGravity
  SouthGravity
  SouthEastGravity
  StaticGravity
end enum

' Window gravity + bit gravity above
#define UnmapGravity                    0

' Used in CreateWindow for backing-store hint
enum BACKINGSTOREHINTS
  NotUseful
  WhenMapped
  Always
end enum

' Used in GetWindowAttributes reply
enum MAPSTATES
  IsUnmapped
  IsUnviewable
  IsViewable
end enum

' Used in ChangeSaveSet
#define SetModeInsert          0
#define SetModeDelete          1

' Used in ChangeCloseDownMode
#define DestroyAll             0
#define RetainPermanent        1
#define RetainTemporary        2

' Window stacking method (in configureWindow)
#define Above                  0
#define Below                  1
#define TopIf                  2
#define BottomIf               3
#define Opposite               4

' Circulation direction
#define RaiseLowest            0
#define LowerHighest           1

' Property modes
#define PropModeReplace        0
#define PropModePrepend        1
#define PropModeAppend         2

'************************
'* GRAPHICS DEFINITIONS *
'************************
' graphics functions, as in GC.alu
enum GCFUNCTIONS
  GXclear        = 0
  GXand          = 1' src AND dst
  GXandReverse   = 2' src AND NOT dst
  GXcopy         = 3' src
  GXandInverted  = 4' NOT src AND dst
  GXnoop         = 5' dst
  GXxor          = 6' src XOR dst
  GXor           = 7' src OR dst
  GXnor          = 8' NOT src AND NOT dst
  GXequiv        = 9' NOT src XOR dst
  GXinvert       =10' NOT dst
  GXorReverse    =11' src OR NOT dst
  GXcopyInverted =12' NOT src
  GXorInverted   =13' NOT src OR dst
  GXnand         =14' NOT src OR NOT dst
  GXset          =15' 1
end enum

enum LINESTYLES
  LineSolid
  LineOnOffDash
  LineDoubleDash
end enum

enum CAPSTYLES
  CapNotLast
  CapButt
  CapRound
  CapProjecting
end enum

enum  JOINSTYLES
  JoinMiter
  JoinRound
  JoinBevel
end enum

enum FILLSTYLES
  FillSolid
  FillTiled
  FillStippled
  FillOpaqueStippled
end enum

enum FILLRULES
  EvenOddRule
  WindingRule
end enum

enum SUBWINDOWMODES
  ClipByChildren
  IncludeInferiors
end enum

' SetClipRectangles ordering
enum CLIPORDERINGS
  Unsorted
  YSorted
  YXSorted
  YXBanded
end enum

' CoordinateMode for drawing routines
enum COORDMODES
  CoordModeOrigin              ' relative to the origin
  CoordModePrevious            ' relative to previous point
end enum

enum POLYGONESHAPES
  Complex                      ' paths may intersect
  Nonconvex                    ' no paths intersect, but not convex
  Convex                       ' wholly convex
end enum

enum  ARCMODES
  ArcChord                     ' join endpoints of arc
  ArcPieSlice                  ' join endpoints to center of arc
end enum

' GC components: masks used in CreateGC, CopyGC, ChangeGC, GC.stateChanges
enum GCVALUEMASKS
  GCFunction           = (1 shl 0)
  GCPlaneMask          = (1 shl 1)
  GCForeground         = (1 shl 2)
  GCBackground         = (1 shl 3)
  GCLineWidth          = (1 shl 4)
  GCLineStyle          = (1 shl 5)
  GCCapStyle           = (1 shl 6)
  GCJoinStyle          = (1 shl 7)
  GCFillStyle          = (1 shl 8)
  GCFillRule           = (1 shl 9)
  GCTile               = (1 shl 10)
  GCStipple            = (1 shl 11)
  GCTileStipXOrigin    = (1 shl 12)
  GCTileStipYOrigin    = (1 shl 13)
  GCFont               = (1 shl 14)
  GCSubwindowMode      = (1 shl 15)
  GCGraphicsExposures  = (1 shl 16)
  GCClipXOrigin        = (1 shl 17)
  GCClipYOrigin        = (1 shl 18)
  GCClipMask           = (1 shl 19)
  GCDashOffset         = (1 shl 20)
  GCDashList           = (1 shl 21)
  GCArcMode            = (1 shl 22)
  GCLastBit            = 22
end enum

'*********
'* FONTS *
'*********
' used in QueryFont -- draw direction
enum QUERYFONTDIRECTIONS
  FontLeftToRight      = 0
  FontRightToLeft      = 1
  FontChange           = 255
end enum

'************
'*  IMAGING *
'************
' ImageFormat -- PutImage, GetImage
enum IMAGEFORMATS
  XYBitmap             = 0 ' depth 1, XYFormat
  XYPixmap             = 1 ' depth = drawable depth
  ZPixmap              = 2 ' depth = drawable depth
end enum

type XPixmapFormatValues
  depth          as integer
  bits_per_pixel as integer
  scanline_pad   as integer
end type

'********************
'*  COLOR MAP STUFF *
'********************
' For CreateColormap
#define AllocNone      0 ' create map with no entries
#define AllocAll       1 ' allocate entire map writeable

' Flags used in StoreNamedColor, StoreColors
const Do_Red   = 1
const Do_Green = 2
const Do_Blue  = 4

'****************
'* CURSOR STUFF *
'****************
' QueryBestSize Class
#define CursorShape            0 ' largest size that can be displayed
#define TileShape              1 ' size tiled fastest
#define StippleShape           2 ' size stippled fastest

'**************************
'* KEYBOARD/POINTER STUFF *
'**************************
#define AutoRepeatModeOff      0
#define AutoRepeatModeOn       1
#define AutoRepeatModeDefault  2

#define LedModeOff             0
#define LedModeOn              1

' masks for ChangeKeyboardControl
#define KBKeyClickPercent      (1 shl 0)
#define KBBellPercent          (1 shl 1)
#define KBBellPitch            (1 shl 2)
#define KBBellDuration         (1 shl 3)
#define KBLed                  (1 shl 4)
#define KBLedMode              (1 shl 5)
#define KBKey                  (1 shl 6)
#define KBAutoRepeatMode       (1 shl 7)

#define MappingSuccess         0
#define MappingBusy            1
#define MappingFailed          2

#define MappingModifier        0
#define MappingKeyboard        1
#define MappingPointer         2

'**********************
'* SCREEN SAVER STUFF *
'**********************
#define DontPreferBlanking      0
#define PreferBlanking          1
#define DefaultBlanking         2

#define DisableScreenSaver      0
#define DisableScreenInterval   0

#define DontAllowExposures      0
#define AllowExposures          1
#define DefaultExposures        2

' for ForceScreenSaver
#define ScreenSaverReset        0
#define ScreenSaverActive       1

'*************************
'* HOSTS AND CONNECTIONS *
'*************************
' for ChangeHosts
#define HostInsert              0
#define HostDelete              1

' for ChangeAccessControl
#define EnableAccess            1
#define DisableAccess           0

' Display classes  used in opening the connection
' Note that the statically allocated ones are even numbered and the
' dynamically changeable ones are odd numbered
#define StaticGray              0
#define StaticColor             2
#define TrueColor               4

#define GrayScale               1
#define PseudoColor             3
#define DirectColor             5

' Byte order  used in imageByteOrder and bitmapBitOrder
#define LSBFirst                0
#define MSBFirst                1

#define QueuedAlready           0
#define QueuedAfterReading      1
#define QueuedAfterFlush        2

type _XExtData
  number             as integer
  lpnext             as _XExtData ptr
  free_private       as function cdecl(byval as _XExtData ptr) as integer
  private_data       as XPointer
end type
type XExtData as _XExtData

type XExtCodes
  extension          as integer
  major_opcode       as integer
  first_event        as integer
  first_error        as integer
end type ' 4 * 4 = 16

' Data structure for retrieving info about pixmap formats.
type XPixmapFormat
  depth              as integer
  bits_per_pixel     as integer
  scanline_pad       as integer
end type ' 3 * 4 = 12


' Data structure for setting graphics context.
type XGCVALUES
  function           as GCFUNCTIONS    ' logical operation
  plane_mask         as integer        ' plane mask
  foreground         as integer        ' foreground pixel
  background         as integer        ' background pixel
  line_width         as integer        ' line width
  line_style         as LINESTYLES     ' LineSolid, LineOnOffDash, LineDoubleDash
  cap_style          as CAPSTYLES      ' CapNotLast, CapButt, CapRound, CapProjecting
  join_style         as JOINSTYLES     ' JoinMiter, JoinRound, JoinBevel
  fill_style         as FILLSTYLES     ' FillSolid, FillTiled, FillStippled, FillOpaeueStippled
  fill_rule          as FILLRULES      ' EvenOddRule, WindingRule
  arc_mode           as ARCMODES       ' ArcChord, ArcPieSlice
  tile               as XID            ' Pixmap ID tile pixmap for tiling operations
  stipple            as XID            ' Pixmap ID stipple 1 plane pixmap for stipping
  ts_x_origin        as integer        ' offset for tile or stipple operations
  ts_y_origin        as integer
  Font               as XID            ' Font ID default text font for text operations
  subwindow_mode     as SUBWINDOWMODES ' ClipByChildren, IncludeInferiors
  graphics_exposures as XBoolean        'XBoolean, should exposures be generated
  clip_x_origin      as integer        ' origin for clipping
  clip_y_origin      as integer
  clip_mask          as XID            ' Pixmap ID bitmap clipping; other calls for rects
  dash_offset        as integer        ' patterned/dashed line information
  dashes             as byte
  '!!!
  'reserved1        as byte
  'reserved2        as byte
  'reserved3        as byte
end type ' 22*4=88 + 1 = 89 !!!

' Visual structure contains information about colormapping possible.
type VISUAL
  XExtData           as XExtData ptr ' hook for extension to hang data
  visualID           as VISUALID     ' visual id of this visual
  class              as integer      ' class of screen (monochrome, etc.)
  red_mask           as integer
  green_mask         as integer
  blue_mask          as integer      ' mask values
  bits_per_rgb       as integer      ' log base 2 of distinct color values
  map_entries        as integer      ' color map entries
end type ' 8 * 4 = 32

' Depth structure contains information for each possible depth.
type DEPTH
  depth              as integer    ' this depth (Z) of the depth
  nvisuals           as integer    ' number of Visual types at this depth
  visuals            as VISUAL ptr ' list of visuals possible at this depth
end type ' 3 * 4 = 12

'Information about the screen.
'The contents of this structure are implementation dependent.
'A Screen should be treated as opaque by application code.

type _XDisplay as DISPLAY ' Forward declare
type GC        as _XGC 'ptr
type XScreen
  ext_data           as XExtData ptr  ' hook for extension to hang data
  display            as _XDisplay ptr ' back pointer to display structure
  root               as XID           ' Root window id
  width              as integer       ' width and height of screen
  height             as integer
  mwidth             as integer       ' width and height of  in millimeters
  mheight            as integer
  ndepths            as integer       ' number of depths possible
  depths             as Depth ptr     ' list of allowable depths on the screen
  root_depth         as integer       ' bits per pixel
  root_visual        as Visual ptr    ' root visual
  default_gc         as GContext      ' GC for the root root visual
  cmap               as Colormap      ' default color map
  white_pixel        as uinteger      ' White and Black pixel values
  black_pixel        as uinteger
  max_maps           as integer       ' max and min color maps
  min_maps           as integer
  backing_store      as integer       ' Never, WhenMapped, Always
  save_unders        as XBoolean
  root_input_mask    as integer       ' initial root input mask
end type

' Format structure  describes ZFormat data the screen will understand.
type ScreenFormat
  ext_data              as XExtData ptr ' hook for extension to hang data
  depth                 as integer      ' depth of this image format
  bits_per_pixel        as integer      ' bits/pixel at this depth
  scanline_pad          as integer      ' scanline must padded to this multiple
end type ' 4 * 4 =16

' Data structure for setting window attributes.
type XSETWINDOWATTRIBUTES
  background_pixmap      as XID     ' Pixmap ID background or None or ParentRelative
  background_pixel       as integer ' background pixel
  border_pixmap          as XID     ' Pixmap ID border of the window
  border_pixel           as integer ' border pixel value
  bit_gravity            as integer ' one of bit gravity values
  win_gravity            as integer ' one of the window gravity values
  backing_store          as BACKINGSTOREHINTS ' NotUseful, WhenMapped, Always
  backing_planes         as integer ' planes to be preseved if possible
  backing_pixel          as integer ' value to use in restoring planes
  save_under             as XBoolean 'XBoolean should bits under be saved? (popups)
  event_mask             as integer ' set of events that should be saved
  do_not_propagate_mask  as integer ' set of events that should not propagate
  override_redirect      as XBoolean ' XBoolean value for override-redirect
  colormap               as XID     ' Colormap ID to be associated with window
  cursor                 as XID     ' Cursor ID to be displayed (or None)
end type '15 * 4 = 60

'Data to get window attributes
type XWINDOWATTRIBUTES
  x                      as integer      ' location of window
  y                      as integer      ' width and height of window
  width                  as integer
  height                 as integer
  border_width           as integer      ' border width of window
  depth                  as integer      ' depth of window
  visual                 as VISUAL ptr   ' the associated visual structure
  root                   as XID          ' root of screen containing window
  winclass               as WINDOWCLASSES ' InputOutput, InputOnly
  bit_gravity            as integer      ' one of bit gravity values
  win_gravity            as integer      ' one of the window gravity values
  backing_store          as BACKINGSTOREHINTS ' NotUseful, WhenMapped, Always
  backing_planes         as integer      ' planes to be preserved if possible
  backing_pixel          as integer      ' value to be used when restoring planes
  save_under             as XBoolean      'XBoolean, should bits under be saved?
  colormap               as XID          ' color map to be associated with window
  map_installed          as XBoolean      'XBoolean is color map currently installed
  map_state              as MAPSTATES    ' IsUnmapped, IsUnviewable, IsViewable
  all_event_masks        as integer      ' set of events all people have interest in
  your_event_mask        as integer      ' my event mask
  do_not_propagate_mask  as integer      ' set of events that should not propagate
  override_redirect      as XBoolean     ' XBoolean value for override-redirect
  screen                 as XSCREEN ptr  ' back pointer to correct screen
end type '23 * 4 = 92

' Data structure for host setting getting routines.
type XHostAddress
  family       as integer     ' for example FamilyInternet
  length       as integer     ' length of address, in bytes
  char_address as zstring ptr ' pointer to where to find the bytes
end type

' Data structure for ServerFamilyInterpreted addresses in host routines
type XServerInterpretedAddress
  typelength   as integer     ' length of type string, in bytes
  valuelength  as integer     ' length of value string, in bytes
  char_type    as zstring ptr ' pointer to where to find the type string
  char_value   as zstring ptr ' pointer to where to find the address
end type

' Data structure for "image" data, used by image manipulation routines.
type XIMAGE as _XImage
type _XImage
  width                 as integer ' size of image
  height                as integer
  xoffset               as integer ' number of pixels offset in X direction
  format                as integer ' XYBitmap, XYPixmap, ZPixmap
  lpdata                as byte ptr '  pointer to image data
  byte_order            as integer ' data byte order, LSBFirst, MSBFirst
  bitmap_unit           as integer ' quant. of scanline 8, 16, 32
  bitmap_bit_order      as integer ' LSBFirst, MSBFirst
  bitmap_pad            as integer ' 8, 16, 32 either XY or ZPixmap
  depth                 as integer ' depth of image
  bytes_per_line        as integer ' accelarator to next line
  bits_per_pixel        as integer ' bits per pixel (ZPixmap)
  red_mask              as integer ' bits in z arrangment
  green_mask            as integer
  blue_mask             as integer
  obdata                as XPOINTER ' hook for the object routines to hang on

  create_image          as function cdecl ( _
    byval display as _XDisplay ptr, _
    byval visual  as VISUAL    ptr, _
    byval depth   as uinteger     , _
    byval format  as integer      , _
    byval offset  as integer      , _
    byval lpDatat as byte ptr     , _
    byval width   as uinteger     , _
    byval height  as uinteger     , _
    byval bitmap_pad as integer   , _
    byval bytes_per_lineas as  integer) as _XImage ptr

  destroy_image as function cdecl (byval as _XImage ptr) as integer

  get_pixel   as function cdecl ( _
    byval img as _XImage ptr, _
    byval x   as integer, _
    byval y   as integer) as uinteger

  put_pixel        as function cdecl ( _
    byval img      as _XImage ptr, _
    byval x        as integer    , _
    byval y        as integer    , _
    byval pixelcol as uinteger) as integer

  sub_image      as function cdecl ( _
    byval img    as   _XImage ptr, _
    byval x      as integer , _
    byval y      as integer , _
    byval width  as uinteger, _
    byval height as uinteger) as _XImage ptr

  add_pixel     as function cdecl ( _
    byval img   as _XImage ptr, _
    byval pixel as integer    ) as integer
end type ' 22 * 4 = 88

' Data structure for XReconfigureWindow
type XWindowChanges
  x            as integer
  y            as integer
  width        as integer
  height       as integer
  border_width as integer
  sibling      as XID ' Window ID
  stack_mode   as integer
end type '7 * 4 =28

' Data structure used by color operations
type XCOLOR field = 1
  pixel        as integer
  red          as short
  green        as short
  blue         as short
  flags        as byte ' do_red, do_green, do_blue
  pad          as byte
end type ' 14

' 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.
type XSegment
  x1 as short
  y1 as short
  x2 as short
  y2 as short
end type

type XPoint
  x  as short
  y  as short
end type

type XRectangle
  x      as short
  y      as short
  width  as ushort
  height as ushort
end type

type XArc
  x      as short
  y      as short
  width  as ushort
  height as ushort
  angel1 as short
  angle2 as short
end type

' Data structure for XChangeKeyboardControl
type XKeyboardControl
  key_click_percent   as integer
  bell_percent        as integer
  bell_pitch          as integer
  bell_duration       as integer
  led                 as integer
  led_mode            as integer
  key                 as integer
  auto_repeat_mode    as integer   ' On, Off, Default
end type ' 8 * 4 = 32

' Data structure for XGetKeyboardControl
type XKeyboardState
  key_click_percent   as integer
  bell_percent        as integer
  bell_pitch          as integer
  bell_duration       as integer
  led_mask            as integer
  global_auto_repeat  as integer
  auto_repeats(32)    as byte
end type  '24 + 32 =56

' Data structure for XGetMotionEvents.
type XTimeCoord
  t  as XTIME
  x  as short
  y  as short
end type ' 8

' Data structure for X{Set,Get}ModifierMapping
type XModifierKeymap
  max_keypermod as integer  ' The server's max # of keys per modifier
  modifiermap   as byte ptr ' An 8 by max_keypermod array of modifiers
end type

'Display datatype maintaining display specific data.
'The contents of this structure are implementation dependent.
'A Display should be treated as opaque by application code.
type _XPrivate as XPrivate ' Forward declare before use
type _XrmHashBucketRec as XrmHashBucketRec

type Display
  XExtData         as XExtData ptr ' hook for extension to hang data
  private1         as _XPrivate ptr
  fd               as integer      ' Network socket.
  private2         as integer
  proto_major_version as integer ' major version of server's X protocol
  proto_minor_version as integer ' minor version of servers X protocol
  vendor           as zstring ptr    ' vendor of the server hardware
  private3         as XID
  private4         as XID
  private5         as XID
  private6         as integer
  resource_alloc   as function cdecl (byval as _XDisplay ptr) as XID

  byte_order       as integer          ' screen byte order, LSBFirst, MSBFirst
  bitmap_unit      as integer          ' padding and data requirements
  bitmap_pad       as integer          ' padding requirements on bitmaps
  bitmap_bit_order as integer          ' LeastSignificant or MostSignificant
  nformats         as integer          ' number of pixmap formats in list
  pixmap_format    as ScreenFormat ptr ' pixmap format list
  private8         as integer
  release          as integer          ' release of the server
  private9         as _XPrivate ptr
  private10        as _XPrivate ptr
  qlen             as integer          ' Length of input event queue
  last_request_read as uinteger        ' seq number of last event read
  request          as uinteger         ' sequence number of last request.
  private11        as XPointer
  private12        as XPointer
  private13        as XPointer
  private14        as XPointer
  max_request_size as uinteger         ' maximum number 32 bit words in request
  db               as _XrmHashBucketRec ptr
  private15        as function cdecl(byval as Display ptr) as integer
  display_name     as zstring ptr      ' "host:display" string used on this connect
  default_screen   as integer          ' default screen for operations
  nscreens         as integer          ' number of screens on this server
  screens          as XSCREEN ptr      ' pointer to list of screens
  motion_buffer    as uinteger         ' size of motion buffer
  private16        as uinteger
  min_keycode      as integer          ' minimum defined keycode
  max_keycode      as integer          ' maximum defined keycode
  private17        as XPointer
  private18        as XPointer
  private19        as XPointer
  xdefaults        as zstring ptr      ' contents of defaults from server
  'there is more to this structure, but it is private to Xlib
end type

type dpystruc
  fd                    as integer ' fd of X socket
  info                  as integer ' pointer to connection reply from server
  maxRequestSize        as integer ' maximum request size (bytes)

  resource_id           as integer
  resource_base         as integer
  resource_shift        as integer
  resource_mask         as integer
  resource_max          as integer

  major_version         as integer
  minor_version         as integer
  vendor                as integer ' pointer to vendor string
  vendor_size           as integer ' length of verndor string (4 padded)

  nformats              as integer ' number of formats
  pformats              as integer ' pointer to format structs
  nscreens              as integer ' number of screens
  pscreens              as integer ' pointer to screen structs

  error_handler         as integer ' pointer to error_handler (0: use std handler)
  event_handler         as integer ' pointer to event_handler (0: use std handler)

  default_screen_nr     as integer ' default screen number
  default_screen        as integer ' pointer to default screen structure
  default_root          as integer ' default root window ID
  default_visualID      as integer ' root visual ID
  default_visualtype    as integer ' pointer to default visualtype of default screen
  default_depth         as integer ' default depth of default screen
  default_colormap      as integer ' default colormap of default screen

  ImageByteOrder        as integer ' LSBFirst, MSBFirst: Image byte order
  bitmapBitOrder        as integer ' LeastSignificant, MostSign...
  bitmapScanlineUnit    as integer ' 8, 16, 32
  bitmapScanlinePad     as integer ' 8, 16, 32
  XC_MISC_opcode        as integer ' Opcode for XC-Misc Extension
  MIT_SHM_opcode        as integer ' Opcode for MIT-SHM Extension
end type ' 32 * 4 = 128

#define ConnectionNumber(dpy)          (dpy->fd)
#define RootWindow(dpy, s)             (dpy->screens[s].root)
#define DefaultScreen(dpy)             (dpy->default_screen)
#define DefaultRootWindow(dpy)         (dpy->screens[dpy->default_screen].root)
#define DefaultVisual(dpy, s)          (dpy->screens[s].root_visual)
#define DefaultGC(dpy, s)              (dpy->screens[s].default_gc)
#define BlackPixel(dpy, s)             (dpy->screens[s].black_pixel)
#define WhitePixel(dpy, s)             (dpy->screens[s].white_pixel)
#define AllPlanes                      (&HFFFFFFFFL)
#define QLength(dpy)                   (dpy->qlen)
#define DisplayWidth(dpy,s)            (dpy->screens[s].width)
#define DisplayHeight(dpy, s)          (dpy->screens[s].height)
#define DisplayWidthMM(dpy, s)         (dpy->screens[s].mwidth)
#define DisplayHeightMM(dpy, s)        (dpy->screens[s].mheight)
#define DisplayPlanes(dpy, s)          (dpy->screens[s].root_depth)
#define DisplayCells(dpy, s)           (dpy->screens[s].root_visual.map_entries)
#define ScreenCount(dpy)               (dpy->nscreens)
#define ServerVendor(dpy)              (dpy->vendor)
#define ProtocolVersion(dpy)           (dpy->proto_major_version)
#define ProtocolRevision(dpy)          (dpy->proto_minor_version)
#define VendorRelease(dpy)             (dpy->release)
#define DisplayString(dpy)             (dpy->display_name)
#define DefaultDepth(dpy, s)           (dpy->screens[s].root_depth)
#define DefaultColormap(dpy, s)        (dpy->screens[s].cmap)
#define BitmapUnit(dpy)                (dpy->bitmap_unit)
#define BitmapBitOrder(dpy)            (dpy->bitmap_bit_order)
#define BitmapPad(dpy)                 (dpy->bitmap_pad)
#define ImageByteOrder(dpy)            (dpy->byte_order)
#define NextRequest(dpy)               (dpy->request + 1)
#define LastKnownRequestProcessed(dpy) (dpy->last_request_read)

' macros for screen oriented applications (toolkit)
#define ScreenOfDisplay(dpy, s)        (dpy->screens[s])
#define DefaultScreenOfDisplay(dpy)    ScreenOfDisplay(dpy,DefaultScreen(dpy))
#define DisplayOfScreen(scr)           (scr.display)
#define RootWindowOfScreen(scr)        (scr.root)
#define BlackPixelOfScreen(scr)        (scr.black_pixel)
#define WhitePixelOfScreen(scr)        (scr.white_pixel)
#define DefaultColormapOfScreen(scr)   (scr.cmap)
#define DefaultDepthOfScreen(scr)      (scr.root_depth)
#define DefaultGCOfScreen(scr)         (scr.default_gc)
#define DefaultVisualOfScreen(scr)     (scr.root_visual)
#define WidthOfScreen(scr)             (scr.width)
#define HeightOfScreen(scr)            (scr.height)
#define WidthMMOfScreen(scr)           (scr.mwidth)
#define HeightMMOfScreen(scr)          (scr.mheight)
#define PlanesOfScreen(scr)            (scr.root_depth)
#define CellsOfScreen(s)               (dpy->screens[s].root_visual.map_entries)
#define MinCmapsOfScreen(scr)          (scr.min_maps)
#define MaxCmapsOfScreen(scr)          (scr.max_maps)
#define DoesSaveUnders(scr)            (scr.save_unders)
#define DoesBackingStore(scr)          (scr.backing_store)
#define EventMaskOfScreen(scr)         (scr.root_input_mask)

' Definitions of specific events.
type XKEYEVENT
  EventType      as EVENTTYPES  ' enum  of event
  serial         as integer     ' # of last request processed by server
  send_event     as XBoolean     ' true if this came from a SendEvent request
  display        as Display ptr     ' Display the event was read from

  window         as XID         ' "event" window it is reported relative to
  root           as XID         ' Window ID root window that the event occurred on
  subwindow      as XID         ' Window ID child window
  t              as uinteger    ' milliseconds
  x              as integer     ' pointer x, y coordinates in event window
  y              as integer
  x_root         as integer     ' coordinates relative to root
  y_root         as integer
  state          as integer     ' key or button mask
  keycode        as integer     ' detail
  same_screen    as XBoolean     ' same screen flag
end type ' 15*4=60 bytes
type XKeyPressedEvent  as XKEYEVENT
type XKeyReleasedEvent as XKEYEVENT

type XBUTTONEVENT
  EventType      as EVENTTYPES  ' enum  of event
  serial         as integer     ' # of last request processed by server
  send_event     as XBoolean    ' true if this came from a SendEvent request
  display        as Display ptr     ' Display the event was read from

  window         as XID         ' "event" window it is reported relative to
  root           as XID         ' Window ID root window that the event occurred on
  subwindow      as XID         ' Window ID child window
  t              as uinteger    ' milliseconds
  x              as integer     ' pointer x, y coordinates in event window
  y              as integer
  x_root         as integer     ' coordinates relative to root
  y_root         as integer
  state          as integer     ' key or button mask
  button         as integer     ' detail
  same_screen    as XBoolean     ' same screen flag
end type ' 15*4 = 60 bytes
type XButtonPressedEvent  as XBUTTONEVENT
type XButtonReleasedEvent as XBUTTONEVENT

type XMOTIONEVENT
  EventType      as EVENTTYPES  ' enum  of event
  serial         as integer     ' # of last request processed by server
  send_event     as XBoolean     ' true if this came from a SendEvent request
  Disaplay       as Display ptr     ' Display the event was read from

  window         as XID         ' "event" window it is reported relative to
  root           as XID         ' Window ID root window that the event occurred on
  subwindow      as XID         ' Window ID child window
  t              as uinteger    ' milliseconds
  x              as integer     ' pointer x, y coordinates in event window
  y              as integer
  x_root         as integer     ' coordinates relative to root
  y_root         as integer
  state          as integer     ' key or button mask
  is_hint        as byte        ' !!! char detail
  same_screen    as integer     ' same screen flag
end type        ' 14*4+1=57 '60
type XPointerMovedEvent as XMOTIONEVENT

type XCROSSINGEVENT
  EventType      as EVENTTYPES  ' enum  of event
  serial         as integer     ' # of last request processed by server
  send_event     as XBoolean     ' true if this came from a SendEvent request
  display        as Display ptr ' Display the event was read from

  window         as XID         ' "event" window it is reported relative to
  root           as XID         ' Window ID root window that the event occurred on
  subwindow      as XID         ' Window ID child window
  t              as uinteger    ' milliseconds
  x              as integer     ' pointer x, y coordinates in event window
  y              as integer
  x_root         as integer     ' coordinates relative to root
  y_root         as integer
  mode           as integer     ' NotifyNormal, NotifyGrab, NotifyUngrab
  detail         as integer     ' NotifyAncestor, NotifyVirtual, NotifyInferior
                                ' NotifyNonlinear, NotifyNonlinearVirtual
  same_screen    as integer     ' same screen flag
  focus          as XBoolean     'XBoolean focus
  state          as integer     ' key or button mask
end type        ' 17*4=68
type XEnterWindowEvent as XCROSSINGEVENT
type XLeaveWindowEvent as XCROSSINGEVENT

type XFocusChangeEvent
  EventType      as EVENTTYPES  ' FocusIn or FocusOut
  serial         as integer     ' # of last request processed by server
  send_event     as XBoolean     ' true if this came from a SendEvent request
  display        as Display ptr ' Display the event was read from

  window         as XID         ' window of event
  mode           as integer     ' NotifyNormal, NotifyGrab, NotifyUngrab
  detail         as integer     ' NotifyAncestor, NotifyVirtual, NotifyInferior,
                                ' NotifyNonlinear,NotifyNonlinearVirtual, NotifyPointer,
                                ' NotifyPointerRoot, NotifyDetailNone
end type '7 * 4 = 28
type XFocusInEvent  as XFocusChangeEvent
type XFocusOutEvent as XFocusChangeEvent

' generated on EnterWindow and FocusIn when KeyMapState selected
type XKeymapEvent
  EventType  as EVENTTYPES
  serial     as integer   ' # of last request processed by server
  send_event as XBoolean   ' true if this came from a SendEvent request
  display    as Display ptr   ' Display the event was read from

  window     as XID       ' window of event
  key_vector(32) as byte
end type ' 4 * 5 = 20 + 32 = 52

type XExposeEvent
  EventType  as EVENTTYPES
  serial     as integer   ' # of last request processed by server
  send_event as XBoolean   ' true if this came from a SendEvent request
  display    as Display ptr   ' Display the event was read from

  window     as XID       ' window of event
  x          as integer
  y          as integer
  width      as integer
  height     as integer
  count      as integer   ' if non-zero, at least this many more
end type '10 * 4 = 40

type XGraphicsExposeEvent
  EventType  as EVENTTYPES
  serial     as integer   ' # of last request processed by server
  send_event as XBoolean   ' true if this came from a SendEvent request
  display    as Display ptr   ' Display the event was read from

  drawable   as XID       ' window of event
  x          as integer
  y          as integer
  width      as integer
  height     as integer
  count      as integer   ' if non-zero, at least this many more
  major_code as integer   ' core is CopyArea or CopyPlane
  minor_code as integer   ' not defined in the core
end type '12 * 4 = 48

type XNoExposeEvent
  EventType  as EVENTTYPES
  serial     as integer   ' # of last request processed by server
  send_event as XBoolean   ' true if this came from a SendEvent request
  display    as Display ptr   ' Display the event was read from

  drawable   as XID       ' window of event
  major_code as integer   ' core is CopyArea or CopyPlane
  minor_code as integer   ' not defined in the core
end type '7 * 4 = 26

type XVisibilityEvent
  EventType  as EVENTTYPES
  serial     as integer   ' # of last request processed by server
  send_event as XBoolean   ' true if this came from a SendEvent request
  display    as Display ptr   ' Display the event was read from

  window     as XID       ' window of event
  state      as integer   ' Visibility state
end type ' 6 * 4 = 24

type XCreateWindowEvent
  EventType         as EVENTTYPES
  serial            as integer   ' # of last request processed by server
  send_event        as XBoolean   ' true if this came from a SendEvent request
  display           as Display ptr   ' Display the event was read from

  parent            as XID       ' parent of the window
  window            as XID       ' windowid of created window
  x                 as integer
  y                 as integer
  width             as integer
  height            as integer
  border_width      as integer   ' border width
  override_redirect as integer   ' creation should be overridden
end type '12 * 4=48

type XDestroyWindowEvent
  EventType         as EVENTTYPES
  serial            as integer   ' # of last request processed by server
  send_event        as XBoolean   ' true if this came from a SendEvent request
  Display           as Display ptr   ' Display the event was read from

  event             as integer
  window            as XID
end type ' 6 * 4 = 24

type XUnmapEvent
  EventType         as EVENTTYPES
  serial            as integer   ' # of last request processed by server
  send_event        as XBoolean   ' true if this came from a SendEvent request
  Display           as Display ptr   ' Display the event was read from

  event             as integer
  window            as XID
  from_configure as integer
end type ' 7 * 4 = 28

type XMapEvent
  EventType         as EVENTTYPES
  serial            as integer   ' # of last request processed by server
  send_event        as XBoolean   ' true if this came from a SendEvent request
  Display           as Display ptr   ' Display the event was read from

  event             as XID
  window            as XID
  override_redirect as XBoolean   'XBoolean, is override set...
end type ' 7 * 4 = 28

type XMapRequestEvent
  EventType         as EVENTTYPES
  serial            as integer   ' # of last request processed by server
  send_event        as XBoolean   ' true if this came from a SendEvent request
  Display           as Display ptr   ' Display the event was read from

  parent            as XID
  window            as XID
end type '6 * 4 = 24

type XReparentEvent
  EventType         as EVENTTYPES
  serial            as integer   ' # of last request processed by server
  send_event        as XBoolean   ' true if this came from a SendEvent request
  Display           as Display ptr   ' Display the event was read from

  event             as integer
  window            as XID
  parent            as XID
  x                 as integer
  y                 as integer
  override_redirect as XBoolean
end type ' 10 * 4 = 40

type XConfigureEvent
  EventType         as EVENTTYPES
  serial            as integer   ' # of last request processed by server
  send_event        as XBoolean   ' true if this came from a SendEvent request
  Display           as Display ptr   ' Display the event was read from

  event             as XID
  window            as XID
  x                 as integer
  y                 as integer
  width             as integer
  height            as integer
  border_width      as integer
  abovewindow       as XID
  override_redirect as XBoolean
end type '12 * 4 = 52

type XGravityEvent
  EventType         as EVENTTYPES
  serial            as integer   ' # of last request processed by server
  send_event        as XBoolean   ' true if this came from a SendEvent request
  Display           as Display ptr   ' Display the event was read from

  event             as integer
  window            as XID
  x                 as integer
  y                 as integer
end type '8 * 4 = 32

type XResizeRequestEvent
  EventType         as EVENTTYPES
  serial            as integer   ' # of last request processed by server
  send_event        as XBoolean   ' true if this came from a SendEvent request
  Display           as Display ptr   ' Display the event was read from

  window            as XID
  width             as integer
  height            as integer
end type ' 7 * 4 = 28

type XConfigureRequestEvent
  EventType         as EVENTTYPES
  serial            as integer
  send_event        as XBoolean
  Display           as Display ptr

  parent            as XID
  window            as XID
  x                 as integer
  y                 as integer
  width             as integer
  height            as integer
  border_width      as integer
  abovewindow       as XID
  detail            as integer   ' Above, Below, TopIf, BottomIf, Opposite
  value_mask        as uinteger
end type

type XCirculateEvent
  EventType         as EVENTTYPES
  serial            as integer
  send_event        as XBoolean
  Display           as Display ptr

  event             as integer
  window            as XID
  place             as integer   ' PlaceOnTop, PlaceOnBottom
end type

type XCirculateRequestEvent
  EventType         as EVENTTYPES
  serial            as integer
  send_event        as XBoolean
  Display           as Display ptr

  parent            as XID
  window            as XID
  place             as integer   ' PlaceOnTop, PlaceOnBottom
end type

type XPropertyEvent
  EventType         as EVENTTYPES
  serial            as integer
  send_event        as XBoolean
  Display           as Display ptr

  Window            as XID
  atom              as Atom
  t                 as XTIME
  state             as integer   ' NewValue, Deleted
end type

type XSelectionClearEvent
  EventType         as EVENTTYPES
  serial            as integer
  send_event        as XBoolean
  Display           as Display ptr

  Window            as XID
  atom              as Atom
  t                 as XTIME
end type

type XSelectionRequestEvent
  EventType         as EVENTTYPES
  serial            as integer
  send_event        as XBoolean
  Display           as Display ptr

  owner             as XID       ' window
  requestor         as XID       ' window
  selection         as Atom
  target            as Atom
  property          as Atom
  t                 as XTIME
end type

type XSelectionEvent
  EventType         as EVENTTYPES
  serial            as integer
  send_event        as XBoolean
  Display           as Display ptr

  requestor         as XID       ' window
  selection         as Atom
  target            as Atom
  property          as Atom      ' ATOM or None
  t                 as XTIME
end type

type XColormapEvent
  EventType         as EVENTTYPES
  serial            as integer
  send_event        as XBoolean
  Display           as Display ptr

  Window            as XID
  colormap          as integer   ' COLORMAP or None
  _new              as integer
  state             as integer   ' ColormapInstalled, ColormapUninstalled
end type '8 * 4 = 32

type XClientMessageEvent
  EventType         as EVENTTYPES
  serial            as integer
  send_event        as XBoolean
  Display           as Display ptr

  Window            as XID
  message_type      as Atom
  format            as integer
  union
    b(20) as byte
    s(10) as short
    l(5)  as integer
  end union
end type

type XMappingEvent
  EventType         as EVENTTYPES
  serial            as integer
  send_event        as XBoolean
  Display           as Display ptr

  Window            as XID       ' unused
  request           as integer   ' one of MappingModifier, MappingKeyboard, MappingPointer
  first_keycode     as integer   ' first keycode
  count             as integer   ' defines range of change w. first_keycode
end type        ' 8 * 4 = 32

type XErrorEvent
  EventType         as EVENTTYPES
  Display           as Display ptr
  resourceid        as integer   ' resource id
  serial            as integer   ' serial number of failed request
  error_code        as byte      ' char error code of failed request
  request_code      as byte      ' char Major op-code of failed request
  minor_code        as byte      ' char Minor op-code of failed request
end type        '4*4=16+3=19

' !!!
type XAnyEvent
  EventType         as EVENTTYPES
  serial            as integer
  sennd_event       as XBoolean
  display           as Display ptr
  Window            as XID
end type ' 4*5=20

union XEvent
  EventType         as integer              ' must not be changed first element
  xany              as XAnyEvent
  xkey              as XKeyEvent
  xbutton           as XButtonEvent
  xmotion           as XMotionEvent
  xcossing          as XCrossingEvent
  xfocus            as XFocusChangeEvent
  xexpose           as XExposeEvent
  xgraphicsexpose   as XGraphicsExposeEvent
  xnoexpose         as XNoExposeEvent
  xvisibility       as XVisibilityEvent
  xcreatewindow     as XCreateWindowEvent
  xdestroywindow    as XDestroyWindowEvent
  xunmap            as XUnmapEvent
  xmap              as XMapEvent
  xmaprequest       as XMapRequestEvent
  xreparent         as XReparentEvent
  xconfigure        as XConfigureEvent
  xgravity          as XGravityEvent
  xresizerequest    as XResizeRequestEvent
  xconfigurerequest as XConfigureRequestEvent
  xcirculate        as XCirculateEvent
  xcirculaterequest as XCirculateRequestEvent
  xproperty         as XPropertyEvent
  xselectionclear   as XSelectionClearEvent
  xselectionrequest as XSelectionRequestEvent
  xselection        as XSelectionEvent
  xcolormap         as XColormapEvent
  xclient           as XClientMessageEvent
  xmapping          as XMappingEvent
  xerror            as XErrorEvent
  xkeymap           as XKeymapEvent
  pad(24)           as integer
end union


' per character font metric information.
type XCharStruct
  lbearing          as short ' origin to left edge of raster
  rbearing          as short ' origin to right edge of raster
  width             as short ' advance to next char's origin
  ascent            as short ' baseline to top edge of raster
  descent           as short ' baseline to bottom edge of raster
  attributes        as short ' per char flags (not predefined)
end type ' 6 * 2 = 12

' To allow arbitrary information with fonts, there are additional properties returned.
type XFontProp
  name              as Atom
  card32            as integer
end type

type XFontStruct field = 1
  XExtData          as XExtData ptr    ' hook for extension to hang data
  fid               as XID             ' Font id for this font
  direction         as byte            ' !!! unsigned hint about direction the font is painted
  min_char_or_byte2 as byte            ' !!! unsigned first character
  max_char_or_byte2 as byte            ' !!! unsigned last character
  min_byte1         as byte            ' !!! unsigned first row that exists
  max_byte1         as byte            ' !!! unsigned last row that exists
  all_chars_exist   as XBoolean         ' Bool flag if all characters have non-zero size
  default_char      as ubyte           ' !!! unsigned char to print for undefined character
  n_properties      as integer         ' how many properties there are
  properties        as XFONTPROP ptr   ' XFontProp pointer to array of additional properties
  min_bounds        as XCharStruct     ' XCharStruct minimum bounds over all existing char
  max_bounds        as XCharStruct     ' XCharStruct maximum bounds over all existing char
  per_char          as XCharStruct ptr ' pointer XCharStruct first_char to last_char information
  ascent            as integer         ' log. extent above baseline for spacing
  descent           as integer         ' log. descent below baseline for spacing
end type ' 8*4 + 6*1 + 12*1 + 12*1 = 62

' PolyText routines take these as arguments.
type XTextItem
  chars             as integer      ' pointer to string
  nchars            as integer      ' number of characters
  delta             as integer      ' delta between strings
  font              as XID ' font ID to print it in, None don't change
end type ' 4 * 4 = 16

type XChar2b ' normal 16 bit characters are two bytes
  byte1         as ubyte
  byte2         as ubyte
end type

type XTextItem16
  chars         as XChar2b ptr ' two byte characters
  nchars        as integer     ' number of characters
  delta         as integer     ' delta between strings
  font          as XID         ' font to print it in, None don't change
end type

union XEDataObject
  display       as display      ptr
  gc            as GCONTEXT
  visual        as VISUAL       ptr
  screen        as XSCREEN      ptr
  pixmap_format as ScreenFormat ptr
  font          as XFontStruct  ptr
end union

type XFONTSETEXTENS
  max_ink_extent      as XRectangle
  max_logical_extent  as XRectangle
end type

'!!!
type xFontSet as any ptr

' unused:
'typedef void (*XOMProc)();

type XOM as _XOM ptr
type XOC as _XOC ptr
'typedef struct _XOC *XOC, *XFontSet;

type XmbTextItem
  chars    as zstring ptr
  nchars   as integer
  delta    as integer
  font_set as XFontSet
end type

type XwcTextItem
  cghars   as wchar_t ptr
  nchars   as integer
  delta    as integer
  font_set as XFontSet
end type

#define XNRequiredCharSet               "requiredCharSet"
#define XNQueryOrientation              "queryOrientation"
#define XNBaseFontName                  "baseFontName"
#define XNOMAutomatic                   "omAutomatic"
#define XNMissingCharSet                "missingCharSet"
#define XNDefaultString                 "defaultString"
#define XNOrientation                   "orientation"
#define XNDirectionalDependentDrawing   "directionalDependentDrawing"
#define XNContextualDrawing             "contextualDrawing"
#define XNFontInfo                      "fontInfo"

type XOMCharSetList
  charset_count as integer
  charset_list  as ubyte ptr ptr
end type

enum XOrientation
  XOMOrientation_LTR_TTB
  XOMOrientation_RTL_TTB
  XOMOrientation_TTB_LTR
  XOMOrientation_TTB_RTL
  XOMOrientation_Context
end enum

type XOMOrientation
  num_orientation as integer
  orientation     as XOrientation ptr ' Input Text description
end type

type XOMFontInfo
  num_font         as integer
  font_struct_list as XFontStruct ptr ptr
  font_name_list   as ubyte       ptr ptr
end type

type XIM      as _XIM ptr
type XIC      as _XIC ptr
type XIMProc  as sub      cdecl (byval as XIM, byval as XPointer, byval as XPointer)
type XICProc  as function cdecl (byval as XIC, byval as XPointer, byval as XPointer) as integer
type XIDProc  as sub      cdecl (byval as Display ptr, byval as XPointer, byval as XPointer)
type XIMStyle as uinteger
type _XrmHushBucketRec as any ptr '!!!

type XIMStyles
  count_styles     as ushort
  supported_styles as XIMStyle ptr
end type

#define XIMPreeditArea                  &H0001
#define XIMPreeditCallbacks             &H0002
#define XIMPreeditPosition              &H0004
#define XIMPreeditNothing               &H0008
#define XIMPreeditNone                  &H0010
#define XIMStatusArea                   &H0100
#define XIMStatusCallbacks              &H0200
#define XIMStatusNothing                &H0400
#define XIMStatusNone                   &H0800

#define XNVaNestedList                  "XNVaNestedList"
#define XNQueryInputStyle               "queryInputStyle"
#define XNClientWindow                  "clientWindow"
#define XNInputStyle                    "inputStyle"
#define XNFocusWindow                   "focusWindow"
#define XNResourceName                  "resourceName"
#define XNResourceClass                 "resourceClass"
#define XNGeometryCallback              "geometryCallback"
#define XNDestroyCallback               "destroyCallback"
#define XNFilterEvents                  "filterEvents"
#define XNPreeditStartCallback          "preeditStartCallback"
#define XNPreeditDoneCallback           "preeditDoneCallback"
#define XNPreeditDrawCallback           "peeditDrawCallback"
#define XNPreeditCaretCallback          "preeditCaretCallback"
#define XNPreeditStateNotifyCallback    "preeditStateNotifyCallback"
#define XNPreeditAttributes             "preeditAttributes"
#define XNStatusStartCallback           "statusStartCallback"
#define XNStatusDoneCallback            "statusDoneCallback"
#define XNStatusDrawCallback            "statusDrawCallback"
#define XNStatusAttributes              "statusAttributes"
#define XNArea                          "area"
#define XNAreaNeeded                    "areaNeeded"
#define XNSpotLocation                  "spotLocation"
#define XNColormap                      "colorMap"
#define XNStdColormap                   "stdColorMap"
#define XNForeground                    "foreground"
#define XNBackground                    "background"
#define XNBackgroundPixmap              "backgroundPixmap"
#define XNFontSet                       "fontSet"
#define XNLineSpace                     "lineSpace"
#define XNCursor                        "cursor"

#define XNQueryIMValuesList             "queryIMValuesList"
#define XNQueryICValuesList             "queryICValuesList"
#define XNVisiblePosition               "visiblePosition"
#define XNR6PreeditCallback             "r6PreeditCallback"
#define XNStringConversionCallback      "stringConversionCallback"
#define XNStringConversion              "stringConversion"
#define XNResetState                    "resetState"
#define XNHotKey                        "hotKey"
#define XNHotKeyState                   "hotKeyState"
#define XNPreeditState                  "preeditState"
#define XNSeparatorofNestedList         "separatorofNestedList"

#define XBufferOverflow                -1
#define XLookupNone                     1
#define XLookupChars                    2
'#define XLookupKeySym                   3 '!!! conflict with same function proto type
#define XLookupBoth                     4

type XVaNestedList as any ptr
type XIMCallback
  client_data as XPointer
  callback    as XIMProc
end type

type XICCallback
  client_data as XPointer
  callback    as XICProc
end type

type XIMFeedback as uinteger

#define XIMReverse                      (1 shl 0)
#define XIMUnderline                    (1 shl 1)
#define XIMHighlight                    (1 shl 2)
#define XIMPrimary                      (1 shl 5)
#define XIMSecondary                    (1 shl 6)
#define XIMTertiary                     (1 shl 7)
#define XIMVisibleToForward             (1 shl 8)
#define XIMVisibleToBackword            (1 shl 9)
#define XIMVisibleToCenter              (1 shl 10)

type _XIMText
  length as ushort
  feedback as XIMFeedback ptr
  encoding_is_wchar as XBoolean
  union
    multi_byte as zstring ptr
    wide_char as wchar_t ptr
  end union
end type
type XIMText as _XIMText

type XIMPreeditState as uinteger

#define XIMPreeditUnKnown 0L
#define XIMPreeditEnable 1L
#define XIMPreeditDisable (1L shl 1)

type _XIMPreeditStateNotifyCallbackStruct
  state as XIMPreeditState
end type

type XIMPreeditStateNotifyCallbackStruct as _XIMPreeditStateNotifyCallbackStruct
type XIMResetState as uinteger

#define XIMInitialState 1L
#define XIMPreserveState (1L shl 1)

type XIMStringConversionFeedback as uinteger

#define XIMStringConversionLeftEdge   (&h00000001)
#define XIMStringConversionRightEdge  (&h00000002)
#define XIMStringConversionTopEdge    (&h00000004)
#define XIMStringConversionBottomEdge (&h00000008)
#define XIMStringConversionConcealed  (&h00000010)
#define XIMStringConversionWrapped    (&h00000020)

type _XIMStringConversionText
  length   as ushort
  feedback as XIMStringConversionFeedback ptr
  encoding_is_wchar as integer
  union
    mbs as zstring ptr
    wcs as wchar_t ptr
  end union
end type

type XIMStringConversionText     as _XIMStringConversionText
type XIMStringConversionPosition as ushort
type XIMStringConversionType     as ushort

#define XIMStringConversionBuffer (&h0001)
#define XIMStringConversionLine   (&h0002)
#define XIMStringConversionWord   (&h0003)
#define XIMStringConversionChar   (&h0004)

type XIMStringConversionOperation as ushort

#define XIMStringConversionSubstitution (&h0001)
#define XIMStringConversionRetrieval (&h0002)

enum XIMCaretDirection
  XIMForwardChar
  XIMBackwardChar
  XIMForwardWord
  XIMBackwardWord
  XIMCaretUp
  XIMCaretDown
  XIMNextLine
  XIMPreviousLine
  XIMLineStart
  XIMLineEnd
  XIMAbsolutePosition
  XIMDontChange
end enum

type _XIMStringConversionCallbackStruct
  position  as XIMStringConversionPosition
  direction as XIMCaretDirection
  operation as XIMStringConversionOperation
  factor    as ushort
  text      as XIMStringConversionText ptr
end type

type XIMStringConversionCallbackStruct as _XIMStringConversionCallbackStruct

type _XIMPreeditDrawCallbackStruct
  caret      as integer
  chg_first  as integer
  chg_length as integer
  text       as XIMText ptr
end type
type XIMPreeditDrawCallbackStruct as _XIMPreeditDrawCallbackStruct

enum XIMCaretStyle
  XIMIsInvisible
  XIMIsPrimary
  XIMIsSecondary
end enum

type _XIMPreeditCaretCallbackStruct
  position  as integer
  direction as XIMCaretDirection
  style     as XIMCaretStyle
end type
type XIMPreeditCaretCallbackStruct as _XIMPreeditCaretCallbackStruct

enum XIMStatusDataType
  XIMTextType
  XIMBitmapType
end enum

type _XIMStatusDrawCallbackStruct
  type as XIMStatusDataType
  union
    text as XIMText ptr
    bitmap as Pixmap
  end union
end type
type XIMStatusDrawCallbackStruct as _XIMStatusDrawCallbackStruct

type _XIMHotKeyTrigger
  keysym        as KeySym
  modifier      as integer
  modifier_mask as integer
end type

type XIMHotKeyTrigger as _XIMHotKeyTrigger
type _XIMHotKeyTriggers
  num_hot_key as integer
  key         as XIMHotKeyTrigger ptr
end type

type XIMHotKeyTriggers as _XIMHotKeyTriggers
type XIMHotKeyState    as uinteger

#define XIMHotKeyStateON  (&h0001)
#define XIMHotKeyStateOFF (&h0002)

type XIMValuesList
  count_values     as ushort
  supported_values as byte ptr ptr
end type

declare function XLoadQueryFont cdecl alias "XLoadQueryFont" ( _
  byval lpDisplay as Display ptr, _
  byval name as string) as XFONTSTRUCT ptr

declare function XQueryFont cdecl alias "XQueryFont" ( _
  byval lpDisplay as Display ptr, _
  byval font_ID   as XID) as XFONTSTRUCT ptr

declare function XGetMotionEvents cdecl alias "XGetMotionEvents" ( _
  byval lpDisplay  as Display ptr, _
  byval hWin       as WINDOWID   , _
  byval start_time as XTIME       , _
  byval stop_time  as XTIME       , _
  byref nevents_return as integer) as XTIMECOORD ptr


declare function XDeleteModifiermapEntry cdecl alias "XDeleteModifiermapEntry" ( _
  byref modmap        as XModifierKeymap, _
  byval keycode_entry as KEYCODE        , _
  byval modifier      as integer) as XModifierKeymap ptr

declare function XGetModifierMapping cdecl alias "XGetModifierMapping" ( _
  byval lpDisplay as Display ptr) as XModifierKeymap ptr

declare function XNewModifiermap cdecl alias "XNewModifiermap" ( _
  byval max_keys_per_mod as integer) as XModifierKeymap ptr



' X function declarations

declare sub      XrmInitialize cdecl alias "XrmInitialize"()

'The client must free this storage when finished with it by calling XFree().
declare function XFetchBytes   cdecl alias "XFetchBytes"   ( _
  byval lpDisplay           as Display ptr, _
  byref num_of_bytes_return as integer) as any ptr

declare function XFetchBuffer  cdecl alias "XFetchBuffer"  ( _
  byval lpDisplay           as Display ptr, _
  byref num_of_bytes_return as integer, _
  byval BufferID            as integer) as any ptr

declare function XGetAtomName  cdecl alias "XGetAtomName"  ( _
  byval lpDisplay as Display ptr, _
  byval from_atom as ATOM ) as zstring ptr

declare function XGetAtomNames cdecl alias "XGetAtomNames" ( _
  byval lpDisplay    as Display ptr, _
  byref from_atoms   as ATOM       , _
  byval count        as integer    , _
  byref names_return as zstring ptr ptr) as integer

declare function XGetDefault cdecl alias "XGetDefault" ( _
  byval lpDisplay  as Display ptr, _
  byval progname   as string     , _
  byval optionname as string) as zstring ptr
' or NULL
declare function XDisplayName cdecl alias "XDisplayName" ( _
  byval lpString as zstring ptr) as zstring ptr

'The XSynchronize() function returns the previous after function
declare function XSynchronize cdecl alias "XSynchronize" ( _
  byval lpDisplay as Display, _
  byval onoff     as XBoolean) as uinteger ptr

' The specified procedure is called with only a display pointer.
' XSetAfterFunction() returns the previous after function.
declare function XSetAfterFunction cdecl alias "XSetAfterFunction" ( _
  byval lpDisplay as Display ptr) as uinteger ptr

declare function XKeysymToString cdecl alias "XKeysymToString" ( _
  byval keySym as KEYSYM) as zstring ptr

declare function XInternAtom cdecl alias "XInternAtom" ( _
  byval lpDisplay as Display ptr, _
  byval atom_name as string, _
  byval bln_must_exist as XBoolean) as ATOM

declare function XInternAtoms cdecl alias "XInternAtoms" ( _
  byval lpDisplay      as Display ptr    , _
  byval atom_names     as zstring ptr ptr, _
  byval count          as integer        , _
  byval bln_must_exist as XBoolean        , _
  byref atoms_return   as ATOM ptr) as integer

declare function XCopyColormapAndFree cdecl alias "XCopyColormapAndFree"( _
  byval lpDisplay as Display ptr, _
  byval color_map as COLORMAP) as COLORMAP

declare function XCreateColormap cdecl alias "XCreateColormap" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID   , _
  byval visual    as VISUAL ptr , _
  byval alloc_num as integer) as COLORMAP

declare function XCreatePixmapCursor cdecl alias "XCreatePixmapCursor" ( _
  byval lpDisplay as Display ptr, _
  byval source    as PIXMAP     , _
  byval mask      as PIXMAP     , _
  byref forecolor as XCOLOR     , _
  byref backcolor as XCOLOR     , _
  byval x         as uinteger   , _
  byval y         as integer) as CURSOR

declare function XCreateGlyphCursor cdecl alias "XCreateGlyphCursor" ( _
  byval lpDisplay   as Display , _
  byval sourc_font  as FONT    , _
  byval mask_font   as FONT    , _
  byval source_char as uinteger, _
  byval mask_char   as uinteger, _
  byref forecolor   as XCOLOR  , _
  byref backcolor   as XCOLOR) as integer

declare function XCreateFontCursor cdecl alias "XCreateFontCursor" ( _
  byval lpDisplay as Display ptr, _
  byval shapenr   as uinteger) as CURSOR

declare function XLoadFont cdecl alias "XLoadFont" ( _
  byval lpDisplay as Display ptr, _
  byval font_name as string) as FONT

declare function XCreateGC cdecl alias "XCreateGC" ( _
  byval lpDisplay as Display ptr , _
  byval Drawable  as XID         , _
  byval valuemask as GCVALUEMASKS, _
  byref values    as XGCValues) as GContext

declare function XGContextFromGC cdecl alias "XGContextFromGC" ( _
  byval GC as GCONTEXT) as GCONTEXT

declare sub XFlushGC cdecl alias "XFlushGC" ( _
  byval lpDisplay as any ptr, _
  byval GC        as GContext)

declare function XCreatePixmap cdecl alias "XCreatePixmap" ( _
  byval lpDisplay as Display ptr, _
  byval drawable  as XID        , _
  byval w         as uinteger   , _
  byval h         as uinteger   , _
  byval depth     as uinteger) as PIXMAP

declare function XCreateBitmapFromData cdecl alias "XCreateBitmapFromData" ( _
  byval lpDisplay as Display ptr, _
  byval drawable  as XID        , _
  byval lpData    as any ptr    , _
  byval w         as uinteger   , _
  byval h         as uinteger) as PIXMAP

declare function XCreatePixmapFromBitmapData cdecl alias "XCreatePixmapFromBitmapData" ( _
  byval lpDisplay as Display ptr, _
  byval drawable  as XID        , _
  byval lpData    as any ptr    , _
  byval w         as uinteger   , _
  byval h         as uinteger   , _
  byval fgcolor   as uinteger   , _
  byval bgcolor   as uinteger   , _
  byval depth     as uinteger) as PIXMAP

declare function XGetSelectionOwner cdecl alias "XGetSelectionOwner" ( _
  byval lpDisplay as Display ptr, _
  byval selection as ATOM) as WindowID

declare function XListInstalledColormaps cdecl alias "XListInstalledColormaps" ( _
  byval lpDisplay  as Display ptr, _
  byval hWin       as WindowID   , _
  byref num_return as integer) as COLORMAP ptr

declare function XListProperties cdecl alias "XListProperties" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WINDOWID   , _
  byref num_prop_return as integer) as ATOM ptr

declare function XListHosts cdecl alias "XListHosts" ( _
  byval lpDisplay     as Display ptr, _
  byref nhosts_return as integer    , _
  byref state_return  as XBoolean) as  XHostAddress ptr

declare function XKeycodeToKeysym cdecl alias "XKeycodeToKeysym" ( _
  byval lpDisplay as Display ptr, _
  byval keycode   as KEYCODE    , _
  byval index     as integer    ) as KEYSYM

declare function XLookupKeysym cdecl alias "XLookupKeysym" ( _
  byref key_event as XKEYEVENT, _
  byval index     as integer) as KEYSYM

declare function XGetKeyboardMapping cdecl alias "XGetKeyboardMapping" ( _
  byval lpDisplay     as Display ptr, _
  byval first_keycode as KEYCODE    , _
  byval keycode_count as integer    , _
  byref keysyms_per_keycode_return as integer) as KEYSYM

declare function XStringToKeysym cdecl alias "XStringToKeysym"         ( _
  byval thestring as string) as KEYSYM

declare function XMaxRequestSize cdecl alias "XMaxRequestSize" ( _
  byval lpDisplay as Display ptr) as integer

declare function XExtendedMaxRequestSize cdecl alias "XExtendedMaxRequestSize" ( _
  byval lpDisplay as Display ptr) as integer

declare function XResourceManagerString cdecl alias "XResourceManagerString"  ( _
  byval lpDisplay as Display ptr) as zstring ptr

declare function XScreenResourceString cdecl alias "XScreenResourceString" ( _
  byref screen as XSCREEN) as zstring ptr

declare function XDisplayMotionBufferSize cdecl alias "XDisplayMotionBufferSize" ( _
  byval lpDisplay as display ptr) as uinteger

declare function XVisualIDFromVisual cdecl alias "XVisualIDFromVisual" ( _
  byval visual as VISUAL ptr) as VISUALID

' multithread routines
declare function XInitThreads   cdecl alias "XInitThreads"   () as integer

declare sub      XLockDisplay   cdecl alias "XLockDisplay"   ( _
  byval lpDisplay as Display ptr)

declare sub      XUnlockDisplay cdecl alias "XUnlockDisplay" ( _
  byval lpDisplay as Display ptr)


' routines for dealing with extensions
declare function XInitExtension cdecl alias "XInitExtension" ( _
  byval lpDisplay as Display ptr,byval name as string) as XExtCodes ptr

declare function XAddExtension cdecl alias "XAddExtension" ( _
  byval lpDisplay as Display ptr) as XExtCodes ptr

'XExtData *XFindOnExtensionList(structure, number)
'      struct _XExtData **structure;
'      int number;
declare function XFindOnExtensionList  cdecl alias "XFindOnExtensionList"  ( _
  byval structure as XExtData ptr ptr, _
  byval number    as integer) as XExtData ptr

declare function XEHeadOfExtensionList cdecl alias "XEHeadOfExtensionList" ( _
  byval object    as XEDataObject) as XExtData ptr ptr

declare function XListFonts cdecl alias "XListFonts" ( _
  byval lpDisplay as Display ptr, _
  byval pattern   as string     , _
  byval maxnames  as integer    , _
  byref actualcount_return as integer) as zstring ptr ptr

declare function XListFontsWithInfo cdecl alias "XListFontsWithInfo" ( _
  byval lpDisplay          as Display ptr, _
  byval pattern            as string     , _
  byval maxnames           as integer    , _
  byref actualcount_return as integer, _
  byref info_return        as XFONTSTRUCT ptr ptr) as zstring ptr ptr

declare function XGetFontPath cdecl alias "XGetFontPath" ( _
  byval lpDisplay     as Display ptr, _
  byref npaths_return as integer) as zstring ptr ptr

' ! must be deallocted with XFreeExtensionList !
declare function XListExtensions cdecl alias "XListExtensions" ( _
  byval lpDisplay         as Display ptr, _
  byval nExtension_return as integer ptr) as zstring ptr ptr


declare function XDefaultRootWindow cdecl alias "XRootWindow" ( _
  byval lpDisplay as Display ptr) as XID

declare function XRootWindow cdecl alias "XRootWindow" ( _
  byval lpDisplay     as Display ptr, _
  byval screen_number as integer) as XID

declare function XDefaultGC cdecl alias "XDefaultGC" ( _
  byval lpDisplay     as Display ptr, _
  byval screen_number as integer) as integer

declare function XBlackPixel cdecl alias "XBlackPixel" ( _
  byval lpDisplay     as Display ptr, _
  byval screen_number as integer) as uinteger

declare function XWhitePixel cdecl alias "XWhitePixel" ( _
  byval lpDisplay     as Display ptr, _
  byval screen_number as integer) as uinteger

'get visual
declare function XDefaultVisual cdecl alias "XDefaultVisual" ( _
  byval lpDisplay     as Display ptr, _
  byval screen_number as integer) as Visual ptr


declare function XAllPlanes cdecl alias "XAllPlanes" () as uinteger

declare function XNextRequest cdecl alias "XNextRequest" ( _
  byval lpDisplay as Display ptr) as uinteger

declare function XServerVendor cdecl alias "XServerVendor" ( _
  byval lpDisplay as Display ptr) as zstring ptr

declare function XDisplayString cdecl alias "XDisplayString" ( _
  byval lpDisplay as Display ptr) as zstring ptr

declare function XDefaultColormap cdecl alias "XDefaultColormap" ( _
  byval lpDisplay as Display ptr,byval screen_number as integer) as Colormap

declare function XDefaultScreenOfDisplay cdecl alias "XDefaultScreenOfDisplay" ( _
  byval lpDisplay as Display ptr) as XScreen ptr

declare function XScreenOfDisplay cdecl alias "XScreenOfDisplay" ( _
  byval lpDisplay      as Display ptr, _
  byval screen_number as integer) as XScreen ptr

'get values of screen
declare function XDefaultDepthOfScreen cdecl alias "XDefaultDepthOfScreen" ( _
  byval lpScreen as XScreen ptr) as integer

declare function XRootWindowOfScreen cdecl alias "XRootWindowOfScreen" ( _
  byval lpScreen as XScreen ptr) as WindowID

declare function XDefaultColormapOfScreen cdecl alias "XDefaultColormapOfScreen" ( _
  byval lpScreen as XScreen ptr) as Colormap

declare function XBlackPixelOfScreen cdecl alias "XBlackPixelOfScreen" ( _
  byval lpScreen as XScreen ptr) as uinteger

declare function XWhitePixelOfScreen cdecl alias "XWhitePixelOfScreen" ( _
  byval lpScreen as XScreen ptr) as uinteger

declare function XDisplayOfScreen cdecl alias "XDisplayOfScreen" ( _
  byval lpScreen as XScreen ptr) as Display ptr

declare function XEventMaskOfScreen cdecl alias "XEventMaskOfScreen" ( _
  byval lpScreen as XScreen ptr) as integer

declare function XScreenNumberOfScreen cdecl alias "XScreenNumberOfScreen" ( _
  byval lpScreen as XScreen ptr) as integer

declare function XDefaultGCOfScreen cdecl alias "XDefaultGCOfScreen" ( _
  byval lpScreen as XScreen ptr) as GContext

declare function XDefaultVisualOfScreen cdecl alias "XDefaultVisualOfScreen" ( _
  byval lpScreen as XScreen ptr) as Visual ptr

declare function XAllocColor cdecl alias "XAllocColor" ( _
  byval lpDisplay  as Display ptr, _
  byval color_map  as Colormap   , _
  byval lpXColor   as XColor ptr) as integer

declare function XAllocNamedColor cdecl alias "XAllocNamedColor" ( _
  byval lpDisplay  as Display ptr, _
  byval color_map  as Colormap   , _
  byval col_name   as string     , _
  byval col_return as XCOLOR ptr , _
  byref exact_def_return as XCOLOR) as integer


declare function XListPixmapFormats  cdecl alias "XListPixmapFormats" ( _
  byval lpDisplay    as Display ptr , _
  byref count_return as integer) as XPixmapFormatValues ptr

declare function XListDepths cdecl alias "XListDepths" ( _
  byval lpDisplay    as Display ptr, _
  byval screen_num   as integer    , _
  byref count_return as integer) as  integer ptr

declare function XIconifyWindow  cdecl alias "XIconifyWindow" ( _
  byval lpDisplay  as Display ptr, _
  byval hWin       as WindowID   , _
  byval screen_num as integer) as integer

declare function XWithdrawWindow cdecl alias "XWithdrawWindow" ( _
  byval lpDisplay  as Display ptr, _
  byval hWin       as WindowID   , _
  byval screen_num as integer) as integer

' char*** argv_return !!!
declare function XGetCommand cdecl alias "XGetCommand" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID   , _
  byref argv      as zstring ptr ptr, _
  byref argc      as integer) as integer

declare function XReconfigureWMWindow cdecl alias "XReconfigureWMWindow" ( _
  byval lpDisplay  as Display ptr, _
  byval hWin       as WindowID   , _
  byval screen_num as integer    , _
  byval mask       as uinteger   , _
  byref changes    as XWINDOWCHANGES) as integer


declare function XFreeStringList cdecl alias "XFreeStringList" ( _
  byval lplpList as zstring ptr ptr) as integer

declare function XSetTransientForHint  cdecl alias "XSetTransientForHint"  ( _
  byval lpDisplay  as Display ptr, _
  byval hWin       as WindowID   , _
  byval prp_window as WINDOWID) as integer

'The following are given in alphabetical order
declare function XActivateScreenSaver cdecl alias "XActivateScreenSaver" ( _
  byval lpDisplay as Display ptr) as integer

declare function XAddHost cdecl alias "XAddHost" ( _
  byval lpDisplay as Display ptr, _
  byref host      as XHOSTADDRESS) as integer

declare function XAddHosts cdecl alias "XAddHosts" ( _
  byval lpDisplay as Display ptr, _
  byref hosts     as XHOSTADDRESS, _
  byval num_hosts as integer) as integer

declare function XAddToSaveSet cdecl alias "XAddToSaveSet" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID) as integer

declare function XAddToExtensionList cdecl alias "XAddToExtensionList" ( _
  byval lplpExtData as any ptr ptr, _
  byval   lpExtData as any ptr) as integer

declare function XAllocColorCells cdecl alias "XAllocColorCells" ( _
  byval lpDisplay          as Display ptr, _
  byval color_map          as COLORMAP   , _
  byval config             as XBoolean    , _
  byref plane_masks_return as uinteger, _
  byval nplans             as uinteger, _
  byref pixels_return      as uinteger, _
  byval npixel             as uinteger) as integer

declare function XAllocColorPlanes cdecl alias "XAllocColorPlanes" ( _
  byval lpDisplay     as Display ptr, _
  byval color_map     as COLORMAP   , _
  byval config        as XBoolean    , _
  byref pixels_return as uinteger   , _
  byval ncolors       as integer    , _
  byval nreds         as integer    , _
  byval ngreens       as integer    , _
  byval nblues        as integer    , _
  byref rmask_ret     as uinteger   , _
  byref gmask_ret     as uinteger   , _
  byref bmask_ret     as uinteger) as integer

declare function XAllowEvents    cdecl alias "XAllowEvents"    ( _
  byval lpDisplay  as Display ptr, _
  byval event_mode as integer    , _
  byval t          as XTIME) as integer

declare function XAutoRepeatOff  cdecl alias "XAutoRepeatOff"  ( _
  byval lpDisplay as Display ptr) as integer

declare function XAutoRepeatOn   cdecl alias "XAutoRepeatOn"   ( _
  byval lpDisplay as Display ptr) as integer

declare function XBell           cdecl alias "XBell"           ( _
  byval lpDisplay as Display ptr, _
  byval percent   as integer) as integer

declare function XBitmapBitOrder cdecl alias "XBitmapBitOrder" ( _
  byval lpDisplay as Display ptr) as integer

declare function XBitmapPad      cdecl alias "XBitmapPad"      ( _
  byval lpDisplay as Display ptr) as integer

declare function XBitmapUnit     cdecl alias "XBitmapUnit"     ( _
  byval lpDisplay as Display ptr) as integer

declare function XCellsOfScreen  cdecl alias "XCellsOfScreen" ( _
  byval lpDisplay as Display ptr, _
  byval lpScreen  as XSCREEN) as integer

declare function XChangeActivePointerGrab cdecl alias "XChangeActivePointerGrab" ( _
  byval lpDisplay  as Display ptr, _
  byval event_mask as uinteger, _
  byval cursor     as CURSOR, _
  byval t          as XTIME) as integer

declare function XChangeGC cdecl alias "XChangeGC" ( _
  byval lpDisplay as Display ptr, _
  byval GC        as GCONTEXT   , _
  byval valuemask as GCVALUEMASKS, _
  byref values    as XGCVALUES) as integer

declare function XChangeKeyboardControl cdecl alias "XChangeKeyboardControl" ( _
  byval lpDisplay  as Display ptr, _
  byval value_mask as uinteger   , _
  byref values     as XKEYBOARDCONTROL) as integer

declare function XChangeKeyboardMapping cdecl alias "XChangeKeyboardMapping" ( _
  byval lpDisplay           as Display ptr, _
  byval first_keycode       as integer    , _
  byval keysyms_per_keycode as integer    , _
  byref keysmys             as KEYSYM     , _
  byval num_codes           as integer) as integer

declare function XChangePointerControl cdecl alias "XChangePointerControl" ( _
  byval lpDisplay         as Display ptr, _
  byval do_accel          as XBoolean, _
  byval do_threshold      as XBoolean, _
  byval accel_numerator   as integer, _
  byval accel_denominator as integer, _
  byval threshold         as integer) as integer

declare function XChangeProperty cdecl alias "XChangeProperty" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WINDOWID   , _
  byval property  as ATOM       , _
  byval typ       as ATOM       , _
  byval format    as integer    , _
  byval mode      as integer    , _
  byval lpdatat   as any ptr    , _
  byval nitems    as integer) as integer

declare function XChangeSaveSet cdecl alias "XChangeSaveSet" ( _
  byval lpDisplay   as Display ptr, _
  byval hWin        as WINDOWID   , _
  byval change_mode as integer) as integer

declare function XCheckMaskEvent cdecl alias "XCheckMaskEvent" ( _
  byval lpDisplay    as Display ptr, _
  byval event_mask   as integer    , _
  byref event_return as XEVENT) as XBoolean

declare function XCheckTypedEvent cdecl alias "XCheckTypedEvent" ( _
  byval lpDisplay    as Display ptr, _
  byval event_type   as integer    , _
  byref event_return as XEVENT     ) as XBoolean

declare function XCheckTypedWindowEvent cdecl alias "XCheckTypedWindowEvent" ( _
  byval lpDisplay    as Display ptr, _
  byval hWin         as WINDOWID   , _
  byval event_type   as integer    , _
  byref event_return as XEVENT     ) as XBoolean


declare function XCheckWindowEvent cdecl alias "XCheckWindowEvent" ( _
  byval lpDisplay    as Display ptr, _
  byval hWin         as WINDOWID   , _
  byval event_mask   as integer    , _
  byref event_return as XEVENT) as XBoolean

declare function XCirculateSubwindows cdecl alias "XCirculateSubwindows" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WINDOWID   , _
  byval direction as integer) as integer

declare function XCirculateSubwindowsDown cdecl alias "XCirculateSubwindowsDown" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WINDOWID) as integer

declare function XCirculateSubwindowsUp cdecl alias "XCirculateSubwindowsUp" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WINDOWID) as integer

declare function XClearArea cdecl alias "XClearArea" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WINDOWID   , _
  byval x         as integer    , _
  byval y         as integer    , _
  byval w         as uinteger   , _
  byval h         as uinteger   , _
  byval exposure  as XBoolean    ) as XBoolean

declare function XClearWindow cdecl alias "XClearWindow" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID) as integer

declare function XCloseDisplay cdecl alias "XCloseDisplay" ( _
  byval lpDisplay as Display ptr) as integer

declare function XConfigureWindow  cdecl alias "XConfigureWindow" ( _
  byval lpDisplay  as Display ptr, _
  byval hWin       as WindowID   , _
  byval value_mask as integer    , _
  byref changes    as XWINDOWCHANGES) as integer

declare function XConnectionNumber  cdecl alias "XConnectionNumber"  ( _
  byval lpDisplay as Display ptr) as integer

declare function XConvertSelection cdecl alias "XConvertSelection" ( _
  byval lpDisplay as Display ptr, _
  byval selection as ATOM       , _
  byval target    as ATOM       , _
  byval property  as ATOM       , _
  byval requester as WindowID   , _
  byval t         as XTIME) as integer

declare function XCopyArea cdecl alias "XCopyArea" ( _
  byval lpDisplay as Display ptr, _
  byval scr       as DRAWABLE   , _
  byval des       as DRAWABLE   , _
  byval GC        as GCONTEXT   , _
  byval src_x     as integer    , _
  byval src_y     as integer    , _
  byval w         as uinteger   , _
  byval h         as uinteger   , _
  byval des_x     as integer    , _
  byval des_y     as integer) as integer

declare function XCopyGC cdecl alias "XCopyGC" ( _
  byval lpDisplay as Display ptr, _
  byval src_gc    as GCONTEXT   , _
  byval valuemask as uinteger   , _
  byval des_gc    as GCONTEXT) as integer

declare function XCopyPlane cdecl alias "XCopyPlane"( _
  byval lpDisplay as Display ptr, _
  byval scr       as DRAWABLE, _
  byval des       as DRAWABLE, _
  byval GC        as GCONTEXT,_
  byval src_x     as integer , _
  byval src_y     as integer , _
  byval w         as uinteger, _
  byval height    as uinteger, _
  byval des_x     as integer , _
  byval des_y     as integer , _
  byval plane     as uinteger) as integer

declare function XDefaultDepth cdecl alias "XDefaultDepth" ( _
  byval lpDisplay     as Display ptr, _
  byval screen_number as integer) as integer

declare function XDefineCursor cdecl alias "XDefineCursor" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID   , _
  byval cursor    as Cursor) as integer

declare function XDeleteProperty cdecl alias "XDeleteProperty"  ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID   , _
  byval property  as Atom) as integer

declare function XDefaultScreen cdecl alias "XDefaultScreen" ( _
  byval lpDisplay as Display ptr) as integer

declare function XDisplayHeight cdecl alias "XDisplayHeight" ( _
  byval lpDisplay     as Display ptr, _
  byval screen_number as integer) as integer

declare function XDisplayWidth cdecl alias "XDisplayWidth" ( _
  byval lpDisplay     as Display ptr, _
  byval screen_number as integer) as integer

declare function XDestroyWindow     cdecl alias "XDestroyWindow"     ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID) as integer

declare function XDestroySubwindows cdecl alias "XDestroySubwindows" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID) as integer

declare function XDisableAccessControl cdecl alias "XDisableAccessControl" ( _
  byval lpDisplay as Display ptr) as integer

declare function XDisplayCells cdecl alias "XDisplayCells" ( _
  byval lpDisplay     as Display ptr, _
  byval screen_number as integer) as integer

declare function XDisplayHeightMM   cdecl alias "XDisplayHeightMM" ( _
  byval lpDisplay     as Display ptr, _
  byval screen_number as integer) as integer

declare function XDisplayKeycodes   cdecl alias "XDisplayKeycodes" ( _
  byval lpDisplay      as Display ptr, _
  byref min_key_return as integer    , _
                                                                      byref max_keyc_return as integer)  as integer
declare function XDisplayPlanes     cdecl alias "XDisplayPlanes" ( _
  byval lpDisplay     as Display ptr, _
  byval screen_number as integer) as integer

declare function XDisplayWidthMM    cdecl alias "XDisplayWidthMM" ( _
  byval lpDisplay     as Display ptr, _
  byval screen_number as integer) as integer

declare function XDrawImageString   cdecl alias "XDrawImageString"   ( _
  byval lpDisplay as Display ptr, _
  byval Drawable  as XID        , _
  byval GC        as GContext   , _
  byval x         as integer    , _
  byval y         as integer    , _
  byval text      as string     , _
  byval length    as integer    ) as integer

declare function XDrawString cdecl alias "XDrawString" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as XID        , _
  byval GC        as GContext   , _
  byval x         as integer    , _
  byval y         as integer    , _
  byval Text      as string     , _
  byval length    as integer) as integer

declare function XDoesBackingStore cdecl alias "XDoesBackingStore" ( _
  byval lpScreen as XScreen ptr) as integer

declare function XDoesSaveUnders cdecl alias "XDoesSaveUnders" ( _
  byval lpScreen as XScreen ptr) as XBoolean

declare function XEnableAccessControl cdecl alias "XEnableAccessControl" ( _
  byval lpDisplay as Display ptr) as integer

declare function XEventsQueued cdecl alias "XEventsQueued" ( _
  byval lpDisplay as Display ptr, _
  byval mode      as integer) as integer

declare function XFetchName cdecl alias "XFetchName" ( _
  byval lpDisplay   as Display ptr, _
  byval hWin        as WINDOWID, _
  byval name_return as zstring ptr ptr) as integer

'Drawing
declare function XDrawRectangle cdecl alias "XDrawRectangle" ( _
  byval lpDisplay as Display ptr, _
  byval Drawable  as XID        , _
  byval GC        as GContext   , _
  byval x         as integer    , _
  byval y         as integer    , _
  byval w         as integer    , _
  byval h         as integer) as integer

declare function XDrawRectangles cdecl alias "XDrawRectangles" ( _
  byval lpDisplay   as Display ptr, _
  byval Drawable    as XID        , _
  byval GC          as GContext   , _
  byref rectangles  as XRectangle , _
  byval nrectangles as integer    ) as integer

declare function XDrawSegments cdecl alias "XDrawSegments" ( _
  byval lpDisplay as Display ptr, _
  byval Drawable  as XID        , _
  byval GC        as GContext   , _
  byref segments  as XSegment   , _
  byval nsegments as integer) as integer

declare function XFillArc cdecl alias "XFillArc" ( _
  byval lpDisplay as Display ptr, _
  byval Drawable  as XID        , _
  byval GC        as GContext   , _
  byval x         as integer    , _
  byval y         as integer    , _
  byval w         as integer    , _
  byval h         as integer    , _
  byval angle1    as integer    , _
  byval angle2    as integer) as integer

declare function XFillArcs cdecl alias "XFillArcs" ( _
  byval lpDisplay as Display ptr, _
  byval Drawable  as XID     , _
  byval GC        as GContext, _
  byref arcs      as XArc    , _
  byval narcs     as integer) as integer

declare function XFillPolygon cdecl alias "XFillPolygon" ( _
  byval lpDisplay as Display ptr, _
  byval Drawable  as XID        , _
  byval GC        as GContext   , _
  byref points    as XPoint     , _
  byval npoints   as integer    , _
  byval shape     as integer    , _
  byval mode      as integer) as integer

declare function XFillRectangle  cdecl alias "XFillRectangle" ( _
  byval lpDisplay as Display ptr, _
  byval Drawable  as XID        , _
  byval GC        as GContext   , _
  byval x         as integer    , _
  byval y         as integer    , _
  byval w         as integer    , _
  byval h         as integer) as integer

declare function XFillRectangles cdecl alias "XFillRectangles" ( _
  byval lpDisplay   as Display ptr, _
  byval Drawable    as XID        , _
  byval GC          as GContext   , _
  byref rectangles  as XRectangle , _
  byval nrectangles as integer    ) as integer

declare function XDrawArc cdecl alias "XDrawArc" ( _
  byval lpDisplay as Display ptr, _
  byval Drawable  as XID        , _
  byval GC        as GContext   , _
  byval x         as integer    , _
  byval y         as integer    , _
  byval w         as integer    , _
  byval h         as integer    , _
  byval angle1    as integer    , _
  byval angle2    as integer) as integer

declare function XDrawArcs cdecl alias "XDrawArcs" ( _
  byval lpDisplay as Display ptr, _
  byval Drawable  as XID        , _
  byref arcs      as XArc       , _
  byval narcs     as integer) as integer

declare function XDrawLine cdecl alias "XDrawLine" ( _
  byval lpDisplay as Display ptr, _
  byval Drawable  as XID        , _
  byval GC        as GContext   , _
  byval x1        as integer    , _
  byval y1        as integer    , _
  byval x2        as integer    , _
  byval y2        as integer) as integer

declare function XDrawLines  cdecl alias "XDrawLines" ( _
  byval lpDisplay as Display ptr, _
  byval Drawable  as XID, _
  byval GC        as GContext, _
  byref points    as XPoint, _
  byval npoints   as integer, _
  byval mode      as integer) as integer

declare function XDrawPoint  cdecl alias "XDrawPoint"  ( _
  byval lpDisplay as Display ptr, _
  byval Drawable  as XID        , _
  byval GC        as GContext   , _
  byval x         as integer    , _
  byval y         as integer) as integer

declare function XDrawPoints cdecl alias "XDrawPoints" ( _
  byval lpDisplay as Display ptr, _
  byval Drawable  as XID        , _
  byval GC        as GContext   , _
  byref points    as XPoint     , _
  byval npoints   as integer    , _
  byval mode      as integer    ) as integer

declare function XFlush cdecl alias "XFlush" ( _
  byval lpDisplay as Display ptr) as integer

declare function XFree cdecl alias "XFree" ( _
  byval lpAny     as any ptr) as integer

declare function XFreeGC cdecl alias "XFreeGC" ( _
  byval lpDisplay as Display ptr, _
  byval GC        as GContext) as integer

'mode = ScreenSaverActive or ScreenSaverReset
declare function XForceScreenSaver cdecl alias "XForceScreenSaver" ( _
  byval lpDisplay as Display ptr, _
  byval mode      as integer) as integer

declare function XFreeColormap cdecl alias "XFreeColormap" ( _
  byval lpDisplay as Display ptr, _
  byval colormap  as COLORMAP) as integer

declare function XFreeColors cdecl alias "XFreeColors" ( _
  byval lpDisplay as Display ptr, _
  byval colormap  as COLORMAP   , _
  byref pixels    as uinteger   , _
  byval npixels   as integer    , _
  byval planes    as uinteger   ) as integer

declare function XFreeCursor cdecl alias "XFreeCursor" ( _
  byval lpDisplay as Display ptr, _
  byval cursor    as CURSOR) as integer

declare function XFreeFont cdecl alias "XFreeFont" ( _
  byval lpDisplay as Display ptr    , _
  byval lpFont    as XFontStruct ptr) as integer

declare function XFreeExtensionList cdecl alias "XFreeExtensionList" ( _
  byval lplpList as zstring ptr ptr) as integer

declare function XFreeFontNames cdecl alias "XFreeFontNames" ( _
  byval lplpList as zstring ptr ptr) as integer

declare function XFreeFontPath cdecl alias "XFreeFontPath" ( _
  byval lplpList as zstring ptr ptr) as integer

declare function XFreeFontInfo cdecl alias "XFreeFontInfo" ( _
  byval lplpNames   as zstring ptr ptr, _
  byref free_infos  as XFontStruct    , _
  byval atual_count as integer        ) as integer

declare function XFreeModifiermap cdecl alias "XFreeModifiermap" ( _
  byref modmap as XModifierKeymap) as integer

declare function XFreePixmap cdecl alias "XFreePixmap" ( _
  byval lpDisplay as Display ptr, _
  byval pixmap    as PIXMAP     ) as integer

declare function XGeometry cdecl alias "XGeometry" ( _
  byval lpDisplay        as Display ptr, _
  byval screen_num       as integer, _
  byval position         as string     , _
  byval default_position as string, _
  byval bwidth           as uinteger   , _
  byval fwidth           as uinteger, _
  byval fheight          as uinteger, _
  byval xadder           as integer    , _
  byval yaddrt           as integer, _
  byref x_return         as integer    , _
  byref y_return         as integer, _
  byref width_return     as integer    , _
  byref height_return    as integer ) as integer

declare function XGetErrorDatabaseText cdecl alias "XGetErrorDatabaseText" ( _
  byval lpDisplay      as Display ptr, _
  byval name           as string     , _
  byval message        as string     , _
  byval default_string as string     , _
  byref buffer_return  as zstring ptr, _
  byval length         as integer    ) as integer

declare function XGetErrorText cdecl alias "XGetErrorText" ( _
  byval lpDisplay     as Display ptr, _
  byval code          as integer    , _
  byval buffer_return as string, _
  byval length        as integer) as integer

declare function XGetFontProperty cdecl alias "XGetFontProperty" ( _
  byref font_struct  as XFONTSTRUCT, _
  byval property     as ATOM       , _
  byref value_return as uinteger   ) as XBoolean

declare function XGetGCValues cdecl alias "XGetGCValues" ( _
  byval lpDisplay     as Display ptr , _
  byval gc            as GCONTEXT    , _
  byval vlauemask     as GCVALUEMASKS, _
  byref values_return as XGCVALUES   ) as integer

declare function  XGetGeometry cdecl alias "XGetGeometry" ( _
  byval lpDisplay       as Display ptr, _
  byval d               as DRAWABLE   , _
  byval hWin            as WINDOWID   , _
  byref x_return        as integer    , _
  byref y_return        as integer    , _
  byref width_return    as uinteger   , _
  byref height_return   as uinteger   , _
  byref borderwidth_return as uinteger, _
  byref depth_return as uinteger) as integer

declare function XGetIconName cdecl alias "XGetIconName" ( _
  byval lpDisplay       as Display ptr, _
  byval hWin            as WINDOWID   , _
  byref iconname_return as zstring ptr ptr) as integer

declare function XGetInputFocus cdecl alias "XGetInputFocus" ( _
  byval lpDisplay        as Display ptr, _
  byval hWin             as WINDOWID   , _
  byref revert_to_return as integer) as integer

declare function XGetKeyboardControl cdecl alias "XGetKeyboardControl" ( _
  byval lpDisplay     as Display ptr, _
  byref values_return as XKEYBOARDSTATE) as integer

declare function XGetPointerControl cdecl alias "XGetPointerControl" ( _
  byval lpDisplay                as Display ptr, _
  byref accel_numerator_return   as integer, _
  byref accel_denominator_return as integer, _
  byref threshold_return         as integer) as integer

declare function XGetPointerMapping cdecl alias "XGetPointerMapping" ( _
  byval lpDisplay  as Display ptr, _
  byref map_return as ubyte ptr  , _
  byval nmap       as integer    ) as integer

declare function XGetScreenSaver cdecl alias "XGetScreenSaver" ( _
  byval lpDisplay              as Display ptr, _
  byref timeout_return         as integer, _
  byref interval_return        as integer, _
  byref prefer_blanking_return as integer, _
  byref allow_exposures_return as integer) as integer

declare function XGetTransientForHint cdecl alias "XGetTransientForHint" ( _
  byval lpDisplay          as Display ptr, _
  byval hWin               as WINDOWID   , _
  byref prop_window_return as WINDOWID) as integer

declare function XGetWindowProperty cdecl alias "XGetWindowProperty" ( _
  byval lpDisplay            as Display ptr, _
  byval hWin                 as WINDOWID   , _
  byval property             as ATOM       , _
  byval offset               as integer    , _
  byval length               as integer    , _
  byval _delete              as XBoolean    , _
  byval req_type             as ATOM       , _
  byref actual_type_return   as ATOM       , _
  byref actual_format_return as integer    , _
  byref nitems_return        as uinteger   , _
  byref bytes_after_return   as uinteger   , _
  byref prop_return          as ubyte ptr ptr) as integer

declare function XGrabButton cdecl alias "XGrabButton" ( _
  byval lpDisplay     as Display ptr, _
  byval button        as uinteger   , _
  byval modifiers     as uinteger   , _
  byval grab_hWin     as WINDOWID   , _
  byval owner_events  as XBoolean    , _
  byval event_mask    as uinteger   , _
  byval pointer_mode  as integer    , _
  byval keyboard_mode as integer    , _
  byval confine_to    as WINDOWID   , _
  byval cursor        as CURSOR) as integer

declare function XGrabKey cdecl alias "XGrabKey" ( _
  byval lpDisplay     as Display ptr, _
  byval key_code      as integer    , _
  byval modifiers     as uinteger   , _
  byval grab_hWin     as WINDOWID   , _
  byval owner_events  as XBoolean    , _
  byval pointer_mode  as integer    , _
  byval keyboard_mode as integer) as integer

declare function XGrabKeyboard cdecl alias "XGrabKeyboard" ( _
  byval lpDisplay     as Display ptr, _
  byval grab_hWin     as WINDOWID   , _
  byval owner_events  as XBoolean    , _
  byval pointer_mode  as integer    , _
  byval keyboard_mode as integer    , _
  byval t             as XTIME) as integer

declare function XGrabPointer cdecl alias "XGrabPointer" ( _
  byval lpDisplay     as Display ptr, _
  byval grab_hWin     as WINDOWID   , _
  byval owner_events  as XBoolean    , _
  byval event_mask    as  uinteger  , _
  byval pointer_mode  as integer    , _
  byval keyboard_mode as integer    , _
  byval confine_to    as WINDOWID   , _
  byval cursor        as CURSOR     , _
  byval t             as XTIME) as integer

declare function XGrabServer cdecl alias "XGrabServer" ( _
  byval lpDisplay  as Display ptr) as integer

declare function XHeightMMOfScreen cdecl alias "XHeightMMOfScreen" ( _
  byval lpscreen as XSCREEN ptr) as integer

declare function XHeightOfScreen cdecl alias "XHeightOfScreen" ( _
  byval lpscreen as XSCREEN ptr) as integer

declare function XIfEvent cdecl alias "XIfEvent" ( _
  byval lpDisplay    as Display ptr, _
  byref event_return as XEVENT     , _
  byval predicate    as function cdecl ( _
    byval lpDisplay  as Display ptr, _
    byref event      as XEVENT     , _
    byval arg        as XPOINTER) as XBoolean , _
  byval arg          as XPOINTER) as integer


declare function XInstallColormap cdecl alias "XInstallColormap" ( _
  byval lpDisplay as Display ptr, _
  byval color_map as COLORMAP) as integer

declare function XKeysymToKeycode cdecl alias "XKeysymToKeycode" ( _
  byval lpDisplay as Display ptr, _
  byval ks        as KEYSYM) as KEYCODE

declare function XKillClient cdecl alias "XKillClient" ( _
  byval lpDisplay  as Display ptr, _
  byval resourceid as XID) as integer

declare function XLookupColor cdecl alias "XLookupColor" ( _
  byval lpDisplay     as Display ptr, _
  byval color_map     as COLORMAP   , _
  byval color_name    as string     , _
  byref exact_return  as XCOLOR     , _
  byref screen_return as XCOLOR) as integer

'X Server
declare function XOpenDisplay      cdecl alias "XOpenDisplay" ( _
  byval as string = "") as Display ptr

declare function XProtocolRevision cdecl alias "XProtocolRevision" ( _
  byval lpDisplay as Display ptr) as integer

declare function XProtocolVersion  cdecl alias "XProtocolVersion" ( _
  byval lpDisplay as Display ptr) as integer

declare function XLastKnownRequestProcessed cdecl alias "XLastKnownRequestProcessed" ( _
  byval lpDisplay as Display ptr) as uinteger

declare function XSync cdecl alias "XSync" ( _
  byval lpDisplay as Display ptr, _
  byval discard   as XBoolean) as integer

'### Window section ###
declare function XCreateSimpleWindow cdecl alias "XCreateSimpleWindow" ( _
  byval lpDisplay     as Display ptr, _
  byval parentwin     as WindowID   , _
  byval x             as integer    , _
  byval y             as integer    , _
  byval w             as integer    , _
  byval h             as integer    , _
  byval border_width  as integer    , _
  byval border_pixel  as uinteger   , _
  byval bground_pixel as uinteger ) as WindowID

declare function XCreateWindow cdecl alias "XCreateWindow" ( _
  byval lpDisplay    as Display ptr, _
  byval hRoot        as WindowID   , _
  byval x            as integer    , _
  byval y            as integer    , _
  byval w            as integer    , _
  byval h            as integer    , _
  byval border_width as integer    , _
  byval depth        as integer    , _
  byval class        as WINDOWCLASSES, _
  byval visual       as VISUAL ptr   , _
  byval valuemask    as WINDOWATTRIBUTEMASKS, _
  byref window_atb   as XSETWINDOWATTRIBUTES) as WindowID

declare function XChangeWindowAttributes cdecl alias "XChangeWindowAttributes" ( _
  byval lpDisplay      as Display ptr, _
  byval hWin           as WindowID   , _
  byval valuemask      as WINDOWATTRIBUTEMASKS, _
  byref new_attributes as XSETWINDOWATTRIBUTES) as integer

declare function XGetWindowAttributes cdecl alias "XGetWindowAttributes" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID   , _
  byval attribute as XWINDOWATTRIBUTES ptr) as integer

declare function XStoreName cdecl alias "XStoreName" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID   , _
  byval Caption   as string) as integer

declare function XMapRaised cdecl alias "XMapRaised" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID) as integer

declare function XMapWindow cdecl alias "XMapWindow" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID) as integer

declare function XMapSubwindows cdecl alias "XMapSubwindows" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID) as integer

declare function XLowerWindow cdecl alias "XLowerWindow" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID) as integer

declare function XRaiseWindow cdecl alias "XRaiseWindow" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID   ) as integer

declare function XMoveWindow cdecl alias "XMoveWindow" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID   , _
  byval x         as integer    , _
  byval y         as integer) as integer

declare function XResizeWindow cdecl alias "XResizeWindow" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID   , _
  byval w         as integer    , _
  byval h         as integer) as integer

declare function XMoveResizeWindow cdecl alias "XMoveResizeWindow" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WindowID   , _
  byval x         as integer    , _
  byval y         as integer    , _
  byval w         as uinteger   , _
  byval h         as uinteger) as integer

declare function XSetForeground cdecl alias "XSetForeground" ( _
  byval lpDisplay as Display ptr, _
  byval GC        as GContext   , _
  byval fg        as uinteger) as integer

declare function XSetBackground cdecl alias "XSetBackground" ( _
  byval lpDisplay as Display ptr, _
  byval GC        as GContext   , _
  byval bg        as uinteger) as integer

declare function XSetLineAttributes cdecl alias "XSetLineAttributes"( _
  byval lpDisplay  as Display ptr, _
  byval GC         as GContext, _
  byval line_width as uinteger, _
  byval line_style as integer , _
  byval cap_style  as integer , _
  byval join_style as integer) as integer

declare function XSetFillStyle cdecl alias "XSetFillStyle" ( _
  byval lpDisplay  as Display ptr, _
  byval GC         as GContext   , _
  byval fill_style as integer) as integer

'Set / Register EventType
declare function XSelectInput cdecl alias "XSelectInput" ( _
  byval lpDisplay  as Display ptr, _
  byval hWin       as Windowid, _
  byval event_mask as EVENTMASKS) as integer

'Wait and Get Next Event
declare function XNextEvent cdecl alias "XNextEvent"         ( _
  byval lpDisplay    as Display ptr, _
  byref event_return as XEVENT) as integer

'Try to Get Event
declare function XPending cdecl alias "XPending" ( _
  byval lpDisplay as Display ptr) as integer

'Put Event Back
declare function XPutBackEvent cdecl alias "XPutBackEvent" ( _
  byval lpDisplay    as Display ptr, _
  byref event_to_put as XEVENT) as integer

declare function XMaskEvent cdecl alias "XMaskEvent" ( _
  byval lpDisplay    as Display ptr, _
  byval event_mask   as integer    , _
  byref event_return as XEVENT) as integer

declare function XMaxCmapsOfScreen cdecl alias "XMaxCmapsOfScreen" ( _
  byval lpscreen as XSCREEN) as integer

declare function XMinCmapsOfScreen cdecl alias "XMinCmapsOfScreen" ( _
  byval lpscreen as XSCREEN) as integer

declare function XNoOp cdecl alias "XNoOp" ( _
  byval lpDisplay as Display ptr) as integer

declare function XParseColor cdecl alias "XParseColor" ( _
  byval lpDisplay as Display ptr, _
  byval color_map as COLORMAP   , _
  byval spec      as byte ptr   , _
  byref exact_def_return as XCOLOR) as integer

declare function XParseGeometry cdecl alias "XParseGeometry" ( _
  byval parsestring   as string , _
  byref x_return      as integer, _
  byref y_return      as integer, _
  byref width_return  as uinteger, _
  byref height_return as uinteger ) as integer

declare function XPeekEvent cdecl alias "XPeekEvent" ( _
  byval lpDisplay    as Display ptr, _
  byref event_return as XEVENT) as integer

declare function XPeekIfEvent cdecl alias "XPeekIfEvent" ( _
  byval lpDisplay as Display ptr, _
  byref event_return as XEVENT  , _
  byval predicate as function cdecl ( _
    byval lpDisplay as Display ptr, _
    byref event     as XEVENT     , _
    byval arg       as XPOINTER) as XBoolean , _
  byval arg as XPOINTER) as integer

declare function XPlanesOfScreen cdecl alias "XPlanesOfScreen" ( _
  byval lpScreen as XSCREEN ptr) as integer

declare function XQLength cdecl alias "XQLength" ( _
  byval lpDisplay as Display ptr) as integer

declare function XQueryBestCursor cdecl alias "XQueryBestCursor" ( _
  byval lpDisplay as Display ptr, _
  byval d         as DRAWABLE   , _
  byval w         as uinteger   , _
  byval h         as uinteger   , _
  byref w_return  as uinteger   , _
  byref h_return  as uinteger) as integer

declare function XQueryBestSize cdecl alias "XQueryBestSize" ( _
  byval lpDisplay    as Display ptr, _
  byval class        as integer    , _
  byval which_screen as DRAWABLE   , _
  byval w            as uinteger   , _
  byval h            as uinteger   , _
  byref w_return     as uinteger   , _
  byref h_return     as uinteger) as integer

declare function XQueryBestStipple cdecl alias "XQueryBestStipple" ( _
  byval lpDisplay     as Display ptr, _
  byval which_screen  as DRAWABLE   , _
  byval w             as uinteger   , _
  byval h             as uinteger   , _
  byref width_return  as uinteger   , _
  byref height_return as uinteger) as integer

declare function XQueryBestTile cdecl alias "XQueryBestTile" ( _
  byval lpDisplay     as Display ptr, _
  byval which_screen  as DRAWABLE   , _
  byval width         as uinteger   , _
  byval height        as uinteger   , _
  byref width_return  as uinteger   , _
  byref height_return as uinteger) as integer

declare function XQueryColor  cdecl alias "XQueryColor" ( _
  byval lpDisplay  as Display ptr, _
  byval color_map  as COLORMAP   , _
  byref def_in_out as XCOLOR     ) as integer

declare function XQueryColors cdecl alias "XQueryColors" ( _
  byval lpDisplay   as Display ptr, _
  byval color_map   as COLORMAP   , _
  byref defs_in_out as XCOLOR     , _
  byval ncolors     as integer    ) as integer


declare function XQueryExtension cdecl alias "XQueryExtension" ( _
  byval lpDisplay           as Display ptr     , _
  byval ExtName             as string, _
  byref major_opcode_return as integer, _
  byref first_event_return  as integer, _
  byref first_error_return  as integer) as XBoolean

declare function XQueryKeymap cdecl alias "XQueryKeymap" ( _
  byval lpDisplay        as Display ptr, _
  byref keys_in_array32_return as byte) as integer

declare function XQueryPointer cdecl alias "XQueryPointer" ( _
  byval lpDisplay        as Display ptr, _
  byval hWin             as WINDOWID   , _
  byref hRootWin_return  as WINDOWID   , _
  byref hChildWin_return as WINDOWID   , _
  byref root_x_return    as integer    , _
  byref root_y_return    as integer    , _
  byref win_x_return     as integer    , _
  byref win_y_return     as integer    , _
  byref mask_return      as uinteger) as XBoolean

declare function XQueryTextExtents cdecl alias "XQueryTextExtents" ( _
  byval lpDisplay           as Display ptr, _
  byval fontid              as XID        , _
  byval strarg              as string     , _
  byval nchars              as integer    , _
  byref direction_return    as integer    , _
  byref font_ascent_return  as integer    , _
  byref font_descent_return as integer    , _
  byref overall_return      as XCHARSTRUCT) as integer

declare function XQueryTextExtents16 cdecl alias "XQueryTextExtents16" ( _
  byval lpDisplay           as Display ptr, _
  byval fontid              as XID        , _
  byval strarg              as XCHAR2b    , _
  byval nchars              as integer    , _
  byref direction_return    as integer    , _
  byref font_ascent_return  as integer    , _
  byref font_descent_return as integer    , _
  byref overall_return      as XCHARSTRUCT) as integer

declare function XQueryTree cdecl alias "XQueryTree" ( _
  byval lpDisplay       as Display ptr, _
  byval hWin            as WINDOWID   , _
  byref hRootWin_return as WINDOWID   , _
  byref hParentWin_return as WINDOWID , _
  byref hWinChildsWins    as WINDOWID ptr ptr, _
  byref xchilds_return    as uinteger) as integer

declare function XReadBitmapFile cdecl alias "XReadBitmapFile" ( _
  byval lpDisplay as Display ptr , _
  byval d         as DRAWABLE    , _
  byval filename  as string      , _
  byref width_return as uinteger , _
  byref height_return as uinteger, _
  byref bitmap_return as PIXMAP  , _
  byref x_hot_return  as integer , _
  byref y_hot_return  as integer) as integer

declare function XReadBitmapFileData cdecl alias "XReadBitmapFileData" ( _
  byval filename       as string   , _
  byref width_return   as uinteger , _
  byref height_return  as uinteger , _
  byref lpdatat_return as ubyte ptr, _
  byref x_hot_return   as integer  , _
  byref y_hot_return   as integer) as integer

declare function XRebindKeysym cdecl alias "XRebindKeysym" ( _
  byval lpDisplay as Display ptr, _
  byval keysym    as KEYSYM     , _
  byref list      as KEYSYM ptr , _
  byval mod_count as integer    , _
  byval strarg    as ubyte ptr  , _
  byval bytes_string as integer) as integer

declare function XRecolorCursor cdecl alias "XRecolorCursor" ( _
  byval lpDisplay         as Display ptr, _
  byval cursor            as CURSOR     , _
  byref foreground_return as XCOLOR     , _
  byref background_return as XCOLOR) as integer

declare function XRefreshKeyboardMapping cdecl alias "XRefreshKeyboardMapping" ( _
  byref event_map as XMAPPINGEVENT) as integer

declare function XRemoveFromSaveSet cdecl alias "XRemoveFromSaveSet" ( _
  byval lpDisplay as Display ptr, _
  byval hWin      as WINDOWID) as integer

declare function XRemoveHost cdecl alias "XRemoveHost" ( _
  byval lpDisplay as Display ptr, _
  byref host      as XHOSTADDRESS) as integer

declare function XRemoveHosts cdecl alias "XRemoveHosts" ( _
  byval lpDisplay as Display ptr , _
  byref hosts     as XHOSTADDRESS, _
  byval nhosts    as integer) as integer

declare function XReparentWindow cdecl alias "XReparentWindow" ( _
  byval lpDisplay  as Display ptr, _
  byval hWin       as WINDOWID   , _
  byval hParentWin as WINDOWID   , _
  byval x          as integer    , _
  byval y          as integer) as integer

declare function XResetScreenSaver cdecl alias "XResetScreenSaver" ( _
  byval lpDisplay as Display ptr) as integer

declare function XRestackWindows cdecl alias "XRestackWindows" ( _
  byval lpDisplay as Display  ptr, _
  byref hWin      as WINDOWID ptr, _ _
  byval nwindows  as integer) as integer

declare function XRotateBuffers cdecl alias "XRotateBuffers" ( _
  byval lpDisplay as Display ptr, _
  byval rotate    as integer) as integer

declare function XRotateWindowProperties cdecl alias "XRotateWindowProperties" ( _
  byval lpDisplay  as Display ptr, _
  byval hWin       as WINDOWID   , _
  byref properties as ATOM       , _
  byval num_prop   as integer    , _
  byval npositions as integer) as integer

declare function XScreenCount cdecl alias "XScreenCount" ( _
  byval lpDisplay as Display ptr) as integer

declare function XSendEvent cdecl alias "XSendEvent" ( _
  byval lpDisplay  as Display ptr, _
  byval hWin       as WINDOWID   , _
  byval propagate  as XBoolean    , _
  byval event_mask as integer    , _
  byref event_send as XEVENT) as integer

declare function XSetAccessControl cdecl alias "XSetAccessControl" ( _
  byval lpDisplay as Display ptr, _
  byval mode      as integer) as integer

declare function XSetArcMode cdecl alias "XSetArcMode" ( _
  byval lpDisplay as Display ptr, _
  byval gc        as GCONTEXT   , _
  byval arc_mode  as integer) as integer

declare function XSetClipMask cdecl alias "XSetClipMask" ( _
  byval lpDisplay     as Display ptr, _
  byval gc            as GCONTEXT   , _
  byval pix_map as PIXMAP) as integer

declare function XSetClipOrigin cdecl alias "XSetClipOrigin" ( _
  byval lpDisplay     as Display ptr, _
  byval gc            as GCONTEXT   , _
  byval clip_x_origin as integer    , _
  byval clip_y_origin as integer) as integer

declare function XSetClipRectangles cdecl alias "XSetClipRectangles" ( _
  byval lpDisplay     as Display ptr, _
  byval gc            as GCONTEXT   , _
  byval clip_x_origin as integer    , _
  byval clip_y_origin as integer    , _
  byref rectangles    as XRECTANGLE , _
  byval n             as integer    , _
  byval odering       as integer) as integer

declare function XSetCloseDownMode cdecl alias "XSetCloseDownMode" ( _
  byval lpDisplay as Display ptr, _
  byval closemode as integer) as integer

declare function XSetCommand cdecl alias "XSetCommand" ( _
  byval lpDisplay as Display ptr    , _
  byval hWin      as WINDOWID       , _
  byref argv      as zstring ptr ptr, _
  byref argc      as integer) as integer

declare function XSetDashes cdecl alias "XSetDashes" ( _
  byval lpDisplay   as Display ptr, _
  byval gc          as GCONTEXT   , _
  byval dash_offset as integer    , _
  byval dash_list   as byte ptr   , _
  byval n           as integer) as integer

declare function XSetFillRule cdecl alias "XSetFillRule" (byval fill_mode as integer) as integer

declare function XSetFont cdecl alias "XSetFont" ( _
  byval lpDisplay   as Display ptr, _
  byval gc          as GCONTEXT   , _
  byval font        as XID) as integer

declare function XSetFontPath cdecl alias "XSetFontPath" ( _
  byval lpDisplay   as Display ptr    , _
  byref directories as zstring ptr ptr, _
  byval ndirs       as integer) as integer

declare function XSetFunction cdecl alias "XSetFunction" ( _
  byval lpDisplay as Display ptr, _
  byval gc        as GCONTEXT   , _
  byval func      as integer) as