-- 4/13/93 add xTestEventMask, xTestStateMask
-- 4/14/93 add xMArrayLength,
--             xGetEventN
-- 4/15/93 change xKeycodeCharacter
--         add xKeysymCharacter
--         add xHandleError
--         add xError
-- 4/27/93 Change Bool to XSwitch in XWinAttribute, XGCAttribute

interface XLibPrims where

import XLibTypes(
                 XDisplay, XScreen, XWindow, XGcontext, XPixmap,
                 XColormap, XCursor, XFont, XImage, XMaybe, XError,
                 XBitmap, XKeysymTable, XBitVec,
                 XPixarray, XByteVec, XAtom, XProperty,
                 XPixel, XDrawable, XTime, XSwitch,
		 XWindowPlace, XEventMode, XEventKind,
		 XWindowVisibility, XWindowStackMode,
		 XPropertyState, XMapReqType, XGraphFun,
		 XEvent, XEventType, XEventSlot, XEventMask,
		 XEventMaskKey, XStateMask, XStateMaskKey,
		 XWinAttribute,XGCAttribute, XImAttribute, 
		 XGrabAttribute, XArcMode, XCapStyle,
		 XClipMask, XFillRule, XFillStyle, 
		 XFunction, XJoinStyle, XLineStyle,
		 XSubwindowMode, XPoint, XSize, XRect,
		 XArc, XBitmapFormat, XByteOrder,
		 XPixmapFormat, XVisualInfo, XVisualClass,
		 XFillContent, XBackingStore, XGravity,
		 XWindowClass, XMapState, XImageData, 
		 XImageFormat, XImageType, XDrawDirection,
		 XColor, XInputFocus, XGrabStatus,
		 XKeysym, XCloseDownMode, XScreenSaver)

xHandleError		:: (XError -> IO a) -> IO a -> IO a
xError			:: String -> IO a

xEventType		:: XEvent -> XEventType
xEventWindow 		:: XEvent -> XWindow
xEventEventWindow	:: XEvent -> XWindow
xEventCode		:: XEvent -> Int
xEventPos		:: XEvent -> XPoint
xEventState		:: XEvent -> XStateMask
xEventTime		:: XEvent -> XTime
xEventRoot		:: XEvent -> XWindow
xEventRootPos		:: XEvent -> XPoint
xEventChild		:: XEvent -> (XMaybe XWindow)
xEventSameScreenP	:: XEvent -> Bool
xEventHintP		:: XEvent -> Bool
xEventMode		:: XEvent -> XEventMode
xEventKind		:: XEvent -> XEventKind
xEventFocusP		:: XEvent -> Bool
xEventKeymap		:: XEvent -> XBitVec
xEventRequest		:: XEvent -> XMapReqType
xEventStart		:: XEvent -> Int
xEventCount		:: XEvent -> Int
xEventRect		:: XEvent -> XRect
xEventDrawable		:: XEvent -> XDrawable
xEventXGraphFun		:: XEvent -> XGraphFun
xEventPlace		:: XEvent -> XWindowPlace
xEventBorderWidth	:: XEvent -> Int
xEventAboveSibling	:: XEvent -> (XMaybe XWindow)
xEventOverrideRedirectP	:: XEvent -> Bool
xEventParent		:: XEvent -> XWindow
xEventConfigureP	:: XEvent -> Bool
xEventVisibility	:: XEvent -> XWindowVisibility
xEventNewP		:: XEvent -> Bool
xEventInstalledP	:: XEvent -> Bool
xEventStackMode		:: XEvent -> XWindowStackMode
xEventValueMask		:: XEvent -> Int
xEventSize		:: XEvent -> XSize
xEventMessage		:: XEvent -> XProperty
xEventPropertyState	:: XEvent -> XPropertyState
xEventAtom		:: XEvent -> XAtom
xEventSelection		:: XEvent -> XAtom
xEventTarget		:: XEvent -> XAtom
xEventProperty		:: XEvent -> (XMaybe XAtom)
xEventRequestor		:: XEvent -> XWindow

xSetEventMaskKey 	:: XEventMask -> XEventMaskKey -> XEventMask
xClearEventMaskKey 	:: XEventMask -> XEventMaskKey -> XEventMask
xTestEventMaskKey 	:: XEventMask -> XEventMaskKey -> Bool

xSetStateMaskKey 	:: XStateMask -> XStateMaskKey -> XStateMask
xClearStateMaskKey 	:: XStateMask -> XStateMaskKey -> XStateMask
xTestStateMaskKey 	:: XStateMask -> XStateMaskKey -> Bool


-- DISPLAYS

-- open

xOpenDisplay 			:: String 		-- host:display
				-> IO XDisplay

-- display attributes

xDisplayAuthorizationData	:: XDisplay -> String
xDisplayAuthorizationName	:: XDisplay -> String
xDisplayBitmapFormat		:: XDisplay -> XBitmapFormat
xDisplayByteOrder		:: XDisplay -> XByteOrder
xDisplayDisplay 		:: XDisplay -> Int
xSetDisplayErrorHandler		:: XDisplay -> (XError -> IO ()) -> IO () 
xDisplayImageLsbFirstP		:: XDisplay -> Bool
xDisplayMaxKeycode		:: XDisplay -> Int
xDisplayMaxRequestLength	:: XDisplay -> Int
xDisplayMinKeycode		:: XDisplay -> Int
xDisplayMotionBufferSize	:: XDisplay -> Int
xDisplayPixmapFormats		:: XDisplay -> [XPixmapFormat]
xDisplayProtocolMajorVersion	:: XDisplay -> Int
xDisplayProtocolMinorVersion	:: XDisplay -> Int
xDisplayResourceIdBase		:: XDisplay -> Int
xDisplayResourceIdMask		:: XDisplay -> Int 
xDisplayRoots 			:: XDisplay -> [XScreen] 
xDisplayVendorName		:: XDisplay -> String 
xDisplayReleaseNumber		:: XDisplay -> Int

-- output buffer

xDisplayAfterFunction		:: XDisplay -> XMaybe (IO ())
xSetDisplayAfterFunction 	:: XDisplay -> XMaybe (IO ()) -> IO ()
xDisplayForceOutput 		:: XDisplay -> IO ()
xDisplayFinishOutput		:: XDisplay -> IO ()

-- close

xCloseDisplay 			:: XDisplay -> IO ()

-- SCREENS

xScreenBackingStores		:: XScreen -> XBackingStore
xScreenBlackPixel		:: XScreen -> XPixel
xScreenDefaultColormap		:: XScreen -> XColormap
xScreenDepths			:: XScreen -> [(Int, [XVisualInfo])]
xScreenEventMaskAtOpen		:: XScreen -> XEventMask
xScreenSize			:: XScreen -> XSize 
xScreenMMSize 			:: XScreen -> XSize 
xScreenMaxInstalledMaps		:: XScreen -> Int 
xScreenMinInstalledMaps		:: XScreen -> Int 
xScreenRoot			:: XScreen -> XWindow 
xScreenRootDepth		:: XScreen -> Int
xScreenRootVisual		:: XScreen -> Int
xScreenSaveUndersP		:: XScreen -> Bool 
xScreenWhitePixel		:: XScreen -> XPixel

-- WINDOWS AND PIXMAPS

-- drawables

xDrawableDisplay	:: XDrawable -> XDisplay
xDrawableEqual		:: XDrawable -> XDrawable -> Bool
xDrawableId		:: XDrawable -> Int

-- creating windows

xCreateWindow 		:: XWindow 		-- parent
			-> XRect		-- (x,y,width,height)
			-> [XWinAttribute] 	-- optional arguments
			-> IO XWindow

-- window attributes

xWindowBorderWidth 	:: XWindow -> IO Int 
xSetWindowBorderWidth 	:: XWindow -> Int -> IO ()

xDrawableDepth		:: XDrawable -> Int

xDrawableSize 		:: XDrawable -> IO XSize 
xDrawableResize 	:: XDrawable -> XSize -> IO ()

xWindowPos 		:: XWindow -> IO XPoint 
xWindowMove 		:: XWindow -> XPoint -> IO ()

xWindowAllEventMasks	:: XWindow -> IO XEventMask
xSetWindowBackground 	:: XWindow -> XFillContent -> IO ()

xWindowBackingPixel 	:: XWindow -> IO XPixel 
xSetWindowBackingPixel 	:: XWindow -> XPixel -> IO ()

xWindowBackingPlanes 	:: XWindow -> IO XPixel 
xSetWindowBackingPlanes	:: XWindow -> XPixel -> IO ()

xWindowBackingStore 	:: XWindow -> IO XBackingStore
xSetWindowBackingStore 	:: XWindow -> XBackingStore -> IO ()

xWindowBitGravity	:: XWindow -> IO XGravity
xSetWindowBitGravity	:: XWindow -> XGravity -> IO ()

xSetWindowBorder 	:: XWindow -> XFillContent -> IO ()

xWindowClass 		:: XWindow -> XWindowClass 

xWindowColorMap 	:: XWindow -> IO (XMaybe XColormap)
xSetWindowColorMap 	:: XWindow -> XColormap -> IO ()
xWindowColormapInstalledP :: XWindow -> IO Bool

xSetWindowCursor 	:: XWindow -> (XMaybe XCursor) -> IO () 

xWindowDisplay 		:: XWindow -> XDisplay

xWindowDoNotPropagateMask	:: XWindow -> IO XEventMask
xSetWindowDoNotPropagateMask	:: XWindow -> XEventMask -> IO ()

xWindowEqual		:: XWindow -> XWindow -> Bool

xWindowEventMask	:: XWindow -> IO XEventMask
xSetWindowEventMask	:: XWindow -> XEventMask -> IO ()

xWindowGravity		:: XWindow -> IO XGravity
xSetWindowGravity	:: XWindow -> XGravity -> IO ()

xWindowId		:: XWindow -> Int

xWindowMapState		:: XWindow -> IO XMapState

xWindowOverrideRedirect		:: XWindow -> IO XSwitch
xSetWindowOverrideRedirect	:: XWindow -> XSwitch -> IO ()

xSetWindowPriority	:: XWindow -> XWindowStackMode -> IO ()

xWindowSaveUnder	:: XWindow -> IO XSwitch
xSetWindowSaveUnder	:: XWindow -> XSwitch -> IO ()

xWindowVisual		:: XWindow -> Int

-- stacking order

xCirculateWindowDown	:: XWindow -> IO () 
xCirculateWindowUp	:: XWindow -> IO ()

-- window hierarchy

xDrawableRoot		:: XDrawable -> IO XWindow
xQueryTree		:: XWindow -> IO ([XWindow], 	-- children
				         XMaybe XWindow,-- parent
				         XWindow) 	-- root

xReparentWindow		:: XWindow 			-- window
			-> XWindow 			-- parent
			-> XPoint 			-- (x,y)
			-> IO ()

xTranslateCoordinates	:: XWindow 			-- source
			-> XPoint 			-- (source-x,source-y)
			-> XWindow 			-- destination
			-> IO (XMaybe XPoint)		-- (dest-x,dest-y)

-- mapping windows

xMapWindow 		:: XWindow -> IO () 
xMapSubwindows 		:: XWindow -> IO ()
xUnmapWindow		:: XWindow -> IO () 
xUnmapSubwindows	:: XWindow -> IO ()

-- destroying windows

xDestroyWindow		:: XWindow -> IO () 
xDestroySubwindows	:: XWindow -> IO ()

-- pixmaps

xCreatePixmap 		:: XSize 			-- (width,height)
			-> Int 				-- depth
			-> XDrawable 			-- drawable
			-> IO XPixmap 

xFreePixmap 		:: XPixmap -> IO ()

xPixmapDisplay		:: XPixmap -> XDisplay
xPixmapEqual		:: XPixmap -> XPixmap -> Bool

-- GRAPHICS CONTEXTS

xCreateGcontext		:: XDrawable 			-- drawable
			-> [XGCAttribute] 		-- optional arguments
			-> IO XGcontext

xUpdateGcontext 	:: XGcontext 			-- old gcontext
			-> [XGCAttribute] 		-- changes
			-> IO ()			-- new gcontext

xFreeGcontext		:: XGcontext -> IO ()

xGcontextDisplay	:: XGcontext -> XDisplay
xGcontextEqual		:: XGcontext -> XGcontext -> Bool

xGcontextId		:: XGcontext -> Int

xQueryBestStipple	:: XSize -> XDrawable -> XSize
xQueryBestTile		:: XSize -> XDrawable -> XSize

xCopyGcontext		:: XGcontext 			-- source
			-> XGcontext			-- destination
			-> IO ()

-- GRAPHICS OPERATIONS

xClearArea 		:: XWindow 			-- window
			-> XRect 			-- (x,y,width,height)
			-> Bool 			-- exposure-p
			-> IO ()

xCopyArea		:: XDrawable 			-- source
			-> XGcontext 			-- gcontext
			-> XRect 			-- (src-x,src-y,w,h)
			-> XDrawable			-- destination
			-> XPoint 			-- (dest-x,dest-y)
			-> IO ()

xCopyPlane		:: XDrawable 			-- source
			-> XGcontext 			-- gcontext
			-> XPixel 			-- plane
			-> XRect			-- (src-x,src-y,w,h)
                        -> XDrawable 			-- destination
			-> XPoint 			-- (dest-x,dest-y)
			-> IO ()

xDrawPoint		:: XDrawable 			-- drawable
			-> XGcontext 			-- gcontext
			-> XPoint 			-- (x,y)
			-> IO ()

xDrawPoints		:: XDrawable 			-- drawable
			-> XGcontext 			-- gcontext
			-> [XPoint]			-- points
			-> IO ()

xDrawLine 		:: XDrawable 			-- drawable
			-> XGcontext 			-- gcontext
			-> XPoint 			-- (x1,y1)
			-> XPoint 			-- (x2,y2)
			-> IO ()

xDrawLines 		:: XDrawable 			-- drawable
			-> XGcontext 			-- gcontext
			-> [XPoint] 			-- points
			-> Bool 			-- fill-p
			-> IO ()

xDrawSegments		:: XDrawable 			-- drawable
			-> XGcontext 			-- gcontext
			-> [(XPoint,XPoint)]		-- segments
			-> IO ()

xDrawRectangle 		:: XDrawable 			-- drawable
			-> XGcontext			-- gcontext
			-> XRect 			-- (x,y,width,height)
			-> Bool 			-- fill-p
			-> IO ()

xDrawRectangles 	:: XDrawable 			-- drawable
			-> XGcontext 			-- gcontext
			-> [XRect] 			-- rectangles
			-> Bool 			-- fill-p
			-> IO ()

xDrawArc		:: XDrawable 			-- drawable
			-> XGcontext 			-- gcontext
			-> XArc 			-- (x,y,w,h,a1,a2)
			-> Bool 			-- fill-p
			-> IO ()

xDrawArcs		:: XDrawable 			-- drawable
			-> XGcontext 			-- gcontext
			-> [XArc] 			-- arcs
			-> Bool 			-- fill-p
			-> IO ()

xDrawGlyph		:: XDrawable 			-- drawable
			-> XGcontext 			-- gcontext
			-> XPoint 			-- (x,y)
			-> Char 			-- element
			-> IO (XMaybe Int)		-- width

xDrawGlyphs		:: XDrawable 			-- drawable
			-> XGcontext 			-- gcontext
			-> XPoint 			-- (x,y)
			-> String			-- sequence
			-> IO (XMaybe Int)		-- width

xDrawImageGlyph		:: XDrawable 			-- drawable
			-> XGcontext 			-- gcontext
			-> XPoint 			-- (x,y)
			-> Char 			-- element
			-> IO (XMaybe Int)		-- width

xDrawImageGlyphs	:: XDrawable 			-- drawable
			-> XGcontext 			-- gcontext
			-> XPoint 			-- (x,y)
			-> String 			-- sequence
			-> IO (XMaybe Int)		-- width

-- IMAGES

xImageBlueMask		:: XImage -> XMaybe XPixel 
xImageDepth 		:: XImage -> Int 
xImageGreenMask		:: XImage -> XMaybe XPixel
xImageSize		:: XImage -> XSize 
xImageName		:: XImage -> String 
xSetImageName		:: XImage -> String -> IO () 
xImageRedMask		:: XImage -> XMaybe XPixel
xImageHotSpot		:: XImage -> XMaybe XPoint
xSetImageHotSpot	:: XImage -> XPoint -> IO ()

-- XY-format images

xImageXYBitmaps		:: XImage -> IO [XBitmap]
xSetImageXYBitmaps	:: XImage -> [XBitmap] -> IO ()

-- Z-format images

xImageZBitsPerPixel	:: XImage -> IO Int
xsetImageZBitsPerPixel	:: XImage -> Int -> IO ()
xImageZPixarray		:: XImage -> IO XPixarray
xSetImageZPixarray	:: XImage -> XPixarray -> IO ()

-- image functions

xCreateImage		:: [XImAttribute] -> IO XImage
xCopyImage		:: XImage 			-- image
			-> XRect 			-- (x,y,width,height)
			-> XImageType 			-- result-type
			-> XImage			-- new-image

xGetImage		:: XDrawable 			-- drawable
			-> XRect 			-- (x,y,width,height)
			-> XPixel 			-- plane-mask
			-> XImageFormat 		-- format
			-> XImageType 			-- result-type
			-> IO XImage			-- image

xPutImage		:: XDrawable 			-- drawable
			-> XGcontext 			-- gcontext
			-> XImage 			-- ximage
			-> XPoint 			-- (src-x,src-y)
			-> XRect			-- (x,y,width,height)
                        -> IO ()

-- image files

xReadBitmapFile		:: String 			-- pathname
			-> IO XImage 

xWriteBitmapFile	:: String 			-- pathname
			-> XImage -> IO ()

-- direct image transfer

xGetRawImage		:: XDrawable 			-- drawable
			-> XRect 			-- (x,y,width,height)
			-> XPixel 			-- plane-mask
			-> XImageFormat 		-- format
			-> IO XImageData		-- data

xPutRawImage		:: XDrawable 			-- drawable
			-> XGcontext 			-- gcontext
			-> XImageData 			-- data
			-> Int 				-- depth
			-> XRect			-- (x,y,width,height)
			-> Int 				-- left-pad
			-> XImageFormat 		-- format
			-> IO ()

-- FONTS

-- opening fonts

xOpenFont		:: XDisplay -> String -> IO XFont
xCloseFont		:: XFont -> IO () 
xDiscardFontInfo	:: XFont -> IO ()

-- listing fonts

xFontPath		:: XDisplay -> IO [String]
xListFontNames		:: XDisplay -> String 		-- pattern
			-> IO [String] 
xListFonts		:: XDisplay -> String 		-- pattern
			-> IO [XFont]

-- font attriburtes

xFontAllCharExistsP	:: XFont -> Bool 
xFontAscent		:: XFont -> Int 
xFontDefaultChar	:: XFont -> Int
xFontDescent		:: XFont -> Int 
xFontDirection		:: XFont -> XDrawDirection 
xFontDisplay		:: XFont -> XDisplay
xFontEqual		:: XFont -> XFont -> Int
xFontId			:: XFont -> Int

xFontMaxByte1		:: XFont -> Int 
xFontMaxByte2		:: XFont -> Int 
xFontMaxChar		:: XFont -> Int
xFontMinByte1		:: XFont -> Int 
xFontMinByte2		:: XFont -> Int 
xFontMinChar		:: XFont -> Int

xFontName		:: XFont -> String

xFontMaxCharAscent	:: XFont -> Int 
xFontMaxCharAttributes	:: XFont -> Int 
xFontMaxCharDescent	:: XFont -> Int
xFontMaxCharLeftBearing	:: XFont -> Int
xFontMaxCharRightBearing	:: XFont -> Int
xFontMaxCharWidth	:: XFont -> Int 
xFontMinCharAscent	:: XFont -> Int 
xFontMinCharAttributes	:: XFont -> Int
xFontMinCharDescent	:: XFont -> Int 
xFontMinCharLeftBearing	:: XFont -> Int 
xFontMinCharRightBearing	:: XFont -> Int
xFontMinCharWidth	:: XFont -> Int

-- char attributes

xCharAscent		:: XFont -> Int -> XMaybe Int
xCharAttributes		:: XFont -> Int -> XMaybe Int
xCharDescent		:: XFont -> Int -> XMaybe Int
xCharLeftBearing	:: XFont -> Int -> XMaybe Int
xCharRightBearing	:: XFont -> Int -> XMaybe Int
xCharWidth		:: XFont -> Int -> XMaybe Int

-- querying text size

xTextWidth		:: XFont 			-- font
			-> String 			-- sequence
			-> Int				-- width

-- COLORS

-- creating colormaps

xCreateColormap		:: XVisualInfo 			-- visual
			-> XWindow 			-- window
			-> Bool 			-- alloc-p
			-> IO XColormap

xCopyColormapAndFree	:: XColormap -> IO XColormap
xFreeColormap		:: XColormap -> IO ()

-- installing colormaps

xInstallColormap	:: XColormap -> IO ()
xInstalledColormaps	:: XWindow -> IO [XColormap]
xUnInstallColormap	:: XColormap -> IO ()

-- allocating colors

xAllocColor		:: XColormap -> XColor
			-> IO (XPixel, 			-- pixel
			       XColor, 			-- screen-color
			       XColor)			-- exact-color

xAllocColorCells	:: XColormap 			-- pixel
			-> Int 				-- colors
			-> Int 				-- planes
			-> Bool 			-- contiguous
			-> IO ([XPixel], 		-- pixels
			       [XPixel])		-- mask

xAllocColorPlanes	:: XColormap 			-- colormap
			-> Int 				-- colors
			-> Int 				-- reds
			-> Int 				-- greens
			-> Int 				-- blues
			-> Bool 			-- contiguous-p
			-> IO ([XPixel], 		-- pixel
			       XPixel, 			-- red-mask
			       XPixel, 			-- green-mask
			       XPixel)			-- blue-mask

xFreeColors		:: XColormap -> [XPixel] 	-- pixels
			-> XPixel 			-- plane-mask
			-> IO ()

-- finding colors

xLookupColor		:: XColormap -> String 		-- name
			-> IO (XColor, 			-- screen-color
			       XColor)			-- exact-color

xQueryColors		:: XColormap -> [XPixel] 	-- pixels
			-> IO [XColor]

-- changing colors

xStoreColor		:: XColormap -> XPixel 		-- pixel
			-> XColor 			-- color
			-> IO ()

xStoreColors		:: XColormap 			-- colormap
			-> [(XPixel, XColor)] 		-- pixel-colors
			-> IO ()

-- colormap attributes

xColormapDisplay	:: XColormap -> XDisplay
xColormapEqual		:: XColormap -> XColormap -> Bool

-- CURSORS

xCreateCursor		:: XPixmap 			-- source
			-> (XMaybe XPixmap) 		-- mask
			-> XPoint 			-- (x,y)
			-> XColor 			-- foreground
			-> XColor 			-- background
			-> IO XCursor

xCreateGlyphCursor	:: (XFont, char) 		-- (src-font,src-char)
			-> (XMaybe (XFont, Char)) 	-- (mask-font,mask-char)
			-> XColor			-- foreground
			-> XColor 			-- background
			-> IO XCursor

xFreeCursor		:: XCursor -> IO ()

xQueryBestCursor	:: XSize 			-- (width,height)
			-> XDisplay -> IO XSize

xRecolorCursor		:: XCursor -> XColor 		-- foreground
			-> XColor 			-- background
			-> IO ()

xCursorDisplay		:: XCursor -> XDisplay
xCursorEqual		:: XCursor -> XCursor -> Bool

-- ATOMS, PROPERTIES, AND SELECTIONS

-- atoms

xAtomName		:: XDisplay -> Int 		-- atom-id
			-> XAtom

xFindAtom		:: XDisplay -> XAtom 		-- atom-name
			-> IO (XMaybe Int)

xInternAtom		:: XDisplay -> XAtom 		-- atom-name
			-> IO (XMaybe Int)

-- properties

xChangeProperty		:: XWindow 			-- window
			-> XAtom 			-- property
			-> XProperty 			-- (data,type,format)
			-> IO ()

xDeleteProperty		:: XWindow -> XAtom -> IO ()
xGetProperty		:: XWindow			-- window
			-> XAtom 			-- property
			-> IO XProperty			-- (data,type,format)

xListProperties		:: XWindow -> IO [XAtom]
xRotateProperties	:: XWindow 			-- window
			-> [XAtom] 			-- properties
			-> Int 				-- delta
			-> IO ()

-- selections

xConvertSelection	:: XAtom 			-- selection
			-> XAtom 			-- type
			-> XWindow 			-- requester
			-> XAtom			-- property
			-> (XMaybe XTime) 		-- time
			-> IO ()

xSelectionOwner		:: XDisplay 			-- display
			-> XAtom 			-- selection
			-> IO (XMaybe XWindow)

xSetSelectionOwner	:: XDisplay 			-- display
			-> XAtom 			-- selection
			-> (XMaybe XTime) 		-- time
			-> XWindow 			-- owner
			-> IO ()

-- EVENT

-- Wait for the next event 

xGetEvent		:: XDisplay -> IO XEvent

-- managing the event queue 

xQueueEvent		:: XDisplay -> XEvent -> Bool	-- append-p
			-> IO ()

xEventListen		:: XDisplay -> IO Int 		-- # of events in queue

-- sending events 

xSendEvent		:: XWindow 			-- window
			-> XEvent 			-- event key and slots
			-> XEventMask 			-- event-mask
			-> IO ()

-- pointer position

xGlobalPointerPosition	:: XDisplay -> IO XPoint
xPointerPosition	:: XWindow -> IO (XMaybe XPoint)
xMotionEvents		:: XWindow -> XTime -> XTime -> IO [XPoint]
xWarpPointer		:: XWindow -> XPoint -> IO ()

-- keyboard input focus

xSetInputFocus		:: XDisplay 			-- display
			-> XInputFocus 			-- focus
			-> XInputFocus			-- revert-to
			-> (XMaybe XTime) 		-- time
			-> IO ()

xInputFucus		:: XDisplay -> IO (XInputFocus,	-- focus
					   XInputFocus)	-- revert-to

-- grabbing the pointer

xGrabPointer		:: XWindow 			-- window
			-> XEventMask			-- event-mask
			-> [XGrabAttribute] 		-- optional attributes
			-> XMaybe XTime 		-- time
			-> IO XGrabStatus

xUngrabPointer		:: XDisplay -> XMaybe XTime -> IO ()

xChangeActivePointerGrab :: XDisplay -> XEventMask 	-- event-mask
			 -> [XGrabAttribute] 		-- cursor
			 -> XMaybe XTime -> IO ()

-- grabbing a button

xGrabButton		:: XWindow 			-- window
			-> Int 				-- button
			-> XEventMask 			-- event-mask
			-> XStateMask 			-- modifiers
			-> [XGrabAttribute]		-- optional attributes
			-> IO ()

xUngrabButton		:: XWindow -> Int 		-- button
			-> XStateMask 			-- modifiers
			-> IO ()

-- grabbing the keyboard

xGrabKeyboard		:: XWindow 			-- window
			-> [XGrabAttribute] 		-- optional attributes
			-> XMaybe XTime			-- time
			-> IO XGrabStatus

xUngrabkeyboard		:: XDisplay -> XMaybe XTime -> IO ()

-- grabbing a key

xGrabKey		:: XWindow 			-- window
			-> Int 				-- key
			-> XStateMask			-- modifiers
			-> [XGrabAttribute] 		-- optional attributes
			-> IO ()

xUngrabKey		:: XWindow -> Int -> XStateMask -- modifiers
			-> IO ()

-- CONTROL FUNCTIONS

-- grabbing the server

xGrabServer		:: XDisplay -> IO ()
xUngrabServer		:: XDisplay -> IO ()

-- pointer control

xSetPointerAcceleration	:: XDisplay -> Float -> IO ()
xSetPointerThreshold	:: XDisplay -> Float -> IO ()
xPointerAcceleration	:: XDisplay -> IO Float
xPointerThreshold	:: XDisplay -> IO Float 
xSetPointerMapping	:: XDisplay -> [Int] -> IO ()
xPointerMapping		:: XDisplay -> IO [Int]

-- keyboard control

xBell			:: XDisplay -> Int -> IO ()

xSetKeyboardKeyClickPercent	:: XDisplay -> Int -> IO ()
xSetKeyboardBellPercent		:: XDisplay -> Int -> IO ()
xSetKeyboardBellPitch		:: XDisplay -> Int -> IO ()
xSetKeyboardBellDuration	:: XDisplay -> Int -> IO ()
xSetKeyboardLed			:: XDisplay -> Integer -> IO ()
xSetKeyboardAutoRepeatMode	:: XDisplay -> XBitVec -> IO ()

xKeyboardKeyClickPercent	:: XDisplay -> IO Int
xKeyboardBellPercent		:: XDisplay -> IO Int
xKeyboardBellPitch		:: XDisplay -> IO Int
xKeyboardBellDuration		:: XDisplay -> IO Int

xKeyboardLed			:: XDisplay -> IO Integer
xKeyboardAutoRepeatMode		:: XDisplay -> IO XBitVec

xModifierMapping		:: XDisplay -> IO [[Int]]
xSetModifierMapping		:: XDisplay -> [[Int]] -> IO (XMaybe ()) 
xQueryKeymap			:: XDisplay -> IO XBitVec

-- keyboard mapping

xChangeKeyboardMapping 		:: XDisplay 		-- display
				-> XKeysymTable 	-- keysyms
				-> IO ()

xKeyboardMapping		:: XDisplay 		-- display
				-> IO XKeysymTable	-- mappings

xKeycodeKeysym			:: XDisplay 		-- display
				-> Int 			-- keycode
				-> Int 			-- keysym-index
				-> IO XKeysym

xKeysymCharacter		:: XDisplay 		-- display
				-> XKeysym               -- keysym
				-> XStateMask		-- state
				-> IO (XMaybe Char)

xKeycodeCharacter		:: XDisplay 		-- display
				-> Int                  -- keycode
				-> XStateMask		-- state
				-> IO (XMaybe Char)

-- client termination

xAddToSaveSet		:: XWindow -> IO ()
xCloseDownMode		:: XDisplay -> IO XCloseDownMode
xSetCloseDownMode	:: XDisplay -> XCloseDownMode -> IO ()
xKillClient		:: XDisplay -> Int -> IO ()
xKillTemporaryClients	:: XDisplay -> IO ()
xRemoveFromSaveSet	:: XWindow -> IO ()

-- managing host access

xAccessControl		:: XDisplay -> IO Bool
xSetAccessControl	:: XDisplay -> Bool -> IO ()
xAccessHosts		:: XDisplay -> IO [String]
xAddAccessHost		:: XDisplay -> String -> IO ()
xRemoveAccessHost	:: XDisplay -> String -> IO ()

-- screen saver

xActivateScreenSaver	:: XDisplay -> IO ()
xResetScreenSaver	:: XDisplay -> IO ()

xScreenSaver		:: XDisplay -> IO XScreenSaver
xSetScreenSaver		:: XDisplay -> XScreenSaver -> IO ()

{-#


xHandleError		:: LispName("x-handle-error")
xError			:: LispName("xlib::x-error")

xEventType 		:: LispName("sel-event-type")

xEventWindow 		:: LispName ("x-event-window")
xEventEventWindow	:: LispName ("x-event-event-window")
xEventCode		:: LispName ("x-event-code")
xEventPos		:: LispName ("x-event-pos")
xEventState		:: LispName ("x-event-state")
xEventTime		:: LispName ("x-event-time")
xEventRoot		:: LispName ("x-event-root")
xEventRootPos		:: LispName ("x-event-root-pos")
xEventChild		:: LispName ("x-event-child")
xEventSameScreenP	:: LispName ("x-event-same-screen-p")
xEventHintP		:: LispName ("x-event-hint-p")
xEventMode		:: LispName ("x-event-mode")
xEventKind		:: LispName ("x-event-kind")
xEventFocusP		:: LispName ("x-event-focus-p")
xEventKeymap		:: LispName ("x-event-keymap")
xEventRequest		:: LispName ("x-event-request")
xEventStart		:: LispName ("x-event-start")
xEventCount		:: LispName ("x-event-count")
xEventRect		:: LispName ("x-event-rect")
xEventDrawable		:: LispName ("x-event-drawable")
xEventXGraphFun		:: LispName ("x-event-graph-fun")
xEventPlace		:: LispName ("x-event-place")
xEventBorderWidth	:: LispName ("x-event-border-width")
xEventAboveSibling	:: LispName ("x-event-above-sibling")
xEventOverrideRedirectP	:: LispName ("x-event-override-redirect-p")
xEventParent		:: LispName ("x-event-parent")
xEventConfigureP	:: LispName ("x-event-configure-p")
xEventVisibility	:: LispName ("x-event-state")
xEventNewP		:: LispName ("x-event-new-p")
xEventInstalledP	:: LispName ("x-event-installed-p")
xEventStackMode		:: LispName ("x-event-stack-mode")
xEventValueMask		:: LispName ("x-event-value-mask")
xEventSize		:: LispName ("x-event-size")
xEventMessage		:: LispName ("x-event-message")
xEventPropertyState	:: LispName ("x-event-state")
xEventAtom		:: LispName ("x-event-atom")
xEventSelection		:: LispName ("x-event-selection")
xEventTarget		:: LispName ("x-event-target")
xEventProperty		:: LispName ("x-event-property")
xEventRequestor		:: LispName ("x-event-requestor")


xSetEventMaskKey 	:: LispName ("x-set-event-mask-key")
xClearEventMaskKey 	:: LispName ("x-clear-event-mask-key")
xTestEventMaskKey 	:: LispName ("x-test-event-mask-key")

xSetStateMaskKey 	:: LispName ("x-set-state-mask-key")
xClearStateMaskKey 	:: LispName ("x-clear-state-mask-key")
xTestStateMaskKey 	:: LispName ("x-test-state-mask-key")

-- DISPLAYS

-- open

xOpenDisplay      		:: LispName("x-open-display")

-- display attributes

xDisplayAuthorizationData	:: LispName("xlib:display-authorization-data")
xDisplayAuthorizationName	:: LispName("xlib:display-authorization-name")
xDisplayBitmapFormat		:: LispName("xlib:display-bitmap-format")
xDisplayByteOrder		:: LispName("xlib:display-byte-order")
xDisplayDisplay           	:: LispName("xlib:display-display")
xSetDisplayErrorHandler		:: LispName("x-set-display-error-handler")
xDisplayImageLsbFirstP		:: LispName("xlib:display-image-lsb-first-p")
xDisplayMaxKeycode		:: LispName("xlib:display-max-keycode")
xDisplayMaxRequestLength	:: LispName("xlib:display-max-request-length")
xDisplayMinKeycode		:: LispName("xlib:display-min-keycode")
xDisplayMotionBufferSize	:: LispName("xlib:display-motion-buffer-size")
xDisplayPixmapFormats		:: LispName("xlib:display-pixmap-formats")
xDisplayProtocolMajorVersion :: LispName("xlib:display-protocol-major-version")
xDisplayProtocolMinorVersion :: LispName("xlib:display-protocol-minor-version")
xDisplayResourceIdBase		:: LispName("xlib:display-resource-id-base")
xDisplayResourceIdMask		:: LispName("xlib:display-resource-id-mask")
xDisplayRoots     		:: LispName("xlib:display-roots")
xDisplayVendorName		:: LispName("xlib:display-vendor-name")
xDisplayReleaseNumber		:: LispName("xlib:display-release-number")

-- output buffer

xDisplayAfterFunction    	:: LispName("xlib:display-after-function")
xSetDisplayAfterFunction    	:: LispName("x-set-display-after-function")
xDisplayForceOutput      	:: LispName("xlib:display-force-output")
xDisplayFinishOutput      	:: LispName("xlib:display-finish-output")

-- close

xCloseDisplay     		:: LispName("xlib:close-display")

-- SCREENS

xScreenBackingStores		:: LispName("xlib:screen-backing-stores")
xScreenBlackPixel		:: LispName("xlib:screen-black-pixel")
xScreenDefaultColormap		:: LispName("xlib:screen-default-colormap")
xScreenDepths			:: LispName("x-screen-depths")
xScreenEventMaskAtOpen		:: LispName("xlib:screen-event-mask-at-open")
xScreenSize			:: LispName("x-screen-size")
xScreenMMSize                   :: LispName("x-screen-mmsize")
xScreenMaxInstalledMaps		:: LispName("xlib:screen-max-installed-maps")
xScreenMinInstalledMaps		:: LispName("xlib:screen-min-installed-maps")
xScreenRoot                     :: LispName("xlib:screen-root")
xScreenRootDepth		:: LispName("xlib:screen-root-depth")
xScreenRootVisual		:: LispName("xlib:screen-root-visual")
xScreenSaveUndersP		:: LispName("xlib:screen-save-unders-p")
xScreenWhitePixel 		:: LispName("xlib:screen-white-pixel")

-- WINDOWS AND PIXMAPS

-- drawables

xDrawableDisplay	:: LispName("xlib:drawable-display")
xDrawableEqual		:: LispName("xlib:drawable-equal")
xDrawableId		:: LispName("xlib:drawable-id")

-- creating windows

xCreateWindow           :: LispName("x-create-window")

-- window attributes

xWindowBorderWidth      :: LispName("xlib:drawable-border-width")
xSetWindowBorderWidth   :: LispName("x-set-drawable-border-width")

xDrawableDepth		:: LispName("xlib:drawable-depth")

xDrawableSize           :: LispName("x-drawable-size")
xDrawableResize         :: LispName("x-drawable-resize")

xWindowPos              :: LispName("x-window-pos")
xWindowMove             :: LispName("x-window-move")

xWindowAllEventMasks	:: LispName("xlib:window-all-event-masks")

xSetWindowBackground    :: LispName("x-set-window-background")

xWindowBackingPixel     :: LispName("xlib:window-backing-pixel")
xSetWindowBackingPixel  :: LispName("x-set-window-backing-pixel")

xWindowBackingPlanes    :: LispName("xlib:window-backing-planes")
xSetWindowBackingPlanes :: LispName("x-set-window-backing-planes")

xWindowBackingStore     :: LispName("xlib:window-backing-store")
xSetWindowBackingStore  :: LispName("x-set-window-backing-store")

xWindowBitGravity	:: LispName("xlib:window-bit-gravity")
xSetWindowBitGravity	:: LispName("x-set-window-bit-gravity")

xSetWindowBorder        :: LispName("x-set-window-border")

xWindowClass            :: LispName("xlib:window-class")

xWindowColorMap         :: LispName("xlib:window-colormap")
xSetWindowColorMap      :: LispName("x-set-window-colormap")
xWindowColormapInstalledP :: LispName("xlib:window-colormap-installed-p")

xSetWindowCursor        :: LispName("x-set-window-cursor")

xWindowDisplay          :: LispName("xlib:window-display")

xWindowDoNotPropagateMask    :: LispName("xlib:window-do-not-propagate-mask")
xSetWindowDoNotPropagateMask :: LispName("x-set-window-do-not-propagate-mask")

xWindowEqual		:: LispName("xlib:window-equal")

xWindowEventMask	:: LispName("xlib:window-event-mask")
xSetWindowEventMask	:: LispName("x-set-window-event-mask")

xWindowGravity		:: LispName("xlib:window-gravity")
xSetWindowGravity	:: LispName("x-set-window-gravity")

xWindowId		:: LispName("xlib:window-id")

xWindowMapState		:: LispName("xlib:window-map-state")

xWindowOverrideRedirect		:: LispName("xlib:window-override-redirect")
xSetWindowOverrideRedirect	:: LispName("x-set-window-override-redirect")

xSetWindowPriority	:: LispName("x-set-window-priority")

xWindowSaveUnder	:: LispName("xlib:window-save-under")
xSetWindowSaveUnder	:: LispName("x-set-window-save-under")
xWindowVisual		:: LispName("xlib:window-visual")

-- stacking order

xCirculateWindowDown	:: LispName("xlib:circulate-window-down")
xCirculateWindowUp	:: LispName("xlib:circulate-window-up")

-- window hierarchy

xDrawableRoot		:: LispName("xlib:drawable-root")
xQueryTree		:: LispName("x-query-tree")

xReparentWindow		:: LispName("x-reparent-window")

xTranslateCoordinates	:: LispName("x-translate-coordinates")

-- mapping windows

xMapWindow              :: LispName("xlib:map-window")
xMapSubwindows          :: LispName("xlib:map-subwindows")
xUnmapWindow		:: LispName("xlib:unmap-window")
xUnmapSubwindows	:: LispName("xlib:unmap-subwindows")

-- destroying windows

xDestroyWindow		:: LispName("xlib:destroy-window")
xDestroySubwindows	:: LispName("xlib:destroy-subwindows")

-- pixmaps

xCreatePixmap           :: LispName("x-create-pixmap")
xFreePixmap             :: LispName("xlib:free-pixmap")
xPixmapDisplay		:: LispName("xlib:pixmap-display")
xPixmapEqual		:: LispName("xlib:pixmap-equal")

-- GRAPHICS CONTEXTS

xCreateGcontext   	:: LispName("x-create-gcontext")
xUpdateGcontext	  	:: LispName("x-update-gcontext")
xFreeGcontext     	:: LispName("xlib:free-gcontext")

xGcontextDisplay	:: LispName("xlib:gcontext-display")
xGcontextEqual		:: LispName("xlib:gcontext-equal")

xGcontextId		:: LispName("xlib:gcontext-id")

xQueryBestStipple	:: LispName("x-query-best-stipple")
xQueryBestTile		:: LispName("x-query-best-tile")

xCopyGcontext		:: LispName("xlib:copy-gcontext")

-- GRAPHICS OPERATIONS

xClearArea		:: LispName("x-clear-area")
xCopyArea		:: LispName("x-copy-area")
xCopyPlane		:: LispName("x-copy-plane")
xDrawPoint		:: LispName("x-draw-point")
xDrawPoints		:: LispName("x-draw-points")
xDrawLine		:: LispName("x-draw-line")
xDrawLines		:: LispName("x-draw-lines")
xDrawSegments		:: LispName("x-draw-segments")
xDrawRectangle		:: LispName("x-draw-rectangle")
xDrawRectangles		:: LispName("x-draw-rectangles")
xDrawArc		:: LispName("x-draw-arc")
xDrawArcs		:: LispName("x-draw-arcs")
xDrawGlyph		:: LispName("x-draw-glyph")
xDrawGlyphs		:: LispName("x-draw-glyphs")
xDrawImageGlyph		:: LispName("x-draw-image-glyph")
xDrawImageGlyphs	:: LispName("x-draw-image-glyphs")

-- IMAGES

xImageBlueMask		:: LispName("xlib:image-blue-mask")
xImageDepth 		:: LispName("xlib:image-depth")
xImageGreenMask		:: LispName("xlib:image-green-mask")
xImageSize		:: LispName("x-image-size")
xImageName		:: LispName("x-image-name")
xSetImageName		:: LispName("x-set-image-name")
xImageRedMask		:: LispName("xlib:image-red-mask")
xImageHotSpot		:: LispName("x-image-hot-spot")
xSetImageHotSpot	:: LispName("x-set-image-hot-spot")

-- XY-format images

xImageXYBitmaps		:: LispName("xlib:image-xy-bitmap-list")
xSetImageXYBitmaps	:: LispName("x-set-image-xy-bitmap-list")

-- Z-format images

xImageZBitsPerPixel	:: LispName("xlib:image-z-bits-per-pixel")
xsetImageZBitsPerPixel	:: LispName("x-set-image-z-bits-per-pixel")
xImageZPixarray		:: LispName("xlib:image-z-pixarray")
xSetImageZPixarray	:: LispName("x-set-image-z-pixarray")

-- image functions

xCreateImage		:: LispName("x-create-image")
xCopyImage		:: LispName("x-copy-image")
xGetImage		:: LispName("x-get-image")
xPutImage		:: LispName("x-put-image")

-- image files

xReadBitmapFile		:: LispName("xlib:read-bitmap-file")
xWriteBitmapFile	:: LispName("xlib:write-bitmap-file")

-- direct image transfer

xGetRawImage		:: LispName("x-get-raw-image")	
xPutRawImage		:: LispName("x-put-raw-image")	

-- FONTS

-- opening fonts

xOpenFont		:: LispName ("xlib:open-font")
xCloseFont		:: LispName ("xlib:close-font")
xDiscardFontInfo	:: LispName ("xlib:discard-font-info")

-- listing fonts

xFontPath		:: LispName ("xlib:font-path")
xListFontNames		:: LispName ("xlib:list-font-names")
xListFonts		:: LispName ("xlib:list-fonts")

-- font attriburtes

xFontAllCharExistsP	:: LispName ("xlib:font-all-chars-exist-p")
xFontAscent		:: LispName ("xlib:font-ascent")
xFontDefaultChar	:: LispName ("xlib:font-default-char")
xFontDescent		:: LispName ("xlib:font-descent")
xFontDirection		:: LispName ("xlib:font-direction")
xFontDisplay		:: LispName ("xlib:font-display")
xFontEqual		:: LispName ("xlib:font-equal")
xFontId			:: LispName ("xlib:font-id")

xFontMaxByte1		:: LispName ("xlib:font-max-byte1")
xFontMaxByte2		:: LispName ("xlib:font-max-byte2")
xFontMaxChar		:: LispName ("xlib:font-max-char")
xFontMinByte1		:: LispName ("xlib:font-min-byte1")
xFontMinByte2		:: LispName ("xlib:font-min-byte2")
xFontMinChar		:: LispName ("xlib:font-min-char")

xFontName		:: LispName ("x-font-name")

xFontMaxCharAscent	:: LispName ("xlib:max-char-ascent")
xFontMaxCharAttributes	:: LispName ("xlib:max-char-attributes")
xFontMaxCharDescent	:: LispName ("xlib:max-char-descent")
xFontMaxCharLeftBearing	:: LispName ("xlib:max-char-left-bearing")
xFontMaxCharRightBearing	:: LispName ("xlib:max-char-right-bearing")
xFontMaxCharWidth	:: LispName ("xlib:max-char-width")
xFontMinCharAscent	:: LispName ("xlib:min-char-ascent")
xFontMinCharAttributes	:: LispName ("xlib:min-char-attributes")
xFontMinCharDescent	:: LispName ("xlib:min-char-descent")
xFontMinCharLeftBearing	:: LispName ("xlib:min-char-left-bearing")
xFontMinCharRightBearing	:: LispName ("xlib:min-char-right-bearing")
xFontMinCharWidth	:: LispName ("xlib:min-char-width")

-- char attributes

xCharAscent		:: LispName ("xlib:char-ascent")
xCharAttributes		:: LispName ("xlib:char-attributes")
xCharDescent		:: LispName ("xlib:char-descent")
xCharLeftBearing	:: LispName ("xlib:char-left-bearing")
xCharRightBearing	:: LispName ("xlib:char-right-bearing")
xCharWidth		:: LispName ("xlib:char-width")

-- querying text size

xTextWidth		:: LispName ("xlib:text-width")

-- COLORS

-- creating colormaps

xCreateColormap		:: LispName ("xlib:create-colormap")
xCopyColormapAndFree	:: LispName ("xlib:copy-colormap-and-free")
xFreeColormap		:: LispName ("xlib:free-colormap")

-- installing colormaps

xInstallColormap	:: LispName ("xlib:install-colormap")
xInstalledColormaps	:: LispName ("xlib:installed-colormaps")
xUnInstallColormap	:: LispName ("xlib:uninstall-colormap")

-- allocating colors

xAllocColor		:: LispName ("x-alloc-color")
xAllocColorCells	:: LispName ("x-alloc-color-cells")
xAllocColorPlanes	:: LispName ("x-alloc-color-planes")

xFreeColors		:: LispName ("xlib:free-colors")

-- finding colors

xLookupColor		:: LispName ("x-lookup-color")
xQueryColors		:: LispName ("xlib:query-colors")

-- changing colors

xStoreColor		:: LispName ("xlib:store-color")
xStoreColors		:: LispName ("x-store-colors")

-- colormap attributes

xColormapDisplay	:: LispName ("xlib:colormap-display")
xColormapEqual		:: LispName ("xlib:colormap-equal")

-- CURSORS

xCreateCursor		:: LispName ("x-create-cursor")
xCreateGlyphCursor	:: LispName ("x-create-glyph-cursor")
xFreeCursor		:: LispName ("xlib:free-cursor")

xQueryBestCursor	:: LispName ("x-query-best-cursor")
xRecolorCursor		:: LispName ("xlib:recolor-cursor")

xCursorDisplay		:: LispName ("xlib:cursor-display")
xCursorEqual		:: LispName ("xlib:cursor-equal")

-- ATOMS, PROPERTIES, AND SELECTIONS

-- atoms

xAtomName		:: LispName ("xlib:atom-name")
xFindAtom		:: LispName ("xlib:find-atom")
xInternAtom		:: LispName ("xlib:intern-atom")

-- properties

xChangeProperty		:: LispName ("x-change-property")
xDeleteProperty		:: LispName ("xlib:delete-property")
xGetProperty		:: LispName ("x-get-property")
xListProperties		:: LispName ("xlib:list-properties")
xRotateProperties	:: LispName ("xlib:rotate-properties")

-- selections

xConvertSelection	:: LispName ("x-convert-selection")
xSelectionOwner		:: LispName ("xlib:selection-owner")
xSetSelectionOwner	:: LispName ("x-set-selection-owner")

-- EVENT

-- Wait for the next event 

xGetEvent		:: LispName ("x-get-event")

-- managing the event queue 

xQueueEvent		:: LispName ("x-queue-event")
xEventListen		:: LispName ("x-event-listen")

-- sending events 

xSendEvent		:: LispName ("x-send-event")

-- pointer position

xGlobalPointerPosition	:: LispName ("x-global-pointer-position")
xPointerPosition	:: LispName ("x-pointer-position")
xMotionEvents		:: LispName ("x-motion-events")
xWarpPointer		:: LispName ("x-warp-pointer")

-- keyboard input focus

xSetInputFocus		:: LispName ("x-set-input-focus")
xInputFucus		:: LispName ("x-input-focus")

-- grabbing the pointer

xGrabPointer		:: LispName ("x-grab-pointer")
xUngrabPointer		:: LispName ("x-ungrab-pointer")
xChangeActivePointerGrab :: LispName ("x-change-active-pointer-grab")

-- grabbing a button

xGrabButton		:: LispName ("x-grab-button")
xUngrabButton		:: LispName ("x-ungrab-button")

-- grabbing the keyboard

xGrabKeyboard		:: LispName ("x-grab-keyboard")
xUngrabkeyboard		:: LispName ("x-ungrab-keyboard")

-- grabbing a key

xGrabKey		:: LispName ("x-grab-key")
xUngrabKey		:: LispName ("x-ungrab-key")

-- CONTROL FUNCTIONS

-- grabbing the server

xGrabServer		:: LispName ("xlib:grab-server")
xUngrabServer		:: LispName ("xlib:ungrab-server")

-- pointer control

xSetPointerAcceleration	:: LispName ("x-set-pointer-acceleration")
xSetPointerThreshold	:: LispName ("x-set-pointer-threshold")
xPointerAcceleration	:: LispName ("x-pointer-acceleration")
xPointerThreshold	:: LispName ("x-pointer-threshold")
xSetPointerMapping	:: LispName ("x-set-pointer-mapping")
xPointerMapping		:: LispName ("xlib:pointer-mapping")

-- keyboard control

xBell			:: LispName ("xlib:bell")

xSetKeyboardKeyClickPercent 	:: LispName ("x-set-keyboard-key-click-percent")
xSetKeyboardBellPercent	    	:: LispName ("x-set-keyboard-bell-percent")
xSetKeyboardBellPitch	    	:: LispName ("x-set-keyboard-bell-pitch")
xSetKeyboardBellDuration    	:: LispName ("x-set-keyboard-bell-duration")
xSetKeyboardLed		    	:: LispName ("x-set-keyboard-led")
xSetKeyboardAutoRepeatMode  	:: LispName ("x-set-keyboard-auto-repeat-mode")

xKeyboardKeyClickPercent	:: LispName ("x-keyboard-key-click-percent")
xKeyboardBellPercent		:: LispName ("x-keyboard-bell-percent")
xKeyboardBellPitch		:: LispName ("x-keyboard-bell-pitch")
xKeyboardBellDuration		:: LispName ("x-keyboard-bell-duration")
xKeyboardLed			:: LispName ("x-keyboard-led")
xKeyboardAutoRepeatMode		:: LispName ("x-keyboard-auto-repeat-mode")

xModifierMapping		:: LispName ("x-modifier-mapping")
xSetModifierMapping		:: LispName ("x-set-modifier-mapping")
xQueryKeymap			:: LispName ("xlib:query-keymap")

-- keyboard mapping

xChangeKeyboardMapping 		:: LispName ("xlib:change-keyboard-mapping")
xKeyboardMapping		:: LispName ("xlib:keyboard-mapping")

xKeycodeKeysym			:: LispName ("xlib:keycode->keysym")
xKeysymCharacter		:: LispName ("x-keysym-character")
xKeycodeCharacter		:: LispName ("x-keycode-character")

-- client termination

xAddToSaveSet		:: LispName ("xlib:add-to-save-set")
xCloseDownMode		:: LispName ("xlib:close-down-mode")
xSetCloseDownMode	:: LispName ("x-set-close-down-mode")
xKillClient		:: LispName ("xlib:kill-client")
xKillTemporaryClients	:: LispName ("xlib:kill-temporary-clients")
xRemoveFromSaveSet	:: LispName ("xlib:remove-from-save-set")

-- managing host access

xAccessControl		:: LispName ("xlib:access-control")
xSetAccessControl	:: LispName ("x-set-access-control")
xAccessHosts		:: LispName ("xlib:access-hosts")
xAddAccessHost		:: LispName ("xlib:add-access-host")
xRemoveAccessHost	:: LispName ("xlib:remove-access-host")

-- screen saver

xActivateScreenSaver	:: LispName ("xlib:activate-screen-saver")
xResetScreenSaver	:: LispName ("xlib:reset-screen-saver")
xScreenSaver		:: LispName ("x-screen-saver")
xSetScreenSaver		:: LispName ("x-set-screen-saver")

#-}

data XMArray a

xMArrayCreate     :: [a] -> IO (XMArray a)
xMArrayLookup     :: XMArray a -> Int -> IO a
xMArrayUpdate     :: XMArray a -> Int -> a -> IO ()
xMArrayLength     :: XMArray a -> Int

{-#
xMArrayCreate     :: LispName("x-mutable-array-create")
xMArrayLookup     :: LispName("x-mutable-array-lookup")
xMArrayUpdate     :: LispName("x-mutable-array-update")
xMArrayLength     :: LispName("x-mutable-array-length")
#-}


xprint			:: a -> IO ()
{-#
xprint			:: LispName ("x-print")
#-}

-- decoded time format:
-- ([second, minute, hour, date, month, year, day-of-week], 
--  daylight-saving-time-p)
-- time format to encode:
-- [second, minute, hour, date, month, year]

data TimeZone	= WestOfGMT Int {-# STRICT #-}
		| CurrentZone

getTime		:: IO Integer
getTimeZone	:: IO Int
decodeTime	:: Integer -> TimeZone -> ([Int], Bool)
encodeTime	:: [Int] -> TimeZone -> Integer
getRunTime	:: IO Float
getElapsedTime	:: IO Float
sleep		:: Int -> IO ()

{-#
ImportLispType (TimeZone (WestOfGMT ("number?", "identity", "identity")))
ImportLispType (TimeZone (CurrentZone ("null?", "'()")))

getTime		:: LispName("lisp:get-universal-time")
getTimeZone	:: LispName("get-time-zone")
decodeTime	:: LispName("decode-time")
encodeTime	:: LispName("encode-time")
getRunTime	:: LispName("get-run-time")
getElapsedTime	:: LispName("get-elapsed-time")
sleep		:: LispName("lisp:sleep")

#-}

xWmName 		:: XWindow -> IO String
xSetWmName		:: XWindow -> String -> IO ()

xWmIconName		:: XWindow -> IO String
xSetWmIconName		:: XWindow -> String -> IO ()

{-#
xWmName 		:: LispName ("xlib:wm-name")
xSetWmName		:: LispName ("x-set-wm-name")

xWmIconName		:: LispName ("xlib:wm-icon-name")
xSetWmIconName		:: LispName ("x-set-wm-icon-name")
#-}