xhb 0.0.2009.1.6 → 0.1.2009.2.8
raw patch · 57 files changed
+8639/−8478 lines, 57 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
- Graphics.XHB: type BOOL = Word8
- Graphics.XHB: type BYTE = Word8
- Graphics.XHB: type CARD16 = Word16
- Graphics.XHB: type CARD32 = Word32
- Graphics.XHB: type CARD8 = Word8
- Graphics.XHB: type INT16 = Int16
- Graphics.XHB: type INT32 = Int32
- Graphics.XHB: type INT8 = Int8
+ Graphics.XHB: xidNone :: Xid
- Graphics.XHB.Gen.BigRequests: MkEnableReply :: CARD32 -> EnableReply
+ Graphics.XHB.Gen.BigRequests: MkEnableReply :: Word32 -> EnableReply
- Graphics.XHB.Gen.BigRequests: enable :: Connection -> IO (Receipt EnableReply)
+ Graphics.XHB.Gen.BigRequests: enable :: Connection -> IO (Receipt Word32)
- Graphics.XHB.Gen.BigRequests: maximum_request_length_EnableReply :: EnableReply -> CARD32
+ Graphics.XHB.Gen.BigRequests: maximum_request_length_EnableReply :: EnableReply -> Word32
- Graphics.XHB.Gen.Composite: MkQueryVersion :: CARD32 -> CARD32 -> QueryVersion
+ Graphics.XHB.Gen.Composite: MkQueryVersion :: Word32 -> Word32 -> QueryVersion
- Graphics.XHB.Gen.Composite: MkQueryVersionReply :: CARD32 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.Composite: MkQueryVersionReply :: Word32 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.Composite: MkRedirectSubwindows :: WINDOW -> CARD8 -> RedirectSubwindows
+ Graphics.XHB.Gen.Composite: MkRedirectSubwindows :: WINDOW -> Word8 -> RedirectSubwindows
- Graphics.XHB.Gen.Composite: MkRedirectWindow :: WINDOW -> CARD8 -> RedirectWindow
+ Graphics.XHB.Gen.Composite: MkRedirectWindow :: WINDOW -> Word8 -> RedirectWindow
- Graphics.XHB.Gen.Composite: MkUnredirectSubwindows :: WINDOW -> CARD8 -> UnredirectSubwindows
+ Graphics.XHB.Gen.Composite: MkUnredirectSubwindows :: WINDOW -> Word8 -> UnredirectSubwindows
- Graphics.XHB.Gen.Composite: MkUnredirectWindow :: WINDOW -> CARD8 -> UnredirectWindow
+ Graphics.XHB.Gen.Composite: MkUnredirectWindow :: WINDOW -> Word8 -> UnredirectWindow
- Graphics.XHB.Gen.Composite: client_major_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Composite: client_major_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Composite: client_minor_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Composite: client_minor_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Composite: getOverlayWindow :: Connection -> WINDOW -> IO (Receipt GetOverlayWindowReply)
+ Graphics.XHB.Gen.Composite: getOverlayWindow :: Connection -> WINDOW -> IO (Receipt WINDOW)
- Graphics.XHB.Gen.Composite: major_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Composite: major_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Composite: minor_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Composite: minor_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Composite: queryVersion :: Connection -> CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Composite: queryVersion :: Connection -> Word32 -> Word32 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Composite: redirectSubwindows :: Connection -> WINDOW -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Composite: redirectSubwindows :: Connection -> WINDOW -> Word8 -> IO ()
- Graphics.XHB.Gen.Composite: redirectWindow :: Connection -> WINDOW -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Composite: redirectWindow :: Connection -> WINDOW -> Word8 -> IO ()
- Graphics.XHB.Gen.Composite: unredirectSubwindows :: Connection -> WINDOW -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Composite: unredirectSubwindows :: Connection -> WINDOW -> Word8 -> IO ()
- Graphics.XHB.Gen.Composite: unredirectWindow :: Connection -> WINDOW -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Composite: unredirectWindow :: Connection -> WINDOW -> Word8 -> IO ()
- Graphics.XHB.Gen.Composite: update_RedirectSubwindows :: RedirectSubwindows -> CARD8
+ Graphics.XHB.Gen.Composite: update_RedirectSubwindows :: RedirectSubwindows -> Word8
- Graphics.XHB.Gen.Composite: update_RedirectWindow :: RedirectWindow -> CARD8
+ Graphics.XHB.Gen.Composite: update_RedirectWindow :: RedirectWindow -> Word8
- Graphics.XHB.Gen.Composite: update_UnredirectSubwindows :: UnredirectSubwindows -> CARD8
+ Graphics.XHB.Gen.Composite: update_UnredirectSubwindows :: UnredirectSubwindows -> Word8
- Graphics.XHB.Gen.Composite: update_UnredirectWindow :: UnredirectWindow -> CARD8
+ Graphics.XHB.Gen.Composite: update_UnredirectWindow :: UnredirectWindow -> Word8
- Graphics.XHB.Gen.DPMS: MkCapableReply :: BOOL -> CapableReply
+ Graphics.XHB.Gen.DPMS: MkCapableReply :: Bool -> CapableReply
- Graphics.XHB.Gen.DPMS: MkForceLevel :: CARD16 -> ForceLevel
+ Graphics.XHB.Gen.DPMS: MkForceLevel :: Word16 -> ForceLevel
- Graphics.XHB.Gen.DPMS: MkGetTimeoutsReply :: CARD16 -> CARD16 -> CARD16 -> GetTimeoutsReply
+ Graphics.XHB.Gen.DPMS: MkGetTimeoutsReply :: Word16 -> Word16 -> Word16 -> GetTimeoutsReply
- Graphics.XHB.Gen.DPMS: MkGetVersion :: CARD16 -> CARD16 -> GetVersion
+ Graphics.XHB.Gen.DPMS: MkGetVersion :: Word16 -> Word16 -> GetVersion
- Graphics.XHB.Gen.DPMS: MkGetVersionReply :: CARD16 -> CARD16 -> GetVersionReply
+ Graphics.XHB.Gen.DPMS: MkGetVersionReply :: Word16 -> Word16 -> GetVersionReply
- Graphics.XHB.Gen.DPMS: MkInfoReply :: CARD16 -> BOOL -> InfoReply
+ Graphics.XHB.Gen.DPMS: MkInfoReply :: Word16 -> Bool -> InfoReply
- Graphics.XHB.Gen.DPMS: MkSetTimeouts :: CARD16 -> CARD16 -> CARD16 -> SetTimeouts
+ Graphics.XHB.Gen.DPMS: MkSetTimeouts :: Word16 -> Word16 -> Word16 -> SetTimeouts
- Graphics.XHB.Gen.DPMS: capable :: Connection -> IO (Receipt CapableReply)
+ Graphics.XHB.Gen.DPMS: capable :: Connection -> IO (Receipt Bool)
- Graphics.XHB.Gen.DPMS: capable_CapableReply :: CapableReply -> BOOL
+ Graphics.XHB.Gen.DPMS: capable_CapableReply :: CapableReply -> Bool
- Graphics.XHB.Gen.DPMS: client_major_version_GetVersion :: GetVersion -> CARD16
+ Graphics.XHB.Gen.DPMS: client_major_version_GetVersion :: GetVersion -> Word16
- Graphics.XHB.Gen.DPMS: client_minor_version_GetVersion :: GetVersion -> CARD16
+ Graphics.XHB.Gen.DPMS: client_minor_version_GetVersion :: GetVersion -> Word16
- Graphics.XHB.Gen.DPMS: forceLevel :: Connection -> CARD16 -> IO ()
+ Graphics.XHB.Gen.DPMS: forceLevel :: Connection -> Word16 -> IO ()
- Graphics.XHB.Gen.DPMS: getVersion :: Connection -> CARD16 -> CARD16 -> IO (Receipt GetVersionReply)
+ Graphics.XHB.Gen.DPMS: getVersion :: Connection -> Word16 -> Word16 -> IO (Receipt GetVersionReply)
- Graphics.XHB.Gen.DPMS: off_timeout_GetTimeoutsReply :: GetTimeoutsReply -> CARD16
+ Graphics.XHB.Gen.DPMS: off_timeout_GetTimeoutsReply :: GetTimeoutsReply -> Word16
- Graphics.XHB.Gen.DPMS: off_timeout_SetTimeouts :: SetTimeouts -> CARD16
+ Graphics.XHB.Gen.DPMS: off_timeout_SetTimeouts :: SetTimeouts -> Word16
- Graphics.XHB.Gen.DPMS: power_level_ForceLevel :: ForceLevel -> CARD16
+ Graphics.XHB.Gen.DPMS: power_level_ForceLevel :: ForceLevel -> Word16
- Graphics.XHB.Gen.DPMS: power_level_InfoReply :: InfoReply -> CARD16
+ Graphics.XHB.Gen.DPMS: power_level_InfoReply :: InfoReply -> Word16
- Graphics.XHB.Gen.DPMS: server_major_version_GetVersionReply :: GetVersionReply -> CARD16
+ Graphics.XHB.Gen.DPMS: server_major_version_GetVersionReply :: GetVersionReply -> Word16
- Graphics.XHB.Gen.DPMS: server_minor_version_GetVersionReply :: GetVersionReply -> CARD16
+ Graphics.XHB.Gen.DPMS: server_minor_version_GetVersionReply :: GetVersionReply -> Word16
- Graphics.XHB.Gen.DPMS: standby_timeout_GetTimeoutsReply :: GetTimeoutsReply -> CARD16
+ Graphics.XHB.Gen.DPMS: standby_timeout_GetTimeoutsReply :: GetTimeoutsReply -> Word16
- Graphics.XHB.Gen.DPMS: standby_timeout_SetTimeouts :: SetTimeouts -> CARD16
+ Graphics.XHB.Gen.DPMS: standby_timeout_SetTimeouts :: SetTimeouts -> Word16
- Graphics.XHB.Gen.DPMS: state_InfoReply :: InfoReply -> BOOL
+ Graphics.XHB.Gen.DPMS: state_InfoReply :: InfoReply -> Bool
- Graphics.XHB.Gen.DPMS: suspend_timeout_GetTimeoutsReply :: GetTimeoutsReply -> CARD16
+ Graphics.XHB.Gen.DPMS: suspend_timeout_GetTimeoutsReply :: GetTimeoutsReply -> Word16
- Graphics.XHB.Gen.DPMS: suspend_timeout_SetTimeouts :: SetTimeouts -> CARD16
+ Graphics.XHB.Gen.DPMS: suspend_timeout_SetTimeouts :: SetTimeouts -> Word16
- Graphics.XHB.Gen.Damage: MkCreate :: DAMAGE -> DRAWABLE -> CARD8 -> Create
+ Graphics.XHB.Gen.Damage: MkCreate :: DAMAGE -> DRAWABLE -> Word8 -> Create
- Graphics.XHB.Gen.Damage: MkNotify :: CARD8 -> DRAWABLE -> DAMAGE -> TIMESTAMP -> RECTANGLE -> RECTANGLE -> Notify
+ Graphics.XHB.Gen.Damage: MkNotify :: Word8 -> DRAWABLE -> DAMAGE -> TIMESTAMP -> RECTANGLE -> RECTANGLE -> Notify
- Graphics.XHB.Gen.Damage: MkQueryVersion :: CARD32 -> CARD32 -> QueryVersion
+ Graphics.XHB.Gen.Damage: MkQueryVersion :: Word32 -> Word32 -> QueryVersion
- Graphics.XHB.Gen.Damage: MkQueryVersionReply :: CARD32 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.Damage: MkQueryVersionReply :: Word32 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.Damage: client_major_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Damage: client_major_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Damage: client_minor_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Damage: client_minor_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Damage: level_Create :: Create -> CARD8
+ Graphics.XHB.Gen.Damage: level_Create :: Create -> Word8
- Graphics.XHB.Gen.Damage: level_Notify :: Notify -> CARD8
+ Graphics.XHB.Gen.Damage: level_Notify :: Notify -> Word8
- Graphics.XHB.Gen.Damage: major_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Damage: major_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Damage: minor_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Damage: minor_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Damage: queryVersion :: Connection -> CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Damage: queryVersion :: Connection -> Word32 -> Word32 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Glx: MkAreTexturesResident :: CONTEXT_TAG -> INT32 -> [CARD32] -> AreTexturesResident
+ Graphics.XHB.Gen.Glx: MkAreTexturesResident :: CONTEXT_TAG -> Int32 -> [Word32] -> AreTexturesResident
- Graphics.XHB.Gen.Glx: MkAreTexturesResidentReply :: BOOL32 -> [BOOL] -> AreTexturesResidentReply
+ Graphics.XHB.Gen.Glx: MkAreTexturesResidentReply :: BOOL32 -> [Bool] -> AreTexturesResidentReply
- Graphics.XHB.Gen.Glx: MkBadContext :: CARD32 -> CARD16 -> CARD8 -> BadContext
+ Graphics.XHB.Gen.Glx: MkBadContext :: Word32 -> Word16 -> Word8 -> BadContext
- Graphics.XHB.Gen.Glx: MkBadContextState :: CARD32 -> CARD16 -> CARD8 -> BadContextState
+ Graphics.XHB.Gen.Glx: MkBadContextState :: Word32 -> Word16 -> Word8 -> BadContextState
- Graphics.XHB.Gen.Glx: MkBadContextTag :: CARD32 -> CARD16 -> CARD8 -> BadContextTag
+ Graphics.XHB.Gen.Glx: MkBadContextTag :: Word32 -> Word16 -> Word8 -> BadContextTag
- Graphics.XHB.Gen.Glx: MkBadCurrentDrawable :: CARD32 -> CARD16 -> CARD8 -> BadCurrentDrawable
+ Graphics.XHB.Gen.Glx: MkBadCurrentDrawable :: Word32 -> Word16 -> Word8 -> BadCurrentDrawable
- Graphics.XHB.Gen.Glx: MkBadCurrentWindow :: CARD32 -> CARD16 -> CARD8 -> BadCurrentWindow
+ Graphics.XHB.Gen.Glx: MkBadCurrentWindow :: Word32 -> Word16 -> Word8 -> BadCurrentWindow
- Graphics.XHB.Gen.Glx: MkBadDrawable :: CARD32 -> CARD16 -> CARD8 -> BadDrawable
+ Graphics.XHB.Gen.Glx: MkBadDrawable :: Word32 -> Word16 -> Word8 -> BadDrawable
- Graphics.XHB.Gen.Glx: MkBadFBConfig :: CARD32 -> CARD16 -> CARD8 -> BadFBConfig
+ Graphics.XHB.Gen.Glx: MkBadFBConfig :: Word32 -> Word16 -> Word8 -> BadFBConfig
- Graphics.XHB.Gen.Glx: MkBadLargeRequest :: CARD32 -> CARD16 -> CARD8 -> BadLargeRequest
+ Graphics.XHB.Gen.Glx: MkBadLargeRequest :: Word32 -> Word16 -> Word8 -> BadLargeRequest
- Graphics.XHB.Gen.Glx: MkBadPbuffer :: CARD32 -> CARD16 -> CARD8 -> BadPbuffer
+ Graphics.XHB.Gen.Glx: MkBadPbuffer :: Word32 -> Word16 -> Word8 -> BadPbuffer
- Graphics.XHB.Gen.Glx: MkBadPixmap :: CARD32 -> CARD16 -> CARD8 -> BadPixmap
+ Graphics.XHB.Gen.Glx: MkBadPixmap :: Word32 -> Word16 -> Word8 -> BadPixmap
- Graphics.XHB.Gen.Glx: MkBadRenderRequest :: CARD32 -> CARD16 -> CARD8 -> BadRenderRequest
+ Graphics.XHB.Gen.Glx: MkBadRenderRequest :: Word32 -> Word16 -> Word8 -> BadRenderRequest
- Graphics.XHB.Gen.Glx: MkBadWindow :: CARD32 -> CARD16 -> CARD8 -> BadWindow
+ Graphics.XHB.Gen.Glx: MkBadWindow :: Word32 -> Word16 -> Word8 -> BadWindow
- Graphics.XHB.Gen.Glx: MkChangeDrawableAttributes :: DRAWABLE -> CARD32 -> [CARD32] -> ChangeDrawableAttributes
+ Graphics.XHB.Gen.Glx: MkChangeDrawableAttributes :: DRAWABLE -> Word32 -> [Word32] -> ChangeDrawableAttributes
- Graphics.XHB.Gen.Glx: MkClientInfo :: CARD32 -> CARD32 -> CARD32 -> [CChar] -> ClientInfo
+ Graphics.XHB.Gen.Glx: MkClientInfo :: Word32 -> Word32 -> Word32 -> [CChar] -> ClientInfo
- Graphics.XHB.Gen.Glx: MkCopyContext :: CONTEXT -> CONTEXT -> CARD32 -> CONTEXT_TAG -> CopyContext
+ Graphics.XHB.Gen.Glx: MkCopyContext :: CONTEXT -> CONTEXT -> Word32 -> CONTEXT_TAG -> CopyContext
- Graphics.XHB.Gen.Glx: MkCreateContext :: CONTEXT -> VISUALID -> CARD32 -> CONTEXT -> BOOL -> CreateContext
+ Graphics.XHB.Gen.Glx: MkCreateContext :: CONTEXT -> VISUALID -> Word32 -> CONTEXT -> Bool -> CreateContext
- Graphics.XHB.Gen.Glx: MkCreateGLXPixmap :: CARD32 -> VISUALID -> PIXMAP -> PIXMAP -> CreateGLXPixmap
+ Graphics.XHB.Gen.Glx: MkCreateGLXPixmap :: Word32 -> VISUALID -> PIXMAP -> PIXMAP -> CreateGLXPixmap
- Graphics.XHB.Gen.Glx: MkCreateNewContext :: CONTEXT -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> BOOL -> CARD8 -> CARD16 -> CreateNewContext
+ Graphics.XHB.Gen.Glx: MkCreateNewContext :: CONTEXT -> Word32 -> Word32 -> Word32 -> Word32 -> Bool -> Word8 -> Word16 -> CreateNewContext
- Graphics.XHB.Gen.Glx: MkCreatePbuffer :: CARD32 -> FBCONFIG -> PBUFFER -> CARD32 -> [CARD32] -> CreatePbuffer
+ Graphics.XHB.Gen.Glx: MkCreatePbuffer :: Word32 -> FBCONFIG -> PBUFFER -> Word32 -> [Word32] -> CreatePbuffer
- Graphics.XHB.Gen.Glx: MkCreatePixmap :: CARD32 -> CARD32 -> PIXMAP -> PIXMAP -> CARD32 -> [CARD32] -> CreatePixmap
+ Graphics.XHB.Gen.Glx: MkCreatePixmap :: Word32 -> Word32 -> PIXMAP -> PIXMAP -> Word32 -> [Word32] -> CreatePixmap
- Graphics.XHB.Gen.Glx: MkCreateWindow :: CARD32 -> FBCONFIG -> WINDOW -> WINDOW -> CARD32 -> [CARD32] -> CreateWindow
+ Graphics.XHB.Gen.Glx: MkCreateWindow :: Word32 -> FBCONFIG -> WINDOW -> WINDOW -> Word32 -> [Word32] -> CreateWindow
- Graphics.XHB.Gen.Glx: MkDeleteLists :: CONTEXT_TAG -> CARD32 -> INT32 -> DeleteLists
+ Graphics.XHB.Gen.Glx: MkDeleteLists :: CONTEXT_TAG -> Word32 -> Int32 -> DeleteLists
- Graphics.XHB.Gen.Glx: MkDeleteQueriesARB :: CONTEXT_TAG -> INT32 -> [CARD32] -> DeleteQueriesARB
+ Graphics.XHB.Gen.Glx: MkDeleteQueriesARB :: CONTEXT_TAG -> Int32 -> [Word32] -> DeleteQueriesARB
- Graphics.XHB.Gen.Glx: MkDeleteTextures :: CONTEXT_TAG -> INT32 -> [CARD32] -> DeleteTextures
+ Graphics.XHB.Gen.Glx: MkDeleteTextures :: CONTEXT_TAG -> Int32 -> [Word32] -> DeleteTextures
- Graphics.XHB.Gen.Glx: MkFeedbackBuffer :: CONTEXT_TAG -> INT32 -> INT32 -> FeedbackBuffer
+ Graphics.XHB.Gen.Glx: MkFeedbackBuffer :: CONTEXT_TAG -> Int32 -> Int32 -> FeedbackBuffer
- Graphics.XHB.Gen.Glx: MkGenLists :: CONTEXT_TAG -> INT32 -> GenLists
+ Graphics.XHB.Gen.Glx: MkGenLists :: CONTEXT_TAG -> Int32 -> GenLists
- Graphics.XHB.Gen.Glx: MkGenListsReply :: CARD32 -> GenListsReply
+ Graphics.XHB.Gen.Glx: MkGenListsReply :: Word32 -> GenListsReply
- Graphics.XHB.Gen.Glx: MkGenQueriesARB :: CONTEXT_TAG -> INT32 -> GenQueriesARB
+ Graphics.XHB.Gen.Glx: MkGenQueriesARB :: CONTEXT_TAG -> Int32 -> GenQueriesARB
- Graphics.XHB.Gen.Glx: MkGenQueriesARBReply :: [CARD32] -> GenQueriesARBReply
+ Graphics.XHB.Gen.Glx: MkGenQueriesARBReply :: [Word32] -> GenQueriesARBReply
- Graphics.XHB.Gen.Glx: MkGenTextures :: CONTEXT_TAG -> INT32 -> GenTextures
+ Graphics.XHB.Gen.Glx: MkGenTextures :: CONTEXT_TAG -> Int32 -> GenTextures
- Graphics.XHB.Gen.Glx: MkGenTexturesReply :: [CARD32] -> GenTexturesReply
+ Graphics.XHB.Gen.Glx: MkGenTexturesReply :: [Word32] -> GenTexturesReply
- Graphics.XHB.Gen.Glx: MkGeneric :: CARD32 -> CARD16 -> CARD8 -> Generic
+ Graphics.XHB.Gen.Glx: MkGeneric :: Word32 -> Word16 -> Word8 -> Generic
- Graphics.XHB.Gen.Glx: MkGetBooleanv :: CONTEXT_TAG -> INT32 -> GetBooleanv
+ Graphics.XHB.Gen.Glx: MkGetBooleanv :: CONTEXT_TAG -> Int32 -> GetBooleanv
- Graphics.XHB.Gen.Glx: MkGetBooleanvReply :: CARD32 -> BOOL -> [BOOL] -> GetBooleanvReply
+ Graphics.XHB.Gen.Glx: MkGetBooleanvReply :: Word32 -> Bool -> [Bool] -> GetBooleanvReply
- Graphics.XHB.Gen.Glx: MkGetClipPlane :: CONTEXT_TAG -> INT32 -> GetClipPlane
+ Graphics.XHB.Gen.Glx: MkGetClipPlane :: CONTEXT_TAG -> Int32 -> GetClipPlane
- Graphics.XHB.Gen.Glx: MkGetColorTable :: CONTEXT_TAG -> CARD32 -> CARD32 -> CARD32 -> BOOL -> GetColorTable
+ Graphics.XHB.Gen.Glx: MkGetColorTable :: CONTEXT_TAG -> Word32 -> Word32 -> Word32 -> Bool -> GetColorTable
- Graphics.XHB.Gen.Glx: MkGetColorTableParameterfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetColorTableParameterfv
+ Graphics.XHB.Gen.Glx: MkGetColorTableParameterfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetColorTableParameterfv
- Graphics.XHB.Gen.Glx: MkGetColorTableParameterfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetColorTableParameterfvReply
+ Graphics.XHB.Gen.Glx: MkGetColorTableParameterfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetColorTableParameterfvReply
- Graphics.XHB.Gen.Glx: MkGetColorTableParameteriv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetColorTableParameteriv
+ Graphics.XHB.Gen.Glx: MkGetColorTableParameteriv :: CONTEXT_TAG -> Word32 -> Word32 -> GetColorTableParameteriv
- Graphics.XHB.Gen.Glx: MkGetColorTableParameterivReply :: CARD32 -> INT32 -> [INT32] -> GetColorTableParameterivReply
+ Graphics.XHB.Gen.Glx: MkGetColorTableParameterivReply :: Word32 -> Int32 -> [Int32] -> GetColorTableParameterivReply
- Graphics.XHB.Gen.Glx: MkGetColorTableReply :: INT32 -> [BYTE] -> GetColorTableReply
+ Graphics.XHB.Gen.Glx: MkGetColorTableReply :: Int32 -> [Word8] -> GetColorTableReply
- Graphics.XHB.Gen.Glx: MkGetCompressedTexImageARB :: CONTEXT_TAG -> CARD32 -> INT32 -> GetCompressedTexImageARB
+ Graphics.XHB.Gen.Glx: MkGetCompressedTexImageARB :: CONTEXT_TAG -> Word32 -> Int32 -> GetCompressedTexImageARB
- Graphics.XHB.Gen.Glx: MkGetCompressedTexImageARBReply :: INT32 -> [BYTE] -> GetCompressedTexImageARBReply
+ Graphics.XHB.Gen.Glx: MkGetCompressedTexImageARBReply :: Int32 -> [Word8] -> GetCompressedTexImageARBReply
- Graphics.XHB.Gen.Glx: MkGetConvolutionFilter :: CONTEXT_TAG -> CARD32 -> CARD32 -> CARD32 -> BOOL -> GetConvolutionFilter
+ Graphics.XHB.Gen.Glx: MkGetConvolutionFilter :: CONTEXT_TAG -> Word32 -> Word32 -> Word32 -> Bool -> GetConvolutionFilter
- Graphics.XHB.Gen.Glx: MkGetConvolutionFilterReply :: INT32 -> INT32 -> [BYTE] -> GetConvolutionFilterReply
+ Graphics.XHB.Gen.Glx: MkGetConvolutionFilterReply :: Int32 -> Int32 -> [Word8] -> GetConvolutionFilterReply
- Graphics.XHB.Gen.Glx: MkGetConvolutionParameterfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetConvolutionParameterfv
+ Graphics.XHB.Gen.Glx: MkGetConvolutionParameterfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetConvolutionParameterfv
- Graphics.XHB.Gen.Glx: MkGetConvolutionParameterfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetConvolutionParameterfvReply
+ Graphics.XHB.Gen.Glx: MkGetConvolutionParameterfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetConvolutionParameterfvReply
- Graphics.XHB.Gen.Glx: MkGetConvolutionParameteriv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetConvolutionParameteriv
+ Graphics.XHB.Gen.Glx: MkGetConvolutionParameteriv :: CONTEXT_TAG -> Word32 -> Word32 -> GetConvolutionParameteriv
- Graphics.XHB.Gen.Glx: MkGetConvolutionParameterivReply :: CARD32 -> INT32 -> [INT32] -> GetConvolutionParameterivReply
+ Graphics.XHB.Gen.Glx: MkGetConvolutionParameterivReply :: Word32 -> Int32 -> [Int32] -> GetConvolutionParameterivReply
- Graphics.XHB.Gen.Glx: MkGetDoublev :: CONTEXT_TAG -> CARD32 -> GetDoublev
+ Graphics.XHB.Gen.Glx: MkGetDoublev :: CONTEXT_TAG -> Word32 -> GetDoublev
- Graphics.XHB.Gen.Glx: MkGetDoublevReply :: CARD32 -> FLOAT64 -> [FLOAT64] -> GetDoublevReply
+ Graphics.XHB.Gen.Glx: MkGetDoublevReply :: Word32 -> FLOAT64 -> [FLOAT64] -> GetDoublevReply
- Graphics.XHB.Gen.Glx: MkGetDrawableAttributesReply :: CARD32 -> [CARD32] -> GetDrawableAttributesReply
+ Graphics.XHB.Gen.Glx: MkGetDrawableAttributesReply :: Word32 -> [Word32] -> GetDrawableAttributesReply
- Graphics.XHB.Gen.Glx: MkGetErrorReply :: INT32 -> GetErrorReply
+ Graphics.XHB.Gen.Glx: MkGetErrorReply :: Int32 -> GetErrorReply
- Graphics.XHB.Gen.Glx: MkGetFBConfigs :: CARD32 -> GetFBConfigs
+ Graphics.XHB.Gen.Glx: MkGetFBConfigs :: Word32 -> GetFBConfigs
- Graphics.XHB.Gen.Glx: MkGetFBConfigsReply :: CARD32 -> CARD32 -> [CARD32] -> GetFBConfigsReply
+ Graphics.XHB.Gen.Glx: MkGetFBConfigsReply :: Word32 -> Word32 -> [Word32] -> GetFBConfigsReply
- Graphics.XHB.Gen.Glx: MkGetFloatv :: CONTEXT_TAG -> CARD32 -> GetFloatv
+ Graphics.XHB.Gen.Glx: MkGetFloatv :: CONTEXT_TAG -> Word32 -> GetFloatv
- Graphics.XHB.Gen.Glx: MkGetFloatvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetFloatvReply
+ Graphics.XHB.Gen.Glx: MkGetFloatvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetFloatvReply
- Graphics.XHB.Gen.Glx: MkGetHistogram :: CONTEXT_TAG -> CARD32 -> CARD32 -> CARD32 -> BOOL -> BOOL -> GetHistogram
+ Graphics.XHB.Gen.Glx: MkGetHistogram :: CONTEXT_TAG -> Word32 -> Word32 -> Word32 -> Bool -> Bool -> GetHistogram
- Graphics.XHB.Gen.Glx: MkGetHistogramParameterfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetHistogramParameterfv
+ Graphics.XHB.Gen.Glx: MkGetHistogramParameterfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetHistogramParameterfv
- Graphics.XHB.Gen.Glx: MkGetHistogramParameterfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetHistogramParameterfvReply
+ Graphics.XHB.Gen.Glx: MkGetHistogramParameterfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetHistogramParameterfvReply
- Graphics.XHB.Gen.Glx: MkGetHistogramParameteriv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetHistogramParameteriv
+ Graphics.XHB.Gen.Glx: MkGetHistogramParameteriv :: CONTEXT_TAG -> Word32 -> Word32 -> GetHistogramParameteriv
- Graphics.XHB.Gen.Glx: MkGetHistogramParameterivReply :: CARD32 -> INT32 -> [INT32] -> GetHistogramParameterivReply
+ Graphics.XHB.Gen.Glx: MkGetHistogramParameterivReply :: Word32 -> Int32 -> [Int32] -> GetHistogramParameterivReply
- Graphics.XHB.Gen.Glx: MkGetHistogramReply :: INT32 -> [BYTE] -> GetHistogramReply
+ Graphics.XHB.Gen.Glx: MkGetHistogramReply :: Int32 -> [Word8] -> GetHistogramReply
- Graphics.XHB.Gen.Glx: MkGetIntegerv :: CONTEXT_TAG -> CARD32 -> GetIntegerv
+ Graphics.XHB.Gen.Glx: MkGetIntegerv :: CONTEXT_TAG -> Word32 -> GetIntegerv
- Graphics.XHB.Gen.Glx: MkGetIntegervReply :: CARD32 -> INT32 -> [INT32] -> GetIntegervReply
+ Graphics.XHB.Gen.Glx: MkGetIntegervReply :: Word32 -> Int32 -> [Int32] -> GetIntegervReply
- Graphics.XHB.Gen.Glx: MkGetLightfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetLightfv
+ Graphics.XHB.Gen.Glx: MkGetLightfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetLightfv
- Graphics.XHB.Gen.Glx: MkGetLightfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetLightfvReply
+ Graphics.XHB.Gen.Glx: MkGetLightfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetLightfvReply
- Graphics.XHB.Gen.Glx: MkGetLightiv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetLightiv
+ Graphics.XHB.Gen.Glx: MkGetLightiv :: CONTEXT_TAG -> Word32 -> Word32 -> GetLightiv
- Graphics.XHB.Gen.Glx: MkGetLightivReply :: CARD32 -> INT32 -> [INT32] -> GetLightivReply
+ Graphics.XHB.Gen.Glx: MkGetLightivReply :: Word32 -> Int32 -> [Int32] -> GetLightivReply
- Graphics.XHB.Gen.Glx: MkGetMapdv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetMapdv
+ Graphics.XHB.Gen.Glx: MkGetMapdv :: CONTEXT_TAG -> Word32 -> Word32 -> GetMapdv
- Graphics.XHB.Gen.Glx: MkGetMapdvReply :: CARD32 -> FLOAT64 -> [FLOAT64] -> GetMapdvReply
+ Graphics.XHB.Gen.Glx: MkGetMapdvReply :: Word32 -> FLOAT64 -> [FLOAT64] -> GetMapdvReply
- Graphics.XHB.Gen.Glx: MkGetMapfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetMapfv
+ Graphics.XHB.Gen.Glx: MkGetMapfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetMapfv
- Graphics.XHB.Gen.Glx: MkGetMapfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetMapfvReply
+ Graphics.XHB.Gen.Glx: MkGetMapfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetMapfvReply
- Graphics.XHB.Gen.Glx: MkGetMapiv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetMapiv
+ Graphics.XHB.Gen.Glx: MkGetMapiv :: CONTEXT_TAG -> Word32 -> Word32 -> GetMapiv
- Graphics.XHB.Gen.Glx: MkGetMapivReply :: CARD32 -> INT32 -> [INT32] -> GetMapivReply
+ Graphics.XHB.Gen.Glx: MkGetMapivReply :: Word32 -> Int32 -> [Int32] -> GetMapivReply
- Graphics.XHB.Gen.Glx: MkGetMaterialfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetMaterialfv
+ Graphics.XHB.Gen.Glx: MkGetMaterialfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetMaterialfv
- Graphics.XHB.Gen.Glx: MkGetMaterialfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetMaterialfvReply
+ Graphics.XHB.Gen.Glx: MkGetMaterialfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetMaterialfvReply
- Graphics.XHB.Gen.Glx: MkGetMaterialiv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetMaterialiv
+ Graphics.XHB.Gen.Glx: MkGetMaterialiv :: CONTEXT_TAG -> Word32 -> Word32 -> GetMaterialiv
- Graphics.XHB.Gen.Glx: MkGetMaterialivReply :: CARD32 -> INT32 -> [INT32] -> GetMaterialivReply
+ Graphics.XHB.Gen.Glx: MkGetMaterialivReply :: Word32 -> Int32 -> [Int32] -> GetMaterialivReply
- Graphics.XHB.Gen.Glx: MkGetMinmax :: CONTEXT_TAG -> CARD32 -> CARD32 -> CARD32 -> BOOL -> BOOL -> GetMinmax
+ Graphics.XHB.Gen.Glx: MkGetMinmax :: CONTEXT_TAG -> Word32 -> Word32 -> Word32 -> Bool -> Bool -> GetMinmax
- Graphics.XHB.Gen.Glx: MkGetMinmaxParameterfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetMinmaxParameterfv
+ Graphics.XHB.Gen.Glx: MkGetMinmaxParameterfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetMinmaxParameterfv
- Graphics.XHB.Gen.Glx: MkGetMinmaxParameterfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetMinmaxParameterfvReply
+ Graphics.XHB.Gen.Glx: MkGetMinmaxParameterfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetMinmaxParameterfvReply
- Graphics.XHB.Gen.Glx: MkGetMinmaxParameteriv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetMinmaxParameteriv
+ Graphics.XHB.Gen.Glx: MkGetMinmaxParameteriv :: CONTEXT_TAG -> Word32 -> Word32 -> GetMinmaxParameteriv
- Graphics.XHB.Gen.Glx: MkGetMinmaxParameterivReply :: CARD32 -> INT32 -> [INT32] -> GetMinmaxParameterivReply
+ Graphics.XHB.Gen.Glx: MkGetMinmaxParameterivReply :: Word32 -> Int32 -> [Int32] -> GetMinmaxParameterivReply
- Graphics.XHB.Gen.Glx: MkGetMinmaxReply :: [BYTE] -> GetMinmaxReply
+ Graphics.XHB.Gen.Glx: MkGetMinmaxReply :: [Word8] -> GetMinmaxReply
- Graphics.XHB.Gen.Glx: MkGetPixelMapfv :: CONTEXT_TAG -> CARD32 -> GetPixelMapfv
+ Graphics.XHB.Gen.Glx: MkGetPixelMapfv :: CONTEXT_TAG -> Word32 -> GetPixelMapfv
- Graphics.XHB.Gen.Glx: MkGetPixelMapfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetPixelMapfvReply
+ Graphics.XHB.Gen.Glx: MkGetPixelMapfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetPixelMapfvReply
- Graphics.XHB.Gen.Glx: MkGetPixelMapuiv :: CONTEXT_TAG -> CARD32 -> GetPixelMapuiv
+ Graphics.XHB.Gen.Glx: MkGetPixelMapuiv :: CONTEXT_TAG -> Word32 -> GetPixelMapuiv
- Graphics.XHB.Gen.Glx: MkGetPixelMapuivReply :: CARD32 -> CARD32 -> [CARD32] -> GetPixelMapuivReply
+ Graphics.XHB.Gen.Glx: MkGetPixelMapuivReply :: Word32 -> Word32 -> [Word32] -> GetPixelMapuivReply
- Graphics.XHB.Gen.Glx: MkGetPixelMapusv :: CONTEXT_TAG -> CARD32 -> GetPixelMapusv
+ Graphics.XHB.Gen.Glx: MkGetPixelMapusv :: CONTEXT_TAG -> Word32 -> GetPixelMapusv
- Graphics.XHB.Gen.Glx: MkGetPixelMapusvReply :: CARD32 -> CARD16 -> [CARD16] -> GetPixelMapusvReply
+ Graphics.XHB.Gen.Glx: MkGetPixelMapusvReply :: Word32 -> Word16 -> [Word16] -> GetPixelMapusvReply
- Graphics.XHB.Gen.Glx: MkGetPolygonStipple :: CONTEXT_TAG -> BOOL -> GetPolygonStipple
+ Graphics.XHB.Gen.Glx: MkGetPolygonStipple :: CONTEXT_TAG -> Bool -> GetPolygonStipple
- Graphics.XHB.Gen.Glx: MkGetPolygonStippleReply :: [BYTE] -> GetPolygonStippleReply
+ Graphics.XHB.Gen.Glx: MkGetPolygonStippleReply :: [Word8] -> GetPolygonStippleReply
- Graphics.XHB.Gen.Glx: MkGetQueryObjectivARB :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetQueryObjectivARB
+ Graphics.XHB.Gen.Glx: MkGetQueryObjectivARB :: CONTEXT_TAG -> Word32 -> Word32 -> GetQueryObjectivARB
- Graphics.XHB.Gen.Glx: MkGetQueryObjectivARBReply :: CARD32 -> INT32 -> [INT32] -> GetQueryObjectivARBReply
+ Graphics.XHB.Gen.Glx: MkGetQueryObjectivARBReply :: Word32 -> Int32 -> [Int32] -> GetQueryObjectivARBReply
- Graphics.XHB.Gen.Glx: MkGetQueryObjectuivARB :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetQueryObjectuivARB
+ Graphics.XHB.Gen.Glx: MkGetQueryObjectuivARB :: CONTEXT_TAG -> Word32 -> Word32 -> GetQueryObjectuivARB
- Graphics.XHB.Gen.Glx: MkGetQueryObjectuivARBReply :: CARD32 -> CARD32 -> [CARD32] -> GetQueryObjectuivARBReply
+ Graphics.XHB.Gen.Glx: MkGetQueryObjectuivARBReply :: Word32 -> Word32 -> [Word32] -> GetQueryObjectuivARBReply
- Graphics.XHB.Gen.Glx: MkGetQueryivARB :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetQueryivARB
+ Graphics.XHB.Gen.Glx: MkGetQueryivARB :: CONTEXT_TAG -> Word32 -> Word32 -> GetQueryivARB
- Graphics.XHB.Gen.Glx: MkGetQueryivARBReply :: CARD32 -> INT32 -> [INT32] -> GetQueryivARBReply
+ Graphics.XHB.Gen.Glx: MkGetQueryivARBReply :: Word32 -> Int32 -> [Int32] -> GetQueryivARBReply
- Graphics.XHB.Gen.Glx: MkGetSeparableFilter :: CONTEXT_TAG -> CARD32 -> CARD32 -> CARD32 -> BOOL -> GetSeparableFilter
+ Graphics.XHB.Gen.Glx: MkGetSeparableFilter :: CONTEXT_TAG -> Word32 -> Word32 -> Word32 -> Bool -> GetSeparableFilter
- Graphics.XHB.Gen.Glx: MkGetSeparableFilterReply :: INT32 -> INT32 -> [BYTE] -> GetSeparableFilterReply
+ Graphics.XHB.Gen.Glx: MkGetSeparableFilterReply :: Int32 -> Int32 -> [Word8] -> GetSeparableFilterReply
- Graphics.XHB.Gen.Glx: MkGetString :: CONTEXT_TAG -> CARD32 -> GetString
+ Graphics.XHB.Gen.Glx: MkGetString :: CONTEXT_TAG -> Word32 -> GetString
- Graphics.XHB.Gen.Glx: MkGetStringReply :: CARD32 -> [CChar] -> GetStringReply
+ Graphics.XHB.Gen.Glx: MkGetStringReply :: Word32 -> [CChar] -> GetStringReply
- Graphics.XHB.Gen.Glx: MkGetTexEnvfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetTexEnvfv
+ Graphics.XHB.Gen.Glx: MkGetTexEnvfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetTexEnvfv
- Graphics.XHB.Gen.Glx: MkGetTexEnvfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetTexEnvfvReply
+ Graphics.XHB.Gen.Glx: MkGetTexEnvfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetTexEnvfvReply
- Graphics.XHB.Gen.Glx: MkGetTexEnviv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetTexEnviv
+ Graphics.XHB.Gen.Glx: MkGetTexEnviv :: CONTEXT_TAG -> Word32 -> Word32 -> GetTexEnviv
- Graphics.XHB.Gen.Glx: MkGetTexEnvivReply :: CARD32 -> INT32 -> [INT32] -> GetTexEnvivReply
+ Graphics.XHB.Gen.Glx: MkGetTexEnvivReply :: Word32 -> Int32 -> [Int32] -> GetTexEnvivReply
- Graphics.XHB.Gen.Glx: MkGetTexGendv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetTexGendv
+ Graphics.XHB.Gen.Glx: MkGetTexGendv :: CONTEXT_TAG -> Word32 -> Word32 -> GetTexGendv
- Graphics.XHB.Gen.Glx: MkGetTexGendvReply :: CARD32 -> FLOAT64 -> [FLOAT64] -> GetTexGendvReply
+ Graphics.XHB.Gen.Glx: MkGetTexGendvReply :: Word32 -> FLOAT64 -> [FLOAT64] -> GetTexGendvReply
- Graphics.XHB.Gen.Glx: MkGetTexGenfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetTexGenfv
+ Graphics.XHB.Gen.Glx: MkGetTexGenfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetTexGenfv
- Graphics.XHB.Gen.Glx: MkGetTexGenfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetTexGenfvReply
+ Graphics.XHB.Gen.Glx: MkGetTexGenfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetTexGenfvReply
- Graphics.XHB.Gen.Glx: MkGetTexGeniv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetTexGeniv
+ Graphics.XHB.Gen.Glx: MkGetTexGeniv :: CONTEXT_TAG -> Word32 -> Word32 -> GetTexGeniv
- Graphics.XHB.Gen.Glx: MkGetTexGenivReply :: CARD32 -> INT32 -> [INT32] -> GetTexGenivReply
+ Graphics.XHB.Gen.Glx: MkGetTexGenivReply :: Word32 -> Int32 -> [Int32] -> GetTexGenivReply
- Graphics.XHB.Gen.Glx: MkGetTexImage :: CONTEXT_TAG -> CARD32 -> INT32 -> CARD32 -> CARD32 -> BOOL -> GetTexImage
+ Graphics.XHB.Gen.Glx: MkGetTexImage :: CONTEXT_TAG -> Word32 -> Int32 -> Word32 -> Word32 -> Bool -> GetTexImage
- Graphics.XHB.Gen.Glx: MkGetTexImageReply :: INT32 -> INT32 -> INT32 -> [BYTE] -> GetTexImageReply
+ Graphics.XHB.Gen.Glx: MkGetTexImageReply :: Int32 -> Int32 -> Int32 -> [Word8] -> GetTexImageReply
- Graphics.XHB.Gen.Glx: MkGetTexLevelParameterfv :: CONTEXT_TAG -> CARD32 -> INT32 -> CARD32 -> GetTexLevelParameterfv
+ Graphics.XHB.Gen.Glx: MkGetTexLevelParameterfv :: CONTEXT_TAG -> Word32 -> Int32 -> Word32 -> GetTexLevelParameterfv
- Graphics.XHB.Gen.Glx: MkGetTexLevelParameterfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetTexLevelParameterfvReply
+ Graphics.XHB.Gen.Glx: MkGetTexLevelParameterfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetTexLevelParameterfvReply
- Graphics.XHB.Gen.Glx: MkGetTexLevelParameteriv :: CONTEXT_TAG -> CARD32 -> INT32 -> CARD32 -> GetTexLevelParameteriv
+ Graphics.XHB.Gen.Glx: MkGetTexLevelParameteriv :: CONTEXT_TAG -> Word32 -> Int32 -> Word32 -> GetTexLevelParameteriv
- Graphics.XHB.Gen.Glx: MkGetTexLevelParameterivReply :: CARD32 -> INT32 -> [INT32] -> GetTexLevelParameterivReply
+ Graphics.XHB.Gen.Glx: MkGetTexLevelParameterivReply :: Word32 -> Int32 -> [Int32] -> GetTexLevelParameterivReply
- Graphics.XHB.Gen.Glx: MkGetTexParameterfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetTexParameterfv
+ Graphics.XHB.Gen.Glx: MkGetTexParameterfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetTexParameterfv
- Graphics.XHB.Gen.Glx: MkGetTexParameterfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetTexParameterfvReply
+ Graphics.XHB.Gen.Glx: MkGetTexParameterfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetTexParameterfvReply
- Graphics.XHB.Gen.Glx: MkGetTexParameteriv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetTexParameteriv
+ Graphics.XHB.Gen.Glx: MkGetTexParameteriv :: CONTEXT_TAG -> Word32 -> Word32 -> GetTexParameteriv
- Graphics.XHB.Gen.Glx: MkGetTexParameterivReply :: CARD32 -> INT32 -> [INT32] -> GetTexParameterivReply
+ Graphics.XHB.Gen.Glx: MkGetTexParameterivReply :: Word32 -> Int32 -> [Int32] -> GetTexParameterivReply
- Graphics.XHB.Gen.Glx: MkGetVisualConfigs :: CARD32 -> GetVisualConfigs
+ Graphics.XHB.Gen.Glx: MkGetVisualConfigs :: Word32 -> GetVisualConfigs
- Graphics.XHB.Gen.Glx: MkGetVisualConfigsReply :: CARD32 -> CARD32 -> [CARD32] -> GetVisualConfigsReply
+ Graphics.XHB.Gen.Glx: MkGetVisualConfigsReply :: Word32 -> Word32 -> [Word32] -> GetVisualConfigsReply
- Graphics.XHB.Gen.Glx: MkIsDirectReply :: BOOL -> IsDirectReply
+ Graphics.XHB.Gen.Glx: MkIsDirectReply :: Bool -> IsDirectReply
- Graphics.XHB.Gen.Glx: MkIsList :: CONTEXT_TAG -> CARD32 -> IsList
+ Graphics.XHB.Gen.Glx: MkIsList :: CONTEXT_TAG -> Word32 -> IsList
- Graphics.XHB.Gen.Glx: MkIsQueryARB :: CONTEXT_TAG -> CARD32 -> IsQueryARB
+ Graphics.XHB.Gen.Glx: MkIsQueryARB :: CONTEXT_TAG -> Word32 -> IsQueryARB
- Graphics.XHB.Gen.Glx: MkIsTexture :: CONTEXT_TAG -> CARD32 -> IsTexture
+ Graphics.XHB.Gen.Glx: MkIsTexture :: CONTEXT_TAG -> Word32 -> IsTexture
- Graphics.XHB.Gen.Glx: MkNewList :: CONTEXT_TAG -> CARD32 -> CARD32 -> NewList
+ Graphics.XHB.Gen.Glx: MkNewList :: CONTEXT_TAG -> Word32 -> Word32 -> NewList
- Graphics.XHB.Gen.Glx: MkPbufferClobber :: CARD16 -> CARD16 -> DRAWABLE -> CARD32 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> PbufferClobber
+ Graphics.XHB.Gen.Glx: MkPbufferClobber :: Word16 -> Word16 -> DRAWABLE -> Word32 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> PbufferClobber
- Graphics.XHB.Gen.Glx: MkPixelStoref :: CONTEXT_TAG -> CARD32 -> FLOAT32 -> PixelStoref
+ Graphics.XHB.Gen.Glx: MkPixelStoref :: CONTEXT_TAG -> Word32 -> FLOAT32 -> PixelStoref
- Graphics.XHB.Gen.Glx: MkPixelStorei :: CONTEXT_TAG -> CARD32 -> INT32 -> PixelStorei
+ Graphics.XHB.Gen.Glx: MkPixelStorei :: CONTEXT_TAG -> Word32 -> Int32 -> PixelStorei
- Graphics.XHB.Gen.Glx: MkQueryContextReply :: CARD32 -> [CARD32] -> QueryContextReply
+ Graphics.XHB.Gen.Glx: MkQueryContextReply :: Word32 -> [Word32] -> QueryContextReply
- Graphics.XHB.Gen.Glx: MkQueryExtensionsString :: CARD32 -> QueryExtensionsString
+ Graphics.XHB.Gen.Glx: MkQueryExtensionsString :: Word32 -> QueryExtensionsString
- Graphics.XHB.Gen.Glx: MkQueryExtensionsStringReply :: CARD32 -> QueryExtensionsStringReply
+ Graphics.XHB.Gen.Glx: MkQueryExtensionsStringReply :: Word32 -> QueryExtensionsStringReply
- Graphics.XHB.Gen.Glx: MkQueryServerString :: CARD32 -> CARD32 -> QueryServerString
+ Graphics.XHB.Gen.Glx: MkQueryServerString :: Word32 -> Word32 -> QueryServerString
- Graphics.XHB.Gen.Glx: MkQueryServerStringReply :: CARD32 -> [CChar] -> QueryServerStringReply
+ Graphics.XHB.Gen.Glx: MkQueryServerStringReply :: Word32 -> [CChar] -> QueryServerStringReply
- Graphics.XHB.Gen.Glx: MkQueryVersion :: CARD32 -> CARD32 -> QueryVersion
+ Graphics.XHB.Gen.Glx: MkQueryVersion :: Word32 -> Word32 -> QueryVersion
- Graphics.XHB.Gen.Glx: MkQueryVersionReply :: CARD32 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.Glx: MkQueryVersionReply :: Word32 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.Glx: MkReadPixels :: CONTEXT_TAG -> INT32 -> INT32 -> INT32 -> INT32 -> CARD32 -> CARD32 -> BOOL -> BOOL -> ReadPixels
+ Graphics.XHB.Gen.Glx: MkReadPixels :: CONTEXT_TAG -> Int32 -> Int32 -> Int32 -> Int32 -> Word32 -> Word32 -> Bool -> Bool -> ReadPixels
- Graphics.XHB.Gen.Glx: MkReadPixelsReply :: [BYTE] -> ReadPixelsReply
+ Graphics.XHB.Gen.Glx: MkReadPixelsReply :: [Word8] -> ReadPixelsReply
- Graphics.XHB.Gen.Glx: MkRender :: CONTEXT_TAG -> [BYTE] -> Render
+ Graphics.XHB.Gen.Glx: MkRender :: CONTEXT_TAG -> [Word8] -> Render
- Graphics.XHB.Gen.Glx: MkRenderLarge :: CONTEXT_TAG -> CARD16 -> CARD16 -> CARD32 -> [BYTE] -> RenderLarge
+ Graphics.XHB.Gen.Glx: MkRenderLarge :: CONTEXT_TAG -> Word16 -> Word16 -> Word32 -> [Word8] -> RenderLarge
- Graphics.XHB.Gen.Glx: MkRenderMode :: CONTEXT_TAG -> CARD32 -> RenderMode
+ Graphics.XHB.Gen.Glx: MkRenderMode :: CONTEXT_TAG -> Word32 -> RenderMode
- Graphics.XHB.Gen.Glx: MkRenderModeReply :: CARD32 -> CARD32 -> CARD32 -> [CARD32] -> RenderModeReply
+ Graphics.XHB.Gen.Glx: MkRenderModeReply :: Word32 -> Word32 -> Word32 -> [Word32] -> RenderModeReply
- Graphics.XHB.Gen.Glx: MkSelectBuffer :: CONTEXT_TAG -> INT32 -> SelectBuffer
+ Graphics.XHB.Gen.Glx: MkSelectBuffer :: CONTEXT_TAG -> Int32 -> SelectBuffer
- Graphics.XHB.Gen.Glx: MkUnsupportedPrivateRequest :: CARD32 -> CARD16 -> CARD8 -> UnsupportedPrivateRequest
+ Graphics.XHB.Gen.Glx: MkUnsupportedPrivateRequest :: Word32 -> Word16 -> Word8 -> UnsupportedPrivateRequest
- Graphics.XHB.Gen.Glx: MkUseXFont :: CONTEXT_TAG -> FONT -> CARD32 -> CARD32 -> CARD32 -> UseXFont
+ Graphics.XHB.Gen.Glx: MkUseXFont :: CONTEXT_TAG -> FONT -> Word32 -> Word32 -> Word32 -> UseXFont
- Graphics.XHB.Gen.Glx: MkVendorPrivate :: CARD32 -> CONTEXT_TAG -> [BYTE] -> VendorPrivate
+ Graphics.XHB.Gen.Glx: MkVendorPrivate :: Word32 -> CONTEXT_TAG -> [Word8] -> VendorPrivate
- Graphics.XHB.Gen.Glx: MkVendorPrivateWithReply :: CARD32 -> CONTEXT_TAG -> [BYTE] -> VendorPrivateWithReply
+ Graphics.XHB.Gen.Glx: MkVendorPrivateWithReply :: Word32 -> CONTEXT_TAG -> [Word8] -> VendorPrivateWithReply
- Graphics.XHB.Gen.Glx: MkVendorPrivateWithReplyReply :: CARD32 -> [BYTE] -> [BYTE] -> VendorPrivateWithReplyReply
+ Graphics.XHB.Gen.Glx: MkVendorPrivateWithReplyReply :: Word32 -> [Word8] -> [Word8] -> VendorPrivateWithReplyReply
- Graphics.XHB.Gen.Glx: attribs_ChangeDrawableAttributes :: ChangeDrawableAttributes -> [CARD32]
+ Graphics.XHB.Gen.Glx: attribs_ChangeDrawableAttributes :: ChangeDrawableAttributes -> [Word32]
- Graphics.XHB.Gen.Glx: attribs_CreatePbuffer :: CreatePbuffer -> [CARD32]
+ Graphics.XHB.Gen.Glx: attribs_CreatePbuffer :: CreatePbuffer -> [Word32]
- Graphics.XHB.Gen.Glx: attribs_CreatePixmap :: CreatePixmap -> [CARD32]
+ Graphics.XHB.Gen.Glx: attribs_CreatePixmap :: CreatePixmap -> [Word32]
- Graphics.XHB.Gen.Glx: attribs_CreateWindow :: CreateWindow -> [CARD32]
+ Graphics.XHB.Gen.Glx: attribs_CreateWindow :: CreateWindow -> [Word32]
- Graphics.XHB.Gen.Glx: attribs_GetDrawableAttributesReply :: GetDrawableAttributesReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: attribs_GetDrawableAttributesReply :: GetDrawableAttributesReply -> [Word32]
- Graphics.XHB.Gen.Glx: attribs_QueryContextReply :: QueryContextReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: attribs_QueryContextReply :: QueryContextReply -> [Word32]
- Graphics.XHB.Gen.Glx: aux_buffer_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: aux_buffer_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: b_mask_PbufferClobber :: PbufferClobber -> CARD32
+ Graphics.XHB.Gen.Glx: b_mask_PbufferClobber :: PbufferClobber -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadContext :: BadContext -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadContext :: BadContext -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadContextState :: BadContextState -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadContextState :: BadContextState -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadContextTag :: BadContextTag -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadContextTag :: BadContextTag -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadCurrentDrawable :: BadCurrentDrawable -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadCurrentDrawable :: BadCurrentDrawable -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadCurrentWindow :: BadCurrentWindow -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadCurrentWindow :: BadCurrentWindow -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadDrawable :: BadDrawable -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadDrawable :: BadDrawable -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadFBConfig :: BadFBConfig -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadFBConfig :: BadFBConfig -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadLargeRequest :: BadLargeRequest -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadLargeRequest :: BadLargeRequest -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadPbuffer :: BadPbuffer -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadPbuffer :: BadPbuffer -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadPixmap :: BadPixmap -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadPixmap :: BadPixmap -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadRenderRequest :: BadRenderRequest -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadRenderRequest :: BadRenderRequest -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadWindow :: BadWindow -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadWindow :: BadWindow -> Word32
- Graphics.XHB.Gen.Glx: bad_value_Generic :: Generic -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_Generic :: Generic -> Word32
- Graphics.XHB.Gen.Glx: bad_value_UnsupportedPrivateRequest :: UnsupportedPrivateRequest -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_UnsupportedPrivateRequest :: UnsupportedPrivateRequest -> Word32
- Graphics.XHB.Gen.Glx: col_h_GetSeparableFilterReply :: GetSeparableFilterReply -> INT32
+ Graphics.XHB.Gen.Glx: col_h_GetSeparableFilterReply :: GetSeparableFilterReply -> Int32
- Graphics.XHB.Gen.Glx: coord_GetTexGendv :: GetTexGendv -> CARD32
+ Graphics.XHB.Gen.Glx: coord_GetTexGendv :: GetTexGendv -> Word32
- Graphics.XHB.Gen.Glx: coord_GetTexGenfv :: GetTexGenfv -> CARD32
+ Graphics.XHB.Gen.Glx: coord_GetTexGenfv :: GetTexGenfv -> Word32
- Graphics.XHB.Gen.Glx: coord_GetTexGeniv :: GetTexGeniv -> CARD32
+ Graphics.XHB.Gen.Glx: coord_GetTexGeniv :: GetTexGeniv -> Word32
- Graphics.XHB.Gen.Glx: count_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: count_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: count_UseXFont :: UseXFont -> CARD32
+ Graphics.XHB.Gen.Glx: count_UseXFont :: UseXFont -> Word32
- Graphics.XHB.Gen.Glx: data1_VendorPrivateWithReplyReply :: VendorPrivateWithReplyReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data1_VendorPrivateWithReplyReply :: VendorPrivateWithReplyReply -> [Word8]
- Graphics.XHB.Gen.Glx: data2_VendorPrivateWithReplyReply :: VendorPrivateWithReplyReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data2_VendorPrivateWithReplyReply :: VendorPrivateWithReplyReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_AreTexturesResidentReply :: AreTexturesResidentReply -> [BOOL]
+ Graphics.XHB.Gen.Glx: data_AreTexturesResidentReply :: AreTexturesResidentReply -> [Bool]
- Graphics.XHB.Gen.Glx: data_GenQueriesARBReply :: GenQueriesARBReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: data_GenQueriesARBReply :: GenQueriesARBReply -> [Word32]
- Graphics.XHB.Gen.Glx: data_GenTexturesReply :: GenTexturesReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: data_GenTexturesReply :: GenTexturesReply -> [Word32]
- Graphics.XHB.Gen.Glx: data_GetBooleanvReply :: GetBooleanvReply -> [BOOL]
+ Graphics.XHB.Gen.Glx: data_GetBooleanvReply :: GetBooleanvReply -> [Bool]
- Graphics.XHB.Gen.Glx: data_GetColorTableParameterivReply :: GetColorTableParameterivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetColorTableParameterivReply :: GetColorTableParameterivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetColorTableReply :: GetColorTableReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_GetColorTableReply :: GetColorTableReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_GetCompressedTexImageARBReply :: GetCompressedTexImageARBReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_GetCompressedTexImageARBReply :: GetCompressedTexImageARBReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_GetConvolutionFilterReply :: GetConvolutionFilterReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_GetConvolutionFilterReply :: GetConvolutionFilterReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_GetConvolutionParameterivReply :: GetConvolutionParameterivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetConvolutionParameterivReply :: GetConvolutionParameterivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetHistogramParameterivReply :: GetHistogramParameterivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetHistogramParameterivReply :: GetHistogramParameterivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetHistogramReply :: GetHistogramReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_GetHistogramReply :: GetHistogramReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_GetIntegervReply :: GetIntegervReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetIntegervReply :: GetIntegervReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetLightivReply :: GetLightivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetLightivReply :: GetLightivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetMapivReply :: GetMapivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetMapivReply :: GetMapivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetMaterialivReply :: GetMaterialivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetMaterialivReply :: GetMaterialivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetMinmaxParameterivReply :: GetMinmaxParameterivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetMinmaxParameterivReply :: GetMinmaxParameterivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetMinmaxReply :: GetMinmaxReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_GetMinmaxReply :: GetMinmaxReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_GetPixelMapuivReply :: GetPixelMapuivReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: data_GetPixelMapuivReply :: GetPixelMapuivReply -> [Word32]
- Graphics.XHB.Gen.Glx: data_GetPixelMapusvReply :: GetPixelMapusvReply -> [CARD16]
+ Graphics.XHB.Gen.Glx: data_GetPixelMapusvReply :: GetPixelMapusvReply -> [Word16]
- Graphics.XHB.Gen.Glx: data_GetPolygonStippleReply :: GetPolygonStippleReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_GetPolygonStippleReply :: GetPolygonStippleReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_GetQueryObjectivARBReply :: GetQueryObjectivARBReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetQueryObjectivARBReply :: GetQueryObjectivARBReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetQueryObjectuivARBReply :: GetQueryObjectuivARBReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: data_GetQueryObjectuivARBReply :: GetQueryObjectuivARBReply -> [Word32]
- Graphics.XHB.Gen.Glx: data_GetQueryivARBReply :: GetQueryivARBReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetQueryivARBReply :: GetQueryivARBReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetTexEnvivReply :: GetTexEnvivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetTexEnvivReply :: GetTexEnvivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetTexGenivReply :: GetTexGenivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetTexGenivReply :: GetTexGenivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetTexImageReply :: GetTexImageReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_GetTexImageReply :: GetTexImageReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_GetTexLevelParameterivReply :: GetTexLevelParameterivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetTexLevelParameterivReply :: GetTexLevelParameterivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetTexParameterivReply :: GetTexParameterivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetTexParameterivReply :: GetTexParameterivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_ReadPixelsReply :: ReadPixelsReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_ReadPixelsReply :: ReadPixelsReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_Render :: Render -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_Render :: Render -> [Word8]
- Graphics.XHB.Gen.Glx: data_RenderLarge :: RenderLarge -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_RenderLarge :: RenderLarge -> [Word8]
- Graphics.XHB.Gen.Glx: data_RenderModeReply :: RenderModeReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: data_RenderModeReply :: RenderModeReply -> [Word32]
- Graphics.XHB.Gen.Glx: data_VendorPrivate :: VendorPrivate -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_VendorPrivate :: VendorPrivate -> [Word8]
- Graphics.XHB.Gen.Glx: data_VendorPrivateWithReply :: VendorPrivateWithReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_VendorPrivateWithReply :: VendorPrivateWithReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_len_RenderLarge :: RenderLarge -> CARD32
+ Graphics.XHB.Gen.Glx: data_len_RenderLarge :: RenderLarge -> Word32
- Graphics.XHB.Gen.Glx: datum_GetBooleanvReply :: GetBooleanvReply -> BOOL
+ Graphics.XHB.Gen.Glx: datum_GetBooleanvReply :: GetBooleanvReply -> Bool
- Graphics.XHB.Gen.Glx: datum_GetColorTableParameterivReply :: GetColorTableParameterivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetColorTableParameterivReply :: GetColorTableParameterivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetConvolutionParameterivReply :: GetConvolutionParameterivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetConvolutionParameterivReply :: GetConvolutionParameterivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetHistogramParameterivReply :: GetHistogramParameterivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetHistogramParameterivReply :: GetHistogramParameterivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetIntegervReply :: GetIntegervReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetIntegervReply :: GetIntegervReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetLightivReply :: GetLightivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetLightivReply :: GetLightivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetMapivReply :: GetMapivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetMapivReply :: GetMapivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetMaterialivReply :: GetMaterialivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetMaterialivReply :: GetMaterialivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetMinmaxParameterivReply :: GetMinmaxParameterivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetMinmaxParameterivReply :: GetMinmaxParameterivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetPixelMapuivReply :: GetPixelMapuivReply -> CARD32
+ Graphics.XHB.Gen.Glx: datum_GetPixelMapuivReply :: GetPixelMapuivReply -> Word32
- Graphics.XHB.Gen.Glx: datum_GetPixelMapusvReply :: GetPixelMapusvReply -> CARD16
+ Graphics.XHB.Gen.Glx: datum_GetPixelMapusvReply :: GetPixelMapusvReply -> Word16
- Graphics.XHB.Gen.Glx: datum_GetQueryObjectivARBReply :: GetQueryObjectivARBReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetQueryObjectivARBReply :: GetQueryObjectivARBReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetQueryObjectuivARBReply :: GetQueryObjectuivARBReply -> CARD32
+ Graphics.XHB.Gen.Glx: datum_GetQueryObjectuivARBReply :: GetQueryObjectuivARBReply -> Word32
- Graphics.XHB.Gen.Glx: datum_GetQueryivARBReply :: GetQueryivARBReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetQueryivARBReply :: GetQueryivARBReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetTexEnvivReply :: GetTexEnvivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetTexEnvivReply :: GetTexEnvivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetTexGenivReply :: GetTexGenivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetTexGenivReply :: GetTexGenivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetTexLevelParameterivReply :: GetTexLevelParameterivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetTexLevelParameterivReply :: GetTexLevelParameterivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetTexParameterivReply :: GetTexParameterivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetTexParameterivReply :: GetTexParameterivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_PixelStorei :: PixelStorei -> INT32
+ Graphics.XHB.Gen.Glx: datum_PixelStorei :: PixelStorei -> Int32
- Graphics.XHB.Gen.Glx: depth_GetTexImageReply :: GetTexImageReply -> INT32
+ Graphics.XHB.Gen.Glx: depth_GetTexImageReply :: GetTexImageReply -> Int32
- Graphics.XHB.Gen.Glx: draw_type_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: draw_type_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: error_GetErrorReply :: GetErrorReply -> INT32
+ Graphics.XHB.Gen.Glx: error_GetErrorReply :: GetErrorReply -> Int32
- Graphics.XHB.Gen.Glx: event_type_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: event_type_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: face_GetMaterialfv :: GetMaterialfv -> CARD32
+ Graphics.XHB.Gen.Glx: face_GetMaterialfv :: GetMaterialfv -> Word32
- Graphics.XHB.Gen.Glx: face_GetMaterialiv :: GetMaterialiv -> CARD32
+ Graphics.XHB.Gen.Glx: face_GetMaterialiv :: GetMaterialiv -> Word32
- Graphics.XHB.Gen.Glx: fbconfig_CreateNewContext :: CreateNewContext -> CARD32
+ Graphics.XHB.Gen.Glx: fbconfig_CreateNewContext :: CreateNewContext -> Word32
- Graphics.XHB.Gen.Glx: fbconfig_CreatePixmap :: CreatePixmap -> CARD32
+ Graphics.XHB.Gen.Glx: fbconfig_CreatePixmap :: CreatePixmap -> Word32
- Graphics.XHB.Gen.Glx: first_UseXFont :: UseXFont -> CARD32
+ Graphics.XHB.Gen.Glx: first_UseXFont :: UseXFont -> Word32
- Graphics.XHB.Gen.Glx: format_GetColorTable :: GetColorTable -> CARD32
+ Graphics.XHB.Gen.Glx: format_GetColorTable :: GetColorTable -> Word32
- Graphics.XHB.Gen.Glx: format_GetConvolutionFilter :: GetConvolutionFilter -> CARD32
+ Graphics.XHB.Gen.Glx: format_GetConvolutionFilter :: GetConvolutionFilter -> Word32
- Graphics.XHB.Gen.Glx: format_GetHistogram :: GetHistogram -> CARD32
+ Graphics.XHB.Gen.Glx: format_GetHistogram :: GetHistogram -> Word32
- Graphics.XHB.Gen.Glx: format_GetMinmax :: GetMinmax -> CARD32
+ Graphics.XHB.Gen.Glx: format_GetMinmax :: GetMinmax -> Word32
- Graphics.XHB.Gen.Glx: format_GetSeparableFilter :: GetSeparableFilter -> CARD32
+ Graphics.XHB.Gen.Glx: format_GetSeparableFilter :: GetSeparableFilter -> Word32
- Graphics.XHB.Gen.Glx: format_GetTexImage :: GetTexImage -> CARD32
+ Graphics.XHB.Gen.Glx: format_GetTexImage :: GetTexImage -> Word32
- Graphics.XHB.Gen.Glx: format_ReadPixels :: ReadPixels -> CARD32
+ Graphics.XHB.Gen.Glx: format_ReadPixels :: ReadPixels -> Word32
- Graphics.XHB.Gen.Glx: genLists :: Connection -> CONTEXT_TAG -> INT32 -> IO (Receipt GenListsReply)
+ Graphics.XHB.Gen.Glx: genLists :: Connection -> CONTEXT_TAG -> Int32 -> IO (Receipt Word32)
- Graphics.XHB.Gen.Glx: genQueriesARB :: Connection -> CONTEXT_TAG -> INT32 -> IO (Receipt GenQueriesARBReply)
+ Graphics.XHB.Gen.Glx: genQueriesARB :: Connection -> CONTEXT_TAG -> Int32 -> IO (Receipt [Word32])
- Graphics.XHB.Gen.Glx: genTextures :: Connection -> CONTEXT_TAG -> INT32 -> IO (Receipt GenTexturesReply)
+ Graphics.XHB.Gen.Glx: genTextures :: Connection -> CONTEXT_TAG -> Int32 -> IO (Receipt [Word32])
- Graphics.XHB.Gen.Glx: getBooleanv :: Connection -> CONTEXT_TAG -> INT32 -> IO (Receipt GetBooleanvReply)
+ Graphics.XHB.Gen.Glx: getBooleanv :: Connection -> CONTEXT_TAG -> Int32 -> IO (Receipt GetBooleanvReply)
- Graphics.XHB.Gen.Glx: getClipPlane :: Connection -> CONTEXT_TAG -> INT32 -> IO (Receipt GetClipPlaneReply)
+ Graphics.XHB.Gen.Glx: getClipPlane :: Connection -> CONTEXT_TAG -> Int32 -> IO (Receipt [FLOAT64])
- Graphics.XHB.Gen.Glx: getDoublev :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt GetDoublevReply)
+ Graphics.XHB.Gen.Glx: getDoublev :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt GetDoublevReply)
- Graphics.XHB.Gen.Glx: getError :: Connection -> CONTEXT_TAG -> IO (Receipt GetErrorReply)
+ Graphics.XHB.Gen.Glx: getError :: Connection -> CONTEXT_TAG -> IO (Receipt Int32)
- Graphics.XHB.Gen.Glx: getFBConfigs :: Connection -> CARD32 -> IO (Receipt GetFBConfigsReply)
+ Graphics.XHB.Gen.Glx: getFBConfigs :: Connection -> Word32 -> IO (Receipt GetFBConfigsReply)
- Graphics.XHB.Gen.Glx: getFloatv :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt GetFloatvReply)
+ Graphics.XHB.Gen.Glx: getFloatv :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt GetFloatvReply)
- Graphics.XHB.Gen.Glx: getIntegerv :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt GetIntegervReply)
+ Graphics.XHB.Gen.Glx: getIntegerv :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt GetIntegervReply)
- Graphics.XHB.Gen.Glx: getMinmax :: Connection -> GetMinmax -> IO (Receipt GetMinmaxReply)
+ Graphics.XHB.Gen.Glx: getMinmax :: Connection -> GetMinmax -> IO (Receipt [Word8])
- Graphics.XHB.Gen.Glx: getPixelMapfv :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt GetPixelMapfvReply)
+ Graphics.XHB.Gen.Glx: getPixelMapfv :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt GetPixelMapfvReply)
- Graphics.XHB.Gen.Glx: getPixelMapuiv :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt GetPixelMapuivReply)
+ Graphics.XHB.Gen.Glx: getPixelMapuiv :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt GetPixelMapuivReply)
- Graphics.XHB.Gen.Glx: getPixelMapusv :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt GetPixelMapusvReply)
+ Graphics.XHB.Gen.Glx: getPixelMapusv :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt GetPixelMapusvReply)
- Graphics.XHB.Gen.Glx: getPolygonStipple :: Connection -> CONTEXT_TAG -> BOOL -> IO (Receipt GetPolygonStippleReply)
+ Graphics.XHB.Gen.Glx: getPolygonStipple :: Connection -> CONTEXT_TAG -> Bool -> IO (Receipt [Word8])
- Graphics.XHB.Gen.Glx: getString :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt GetStringReply)
+ Graphics.XHB.Gen.Glx: getString :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt GetStringReply)
- Graphics.XHB.Gen.Glx: getVisualConfigs :: Connection -> CARD32 -> IO (Receipt GetVisualConfigsReply)
+ Graphics.XHB.Gen.Glx: getVisualConfigs :: Connection -> Word32 -> IO (Receipt GetVisualConfigsReply)
- Graphics.XHB.Gen.Glx: height_GetConvolutionFilterReply :: GetConvolutionFilterReply -> INT32
+ Graphics.XHB.Gen.Glx: height_GetConvolutionFilterReply :: GetConvolutionFilterReply -> Int32
- Graphics.XHB.Gen.Glx: height_GetTexImageReply :: GetTexImageReply -> INT32
+ Graphics.XHB.Gen.Glx: height_GetTexImageReply :: GetTexImageReply -> Int32
- Graphics.XHB.Gen.Glx: height_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: height_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: height_ReadPixels :: ReadPixels -> INT32
+ Graphics.XHB.Gen.Glx: height_ReadPixels :: ReadPixels -> Int32
- Graphics.XHB.Gen.Glx: id_GetQueryObjectivARB :: GetQueryObjectivARB -> CARD32
+ Graphics.XHB.Gen.Glx: id_GetQueryObjectivARB :: GetQueryObjectivARB -> Word32
- Graphics.XHB.Gen.Glx: id_GetQueryObjectuivARB :: GetQueryObjectuivARB -> CARD32
+ Graphics.XHB.Gen.Glx: id_GetQueryObjectuivARB :: GetQueryObjectuivARB -> Word32
- Graphics.XHB.Gen.Glx: id_IsQueryARB :: IsQueryARB -> CARD32
+ Graphics.XHB.Gen.Glx: id_IsQueryARB :: IsQueryARB -> Word32
- Graphics.XHB.Gen.Glx: ids_DeleteQueriesARB :: DeleteQueriesARB -> [CARD32]
+ Graphics.XHB.Gen.Glx: ids_DeleteQueriesARB :: DeleteQueriesARB -> [Word32]
- Graphics.XHB.Gen.Glx: isDirect :: Connection -> CONTEXT -> IO (Receipt IsDirectReply)
+ Graphics.XHB.Gen.Glx: isDirect :: Connection -> CONTEXT -> IO (Receipt Bool)
- Graphics.XHB.Gen.Glx: isList :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt IsListReply)
+ Graphics.XHB.Gen.Glx: isList :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt BOOL32)
- Graphics.XHB.Gen.Glx: isQueryARB :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt IsQueryARBReply)
+ Graphics.XHB.Gen.Glx: isQueryARB :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt BOOL32)
- Graphics.XHB.Gen.Glx: isTexture :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt IsTextureReply)
+ Graphics.XHB.Gen.Glx: isTexture :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt BOOL32)
- Graphics.XHB.Gen.Glx: is_direct_CreateContext :: CreateContext -> BOOL
+ Graphics.XHB.Gen.Glx: is_direct_CreateContext :: CreateContext -> Bool
- Graphics.XHB.Gen.Glx: is_direct_CreateNewContext :: CreateNewContext -> BOOL
+ Graphics.XHB.Gen.Glx: is_direct_CreateNewContext :: CreateNewContext -> Bool
- Graphics.XHB.Gen.Glx: is_direct_IsDirectReply :: IsDirectReply -> BOOL
+ Graphics.XHB.Gen.Glx: is_direct_IsDirectReply :: IsDirectReply -> Bool
- Graphics.XHB.Gen.Glx: level_GetCompressedTexImageARB :: GetCompressedTexImageARB -> INT32
+ Graphics.XHB.Gen.Glx: level_GetCompressedTexImageARB :: GetCompressedTexImageARB -> Int32
- Graphics.XHB.Gen.Glx: level_GetTexImage :: GetTexImage -> INT32
+ Graphics.XHB.Gen.Glx: level_GetTexImage :: GetTexImage -> Int32
- Graphics.XHB.Gen.Glx: level_GetTexLevelParameterfv :: GetTexLevelParameterfv -> INT32
+ Graphics.XHB.Gen.Glx: level_GetTexLevelParameterfv :: GetTexLevelParameterfv -> Int32
- Graphics.XHB.Gen.Glx: level_GetTexLevelParameteriv :: GetTexLevelParameteriv -> INT32
+ Graphics.XHB.Gen.Glx: level_GetTexLevelParameteriv :: GetTexLevelParameteriv -> Int32
- Graphics.XHB.Gen.Glx: light_GetLightfv :: GetLightfv -> CARD32
+ Graphics.XHB.Gen.Glx: light_GetLightfv :: GetLightfv -> Word32
- Graphics.XHB.Gen.Glx: light_GetLightiv :: GetLightiv -> CARD32
+ Graphics.XHB.Gen.Glx: light_GetLightiv :: GetLightiv -> Word32
- Graphics.XHB.Gen.Glx: list_DeleteLists :: DeleteLists -> CARD32
+ Graphics.XHB.Gen.Glx: list_DeleteLists :: DeleteLists -> Word32
- Graphics.XHB.Gen.Glx: list_IsList :: IsList -> CARD32
+ Graphics.XHB.Gen.Glx: list_IsList :: IsList -> Word32
- Graphics.XHB.Gen.Glx: list_NewList :: NewList -> CARD32
+ Graphics.XHB.Gen.Glx: list_NewList :: NewList -> Word32
- Graphics.XHB.Gen.Glx: list_base_UseXFont :: UseXFont -> CARD32
+ Graphics.XHB.Gen.Glx: list_base_UseXFont :: UseXFont -> Word32
- Graphics.XHB.Gen.Glx: lsb_first_GetPolygonStipple :: GetPolygonStipple -> BOOL
+ Graphics.XHB.Gen.Glx: lsb_first_GetPolygonStipple :: GetPolygonStipple -> Bool
- Graphics.XHB.Gen.Glx: lsb_first_ReadPixels :: ReadPixels -> BOOL
+ Graphics.XHB.Gen.Glx: lsb_first_ReadPixels :: ReadPixels -> Bool
- Graphics.XHB.Gen.Glx: major_opcode_BadContext :: BadContext -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadContext :: BadContext -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadContextState :: BadContextState -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadContextState :: BadContextState -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadContextTag :: BadContextTag -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadContextTag :: BadContextTag -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadCurrentDrawable :: BadCurrentDrawable -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadCurrentDrawable :: BadCurrentDrawable -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadCurrentWindow :: BadCurrentWindow -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadCurrentWindow :: BadCurrentWindow -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadDrawable :: BadDrawable -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadDrawable :: BadDrawable -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadFBConfig :: BadFBConfig -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadFBConfig :: BadFBConfig -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadLargeRequest :: BadLargeRequest -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadLargeRequest :: BadLargeRequest -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadPbuffer :: BadPbuffer -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadPbuffer :: BadPbuffer -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadPixmap :: BadPixmap -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadPixmap :: BadPixmap -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadRenderRequest :: BadRenderRequest -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadRenderRequest :: BadRenderRequest -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadWindow :: BadWindow -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadWindow :: BadWindow -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_Generic :: Generic -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_Generic :: Generic -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_UnsupportedPrivateRequest :: UnsupportedPrivateRequest -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_UnsupportedPrivateRequest :: UnsupportedPrivateRequest -> Word8
- Graphics.XHB.Gen.Glx: major_version_ClientInfo :: ClientInfo -> CARD32
+ Graphics.XHB.Gen.Glx: major_version_ClientInfo :: ClientInfo -> Word32
- Graphics.XHB.Gen.Glx: major_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Glx: major_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Glx: major_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Glx: major_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Glx: makeContextCurrent :: Connection -> MakeContextCurrent -> IO (Receipt MakeContextCurrentReply)
+ Graphics.XHB.Gen.Glx: makeContextCurrent :: Connection -> MakeContextCurrent -> IO (Receipt CONTEXT_TAG)
- Graphics.XHB.Gen.Glx: makeCurrent :: Connection -> MakeCurrent -> IO (Receipt MakeCurrentReply)
+ Graphics.XHB.Gen.Glx: makeCurrent :: Connection -> MakeCurrent -> IO (Receipt CONTEXT_TAG)
- Graphics.XHB.Gen.Glx: map_GetPixelMapfv :: GetPixelMapfv -> CARD32
+ Graphics.XHB.Gen.Glx: map_GetPixelMapfv :: GetPixelMapfv -> Word32
- Graphics.XHB.Gen.Glx: map_GetPixelMapuiv :: GetPixelMapuiv -> CARD32
+ Graphics.XHB.Gen.Glx: map_GetPixelMapuiv :: GetPixelMapuiv -> Word32
- Graphics.XHB.Gen.Glx: map_GetPixelMapusv :: GetPixelMapusv -> CARD32
+ Graphics.XHB.Gen.Glx: map_GetPixelMapusv :: GetPixelMapusv -> Word32
- Graphics.XHB.Gen.Glx: mask_CopyContext :: CopyContext -> CARD32
+ Graphics.XHB.Gen.Glx: mask_CopyContext :: CopyContext -> Word32
- Graphics.XHB.Gen.Glx: minor_opcode_BadContext :: BadContext -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadContext :: BadContext -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadContextState :: BadContextState -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadContextState :: BadContextState -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadContextTag :: BadContextTag -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadContextTag :: BadContextTag -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadCurrentDrawable :: BadCurrentDrawable -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadCurrentDrawable :: BadCurrentDrawable -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadCurrentWindow :: BadCurrentWindow -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadCurrentWindow :: BadCurrentWindow -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadDrawable :: BadDrawable -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadDrawable :: BadDrawable -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadFBConfig :: BadFBConfig -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadFBConfig :: BadFBConfig -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadLargeRequest :: BadLargeRequest -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadLargeRequest :: BadLargeRequest -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadPbuffer :: BadPbuffer -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadPbuffer :: BadPbuffer -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadPixmap :: BadPixmap -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadPixmap :: BadPixmap -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadRenderRequest :: BadRenderRequest -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadRenderRequest :: BadRenderRequest -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadWindow :: BadWindow -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadWindow :: BadWindow -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_Generic :: Generic -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_Generic :: Generic -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_UnsupportedPrivateRequest :: UnsupportedPrivateRequest -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_UnsupportedPrivateRequest :: UnsupportedPrivateRequest -> Word16
- Graphics.XHB.Gen.Glx: minor_version_ClientInfo :: ClientInfo -> CARD32
+ Graphics.XHB.Gen.Glx: minor_version_ClientInfo :: ClientInfo -> Word32
- Graphics.XHB.Gen.Glx: minor_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Glx: minor_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Glx: minor_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Glx: minor_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Glx: mode_NewList :: NewList -> CARD32
+ Graphics.XHB.Gen.Glx: mode_NewList :: NewList -> Word32
- Graphics.XHB.Gen.Glx: mode_RenderMode :: RenderMode -> CARD32
+ Graphics.XHB.Gen.Glx: mode_RenderMode :: RenderMode -> Word32
- Graphics.XHB.Gen.Glx: n_AreTexturesResident :: AreTexturesResident -> INT32
+ Graphics.XHB.Gen.Glx: n_AreTexturesResident :: AreTexturesResident -> Int32
- Graphics.XHB.Gen.Glx: n_DeleteQueriesARB :: DeleteQueriesARB -> INT32
+ Graphics.XHB.Gen.Glx: n_DeleteQueriesARB :: DeleteQueriesARB -> Int32
- Graphics.XHB.Gen.Glx: n_DeleteTextures :: DeleteTextures -> INT32
+ Graphics.XHB.Gen.Glx: n_DeleteTextures :: DeleteTextures -> Int32
- Graphics.XHB.Gen.Glx: n_GenQueriesARB :: GenQueriesARB -> INT32
+ Graphics.XHB.Gen.Glx: n_GenQueriesARB :: GenQueriesARB -> Int32
- Graphics.XHB.Gen.Glx: n_GenTextures :: GenTextures -> INT32
+ Graphics.XHB.Gen.Glx: n_GenTextures :: GenTextures -> Int32
- Graphics.XHB.Gen.Glx: n_GetBooleanvReply :: GetBooleanvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetBooleanvReply :: GetBooleanvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetColorTableParameterfvReply :: GetColorTableParameterfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetColorTableParameterfvReply :: GetColorTableParameterfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetColorTableParameterivReply :: GetColorTableParameterivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetColorTableParameterivReply :: GetColorTableParameterivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetConvolutionParameterfvReply :: GetConvolutionParameterfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetConvolutionParameterfvReply :: GetConvolutionParameterfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetConvolutionParameterivReply :: GetConvolutionParameterivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetConvolutionParameterivReply :: GetConvolutionParameterivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetDoublevReply :: GetDoublevReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetDoublevReply :: GetDoublevReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetFloatvReply :: GetFloatvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetFloatvReply :: GetFloatvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetHistogramParameterfvReply :: GetHistogramParameterfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetHistogramParameterfvReply :: GetHistogramParameterfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetHistogramParameterivReply :: GetHistogramParameterivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetHistogramParameterivReply :: GetHistogramParameterivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetIntegervReply :: GetIntegervReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetIntegervReply :: GetIntegervReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetLightfvReply :: GetLightfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetLightfvReply :: GetLightfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetLightivReply :: GetLightivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetLightivReply :: GetLightivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetMapdvReply :: GetMapdvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetMapdvReply :: GetMapdvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetMapfvReply :: GetMapfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetMapfvReply :: GetMapfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetMapivReply :: GetMapivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetMapivReply :: GetMapivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetMaterialfvReply :: GetMaterialfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetMaterialfvReply :: GetMaterialfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetMaterialivReply :: GetMaterialivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetMaterialivReply :: GetMaterialivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetMinmaxParameterfvReply :: GetMinmaxParameterfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetMinmaxParameterfvReply :: GetMinmaxParameterfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetMinmaxParameterivReply :: GetMinmaxParameterivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetMinmaxParameterivReply :: GetMinmaxParameterivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetPixelMapfvReply :: GetPixelMapfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetPixelMapfvReply :: GetPixelMapfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetPixelMapuivReply :: GetPixelMapuivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetPixelMapuivReply :: GetPixelMapuivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetPixelMapusvReply :: GetPixelMapusvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetPixelMapusvReply :: GetPixelMapusvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetQueryObjectivARBReply :: GetQueryObjectivARBReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetQueryObjectivARBReply :: GetQueryObjectivARBReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetQueryObjectuivARBReply :: GetQueryObjectuivARBReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetQueryObjectuivARBReply :: GetQueryObjectuivARBReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetQueryivARBReply :: GetQueryivARBReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetQueryivARBReply :: GetQueryivARBReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetStringReply :: GetStringReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetStringReply :: GetStringReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexEnvfvReply :: GetTexEnvfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexEnvfvReply :: GetTexEnvfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexEnvivReply :: GetTexEnvivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexEnvivReply :: GetTexEnvivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexGendvReply :: GetTexGendvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexGendvReply :: GetTexGendvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexGenfvReply :: GetTexGenfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexGenfvReply :: GetTexGenfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexGenivReply :: GetTexGenivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexGenivReply :: GetTexGenivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexLevelParameterfvReply :: GetTexLevelParameterfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexLevelParameterfvReply :: GetTexLevelParameterfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexLevelParameterivReply :: GetTexLevelParameterivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexLevelParameterivReply :: GetTexLevelParameterivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexParameterfvReply :: GetTexParameterfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexParameterfvReply :: GetTexParameterfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexParameterivReply :: GetTexParameterivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexParameterivReply :: GetTexParameterivReply -> Word32
- Graphics.XHB.Gen.Glx: n_QueryExtensionsStringReply :: QueryExtensionsStringReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_QueryExtensionsStringReply :: QueryExtensionsStringReply -> Word32
- Graphics.XHB.Gen.Glx: n_RenderModeReply :: RenderModeReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_RenderModeReply :: RenderModeReply -> Word32
- Graphics.XHB.Gen.Glx: name_GetString :: GetString -> CARD32
+ Graphics.XHB.Gen.Glx: name_GetString :: GetString -> Word32
- Graphics.XHB.Gen.Glx: name_QueryServerString :: QueryServerString -> CARD32
+ Graphics.XHB.Gen.Glx: name_QueryServerString :: QueryServerString -> Word32
- Graphics.XHB.Gen.Glx: new_mode_RenderModeReply :: RenderModeReply -> CARD32
+ Graphics.XHB.Gen.Glx: new_mode_RenderModeReply :: RenderModeReply -> Word32
- Graphics.XHB.Gen.Glx: num_FB_configs_GetFBConfigsReply :: GetFBConfigsReply -> CARD32
+ Graphics.XHB.Gen.Glx: num_FB_configs_GetFBConfigsReply :: GetFBConfigsReply -> Word32
- Graphics.XHB.Gen.Glx: num_attribs_ChangeDrawableAttributes :: ChangeDrawableAttributes -> CARD32
+ Graphics.XHB.Gen.Glx: num_attribs_ChangeDrawableAttributes :: ChangeDrawableAttributes -> Word32
- Graphics.XHB.Gen.Glx: num_attribs_CreatePbuffer :: CreatePbuffer -> CARD32
+ Graphics.XHB.Gen.Glx: num_attribs_CreatePbuffer :: CreatePbuffer -> Word32
- Graphics.XHB.Gen.Glx: num_attribs_CreatePixmap :: CreatePixmap -> CARD32
+ Graphics.XHB.Gen.Glx: num_attribs_CreatePixmap :: CreatePixmap -> Word32
- Graphics.XHB.Gen.Glx: num_attribs_CreateWindow :: CreateWindow -> CARD32
+ Graphics.XHB.Gen.Glx: num_attribs_CreateWindow :: CreateWindow -> Word32
- Graphics.XHB.Gen.Glx: num_attribs_GetDrawableAttributesReply :: GetDrawableAttributesReply -> CARD32
+ Graphics.XHB.Gen.Glx: num_attribs_GetDrawableAttributesReply :: GetDrawableAttributesReply -> Word32
- Graphics.XHB.Gen.Glx: num_attribs_QueryContextReply :: QueryContextReply -> CARD32
+ Graphics.XHB.Gen.Glx: num_attribs_QueryContextReply :: QueryContextReply -> Word32
- Graphics.XHB.Gen.Glx: num_properties_GetFBConfigsReply :: GetFBConfigsReply -> CARD32
+ Graphics.XHB.Gen.Glx: num_properties_GetFBConfigsReply :: GetFBConfigsReply -> Word32
- Graphics.XHB.Gen.Glx: num_properties_GetVisualConfigsReply :: GetVisualConfigsReply -> CARD32
+ Graphics.XHB.Gen.Glx: num_properties_GetVisualConfigsReply :: GetVisualConfigsReply -> Word32
- Graphics.XHB.Gen.Glx: num_visuals_GetVisualConfigsReply :: GetVisualConfigsReply -> CARD32
+ Graphics.XHB.Gen.Glx: num_visuals_GetVisualConfigsReply :: GetVisualConfigsReply -> Word32
- Graphics.XHB.Gen.Glx: plane_GetClipPlane :: GetClipPlane -> INT32
+ Graphics.XHB.Gen.Glx: plane_GetClipPlane :: GetClipPlane -> Int32
- Graphics.XHB.Gen.Glx: pname_GetBooleanv :: GetBooleanv -> INT32
+ Graphics.XHB.Gen.Glx: pname_GetBooleanv :: GetBooleanv -> Int32
- Graphics.XHB.Gen.Glx: pname_GetColorTableParameterfv :: GetColorTableParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetColorTableParameterfv :: GetColorTableParameterfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetColorTableParameteriv :: GetColorTableParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetColorTableParameteriv :: GetColorTableParameteriv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetConvolutionParameterfv :: GetConvolutionParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetConvolutionParameterfv :: GetConvolutionParameterfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetConvolutionParameteriv :: GetConvolutionParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetConvolutionParameteriv :: GetConvolutionParameteriv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetDoublev :: GetDoublev -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetDoublev :: GetDoublev -> Word32
- Graphics.XHB.Gen.Glx: pname_GetFloatv :: GetFloatv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetFloatv :: GetFloatv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetHistogramParameterfv :: GetHistogramParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetHistogramParameterfv :: GetHistogramParameterfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetHistogramParameteriv :: GetHistogramParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetHistogramParameteriv :: GetHistogramParameteriv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetIntegerv :: GetIntegerv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetIntegerv :: GetIntegerv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetLightfv :: GetLightfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetLightfv :: GetLightfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetLightiv :: GetLightiv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetLightiv :: GetLightiv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetMaterialfv :: GetMaterialfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetMaterialfv :: GetMaterialfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetMaterialiv :: GetMaterialiv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetMaterialiv :: GetMaterialiv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetMinmaxParameterfv :: GetMinmaxParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetMinmaxParameterfv :: GetMinmaxParameterfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetMinmaxParameteriv :: GetMinmaxParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetMinmaxParameteriv :: GetMinmaxParameteriv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetQueryObjectivARB :: GetQueryObjectivARB -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetQueryObjectivARB :: GetQueryObjectivARB -> Word32
- Graphics.XHB.Gen.Glx: pname_GetQueryObjectuivARB :: GetQueryObjectuivARB -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetQueryObjectuivARB :: GetQueryObjectuivARB -> Word32
- Graphics.XHB.Gen.Glx: pname_GetQueryivARB :: GetQueryivARB -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetQueryivARB :: GetQueryivARB -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexEnvfv :: GetTexEnvfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexEnvfv :: GetTexEnvfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexEnviv :: GetTexEnviv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexEnviv :: GetTexEnviv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexGendv :: GetTexGendv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexGendv :: GetTexGendv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexGenfv :: GetTexGenfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexGenfv :: GetTexGenfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexGeniv :: GetTexGeniv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexGeniv :: GetTexGeniv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexLevelParameterfv :: GetTexLevelParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexLevelParameterfv :: GetTexLevelParameterfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexLevelParameteriv :: GetTexLevelParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexLevelParameteriv :: GetTexLevelParameteriv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexParameterfv :: GetTexParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexParameterfv :: GetTexParameterfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexParameteriv :: GetTexParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexParameteriv :: GetTexParameteriv -> Word32
- Graphics.XHB.Gen.Glx: pname_PixelStoref :: PixelStoref -> CARD32
+ Graphics.XHB.Gen.Glx: pname_PixelStoref :: PixelStoref -> Word32
- Graphics.XHB.Gen.Glx: pname_PixelStorei :: PixelStorei -> CARD32
+ Graphics.XHB.Gen.Glx: pname_PixelStorei :: PixelStorei -> Word32
- Graphics.XHB.Gen.Glx: property_list_GetFBConfigsReply :: GetFBConfigsReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: property_list_GetFBConfigsReply :: GetFBConfigsReply -> [Word32]
- Graphics.XHB.Gen.Glx: property_list_GetVisualConfigsReply :: GetVisualConfigsReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: property_list_GetVisualConfigsReply :: GetVisualConfigsReply -> [Word32]
- Graphics.XHB.Gen.Glx: queryExtensionsString :: Connection -> CARD32 -> IO (Receipt QueryExtensionsStringReply)
+ Graphics.XHB.Gen.Glx: queryExtensionsString :: Connection -> Word32 -> IO (Receipt Word32)
- Graphics.XHB.Gen.Glx: queryServerString :: Connection -> CARD32 -> CARD32 -> IO (Receipt QueryServerStringReply)
+ Graphics.XHB.Gen.Glx: queryServerString :: Connection -> Word32 -> Word32 -> IO (Receipt QueryServerStringReply)
- Graphics.XHB.Gen.Glx: queryVersion :: Connection -> CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Glx: queryVersion :: Connection -> Word32 -> Word32 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Glx: query_GetMapdv :: GetMapdv -> CARD32
+ Graphics.XHB.Gen.Glx: query_GetMapdv :: GetMapdv -> Word32
- Graphics.XHB.Gen.Glx: query_GetMapfv :: GetMapfv -> CARD32
+ Graphics.XHB.Gen.Glx: query_GetMapfv :: GetMapfv -> Word32
- Graphics.XHB.Gen.Glx: query_GetMapiv :: GetMapiv -> CARD32
+ Graphics.XHB.Gen.Glx: query_GetMapiv :: GetMapiv -> Word32
- Graphics.XHB.Gen.Glx: range_DeleteLists :: DeleteLists -> INT32
+ Graphics.XHB.Gen.Glx: range_DeleteLists :: DeleteLists -> Int32
- Graphics.XHB.Gen.Glx: range_GenLists :: GenLists -> INT32
+ Graphics.XHB.Gen.Glx: range_GenLists :: GenLists -> Int32
- Graphics.XHB.Gen.Glx: readPixels :: Connection -> ReadPixels -> IO (Receipt ReadPixelsReply)
+ Graphics.XHB.Gen.Glx: readPixels :: Connection -> ReadPixels -> IO (Receipt [Word8])
- Graphics.XHB.Gen.Glx: render :: Connection -> CONTEXT_TAG -> [BYTE] -> IO ()
+ Graphics.XHB.Gen.Glx: render :: Connection -> CONTEXT_TAG -> [Word8] -> IO ()
- Graphics.XHB.Gen.Glx: renderMode :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt RenderModeReply)
+ Graphics.XHB.Gen.Glx: renderMode :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt RenderModeReply)
- Graphics.XHB.Gen.Glx: render_type_CreateNewContext :: CreateNewContext -> CARD32
+ Graphics.XHB.Gen.Glx: render_type_CreateNewContext :: CreateNewContext -> Word32
- Graphics.XHB.Gen.Glx: request_num_RenderLarge :: RenderLarge -> CARD16
+ Graphics.XHB.Gen.Glx: request_num_RenderLarge :: RenderLarge -> Word16
- Graphics.XHB.Gen.Glx: request_total_RenderLarge :: RenderLarge -> CARD16
+ Graphics.XHB.Gen.Glx: request_total_RenderLarge :: RenderLarge -> Word16
- Graphics.XHB.Gen.Glx: reserved1_CreateNewContext :: CreateNewContext -> CARD8
+ Graphics.XHB.Gen.Glx: reserved1_CreateNewContext :: CreateNewContext -> Word8
- Graphics.XHB.Gen.Glx: reserved2_CreateNewContext :: CreateNewContext -> CARD16
+ Graphics.XHB.Gen.Glx: reserved2_CreateNewContext :: CreateNewContext -> Word16
- Graphics.XHB.Gen.Glx: reset_GetHistogram :: GetHistogram -> BOOL
+ Graphics.XHB.Gen.Glx: reset_GetHistogram :: GetHistogram -> Bool
- Graphics.XHB.Gen.Glx: reset_GetMinmax :: GetMinmax -> BOOL
+ Graphics.XHB.Gen.Glx: reset_GetMinmax :: GetMinmax -> Bool
- Graphics.XHB.Gen.Glx: ret_val_GenListsReply :: GenListsReply -> CARD32
+ Graphics.XHB.Gen.Glx: ret_val_GenListsReply :: GenListsReply -> Word32
- Graphics.XHB.Gen.Glx: ret_val_RenderModeReply :: RenderModeReply -> CARD32
+ Graphics.XHB.Gen.Glx: ret_val_RenderModeReply :: RenderModeReply -> Word32
- Graphics.XHB.Gen.Glx: retval_VendorPrivateWithReplyReply :: VendorPrivateWithReplyReply -> CARD32
+ Graphics.XHB.Gen.Glx: retval_VendorPrivateWithReplyReply :: VendorPrivateWithReplyReply -> Word32
- Graphics.XHB.Gen.Glx: row_w_GetSeparableFilterReply :: GetSeparableFilterReply -> INT32
+ Graphics.XHB.Gen.Glx: row_w_GetSeparableFilterReply :: GetSeparableFilterReply -> Int32
- Graphics.XHB.Gen.Glx: rows_and_cols_GetSeparableFilterReply :: GetSeparableFilterReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: rows_and_cols_GetSeparableFilterReply :: GetSeparableFilterReply -> [Word8]
- Graphics.XHB.Gen.Glx: screen_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.Glx: screen_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.Glx: screen_CreateGLXPixmap :: CreateGLXPixmap -> CARD32
+ Graphics.XHB.Gen.Glx: screen_CreateGLXPixmap :: CreateGLXPixmap -> Word32
- Graphics.XHB.Gen.Glx: screen_CreateNewContext :: CreateNewContext -> CARD32
+ Graphics.XHB.Gen.Glx: screen_CreateNewContext :: CreateNewContext -> Word32
- Graphics.XHB.Gen.Glx: screen_CreatePbuffer :: CreatePbuffer -> CARD32
+ Graphics.XHB.Gen.Glx: screen_CreatePbuffer :: CreatePbuffer -> Word32
- Graphics.XHB.Gen.Glx: screen_CreatePixmap :: CreatePixmap -> CARD32
+ Graphics.XHB.Gen.Glx: screen_CreatePixmap :: CreatePixmap -> Word32
- Graphics.XHB.Gen.Glx: screen_CreateWindow :: CreateWindow -> CARD32
+ Graphics.XHB.Gen.Glx: screen_CreateWindow :: CreateWindow -> Word32
- Graphics.XHB.Gen.Glx: screen_GetFBConfigs :: GetFBConfigs -> CARD32
+ Graphics.XHB.Gen.Glx: screen_GetFBConfigs :: GetFBConfigs -> Word32
- Graphics.XHB.Gen.Glx: screen_GetVisualConfigs :: GetVisualConfigs -> CARD32
+ Graphics.XHB.Gen.Glx: screen_GetVisualConfigs :: GetVisualConfigs -> Word32
- Graphics.XHB.Gen.Glx: screen_QueryExtensionsString :: QueryExtensionsString -> CARD32
+ Graphics.XHB.Gen.Glx: screen_QueryExtensionsString :: QueryExtensionsString -> Word32
- Graphics.XHB.Gen.Glx: screen_QueryServerString :: QueryServerString -> CARD32
+ Graphics.XHB.Gen.Glx: screen_QueryServerString :: QueryServerString -> Word32
- Graphics.XHB.Gen.Glx: selectBuffer :: Connection -> CONTEXT_TAG -> INT32 -> IO ()
+ Graphics.XHB.Gen.Glx: selectBuffer :: Connection -> CONTEXT_TAG -> Int32 -> IO ()
- Graphics.XHB.Gen.Glx: share_list_CreateNewContext :: CreateNewContext -> CARD32
+ Graphics.XHB.Gen.Glx: share_list_CreateNewContext :: CreateNewContext -> Word32
- Graphics.XHB.Gen.Glx: size_FeedbackBuffer :: FeedbackBuffer -> INT32
+ Graphics.XHB.Gen.Glx: size_FeedbackBuffer :: FeedbackBuffer -> Int32
- Graphics.XHB.Gen.Glx: size_GetCompressedTexImageARBReply :: GetCompressedTexImageARBReply -> INT32
+ Graphics.XHB.Gen.Glx: size_GetCompressedTexImageARBReply :: GetCompressedTexImageARBReply -> Int32
- Graphics.XHB.Gen.Glx: size_SelectBuffer :: SelectBuffer -> INT32
+ Graphics.XHB.Gen.Glx: size_SelectBuffer :: SelectBuffer -> Int32
- Graphics.XHB.Gen.Glx: str_len_ClientInfo :: ClientInfo -> CARD32
+ Graphics.XHB.Gen.Glx: str_len_ClientInfo :: ClientInfo -> Word32
- Graphics.XHB.Gen.Glx: str_len_QueryServerStringReply :: QueryServerStringReply -> CARD32
+ Graphics.XHB.Gen.Glx: str_len_QueryServerStringReply :: QueryServerStringReply -> Word32
- Graphics.XHB.Gen.Glx: swap_bytes_GetColorTable :: GetColorTable -> BOOL
+ Graphics.XHB.Gen.Glx: swap_bytes_GetColorTable :: GetColorTable -> Bool
- Graphics.XHB.Gen.Glx: swap_bytes_GetConvolutionFilter :: GetConvolutionFilter -> BOOL
+ Graphics.XHB.Gen.Glx: swap_bytes_GetConvolutionFilter :: GetConvolutionFilter -> Bool
- Graphics.XHB.Gen.Glx: swap_bytes_GetHistogram :: GetHistogram -> BOOL
+ Graphics.XHB.Gen.Glx: swap_bytes_GetHistogram :: GetHistogram -> Bool
- Graphics.XHB.Gen.Glx: swap_bytes_GetMinmax :: GetMinmax -> BOOL
+ Graphics.XHB.Gen.Glx: swap_bytes_GetMinmax :: GetMinmax -> Bool
- Graphics.XHB.Gen.Glx: swap_bytes_GetSeparableFilter :: GetSeparableFilter -> BOOL
+ Graphics.XHB.Gen.Glx: swap_bytes_GetSeparableFilter :: GetSeparableFilter -> Bool
- Graphics.XHB.Gen.Glx: swap_bytes_GetTexImage :: GetTexImage -> BOOL
+ Graphics.XHB.Gen.Glx: swap_bytes_GetTexImage :: GetTexImage -> Bool
- Graphics.XHB.Gen.Glx: swap_bytes_ReadPixels :: ReadPixels -> BOOL
+ Graphics.XHB.Gen.Glx: swap_bytes_ReadPixels :: ReadPixels -> Bool
- Graphics.XHB.Gen.Glx: target_GetColorTable :: GetColorTable -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetColorTable :: GetColorTable -> Word32
- Graphics.XHB.Gen.Glx: target_GetColorTableParameterfv :: GetColorTableParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetColorTableParameterfv :: GetColorTableParameterfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetColorTableParameteriv :: GetColorTableParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetColorTableParameteriv :: GetColorTableParameteriv -> Word32
- Graphics.XHB.Gen.Glx: target_GetCompressedTexImageARB :: GetCompressedTexImageARB -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetCompressedTexImageARB :: GetCompressedTexImageARB -> Word32
- Graphics.XHB.Gen.Glx: target_GetConvolutionFilter :: GetConvolutionFilter -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetConvolutionFilter :: GetConvolutionFilter -> Word32
- Graphics.XHB.Gen.Glx: target_GetConvolutionParameterfv :: GetConvolutionParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetConvolutionParameterfv :: GetConvolutionParameterfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetConvolutionParameteriv :: GetConvolutionParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetConvolutionParameteriv :: GetConvolutionParameteriv -> Word32
- Graphics.XHB.Gen.Glx: target_GetHistogram :: GetHistogram -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetHistogram :: GetHistogram -> Word32
- Graphics.XHB.Gen.Glx: target_GetHistogramParameterfv :: GetHistogramParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetHistogramParameterfv :: GetHistogramParameterfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetHistogramParameteriv :: GetHistogramParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetHistogramParameteriv :: GetHistogramParameteriv -> Word32
- Graphics.XHB.Gen.Glx: target_GetMapdv :: GetMapdv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetMapdv :: GetMapdv -> Word32
- Graphics.XHB.Gen.Glx: target_GetMapfv :: GetMapfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetMapfv :: GetMapfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetMapiv :: GetMapiv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetMapiv :: GetMapiv -> Word32
- Graphics.XHB.Gen.Glx: target_GetMinmax :: GetMinmax -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetMinmax :: GetMinmax -> Word32
- Graphics.XHB.Gen.Glx: target_GetMinmaxParameterfv :: GetMinmaxParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetMinmaxParameterfv :: GetMinmaxParameterfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetMinmaxParameteriv :: GetMinmaxParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetMinmaxParameteriv :: GetMinmaxParameteriv -> Word32
- Graphics.XHB.Gen.Glx: target_GetQueryivARB :: GetQueryivARB -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetQueryivARB :: GetQueryivARB -> Word32
- Graphics.XHB.Gen.Glx: target_GetSeparableFilter :: GetSeparableFilter -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetSeparableFilter :: GetSeparableFilter -> Word32
- Graphics.XHB.Gen.Glx: target_GetTexEnvfv :: GetTexEnvfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetTexEnvfv :: GetTexEnvfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetTexEnviv :: GetTexEnviv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetTexEnviv :: GetTexEnviv -> Word32
- Graphics.XHB.Gen.Glx: target_GetTexImage :: GetTexImage -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetTexImage :: GetTexImage -> Word32
- Graphics.XHB.Gen.Glx: target_GetTexLevelParameterfv :: GetTexLevelParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetTexLevelParameterfv :: GetTexLevelParameterfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetTexLevelParameteriv :: GetTexLevelParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetTexLevelParameteriv :: GetTexLevelParameteriv -> Word32
- Graphics.XHB.Gen.Glx: target_GetTexParameterfv :: GetTexParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetTexParameterfv :: GetTexParameterfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetTexParameteriv :: GetTexParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetTexParameteriv :: GetTexParameteriv -> Word32
- Graphics.XHB.Gen.Glx: texture_IsTexture :: IsTexture -> CARD32
+ Graphics.XHB.Gen.Glx: texture_IsTexture :: IsTexture -> Word32
- Graphics.XHB.Gen.Glx: textures_AreTexturesResident :: AreTexturesResident -> [CARD32]
+ Graphics.XHB.Gen.Glx: textures_AreTexturesResident :: AreTexturesResident -> [Word32]
- Graphics.XHB.Gen.Glx: textures_DeleteTextures :: DeleteTextures -> [CARD32]
+ Graphics.XHB.Gen.Glx: textures_DeleteTextures :: DeleteTextures -> [Word32]
- Graphics.XHB.Gen.Glx: type BOOL32 = CARD32
+ Graphics.XHB.Gen.Glx: type BOOL32 = Word32
- Graphics.XHB.Gen.Glx: type CONTEXT_TAG = CARD32
+ Graphics.XHB.Gen.Glx: type CONTEXT_TAG = Word32
- Graphics.XHB.Gen.Glx: type_FeedbackBuffer :: FeedbackBuffer -> INT32
+ Graphics.XHB.Gen.Glx: type_FeedbackBuffer :: FeedbackBuffer -> Int32
- Graphics.XHB.Gen.Glx: type_GetColorTable :: GetColorTable -> CARD32
+ Graphics.XHB.Gen.Glx: type_GetColorTable :: GetColorTable -> Word32
- Graphics.XHB.Gen.Glx: type_GetConvolutionFilter :: GetConvolutionFilter -> CARD32
+ Graphics.XHB.Gen.Glx: type_GetConvolutionFilter :: GetConvolutionFilter -> Word32
- Graphics.XHB.Gen.Glx: type_GetHistogram :: GetHistogram -> CARD32
+ Graphics.XHB.Gen.Glx: type_GetHistogram :: GetHistogram -> Word32
- Graphics.XHB.Gen.Glx: type_GetMinmax :: GetMinmax -> CARD32
+ Graphics.XHB.Gen.Glx: type_GetMinmax :: GetMinmax -> Word32
- Graphics.XHB.Gen.Glx: type_GetSeparableFilter :: GetSeparableFilter -> CARD32
+ Graphics.XHB.Gen.Glx: type_GetSeparableFilter :: GetSeparableFilter -> Word32
- Graphics.XHB.Gen.Glx: type_GetTexImage :: GetTexImage -> CARD32
+ Graphics.XHB.Gen.Glx: type_GetTexImage :: GetTexImage -> Word32
- Graphics.XHB.Gen.Glx: type_ReadPixels :: ReadPixels -> CARD32
+ Graphics.XHB.Gen.Glx: type_ReadPixels :: ReadPixels -> Word32
- Graphics.XHB.Gen.Glx: vendor_code_VendorPrivate :: VendorPrivate -> CARD32
+ Graphics.XHB.Gen.Glx: vendor_code_VendorPrivate :: VendorPrivate -> Word32
- Graphics.XHB.Gen.Glx: vendor_code_VendorPrivateWithReply :: VendorPrivateWithReply -> CARD32
+ Graphics.XHB.Gen.Glx: vendor_code_VendorPrivateWithReply :: VendorPrivateWithReply -> Word32
- Graphics.XHB.Gen.Glx: width_GetColorTableReply :: GetColorTableReply -> INT32
+ Graphics.XHB.Gen.Glx: width_GetColorTableReply :: GetColorTableReply -> Int32
- Graphics.XHB.Gen.Glx: width_GetConvolutionFilterReply :: GetConvolutionFilterReply -> INT32
+ Graphics.XHB.Gen.Glx: width_GetConvolutionFilterReply :: GetConvolutionFilterReply -> Int32
- Graphics.XHB.Gen.Glx: width_GetHistogramReply :: GetHistogramReply -> INT32
+ Graphics.XHB.Gen.Glx: width_GetHistogramReply :: GetHistogramReply -> Int32
- Graphics.XHB.Gen.Glx: width_GetTexImageReply :: GetTexImageReply -> INT32
+ Graphics.XHB.Gen.Glx: width_GetTexImageReply :: GetTexImageReply -> Int32
- Graphics.XHB.Gen.Glx: width_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: width_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: width_ReadPixels :: ReadPixels -> INT32
+ Graphics.XHB.Gen.Glx: width_ReadPixels :: ReadPixels -> Int32
- Graphics.XHB.Gen.Glx: x_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: x_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: x_ReadPixels :: ReadPixels -> INT32
+ Graphics.XHB.Gen.Glx: x_ReadPixels :: ReadPixels -> Int32
- Graphics.XHB.Gen.Glx: y_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: y_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: y_ReadPixels :: ReadPixels -> INT32
+ Graphics.XHB.Gen.Glx: y_ReadPixels :: ReadPixels -> Int32
- Graphics.XHB.Gen.Input: MkAllowDeviceEvents :: TIMESTAMP -> CARD8 -> CARD8 -> AllowDeviceEvents
+ Graphics.XHB.Gen.Input: MkAllowDeviceEvents :: TIMESTAMP -> Word8 -> Word8 -> AllowDeviceEvents
- Graphics.XHB.Gen.Input: MkAxisInfo :: CARD32 -> CARD32 -> CARD32 -> AxisInfo
+ Graphics.XHB.Gen.Input: MkAxisInfo :: Word32 -> Word32 -> Word32 -> AxisInfo
- Graphics.XHB.Gen.Input: MkBellFeedbackCtl :: CARD8 -> CARD8 -> CARD16 -> INT8 -> INT16 -> INT16 -> BellFeedbackCtl
+ Graphics.XHB.Gen.Input: MkBellFeedbackCtl :: Word8 -> Word8 -> Word16 -> Int8 -> Int16 -> Int16 -> BellFeedbackCtl
- Graphics.XHB.Gen.Input: MkBellFeedbackState :: CARD8 -> CARD8 -> CARD16 -> CARD8 -> CARD16 -> CARD16 -> BellFeedbackState
+ Graphics.XHB.Gen.Input: MkBellFeedbackState :: Word8 -> Word8 -> Word16 -> Word8 -> Word16 -> Word16 -> BellFeedbackState
- Graphics.XHB.Gen.Input: MkButtonInfo :: CARD8 -> CARD8 -> CARD16 -> ButtonInfo
+ Graphics.XHB.Gen.Input: MkButtonInfo :: Word8 -> Word8 -> Word16 -> ButtonInfo
- Graphics.XHB.Gen.Input: MkButtonState :: CARD8 -> CARD8 -> CARD8 -> [CARD8] -> ButtonState
+ Graphics.XHB.Gen.Input: MkButtonState :: Word8 -> Word8 -> Word8 -> [Word8] -> ButtonState
- Graphics.XHB.Gen.Input: MkChangeDeviceDontPropagateList :: WINDOW -> CARD16 -> CARD8 -> [EventClass] -> ChangeDeviceDontPropagateList
+ Graphics.XHB.Gen.Input: MkChangeDeviceDontPropagateList :: WINDOW -> Word16 -> Word8 -> [EventClass] -> ChangeDeviceDontPropagateList
- Graphics.XHB.Gen.Input: MkChangeDeviceKeyMapping :: CARD8 -> KeyCode -> CARD8 -> CARD8 -> [KEYSYM] -> ChangeDeviceKeyMapping
+ Graphics.XHB.Gen.Input: MkChangeDeviceKeyMapping :: Word8 -> KeyCode -> Word8 -> Word8 -> [KEYSYM] -> ChangeDeviceKeyMapping
- Graphics.XHB.Gen.Input: MkChangeDeviceNotify :: BYTE -> TIMESTAMP -> CARD8 -> ChangeDeviceNotify
+ Graphics.XHB.Gen.Input: MkChangeDeviceNotify :: Word8 -> TIMESTAMP -> Word8 -> ChangeDeviceNotify
- Graphics.XHB.Gen.Input: MkChangeKeyboardDevice :: CARD8 -> ChangeKeyboardDevice
+ Graphics.XHB.Gen.Input: MkChangeKeyboardDevice :: Word8 -> ChangeKeyboardDevice
- Graphics.XHB.Gen.Input: MkChangeKeyboardDeviceReply :: CARD8 -> ChangeKeyboardDeviceReply
+ Graphics.XHB.Gen.Input: MkChangeKeyboardDeviceReply :: Word8 -> ChangeKeyboardDeviceReply
- Graphics.XHB.Gen.Input: MkChangePointerDevice :: CARD8 -> CARD8 -> CARD8 -> ChangePointerDevice
+ Graphics.XHB.Gen.Input: MkChangePointerDevice :: Word8 -> Word8 -> Word8 -> ChangePointerDevice
- Graphics.XHB.Gen.Input: MkChangePointerDeviceReply :: CARD8 -> ChangePointerDeviceReply
+ Graphics.XHB.Gen.Input: MkChangePointerDeviceReply :: Word8 -> ChangePointerDeviceReply
- Graphics.XHB.Gen.Input: MkCloseDevice :: CARD8 -> CloseDevice
+ Graphics.XHB.Gen.Input: MkCloseDevice :: Word8 -> CloseDevice
- Graphics.XHB.Gen.Input: MkDeviceAbsAreaCtrl :: CARD16 -> CARD16 -> CARD32 -> CARD32 -> INT32 -> INT32 -> INT32 -> CARD32 -> DeviceAbsAreaCtrl
+ Graphics.XHB.Gen.Input: MkDeviceAbsAreaCtrl :: Word16 -> Word16 -> Word32 -> Word32 -> Int32 -> Int32 -> Int32 -> Word32 -> DeviceAbsAreaCtrl
- Graphics.XHB.Gen.Input: MkDeviceAbsAreaState :: CARD16 -> CARD16 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> DeviceAbsAreaState
+ Graphics.XHB.Gen.Input: MkDeviceAbsAreaState :: Word16 -> Word16 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> DeviceAbsAreaState
- Graphics.XHB.Gen.Input: MkDeviceAbsCalibCtl :: CARD16 -> CARD16 -> INT32 -> INT32 -> INT32 -> INT32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> DeviceAbsCalibCtl
+ Graphics.XHB.Gen.Input: MkDeviceAbsCalibCtl :: Word16 -> Word16 -> Int32 -> Int32 -> Int32 -> Int32 -> Word32 -> Word32 -> Word32 -> Word32 -> DeviceAbsCalibCtl
- Graphics.XHB.Gen.Input: MkDeviceAbsCalibState :: CARD16 -> CARD16 -> INT32 -> INT32 -> INT32 -> INT32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> DeviceAbsCalibState
+ Graphics.XHB.Gen.Input: MkDeviceAbsCalibState :: Word16 -> Word16 -> Int32 -> Int32 -> Int32 -> Int32 -> Word32 -> Word32 -> Word32 -> Word32 -> DeviceAbsCalibState
- Graphics.XHB.Gen.Input: MkDeviceBell :: CARD8 -> CARD8 -> CARD8 -> INT8 -> DeviceBell
+ Graphics.XHB.Gen.Input: MkDeviceBell :: Word8 -> Word8 -> Word8 -> Int8 -> DeviceBell
- Graphics.XHB.Gen.Input: MkDeviceButtonPress :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> DeviceButtonPress
+ Graphics.XHB.Gen.Input: MkDeviceButtonPress :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> DeviceButtonPress
- Graphics.XHB.Gen.Input: MkDeviceButtonRelease :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> DeviceButtonRelease
+ Graphics.XHB.Gen.Input: MkDeviceButtonRelease :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> DeviceButtonRelease
- Graphics.XHB.Gen.Input: MkDeviceButtonStateNotify :: BYTE -> [CARD8] -> DeviceButtonStateNotify
+ Graphics.XHB.Gen.Input: MkDeviceButtonStateNotify :: Word8 -> [Word8] -> DeviceButtonStateNotify
- Graphics.XHB.Gen.Input: MkDeviceCoreCtrl :: CARD16 -> CARD16 -> CARD8 -> DeviceCoreCtrl
+ Graphics.XHB.Gen.Input: MkDeviceCoreCtrl :: Word16 -> Word16 -> Word8 -> DeviceCoreCtrl
- Graphics.XHB.Gen.Input: MkDeviceCoreState :: CARD16 -> CARD16 -> CARD8 -> CARD8 -> DeviceCoreState
+ Graphics.XHB.Gen.Input: MkDeviceCoreState :: Word16 -> Word16 -> Word8 -> Word8 -> DeviceCoreState
- Graphics.XHB.Gen.Input: MkDeviceCtl :: CARD16 -> CARD16 -> DeviceCtl
+ Graphics.XHB.Gen.Input: MkDeviceCtl :: Word16 -> Word16 -> DeviceCtl
- Graphics.XHB.Gen.Input: MkDeviceEnableCtrl :: CARD16 -> CARD16 -> CARD8 -> DeviceEnableCtrl
+ Graphics.XHB.Gen.Input: MkDeviceEnableCtrl :: Word16 -> Word16 -> Word8 -> DeviceEnableCtrl
- Graphics.XHB.Gen.Input: MkDeviceEnableState :: CARD16 -> CARD16 -> CARD8 -> DeviceEnableState
+ Graphics.XHB.Gen.Input: MkDeviceEnableState :: Word16 -> Word16 -> Word8 -> DeviceEnableState
- Graphics.XHB.Gen.Input: MkDeviceInfo :: ATOM -> CARD8 -> CARD8 -> CARD8 -> DeviceInfo
+ Graphics.XHB.Gen.Input: MkDeviceInfo :: ATOM -> Word8 -> Word8 -> Word8 -> DeviceInfo
- Graphics.XHB.Gen.Input: MkDeviceKeyPress :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> DeviceKeyPress
+ Graphics.XHB.Gen.Input: MkDeviceKeyPress :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> DeviceKeyPress
- Graphics.XHB.Gen.Input: MkDeviceKeyRelease :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> DeviceKeyRelease
+ Graphics.XHB.Gen.Input: MkDeviceKeyRelease :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> DeviceKeyRelease
- Graphics.XHB.Gen.Input: MkDeviceKeyStateNotify :: BYTE -> [CARD8] -> DeviceKeyStateNotify
+ Graphics.XHB.Gen.Input: MkDeviceKeyStateNotify :: Word8 -> [Word8] -> DeviceKeyStateNotify
- Graphics.XHB.Gen.Input: MkDeviceMappingNotify :: BYTE -> CARD8 -> KeyCode -> CARD8 -> TIMESTAMP -> DeviceMappingNotify
+ Graphics.XHB.Gen.Input: MkDeviceMappingNotify :: Word8 -> Word8 -> KeyCode -> Word8 -> TIMESTAMP -> DeviceMappingNotify
- Graphics.XHB.Gen.Input: MkDeviceMotionNotify :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> DeviceMotionNotify
+ Graphics.XHB.Gen.Input: MkDeviceMotionNotify :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> DeviceMotionNotify
- Graphics.XHB.Gen.Input: MkDevicePresenceNotify :: TIMESTAMP -> BYTE -> BYTE -> CARD16 -> DevicePresenceNotify
+ Graphics.XHB.Gen.Input: MkDevicePresenceNotify :: TIMESTAMP -> Word8 -> Word8 -> Word16 -> DevicePresenceNotify
- Graphics.XHB.Gen.Input: MkDeviceResolutionCtl :: CARD16 -> CARD16 -> CARD8 -> CARD8 -> [CARD32] -> DeviceResolutionCtl
+ Graphics.XHB.Gen.Input: MkDeviceResolutionCtl :: Word16 -> Word16 -> Word8 -> Word8 -> [Word32] -> DeviceResolutionCtl
- Graphics.XHB.Gen.Input: MkDeviceResolutionState :: CARD16 -> CARD16 -> CARD32 -> [CARD32] -> [CARD32] -> [CARD32] -> DeviceResolutionState
+ Graphics.XHB.Gen.Input: MkDeviceResolutionState :: Word16 -> Word16 -> Word32 -> [Word32] -> [Word32] -> [Word32] -> DeviceResolutionState
- Graphics.XHB.Gen.Input: MkDeviceState :: CARD16 -> CARD16 -> DeviceState
+ Graphics.XHB.Gen.Input: MkDeviceState :: Word16 -> Word16 -> DeviceState
- Graphics.XHB.Gen.Input: MkDeviceStateNotify :: BYTE -> TIMESTAMP -> CARD8 -> CARD8 -> CARD8 -> CARD8 -> [CARD8] -> [CARD8] -> [CARD32] -> DeviceStateNotify
+ Graphics.XHB.Gen.Input: MkDeviceStateNotify :: Word8 -> TIMESTAMP -> Word8 -> Word8 -> Word8 -> Word8 -> [Word8] -> [Word8] -> [Word32] -> DeviceStateNotify
- Graphics.XHB.Gen.Input: MkDeviceValuator :: CARD8 -> CARD16 -> CARD8 -> CARD8 -> [INT32] -> DeviceValuator
+ Graphics.XHB.Gen.Input: MkDeviceValuator :: Word8 -> Word16 -> Word8 -> Word8 -> [Int32] -> DeviceValuator
- Graphics.XHB.Gen.Input: MkFeedbackCtl :: CARD8 -> CARD8 -> CARD16 -> FeedbackCtl
+ Graphics.XHB.Gen.Input: MkFeedbackCtl :: Word8 -> Word8 -> Word16 -> FeedbackCtl
- Graphics.XHB.Gen.Input: MkFeedbackState :: CARD8 -> CARD8 -> CARD16 -> FeedbackState
+ Graphics.XHB.Gen.Input: MkFeedbackState :: Word8 -> Word8 -> Word16 -> FeedbackState
- Graphics.XHB.Gen.Input: MkFocusIn :: BYTE -> TIMESTAMP -> WINDOW -> BYTE -> CARD8 -> FocusIn
+ Graphics.XHB.Gen.Input: MkFocusIn :: Word8 -> TIMESTAMP -> WINDOW -> Word8 -> Word8 -> FocusIn
- Graphics.XHB.Gen.Input: MkFocusOut :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> FocusOut
+ Graphics.XHB.Gen.Input: MkFocusOut :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> FocusOut
- Graphics.XHB.Gen.Input: MkGetDeviceButtonMapping :: CARD8 -> GetDeviceButtonMapping
+ Graphics.XHB.Gen.Input: MkGetDeviceButtonMapping :: Word8 -> GetDeviceButtonMapping
- Graphics.XHB.Gen.Input: MkGetDeviceButtonMappingReply :: CARD8 -> [CARD8] -> GetDeviceButtonMappingReply
+ Graphics.XHB.Gen.Input: MkGetDeviceButtonMappingReply :: Word8 -> [Word8] -> GetDeviceButtonMappingReply
- Graphics.XHB.Gen.Input: MkGetDeviceControl :: CARD16 -> CARD8 -> GetDeviceControl
+ Graphics.XHB.Gen.Input: MkGetDeviceControl :: Word16 -> Word8 -> GetDeviceControl
- Graphics.XHB.Gen.Input: MkGetDeviceControlReply :: CARD8 -> GetDeviceControlReply
+ Graphics.XHB.Gen.Input: MkGetDeviceControlReply :: Word8 -> GetDeviceControlReply
- Graphics.XHB.Gen.Input: MkGetDeviceDontPropagateListReply :: CARD16 -> [EventClass] -> GetDeviceDontPropagateListReply
+ Graphics.XHB.Gen.Input: MkGetDeviceDontPropagateListReply :: Word16 -> [EventClass] -> GetDeviceDontPropagateListReply
- Graphics.XHB.Gen.Input: MkGetDeviceFocus :: CARD8 -> GetDeviceFocus
+ Graphics.XHB.Gen.Input: MkGetDeviceFocus :: Word8 -> GetDeviceFocus
- Graphics.XHB.Gen.Input: MkGetDeviceFocusReply :: WINDOW -> TIMESTAMP -> CARD8 -> GetDeviceFocusReply
+ Graphics.XHB.Gen.Input: MkGetDeviceFocusReply :: WINDOW -> TIMESTAMP -> Word8 -> GetDeviceFocusReply
- Graphics.XHB.Gen.Input: MkGetDeviceKeyMapping :: CARD8 -> KeyCode -> CARD8 -> GetDeviceKeyMapping
+ Graphics.XHB.Gen.Input: MkGetDeviceKeyMapping :: Word8 -> KeyCode -> Word8 -> GetDeviceKeyMapping
- Graphics.XHB.Gen.Input: MkGetDeviceKeyMappingReply :: CARD8 -> [KEYSYM] -> GetDeviceKeyMappingReply
+ Graphics.XHB.Gen.Input: MkGetDeviceKeyMappingReply :: Word8 -> [KEYSYM] -> GetDeviceKeyMappingReply
- Graphics.XHB.Gen.Input: MkGetDeviceModifierMapping :: CARD8 -> GetDeviceModifierMapping
+ Graphics.XHB.Gen.Input: MkGetDeviceModifierMapping :: Word8 -> GetDeviceModifierMapping
- Graphics.XHB.Gen.Input: MkGetDeviceModifierMappingReply :: CARD8 -> [CARD8] -> GetDeviceModifierMappingReply
+ Graphics.XHB.Gen.Input: MkGetDeviceModifierMappingReply :: Word8 -> [Word8] -> GetDeviceModifierMappingReply
- Graphics.XHB.Gen.Input: MkGetDeviceMotionEvents :: TIMESTAMP -> TIMESTAMP -> CARD8 -> GetDeviceMotionEvents
+ Graphics.XHB.Gen.Input: MkGetDeviceMotionEvents :: TIMESTAMP -> TIMESTAMP -> Word8 -> GetDeviceMotionEvents
- Graphics.XHB.Gen.Input: MkGetDeviceMotionEventsReply :: CARD32 -> CARD8 -> CARD8 -> GetDeviceMotionEventsReply
+ Graphics.XHB.Gen.Input: MkGetDeviceMotionEventsReply :: Word32 -> Word8 -> Word8 -> GetDeviceMotionEventsReply
- Graphics.XHB.Gen.Input: MkGetExtensionVersion :: CARD16 -> [CChar] -> GetExtensionVersion
+ Graphics.XHB.Gen.Input: MkGetExtensionVersion :: Word16 -> [CChar] -> GetExtensionVersion
- Graphics.XHB.Gen.Input: MkGetExtensionVersionReply :: CARD16 -> CARD16 -> CARD8 -> GetExtensionVersionReply
+ Graphics.XHB.Gen.Input: MkGetExtensionVersionReply :: Word16 -> Word16 -> Word8 -> GetExtensionVersionReply
- Graphics.XHB.Gen.Input: MkGetFeedbackControl :: CARD8 -> GetFeedbackControl
+ Graphics.XHB.Gen.Input: MkGetFeedbackControl :: Word8 -> GetFeedbackControl
- Graphics.XHB.Gen.Input: MkGetFeedbackControlReply :: CARD16 -> GetFeedbackControlReply
+ Graphics.XHB.Gen.Input: MkGetFeedbackControlReply :: Word16 -> GetFeedbackControlReply
- Graphics.XHB.Gen.Input: MkGetSelectedExtensionEventsReply :: CARD16 -> CARD16 -> [EventClass] -> [EventClass] -> GetSelectedExtensionEventsReply
+ Graphics.XHB.Gen.Input: MkGetSelectedExtensionEventsReply :: Word16 -> Word16 -> [EventClass] -> [EventClass] -> GetSelectedExtensionEventsReply
- Graphics.XHB.Gen.Input: MkGrabDevice :: WINDOW -> TIMESTAMP -> CARD16 -> CARD8 -> CARD8 -> BOOL -> CARD8 -> [EventClass] -> GrabDevice
+ Graphics.XHB.Gen.Input: MkGrabDevice :: WINDOW -> TIMESTAMP -> Word16 -> Word8 -> Word8 -> Bool -> Word8 -> [EventClass] -> GrabDevice
- Graphics.XHB.Gen.Input: MkGrabDeviceButton :: WINDOW -> CARD8 -> CARD8 -> CARD16 -> CARD16 -> CARD8 -> CARD8 -> CARD8 -> CARD8 -> [EventClass] -> GrabDeviceButton
+ Graphics.XHB.Gen.Input: MkGrabDeviceButton :: WINDOW -> Word8 -> Word8 -> Word16 -> Word16 -> Word8 -> Word8 -> Word8 -> Word8 -> [EventClass] -> GrabDeviceButton
- Graphics.XHB.Gen.Input: MkGrabDeviceKey :: WINDOW -> CARD16 -> CARD16 -> CARD8 -> CARD8 -> CARD8 -> CARD8 -> CARD8 -> BOOL -> [EventClass] -> GrabDeviceKey
+ Graphics.XHB.Gen.Input: MkGrabDeviceKey :: WINDOW -> Word16 -> Word16 -> Word8 -> Word8 -> Word8 -> Word8 -> Word8 -> Bool -> [EventClass] -> GrabDeviceKey
- Graphics.XHB.Gen.Input: MkGrabDeviceReply :: CARD8 -> GrabDeviceReply
+ Graphics.XHB.Gen.Input: MkGrabDeviceReply :: Word8 -> GrabDeviceReply
- Graphics.XHB.Gen.Input: MkInputClassInfo :: CARD8 -> CARD8 -> InputClassInfo
+ Graphics.XHB.Gen.Input: MkInputClassInfo :: Word8 -> Word8 -> InputClassInfo
- Graphics.XHB.Gen.Input: MkInputInfo :: CARD8 -> CARD8 -> InputInfo
+ Graphics.XHB.Gen.Input: MkInputInfo :: Word8 -> Word8 -> InputInfo
- Graphics.XHB.Gen.Input: MkInputState :: CARD8 -> CARD8 -> CARD8 -> InputState
+ Graphics.XHB.Gen.Input: MkInputState :: Word8 -> Word8 -> Word8 -> InputState
- Graphics.XHB.Gen.Input: MkIntegerFeedbackCtl :: CARD8 -> CARD8 -> CARD16 -> INT32 -> IntegerFeedbackCtl
+ Graphics.XHB.Gen.Input: MkIntegerFeedbackCtl :: Word8 -> Word8 -> Word16 -> Int32 -> IntegerFeedbackCtl
- Graphics.XHB.Gen.Input: MkIntegerFeedbackState :: CARD8 -> CARD8 -> CARD16 -> CARD32 -> INT32 -> INT32 -> IntegerFeedbackState
+ Graphics.XHB.Gen.Input: MkIntegerFeedbackState :: Word8 -> Word8 -> Word16 -> Word32 -> Int32 -> Int32 -> IntegerFeedbackState
- Graphics.XHB.Gen.Input: MkKbdFeedbackCtl :: CARD8 -> CARD8 -> CARD16 -> KeyCode -> CARD8 -> INT8 -> INT8 -> INT16 -> INT16 -> CARD32 -> CARD32 -> KbdFeedbackCtl
+ Graphics.XHB.Gen.Input: MkKbdFeedbackCtl :: Word8 -> Word8 -> Word16 -> KeyCode -> Word8 -> Int8 -> Int8 -> Int16 -> Int16 -> Word32 -> Word32 -> KbdFeedbackCtl
- Graphics.XHB.Gen.Input: MkKbdFeedbackState :: CARD8 -> CARD8 -> CARD16 -> CARD16 -> CARD16 -> CARD32 -> CARD32 -> BOOL -> CARD8 -> CARD8 -> [CARD8] -> KbdFeedbackState
+ Graphics.XHB.Gen.Input: MkKbdFeedbackState :: Word8 -> Word8 -> Word16 -> Word16 -> Word16 -> Word32 -> Word32 -> Bool -> Word8 -> Word8 -> [Word8] -> KbdFeedbackState
- Graphics.XHB.Gen.Input: MkKeyInfo :: CARD8 -> CARD8 -> KeyCode -> KeyCode -> CARD16 -> KeyInfo
+ Graphics.XHB.Gen.Input: MkKeyInfo :: Word8 -> Word8 -> KeyCode -> KeyCode -> Word16 -> KeyInfo
- Graphics.XHB.Gen.Input: MkKeyState :: CARD8 -> CARD8 -> CARD8 -> [CARD8] -> KeyState
+ Graphics.XHB.Gen.Input: MkKeyState :: Word8 -> Word8 -> Word8 -> [Word8] -> KeyState
- Graphics.XHB.Gen.Input: MkLedFeedbackCtl :: CARD8 -> CARD8 -> CARD16 -> CARD32 -> CARD32 -> LedFeedbackCtl
+ Graphics.XHB.Gen.Input: MkLedFeedbackCtl :: Word8 -> Word8 -> Word16 -> Word32 -> Word32 -> LedFeedbackCtl
- Graphics.XHB.Gen.Input: MkLedFeedbackState :: CARD8 -> CARD8 -> CARD16 -> CARD32 -> CARD32 -> LedFeedbackState
+ Graphics.XHB.Gen.Input: MkLedFeedbackState :: Word8 -> Word8 -> Word16 -> Word32 -> Word32 -> LedFeedbackState
- Graphics.XHB.Gen.Input: MkListInputDevicesReply :: CARD8 -> [DeviceInfo] -> ListInputDevicesReply
+ Graphics.XHB.Gen.Input: MkListInputDevicesReply :: Word8 -> [DeviceInfo] -> ListInputDevicesReply
- Graphics.XHB.Gen.Input: MkOpenDevice :: CARD8 -> OpenDevice
+ Graphics.XHB.Gen.Input: MkOpenDevice :: Word8 -> OpenDevice
- Graphics.XHB.Gen.Input: MkOpenDeviceReply :: CARD8 -> [InputClassInfo] -> OpenDeviceReply
+ Graphics.XHB.Gen.Input: MkOpenDeviceReply :: Word8 -> [InputClassInfo] -> OpenDeviceReply
- Graphics.XHB.Gen.Input: MkProximityIn :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> ProximityIn
+ Graphics.XHB.Gen.Input: MkProximityIn :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> ProximityIn
- Graphics.XHB.Gen.Input: MkProximityOut :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> ProximityOut
+ Graphics.XHB.Gen.Input: MkProximityOut :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> ProximityOut
- Graphics.XHB.Gen.Input: MkPtrFeedbackCtl :: CARD8 -> CARD8 -> CARD16 -> INT16 -> INT16 -> INT16 -> PtrFeedbackCtl
+ Graphics.XHB.Gen.Input: MkPtrFeedbackCtl :: Word8 -> Word8 -> Word16 -> Int16 -> Int16 -> Int16 -> PtrFeedbackCtl
- Graphics.XHB.Gen.Input: MkPtrFeedbackState :: CARD8 -> CARD8 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> PtrFeedbackState
+ Graphics.XHB.Gen.Input: MkPtrFeedbackState :: Word8 -> Word8 -> Word16 -> Word16 -> Word16 -> Word16 -> PtrFeedbackState
- Graphics.XHB.Gen.Input: MkQueryDeviceState :: CARD8 -> QueryDeviceState
+ Graphics.XHB.Gen.Input: MkQueryDeviceState :: Word8 -> QueryDeviceState
- Graphics.XHB.Gen.Input: MkQueryDeviceStateReply :: CARD8 -> QueryDeviceStateReply
+ Graphics.XHB.Gen.Input: MkQueryDeviceStateReply :: Word8 -> QueryDeviceStateReply
- Graphics.XHB.Gen.Input: MkSelectExtensionEvent :: WINDOW -> CARD16 -> [EventClass] -> SelectExtensionEvent
+ Graphics.XHB.Gen.Input: MkSelectExtensionEvent :: WINDOW -> Word16 -> [EventClass] -> SelectExtensionEvent
- Graphics.XHB.Gen.Input: MkSendExtensionEvent :: WINDOW -> CARD8 -> BOOL -> CARD16 -> CARD8 -> [CChar] -> [EventClass] -> SendExtensionEvent
+ Graphics.XHB.Gen.Input: MkSendExtensionEvent :: WINDOW -> Word8 -> Bool -> Word16 -> Word8 -> [CChar] -> [EventClass] -> SendExtensionEvent
- Graphics.XHB.Gen.Input: MkSetDeviceButtonMapping :: CARD8 -> CARD8 -> [CARD8] -> SetDeviceButtonMapping
+ Graphics.XHB.Gen.Input: MkSetDeviceButtonMapping :: Word8 -> Word8 -> [Word8] -> SetDeviceButtonMapping
- Graphics.XHB.Gen.Input: MkSetDeviceButtonMappingReply :: CARD8 -> SetDeviceButtonMappingReply
+ Graphics.XHB.Gen.Input: MkSetDeviceButtonMappingReply :: Word8 -> SetDeviceButtonMappingReply
- Graphics.XHB.Gen.Input: MkSetDeviceFocus :: WINDOW -> TIMESTAMP -> CARD8 -> CARD8 -> SetDeviceFocus
+ Graphics.XHB.Gen.Input: MkSetDeviceFocus :: WINDOW -> TIMESTAMP -> Word8 -> Word8 -> SetDeviceFocus
- Graphics.XHB.Gen.Input: MkSetDeviceMode :: CARD8 -> CARD8 -> SetDeviceMode
+ Graphics.XHB.Gen.Input: MkSetDeviceMode :: Word8 -> Word8 -> SetDeviceMode
- Graphics.XHB.Gen.Input: MkSetDeviceModeReply :: CARD8 -> SetDeviceModeReply
+ Graphics.XHB.Gen.Input: MkSetDeviceModeReply :: Word8 -> SetDeviceModeReply
- Graphics.XHB.Gen.Input: MkSetDeviceModifierMapping :: CARD8 -> CARD8 -> [CARD8] -> SetDeviceModifierMapping
+ Graphics.XHB.Gen.Input: MkSetDeviceModifierMapping :: Word8 -> Word8 -> [Word8] -> SetDeviceModifierMapping
- Graphics.XHB.Gen.Input: MkSetDeviceModifierMappingReply :: CARD8 -> SetDeviceModifierMappingReply
+ Graphics.XHB.Gen.Input: MkSetDeviceModifierMappingReply :: Word8 -> SetDeviceModifierMappingReply
- Graphics.XHB.Gen.Input: MkSetDeviceValuators :: CARD8 -> CARD8 -> CARD8 -> [INT32] -> SetDeviceValuators
+ Graphics.XHB.Gen.Input: MkSetDeviceValuators :: Word8 -> Word8 -> Word8 -> [Int32] -> SetDeviceValuators
- Graphics.XHB.Gen.Input: MkSetDeviceValuatorsReply :: CARD8 -> SetDeviceValuatorsReply
+ Graphics.XHB.Gen.Input: MkSetDeviceValuatorsReply :: Word8 -> SetDeviceValuatorsReply
- Graphics.XHB.Gen.Input: MkStringFeedbackCtl :: CARD8 -> CARD8 -> CARD16 -> CARD16 -> [KEYSYM] -> StringFeedbackCtl
+ Graphics.XHB.Gen.Input: MkStringFeedbackCtl :: Word8 -> Word8 -> Word16 -> Word16 -> [KEYSYM] -> StringFeedbackCtl
- Graphics.XHB.Gen.Input: MkStringFeedbackState :: CARD8 -> CARD8 -> CARD16 -> CARD16 -> CARD16 -> [KEYSYM] -> StringFeedbackState
+ Graphics.XHB.Gen.Input: MkStringFeedbackState :: Word8 -> Word8 -> Word16 -> Word16 -> Word16 -> [KEYSYM] -> StringFeedbackState
- Graphics.XHB.Gen.Input: MkUngrabDevice :: TIMESTAMP -> CARD8 -> UngrabDevice
+ Graphics.XHB.Gen.Input: MkUngrabDevice :: TIMESTAMP -> Word8 -> UngrabDevice
- Graphics.XHB.Gen.Input: MkUngrabDeviceButton :: WINDOW -> CARD16 -> CARD8 -> CARD8 -> CARD8 -> UngrabDeviceButton
+ Graphics.XHB.Gen.Input: MkUngrabDeviceButton :: WINDOW -> Word16 -> Word8 -> Word8 -> Word8 -> UngrabDeviceButton
- Graphics.XHB.Gen.Input: MkUngrabDeviceKey :: WINDOW -> CARD16 -> CARD8 -> CARD8 -> CARD8 -> UngrabDeviceKey
+ Graphics.XHB.Gen.Input: MkUngrabDeviceKey :: WINDOW -> Word16 -> Word8 -> Word8 -> Word8 -> UngrabDeviceKey
- Graphics.XHB.Gen.Input: MkValuatorInfo :: CARD8 -> CARD8 -> CARD8 -> CARD8 -> CARD32 -> [AxisInfo] -> ValuatorInfo
+ Graphics.XHB.Gen.Input: MkValuatorInfo :: Word8 -> Word8 -> Word8 -> Word8 -> Word32 -> [AxisInfo] -> ValuatorInfo
- Graphics.XHB.Gen.Input: MkValuatorState :: CARD8 -> CARD8 -> CARD8 -> CARD8 -> [CARD32] -> ValuatorState
+ Graphics.XHB.Gen.Input: MkValuatorState :: Word8 -> Word8 -> Word8 -> Word8 -> [Word32] -> ValuatorState
- Graphics.XHB.Gen.Input: accel_denom_PtrFeedbackState :: PtrFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: accel_denom_PtrFeedbackState :: PtrFeedbackState -> Word16
- Graphics.XHB.Gen.Input: accel_num_PtrFeedbackState :: PtrFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: accel_num_PtrFeedbackState :: PtrFeedbackState -> Word16
- Graphics.XHB.Gen.Input: auto_repeat_mode_KbdFeedbackCtl :: KbdFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: auto_repeat_mode_KbdFeedbackCtl :: KbdFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: auto_repeats_KbdFeedbackState :: KbdFeedbackState -> [CARD8]
+ Graphics.XHB.Gen.Input: auto_repeats_KbdFeedbackState :: KbdFeedbackState -> [Word8]
- Graphics.XHB.Gen.Input: axes_len_ValuatorInfo :: ValuatorInfo -> CARD8
+ Graphics.XHB.Gen.Input: axes_len_ValuatorInfo :: ValuatorInfo -> Word8
- Graphics.XHB.Gen.Input: bell_duration_KbdFeedbackCtl :: KbdFeedbackCtl -> INT16
+ Graphics.XHB.Gen.Input: bell_duration_KbdFeedbackCtl :: KbdFeedbackCtl -> Int16
- Graphics.XHB.Gen.Input: bell_percent_KbdFeedbackCtl :: KbdFeedbackCtl -> INT8
+ Graphics.XHB.Gen.Input: bell_percent_KbdFeedbackCtl :: KbdFeedbackCtl -> Int8
- Graphics.XHB.Gen.Input: bell_pitch_KbdFeedbackCtl :: KbdFeedbackCtl -> INT16
+ Graphics.XHB.Gen.Input: bell_pitch_KbdFeedbackCtl :: KbdFeedbackCtl -> Int16
- Graphics.XHB.Gen.Input: button_GrabDeviceButton :: GrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: button_GrabDeviceButton :: GrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: button_UngrabDeviceButton :: UngrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: button_UngrabDeviceButton :: UngrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: button_threshold_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> CARD32
+ Graphics.XHB.Gen.Input: button_threshold_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Word32
- Graphics.XHB.Gen.Input: button_threshold_DeviceAbsCalibState :: DeviceAbsCalibState -> CARD32
+ Graphics.XHB.Gen.Input: button_threshold_DeviceAbsCalibState :: DeviceAbsCalibState -> Word32
- Graphics.XHB.Gen.Input: buttons_ButtonState :: ButtonState -> [CARD8]
+ Graphics.XHB.Gen.Input: buttons_ButtonState :: ButtonState -> [Word8]
- Graphics.XHB.Gen.Input: buttons_DeviceButtonStateNotify :: DeviceButtonStateNotify -> [CARD8]
+ Graphics.XHB.Gen.Input: buttons_DeviceButtonStateNotify :: DeviceButtonStateNotify -> [Word8]
- Graphics.XHB.Gen.Input: buttons_DeviceStateNotify :: DeviceStateNotify -> [CARD8]
+ Graphics.XHB.Gen.Input: buttons_DeviceStateNotify :: DeviceStateNotify -> [Word8]
- Graphics.XHB.Gen.Input: changeKeyboardDevice :: Connection -> CARD8 -> IO (Receipt ChangeKeyboardDeviceReply)
+ Graphics.XHB.Gen.Input: changeKeyboardDevice :: Connection -> Word8 -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: changePointerDevice :: Connection -> ChangePointerDevice -> IO (Receipt ChangePointerDeviceReply)
+ Graphics.XHB.Gen.Input: changePointerDevice :: Connection -> ChangePointerDevice -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: class_id_BellFeedbackCtl :: BellFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: class_id_BellFeedbackCtl :: BellFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: class_id_BellFeedbackState :: BellFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_BellFeedbackState :: BellFeedbackState -> Word8
- Graphics.XHB.Gen.Input: class_id_ButtonInfo :: ButtonInfo -> CARD8
+ Graphics.XHB.Gen.Input: class_id_ButtonInfo :: ButtonInfo -> Word8
- Graphics.XHB.Gen.Input: class_id_ButtonState :: ButtonState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_ButtonState :: ButtonState -> Word8
- Graphics.XHB.Gen.Input: class_id_FeedbackCtl :: FeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: class_id_FeedbackCtl :: FeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: class_id_FeedbackState :: FeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_FeedbackState :: FeedbackState -> Word8
- Graphics.XHB.Gen.Input: class_id_InputClassInfo :: InputClassInfo -> CARD8
+ Graphics.XHB.Gen.Input: class_id_InputClassInfo :: InputClassInfo -> Word8
- Graphics.XHB.Gen.Input: class_id_InputInfo :: InputInfo -> CARD8
+ Graphics.XHB.Gen.Input: class_id_InputInfo :: InputInfo -> Word8
- Graphics.XHB.Gen.Input: class_id_InputState :: InputState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_InputState :: InputState -> Word8
- Graphics.XHB.Gen.Input: class_id_IntegerFeedbackCtl :: IntegerFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: class_id_IntegerFeedbackCtl :: IntegerFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: class_id_IntegerFeedbackState :: IntegerFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_IntegerFeedbackState :: IntegerFeedbackState -> Word8
- Graphics.XHB.Gen.Input: class_id_KbdFeedbackCtl :: KbdFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: class_id_KbdFeedbackCtl :: KbdFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: class_id_KbdFeedbackState :: KbdFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_KbdFeedbackState :: KbdFeedbackState -> Word8
- Graphics.XHB.Gen.Input: class_id_KeyInfo :: KeyInfo -> CARD8
+ Graphics.XHB.Gen.Input: class_id_KeyInfo :: KeyInfo -> Word8
- Graphics.XHB.Gen.Input: class_id_KeyState :: KeyState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_KeyState :: KeyState -> Word8
- Graphics.XHB.Gen.Input: class_id_LedFeedbackCtl :: LedFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: class_id_LedFeedbackCtl :: LedFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: class_id_LedFeedbackState :: LedFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_LedFeedbackState :: LedFeedbackState -> Word8
- Graphics.XHB.Gen.Input: class_id_PtrFeedbackCtl :: PtrFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: class_id_PtrFeedbackCtl :: PtrFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: class_id_PtrFeedbackState :: PtrFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_PtrFeedbackState :: PtrFeedbackState -> Word8
- Graphics.XHB.Gen.Input: class_id_StringFeedbackCtl :: StringFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: class_id_StringFeedbackCtl :: StringFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: class_id_StringFeedbackState :: StringFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_StringFeedbackState :: StringFeedbackState -> Word8
- Graphics.XHB.Gen.Input: class_id_ValuatorInfo :: ValuatorInfo -> CARD8
+ Graphics.XHB.Gen.Input: class_id_ValuatorInfo :: ValuatorInfo -> Word8
- Graphics.XHB.Gen.Input: class_id_ValuatorState :: ValuatorState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_ValuatorState :: ValuatorState -> Word8
- Graphics.XHB.Gen.Input: classes_reported_DeviceStateNotify :: DeviceStateNotify -> CARD8
+ Graphics.XHB.Gen.Input: classes_reported_DeviceStateNotify :: DeviceStateNotify -> Word8
- Graphics.XHB.Gen.Input: click_KbdFeedbackState :: KbdFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: click_KbdFeedbackState :: KbdFeedbackState -> Word8
- Graphics.XHB.Gen.Input: closeDevice :: Connection -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Input: closeDevice :: Connection -> Word8 -> IO ()
- Graphics.XHB.Gen.Input: control_DevicePresenceNotify :: DevicePresenceNotify -> CARD16
+ Graphics.XHB.Gen.Input: control_DevicePresenceNotify :: DevicePresenceNotify -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceAbsAreaState :: DeviceAbsAreaState -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceAbsCalibState :: DeviceAbsCalibState -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceAbsCalibState :: DeviceAbsCalibState -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceCoreCtrl :: DeviceCoreCtrl -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceCoreCtrl :: DeviceCoreCtrl -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceCoreState :: DeviceCoreState -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceCoreState :: DeviceCoreState -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceCtl :: DeviceCtl -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceCtl :: DeviceCtl -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceEnableCtrl :: DeviceEnableCtrl -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceEnableCtrl :: DeviceEnableCtrl -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceEnableState :: DeviceEnableState -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceEnableState :: DeviceEnableState -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceResolutionCtl :: DeviceResolutionCtl -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceResolutionCtl :: DeviceResolutionCtl -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceResolutionState :: DeviceResolutionState -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceResolutionState :: DeviceResolutionState -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceState :: DeviceState -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceState :: DeviceState -> Word16
- Graphics.XHB.Gen.Input: control_id_GetDeviceControl :: GetDeviceControl -> CARD16
+ Graphics.XHB.Gen.Input: control_id_GetDeviceControl :: GetDeviceControl -> Word16
- Graphics.XHB.Gen.Input: count_DeviceMappingNotify :: DeviceMappingNotify -> CARD8
+ Graphics.XHB.Gen.Input: count_DeviceMappingNotify :: DeviceMappingNotify -> Word8
- Graphics.XHB.Gen.Input: count_GetDeviceKeyMapping :: GetDeviceKeyMapping -> CARD8
+ Graphics.XHB.Gen.Input: count_GetDeviceKeyMapping :: GetDeviceKeyMapping -> Word8
- Graphics.XHB.Gen.Input: denom_PtrFeedbackCtl :: PtrFeedbackCtl -> INT16
+ Graphics.XHB.Gen.Input: denom_PtrFeedbackCtl :: PtrFeedbackCtl -> Int16
- Graphics.XHB.Gen.Input: detail_DeviceButtonPress :: DeviceButtonPress -> BYTE
+ Graphics.XHB.Gen.Input: detail_DeviceButtonPress :: DeviceButtonPress -> Word8
- Graphics.XHB.Gen.Input: detail_DeviceButtonRelease :: DeviceButtonRelease -> BYTE
+ Graphics.XHB.Gen.Input: detail_DeviceButtonRelease :: DeviceButtonRelease -> Word8
- Graphics.XHB.Gen.Input: detail_DeviceKeyPress :: DeviceKeyPress -> BYTE
+ Graphics.XHB.Gen.Input: detail_DeviceKeyPress :: DeviceKeyPress -> Word8
- Graphics.XHB.Gen.Input: detail_DeviceKeyRelease :: DeviceKeyRelease -> BYTE
+ Graphics.XHB.Gen.Input: detail_DeviceKeyRelease :: DeviceKeyRelease -> Word8
- Graphics.XHB.Gen.Input: detail_DeviceMotionNotify :: DeviceMotionNotify -> BYTE
+ Graphics.XHB.Gen.Input: detail_DeviceMotionNotify :: DeviceMotionNotify -> Word8
- Graphics.XHB.Gen.Input: detail_FocusIn :: FocusIn -> BYTE
+ Graphics.XHB.Gen.Input: detail_FocusIn :: FocusIn -> Word8
- Graphics.XHB.Gen.Input: detail_FocusOut :: FocusOut -> BYTE
+ Graphics.XHB.Gen.Input: detail_FocusOut :: FocusOut -> Word8
- Graphics.XHB.Gen.Input: detail_ProximityIn :: ProximityIn -> BYTE
+ Graphics.XHB.Gen.Input: detail_ProximityIn :: ProximityIn -> Word8
- Graphics.XHB.Gen.Input: detail_ProximityOut :: ProximityOut -> BYTE
+ Graphics.XHB.Gen.Input: detail_ProximityOut :: ProximityOut -> Word8
- Graphics.XHB.Gen.Input: devchange_DevicePresenceNotify :: DevicePresenceNotify -> BYTE
+ Graphics.XHB.Gen.Input: devchange_DevicePresenceNotify :: DevicePresenceNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_AllowDeviceEvents :: AllowDeviceEvents -> CARD8
+ Graphics.XHB.Gen.Input: device_id_AllowDeviceEvents :: AllowDeviceEvents -> Word8
- Graphics.XHB.Gen.Input: device_id_ChangeDeviceKeyMapping :: ChangeDeviceKeyMapping -> CARD8
+ Graphics.XHB.Gen.Input: device_id_ChangeDeviceKeyMapping :: ChangeDeviceKeyMapping -> Word8
- Graphics.XHB.Gen.Input: device_id_ChangeDeviceNotify :: ChangeDeviceNotify -> BYTE
+ Graphics.XHB.Gen.Input: device_id_ChangeDeviceNotify :: ChangeDeviceNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_ChangeKeyboardDevice :: ChangeKeyboardDevice -> CARD8
+ Graphics.XHB.Gen.Input: device_id_ChangeKeyboardDevice :: ChangeKeyboardDevice -> Word8
- Graphics.XHB.Gen.Input: device_id_ChangePointerDevice :: ChangePointerDevice -> CARD8
+ Graphics.XHB.Gen.Input: device_id_ChangePointerDevice :: ChangePointerDevice -> Word8
- Graphics.XHB.Gen.Input: device_id_CloseDevice :: CloseDevice -> CARD8
+ Graphics.XHB.Gen.Input: device_id_CloseDevice :: CloseDevice -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceBell :: DeviceBell -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceBell :: DeviceBell -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceButtonPress :: DeviceButtonPress -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceButtonPress :: DeviceButtonPress -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceButtonRelease :: DeviceButtonRelease -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceButtonRelease :: DeviceButtonRelease -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceButtonStateNotify :: DeviceButtonStateNotify -> BYTE
+ Graphics.XHB.Gen.Input: device_id_DeviceButtonStateNotify :: DeviceButtonStateNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceInfo :: DeviceInfo -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceInfo :: DeviceInfo -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceKeyPress :: DeviceKeyPress -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceKeyPress :: DeviceKeyPress -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceKeyRelease :: DeviceKeyRelease -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceKeyRelease :: DeviceKeyRelease -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceKeyStateNotify :: DeviceKeyStateNotify -> BYTE
+ Graphics.XHB.Gen.Input: device_id_DeviceKeyStateNotify :: DeviceKeyStateNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceMappingNotify :: DeviceMappingNotify -> BYTE
+ Graphics.XHB.Gen.Input: device_id_DeviceMappingNotify :: DeviceMappingNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceMotionNotify :: DeviceMotionNotify -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceMotionNotify :: DeviceMotionNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_DevicePresenceNotify :: DevicePresenceNotify -> BYTE
+ Graphics.XHB.Gen.Input: device_id_DevicePresenceNotify :: DevicePresenceNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceStateNotify :: DeviceStateNotify -> BYTE
+ Graphics.XHB.Gen.Input: device_id_DeviceStateNotify :: DeviceStateNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceValuator :: DeviceValuator -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceValuator :: DeviceValuator -> Word8
- Graphics.XHB.Gen.Input: device_id_FocusIn :: FocusIn -> CARD8
+ Graphics.XHB.Gen.Input: device_id_FocusIn :: FocusIn -> Word8
- Graphics.XHB.Gen.Input: device_id_FocusOut :: FocusOut -> CARD8
+ Graphics.XHB.Gen.Input: device_id_FocusOut :: FocusOut -> Word8
- Graphics.XHB.Gen.Input: device_id_GetDeviceButtonMapping :: GetDeviceButtonMapping -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GetDeviceButtonMapping :: GetDeviceButtonMapping -> Word8
- Graphics.XHB.Gen.Input: device_id_GetDeviceControl :: GetDeviceControl -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GetDeviceControl :: GetDeviceControl -> Word8
- Graphics.XHB.Gen.Input: device_id_GetDeviceFocus :: GetDeviceFocus -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GetDeviceFocus :: GetDeviceFocus -> Word8
- Graphics.XHB.Gen.Input: device_id_GetDeviceKeyMapping :: GetDeviceKeyMapping -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GetDeviceKeyMapping :: GetDeviceKeyMapping -> Word8
- Graphics.XHB.Gen.Input: device_id_GetDeviceModifierMapping :: GetDeviceModifierMapping -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GetDeviceModifierMapping :: GetDeviceModifierMapping -> Word8
- Graphics.XHB.Gen.Input: device_id_GetDeviceMotionEvents :: GetDeviceMotionEvents -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GetDeviceMotionEvents :: GetDeviceMotionEvents -> Word8
- Graphics.XHB.Gen.Input: device_id_GetFeedbackControl :: GetFeedbackControl -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GetFeedbackControl :: GetFeedbackControl -> Word8
- Graphics.XHB.Gen.Input: device_id_GrabDevice :: GrabDevice -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GrabDevice :: GrabDevice -> Word8
- Graphics.XHB.Gen.Input: device_id_OpenDevice :: OpenDevice -> CARD8
+ Graphics.XHB.Gen.Input: device_id_OpenDevice :: OpenDevice -> Word8
- Graphics.XHB.Gen.Input: device_id_ProximityIn :: ProximityIn -> CARD8
+ Graphics.XHB.Gen.Input: device_id_ProximityIn :: ProximityIn -> Word8
- Graphics.XHB.Gen.Input: device_id_ProximityOut :: ProximityOut -> CARD8
+ Graphics.XHB.Gen.Input: device_id_ProximityOut :: ProximityOut -> Word8
- Graphics.XHB.Gen.Input: device_id_QueryDeviceState :: QueryDeviceState -> CARD8
+ Graphics.XHB.Gen.Input: device_id_QueryDeviceState :: QueryDeviceState -> Word8
- Graphics.XHB.Gen.Input: device_id_SendExtensionEvent :: SendExtensionEvent -> CARD8
+ Graphics.XHB.Gen.Input: device_id_SendExtensionEvent :: SendExtensionEvent -> Word8
- Graphics.XHB.Gen.Input: device_id_SetDeviceButtonMapping :: SetDeviceButtonMapping -> CARD8
+ Graphics.XHB.Gen.Input: device_id_SetDeviceButtonMapping :: SetDeviceButtonMapping -> Word8
- Graphics.XHB.Gen.Input: device_id_SetDeviceFocus :: SetDeviceFocus -> CARD8
+ Graphics.XHB.Gen.Input: device_id_SetDeviceFocus :: SetDeviceFocus -> Word8
- Graphics.XHB.Gen.Input: device_id_SetDeviceMode :: SetDeviceMode -> CARD8
+ Graphics.XHB.Gen.Input: device_id_SetDeviceMode :: SetDeviceMode -> Word8
- Graphics.XHB.Gen.Input: device_id_SetDeviceModifierMapping :: SetDeviceModifierMapping -> CARD8
+ Graphics.XHB.Gen.Input: device_id_SetDeviceModifierMapping :: SetDeviceModifierMapping -> Word8
- Graphics.XHB.Gen.Input: device_id_SetDeviceValuators :: SetDeviceValuators -> CARD8
+ Graphics.XHB.Gen.Input: device_id_SetDeviceValuators :: SetDeviceValuators -> Word8
- Graphics.XHB.Gen.Input: device_id_UngrabDevice :: UngrabDevice -> CARD8
+ Graphics.XHB.Gen.Input: device_id_UngrabDevice :: UngrabDevice -> Word8
- Graphics.XHB.Gen.Input: device_mode_GetDeviceMotionEventsReply :: GetDeviceMotionEventsReply -> CARD8
+ Graphics.XHB.Gen.Input: device_mode_GetDeviceMotionEventsReply :: GetDeviceMotionEventsReply -> Word8
- Graphics.XHB.Gen.Input: device_state_DeviceValuator :: DeviceValuator -> CARD16
+ Graphics.XHB.Gen.Input: device_state_DeviceValuator :: DeviceValuator -> Word16
- Graphics.XHB.Gen.Input: device_use_DeviceInfo :: DeviceInfo -> CARD8
+ Graphics.XHB.Gen.Input: device_use_DeviceInfo :: DeviceInfo -> Word8
- Graphics.XHB.Gen.Input: devices_len_ListInputDevicesReply :: ListInputDevicesReply -> CARD8
+ Graphics.XHB.Gen.Input: devices_len_ListInputDevicesReply :: ListInputDevicesReply -> Word8
- Graphics.XHB.Gen.Input: duration_BellFeedbackCtl :: BellFeedbackCtl -> INT16
+ Graphics.XHB.Gen.Input: duration_BellFeedbackCtl :: BellFeedbackCtl -> Int16
- Graphics.XHB.Gen.Input: duration_BellFeedbackState :: BellFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: duration_BellFeedbackState :: BellFeedbackState -> Word16
- Graphics.XHB.Gen.Input: duration_KbdFeedbackState :: KbdFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: duration_KbdFeedbackState :: KbdFeedbackState -> Word16
- Graphics.XHB.Gen.Input: enable_DeviceEnableCtrl :: DeviceEnableCtrl -> CARD8
+ Graphics.XHB.Gen.Input: enable_DeviceEnableCtrl :: DeviceEnableCtrl -> Word8
- Graphics.XHB.Gen.Input: enable_DeviceEnableState :: DeviceEnableState -> CARD8
+ Graphics.XHB.Gen.Input: enable_DeviceEnableState :: DeviceEnableState -> Word8
- Graphics.XHB.Gen.Input: event_type_base_InputClassInfo :: InputClassInfo -> CARD8
+ Graphics.XHB.Gen.Input: event_type_base_InputClassInfo :: InputClassInfo -> Word8
- Graphics.XHB.Gen.Input: event_x_DeviceButtonPress :: DeviceButtonPress -> INT16
+ Graphics.XHB.Gen.Input: event_x_DeviceButtonPress :: DeviceButtonPress -> Int16
- Graphics.XHB.Gen.Input: event_x_DeviceButtonRelease :: DeviceButtonRelease -> INT16
+ Graphics.XHB.Gen.Input: event_x_DeviceButtonRelease :: DeviceButtonRelease -> Int16
- Graphics.XHB.Gen.Input: event_x_DeviceKeyPress :: DeviceKeyPress -> INT16
+ Graphics.XHB.Gen.Input: event_x_DeviceKeyPress :: DeviceKeyPress -> Int16
- Graphics.XHB.Gen.Input: event_x_DeviceKeyRelease :: DeviceKeyRelease -> INT16
+ Graphics.XHB.Gen.Input: event_x_DeviceKeyRelease :: DeviceKeyRelease -> Int16
- Graphics.XHB.Gen.Input: event_x_DeviceMotionNotify :: DeviceMotionNotify -> INT16
+ Graphics.XHB.Gen.Input: event_x_DeviceMotionNotify :: DeviceMotionNotify -> Int16
- Graphics.XHB.Gen.Input: event_x_FocusOut :: FocusOut -> INT16
+ Graphics.XHB.Gen.Input: event_x_FocusOut :: FocusOut -> Int16
- Graphics.XHB.Gen.Input: event_x_ProximityIn :: ProximityIn -> INT16
+ Graphics.XHB.Gen.Input: event_x_ProximityIn :: ProximityIn -> Int16
- Graphics.XHB.Gen.Input: event_x_ProximityOut :: ProximityOut -> INT16
+ Graphics.XHB.Gen.Input: event_x_ProximityOut :: ProximityOut -> Int16
- Graphics.XHB.Gen.Input: event_y_DeviceButtonPress :: DeviceButtonPress -> INT16
+ Graphics.XHB.Gen.Input: event_y_DeviceButtonPress :: DeviceButtonPress -> Int16
- Graphics.XHB.Gen.Input: event_y_DeviceButtonRelease :: DeviceButtonRelease -> INT16
+ Graphics.XHB.Gen.Input: event_y_DeviceButtonRelease :: DeviceButtonRelease -> Int16
- Graphics.XHB.Gen.Input: event_y_DeviceKeyPress :: DeviceKeyPress -> INT16
+ Graphics.XHB.Gen.Input: event_y_DeviceKeyPress :: DeviceKeyPress -> Int16
- Graphics.XHB.Gen.Input: event_y_DeviceKeyRelease :: DeviceKeyRelease -> INT16
+ Graphics.XHB.Gen.Input: event_y_DeviceKeyRelease :: DeviceKeyRelease -> Int16
- Graphics.XHB.Gen.Input: event_y_DeviceMotionNotify :: DeviceMotionNotify -> INT16
+ Graphics.XHB.Gen.Input: event_y_DeviceMotionNotify :: DeviceMotionNotify -> Int16
- Graphics.XHB.Gen.Input: event_y_FocusOut :: FocusOut -> INT16
+ Graphics.XHB.Gen.Input: event_y_FocusOut :: FocusOut -> Int16
- Graphics.XHB.Gen.Input: event_y_ProximityIn :: ProximityIn -> INT16
+ Graphics.XHB.Gen.Input: event_y_ProximityIn :: ProximityIn -> Int16
- Graphics.XHB.Gen.Input: event_y_ProximityOut :: ProximityOut -> INT16
+ Graphics.XHB.Gen.Input: event_y_ProximityOut :: ProximityOut -> Int16
- Graphics.XHB.Gen.Input: feedback_class_DeviceBell :: DeviceBell -> CARD8
+ Graphics.XHB.Gen.Input: feedback_class_DeviceBell :: DeviceBell -> Word8
- Graphics.XHB.Gen.Input: feedback_id_DeviceBell :: DeviceBell -> CARD8
+ Graphics.XHB.Gen.Input: feedback_id_DeviceBell :: DeviceBell -> Word8
- Graphics.XHB.Gen.Input: first_valuator_DeviceResolutionCtl :: DeviceResolutionCtl -> CARD8
+ Graphics.XHB.Gen.Input: first_valuator_DeviceResolutionCtl :: DeviceResolutionCtl -> Word8
- Graphics.XHB.Gen.Input: first_valuator_DeviceValuator :: DeviceValuator -> CARD8
+ Graphics.XHB.Gen.Input: first_valuator_DeviceValuator :: DeviceValuator -> Word8
- Graphics.XHB.Gen.Input: first_valuator_SetDeviceValuators :: SetDeviceValuators -> CARD8
+ Graphics.XHB.Gen.Input: first_valuator_SetDeviceValuators :: SetDeviceValuators -> Word8
- Graphics.XHB.Gen.Input: flip_x_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> CARD32
+ Graphics.XHB.Gen.Input: flip_x_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Word32
- Graphics.XHB.Gen.Input: flip_x_DeviceAbsCalibState :: DeviceAbsCalibState -> CARD32
+ Graphics.XHB.Gen.Input: flip_x_DeviceAbsCalibState :: DeviceAbsCalibState -> Word32
- Graphics.XHB.Gen.Input: flip_y_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> CARD32
+ Graphics.XHB.Gen.Input: flip_y_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Word32
- Graphics.XHB.Gen.Input: flip_y_DeviceAbsCalibState :: DeviceAbsCalibState -> CARD32
+ Graphics.XHB.Gen.Input: flip_y_DeviceAbsCalibState :: DeviceAbsCalibState -> Word32
- Graphics.XHB.Gen.Input: following_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> CARD32
+ Graphics.XHB.Gen.Input: following_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Word32
- Graphics.XHB.Gen.Input: following_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD32
+ Graphics.XHB.Gen.Input: following_DeviceAbsAreaState :: DeviceAbsAreaState -> Word32
- Graphics.XHB.Gen.Input: getDeviceButtonMapping :: Connection -> CARD8 -> IO (Receipt GetDeviceButtonMappingReply)
+ Graphics.XHB.Gen.Input: getDeviceButtonMapping :: Connection -> Word8 -> IO (Receipt GetDeviceButtonMappingReply)
- Graphics.XHB.Gen.Input: getDeviceControl :: Connection -> CARD16 -> CARD8 -> IO (Receipt GetDeviceControlReply)
+ Graphics.XHB.Gen.Input: getDeviceControl :: Connection -> Word16 -> Word8 -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: getDeviceFocus :: Connection -> CARD8 -> IO (Receipt GetDeviceFocusReply)
+ Graphics.XHB.Gen.Input: getDeviceFocus :: Connection -> Word8 -> IO (Receipt GetDeviceFocusReply)
- Graphics.XHB.Gen.Input: getDeviceModifierMapping :: Connection -> CARD8 -> IO (Receipt GetDeviceModifierMappingReply)
+ Graphics.XHB.Gen.Input: getDeviceModifierMapping :: Connection -> Word8 -> IO (Receipt GetDeviceModifierMappingReply)
- Graphics.XHB.Gen.Input: getExtensionVersion :: Connection -> CARD16 -> [CChar] -> IO (Receipt GetExtensionVersionReply)
+ Graphics.XHB.Gen.Input: getExtensionVersion :: Connection -> Word16 -> [CChar] -> IO (Receipt GetExtensionVersionReply)
- Graphics.XHB.Gen.Input: getFeedbackControl :: Connection -> CARD8 -> IO (Receipt GetFeedbackControlReply)
+ Graphics.XHB.Gen.Input: getFeedbackControl :: Connection -> Word8 -> IO (Receipt Word16)
- Graphics.XHB.Gen.Input: global_auto_repeat_KbdFeedbackState :: KbdFeedbackState -> BOOL
+ Graphics.XHB.Gen.Input: global_auto_repeat_KbdFeedbackState :: KbdFeedbackState -> Bool
- Graphics.XHB.Gen.Input: grabDevice :: Connection -> GrabDevice -> IO (Receipt GrabDeviceReply)
+ Graphics.XHB.Gen.Input: grabDevice :: Connection -> GrabDevice -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: grabbed_device_GrabDeviceButton :: GrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: grabbed_device_GrabDeviceButton :: GrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: grabbed_device_GrabDeviceKey :: GrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: grabbed_device_GrabDeviceKey :: GrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: grabbed_device_UngrabDeviceButton :: UngrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: grabbed_device_UngrabDeviceButton :: UngrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: grabbed_device_UngrabDeviceKey :: UngrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: grabbed_device_UngrabDeviceKey :: UngrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: height_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> INT32
+ Graphics.XHB.Gen.Input: height_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Int32
- Graphics.XHB.Gen.Input: height_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD32
+ Graphics.XHB.Gen.Input: height_DeviceAbsAreaState :: DeviceAbsAreaState -> Word32
- Graphics.XHB.Gen.Input: id_BellFeedbackCtl :: BellFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: id_BellFeedbackCtl :: BellFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: id_BellFeedbackState :: BellFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: id_BellFeedbackState :: BellFeedbackState -> Word8
- Graphics.XHB.Gen.Input: id_FeedbackCtl :: FeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: id_FeedbackCtl :: FeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: id_FeedbackState :: FeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: id_FeedbackState :: FeedbackState -> Word8
- Graphics.XHB.Gen.Input: id_IntegerFeedbackCtl :: IntegerFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: id_IntegerFeedbackCtl :: IntegerFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: id_IntegerFeedbackState :: IntegerFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: id_IntegerFeedbackState :: IntegerFeedbackState -> Word8
- Graphics.XHB.Gen.Input: id_KbdFeedbackCtl :: KbdFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: id_KbdFeedbackCtl :: KbdFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: id_KbdFeedbackState :: KbdFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: id_KbdFeedbackState :: KbdFeedbackState -> Word8
- Graphics.XHB.Gen.Input: id_LedFeedbackCtl :: LedFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: id_LedFeedbackCtl :: LedFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: id_LedFeedbackState :: LedFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: id_LedFeedbackState :: LedFeedbackState -> Word8
- Graphics.XHB.Gen.Input: id_PtrFeedbackCtl :: PtrFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: id_PtrFeedbackCtl :: PtrFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: id_PtrFeedbackState :: PtrFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: id_PtrFeedbackState :: PtrFeedbackState -> Word8
- Graphics.XHB.Gen.Input: id_StringFeedbackCtl :: StringFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: id_StringFeedbackCtl :: StringFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: id_StringFeedbackState :: StringFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: id_StringFeedbackState :: StringFeedbackState -> Word8
- Graphics.XHB.Gen.Input: int_to_display_IntegerFeedbackCtl :: IntegerFeedbackCtl -> INT32
+ Graphics.XHB.Gen.Input: int_to_display_IntegerFeedbackCtl :: IntegerFeedbackCtl -> Int32
- Graphics.XHB.Gen.Input: iscore_DeviceCoreState :: DeviceCoreState -> CARD8
+ Graphics.XHB.Gen.Input: iscore_DeviceCoreState :: DeviceCoreState -> Word8
- Graphics.XHB.Gen.Input: key_GrabDeviceKey :: GrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: key_GrabDeviceKey :: GrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: key_UngrabDeviceKey :: UngrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: key_UngrabDeviceKey :: UngrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: key_click_percent_KbdFeedbackCtl :: KbdFeedbackCtl -> INT8
+ Graphics.XHB.Gen.Input: key_click_percent_KbdFeedbackCtl :: KbdFeedbackCtl -> Int8
- Graphics.XHB.Gen.Input: keycode_count_ChangeDeviceKeyMapping :: ChangeDeviceKeyMapping -> CARD8
+ Graphics.XHB.Gen.Input: keycode_count_ChangeDeviceKeyMapping :: ChangeDeviceKeyMapping -> Word8
- Graphics.XHB.Gen.Input: keycodes_per_modifier_GetDeviceModifierMappingReply :: GetDeviceModifierMappingReply -> CARD8
+ Graphics.XHB.Gen.Input: keycodes_per_modifier_GetDeviceModifierMappingReply :: GetDeviceModifierMappingReply -> Word8
- Graphics.XHB.Gen.Input: keycodes_per_modifier_SetDeviceModifierMapping :: SetDeviceModifierMapping -> CARD8
+ Graphics.XHB.Gen.Input: keycodes_per_modifier_SetDeviceModifierMapping :: SetDeviceModifierMapping -> Word8
- Graphics.XHB.Gen.Input: keymaps_GetDeviceModifierMappingReply :: GetDeviceModifierMappingReply -> [CARD8]
+ Graphics.XHB.Gen.Input: keymaps_GetDeviceModifierMappingReply :: GetDeviceModifierMappingReply -> [Word8]
- Graphics.XHB.Gen.Input: keymaps_SetDeviceModifierMapping :: SetDeviceModifierMapping -> [CARD8]
+ Graphics.XHB.Gen.Input: keymaps_SetDeviceModifierMapping :: SetDeviceModifierMapping -> [Word8]
- Graphics.XHB.Gen.Input: keys_DeviceKeyStateNotify :: DeviceKeyStateNotify -> [CARD8]
+ Graphics.XHB.Gen.Input: keys_DeviceKeyStateNotify :: DeviceKeyStateNotify -> [Word8]
- Graphics.XHB.Gen.Input: keys_DeviceStateNotify :: DeviceStateNotify -> [CARD8]
+ Graphics.XHB.Gen.Input: keys_DeviceStateNotify :: DeviceStateNotify -> [Word8]
- Graphics.XHB.Gen.Input: keys_KeyState :: KeyState -> [CARD8]
+ Graphics.XHB.Gen.Input: keys_KeyState :: KeyState -> [Word8]
- Graphics.XHB.Gen.Input: keysyms_per_keycode_ChangeDeviceKeyMapping :: ChangeDeviceKeyMapping -> CARD8
+ Graphics.XHB.Gen.Input: keysyms_per_keycode_ChangeDeviceKeyMapping :: ChangeDeviceKeyMapping -> Word8
- Graphics.XHB.Gen.Input: keysyms_per_keycode_GetDeviceKeyMappingReply :: GetDeviceKeyMappingReply -> CARD8
+ Graphics.XHB.Gen.Input: keysyms_per_keycode_GetDeviceKeyMappingReply :: GetDeviceKeyMappingReply -> Word8
- Graphics.XHB.Gen.Input: led_mask_KbdFeedbackCtl :: KbdFeedbackCtl -> CARD32
+ Graphics.XHB.Gen.Input: led_mask_KbdFeedbackCtl :: KbdFeedbackCtl -> Word32
- Graphics.XHB.Gen.Input: led_mask_KbdFeedbackState :: KbdFeedbackState -> CARD32
+ Graphics.XHB.Gen.Input: led_mask_KbdFeedbackState :: KbdFeedbackState -> Word32
- Graphics.XHB.Gen.Input: led_mask_LedFeedbackCtl :: LedFeedbackCtl -> CARD32
+ Graphics.XHB.Gen.Input: led_mask_LedFeedbackCtl :: LedFeedbackCtl -> Word32
- Graphics.XHB.Gen.Input: led_mask_LedFeedbackState :: LedFeedbackState -> CARD32
+ Graphics.XHB.Gen.Input: led_mask_LedFeedbackState :: LedFeedbackState -> Word32
- Graphics.XHB.Gen.Input: led_values_KbdFeedbackCtl :: KbdFeedbackCtl -> CARD32
+ Graphics.XHB.Gen.Input: led_values_KbdFeedbackCtl :: KbdFeedbackCtl -> Word32
- Graphics.XHB.Gen.Input: led_values_KbdFeedbackState :: KbdFeedbackState -> CARD32
+ Graphics.XHB.Gen.Input: led_values_KbdFeedbackState :: KbdFeedbackState -> Word32
- Graphics.XHB.Gen.Input: led_values_LedFeedbackCtl :: LedFeedbackCtl -> CARD32
+ Graphics.XHB.Gen.Input: led_values_LedFeedbackCtl :: LedFeedbackCtl -> Word32
- Graphics.XHB.Gen.Input: led_values_LedFeedbackState :: LedFeedbackState -> CARD32
+ Graphics.XHB.Gen.Input: led_values_LedFeedbackState :: LedFeedbackState -> Word32
- Graphics.XHB.Gen.Input: len_BellFeedbackCtl :: BellFeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_BellFeedbackCtl :: BellFeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: len_BellFeedbackState :: BellFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: len_BellFeedbackState :: BellFeedbackState -> Word16
- Graphics.XHB.Gen.Input: len_ButtonInfo :: ButtonInfo -> CARD8
+ Graphics.XHB.Gen.Input: len_ButtonInfo :: ButtonInfo -> Word8
- Graphics.XHB.Gen.Input: len_ButtonState :: ButtonState -> CARD8
+ Graphics.XHB.Gen.Input: len_ButtonState :: ButtonState -> Word8
- Graphics.XHB.Gen.Input: len_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Word16
- Graphics.XHB.Gen.Input: len_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceAbsAreaState :: DeviceAbsAreaState -> Word16
- Graphics.XHB.Gen.Input: len_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Word16
- Graphics.XHB.Gen.Input: len_DeviceAbsCalibState :: DeviceAbsCalibState -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceAbsCalibState :: DeviceAbsCalibState -> Word16
- Graphics.XHB.Gen.Input: len_DeviceCoreCtrl :: DeviceCoreCtrl -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceCoreCtrl :: DeviceCoreCtrl -> Word16
- Graphics.XHB.Gen.Input: len_DeviceCoreState :: DeviceCoreState -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceCoreState :: DeviceCoreState -> Word16
- Graphics.XHB.Gen.Input: len_DeviceCtl :: DeviceCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceCtl :: DeviceCtl -> Word16
- Graphics.XHB.Gen.Input: len_DeviceEnableCtrl :: DeviceEnableCtrl -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceEnableCtrl :: DeviceEnableCtrl -> Word16
- Graphics.XHB.Gen.Input: len_DeviceEnableState :: DeviceEnableState -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceEnableState :: DeviceEnableState -> Word16
- Graphics.XHB.Gen.Input: len_DeviceResolutionCtl :: DeviceResolutionCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceResolutionCtl :: DeviceResolutionCtl -> Word16
- Graphics.XHB.Gen.Input: len_DeviceResolutionState :: DeviceResolutionState -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceResolutionState :: DeviceResolutionState -> Word16
- Graphics.XHB.Gen.Input: len_DeviceState :: DeviceState -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceState :: DeviceState -> Word16
- Graphics.XHB.Gen.Input: len_FeedbackCtl :: FeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_FeedbackCtl :: FeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: len_FeedbackState :: FeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: len_FeedbackState :: FeedbackState -> Word16
- Graphics.XHB.Gen.Input: len_InputInfo :: InputInfo -> CARD8
+ Graphics.XHB.Gen.Input: len_InputInfo :: InputInfo -> Word8
- Graphics.XHB.Gen.Input: len_InputState :: InputState -> CARD8
+ Graphics.XHB.Gen.Input: len_InputState :: InputState -> Word8
- Graphics.XHB.Gen.Input: len_IntegerFeedbackCtl :: IntegerFeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_IntegerFeedbackCtl :: IntegerFeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: len_IntegerFeedbackState :: IntegerFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: len_IntegerFeedbackState :: IntegerFeedbackState -> Word16
- Graphics.XHB.Gen.Input: len_KbdFeedbackCtl :: KbdFeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_KbdFeedbackCtl :: KbdFeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: len_KbdFeedbackState :: KbdFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: len_KbdFeedbackState :: KbdFeedbackState -> Word16
- Graphics.XHB.Gen.Input: len_KeyInfo :: KeyInfo -> CARD8
+ Graphics.XHB.Gen.Input: len_KeyInfo :: KeyInfo -> Word8
- Graphics.XHB.Gen.Input: len_KeyState :: KeyState -> CARD8
+ Graphics.XHB.Gen.Input: len_KeyState :: KeyState -> Word8
- Graphics.XHB.Gen.Input: len_LedFeedbackCtl :: LedFeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_LedFeedbackCtl :: LedFeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: len_LedFeedbackState :: LedFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: len_LedFeedbackState :: LedFeedbackState -> Word16
- Graphics.XHB.Gen.Input: len_PtrFeedbackCtl :: PtrFeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_PtrFeedbackCtl :: PtrFeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: len_PtrFeedbackState :: PtrFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: len_PtrFeedbackState :: PtrFeedbackState -> Word16
- Graphics.XHB.Gen.Input: len_StringFeedbackCtl :: StringFeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_StringFeedbackCtl :: StringFeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: len_StringFeedbackState :: StringFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: len_StringFeedbackState :: StringFeedbackState -> Word16
- Graphics.XHB.Gen.Input: len_ValuatorInfo :: ValuatorInfo -> CARD8
+ Graphics.XHB.Gen.Input: len_ValuatorInfo :: ValuatorInfo -> Word8
- Graphics.XHB.Gen.Input: len_ValuatorState :: ValuatorState -> CARD8
+ Graphics.XHB.Gen.Input: len_ValuatorState :: ValuatorState -> Word8
- Graphics.XHB.Gen.Input: map_GetDeviceButtonMappingReply :: GetDeviceButtonMappingReply -> [CARD8]
+ Graphics.XHB.Gen.Input: map_GetDeviceButtonMappingReply :: GetDeviceButtonMappingReply -> [Word8]
- Graphics.XHB.Gen.Input: map_SetDeviceButtonMapping :: SetDeviceButtonMapping -> [CARD8]
+ Graphics.XHB.Gen.Input: map_SetDeviceButtonMapping :: SetDeviceButtonMapping -> [Word8]
- Graphics.XHB.Gen.Input: map_size_GetDeviceButtonMappingReply :: GetDeviceButtonMappingReply -> CARD8
+ Graphics.XHB.Gen.Input: map_size_GetDeviceButtonMappingReply :: GetDeviceButtonMappingReply -> Word8
- Graphics.XHB.Gen.Input: map_size_SetDeviceButtonMapping :: SetDeviceButtonMapping -> CARD8
+ Graphics.XHB.Gen.Input: map_size_SetDeviceButtonMapping :: SetDeviceButtonMapping -> Word8
- Graphics.XHB.Gen.Input: max_symbols_StringFeedbackState :: StringFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: max_symbols_StringFeedbackState :: StringFeedbackState -> Word16
- Graphics.XHB.Gen.Input: max_value_IntegerFeedbackState :: IntegerFeedbackState -> INT32
+ Graphics.XHB.Gen.Input: max_value_IntegerFeedbackState :: IntegerFeedbackState -> Int32
- Graphics.XHB.Gen.Input: max_x_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> INT32
+ Graphics.XHB.Gen.Input: max_x_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Int32
- Graphics.XHB.Gen.Input: max_x_DeviceAbsCalibState :: DeviceAbsCalibState -> INT32
+ Graphics.XHB.Gen.Input: max_x_DeviceAbsCalibState :: DeviceAbsCalibState -> Int32
- Graphics.XHB.Gen.Input: max_y_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> INT32
+ Graphics.XHB.Gen.Input: max_y_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Int32
- Graphics.XHB.Gen.Input: max_y_DeviceAbsCalibState :: DeviceAbsCalibState -> INT32
+ Graphics.XHB.Gen.Input: max_y_DeviceAbsCalibState :: DeviceAbsCalibState -> Int32
- Graphics.XHB.Gen.Input: maximum_AxisInfo :: AxisInfo -> CARD32
+ Graphics.XHB.Gen.Input: maximum_AxisInfo :: AxisInfo -> Word32
- Graphics.XHB.Gen.Input: min_value_IntegerFeedbackState :: IntegerFeedbackState -> INT32
+ Graphics.XHB.Gen.Input: min_value_IntegerFeedbackState :: IntegerFeedbackState -> Int32
- Graphics.XHB.Gen.Input: min_x_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> INT32
+ Graphics.XHB.Gen.Input: min_x_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Int32
- Graphics.XHB.Gen.Input: min_x_DeviceAbsCalibState :: DeviceAbsCalibState -> INT32
+ Graphics.XHB.Gen.Input: min_x_DeviceAbsCalibState :: DeviceAbsCalibState -> Int32
- Graphics.XHB.Gen.Input: min_y_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> INT32
+ Graphics.XHB.Gen.Input: min_y_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Int32
- Graphics.XHB.Gen.Input: min_y_DeviceAbsCalibState :: DeviceAbsCalibState -> INT32
+ Graphics.XHB.Gen.Input: min_y_DeviceAbsCalibState :: DeviceAbsCalibState -> Int32
- Graphics.XHB.Gen.Input: minimum_AxisInfo :: AxisInfo -> CARD32
+ Graphics.XHB.Gen.Input: minimum_AxisInfo :: AxisInfo -> Word32
- Graphics.XHB.Gen.Input: mode_AllowDeviceEvents :: AllowDeviceEvents -> CARD8
+ Graphics.XHB.Gen.Input: mode_AllowDeviceEvents :: AllowDeviceEvents -> Word8
- Graphics.XHB.Gen.Input: mode_ChangeDeviceDontPropagateList :: ChangeDeviceDontPropagateList -> CARD8
+ Graphics.XHB.Gen.Input: mode_ChangeDeviceDontPropagateList :: ChangeDeviceDontPropagateList -> Word8
- Graphics.XHB.Gen.Input: mode_FocusIn :: FocusIn -> BYTE
+ Graphics.XHB.Gen.Input: mode_FocusIn :: FocusIn -> Word8
- Graphics.XHB.Gen.Input: mode_SetDeviceMode :: SetDeviceMode -> CARD8
+ Graphics.XHB.Gen.Input: mode_SetDeviceMode :: SetDeviceMode -> Word8
- Graphics.XHB.Gen.Input: mode_ValuatorInfo :: ValuatorInfo -> CARD8
+ Graphics.XHB.Gen.Input: mode_ValuatorInfo :: ValuatorInfo -> Word8
- Graphics.XHB.Gen.Input: mode_ValuatorState :: ValuatorState -> CARD8
+ Graphics.XHB.Gen.Input: mode_ValuatorState :: ValuatorState -> Word8
- Graphics.XHB.Gen.Input: modifier_device_GrabDeviceButton :: GrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: modifier_device_GrabDeviceButton :: GrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: modifier_device_GrabDeviceKey :: GrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: modifier_device_GrabDeviceKey :: GrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: modifier_device_UngrabDeviceButton :: UngrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: modifier_device_UngrabDeviceButton :: UngrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: modifier_device_UngrabDeviceKey :: UngrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: modifier_device_UngrabDeviceKey :: UngrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: modifiers_GrabDeviceButton :: GrabDeviceButton -> CARD16
+ Graphics.XHB.Gen.Input: modifiers_GrabDeviceButton :: GrabDeviceButton -> Word16
- Graphics.XHB.Gen.Input: modifiers_GrabDeviceKey :: GrabDeviceKey -> CARD16
+ Graphics.XHB.Gen.Input: modifiers_GrabDeviceKey :: GrabDeviceKey -> Word16
- Graphics.XHB.Gen.Input: modifiers_UngrabDeviceButton :: UngrabDeviceButton -> CARD16
+ Graphics.XHB.Gen.Input: modifiers_UngrabDeviceButton :: UngrabDeviceButton -> Word16
- Graphics.XHB.Gen.Input: modifiers_UngrabDeviceKey :: UngrabDeviceKey -> CARD16
+ Graphics.XHB.Gen.Input: modifiers_UngrabDeviceKey :: UngrabDeviceKey -> Word16
- Graphics.XHB.Gen.Input: motion_size_ValuatorInfo :: ValuatorInfo -> CARD32
+ Graphics.XHB.Gen.Input: motion_size_ValuatorInfo :: ValuatorInfo -> Word32
- Graphics.XHB.Gen.Input: name_len_GetExtensionVersion :: GetExtensionVersion -> CARD16
+ Graphics.XHB.Gen.Input: name_len_GetExtensionVersion :: GetExtensionVersion -> Word16
- Graphics.XHB.Gen.Input: num_PtrFeedbackCtl :: PtrFeedbackCtl -> INT16
+ Graphics.XHB.Gen.Input: num_PtrFeedbackCtl :: PtrFeedbackCtl -> Int16
- Graphics.XHB.Gen.Input: num_all_classes_GetSelectedExtensionEventsReply :: GetSelectedExtensionEventsReply -> CARD16
+ Graphics.XHB.Gen.Input: num_all_classes_GetSelectedExtensionEventsReply :: GetSelectedExtensionEventsReply -> Word16
- Graphics.XHB.Gen.Input: num_axes_GetDeviceMotionEventsReply :: GetDeviceMotionEventsReply -> CARD8
+ Graphics.XHB.Gen.Input: num_axes_GetDeviceMotionEventsReply :: GetDeviceMotionEventsReply -> Word8
- Graphics.XHB.Gen.Input: num_buttons_ButtonInfo :: ButtonInfo -> CARD16
+ Graphics.XHB.Gen.Input: num_buttons_ButtonInfo :: ButtonInfo -> Word16
- Graphics.XHB.Gen.Input: num_buttons_ButtonState :: ButtonState -> CARD8
+ Graphics.XHB.Gen.Input: num_buttons_ButtonState :: ButtonState -> Word8
- Graphics.XHB.Gen.Input: num_buttons_DeviceStateNotify :: DeviceStateNotify -> CARD8
+ Graphics.XHB.Gen.Input: num_buttons_DeviceStateNotify :: DeviceStateNotify -> Word8
- Graphics.XHB.Gen.Input: num_class_info_DeviceInfo :: DeviceInfo -> CARD8
+ Graphics.XHB.Gen.Input: num_class_info_DeviceInfo :: DeviceInfo -> Word8
- Graphics.XHB.Gen.Input: num_classes_ChangeDeviceDontPropagateList :: ChangeDeviceDontPropagateList -> CARD16
+ Graphics.XHB.Gen.Input: num_classes_ChangeDeviceDontPropagateList :: ChangeDeviceDontPropagateList -> Word16
- Graphics.XHB.Gen.Input: num_classes_GetDeviceDontPropagateListReply :: GetDeviceDontPropagateListReply -> CARD16
+ Graphics.XHB.Gen.Input: num_classes_GetDeviceDontPropagateListReply :: GetDeviceDontPropagateListReply -> Word16
- Graphics.XHB.Gen.Input: num_classes_GrabDevice :: GrabDevice -> CARD16
+ Graphics.XHB.Gen.Input: num_classes_GrabDevice :: GrabDevice -> Word16
- Graphics.XHB.Gen.Input: num_classes_GrabDeviceButton :: GrabDeviceButton -> CARD16
+ Graphics.XHB.Gen.Input: num_classes_GrabDeviceButton :: GrabDeviceButton -> Word16
- Graphics.XHB.Gen.Input: num_classes_GrabDeviceKey :: GrabDeviceKey -> CARD16
+ Graphics.XHB.Gen.Input: num_classes_GrabDeviceKey :: GrabDeviceKey -> Word16
- Graphics.XHB.Gen.Input: num_classes_OpenDeviceReply :: OpenDeviceReply -> CARD8
+ Graphics.XHB.Gen.Input: num_classes_OpenDeviceReply :: OpenDeviceReply -> Word8
- Graphics.XHB.Gen.Input: num_classes_QueryDeviceStateReply :: QueryDeviceStateReply -> CARD8
+ Graphics.XHB.Gen.Input: num_classes_QueryDeviceStateReply :: QueryDeviceStateReply -> Word8
- Graphics.XHB.Gen.Input: num_classes_SelectExtensionEvent :: SelectExtensionEvent -> CARD16
+ Graphics.XHB.Gen.Input: num_classes_SelectExtensionEvent :: SelectExtensionEvent -> Word16
- Graphics.XHB.Gen.Input: num_classes_SendExtensionEvent :: SendExtensionEvent -> CARD16
+ Graphics.XHB.Gen.Input: num_classes_SendExtensionEvent :: SendExtensionEvent -> Word16
- Graphics.XHB.Gen.Input: num_coords_GetDeviceMotionEventsReply :: GetDeviceMotionEventsReply -> CARD32
+ Graphics.XHB.Gen.Input: num_coords_GetDeviceMotionEventsReply :: GetDeviceMotionEventsReply -> Word32
- Graphics.XHB.Gen.Input: num_events_SendExtensionEvent :: SendExtensionEvent -> CARD8
+ Graphics.XHB.Gen.Input: num_events_SendExtensionEvent :: SendExtensionEvent -> Word8
- Graphics.XHB.Gen.Input: num_feedback_GetFeedbackControlReply :: GetFeedbackControlReply -> CARD16
+ Graphics.XHB.Gen.Input: num_feedback_GetFeedbackControlReply :: GetFeedbackControlReply -> Word16
- Graphics.XHB.Gen.Input: num_items_InputState :: InputState -> CARD8
+ Graphics.XHB.Gen.Input: num_items_InputState :: InputState -> Word8
- Graphics.XHB.Gen.Input: num_keys_DeviceStateNotify :: DeviceStateNotify -> CARD8
+ Graphics.XHB.Gen.Input: num_keys_DeviceStateNotify :: DeviceStateNotify -> Word8
- Graphics.XHB.Gen.Input: num_keys_KeyInfo :: KeyInfo -> CARD16
+ Graphics.XHB.Gen.Input: num_keys_KeyInfo :: KeyInfo -> Word16
- Graphics.XHB.Gen.Input: num_keys_KeyState :: KeyState -> CARD8
+ Graphics.XHB.Gen.Input: num_keys_KeyState :: KeyState -> Word8
- Graphics.XHB.Gen.Input: num_keysyms_StringFeedbackCtl :: StringFeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: num_keysyms_StringFeedbackCtl :: StringFeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: num_keysyms_StringFeedbackState :: StringFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: num_keysyms_StringFeedbackState :: StringFeedbackState -> Word16
- Graphics.XHB.Gen.Input: num_this_classes_GetSelectedExtensionEventsReply :: GetSelectedExtensionEventsReply -> CARD16
+ Graphics.XHB.Gen.Input: num_this_classes_GetSelectedExtensionEventsReply :: GetSelectedExtensionEventsReply -> Word16
- Graphics.XHB.Gen.Input: num_valuators_DeviceResolutionCtl :: DeviceResolutionCtl -> CARD8
+ Graphics.XHB.Gen.Input: num_valuators_DeviceResolutionCtl :: DeviceResolutionCtl -> Word8
- Graphics.XHB.Gen.Input: num_valuators_DeviceResolutionState :: DeviceResolutionState -> CARD32
+ Graphics.XHB.Gen.Input: num_valuators_DeviceResolutionState :: DeviceResolutionState -> Word32
- Graphics.XHB.Gen.Input: num_valuators_DeviceStateNotify :: DeviceStateNotify -> CARD8
+ Graphics.XHB.Gen.Input: num_valuators_DeviceStateNotify :: DeviceStateNotify -> Word8
- Graphics.XHB.Gen.Input: num_valuators_DeviceValuator :: DeviceValuator -> CARD8
+ Graphics.XHB.Gen.Input: num_valuators_DeviceValuator :: DeviceValuator -> Word8
- Graphics.XHB.Gen.Input: num_valuators_SetDeviceValuators :: SetDeviceValuators -> CARD8
+ Graphics.XHB.Gen.Input: num_valuators_SetDeviceValuators :: SetDeviceValuators -> Word8
- Graphics.XHB.Gen.Input: num_valuators_ValuatorState :: ValuatorState -> CARD8
+ Graphics.XHB.Gen.Input: num_valuators_ValuatorState :: ValuatorState -> Word8
- Graphics.XHB.Gen.Input: offset_x_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> CARD32
+ Graphics.XHB.Gen.Input: offset_x_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Word32
- Graphics.XHB.Gen.Input: offset_x_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD32
+ Graphics.XHB.Gen.Input: offset_x_DeviceAbsAreaState :: DeviceAbsAreaState -> Word32
- Graphics.XHB.Gen.Input: offset_y_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> CARD32
+ Graphics.XHB.Gen.Input: offset_y_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Word32
- Graphics.XHB.Gen.Input: offset_y_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD32
+ Graphics.XHB.Gen.Input: offset_y_DeviceAbsAreaState :: DeviceAbsAreaState -> Word32
- Graphics.XHB.Gen.Input: openDevice :: Connection -> CARD8 -> IO (Receipt OpenDeviceReply)
+ Graphics.XHB.Gen.Input: openDevice :: Connection -> Word8 -> IO (Receipt OpenDeviceReply)
- Graphics.XHB.Gen.Input: other_device_mode_GrabDevice :: GrabDevice -> CARD8
+ Graphics.XHB.Gen.Input: other_device_mode_GrabDevice :: GrabDevice -> Word8
- Graphics.XHB.Gen.Input: other_device_mode_GrabDeviceButton :: GrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: other_device_mode_GrabDeviceButton :: GrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: other_device_mode_GrabDeviceKey :: GrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: other_device_mode_GrabDeviceKey :: GrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: owner_events_GrabDevice :: GrabDevice -> BOOL
+ Graphics.XHB.Gen.Input: owner_events_GrabDevice :: GrabDevice -> Bool
- Graphics.XHB.Gen.Input: owner_events_GrabDeviceButton :: GrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: owner_events_GrabDeviceButton :: GrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: owner_events_GrabDeviceKey :: GrabDeviceKey -> BOOL
+ Graphics.XHB.Gen.Input: owner_events_GrabDeviceKey :: GrabDeviceKey -> Bool
- Graphics.XHB.Gen.Input: percent_BellFeedbackCtl :: BellFeedbackCtl -> INT8
+ Graphics.XHB.Gen.Input: percent_BellFeedbackCtl :: BellFeedbackCtl -> Int8
- Graphics.XHB.Gen.Input: percent_BellFeedbackState :: BellFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: percent_BellFeedbackState :: BellFeedbackState -> Word8
- Graphics.XHB.Gen.Input: percent_DeviceBell :: DeviceBell -> INT8
+ Graphics.XHB.Gen.Input: percent_DeviceBell :: DeviceBell -> Int8
- Graphics.XHB.Gen.Input: percent_KbdFeedbackState :: KbdFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: percent_KbdFeedbackState :: KbdFeedbackState -> Word8
- Graphics.XHB.Gen.Input: pitch_BellFeedbackCtl :: BellFeedbackCtl -> INT16
+ Graphics.XHB.Gen.Input: pitch_BellFeedbackCtl :: BellFeedbackCtl -> Int16
- Graphics.XHB.Gen.Input: pitch_BellFeedbackState :: BellFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: pitch_BellFeedbackState :: BellFeedbackState -> Word16
- Graphics.XHB.Gen.Input: pitch_KbdFeedbackState :: KbdFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: pitch_KbdFeedbackState :: KbdFeedbackState -> Word16
- Graphics.XHB.Gen.Input: present_GetExtensionVersionReply :: GetExtensionVersionReply -> CARD8
+ Graphics.XHB.Gen.Input: present_GetExtensionVersionReply :: GetExtensionVersionReply -> Word8
- Graphics.XHB.Gen.Input: propagate_SendExtensionEvent :: SendExtensionEvent -> BOOL
+ Graphics.XHB.Gen.Input: propagate_SendExtensionEvent :: SendExtensionEvent -> Bool
- Graphics.XHB.Gen.Input: queryDeviceState :: Connection -> CARD8 -> IO (Receipt QueryDeviceStateReply)
+ Graphics.XHB.Gen.Input: queryDeviceState :: Connection -> Word8 -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: request_ChangeDeviceNotify :: ChangeDeviceNotify -> CARD8
+ Graphics.XHB.Gen.Input: request_ChangeDeviceNotify :: ChangeDeviceNotify -> Word8
- Graphics.XHB.Gen.Input: request_DeviceMappingNotify :: DeviceMappingNotify -> CARD8
+ Graphics.XHB.Gen.Input: request_DeviceMappingNotify :: DeviceMappingNotify -> Word8
- Graphics.XHB.Gen.Input: resolution_AxisInfo :: AxisInfo -> CARD32
+ Graphics.XHB.Gen.Input: resolution_AxisInfo :: AxisInfo -> Word32
- Graphics.XHB.Gen.Input: resolution_IntegerFeedbackState :: IntegerFeedbackState -> CARD32
+ Graphics.XHB.Gen.Input: resolution_IntegerFeedbackState :: IntegerFeedbackState -> Word32
- Graphics.XHB.Gen.Input: resolution_max_DeviceResolutionState :: DeviceResolutionState -> [CARD32]
+ Graphics.XHB.Gen.Input: resolution_max_DeviceResolutionState :: DeviceResolutionState -> [Word32]
- Graphics.XHB.Gen.Input: resolution_min_DeviceResolutionState :: DeviceResolutionState -> [CARD32]
+ Graphics.XHB.Gen.Input: resolution_min_DeviceResolutionState :: DeviceResolutionState -> [Word32]
- Graphics.XHB.Gen.Input: resolution_values_DeviceResolutionCtl :: DeviceResolutionCtl -> [CARD32]
+ Graphics.XHB.Gen.Input: resolution_values_DeviceResolutionCtl :: DeviceResolutionCtl -> [Word32]
- Graphics.XHB.Gen.Input: resolution_values_DeviceResolutionState :: DeviceResolutionState -> [CARD32]
+ Graphics.XHB.Gen.Input: resolution_values_DeviceResolutionState :: DeviceResolutionState -> [Word32]
- Graphics.XHB.Gen.Input: revert_to_GetDeviceFocusReply :: GetDeviceFocusReply -> CARD8
+ Graphics.XHB.Gen.Input: revert_to_GetDeviceFocusReply :: GetDeviceFocusReply -> Word8
- Graphics.XHB.Gen.Input: revert_to_SetDeviceFocus :: SetDeviceFocus -> CARD8
+ Graphics.XHB.Gen.Input: revert_to_SetDeviceFocus :: SetDeviceFocus -> Word8
- Graphics.XHB.Gen.Input: root_x_DeviceButtonPress :: DeviceButtonPress -> INT16
+ Graphics.XHB.Gen.Input: root_x_DeviceButtonPress :: DeviceButtonPress -> Int16
- Graphics.XHB.Gen.Input: root_x_DeviceButtonRelease :: DeviceButtonRelease -> INT16
+ Graphics.XHB.Gen.Input: root_x_DeviceButtonRelease :: DeviceButtonRelease -> Int16
- Graphics.XHB.Gen.Input: root_x_DeviceKeyPress :: DeviceKeyPress -> INT16
+ Graphics.XHB.Gen.Input: root_x_DeviceKeyPress :: DeviceKeyPress -> Int16
- Graphics.XHB.Gen.Input: root_x_DeviceKeyRelease :: DeviceKeyRelease -> INT16
+ Graphics.XHB.Gen.Input: root_x_DeviceKeyRelease :: DeviceKeyRelease -> Int16
- Graphics.XHB.Gen.Input: root_x_DeviceMotionNotify :: DeviceMotionNotify -> INT16
+ Graphics.XHB.Gen.Input: root_x_DeviceMotionNotify :: DeviceMotionNotify -> Int16
- Graphics.XHB.Gen.Input: root_x_FocusOut :: FocusOut -> INT16
+ Graphics.XHB.Gen.Input: root_x_FocusOut :: FocusOut -> Int16
- Graphics.XHB.Gen.Input: root_x_ProximityIn :: ProximityIn -> INT16
+ Graphics.XHB.Gen.Input: root_x_ProximityIn :: ProximityIn -> Int16
- Graphics.XHB.Gen.Input: root_x_ProximityOut :: ProximityOut -> INT16
+ Graphics.XHB.Gen.Input: root_x_ProximityOut :: ProximityOut -> Int16
- Graphics.XHB.Gen.Input: root_y_DeviceButtonPress :: DeviceButtonPress -> INT16
+ Graphics.XHB.Gen.Input: root_y_DeviceButtonPress :: DeviceButtonPress -> Int16
- Graphics.XHB.Gen.Input: root_y_DeviceButtonRelease :: DeviceButtonRelease -> INT16
+ Graphics.XHB.Gen.Input: root_y_DeviceButtonRelease :: DeviceButtonRelease -> Int16
- Graphics.XHB.Gen.Input: root_y_DeviceKeyPress :: DeviceKeyPress -> INT16
+ Graphics.XHB.Gen.Input: root_y_DeviceKeyPress :: DeviceKeyPress -> Int16
- Graphics.XHB.Gen.Input: root_y_DeviceKeyRelease :: DeviceKeyRelease -> INT16
+ Graphics.XHB.Gen.Input: root_y_DeviceKeyRelease :: DeviceKeyRelease -> Int16
- Graphics.XHB.Gen.Input: root_y_DeviceMotionNotify :: DeviceMotionNotify -> INT16
+ Graphics.XHB.Gen.Input: root_y_DeviceMotionNotify :: DeviceMotionNotify -> Int16
- Graphics.XHB.Gen.Input: root_y_FocusOut :: FocusOut -> INT16
+ Graphics.XHB.Gen.Input: root_y_FocusOut :: FocusOut -> Int16
- Graphics.XHB.Gen.Input: root_y_ProximityIn :: ProximityIn -> INT16
+ Graphics.XHB.Gen.Input: root_y_ProximityIn :: ProximityIn -> Int16
- Graphics.XHB.Gen.Input: root_y_ProximityOut :: ProximityOut -> INT16
+ Graphics.XHB.Gen.Input: root_y_ProximityOut :: ProximityOut -> Int16
- Graphics.XHB.Gen.Input: rotation_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> CARD32
+ Graphics.XHB.Gen.Input: rotation_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Word32
- Graphics.XHB.Gen.Input: rotation_DeviceAbsCalibState :: DeviceAbsCalibState -> CARD32
+ Graphics.XHB.Gen.Input: rotation_DeviceAbsCalibState :: DeviceAbsCalibState -> Word32
- Graphics.XHB.Gen.Input: same_screen_DeviceButtonPress :: DeviceButtonPress -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_DeviceButtonPress :: DeviceButtonPress -> Bool
- Graphics.XHB.Gen.Input: same_screen_DeviceButtonRelease :: DeviceButtonRelease -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_DeviceButtonRelease :: DeviceButtonRelease -> Bool
- Graphics.XHB.Gen.Input: same_screen_DeviceKeyPress :: DeviceKeyPress -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_DeviceKeyPress :: DeviceKeyPress -> Bool
- Graphics.XHB.Gen.Input: same_screen_DeviceKeyRelease :: DeviceKeyRelease -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_DeviceKeyRelease :: DeviceKeyRelease -> Bool
- Graphics.XHB.Gen.Input: same_screen_DeviceMotionNotify :: DeviceMotionNotify -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_DeviceMotionNotify :: DeviceMotionNotify -> Bool
- Graphics.XHB.Gen.Input: same_screen_FocusOut :: FocusOut -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_FocusOut :: FocusOut -> Bool
- Graphics.XHB.Gen.Input: same_screen_ProximityIn :: ProximityIn -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_ProximityIn :: ProximityIn -> Bool
- Graphics.XHB.Gen.Input: same_screen_ProximityOut :: ProximityOut -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_ProximityOut :: ProximityOut -> Bool
- Graphics.XHB.Gen.Input: screen_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> INT32
+ Graphics.XHB.Gen.Input: screen_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Int32
- Graphics.XHB.Gen.Input: screen_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD32
+ Graphics.XHB.Gen.Input: screen_DeviceAbsAreaState :: DeviceAbsAreaState -> Word32
- Graphics.XHB.Gen.Input: server_major_GetExtensionVersionReply :: GetExtensionVersionReply -> CARD16
+ Graphics.XHB.Gen.Input: server_major_GetExtensionVersionReply :: GetExtensionVersionReply -> Word16
- Graphics.XHB.Gen.Input: server_minor_GetExtensionVersionReply :: GetExtensionVersionReply -> CARD16
+ Graphics.XHB.Gen.Input: server_minor_GetExtensionVersionReply :: GetExtensionVersionReply -> Word16
- Graphics.XHB.Gen.Input: setDeviceButtonMapping :: Connection -> SetDeviceButtonMapping -> IO (Receipt SetDeviceButtonMappingReply)
+ Graphics.XHB.Gen.Input: setDeviceButtonMapping :: Connection -> SetDeviceButtonMapping -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: setDeviceMode :: Connection -> CARD8 -> CARD8 -> IO (Receipt SetDeviceModeReply)
+ Graphics.XHB.Gen.Input: setDeviceMode :: Connection -> Word8 -> Word8 -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: setDeviceModifierMapping :: Connection -> SetDeviceModifierMapping -> IO (Receipt SetDeviceModifierMappingReply)
+ Graphics.XHB.Gen.Input: setDeviceModifierMapping :: Connection -> SetDeviceModifierMapping -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: setDeviceValuators :: Connection -> SetDeviceValuators -> IO (Receipt SetDeviceValuatorsReply)
+ Graphics.XHB.Gen.Input: setDeviceValuators :: Connection -> SetDeviceValuators -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: state_DeviceButtonPress :: DeviceButtonPress -> CARD16
+ Graphics.XHB.Gen.Input: state_DeviceButtonPress :: DeviceButtonPress -> Word16
- Graphics.XHB.Gen.Input: state_DeviceButtonRelease :: DeviceButtonRelease -> CARD16
+ Graphics.XHB.Gen.Input: state_DeviceButtonRelease :: DeviceButtonRelease -> Word16
- Graphics.XHB.Gen.Input: state_DeviceKeyPress :: DeviceKeyPress -> CARD16
+ Graphics.XHB.Gen.Input: state_DeviceKeyPress :: DeviceKeyPress -> Word16
- Graphics.XHB.Gen.Input: state_DeviceKeyRelease :: DeviceKeyRelease -> CARD16
+ Graphics.XHB.Gen.Input: state_DeviceKeyRelease :: DeviceKeyRelease -> Word16
- Graphics.XHB.Gen.Input: state_DeviceMotionNotify :: DeviceMotionNotify -> CARD16
+ Graphics.XHB.Gen.Input: state_DeviceMotionNotify :: DeviceMotionNotify -> Word16
- Graphics.XHB.Gen.Input: state_FocusOut :: FocusOut -> CARD16
+ Graphics.XHB.Gen.Input: state_FocusOut :: FocusOut -> Word16
- Graphics.XHB.Gen.Input: state_ProximityIn :: ProximityIn -> CARD16
+ Graphics.XHB.Gen.Input: state_ProximityIn :: ProximityIn -> Word16
- Graphics.XHB.Gen.Input: state_ProximityOut :: ProximityOut -> CARD16
+ Graphics.XHB.Gen.Input: state_ProximityOut :: ProximityOut -> Word16
- Graphics.XHB.Gen.Input: status_ChangeKeyboardDeviceReply :: ChangeKeyboardDeviceReply -> CARD8
+ Graphics.XHB.Gen.Input: status_ChangeKeyboardDeviceReply :: ChangeKeyboardDeviceReply -> Word8
- Graphics.XHB.Gen.Input: status_ChangePointerDeviceReply :: ChangePointerDeviceReply -> CARD8
+ Graphics.XHB.Gen.Input: status_ChangePointerDeviceReply :: ChangePointerDeviceReply -> Word8
- Graphics.XHB.Gen.Input: status_DeviceCoreCtrl :: DeviceCoreCtrl -> CARD8
+ Graphics.XHB.Gen.Input: status_DeviceCoreCtrl :: DeviceCoreCtrl -> Word8
- Graphics.XHB.Gen.Input: status_DeviceCoreState :: DeviceCoreState -> CARD8
+ Graphics.XHB.Gen.Input: status_DeviceCoreState :: DeviceCoreState -> Word8
- Graphics.XHB.Gen.Input: status_GetDeviceControlReply :: GetDeviceControlReply -> CARD8
+ Graphics.XHB.Gen.Input: status_GetDeviceControlReply :: GetDeviceControlReply -> Word8
- Graphics.XHB.Gen.Input: status_GrabDeviceReply :: GrabDeviceReply -> CARD8
+ Graphics.XHB.Gen.Input: status_GrabDeviceReply :: GrabDeviceReply -> Word8
- Graphics.XHB.Gen.Input: status_SetDeviceButtonMappingReply :: SetDeviceButtonMappingReply -> CARD8
+ Graphics.XHB.Gen.Input: status_SetDeviceButtonMappingReply :: SetDeviceButtonMappingReply -> Word8
- Graphics.XHB.Gen.Input: status_SetDeviceModeReply :: SetDeviceModeReply -> CARD8
+ Graphics.XHB.Gen.Input: status_SetDeviceModeReply :: SetDeviceModeReply -> Word8
- Graphics.XHB.Gen.Input: status_SetDeviceModifierMappingReply :: SetDeviceModifierMappingReply -> CARD8
+ Graphics.XHB.Gen.Input: status_SetDeviceModifierMappingReply :: SetDeviceModifierMappingReply -> Word8
- Graphics.XHB.Gen.Input: status_SetDeviceValuatorsReply :: SetDeviceValuatorsReply -> CARD8
+ Graphics.XHB.Gen.Input: status_SetDeviceValuatorsReply :: SetDeviceValuatorsReply -> Word8
- Graphics.XHB.Gen.Input: this_device_mode_GrabDevice :: GrabDevice -> CARD8
+ Graphics.XHB.Gen.Input: this_device_mode_GrabDevice :: GrabDevice -> Word8
- Graphics.XHB.Gen.Input: this_device_mode_GrabDeviceButton :: GrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: this_device_mode_GrabDeviceButton :: GrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: this_device_mode_GrabDeviceKey :: GrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: this_device_mode_GrabDeviceKey :: GrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: threshold_PtrFeedbackCtl :: PtrFeedbackCtl -> INT16
+ Graphics.XHB.Gen.Input: threshold_PtrFeedbackCtl :: PtrFeedbackCtl -> Int16
- Graphics.XHB.Gen.Input: threshold_PtrFeedbackState :: PtrFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: threshold_PtrFeedbackState :: PtrFeedbackState -> Word16
- Graphics.XHB.Gen.Input: type EventClass = CARD32
+ Graphics.XHB.Gen.Input: type EventClass = Word32
- Graphics.XHB.Gen.Input: type KeyCode = CARD8
+ Graphics.XHB.Gen.Input: type KeyCode = Word8
- Graphics.XHB.Gen.Input: ungrabDevice :: Connection -> TIMESTAMP -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Input: ungrabDevice :: Connection -> TIMESTAMP -> Word8 -> IO ()
- Graphics.XHB.Gen.Input: valuators_DeviceStateNotify :: DeviceStateNotify -> [CARD32]
+ Graphics.XHB.Gen.Input: valuators_DeviceStateNotify :: DeviceStateNotify -> [Word32]
- Graphics.XHB.Gen.Input: valuators_DeviceValuator :: DeviceValuator -> [INT32]
+ Graphics.XHB.Gen.Input: valuators_DeviceValuator :: DeviceValuator -> [Int32]
- Graphics.XHB.Gen.Input: valuators_SetDeviceValuators :: SetDeviceValuators -> [INT32]
+ Graphics.XHB.Gen.Input: valuators_SetDeviceValuators :: SetDeviceValuators -> [Int32]
- Graphics.XHB.Gen.Input: valuators_ValuatorState :: ValuatorState -> [CARD32]
+ Graphics.XHB.Gen.Input: valuators_ValuatorState :: ValuatorState -> [Word32]
- Graphics.XHB.Gen.Input: width_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> INT32
+ Graphics.XHB.Gen.Input: width_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Int32
- Graphics.XHB.Gen.Input: width_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD32
+ Graphics.XHB.Gen.Input: width_DeviceAbsAreaState :: DeviceAbsAreaState -> Word32
- Graphics.XHB.Gen.Input: x_axis_ChangePointerDevice :: ChangePointerDevice -> CARD8
+ Graphics.XHB.Gen.Input: x_axis_ChangePointerDevice :: ChangePointerDevice -> Word8
- Graphics.XHB.Gen.Input: y_axis_ChangePointerDevice :: ChangePointerDevice -> CARD8
+ Graphics.XHB.Gen.Input: y_axis_ChangePointerDevice :: ChangePointerDevice -> Word8
- Graphics.XHB.Gen.RandR: MkChangeOutputProperty :: OUTPUT -> ATOM -> ATOM -> CARD8 -> CARD8 -> CARD32 -> [Word8] -> ChangeOutputProperty
+ Graphics.XHB.Gen.RandR: MkChangeOutputProperty :: OUTPUT -> ATOM -> ATOM -> Word8 -> Word8 -> Word32 -> [Word8] -> ChangeOutputProperty
- Graphics.XHB.Gen.RandR: MkConfigureOutputProperty :: OUTPUT -> ATOM -> BOOL -> BOOL -> [INT32] -> ConfigureOutputProperty
+ Graphics.XHB.Gen.RandR: MkConfigureOutputProperty :: OUTPUT -> ATOM -> Bool -> Bool -> [Int32] -> ConfigureOutputProperty
- Graphics.XHB.Gen.RandR: MkCrtcChange :: TIMESTAMP -> WINDOW -> CRTC -> MODE -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> CrtcChange
+ Graphics.XHB.Gen.RandR: MkCrtcChange :: TIMESTAMP -> WINDOW -> CRTC -> MODE -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> CrtcChange
- Graphics.XHB.Gen.RandR: MkGetCrtcGammaReply :: CARD16 -> [CARD16] -> [CARD16] -> [CARD16] -> GetCrtcGammaReply
+ Graphics.XHB.Gen.RandR: MkGetCrtcGammaReply :: Word16 -> [Word16] -> [Word16] -> [Word16] -> GetCrtcGammaReply
- Graphics.XHB.Gen.RandR: MkGetCrtcGammaSizeReply :: CARD16 -> GetCrtcGammaSizeReply
+ Graphics.XHB.Gen.RandR: MkGetCrtcGammaSizeReply :: Word16 -> GetCrtcGammaSizeReply
- Graphics.XHB.Gen.RandR: MkGetCrtcInfoReply :: CARD8 -> TIMESTAMP -> INT16 -> INT16 -> CARD16 -> CARD16 -> MODE -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> [OUTPUT] -> [OUTPUT] -> GetCrtcInfoReply
+ Graphics.XHB.Gen.RandR: MkGetCrtcInfoReply :: Word8 -> TIMESTAMP -> Int16 -> Int16 -> Word16 -> Word16 -> MODE -> Word16 -> Word16 -> Word16 -> Word16 -> [OUTPUT] -> [OUTPUT] -> GetCrtcInfoReply
- Graphics.XHB.Gen.RandR: MkGetOutputInfoReply :: CARD8 -> TIMESTAMP -> CRTC -> CARD32 -> CARD32 -> CARD8 -> CARD8 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> [CRTC] -> [MODE] -> [OUTPUT] -> [BYTE] -> GetOutputInfoReply
+ Graphics.XHB.Gen.RandR: MkGetOutputInfoReply :: Word8 -> TIMESTAMP -> CRTC -> Word32 -> Word32 -> Word8 -> Word8 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> [CRTC] -> [MODE] -> [OUTPUT] -> [Word8] -> GetOutputInfoReply
- Graphics.XHB.Gen.RandR: MkGetOutputProperty :: OUTPUT -> ATOM -> ATOM -> CARD32 -> CARD32 -> BOOL -> BOOL -> GetOutputProperty
+ Graphics.XHB.Gen.RandR: MkGetOutputProperty :: OUTPUT -> ATOM -> ATOM -> Word32 -> Word32 -> Bool -> Bool -> GetOutputProperty
- Graphics.XHB.Gen.RandR: MkGetOutputPropertyReply :: CARD8 -> ATOM -> CARD32 -> CARD32 -> [BYTE] -> GetOutputPropertyReply
+ Graphics.XHB.Gen.RandR: MkGetOutputPropertyReply :: Word8 -> ATOM -> Word32 -> Word32 -> [Word8] -> GetOutputPropertyReply
- Graphics.XHB.Gen.RandR: MkGetScreenInfoReply :: CARD8 -> WINDOW -> TIMESTAMP -> TIMESTAMP -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> [ScreenSize] -> [RefreshRates] -> GetScreenInfoReply
+ Graphics.XHB.Gen.RandR: MkGetScreenInfoReply :: Word8 -> WINDOW -> TIMESTAMP -> TIMESTAMP -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> [ScreenSize] -> [RefreshRates] -> GetScreenInfoReply
- Graphics.XHB.Gen.RandR: MkGetScreenResourcesReply :: TIMESTAMP -> TIMESTAMP -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> [CRTC] -> [OUTPUT] -> [ModeInfo] -> [BYTE] -> GetScreenResourcesReply
+ Graphics.XHB.Gen.RandR: MkGetScreenResourcesReply :: TIMESTAMP -> TIMESTAMP -> Word16 -> Word16 -> Word16 -> Word16 -> [CRTC] -> [OUTPUT] -> [ModeInfo] -> [Word8] -> GetScreenResourcesReply
- Graphics.XHB.Gen.RandR: MkGetScreenSizeRangeReply :: CARD16 -> CARD16 -> CARD16 -> CARD16 -> GetScreenSizeRangeReply
+ Graphics.XHB.Gen.RandR: MkGetScreenSizeRangeReply :: Word16 -> Word16 -> Word16 -> Word16 -> GetScreenSizeRangeReply
- Graphics.XHB.Gen.RandR: MkListOutputPropertiesReply :: CARD16 -> [ATOM] -> ListOutputPropertiesReply
+ Graphics.XHB.Gen.RandR: MkListOutputPropertiesReply :: Word16 -> [ATOM] -> ListOutputPropertiesReply
- Graphics.XHB.Gen.RandR: MkModeInfo :: CARD32 -> CARD16 -> CARD16 -> CARD32 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD32 -> ModeInfo
+ Graphics.XHB.Gen.RandR: MkModeInfo :: Word32 -> Word16 -> Word16 -> Word32 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word32 -> ModeInfo
- Graphics.XHB.Gen.RandR: MkNotify :: CARD8 -> NotifyData -> Notify
+ Graphics.XHB.Gen.RandR: MkNotify :: Word8 -> NotifyData -> Notify
- Graphics.XHB.Gen.RandR: MkOutputChange :: TIMESTAMP -> TIMESTAMP -> WINDOW -> OUTPUT -> CRTC -> MODE -> CARD16 -> CARD8 -> CARD8 -> OutputChange
+ Graphics.XHB.Gen.RandR: MkOutputChange :: TIMESTAMP -> TIMESTAMP -> WINDOW -> OUTPUT -> CRTC -> MODE -> Word16 -> Word8 -> Word8 -> OutputChange
- Graphics.XHB.Gen.RandR: MkOutputProperty :: WINDOW -> OUTPUT -> ATOM -> TIMESTAMP -> CARD8 -> OutputProperty
+ Graphics.XHB.Gen.RandR: MkOutputProperty :: WINDOW -> OUTPUT -> ATOM -> TIMESTAMP -> Word8 -> OutputProperty
- Graphics.XHB.Gen.RandR: MkQueryOutputPropertyReply :: BOOL -> BOOL -> BOOL -> [INT32] -> QueryOutputPropertyReply
+ Graphics.XHB.Gen.RandR: MkQueryOutputPropertyReply :: Bool -> Bool -> Bool -> [Int32] -> QueryOutputPropertyReply
- Graphics.XHB.Gen.RandR: MkQueryVersion :: CARD32 -> CARD32 -> QueryVersion
+ Graphics.XHB.Gen.RandR: MkQueryVersion :: Word32 -> Word32 -> QueryVersion
- Graphics.XHB.Gen.RandR: MkQueryVersionReply :: CARD32 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.RandR: MkQueryVersionReply :: Word32 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.RandR: MkRefreshRates :: CARD16 -> [CARD16] -> RefreshRates
+ Graphics.XHB.Gen.RandR: MkRefreshRates :: Word16 -> [Word16] -> RefreshRates
- Graphics.XHB.Gen.RandR: MkScreenChangeNotify :: CARD8 -> TIMESTAMP -> TIMESTAMP -> WINDOW -> WINDOW -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> ScreenChangeNotify
+ Graphics.XHB.Gen.RandR: MkScreenChangeNotify :: Word8 -> TIMESTAMP -> TIMESTAMP -> WINDOW -> WINDOW -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> ScreenChangeNotify
- Graphics.XHB.Gen.RandR: MkScreenSize :: CARD16 -> CARD16 -> CARD16 -> CARD16 -> ScreenSize
+ Graphics.XHB.Gen.RandR: MkScreenSize :: Word16 -> Word16 -> Word16 -> Word16 -> ScreenSize
- Graphics.XHB.Gen.RandR: MkSelectInput :: WINDOW -> CARD16 -> SelectInput
+ Graphics.XHB.Gen.RandR: MkSelectInput :: WINDOW -> Word16 -> SelectInput
- Graphics.XHB.Gen.RandR: MkSetCrtcConfig :: CRTC -> TIMESTAMP -> TIMESTAMP -> INT16 -> INT16 -> MODE -> CARD16 -> [OUTPUT] -> SetCrtcConfig
+ Graphics.XHB.Gen.RandR: MkSetCrtcConfig :: CRTC -> TIMESTAMP -> TIMESTAMP -> Int16 -> Int16 -> MODE -> Word16 -> [OUTPUT] -> SetCrtcConfig
- Graphics.XHB.Gen.RandR: MkSetCrtcConfigReply :: CARD8 -> TIMESTAMP -> SetCrtcConfigReply
+ Graphics.XHB.Gen.RandR: MkSetCrtcConfigReply :: Word8 -> TIMESTAMP -> SetCrtcConfigReply
- Graphics.XHB.Gen.RandR: MkSetCrtcGamma :: CRTC -> CARD16 -> [CARD16] -> [CARD16] -> [CARD16] -> SetCrtcGamma
+ Graphics.XHB.Gen.RandR: MkSetCrtcGamma :: CRTC -> Word16 -> [Word16] -> [Word16] -> [Word16] -> SetCrtcGamma
- Graphics.XHB.Gen.RandR: MkSetScreenConfig :: WINDOW -> TIMESTAMP -> TIMESTAMP -> CARD16 -> CARD16 -> CARD16 -> SetScreenConfig
+ Graphics.XHB.Gen.RandR: MkSetScreenConfig :: WINDOW -> TIMESTAMP -> TIMESTAMP -> Word16 -> Word16 -> Word16 -> SetScreenConfig
- Graphics.XHB.Gen.RandR: MkSetScreenConfigReply :: CARD8 -> TIMESTAMP -> TIMESTAMP -> WINDOW -> CARD16 -> SetScreenConfigReply
+ Graphics.XHB.Gen.RandR: MkSetScreenConfigReply :: Word8 -> TIMESTAMP -> TIMESTAMP -> WINDOW -> Word16 -> SetScreenConfigReply
- Graphics.XHB.Gen.RandR: MkSetScreenSize :: WINDOW -> CARD16 -> CARD16 -> CARD32 -> CARD32 -> SetScreenSize
+ Graphics.XHB.Gen.RandR: MkSetScreenSize :: WINDOW -> Word16 -> Word16 -> Word32 -> Word32 -> SetScreenSize
- Graphics.XHB.Gen.RandR: blue_GetCrtcGammaReply :: GetCrtcGammaReply -> [CARD16]
+ Graphics.XHB.Gen.RandR: blue_GetCrtcGammaReply :: GetCrtcGammaReply -> [Word16]
- Graphics.XHB.Gen.RandR: blue_SetCrtcGamma :: SetCrtcGamma -> [CARD16]
+ Graphics.XHB.Gen.RandR: blue_SetCrtcGamma :: SetCrtcGamma -> [Word16]
- Graphics.XHB.Gen.RandR: bytes_after_GetOutputPropertyReply :: GetOutputPropertyReply -> CARD32
+ Graphics.XHB.Gen.RandR: bytes_after_GetOutputPropertyReply :: GetOutputPropertyReply -> Word32
- Graphics.XHB.Gen.RandR: connection_GetOutputInfoReply :: GetOutputInfoReply -> CARD8
+ Graphics.XHB.Gen.RandR: connection_GetOutputInfoReply :: GetOutputInfoReply -> Word8
- Graphics.XHB.Gen.RandR: connection_OutputChange :: OutputChange -> CARD8
+ Graphics.XHB.Gen.RandR: connection_OutputChange :: OutputChange -> Word8
- Graphics.XHB.Gen.RandR: createMode :: Connection -> CreateMode -> IO (Receipt CreateModeReply)
+ Graphics.XHB.Gen.RandR: createMode :: Connection -> CreateMode -> IO (Receipt MODE)
- Graphics.XHB.Gen.RandR: data_GetOutputPropertyReply :: GetOutputPropertyReply -> [BYTE]
+ Graphics.XHB.Gen.RandR: data_GetOutputPropertyReply :: GetOutputPropertyReply -> [Word8]
- Graphics.XHB.Gen.RandR: delete_GetOutputProperty :: GetOutputProperty -> BOOL
+ Graphics.XHB.Gen.RandR: delete_GetOutputProperty :: GetOutputProperty -> Bool
- Graphics.XHB.Gen.RandR: dot_clock_ModeInfo :: ModeInfo -> CARD32
+ Graphics.XHB.Gen.RandR: dot_clock_ModeInfo :: ModeInfo -> Word32
- Graphics.XHB.Gen.RandR: enable_SelectInput :: SelectInput -> CARD16
+ Graphics.XHB.Gen.RandR: enable_SelectInput :: SelectInput -> Word16
- Graphics.XHB.Gen.RandR: format_ChangeOutputProperty :: ChangeOutputProperty -> CARD8
+ Graphics.XHB.Gen.RandR: format_ChangeOutputProperty :: ChangeOutputProperty -> Word8
- Graphics.XHB.Gen.RandR: format_GetOutputPropertyReply :: GetOutputPropertyReply -> CARD8
+ Graphics.XHB.Gen.RandR: format_GetOutputPropertyReply :: GetOutputPropertyReply -> Word8
- Graphics.XHB.Gen.RandR: getCrtcGammaSize :: Connection -> CRTC -> IO (Receipt GetCrtcGammaSizeReply)
+ Graphics.XHB.Gen.RandR: getCrtcGammaSize :: Connection -> CRTC -> IO (Receipt Word16)
- Graphics.XHB.Gen.RandR: green_GetCrtcGammaReply :: GetCrtcGammaReply -> [CARD16]
+ Graphics.XHB.Gen.RandR: green_GetCrtcGammaReply :: GetCrtcGammaReply -> [Word16]
- Graphics.XHB.Gen.RandR: green_SetCrtcGamma :: SetCrtcGamma -> [CARD16]
+ Graphics.XHB.Gen.RandR: green_SetCrtcGamma :: SetCrtcGamma -> [Word16]
- Graphics.XHB.Gen.RandR: height_CrtcChange :: CrtcChange -> CARD16
+ Graphics.XHB.Gen.RandR: height_CrtcChange :: CrtcChange -> Word16
- Graphics.XHB.Gen.RandR: height_GetCrtcInfoReply :: GetCrtcInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: height_GetCrtcInfoReply :: GetCrtcInfoReply -> Word16
- Graphics.XHB.Gen.RandR: height_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: height_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: height_ScreenChangeNotify :: ScreenChangeNotify -> CARD16
+ Graphics.XHB.Gen.RandR: height_ScreenChangeNotify :: ScreenChangeNotify -> Word16
- Graphics.XHB.Gen.RandR: height_ScreenSize :: ScreenSize -> CARD16
+ Graphics.XHB.Gen.RandR: height_ScreenSize :: ScreenSize -> Word16
- Graphics.XHB.Gen.RandR: height_SetScreenSize :: SetScreenSize -> CARD16
+ Graphics.XHB.Gen.RandR: height_SetScreenSize :: SetScreenSize -> Word16
- Graphics.XHB.Gen.RandR: hskew_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: hskew_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: hsync_end_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: hsync_end_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: hsync_start_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: hsync_start_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: htotal_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: htotal_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: id_ModeInfo :: ModeInfo -> CARD32
+ Graphics.XHB.Gen.RandR: id_ModeInfo :: ModeInfo -> Word32
- Graphics.XHB.Gen.RandR: immutable_QueryOutputPropertyReply :: QueryOutputPropertyReply -> BOOL
+ Graphics.XHB.Gen.RandR: immutable_QueryOutputPropertyReply :: QueryOutputPropertyReply -> Bool
- Graphics.XHB.Gen.RandR: long_length_GetOutputProperty :: GetOutputProperty -> CARD32
+ Graphics.XHB.Gen.RandR: long_length_GetOutputProperty :: GetOutputProperty -> Word32
- Graphics.XHB.Gen.RandR: long_offset_GetOutputProperty :: GetOutputProperty -> CARD32
+ Graphics.XHB.Gen.RandR: long_offset_GetOutputProperty :: GetOutputProperty -> Word32
- Graphics.XHB.Gen.RandR: major_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.RandR: major_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.RandR: major_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.RandR: major_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.RandR: max_height_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> CARD16
+ Graphics.XHB.Gen.RandR: max_height_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> Word16
- Graphics.XHB.Gen.RandR: max_width_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> CARD16
+ Graphics.XHB.Gen.RandR: max_width_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> Word16
- Graphics.XHB.Gen.RandR: mheight_ScreenChangeNotify :: ScreenChangeNotify -> CARD16
+ Graphics.XHB.Gen.RandR: mheight_ScreenChangeNotify :: ScreenChangeNotify -> Word16
- Graphics.XHB.Gen.RandR: mheight_ScreenSize :: ScreenSize -> CARD16
+ Graphics.XHB.Gen.RandR: mheight_ScreenSize :: ScreenSize -> Word16
- Graphics.XHB.Gen.RandR: min_height_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> CARD16
+ Graphics.XHB.Gen.RandR: min_height_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> Word16
- Graphics.XHB.Gen.RandR: min_width_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> CARD16
+ Graphics.XHB.Gen.RandR: min_width_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> Word16
- Graphics.XHB.Gen.RandR: minor_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.RandR: minor_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.RandR: minor_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.RandR: minor_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.RandR: mm_height_GetOutputInfoReply :: GetOutputInfoReply -> CARD32
+ Graphics.XHB.Gen.RandR: mm_height_GetOutputInfoReply :: GetOutputInfoReply -> Word32
- Graphics.XHB.Gen.RandR: mm_height_SetScreenSize :: SetScreenSize -> CARD32
+ Graphics.XHB.Gen.RandR: mm_height_SetScreenSize :: SetScreenSize -> Word32
- Graphics.XHB.Gen.RandR: mm_width_GetOutputInfoReply :: GetOutputInfoReply -> CARD32
+ Graphics.XHB.Gen.RandR: mm_width_GetOutputInfoReply :: GetOutputInfoReply -> Word32
- Graphics.XHB.Gen.RandR: mm_width_SetScreenSize :: SetScreenSize -> CARD32
+ Graphics.XHB.Gen.RandR: mm_width_SetScreenSize :: SetScreenSize -> Word32
- Graphics.XHB.Gen.RandR: mode_ChangeOutputProperty :: ChangeOutputProperty -> CARD8
+ Graphics.XHB.Gen.RandR: mode_ChangeOutputProperty :: ChangeOutputProperty -> Word8
- Graphics.XHB.Gen.RandR: mode_flags_ModeInfo :: ModeInfo -> CARD32
+ Graphics.XHB.Gen.RandR: mode_flags_ModeInfo :: ModeInfo -> Word32
- Graphics.XHB.Gen.RandR: mwidth_ScreenChangeNotify :: ScreenChangeNotify -> CARD16
+ Graphics.XHB.Gen.RandR: mwidth_ScreenChangeNotify :: ScreenChangeNotify -> Word16
- Graphics.XHB.Gen.RandR: mwidth_ScreenSize :: ScreenSize -> CARD16
+ Graphics.XHB.Gen.RandR: mwidth_ScreenSize :: ScreenSize -> Word16
- Graphics.XHB.Gen.RandR: nInfo_GetScreenInfoReply :: GetScreenInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: nInfo_GetScreenInfoReply :: GetScreenInfoReply -> Word16
- Graphics.XHB.Gen.RandR: nRates_RefreshRates :: RefreshRates -> CARD16
+ Graphics.XHB.Gen.RandR: nRates_RefreshRates :: RefreshRates -> Word16
- Graphics.XHB.Gen.RandR: nSizes_GetScreenInfoReply :: GetScreenInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: nSizes_GetScreenInfoReply :: GetScreenInfoReply -> Word16
- Graphics.XHB.Gen.RandR: name_GetOutputInfoReply :: GetOutputInfoReply -> [BYTE]
+ Graphics.XHB.Gen.RandR: name_GetOutputInfoReply :: GetOutputInfoReply -> [Word8]
- Graphics.XHB.Gen.RandR: name_len_GetOutputInfoReply :: GetOutputInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: name_len_GetOutputInfoReply :: GetOutputInfoReply -> Word16
- Graphics.XHB.Gen.RandR: name_len_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: name_len_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: names_GetScreenResourcesReply :: GetScreenResourcesReply -> [BYTE]
+ Graphics.XHB.Gen.RandR: names_GetScreenResourcesReply :: GetScreenResourcesReply -> [Word8]
- Graphics.XHB.Gen.RandR: names_len_GetScreenResourcesReply :: GetScreenResourcesReply -> CARD16
+ Graphics.XHB.Gen.RandR: names_len_GetScreenResourcesReply :: GetScreenResourcesReply -> Word16
- Graphics.XHB.Gen.RandR: num_atoms_ListOutputPropertiesReply :: ListOutputPropertiesReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_atoms_ListOutputPropertiesReply :: ListOutputPropertiesReply -> Word16
- Graphics.XHB.Gen.RandR: num_clones_GetOutputInfoReply :: GetOutputInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_clones_GetOutputInfoReply :: GetOutputInfoReply -> Word16
- Graphics.XHB.Gen.RandR: num_crtcs_GetOutputInfoReply :: GetOutputInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_crtcs_GetOutputInfoReply :: GetOutputInfoReply -> Word16
- Graphics.XHB.Gen.RandR: num_crtcs_GetScreenResourcesReply :: GetScreenResourcesReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_crtcs_GetScreenResourcesReply :: GetScreenResourcesReply -> Word16
- Graphics.XHB.Gen.RandR: num_items_GetOutputPropertyReply :: GetOutputPropertyReply -> CARD32
+ Graphics.XHB.Gen.RandR: num_items_GetOutputPropertyReply :: GetOutputPropertyReply -> Word32
- Graphics.XHB.Gen.RandR: num_modes_GetOutputInfoReply :: GetOutputInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_modes_GetOutputInfoReply :: GetOutputInfoReply -> Word16
- Graphics.XHB.Gen.RandR: num_modes_GetScreenResourcesReply :: GetScreenResourcesReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_modes_GetScreenResourcesReply :: GetScreenResourcesReply -> Word16
- Graphics.XHB.Gen.RandR: num_outputs_GetCrtcInfoReply :: GetCrtcInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_outputs_GetCrtcInfoReply :: GetCrtcInfoReply -> Word16
- Graphics.XHB.Gen.RandR: num_outputs_GetScreenResourcesReply :: GetScreenResourcesReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_outputs_GetScreenResourcesReply :: GetScreenResourcesReply -> Word16
- Graphics.XHB.Gen.RandR: num_possible_outputs_GetCrtcInfoReply :: GetCrtcInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_possible_outputs_GetCrtcInfoReply :: GetCrtcInfoReply -> Word16
- Graphics.XHB.Gen.RandR: num_preferred_GetOutputInfoReply :: GetOutputInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_preferred_GetOutputInfoReply :: GetOutputInfoReply -> Word16
- Graphics.XHB.Gen.RandR: num_units_ChangeOutputProperty :: ChangeOutputProperty -> CARD32
+ Graphics.XHB.Gen.RandR: num_units_ChangeOutputProperty :: ChangeOutputProperty -> Word32
- Graphics.XHB.Gen.RandR: pending_ConfigureOutputProperty :: ConfigureOutputProperty -> BOOL
+ Graphics.XHB.Gen.RandR: pending_ConfigureOutputProperty :: ConfigureOutputProperty -> Bool
- Graphics.XHB.Gen.RandR: pending_GetOutputProperty :: GetOutputProperty -> BOOL
+ Graphics.XHB.Gen.RandR: pending_GetOutputProperty :: GetOutputProperty -> Bool
- Graphics.XHB.Gen.RandR: pending_QueryOutputPropertyReply :: QueryOutputPropertyReply -> BOOL
+ Graphics.XHB.Gen.RandR: pending_QueryOutputPropertyReply :: QueryOutputPropertyReply -> Bool
- Graphics.XHB.Gen.RandR: queryVersion :: Connection -> CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.RandR: queryVersion :: Connection -> Word32 -> Word32 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.RandR: range_ConfigureOutputProperty :: ConfigureOutputProperty -> BOOL
+ Graphics.XHB.Gen.RandR: range_ConfigureOutputProperty :: ConfigureOutputProperty -> Bool
- Graphics.XHB.Gen.RandR: range_QueryOutputPropertyReply :: QueryOutputPropertyReply -> BOOL
+ Graphics.XHB.Gen.RandR: range_QueryOutputPropertyReply :: QueryOutputPropertyReply -> Bool
- Graphics.XHB.Gen.RandR: rate_GetScreenInfoReply :: GetScreenInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: rate_GetScreenInfoReply :: GetScreenInfoReply -> Word16
- Graphics.XHB.Gen.RandR: rate_SetScreenConfig :: SetScreenConfig -> CARD16
+ Graphics.XHB.Gen.RandR: rate_SetScreenConfig :: SetScreenConfig -> Word16
- Graphics.XHB.Gen.RandR: rates_RefreshRates :: RefreshRates -> [CARD16]
+ Graphics.XHB.Gen.RandR: rates_RefreshRates :: RefreshRates -> [Word16]
- Graphics.XHB.Gen.RandR: red_GetCrtcGammaReply :: GetCrtcGammaReply -> [CARD16]
+ Graphics.XHB.Gen.RandR: red_GetCrtcGammaReply :: GetCrtcGammaReply -> [Word16]
- Graphics.XHB.Gen.RandR: red_SetCrtcGamma :: SetCrtcGamma -> [CARD16]
+ Graphics.XHB.Gen.RandR: red_SetCrtcGamma :: SetCrtcGamma -> [Word16]
- Graphics.XHB.Gen.RandR: rotation_CrtcChange :: CrtcChange -> CARD16
+ Graphics.XHB.Gen.RandR: rotation_CrtcChange :: CrtcChange -> Word16
- Graphics.XHB.Gen.RandR: rotation_GetCrtcInfoReply :: GetCrtcInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: rotation_GetCrtcInfoReply :: GetCrtcInfoReply -> Word16
- Graphics.XHB.Gen.RandR: rotation_GetScreenInfoReply :: GetScreenInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: rotation_GetScreenInfoReply :: GetScreenInfoReply -> Word16
- Graphics.XHB.Gen.RandR: rotation_OutputChange :: OutputChange -> CARD16
+ Graphics.XHB.Gen.RandR: rotation_OutputChange :: OutputChange -> Word16
- Graphics.XHB.Gen.RandR: rotation_ScreenChangeNotify :: ScreenChangeNotify -> CARD8
+ Graphics.XHB.Gen.RandR: rotation_ScreenChangeNotify :: ScreenChangeNotify -> Word8
- Graphics.XHB.Gen.RandR: rotation_SetCrtcConfig :: SetCrtcConfig -> CARD16
+ Graphics.XHB.Gen.RandR: rotation_SetCrtcConfig :: SetCrtcConfig -> Word16
- Graphics.XHB.Gen.RandR: rotation_SetScreenConfig :: SetScreenConfig -> CARD16
+ Graphics.XHB.Gen.RandR: rotation_SetScreenConfig :: SetScreenConfig -> Word16
- Graphics.XHB.Gen.RandR: rotations_GetCrtcInfoReply :: GetCrtcInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: rotations_GetCrtcInfoReply :: GetCrtcInfoReply -> Word16
- Graphics.XHB.Gen.RandR: rotations_GetScreenInfoReply :: GetScreenInfoReply -> CARD8
+ Graphics.XHB.Gen.RandR: rotations_GetScreenInfoReply :: GetScreenInfoReply -> Word8
- Graphics.XHB.Gen.RandR: selectInput :: Connection -> WINDOW -> CARD16 -> IO ()
+ Graphics.XHB.Gen.RandR: selectInput :: Connection -> WINDOW -> Word16 -> IO ()
- Graphics.XHB.Gen.RandR: sizeID_GetScreenInfoReply :: GetScreenInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: sizeID_GetScreenInfoReply :: GetScreenInfoReply -> Word16
- Graphics.XHB.Gen.RandR: sizeID_ScreenChangeNotify :: ScreenChangeNotify -> CARD16
+ Graphics.XHB.Gen.RandR: sizeID_ScreenChangeNotify :: ScreenChangeNotify -> Word16
- Graphics.XHB.Gen.RandR: sizeID_SetScreenConfig :: SetScreenConfig -> CARD16
+ Graphics.XHB.Gen.RandR: sizeID_SetScreenConfig :: SetScreenConfig -> Word16
- Graphics.XHB.Gen.RandR: size_GetCrtcGammaReply :: GetCrtcGammaReply -> CARD16
+ Graphics.XHB.Gen.RandR: size_GetCrtcGammaReply :: GetCrtcGammaReply -> Word16
- Graphics.XHB.Gen.RandR: size_GetCrtcGammaSizeReply :: GetCrtcGammaSizeReply -> CARD16
+ Graphics.XHB.Gen.RandR: size_GetCrtcGammaSizeReply :: GetCrtcGammaSizeReply -> Word16
- Graphics.XHB.Gen.RandR: size_SetCrtcGamma :: SetCrtcGamma -> CARD16
+ Graphics.XHB.Gen.RandR: size_SetCrtcGamma :: SetCrtcGamma -> Word16
- Graphics.XHB.Gen.RandR: status_GetCrtcInfoReply :: GetCrtcInfoReply -> CARD8
+ Graphics.XHB.Gen.RandR: status_GetCrtcInfoReply :: GetCrtcInfoReply -> Word8
- Graphics.XHB.Gen.RandR: status_GetOutputInfoReply :: GetOutputInfoReply -> CARD8
+ Graphics.XHB.Gen.RandR: status_GetOutputInfoReply :: GetOutputInfoReply -> Word8
- Graphics.XHB.Gen.RandR: status_OutputProperty :: OutputProperty -> CARD8
+ Graphics.XHB.Gen.RandR: status_OutputProperty :: OutputProperty -> Word8
- Graphics.XHB.Gen.RandR: status_SetCrtcConfigReply :: SetCrtcConfigReply -> CARD8
+ Graphics.XHB.Gen.RandR: status_SetCrtcConfigReply :: SetCrtcConfigReply -> Word8
- Graphics.XHB.Gen.RandR: status_SetScreenConfigReply :: SetScreenConfigReply -> CARD8
+ Graphics.XHB.Gen.RandR: status_SetScreenConfigReply :: SetScreenConfigReply -> Word8
- Graphics.XHB.Gen.RandR: subCode_Notify :: Notify -> CARD8
+ Graphics.XHB.Gen.RandR: subCode_Notify :: Notify -> Word8
- Graphics.XHB.Gen.RandR: subpixel_order_GetOutputInfoReply :: GetOutputInfoReply -> CARD8
+ Graphics.XHB.Gen.RandR: subpixel_order_GetOutputInfoReply :: GetOutputInfoReply -> Word8
- Graphics.XHB.Gen.RandR: subpixel_order_OutputChange :: OutputChange -> CARD8
+ Graphics.XHB.Gen.RandR: subpixel_order_OutputChange :: OutputChange -> Word8
- Graphics.XHB.Gen.RandR: subpixel_order_ScreenChangeNotify :: ScreenChangeNotify -> CARD16
+ Graphics.XHB.Gen.RandR: subpixel_order_ScreenChangeNotify :: ScreenChangeNotify -> Word16
- Graphics.XHB.Gen.RandR: subpixel_order_SetScreenConfigReply :: SetScreenConfigReply -> CARD16
+ Graphics.XHB.Gen.RandR: subpixel_order_SetScreenConfigReply :: SetScreenConfigReply -> Word16
- Graphics.XHB.Gen.RandR: validValues_QueryOutputPropertyReply :: QueryOutputPropertyReply -> [INT32]
+ Graphics.XHB.Gen.RandR: validValues_QueryOutputPropertyReply :: QueryOutputPropertyReply -> [Int32]
- Graphics.XHB.Gen.RandR: values_ConfigureOutputProperty :: ConfigureOutputProperty -> [INT32]
+ Graphics.XHB.Gen.RandR: values_ConfigureOutputProperty :: ConfigureOutputProperty -> [Int32]
- Graphics.XHB.Gen.RandR: vsync_end_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: vsync_end_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: vsync_start_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: vsync_start_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: vtotal_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: vtotal_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: width_CrtcChange :: CrtcChange -> CARD16
+ Graphics.XHB.Gen.RandR: width_CrtcChange :: CrtcChange -> Word16
- Graphics.XHB.Gen.RandR: width_GetCrtcInfoReply :: GetCrtcInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: width_GetCrtcInfoReply :: GetCrtcInfoReply -> Word16
- Graphics.XHB.Gen.RandR: width_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: width_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: width_ScreenChangeNotify :: ScreenChangeNotify -> CARD16
+ Graphics.XHB.Gen.RandR: width_ScreenChangeNotify :: ScreenChangeNotify -> Word16
- Graphics.XHB.Gen.RandR: width_ScreenSize :: ScreenSize -> CARD16
+ Graphics.XHB.Gen.RandR: width_ScreenSize :: ScreenSize -> Word16
- Graphics.XHB.Gen.RandR: width_SetScreenSize :: SetScreenSize -> CARD16
+ Graphics.XHB.Gen.RandR: width_SetScreenSize :: SetScreenSize -> Word16
- Graphics.XHB.Gen.RandR: x_CrtcChange :: CrtcChange -> INT16
+ Graphics.XHB.Gen.RandR: x_CrtcChange :: CrtcChange -> Int16
- Graphics.XHB.Gen.RandR: x_GetCrtcInfoReply :: GetCrtcInfoReply -> INT16
+ Graphics.XHB.Gen.RandR: x_GetCrtcInfoReply :: GetCrtcInfoReply -> Int16
- Graphics.XHB.Gen.RandR: x_SetCrtcConfig :: SetCrtcConfig -> INT16
+ Graphics.XHB.Gen.RandR: x_SetCrtcConfig :: SetCrtcConfig -> Int16
- Graphics.XHB.Gen.RandR: y_CrtcChange :: CrtcChange -> INT16
+ Graphics.XHB.Gen.RandR: y_CrtcChange :: CrtcChange -> Int16
- Graphics.XHB.Gen.RandR: y_GetCrtcInfoReply :: GetCrtcInfoReply -> INT16
+ Graphics.XHB.Gen.RandR: y_GetCrtcInfoReply :: GetCrtcInfoReply -> Int16
- Graphics.XHB.Gen.RandR: y_SetCrtcConfig :: SetCrtcConfig -> INT16
+ Graphics.XHB.Gen.RandR: y_SetCrtcConfig :: SetCrtcConfig -> Int16
- Graphics.XHB.Gen.Record: MkBadContext :: CARD32 -> BadContext
+ Graphics.XHB.Gen.Record: MkBadContext :: Word32 -> BadContext
- Graphics.XHB.Gen.Record: MkClientInfo :: ClientSpec -> CARD32 -> [Range] -> ClientInfo
+ Graphics.XHB.Gen.Record: MkClientInfo :: ClientSpec -> Word32 -> [Range] -> ClientInfo
- Graphics.XHB.Gen.Record: MkCreateContext :: CONTEXT -> ElementHeader -> CARD32 -> CARD32 -> [ClientSpec] -> [Range] -> CreateContext
+ Graphics.XHB.Gen.Record: MkCreateContext :: CONTEXT -> ElementHeader -> Word32 -> Word32 -> [ClientSpec] -> [Range] -> CreateContext
- Graphics.XHB.Gen.Record: MkEnableContextReply :: CARD8 -> ElementHeader -> BOOL -> CARD32 -> CARD32 -> CARD32 -> [BYTE] -> EnableContextReply
+ Graphics.XHB.Gen.Record: MkEnableContextReply :: Word8 -> ElementHeader -> Bool -> Word32 -> Word32 -> Word32 -> [Word8] -> EnableContextReply
- Graphics.XHB.Gen.Record: MkGetContextReply :: BOOL -> ElementHeader -> CARD32 -> [ClientInfo] -> GetContextReply
+ Graphics.XHB.Gen.Record: MkGetContextReply :: Bool -> ElementHeader -> Word32 -> [ClientInfo] -> GetContextReply
- Graphics.XHB.Gen.Record: MkQueryVersion :: CARD16 -> CARD16 -> QueryVersion
+ Graphics.XHB.Gen.Record: MkQueryVersion :: Word16 -> Word16 -> QueryVersion
- Graphics.XHB.Gen.Record: MkQueryVersionReply :: CARD16 -> CARD16 -> QueryVersionReply
+ Graphics.XHB.Gen.Record: MkQueryVersionReply :: Word16 -> Word16 -> QueryVersionReply
- Graphics.XHB.Gen.Record: MkRange :: Range8 -> Range8 -> ExtRange -> ExtRange -> Range8 -> Range8 -> Range8 -> BOOL -> BOOL -> Range
+ Graphics.XHB.Gen.Record: MkRange :: Range8 -> Range8 -> ExtRange -> ExtRange -> Range8 -> Range8 -> Range8 -> Bool -> Bool -> Range
- Graphics.XHB.Gen.Record: MkRange16 :: CARD16 -> CARD16 -> Range16
+ Graphics.XHB.Gen.Record: MkRange16 :: Word16 -> Word16 -> Range16
- Graphics.XHB.Gen.Record: MkRange8 :: CARD8 -> CARD8 -> Range8
+ Graphics.XHB.Gen.Record: MkRange8 :: Word8 -> Word8 -> Range8
- Graphics.XHB.Gen.Record: MkRegisterClients :: CONTEXT -> ElementHeader -> CARD32 -> CARD32 -> [ClientSpec] -> [Range] -> RegisterClients
+ Graphics.XHB.Gen.Record: MkRegisterClients :: CONTEXT -> ElementHeader -> Word32 -> Word32 -> [ClientSpec] -> [Range] -> RegisterClients
- Graphics.XHB.Gen.Record: MkUnregisterClients :: CONTEXT -> CARD32 -> [ClientSpec] -> UnregisterClients
+ Graphics.XHB.Gen.Record: MkUnregisterClients :: CONTEXT -> Word32 -> [ClientSpec] -> UnregisterClients
- Graphics.XHB.Gen.Record: category_EnableContextReply :: EnableContextReply -> CARD8
+ Graphics.XHB.Gen.Record: category_EnableContextReply :: EnableContextReply -> Word8
- Graphics.XHB.Gen.Record: client_died_Range :: Range -> BOOL
+ Graphics.XHB.Gen.Record: client_died_Range :: Range -> Bool
- Graphics.XHB.Gen.Record: client_started_Range :: Range -> BOOL
+ Graphics.XHB.Gen.Record: client_started_Range :: Range -> Bool
- Graphics.XHB.Gen.Record: client_swapped_EnableContextReply :: EnableContextReply -> BOOL
+ Graphics.XHB.Gen.Record: client_swapped_EnableContextReply :: EnableContextReply -> Bool
- Graphics.XHB.Gen.Record: data_EnableContextReply :: EnableContextReply -> [BYTE]
+ Graphics.XHB.Gen.Record: data_EnableContextReply :: EnableContextReply -> [Word8]
- Graphics.XHB.Gen.Record: enabled_GetContextReply :: GetContextReply -> BOOL
+ Graphics.XHB.Gen.Record: enabled_GetContextReply :: GetContextReply -> Bool
- Graphics.XHB.Gen.Record: first_Range16 :: Range16 -> CARD16
+ Graphics.XHB.Gen.Record: first_Range16 :: Range16 -> Word16
- Graphics.XHB.Gen.Record: first_Range8 :: Range8 -> CARD8
+ Graphics.XHB.Gen.Record: first_Range8 :: Range8 -> Word8
- Graphics.XHB.Gen.Record: invalid_record_BadContext :: BadContext -> CARD32
+ Graphics.XHB.Gen.Record: invalid_record_BadContext :: BadContext -> Word32
- Graphics.XHB.Gen.Record: last_Range16 :: Range16 -> CARD16
+ Graphics.XHB.Gen.Record: last_Range16 :: Range16 -> Word16
- Graphics.XHB.Gen.Record: last_Range8 :: Range8 -> CARD8
+ Graphics.XHB.Gen.Record: last_Range8 :: Range8 -> Word8
- Graphics.XHB.Gen.Record: major_version_QueryVersion :: QueryVersion -> CARD16
+ Graphics.XHB.Gen.Record: major_version_QueryVersion :: QueryVersion -> Word16
- Graphics.XHB.Gen.Record: major_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Record: major_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Record: minor_version_QueryVersion :: QueryVersion -> CARD16
+ Graphics.XHB.Gen.Record: minor_version_QueryVersion :: QueryVersion -> Word16
- Graphics.XHB.Gen.Record: minor_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Record: minor_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Record: num_client_specs_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.Record: num_client_specs_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.Record: num_client_specs_RegisterClients :: RegisterClients -> CARD32
+ Graphics.XHB.Gen.Record: num_client_specs_RegisterClients :: RegisterClients -> Word32
- Graphics.XHB.Gen.Record: num_client_specs_UnregisterClients :: UnregisterClients -> CARD32
+ Graphics.XHB.Gen.Record: num_client_specs_UnregisterClients :: UnregisterClients -> Word32
- Graphics.XHB.Gen.Record: num_intercepted_clients_GetContextReply :: GetContextReply -> CARD32
+ Graphics.XHB.Gen.Record: num_intercepted_clients_GetContextReply :: GetContextReply -> Word32
- Graphics.XHB.Gen.Record: num_ranges_ClientInfo :: ClientInfo -> CARD32
+ Graphics.XHB.Gen.Record: num_ranges_ClientInfo :: ClientInfo -> Word32
- Graphics.XHB.Gen.Record: num_ranges_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.Record: num_ranges_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.Record: num_ranges_RegisterClients :: RegisterClients -> CARD32
+ Graphics.XHB.Gen.Record: num_ranges_RegisterClients :: RegisterClients -> Word32
- Graphics.XHB.Gen.Record: queryVersion :: Connection -> CARD16 -> CARD16 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Record: queryVersion :: Connection -> Word16 -> Word16 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Record: rec_sequence_num_EnableContextReply :: EnableContextReply -> CARD32
+ Graphics.XHB.Gen.Record: rec_sequence_num_EnableContextReply :: EnableContextReply -> Word32
- Graphics.XHB.Gen.Record: server_time_EnableContextReply :: EnableContextReply -> CARD32
+ Graphics.XHB.Gen.Record: server_time_EnableContextReply :: EnableContextReply -> Word32
- Graphics.XHB.Gen.Record: type ClientSpec = CARD32
+ Graphics.XHB.Gen.Record: type ClientSpec = Word32
- Graphics.XHB.Gen.Record: type ElementHeader = CARD8
+ Graphics.XHB.Gen.Record: type ElementHeader = Word8
- Graphics.XHB.Gen.Record: xid_base_EnableContextReply :: EnableContextReply -> CARD32
+ Graphics.XHB.Gen.Record: xid_base_EnableContextReply :: EnableContextReply -> Word32
- Graphics.XHB.Gen.Render: MkANIMCURSORELT :: CURSOR -> CARD32 -> ANIMCURSORELT
+ Graphics.XHB.Gen.Render: MkANIMCURSORELT :: CURSOR -> Word32 -> ANIMCURSORELT
- Graphics.XHB.Gen.Render: MkAddGlyphs :: GLYPHSET -> CARD32 -> [CARD32] -> [GLYPHINFO] -> [BYTE] -> AddGlyphs
+ Graphics.XHB.Gen.Render: MkAddGlyphs :: GLYPHSET -> Word32 -> [Word32] -> [GLYPHINFO] -> [Word8] -> AddGlyphs
- Graphics.XHB.Gen.Render: MkAddTraps :: PICTURE -> INT16 -> INT16 -> [TRAP] -> AddTraps
+ Graphics.XHB.Gen.Render: MkAddTraps :: PICTURE -> Int16 -> Int16 -> [TRAP] -> AddTraps
- Graphics.XHB.Gen.Render: MkCOLOR :: CARD16 -> CARD16 -> CARD16 -> CARD16 -> COLOR
+ Graphics.XHB.Gen.Render: MkCOLOR :: Word16 -> Word16 -> Word16 -> Word16 -> COLOR
- Graphics.XHB.Gen.Render: MkChangePicture :: PICTURE -> ValueParam CARD32 -> ChangePicture
+ Graphics.XHB.Gen.Render: MkChangePicture :: PICTURE -> ValueParam Word32 -> ChangePicture
- Graphics.XHB.Gen.Render: MkComposite :: CARD8 -> PICTURE -> PICTURE -> PICTURE -> INT16 -> INT16 -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> Composite
+ Graphics.XHB.Gen.Render: MkComposite :: Word8 -> PICTURE -> PICTURE -> PICTURE -> Int16 -> Int16 -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Word16 -> Composite
- Graphics.XHB.Gen.Render: MkCompositeGlyphs16 :: CARD8 -> PICTURE -> PICTURE -> PICTFORMAT -> GLYPHSET -> INT16 -> INT16 -> [BYTE] -> CompositeGlyphs16
+ Graphics.XHB.Gen.Render: MkCompositeGlyphs16 :: Word8 -> PICTURE -> PICTURE -> PICTFORMAT -> GLYPHSET -> Int16 -> Int16 -> [Word8] -> CompositeGlyphs16
- Graphics.XHB.Gen.Render: MkCompositeGlyphs32 :: CARD8 -> PICTURE -> PICTURE -> PICTFORMAT -> GLYPHSET -> INT16 -> INT16 -> [BYTE] -> CompositeGlyphs32
+ Graphics.XHB.Gen.Render: MkCompositeGlyphs32 :: Word8 -> PICTURE -> PICTURE -> PICTFORMAT -> GLYPHSET -> Int16 -> Int16 -> [Word8] -> CompositeGlyphs32
- Graphics.XHB.Gen.Render: MkCompositeGlyphs8 :: CARD8 -> PICTURE -> PICTURE -> PICTFORMAT -> GLYPHSET -> INT16 -> INT16 -> [BYTE] -> CompositeGlyphs8
+ Graphics.XHB.Gen.Render: MkCompositeGlyphs8 :: Word8 -> PICTURE -> PICTURE -> PICTFORMAT -> GLYPHSET -> Int16 -> Int16 -> [Word8] -> CompositeGlyphs8
- Graphics.XHB.Gen.Render: MkCreateConicalGradient :: PICTURE -> POINTFIX -> FIXED -> CARD32 -> [FIXED] -> [COLOR] -> CreateConicalGradient
+ Graphics.XHB.Gen.Render: MkCreateConicalGradient :: PICTURE -> POINTFIX -> FIXED -> Word32 -> [FIXED] -> [COLOR] -> CreateConicalGradient
- Graphics.XHB.Gen.Render: MkCreateCursor :: CURSOR -> PICTURE -> CARD16 -> CARD16 -> CreateCursor
+ Graphics.XHB.Gen.Render: MkCreateCursor :: CURSOR -> PICTURE -> Word16 -> Word16 -> CreateCursor
- Graphics.XHB.Gen.Render: MkCreateLinearGradient :: PICTURE -> POINTFIX -> POINTFIX -> CARD32 -> [FIXED] -> [COLOR] -> CreateLinearGradient
+ Graphics.XHB.Gen.Render: MkCreateLinearGradient :: PICTURE -> POINTFIX -> POINTFIX -> Word32 -> [FIXED] -> [COLOR] -> CreateLinearGradient
- Graphics.XHB.Gen.Render: MkCreatePicture :: PICTURE -> DRAWABLE -> PICTFORMAT -> ValueParam CARD32 -> CreatePicture
+ Graphics.XHB.Gen.Render: MkCreatePicture :: PICTURE -> DRAWABLE -> PICTFORMAT -> ValueParam Word32 -> CreatePicture
- Graphics.XHB.Gen.Render: MkCreateRadialGradient :: PICTURE -> POINTFIX -> POINTFIX -> FIXED -> FIXED -> CARD32 -> [FIXED] -> [COLOR] -> CreateRadialGradient
+ Graphics.XHB.Gen.Render: MkCreateRadialGradient :: PICTURE -> POINTFIX -> POINTFIX -> FIXED -> FIXED -> Word32 -> [FIXED] -> [COLOR] -> CreateRadialGradient
- Graphics.XHB.Gen.Render: MkDIRECTFORMAT :: CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> DIRECTFORMAT
+ Graphics.XHB.Gen.Render: MkDIRECTFORMAT :: Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> DIRECTFORMAT
- Graphics.XHB.Gen.Render: MkFillRectangles :: CARD8 -> PICTURE -> COLOR -> [RECTANGLE] -> FillRectangles
+ Graphics.XHB.Gen.Render: MkFillRectangles :: Word8 -> PICTURE -> COLOR -> [RECTANGLE] -> FillRectangles
- Graphics.XHB.Gen.Render: MkGLYPHINFO :: CARD16 -> CARD16 -> INT16 -> INT16 -> INT16 -> INT16 -> GLYPHINFO
+ Graphics.XHB.Gen.Render: MkGLYPHINFO :: Word16 -> Word16 -> Int16 -> Int16 -> Int16 -> Int16 -> GLYPHINFO
- Graphics.XHB.Gen.Render: MkINDEXVALUE :: CARD32 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> INDEXVALUE
+ Graphics.XHB.Gen.Render: MkINDEXVALUE :: Word32 -> Word16 -> Word16 -> Word16 -> Word16 -> INDEXVALUE
- Graphics.XHB.Gen.Render: MkPICTDEPTH :: CARD8 -> CARD16 -> [PICTVISUAL] -> PICTDEPTH
+ Graphics.XHB.Gen.Render: MkPICTDEPTH :: Word8 -> Word16 -> [PICTVISUAL] -> PICTDEPTH
- Graphics.XHB.Gen.Render: MkPICTFORMINFO :: PICTFORMAT -> CARD8 -> CARD8 -> DIRECTFORMAT -> COLORMAP -> PICTFORMINFO
+ Graphics.XHB.Gen.Render: MkPICTFORMINFO :: PICTFORMAT -> Word8 -> Word8 -> DIRECTFORMAT -> COLORMAP -> PICTFORMINFO
- Graphics.XHB.Gen.Render: MkPICTSCREEN :: CARD32 -> PICTFORMAT -> [PICTDEPTH] -> PICTSCREEN
+ Graphics.XHB.Gen.Render: MkPICTSCREEN :: Word32 -> PICTFORMAT -> [PICTDEPTH] -> PICTSCREEN
- Graphics.XHB.Gen.Render: MkQueryFiltersReply :: CARD32 -> CARD32 -> [CARD16] -> [STR] -> QueryFiltersReply
+ Graphics.XHB.Gen.Render: MkQueryFiltersReply :: Word32 -> Word32 -> [Word16] -> [STR] -> QueryFiltersReply
- Graphics.XHB.Gen.Render: MkQueryPictFormatsReply :: CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> [PICTFORMINFO] -> [PICTSCREEN] -> [CARD32] -> QueryPictFormatsReply
+ Graphics.XHB.Gen.Render: MkQueryPictFormatsReply :: Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> [PICTFORMINFO] -> [PICTSCREEN] -> [Word32] -> QueryPictFormatsReply
- Graphics.XHB.Gen.Render: MkQueryPictIndexValuesReply :: CARD32 -> [INDEXVALUE] -> QueryPictIndexValuesReply
+ Graphics.XHB.Gen.Render: MkQueryPictIndexValuesReply :: Word32 -> [INDEXVALUE] -> QueryPictIndexValuesReply
- Graphics.XHB.Gen.Render: MkQueryVersion :: CARD32 -> CARD32 -> QueryVersion
+ Graphics.XHB.Gen.Render: MkQueryVersion :: Word32 -> Word32 -> QueryVersion
- Graphics.XHB.Gen.Render: MkQueryVersionReply :: CARD32 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.Render: MkQueryVersionReply :: Word32 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.Render: MkSetPictureClipRectangles :: PICTURE -> INT16 -> INT16 -> [RECTANGLE] -> SetPictureClipRectangles
+ Graphics.XHB.Gen.Render: MkSetPictureClipRectangles :: PICTURE -> Int16 -> Int16 -> [RECTANGLE] -> SetPictureClipRectangles
- Graphics.XHB.Gen.Render: MkSetPictureFilter :: PICTURE -> CARD16 -> [CChar] -> [FIXED] -> SetPictureFilter
+ Graphics.XHB.Gen.Render: MkSetPictureFilter :: PICTURE -> Word16 -> [CChar] -> [FIXED] -> SetPictureFilter
- Graphics.XHB.Gen.Render: MkTrapezoids :: CARD8 -> PICTURE -> PICTURE -> PICTFORMAT -> INT16 -> INT16 -> [TRAPEZOID] -> Trapezoids
+ Graphics.XHB.Gen.Render: MkTrapezoids :: Word8 -> PICTURE -> PICTURE -> PICTFORMAT -> Int16 -> Int16 -> [TRAPEZOID] -> Trapezoids
- Graphics.XHB.Gen.Render: MkTriFan :: CARD8 -> PICTURE -> PICTURE -> PICTFORMAT -> INT16 -> INT16 -> [POINTFIX] -> TriFan
+ Graphics.XHB.Gen.Render: MkTriFan :: Word8 -> PICTURE -> PICTURE -> PICTFORMAT -> Int16 -> Int16 -> [POINTFIX] -> TriFan
- Graphics.XHB.Gen.Render: MkTriStrip :: CARD8 -> PICTURE -> PICTURE -> PICTFORMAT -> INT16 -> INT16 -> [POINTFIX] -> TriStrip
+ Graphics.XHB.Gen.Render: MkTriStrip :: Word8 -> PICTURE -> PICTURE -> PICTFORMAT -> Int16 -> Int16 -> [POINTFIX] -> TriStrip
- Graphics.XHB.Gen.Render: MkTriangles :: CARD8 -> PICTURE -> PICTURE -> PICTFORMAT -> INT16 -> INT16 -> [TRIANGLE] -> Triangles
+ Graphics.XHB.Gen.Render: MkTriangles :: Word8 -> PICTURE -> PICTURE -> PICTFORMAT -> Int16 -> Int16 -> [TRIANGLE] -> Triangles
- Graphics.XHB.Gen.Render: aliases_QueryFiltersReply :: QueryFiltersReply -> [CARD16]
+ Graphics.XHB.Gen.Render: aliases_QueryFiltersReply :: QueryFiltersReply -> [Word16]
- Graphics.XHB.Gen.Render: alpha_COLOR :: COLOR -> CARD16
+ Graphics.XHB.Gen.Render: alpha_COLOR :: COLOR -> Word16
- Graphics.XHB.Gen.Render: alpha_INDEXVALUE :: INDEXVALUE -> CARD16
+ Graphics.XHB.Gen.Render: alpha_INDEXVALUE :: INDEXVALUE -> Word16
- Graphics.XHB.Gen.Render: alpha_mask_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: alpha_mask_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: alpha_shift_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: alpha_shift_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: blue_COLOR :: COLOR -> CARD16
+ Graphics.XHB.Gen.Render: blue_COLOR :: COLOR -> Word16
- Graphics.XHB.Gen.Render: blue_INDEXVALUE :: INDEXVALUE -> CARD16
+ Graphics.XHB.Gen.Render: blue_INDEXVALUE :: INDEXVALUE -> Word16
- Graphics.XHB.Gen.Render: blue_mask_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: blue_mask_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: blue_shift_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: blue_shift_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: changePicture :: Connection -> PICTURE -> ValueParam CARD32 -> IO ()
+ Graphics.XHB.Gen.Render: changePicture :: Connection -> PICTURE -> ValueParam Word32 -> IO ()
- Graphics.XHB.Gen.Render: client_major_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Render: client_major_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Render: client_minor_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Render: client_minor_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Render: clip_x_origin_SetPictureClipRectangles :: SetPictureClipRectangles -> INT16
+ Graphics.XHB.Gen.Render: clip_x_origin_SetPictureClipRectangles :: SetPictureClipRectangles -> Int16
- Graphics.XHB.Gen.Render: clip_y_origin_SetPictureClipRectangles :: SetPictureClipRectangles -> INT16
+ Graphics.XHB.Gen.Render: clip_y_origin_SetPictureClipRectangles :: SetPictureClipRectangles -> Int16
- Graphics.XHB.Gen.Render: data_AddGlyphs :: AddGlyphs -> [BYTE]
+ Graphics.XHB.Gen.Render: data_AddGlyphs :: AddGlyphs -> [Word8]
- Graphics.XHB.Gen.Render: delay_ANIMCURSORELT :: ANIMCURSORELT -> CARD32
+ Graphics.XHB.Gen.Render: delay_ANIMCURSORELT :: ANIMCURSORELT -> Word32
- Graphics.XHB.Gen.Render: depth_PICTDEPTH :: PICTDEPTH -> CARD8
+ Graphics.XHB.Gen.Render: depth_PICTDEPTH :: PICTDEPTH -> Word8
- Graphics.XHB.Gen.Render: depth_PICTFORMINFO :: PICTFORMINFO -> CARD8
+ Graphics.XHB.Gen.Render: depth_PICTFORMINFO :: PICTFORMINFO -> Word8
- Graphics.XHB.Gen.Render: dst_x_Composite :: Composite -> INT16
+ Graphics.XHB.Gen.Render: dst_x_Composite :: Composite -> Int16
- Graphics.XHB.Gen.Render: dst_y_Composite :: Composite -> INT16
+ Graphics.XHB.Gen.Render: dst_y_Composite :: Composite -> Int16
- Graphics.XHB.Gen.Render: filter_len_SetPictureFilter :: SetPictureFilter -> CARD16
+ Graphics.XHB.Gen.Render: filter_len_SetPictureFilter :: SetPictureFilter -> Word16
- Graphics.XHB.Gen.Render: glyphcmds_CompositeGlyphs16 :: CompositeGlyphs16 -> [BYTE]
+ Graphics.XHB.Gen.Render: glyphcmds_CompositeGlyphs16 :: CompositeGlyphs16 -> [Word8]
- Graphics.XHB.Gen.Render: glyphcmds_CompositeGlyphs32 :: CompositeGlyphs32 -> [BYTE]
+ Graphics.XHB.Gen.Render: glyphcmds_CompositeGlyphs32 :: CompositeGlyphs32 -> [Word8]
- Graphics.XHB.Gen.Render: glyphcmds_CompositeGlyphs8 :: CompositeGlyphs8 -> [BYTE]
+ Graphics.XHB.Gen.Render: glyphcmds_CompositeGlyphs8 :: CompositeGlyphs8 -> [Word8]
- Graphics.XHB.Gen.Render: glyphids_AddGlyphs :: AddGlyphs -> [CARD32]
+ Graphics.XHB.Gen.Render: glyphids_AddGlyphs :: AddGlyphs -> [Word32]
- Graphics.XHB.Gen.Render: glyphs_len_AddGlyphs :: AddGlyphs -> CARD32
+ Graphics.XHB.Gen.Render: glyphs_len_AddGlyphs :: AddGlyphs -> Word32
- Graphics.XHB.Gen.Render: green_COLOR :: COLOR -> CARD16
+ Graphics.XHB.Gen.Render: green_COLOR :: COLOR -> Word16
- Graphics.XHB.Gen.Render: green_INDEXVALUE :: INDEXVALUE -> CARD16
+ Graphics.XHB.Gen.Render: green_INDEXVALUE :: INDEXVALUE -> Word16
- Graphics.XHB.Gen.Render: green_mask_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: green_mask_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: green_shift_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: green_shift_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: height_Composite :: Composite -> CARD16
+ Graphics.XHB.Gen.Render: height_Composite :: Composite -> Word16
- Graphics.XHB.Gen.Render: height_GLYPHINFO :: GLYPHINFO -> CARD16
+ Graphics.XHB.Gen.Render: height_GLYPHINFO :: GLYPHINFO -> Word16
- Graphics.XHB.Gen.Render: major_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Render: major_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Render: mask_x_Composite :: Composite -> INT16
+ Graphics.XHB.Gen.Render: mask_x_Composite :: Composite -> Int16
- Graphics.XHB.Gen.Render: mask_y_Composite :: Composite -> INT16
+ Graphics.XHB.Gen.Render: mask_y_Composite :: Composite -> Int16
- Graphics.XHB.Gen.Render: minor_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Render: minor_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Render: num_aliases_QueryFiltersReply :: QueryFiltersReply -> CARD32
+ Graphics.XHB.Gen.Render: num_aliases_QueryFiltersReply :: QueryFiltersReply -> Word32
- Graphics.XHB.Gen.Render: num_depths_PICTSCREEN :: PICTSCREEN -> CARD32
+ Graphics.XHB.Gen.Render: num_depths_PICTSCREEN :: PICTSCREEN -> Word32
- Graphics.XHB.Gen.Render: num_depths_QueryPictFormatsReply :: QueryPictFormatsReply -> CARD32
+ Graphics.XHB.Gen.Render: num_depths_QueryPictFormatsReply :: QueryPictFormatsReply -> Word32
- Graphics.XHB.Gen.Render: num_filters_QueryFiltersReply :: QueryFiltersReply -> CARD32
+ Graphics.XHB.Gen.Render: num_filters_QueryFiltersReply :: QueryFiltersReply -> Word32
- Graphics.XHB.Gen.Render: num_formats_QueryPictFormatsReply :: QueryPictFormatsReply -> CARD32
+ Graphics.XHB.Gen.Render: num_formats_QueryPictFormatsReply :: QueryPictFormatsReply -> Word32
- Graphics.XHB.Gen.Render: num_screens_QueryPictFormatsReply :: QueryPictFormatsReply -> CARD32
+ Graphics.XHB.Gen.Render: num_screens_QueryPictFormatsReply :: QueryPictFormatsReply -> Word32
- Graphics.XHB.Gen.Render: num_stops_CreateConicalGradient :: CreateConicalGradient -> CARD32
+ Graphics.XHB.Gen.Render: num_stops_CreateConicalGradient :: CreateConicalGradient -> Word32
- Graphics.XHB.Gen.Render: num_stops_CreateLinearGradient :: CreateLinearGradient -> CARD32
+ Graphics.XHB.Gen.Render: num_stops_CreateLinearGradient :: CreateLinearGradient -> Word32
- Graphics.XHB.Gen.Render: num_stops_CreateRadialGradient :: CreateRadialGradient -> CARD32
+ Graphics.XHB.Gen.Render: num_stops_CreateRadialGradient :: CreateRadialGradient -> Word32
- Graphics.XHB.Gen.Render: num_subpixel_QueryPictFormatsReply :: QueryPictFormatsReply -> CARD32
+ Graphics.XHB.Gen.Render: num_subpixel_QueryPictFormatsReply :: QueryPictFormatsReply -> Word32
- Graphics.XHB.Gen.Render: num_values_QueryPictIndexValuesReply :: QueryPictIndexValuesReply -> CARD32
+ Graphics.XHB.Gen.Render: num_values_QueryPictIndexValuesReply :: QueryPictIndexValuesReply -> Word32
- Graphics.XHB.Gen.Render: num_visuals_PICTDEPTH :: PICTDEPTH -> CARD16
+ Graphics.XHB.Gen.Render: num_visuals_PICTDEPTH :: PICTDEPTH -> Word16
- Graphics.XHB.Gen.Render: num_visuals_QueryPictFormatsReply :: QueryPictFormatsReply -> CARD32
+ Graphics.XHB.Gen.Render: num_visuals_QueryPictFormatsReply :: QueryPictFormatsReply -> Word32
- Graphics.XHB.Gen.Render: op_Composite :: Composite -> CARD8
+ Graphics.XHB.Gen.Render: op_Composite :: Composite -> Word8
- Graphics.XHB.Gen.Render: op_CompositeGlyphs16 :: CompositeGlyphs16 -> CARD8
+ Graphics.XHB.Gen.Render: op_CompositeGlyphs16 :: CompositeGlyphs16 -> Word8
- Graphics.XHB.Gen.Render: op_CompositeGlyphs32 :: CompositeGlyphs32 -> CARD8
+ Graphics.XHB.Gen.Render: op_CompositeGlyphs32 :: CompositeGlyphs32 -> Word8
- Graphics.XHB.Gen.Render: op_CompositeGlyphs8 :: CompositeGlyphs8 -> CARD8
+ Graphics.XHB.Gen.Render: op_CompositeGlyphs8 :: CompositeGlyphs8 -> Word8
- Graphics.XHB.Gen.Render: op_FillRectangles :: FillRectangles -> CARD8
+ Graphics.XHB.Gen.Render: op_FillRectangles :: FillRectangles -> Word8
- Graphics.XHB.Gen.Render: op_Trapezoids :: Trapezoids -> CARD8
+ Graphics.XHB.Gen.Render: op_Trapezoids :: Trapezoids -> Word8
- Graphics.XHB.Gen.Render: op_TriFan :: TriFan -> CARD8
+ Graphics.XHB.Gen.Render: op_TriFan :: TriFan -> Word8
- Graphics.XHB.Gen.Render: op_TriStrip :: TriStrip -> CARD8
+ Graphics.XHB.Gen.Render: op_TriStrip :: TriStrip -> Word8
- Graphics.XHB.Gen.Render: op_Triangles :: Triangles -> CARD8
+ Graphics.XHB.Gen.Render: op_Triangles :: Triangles -> Word8
- Graphics.XHB.Gen.Render: pixel_INDEXVALUE :: INDEXVALUE -> CARD32
+ Graphics.XHB.Gen.Render: pixel_INDEXVALUE :: INDEXVALUE -> Word32
- Graphics.XHB.Gen.Render: queryVersion :: Connection -> CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Render: queryVersion :: Connection -> Word32 -> Word32 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Render: red_COLOR :: COLOR -> CARD16
+ Graphics.XHB.Gen.Render: red_COLOR :: COLOR -> Word16
- Graphics.XHB.Gen.Render: red_INDEXVALUE :: INDEXVALUE -> CARD16
+ Graphics.XHB.Gen.Render: red_INDEXVALUE :: INDEXVALUE -> Word16
- Graphics.XHB.Gen.Render: red_mask_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: red_mask_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: red_shift_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: red_shift_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: src_x_Composite :: Composite -> INT16
+ Graphics.XHB.Gen.Render: src_x_Composite :: Composite -> Int16
- Graphics.XHB.Gen.Render: src_x_CompositeGlyphs16 :: CompositeGlyphs16 -> INT16
+ Graphics.XHB.Gen.Render: src_x_CompositeGlyphs16 :: CompositeGlyphs16 -> Int16
- Graphics.XHB.Gen.Render: src_x_CompositeGlyphs32 :: CompositeGlyphs32 -> INT16
+ Graphics.XHB.Gen.Render: src_x_CompositeGlyphs32 :: CompositeGlyphs32 -> Int16
- Graphics.XHB.Gen.Render: src_x_CompositeGlyphs8 :: CompositeGlyphs8 -> INT16
+ Graphics.XHB.Gen.Render: src_x_CompositeGlyphs8 :: CompositeGlyphs8 -> Int16
- Graphics.XHB.Gen.Render: src_x_Trapezoids :: Trapezoids -> INT16
+ Graphics.XHB.Gen.Render: src_x_Trapezoids :: Trapezoids -> Int16
- Graphics.XHB.Gen.Render: src_x_TriFan :: TriFan -> INT16
+ Graphics.XHB.Gen.Render: src_x_TriFan :: TriFan -> Int16
- Graphics.XHB.Gen.Render: src_x_TriStrip :: TriStrip -> INT16
+ Graphics.XHB.Gen.Render: src_x_TriStrip :: TriStrip -> Int16
- Graphics.XHB.Gen.Render: src_x_Triangles :: Triangles -> INT16
+ Graphics.XHB.Gen.Render: src_x_Triangles :: Triangles -> Int16
- Graphics.XHB.Gen.Render: src_y_Composite :: Composite -> INT16
+ Graphics.XHB.Gen.Render: src_y_Composite :: Composite -> Int16
- Graphics.XHB.Gen.Render: src_y_CompositeGlyphs16 :: CompositeGlyphs16 -> INT16
+ Graphics.XHB.Gen.Render: src_y_CompositeGlyphs16 :: CompositeGlyphs16 -> Int16
- Graphics.XHB.Gen.Render: src_y_CompositeGlyphs32 :: CompositeGlyphs32 -> INT16
+ Graphics.XHB.Gen.Render: src_y_CompositeGlyphs32 :: CompositeGlyphs32 -> Int16
- Graphics.XHB.Gen.Render: src_y_CompositeGlyphs8 :: CompositeGlyphs8 -> INT16
+ Graphics.XHB.Gen.Render: src_y_CompositeGlyphs8 :: CompositeGlyphs8 -> Int16
- Graphics.XHB.Gen.Render: src_y_Trapezoids :: Trapezoids -> INT16
+ Graphics.XHB.Gen.Render: src_y_Trapezoids :: Trapezoids -> Int16
- Graphics.XHB.Gen.Render: src_y_TriFan :: TriFan -> INT16
+ Graphics.XHB.Gen.Render: src_y_TriFan :: TriFan -> Int16
- Graphics.XHB.Gen.Render: src_y_TriStrip :: TriStrip -> INT16
+ Graphics.XHB.Gen.Render: src_y_TriStrip :: TriStrip -> Int16
- Graphics.XHB.Gen.Render: src_y_Triangles :: Triangles -> INT16
+ Graphics.XHB.Gen.Render: src_y_Triangles :: Triangles -> Int16
- Graphics.XHB.Gen.Render: subpixels_QueryPictFormatsReply :: QueryPictFormatsReply -> [CARD32]
+ Graphics.XHB.Gen.Render: subpixels_QueryPictFormatsReply :: QueryPictFormatsReply -> [Word32]
- Graphics.XHB.Gen.Render: type FIXED = INT32
+ Graphics.XHB.Gen.Render: type FIXED = Int32
- Graphics.XHB.Gen.Render: type GLYPH = CARD32
+ Graphics.XHB.Gen.Render: type GLYPH = Word32
- Graphics.XHB.Gen.Render: type_PICTFORMINFO :: PICTFORMINFO -> CARD8
+ Graphics.XHB.Gen.Render: type_PICTFORMINFO :: PICTFORMINFO -> Word8
- Graphics.XHB.Gen.Render: value_ChangePicture :: ChangePicture -> ValueParam CARD32
+ Graphics.XHB.Gen.Render: value_ChangePicture :: ChangePicture -> ValueParam Word32
- Graphics.XHB.Gen.Render: value_CreatePicture :: CreatePicture -> ValueParam CARD32
+ Graphics.XHB.Gen.Render: value_CreatePicture :: CreatePicture -> ValueParam Word32
- Graphics.XHB.Gen.Render: width_Composite :: Composite -> CARD16
+ Graphics.XHB.Gen.Render: width_Composite :: Composite -> Word16
- Graphics.XHB.Gen.Render: width_GLYPHINFO :: GLYPHINFO -> CARD16
+ Graphics.XHB.Gen.Render: width_GLYPHINFO :: GLYPHINFO -> Word16
- Graphics.XHB.Gen.Render: x_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Render: x_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Render: x_GLYPHINFO :: GLYPHINFO -> INT16
+ Graphics.XHB.Gen.Render: x_GLYPHINFO :: GLYPHINFO -> Int16
- Graphics.XHB.Gen.Render: x_off_AddTraps :: AddTraps -> INT16
+ Graphics.XHB.Gen.Render: x_off_AddTraps :: AddTraps -> Int16
- Graphics.XHB.Gen.Render: x_off_GLYPHINFO :: GLYPHINFO -> INT16
+ Graphics.XHB.Gen.Render: x_off_GLYPHINFO :: GLYPHINFO -> Int16
- Graphics.XHB.Gen.Render: y_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Render: y_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Render: y_GLYPHINFO :: GLYPHINFO -> INT16
+ Graphics.XHB.Gen.Render: y_GLYPHINFO :: GLYPHINFO -> Int16
- Graphics.XHB.Gen.Render: y_off_AddTraps :: AddTraps -> INT16
+ Graphics.XHB.Gen.Render: y_off_AddTraps :: AddTraps -> Int16
- Graphics.XHB.Gen.Render: y_off_GLYPHINFO :: GLYPHINFO -> INT16
+ Graphics.XHB.Gen.Render: y_off_GLYPHINFO :: GLYPHINFO -> Int16
- Graphics.XHB.Gen.Res: MkClient :: CARD32 -> CARD32 -> Client
+ Graphics.XHB.Gen.Res: MkClient :: Word32 -> Word32 -> Client
- Graphics.XHB.Gen.Res: MkQueryClientPixmapBytes :: CARD32 -> QueryClientPixmapBytes
+ Graphics.XHB.Gen.Res: MkQueryClientPixmapBytes :: Word32 -> QueryClientPixmapBytes
- Graphics.XHB.Gen.Res: MkQueryClientPixmapBytesReply :: CARD32 -> CARD32 -> QueryClientPixmapBytesReply
+ Graphics.XHB.Gen.Res: MkQueryClientPixmapBytesReply :: Word32 -> Word32 -> QueryClientPixmapBytesReply
- Graphics.XHB.Gen.Res: MkQueryClientResources :: CARD32 -> QueryClientResources
+ Graphics.XHB.Gen.Res: MkQueryClientResources :: Word32 -> QueryClientResources
- Graphics.XHB.Gen.Res: MkQueryClientResourcesReply :: CARD32 -> [Type] -> QueryClientResourcesReply
+ Graphics.XHB.Gen.Res: MkQueryClientResourcesReply :: Word32 -> [Type] -> QueryClientResourcesReply
- Graphics.XHB.Gen.Res: MkQueryClientsReply :: CARD32 -> [Client] -> QueryClientsReply
+ Graphics.XHB.Gen.Res: MkQueryClientsReply :: Word32 -> [Client] -> QueryClientsReply
- Graphics.XHB.Gen.Res: MkQueryVersion :: CARD8 -> CARD8 -> QueryVersion
+ Graphics.XHB.Gen.Res: MkQueryVersion :: Word8 -> Word8 -> QueryVersion
- Graphics.XHB.Gen.Res: MkQueryVersionReply :: CARD16 -> CARD16 -> QueryVersionReply
+ Graphics.XHB.Gen.Res: MkQueryVersionReply :: Word16 -> Word16 -> QueryVersionReply
- Graphics.XHB.Gen.Res: MkType :: ATOM -> CARD32 -> Type
+ Graphics.XHB.Gen.Res: MkType :: ATOM -> Word32 -> Type
- Graphics.XHB.Gen.Res: bytes_QueryClientPixmapBytesReply :: QueryClientPixmapBytesReply -> CARD32
+ Graphics.XHB.Gen.Res: bytes_QueryClientPixmapBytesReply :: QueryClientPixmapBytesReply -> Word32
- Graphics.XHB.Gen.Res: bytes_overflow_QueryClientPixmapBytesReply :: QueryClientPixmapBytesReply -> CARD32
+ Graphics.XHB.Gen.Res: bytes_overflow_QueryClientPixmapBytesReply :: QueryClientPixmapBytesReply -> Word32
- Graphics.XHB.Gen.Res: client_major_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.Res: client_major_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.Res: client_minor_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.Res: client_minor_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.Res: count_Type :: Type -> CARD32
+ Graphics.XHB.Gen.Res: count_Type :: Type -> Word32
- Graphics.XHB.Gen.Res: num_clients_QueryClientsReply :: QueryClientsReply -> CARD32
+ Graphics.XHB.Gen.Res: num_clients_QueryClientsReply :: QueryClientsReply -> Word32
- Graphics.XHB.Gen.Res: num_types_QueryClientResourcesReply :: QueryClientResourcesReply -> CARD32
+ Graphics.XHB.Gen.Res: num_types_QueryClientResourcesReply :: QueryClientResourcesReply -> Word32
- Graphics.XHB.Gen.Res: queryClientPixmapBytes :: Connection -> CARD32 -> IO (Receipt QueryClientPixmapBytesReply)
+ Graphics.XHB.Gen.Res: queryClientPixmapBytes :: Connection -> Word32 -> IO (Receipt QueryClientPixmapBytesReply)
- Graphics.XHB.Gen.Res: queryClientResources :: Connection -> CARD32 -> IO (Receipt QueryClientResourcesReply)
+ Graphics.XHB.Gen.Res: queryClientResources :: Connection -> Word32 -> IO (Receipt QueryClientResourcesReply)
- Graphics.XHB.Gen.Res: queryVersion :: Connection -> CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Res: queryVersion :: Connection -> Word8 -> Word8 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Res: resource_base_Client :: Client -> CARD32
+ Graphics.XHB.Gen.Res: resource_base_Client :: Client -> Word32
- Graphics.XHB.Gen.Res: resource_mask_Client :: Client -> CARD32
+ Graphics.XHB.Gen.Res: resource_mask_Client :: Client -> Word32
- Graphics.XHB.Gen.Res: server_major_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Res: server_major_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Res: server_minor_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Res: server_minor_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Res: xid_QueryClientPixmapBytes :: QueryClientPixmapBytes -> CARD32
+ Graphics.XHB.Gen.Res: xid_QueryClientPixmapBytes :: QueryClientPixmapBytes -> Word32
- Graphics.XHB.Gen.Res: xid_QueryClientResources :: QueryClientResources -> CARD32
+ Graphics.XHB.Gen.Res: xid_QueryClientResources :: QueryClientResources -> Word32
- Graphics.XHB.Gen.SELinux: MkGetClientContext :: CARD32 -> GetClientContext
+ Graphics.XHB.Gen.SELinux: MkGetClientContext :: Word32 -> GetClientContext
- Graphics.XHB.Gen.SELinux: MkGetClientContextReply :: CARD32 -> [CChar] -> GetClientContextReply
+ Graphics.XHB.Gen.SELinux: MkGetClientContextReply :: Word32 -> [CChar] -> GetClientContextReply
- Graphics.XHB.Gen.SELinux: MkGetDeviceContext :: CARD32 -> GetDeviceContext
+ Graphics.XHB.Gen.SELinux: MkGetDeviceContext :: Word32 -> GetDeviceContext
- Graphics.XHB.Gen.SELinux: MkGetDeviceContextReply :: CARD32 -> [CChar] -> GetDeviceContextReply
+ Graphics.XHB.Gen.SELinux: MkGetDeviceContextReply :: Word32 -> [CChar] -> GetDeviceContextReply
- Graphics.XHB.Gen.SELinux: MkGetDeviceCreateContextReply :: CARD32 -> [CChar] -> GetDeviceCreateContextReply
+ Graphics.XHB.Gen.SELinux: MkGetDeviceCreateContextReply :: Word32 -> [CChar] -> GetDeviceCreateContextReply
- Graphics.XHB.Gen.SELinux: MkGetPropertyContextReply :: CARD32 -> [CChar] -> GetPropertyContextReply
+ Graphics.XHB.Gen.SELinux: MkGetPropertyContextReply :: Word32 -> [CChar] -> GetPropertyContextReply
- Graphics.XHB.Gen.SELinux: MkGetPropertyCreateContextReply :: CARD32 -> [CChar] -> GetPropertyCreateContextReply
+ Graphics.XHB.Gen.SELinux: MkGetPropertyCreateContextReply :: Word32 -> [CChar] -> GetPropertyCreateContextReply
- Graphics.XHB.Gen.SELinux: MkGetPropertyDataContextReply :: CARD32 -> [CChar] -> GetPropertyDataContextReply
+ Graphics.XHB.Gen.SELinux: MkGetPropertyDataContextReply :: Word32 -> [CChar] -> GetPropertyDataContextReply
- Graphics.XHB.Gen.SELinux: MkGetPropertyUseContextReply :: CARD32 -> [CChar] -> GetPropertyUseContextReply
+ Graphics.XHB.Gen.SELinux: MkGetPropertyUseContextReply :: Word32 -> [CChar] -> GetPropertyUseContextReply
- Graphics.XHB.Gen.SELinux: MkGetSelectionContextReply :: CARD32 -> [CChar] -> GetSelectionContextReply
+ Graphics.XHB.Gen.SELinux: MkGetSelectionContextReply :: Word32 -> [CChar] -> GetSelectionContextReply
- Graphics.XHB.Gen.SELinux: MkGetSelectionCreateContextReply :: CARD32 -> [CChar] -> GetSelectionCreateContextReply
+ Graphics.XHB.Gen.SELinux: MkGetSelectionCreateContextReply :: Word32 -> [CChar] -> GetSelectionCreateContextReply
- Graphics.XHB.Gen.SELinux: MkGetSelectionDataContextReply :: CARD32 -> [CChar] -> GetSelectionDataContextReply
+ Graphics.XHB.Gen.SELinux: MkGetSelectionDataContextReply :: Word32 -> [CChar] -> GetSelectionDataContextReply
- Graphics.XHB.Gen.SELinux: MkGetSelectionUseContextReply :: CARD32 -> [CChar] -> GetSelectionUseContextReply
+ Graphics.XHB.Gen.SELinux: MkGetSelectionUseContextReply :: Word32 -> [CChar] -> GetSelectionUseContextReply
- Graphics.XHB.Gen.SELinux: MkGetWindowContextReply :: CARD32 -> [CChar] -> GetWindowContextReply
+ Graphics.XHB.Gen.SELinux: MkGetWindowContextReply :: Word32 -> [CChar] -> GetWindowContextReply
- Graphics.XHB.Gen.SELinux: MkGetWindowCreateContextReply :: CARD32 -> [CChar] -> GetWindowCreateContextReply
+ Graphics.XHB.Gen.SELinux: MkGetWindowCreateContextReply :: Word32 -> [CChar] -> GetWindowCreateContextReply
- Graphics.XHB.Gen.SELinux: MkListItem :: ATOM -> CARD32 -> CARD32 -> [CChar] -> [CChar] -> ListItem
+ Graphics.XHB.Gen.SELinux: MkListItem :: ATOM -> Word32 -> Word32 -> [CChar] -> [CChar] -> ListItem
- Graphics.XHB.Gen.SELinux: MkListPropertiesReply :: CARD32 -> [ListItem] -> ListPropertiesReply
+ Graphics.XHB.Gen.SELinux: MkListPropertiesReply :: Word32 -> [ListItem] -> ListPropertiesReply
- Graphics.XHB.Gen.SELinux: MkListSelectionsReply :: CARD32 -> [ListItem] -> ListSelectionsReply
+ Graphics.XHB.Gen.SELinux: MkListSelectionsReply :: Word32 -> [ListItem] -> ListSelectionsReply
- Graphics.XHB.Gen.SELinux: MkQueryVersion :: CARD8 -> CARD8 -> QueryVersion
+ Graphics.XHB.Gen.SELinux: MkQueryVersion :: Word8 -> Word8 -> QueryVersion
- Graphics.XHB.Gen.SELinux: MkQueryVersionReply :: CARD16 -> CARD16 -> QueryVersionReply
+ Graphics.XHB.Gen.SELinux: MkQueryVersionReply :: Word16 -> Word16 -> QueryVersionReply
- Graphics.XHB.Gen.SELinux: MkSetDeviceContext :: CARD32 -> CARD32 -> [CChar] -> SetDeviceContext
+ Graphics.XHB.Gen.SELinux: MkSetDeviceContext :: Word32 -> Word32 -> [CChar] -> SetDeviceContext
- Graphics.XHB.Gen.SELinux: MkSetDeviceCreateContext :: CARD32 -> [CChar] -> SetDeviceCreateContext
+ Graphics.XHB.Gen.SELinux: MkSetDeviceCreateContext :: Word32 -> [CChar] -> SetDeviceCreateContext
- Graphics.XHB.Gen.SELinux: MkSetPropertyCreateContext :: CARD32 -> [CChar] -> SetPropertyCreateContext
+ Graphics.XHB.Gen.SELinux: MkSetPropertyCreateContext :: Word32 -> [CChar] -> SetPropertyCreateContext
- Graphics.XHB.Gen.SELinux: MkSetPropertyUseContext :: CARD32 -> [CChar] -> SetPropertyUseContext
+ Graphics.XHB.Gen.SELinux: MkSetPropertyUseContext :: Word32 -> [CChar] -> SetPropertyUseContext
- Graphics.XHB.Gen.SELinux: MkSetSelectionCreateContext :: CARD32 -> [CChar] -> SetSelectionCreateContext
+ Graphics.XHB.Gen.SELinux: MkSetSelectionCreateContext :: Word32 -> [CChar] -> SetSelectionCreateContext
- Graphics.XHB.Gen.SELinux: MkSetSelectionUseContext :: CARD32 -> [CChar] -> SetSelectionUseContext
+ Graphics.XHB.Gen.SELinux: MkSetSelectionUseContext :: Word32 -> [CChar] -> SetSelectionUseContext
- Graphics.XHB.Gen.SELinux: MkSetWindowCreateContext :: CARD32 -> [CChar] -> SetWindowCreateContext
+ Graphics.XHB.Gen.SELinux: MkSetWindowCreateContext :: Word32 -> [CChar] -> SetWindowCreateContext
- Graphics.XHB.Gen.SELinux: client_major_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.SELinux: client_major_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.SELinux: client_minor_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.SELinux: client_minor_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.SELinux: context_len_GetClientContextReply :: GetClientContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetClientContextReply :: GetClientContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetDeviceContextReply :: GetDeviceContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetDeviceContextReply :: GetDeviceContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetDeviceCreateContextReply :: GetDeviceCreateContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetDeviceCreateContextReply :: GetDeviceCreateContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetPropertyContextReply :: GetPropertyContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetPropertyContextReply :: GetPropertyContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetPropertyCreateContextReply :: GetPropertyCreateContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetPropertyCreateContextReply :: GetPropertyCreateContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetPropertyDataContextReply :: GetPropertyDataContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetPropertyDataContextReply :: GetPropertyDataContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetPropertyUseContextReply :: GetPropertyUseContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetPropertyUseContextReply :: GetPropertyUseContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetSelectionContextReply :: GetSelectionContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetSelectionContextReply :: GetSelectionContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetSelectionCreateContextReply :: GetSelectionCreateContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetSelectionCreateContextReply :: GetSelectionCreateContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetSelectionDataContextReply :: GetSelectionDataContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetSelectionDataContextReply :: GetSelectionDataContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetSelectionUseContextReply :: GetSelectionUseContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetSelectionUseContextReply :: GetSelectionUseContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetWindowContextReply :: GetWindowContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetWindowContextReply :: GetWindowContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetWindowCreateContextReply :: GetWindowCreateContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetWindowCreateContextReply :: GetWindowCreateContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_SetDeviceContext :: SetDeviceContext -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_SetDeviceContext :: SetDeviceContext -> Word32
- Graphics.XHB.Gen.SELinux: context_len_SetDeviceCreateContext :: SetDeviceCreateContext -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_SetDeviceCreateContext :: SetDeviceCreateContext -> Word32
- Graphics.XHB.Gen.SELinux: context_len_SetPropertyCreateContext :: SetPropertyCreateContext -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_SetPropertyCreateContext :: SetPropertyCreateContext -> Word32
- Graphics.XHB.Gen.SELinux: context_len_SetPropertyUseContext :: SetPropertyUseContext -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_SetPropertyUseContext :: SetPropertyUseContext -> Word32
- Graphics.XHB.Gen.SELinux: context_len_SetSelectionCreateContext :: SetSelectionCreateContext -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_SetSelectionCreateContext :: SetSelectionCreateContext -> Word32
- Graphics.XHB.Gen.SELinux: context_len_SetSelectionUseContext :: SetSelectionUseContext -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_SetSelectionUseContext :: SetSelectionUseContext -> Word32
- Graphics.XHB.Gen.SELinux: context_len_SetWindowCreateContext :: SetWindowCreateContext -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_SetWindowCreateContext :: SetWindowCreateContext -> Word32
- Graphics.XHB.Gen.SELinux: data_context_len_ListItem :: ListItem -> CARD32
+ Graphics.XHB.Gen.SELinux: data_context_len_ListItem :: ListItem -> Word32
- Graphics.XHB.Gen.SELinux: device_GetDeviceContext :: GetDeviceContext -> CARD32
+ Graphics.XHB.Gen.SELinux: device_GetDeviceContext :: GetDeviceContext -> Word32
- Graphics.XHB.Gen.SELinux: device_SetDeviceContext :: SetDeviceContext -> CARD32
+ Graphics.XHB.Gen.SELinux: device_SetDeviceContext :: SetDeviceContext -> Word32
- Graphics.XHB.Gen.SELinux: getClientContext :: Connection -> CARD32 -> IO (Receipt GetClientContextReply)
+ Graphics.XHB.Gen.SELinux: getClientContext :: Connection -> Word32 -> IO (Receipt GetClientContextReply)
- Graphics.XHB.Gen.SELinux: getDeviceContext :: Connection -> CARD32 -> IO (Receipt GetDeviceContextReply)
+ Graphics.XHB.Gen.SELinux: getDeviceContext :: Connection -> Word32 -> IO (Receipt GetDeviceContextReply)
- Graphics.XHB.Gen.SELinux: object_context_len_ListItem :: ListItem -> CARD32
+ Graphics.XHB.Gen.SELinux: object_context_len_ListItem :: ListItem -> Word32
- Graphics.XHB.Gen.SELinux: properties_len_ListPropertiesReply :: ListPropertiesReply -> CARD32
+ Graphics.XHB.Gen.SELinux: properties_len_ListPropertiesReply :: ListPropertiesReply -> Word32
- Graphics.XHB.Gen.SELinux: queryVersion :: Connection -> CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.SELinux: queryVersion :: Connection -> Word8 -> Word8 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.SELinux: resource_GetClientContext :: GetClientContext -> CARD32
+ Graphics.XHB.Gen.SELinux: resource_GetClientContext :: GetClientContext -> Word32
- Graphics.XHB.Gen.SELinux: selections_len_ListSelectionsReply :: ListSelectionsReply -> CARD32
+ Graphics.XHB.Gen.SELinux: selections_len_ListSelectionsReply :: ListSelectionsReply -> Word32
- Graphics.XHB.Gen.SELinux: server_major_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.SELinux: server_major_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.SELinux: server_minor_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.SELinux: server_minor_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.SELinux: setDeviceCreateContext :: Connection -> CARD32 -> [CChar] -> IO ()
+ Graphics.XHB.Gen.SELinux: setDeviceCreateContext :: Connection -> Word32 -> [CChar] -> IO ()
- Graphics.XHB.Gen.SELinux: setPropertyCreateContext :: Connection -> CARD32 -> [CChar] -> IO ()
+ Graphics.XHB.Gen.SELinux: setPropertyCreateContext :: Connection -> Word32 -> [CChar] -> IO ()
- Graphics.XHB.Gen.SELinux: setPropertyUseContext :: Connection -> CARD32 -> [CChar] -> IO ()
+ Graphics.XHB.Gen.SELinux: setPropertyUseContext :: Connection -> Word32 -> [CChar] -> IO ()
- Graphics.XHB.Gen.SELinux: setSelectionCreateContext :: Connection -> CARD32 -> [CChar] -> IO ()
+ Graphics.XHB.Gen.SELinux: setSelectionCreateContext :: Connection -> Word32 -> [CChar] -> IO ()
- Graphics.XHB.Gen.SELinux: setSelectionUseContext :: Connection -> CARD32 -> [CChar] -> IO ()
+ Graphics.XHB.Gen.SELinux: setSelectionUseContext :: Connection -> Word32 -> [CChar] -> IO ()
- Graphics.XHB.Gen.SELinux: setWindowCreateContext :: Connection -> CARD32 -> [CChar] -> IO ()
+ Graphics.XHB.Gen.SELinux: setWindowCreateContext :: Connection -> Word32 -> [CChar] -> IO ()
- Graphics.XHB.Gen.ScreenSaver: MkNotify :: CARD8 -> BYTE -> CARD16 -> TIMESTAMP -> WINDOW -> WINDOW -> BYTE -> BOOL -> Notify
+ Graphics.XHB.Gen.ScreenSaver: MkNotify :: Word8 -> Word8 -> Word16 -> TIMESTAMP -> WINDOW -> WINDOW -> Word8 -> Bool -> Notify
- Graphics.XHB.Gen.ScreenSaver: MkQueryInfoReply :: CARD8 -> WINDOW -> CARD32 -> CARD32 -> CARD32 -> BYTE -> QueryInfoReply
+ Graphics.XHB.Gen.ScreenSaver: MkQueryInfoReply :: Word8 -> WINDOW -> Word32 -> Word32 -> Word32 -> Word8 -> QueryInfoReply
- Graphics.XHB.Gen.ScreenSaver: MkQueryVersion :: CARD8 -> CARD8 -> QueryVersion
+ Graphics.XHB.Gen.ScreenSaver: MkQueryVersion :: Word8 -> Word8 -> QueryVersion
- Graphics.XHB.Gen.ScreenSaver: MkQueryVersionReply :: CARD16 -> CARD16 -> QueryVersionReply
+ Graphics.XHB.Gen.ScreenSaver: MkQueryVersionReply :: Word16 -> Word16 -> QueryVersionReply
- Graphics.XHB.Gen.ScreenSaver: MkSelectInput :: DRAWABLE -> CARD32 -> SelectInput
+ Graphics.XHB.Gen.ScreenSaver: MkSelectInput :: DRAWABLE -> Word32 -> SelectInput
- Graphics.XHB.Gen.ScreenSaver: MkSetAttributes :: DRAWABLE -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> BYTE -> CARD8 -> VISUALID -> ValueParam CARD32 -> SetAttributes
+ Graphics.XHB.Gen.ScreenSaver: MkSetAttributes :: DRAWABLE -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Word8 -> Word8 -> VISUALID -> ValueParam Word32 -> SetAttributes
- Graphics.XHB.Gen.ScreenSaver: MkSuspend :: BOOL -> Suspend
+ Graphics.XHB.Gen.ScreenSaver: MkSuspend :: Bool -> Suspend
- Graphics.XHB.Gen.ScreenSaver: border_width_SetAttributes :: SetAttributes -> CARD16
+ Graphics.XHB.Gen.ScreenSaver: border_width_SetAttributes :: SetAttributes -> Word16
- Graphics.XHB.Gen.ScreenSaver: class_SetAttributes :: SetAttributes -> BYTE
+ Graphics.XHB.Gen.ScreenSaver: class_SetAttributes :: SetAttributes -> Word8
- Graphics.XHB.Gen.ScreenSaver: client_major_version_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.ScreenSaver: client_major_version_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.ScreenSaver: client_minor_version_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.ScreenSaver: client_minor_version_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.ScreenSaver: code_Notify :: Notify -> CARD8
+ Graphics.XHB.Gen.ScreenSaver: code_Notify :: Notify -> Word8
- Graphics.XHB.Gen.ScreenSaver: depth_SetAttributes :: SetAttributes -> CARD8
+ Graphics.XHB.Gen.ScreenSaver: depth_SetAttributes :: SetAttributes -> Word8
- Graphics.XHB.Gen.ScreenSaver: event_mask_QueryInfoReply :: QueryInfoReply -> CARD32
+ Graphics.XHB.Gen.ScreenSaver: event_mask_QueryInfoReply :: QueryInfoReply -> Word32
- Graphics.XHB.Gen.ScreenSaver: event_mask_SelectInput :: SelectInput -> CARD32
+ Graphics.XHB.Gen.ScreenSaver: event_mask_SelectInput :: SelectInput -> Word32
- Graphics.XHB.Gen.ScreenSaver: forced_Notify :: Notify -> BOOL
+ Graphics.XHB.Gen.ScreenSaver: forced_Notify :: Notify -> Bool
- Graphics.XHB.Gen.ScreenSaver: height_SetAttributes :: SetAttributes -> CARD16
+ Graphics.XHB.Gen.ScreenSaver: height_SetAttributes :: SetAttributes -> Word16
- Graphics.XHB.Gen.ScreenSaver: kind_Notify :: Notify -> BYTE
+ Graphics.XHB.Gen.ScreenSaver: kind_Notify :: Notify -> Word8
- Graphics.XHB.Gen.ScreenSaver: kind_QueryInfoReply :: QueryInfoReply -> BYTE
+ Graphics.XHB.Gen.ScreenSaver: kind_QueryInfoReply :: QueryInfoReply -> Word8
- Graphics.XHB.Gen.ScreenSaver: ms_since_user_input_QueryInfoReply :: QueryInfoReply -> CARD32
+ Graphics.XHB.Gen.ScreenSaver: ms_since_user_input_QueryInfoReply :: QueryInfoReply -> Word32
- Graphics.XHB.Gen.ScreenSaver: ms_until_server_QueryInfoReply :: QueryInfoReply -> CARD32
+ Graphics.XHB.Gen.ScreenSaver: ms_until_server_QueryInfoReply :: QueryInfoReply -> Word32
- Graphics.XHB.Gen.ScreenSaver: queryVersion :: Connection -> CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.ScreenSaver: queryVersion :: Connection -> Word8 -> Word8 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.ScreenSaver: selectInput :: Connection -> DRAWABLE -> CARD32 -> IO ()
+ Graphics.XHB.Gen.ScreenSaver: selectInput :: Connection -> DRAWABLE -> Word32 -> IO ()
- Graphics.XHB.Gen.ScreenSaver: sequence_number_Notify :: Notify -> CARD16
+ Graphics.XHB.Gen.ScreenSaver: sequence_number_Notify :: Notify -> Word16
- Graphics.XHB.Gen.ScreenSaver: server_major_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.ScreenSaver: server_major_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.ScreenSaver: server_minor_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.ScreenSaver: server_minor_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.ScreenSaver: state_Notify :: Notify -> BYTE
+ Graphics.XHB.Gen.ScreenSaver: state_Notify :: Notify -> Word8
- Graphics.XHB.Gen.ScreenSaver: state_QueryInfoReply :: QueryInfoReply -> CARD8
+ Graphics.XHB.Gen.ScreenSaver: state_QueryInfoReply :: QueryInfoReply -> Word8
- Graphics.XHB.Gen.ScreenSaver: suspend :: Connection -> BOOL -> IO ()
+ Graphics.XHB.Gen.ScreenSaver: suspend :: Connection -> Bool -> IO ()
- Graphics.XHB.Gen.ScreenSaver: suspend_Suspend :: Suspend -> BOOL
+ Graphics.XHB.Gen.ScreenSaver: suspend_Suspend :: Suspend -> Bool
- Graphics.XHB.Gen.ScreenSaver: value_SetAttributes :: SetAttributes -> ValueParam CARD32
+ Graphics.XHB.Gen.ScreenSaver: value_SetAttributes :: SetAttributes -> ValueParam Word32
- Graphics.XHB.Gen.ScreenSaver: width_SetAttributes :: SetAttributes -> CARD16
+ Graphics.XHB.Gen.ScreenSaver: width_SetAttributes :: SetAttributes -> Word16
- Graphics.XHB.Gen.ScreenSaver: x_SetAttributes :: SetAttributes -> INT16
+ Graphics.XHB.Gen.ScreenSaver: x_SetAttributes :: SetAttributes -> Int16
- Graphics.XHB.Gen.ScreenSaver: y_SetAttributes :: SetAttributes -> INT16
+ Graphics.XHB.Gen.ScreenSaver: y_SetAttributes :: SetAttributes -> Int16
- Graphics.XHB.Gen.Shape: MkCombine :: OP -> KIND -> KIND -> WINDOW -> INT16 -> INT16 -> WINDOW -> Combine
+ Graphics.XHB.Gen.Shape: MkCombine :: OP -> KIND -> KIND -> WINDOW -> Int16 -> Int16 -> WINDOW -> Combine
- Graphics.XHB.Gen.Shape: MkGetRectanglesReply :: BYTE -> CARD32 -> [RECTANGLE] -> GetRectanglesReply
+ Graphics.XHB.Gen.Shape: MkGetRectanglesReply :: Word8 -> Word32 -> [RECTANGLE] -> GetRectanglesReply
- Graphics.XHB.Gen.Shape: MkInputSelectedReply :: BOOL -> InputSelectedReply
+ Graphics.XHB.Gen.Shape: MkInputSelectedReply :: Bool -> InputSelectedReply
- Graphics.XHB.Gen.Shape: MkMask :: OP -> KIND -> WINDOW -> INT16 -> INT16 -> PIXMAP -> Mask
+ Graphics.XHB.Gen.Shape: MkMask :: OP -> KIND -> WINDOW -> Int16 -> Int16 -> PIXMAP -> Mask
- Graphics.XHB.Gen.Shape: MkNotify :: KIND -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> TIMESTAMP -> BOOL -> Notify
+ Graphics.XHB.Gen.Shape: MkNotify :: KIND -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> TIMESTAMP -> Bool -> Notify
- Graphics.XHB.Gen.Shape: MkOffset :: KIND -> WINDOW -> INT16 -> INT16 -> Offset
+ Graphics.XHB.Gen.Shape: MkOffset :: KIND -> WINDOW -> Int16 -> Int16 -> Offset
- Graphics.XHB.Gen.Shape: MkQueryExtentsReply :: BOOL -> BOOL -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> QueryExtentsReply
+ Graphics.XHB.Gen.Shape: MkQueryExtentsReply :: Bool -> Bool -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> QueryExtentsReply
- Graphics.XHB.Gen.Shape: MkQueryVersionReply :: CARD16 -> CARD16 -> QueryVersionReply
+ Graphics.XHB.Gen.Shape: MkQueryVersionReply :: Word16 -> Word16 -> QueryVersionReply
- Graphics.XHB.Gen.Shape: MkRectangles :: OP -> KIND -> BYTE -> WINDOW -> INT16 -> INT16 -> [RECTANGLE] -> Rectangles
+ Graphics.XHB.Gen.Shape: MkRectangles :: OP -> KIND -> Word8 -> WINDOW -> Int16 -> Int16 -> [RECTANGLE] -> Rectangles
- Graphics.XHB.Gen.Shape: MkSelectInput :: WINDOW -> BOOL -> SelectInput
+ Graphics.XHB.Gen.Shape: MkSelectInput :: WINDOW -> Bool -> SelectInput
- Graphics.XHB.Gen.Shape: bounding_shape_extents_height_QueryExtentsReply :: QueryExtentsReply -> CARD16
+ Graphics.XHB.Gen.Shape: bounding_shape_extents_height_QueryExtentsReply :: QueryExtentsReply -> Word16
- Graphics.XHB.Gen.Shape: bounding_shape_extents_width_QueryExtentsReply :: QueryExtentsReply -> CARD16
+ Graphics.XHB.Gen.Shape: bounding_shape_extents_width_QueryExtentsReply :: QueryExtentsReply -> Word16
- Graphics.XHB.Gen.Shape: bounding_shape_extents_x_QueryExtentsReply :: QueryExtentsReply -> INT16
+ Graphics.XHB.Gen.Shape: bounding_shape_extents_x_QueryExtentsReply :: QueryExtentsReply -> Int16
- Graphics.XHB.Gen.Shape: bounding_shape_extents_y_QueryExtentsReply :: QueryExtentsReply -> INT16
+ Graphics.XHB.Gen.Shape: bounding_shape_extents_y_QueryExtentsReply :: QueryExtentsReply -> Int16
- Graphics.XHB.Gen.Shape: bounding_shaped_QueryExtentsReply :: QueryExtentsReply -> BOOL
+ Graphics.XHB.Gen.Shape: bounding_shaped_QueryExtentsReply :: QueryExtentsReply -> Bool
- Graphics.XHB.Gen.Shape: clip_shape_extents_height_QueryExtentsReply :: QueryExtentsReply -> CARD16
+ Graphics.XHB.Gen.Shape: clip_shape_extents_height_QueryExtentsReply :: QueryExtentsReply -> Word16
- Graphics.XHB.Gen.Shape: clip_shape_extents_width_QueryExtentsReply :: QueryExtentsReply -> CARD16
+ Graphics.XHB.Gen.Shape: clip_shape_extents_width_QueryExtentsReply :: QueryExtentsReply -> Word16
- Graphics.XHB.Gen.Shape: clip_shape_extents_x_QueryExtentsReply :: QueryExtentsReply -> INT16
+ Graphics.XHB.Gen.Shape: clip_shape_extents_x_QueryExtentsReply :: QueryExtentsReply -> Int16
- Graphics.XHB.Gen.Shape: clip_shape_extents_y_QueryExtentsReply :: QueryExtentsReply -> INT16
+ Graphics.XHB.Gen.Shape: clip_shape_extents_y_QueryExtentsReply :: QueryExtentsReply -> Int16
- Graphics.XHB.Gen.Shape: clip_shaped_QueryExtentsReply :: QueryExtentsReply -> BOOL
+ Graphics.XHB.Gen.Shape: clip_shaped_QueryExtentsReply :: QueryExtentsReply -> Bool
- Graphics.XHB.Gen.Shape: enable_SelectInput :: SelectInput -> BOOL
+ Graphics.XHB.Gen.Shape: enable_SelectInput :: SelectInput -> Bool
- Graphics.XHB.Gen.Shape: enabled_InputSelectedReply :: InputSelectedReply -> BOOL
+ Graphics.XHB.Gen.Shape: enabled_InputSelectedReply :: InputSelectedReply -> Bool
- Graphics.XHB.Gen.Shape: extents_height_Notify :: Notify -> CARD16
+ Graphics.XHB.Gen.Shape: extents_height_Notify :: Notify -> Word16
- Graphics.XHB.Gen.Shape: extents_width_Notify :: Notify -> CARD16
+ Graphics.XHB.Gen.Shape: extents_width_Notify :: Notify -> Word16
- Graphics.XHB.Gen.Shape: extents_x_Notify :: Notify -> INT16
+ Graphics.XHB.Gen.Shape: extents_x_Notify :: Notify -> Int16
- Graphics.XHB.Gen.Shape: extents_y_Notify :: Notify -> INT16
+ Graphics.XHB.Gen.Shape: extents_y_Notify :: Notify -> Int16
- Graphics.XHB.Gen.Shape: inputSelected :: Connection -> WINDOW -> IO (Receipt InputSelectedReply)
+ Graphics.XHB.Gen.Shape: inputSelected :: Connection -> WINDOW -> IO (Receipt Bool)
- Graphics.XHB.Gen.Shape: major_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Shape: major_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Shape: minor_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Shape: minor_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Shape: ordering_GetRectanglesReply :: GetRectanglesReply -> BYTE
+ Graphics.XHB.Gen.Shape: ordering_GetRectanglesReply :: GetRectanglesReply -> Word8
- Graphics.XHB.Gen.Shape: ordering_Rectangles :: Rectangles -> BYTE
+ Graphics.XHB.Gen.Shape: ordering_Rectangles :: Rectangles -> Word8
- Graphics.XHB.Gen.Shape: rectangles_len_GetRectanglesReply :: GetRectanglesReply -> CARD32
+ Graphics.XHB.Gen.Shape: rectangles_len_GetRectanglesReply :: GetRectanglesReply -> Word32
- Graphics.XHB.Gen.Shape: selectInput :: Connection -> WINDOW -> BOOL -> IO ()
+ Graphics.XHB.Gen.Shape: selectInput :: Connection -> WINDOW -> Bool -> IO ()
- Graphics.XHB.Gen.Shape: shaped_Notify :: Notify -> BOOL
+ Graphics.XHB.Gen.Shape: shaped_Notify :: Notify -> Bool
- Graphics.XHB.Gen.Shape: type KIND = CARD8
+ Graphics.XHB.Gen.Shape: type KIND = Word8
- Graphics.XHB.Gen.Shape: type OP = CARD8
+ Graphics.XHB.Gen.Shape: type OP = Word8
- Graphics.XHB.Gen.Shape: x_offset_Combine :: Combine -> INT16
+ Graphics.XHB.Gen.Shape: x_offset_Combine :: Combine -> Int16
- Graphics.XHB.Gen.Shape: x_offset_Mask :: Mask -> INT16
+ Graphics.XHB.Gen.Shape: x_offset_Mask :: Mask -> Int16
- Graphics.XHB.Gen.Shape: x_offset_Offset :: Offset -> INT16
+ Graphics.XHB.Gen.Shape: x_offset_Offset :: Offset -> Int16
- Graphics.XHB.Gen.Shape: x_offset_Rectangles :: Rectangles -> INT16
+ Graphics.XHB.Gen.Shape: x_offset_Rectangles :: Rectangles -> Int16
- Graphics.XHB.Gen.Shape: y_offset_Combine :: Combine -> INT16
+ Graphics.XHB.Gen.Shape: y_offset_Combine :: Combine -> Int16
- Graphics.XHB.Gen.Shape: y_offset_Mask :: Mask -> INT16
+ Graphics.XHB.Gen.Shape: y_offset_Mask :: Mask -> Int16
- Graphics.XHB.Gen.Shape: y_offset_Offset :: Offset -> INT16
+ Graphics.XHB.Gen.Shape: y_offset_Offset :: Offset -> Int16
- Graphics.XHB.Gen.Shape: y_offset_Rectangles :: Rectangles -> INT16
+ Graphics.XHB.Gen.Shape: y_offset_Rectangles :: Rectangles -> Int16
- Graphics.XHB.Gen.Shm: MkAttach :: SEG -> CARD32 -> BOOL -> Attach
+ Graphics.XHB.Gen.Shm: MkAttach :: SEG -> Word32 -> Bool -> Attach
- Graphics.XHB.Gen.Shm: MkBadSeg :: CARD32 -> CARD16 -> CARD8 -> BadSeg
+ Graphics.XHB.Gen.Shm: MkBadSeg :: Word32 -> Word16 -> Word8 -> BadSeg
- Graphics.XHB.Gen.Shm: MkCompletion :: DRAWABLE -> SEG -> CARD16 -> BYTE -> CARD32 -> Completion
+ Graphics.XHB.Gen.Shm: MkCompletion :: DRAWABLE -> SEG -> Word16 -> Word8 -> Word32 -> Completion
- Graphics.XHB.Gen.Shm: MkCreatePixmap :: PIXMAP -> DRAWABLE -> CARD16 -> CARD16 -> CARD8 -> SEG -> CARD32 -> CreatePixmap
+ Graphics.XHB.Gen.Shm: MkCreatePixmap :: PIXMAP -> DRAWABLE -> Word16 -> Word16 -> Word8 -> SEG -> Word32 -> CreatePixmap
- Graphics.XHB.Gen.Shm: MkGetImage :: DRAWABLE -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD32 -> CARD8 -> SEG -> CARD32 -> GetImage
+ Graphics.XHB.Gen.Shm: MkGetImage :: DRAWABLE -> Int16 -> Int16 -> Word16 -> Word16 -> Word32 -> Word8 -> SEG -> Word32 -> GetImage
- Graphics.XHB.Gen.Shm: MkGetImageReply :: CARD8 -> VISUALID -> CARD32 -> GetImageReply
+ Graphics.XHB.Gen.Shm: MkGetImageReply :: Word8 -> VISUALID -> Word32 -> GetImageReply
- Graphics.XHB.Gen.Shm: MkPutImage :: DRAWABLE -> GCONTEXT -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD8 -> CARD8 -> CARD8 -> SEG -> CARD32 -> PutImage
+ Graphics.XHB.Gen.Shm: MkPutImage :: DRAWABLE -> GCONTEXT -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word8 -> Word8 -> Word8 -> SEG -> Word32 -> PutImage
- Graphics.XHB.Gen.Shm: MkQueryVersionReply :: BOOL -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD8 -> QueryVersionReply
+ Graphics.XHB.Gen.Shm: MkQueryVersionReply :: Bool -> Word16 -> Word16 -> Word16 -> Word16 -> Word8 -> QueryVersionReply
- Graphics.XHB.Gen.Shm: bad_value_BadSeg :: BadSeg -> CARD32
+ Graphics.XHB.Gen.Shm: bad_value_BadSeg :: BadSeg -> Word32
- Graphics.XHB.Gen.Shm: depth_CreatePixmap :: CreatePixmap -> CARD8
+ Graphics.XHB.Gen.Shm: depth_CreatePixmap :: CreatePixmap -> Word8
- Graphics.XHB.Gen.Shm: depth_GetImageReply :: GetImageReply -> CARD8
+ Graphics.XHB.Gen.Shm: depth_GetImageReply :: GetImageReply -> Word8
- Graphics.XHB.Gen.Shm: depth_PutImage :: PutImage -> CARD8
+ Graphics.XHB.Gen.Shm: depth_PutImage :: PutImage -> Word8
- Graphics.XHB.Gen.Shm: dst_x_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Shm: dst_x_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Shm: dst_y_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Shm: dst_y_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Shm: format_GetImage :: GetImage -> CARD8
+ Graphics.XHB.Gen.Shm: format_GetImage :: GetImage -> Word8
- Graphics.XHB.Gen.Shm: format_PutImage :: PutImage -> CARD8
+ Graphics.XHB.Gen.Shm: format_PutImage :: PutImage -> Word8
- Graphics.XHB.Gen.Shm: gid_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Shm: gid_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Shm: height_CreatePixmap :: CreatePixmap -> CARD16
+ Graphics.XHB.Gen.Shm: height_CreatePixmap :: CreatePixmap -> Word16
- Graphics.XHB.Gen.Shm: height_GetImage :: GetImage -> CARD16
+ Graphics.XHB.Gen.Shm: height_GetImage :: GetImage -> Word16
- Graphics.XHB.Gen.Shm: major_event_Completion :: Completion -> BYTE
+ Graphics.XHB.Gen.Shm: major_event_Completion :: Completion -> Word8
- Graphics.XHB.Gen.Shm: major_opcode_BadSeg :: BadSeg -> CARD8
+ Graphics.XHB.Gen.Shm: major_opcode_BadSeg :: BadSeg -> Word8
- Graphics.XHB.Gen.Shm: major_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Shm: major_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Shm: minor_event_Completion :: Completion -> CARD16
+ Graphics.XHB.Gen.Shm: minor_event_Completion :: Completion -> Word16
- Graphics.XHB.Gen.Shm: minor_opcode_BadSeg :: BadSeg -> CARD16
+ Graphics.XHB.Gen.Shm: minor_opcode_BadSeg :: BadSeg -> Word16
- Graphics.XHB.Gen.Shm: minor_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Shm: minor_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Shm: offset_Completion :: Completion -> CARD32
+ Graphics.XHB.Gen.Shm: offset_Completion :: Completion -> Word32
- Graphics.XHB.Gen.Shm: offset_CreatePixmap :: CreatePixmap -> CARD32
+ Graphics.XHB.Gen.Shm: offset_CreatePixmap :: CreatePixmap -> Word32
- Graphics.XHB.Gen.Shm: offset_GetImage :: GetImage -> CARD32
+ Graphics.XHB.Gen.Shm: offset_GetImage :: GetImage -> Word32
- Graphics.XHB.Gen.Shm: offset_PutImage :: PutImage -> CARD32
+ Graphics.XHB.Gen.Shm: offset_PutImage :: PutImage -> Word32
- Graphics.XHB.Gen.Shm: pixmap_format_QueryVersionReply :: QueryVersionReply -> CARD8
+ Graphics.XHB.Gen.Shm: pixmap_format_QueryVersionReply :: QueryVersionReply -> Word8
- Graphics.XHB.Gen.Shm: plane_mask_GetImage :: GetImage -> CARD32
+ Graphics.XHB.Gen.Shm: plane_mask_GetImage :: GetImage -> Word32
- Graphics.XHB.Gen.Shm: read_only_Attach :: Attach -> BOOL
+ Graphics.XHB.Gen.Shm: read_only_Attach :: Attach -> Bool
- Graphics.XHB.Gen.Shm: send_event_PutImage :: PutImage -> CARD8
+ Graphics.XHB.Gen.Shm: send_event_PutImage :: PutImage -> Word8
- Graphics.XHB.Gen.Shm: shared_pixmaps_QueryVersionReply :: QueryVersionReply -> BOOL
+ Graphics.XHB.Gen.Shm: shared_pixmaps_QueryVersionReply :: QueryVersionReply -> Bool
- Graphics.XHB.Gen.Shm: shmid_Attach :: Attach -> CARD32
+ Graphics.XHB.Gen.Shm: shmid_Attach :: Attach -> Word32
- Graphics.XHB.Gen.Shm: size_GetImageReply :: GetImageReply -> CARD32
+ Graphics.XHB.Gen.Shm: size_GetImageReply :: GetImageReply -> Word32
- Graphics.XHB.Gen.Shm: src_height_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Shm: src_height_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Shm: src_width_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Shm: src_width_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Shm: src_x_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Shm: src_x_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Shm: src_y_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Shm: src_y_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Shm: total_height_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Shm: total_height_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Shm: total_width_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Shm: total_width_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Shm: uid_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Shm: uid_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Shm: width_CreatePixmap :: CreatePixmap -> CARD16
+ Graphics.XHB.Gen.Shm: width_CreatePixmap :: CreatePixmap -> Word16
- Graphics.XHB.Gen.Shm: width_GetImage :: GetImage -> CARD16
+ Graphics.XHB.Gen.Shm: width_GetImage :: GetImage -> Word16
- Graphics.XHB.Gen.Shm: x_GetImage :: GetImage -> INT16
+ Graphics.XHB.Gen.Shm: x_GetImage :: GetImage -> Int16
- Graphics.XHB.Gen.Shm: y_GetImage :: GetImage -> INT16
+ Graphics.XHB.Gen.Shm: y_GetImage :: GetImage -> Int16
- Graphics.XHB.Gen.Sync: MkAlarm :: CARD32 -> CARD16 -> CARD8 -> Alarm
+ Graphics.XHB.Gen.Sync: MkAlarm :: Word32 -> Word16 -> Word8 -> Alarm
- Graphics.XHB.Gen.Sync: MkAlarmNotify :: CARD8 -> ALARM -> INT64 -> INT64 -> TIMESTAMP -> AlarmNotify
+ Graphics.XHB.Gen.Sync: MkAlarmNotify :: Word8 -> ALARM -> INT64 -> INT64 -> TIMESTAMP -> AlarmNotify
- Graphics.XHB.Gen.Sync: MkChangeAlarm :: ALARM -> ValueParam CARD32 -> ChangeAlarm
+ Graphics.XHB.Gen.Sync: MkChangeAlarm :: ALARM -> ValueParam Word32 -> ChangeAlarm
- Graphics.XHB.Gen.Sync: MkCounter :: CARD32 -> CARD16 -> CARD8 -> Counter
+ Graphics.XHB.Gen.Sync: MkCounter :: Word32 -> Word16 -> Word8 -> Counter
- Graphics.XHB.Gen.Sync: MkCounterNotify :: CARD8 -> COUNTER -> INT64 -> INT64 -> TIMESTAMP -> CARD16 -> BOOL -> CounterNotify
+ Graphics.XHB.Gen.Sync: MkCounterNotify :: Word8 -> COUNTER -> INT64 -> INT64 -> TIMESTAMP -> Word16 -> Bool -> CounterNotify
- Graphics.XHB.Gen.Sync: MkCreateAlarm :: ALARM -> ValueParam CARD32 -> CreateAlarm
+ Graphics.XHB.Gen.Sync: MkCreateAlarm :: ALARM -> ValueParam Word32 -> CreateAlarm
- Graphics.XHB.Gen.Sync: MkGetPriority :: CARD32 -> GetPriority
+ Graphics.XHB.Gen.Sync: MkGetPriority :: Word32 -> GetPriority
- Graphics.XHB.Gen.Sync: MkGetPriorityReply :: INT32 -> GetPriorityReply
+ Graphics.XHB.Gen.Sync: MkGetPriorityReply :: Int32 -> GetPriorityReply
- Graphics.XHB.Gen.Sync: MkINT64 :: INT32 -> CARD32 -> INT64
+ Graphics.XHB.Gen.Sync: MkINT64 :: Int32 -> Word32 -> INT64
- Graphics.XHB.Gen.Sync: MkInitialize :: CARD8 -> CARD8 -> Initialize
+ Graphics.XHB.Gen.Sync: MkInitialize :: Word8 -> Word8 -> Initialize
- Graphics.XHB.Gen.Sync: MkInitializeReply :: CARD8 -> CARD8 -> InitializeReply
+ Graphics.XHB.Gen.Sync: MkInitializeReply :: Word8 -> Word8 -> InitializeReply
- Graphics.XHB.Gen.Sync: MkListSystemCountersReply :: CARD32 -> [SYSTEMCOUNTER] -> ListSystemCountersReply
+ Graphics.XHB.Gen.Sync: MkListSystemCountersReply :: Word32 -> [SYSTEMCOUNTER] -> ListSystemCountersReply
- Graphics.XHB.Gen.Sync: MkQueryAlarmReply :: TRIGGER -> INT64 -> BOOL -> CARD8 -> QueryAlarmReply
+ Graphics.XHB.Gen.Sync: MkQueryAlarmReply :: TRIGGER -> INT64 -> Bool -> Word8 -> QueryAlarmReply
- Graphics.XHB.Gen.Sync: MkSYSTEMCOUNTER :: COUNTER -> INT64 -> CARD16 -> [CChar] -> SYSTEMCOUNTER
+ Graphics.XHB.Gen.Sync: MkSYSTEMCOUNTER :: COUNTER -> INT64 -> Word16 -> [CChar] -> SYSTEMCOUNTER
- Graphics.XHB.Gen.Sync: MkSetPriority :: CARD32 -> INT32 -> SetPriority
+ Graphics.XHB.Gen.Sync: MkSetPriority :: Word32 -> Int32 -> SetPriority
- Graphics.XHB.Gen.Sync: MkTRIGGER :: COUNTER -> CARD32 -> INT64 -> CARD32 -> TRIGGER
+ Graphics.XHB.Gen.Sync: MkTRIGGER :: COUNTER -> Word32 -> INT64 -> Word32 -> TRIGGER
- Graphics.XHB.Gen.Sync: bad_alarm_Alarm :: Alarm -> CARD32
+ Graphics.XHB.Gen.Sync: bad_alarm_Alarm :: Alarm -> Word32
- Graphics.XHB.Gen.Sync: bad_counter_Counter :: Counter -> CARD32
+ Graphics.XHB.Gen.Sync: bad_counter_Counter :: Counter -> Word32
- Graphics.XHB.Gen.Sync: changeAlarm :: Connection -> ALARM -> ValueParam CARD32 -> IO ()
+ Graphics.XHB.Gen.Sync: changeAlarm :: Connection -> ALARM -> ValueParam Word32 -> IO ()
- Graphics.XHB.Gen.Sync: count_CounterNotify :: CounterNotify -> CARD16
+ Graphics.XHB.Gen.Sync: count_CounterNotify :: CounterNotify -> Word16
- Graphics.XHB.Gen.Sync: counters_len_ListSystemCountersReply :: ListSystemCountersReply -> CARD32
+ Graphics.XHB.Gen.Sync: counters_len_ListSystemCountersReply :: ListSystemCountersReply -> Word32
- Graphics.XHB.Gen.Sync: createAlarm :: Connection -> ALARM -> ValueParam CARD32 -> IO ()
+ Graphics.XHB.Gen.Sync: createAlarm :: Connection -> ALARM -> ValueParam Word32 -> IO ()
- Graphics.XHB.Gen.Sync: desired_major_version_Initialize :: Initialize -> CARD8
+ Graphics.XHB.Gen.Sync: desired_major_version_Initialize :: Initialize -> Word8
- Graphics.XHB.Gen.Sync: desired_minor_version_Initialize :: Initialize -> CARD8
+ Graphics.XHB.Gen.Sync: desired_minor_version_Initialize :: Initialize -> Word8
- Graphics.XHB.Gen.Sync: destroyed_CounterNotify :: CounterNotify -> BOOL
+ Graphics.XHB.Gen.Sync: destroyed_CounterNotify :: CounterNotify -> Bool
- Graphics.XHB.Gen.Sync: events_QueryAlarmReply :: QueryAlarmReply -> BOOL
+ Graphics.XHB.Gen.Sync: events_QueryAlarmReply :: QueryAlarmReply -> Bool
- Graphics.XHB.Gen.Sync: getPriority :: Connection -> CARD32 -> IO (Receipt GetPriorityReply)
+ Graphics.XHB.Gen.Sync: getPriority :: Connection -> Word32 -> IO (Receipt Int32)
- Graphics.XHB.Gen.Sync: hi_INT64 :: INT64 -> INT32
+ Graphics.XHB.Gen.Sync: hi_INT64 :: INT64 -> Int32
- Graphics.XHB.Gen.Sync: id_GetPriority :: GetPriority -> CARD32
+ Graphics.XHB.Gen.Sync: id_GetPriority :: GetPriority -> Word32
- Graphics.XHB.Gen.Sync: id_SetPriority :: SetPriority -> CARD32
+ Graphics.XHB.Gen.Sync: id_SetPriority :: SetPriority -> Word32
- Graphics.XHB.Gen.Sync: initialize :: Connection -> CARD8 -> CARD8 -> IO (Receipt InitializeReply)
+ Graphics.XHB.Gen.Sync: initialize :: Connection -> Word8 -> Word8 -> IO (Receipt InitializeReply)
- Graphics.XHB.Gen.Sync: kind_AlarmNotify :: AlarmNotify -> CARD8
+ Graphics.XHB.Gen.Sync: kind_AlarmNotify :: AlarmNotify -> Word8
- Graphics.XHB.Gen.Sync: kind_CounterNotify :: CounterNotify -> CARD8
+ Graphics.XHB.Gen.Sync: kind_CounterNotify :: CounterNotify -> Word8
- Graphics.XHB.Gen.Sync: lo_INT64 :: INT64 -> CARD32
+ Graphics.XHB.Gen.Sync: lo_INT64 :: INT64 -> Word32
- Graphics.XHB.Gen.Sync: major_opcode_Alarm :: Alarm -> CARD8
+ Graphics.XHB.Gen.Sync: major_opcode_Alarm :: Alarm -> Word8
- Graphics.XHB.Gen.Sync: major_opcode_Counter :: Counter -> CARD8
+ Graphics.XHB.Gen.Sync: major_opcode_Counter :: Counter -> Word8
- Graphics.XHB.Gen.Sync: major_version_InitializeReply :: InitializeReply -> CARD8
+ Graphics.XHB.Gen.Sync: major_version_InitializeReply :: InitializeReply -> Word8
- Graphics.XHB.Gen.Sync: minor_opcode_Alarm :: Alarm -> CARD16
+ Graphics.XHB.Gen.Sync: minor_opcode_Alarm :: Alarm -> Word16
- Graphics.XHB.Gen.Sync: minor_opcode_Counter :: Counter -> CARD16
+ Graphics.XHB.Gen.Sync: minor_opcode_Counter :: Counter -> Word16
- Graphics.XHB.Gen.Sync: minor_version_InitializeReply :: InitializeReply -> CARD8
+ Graphics.XHB.Gen.Sync: minor_version_InitializeReply :: InitializeReply -> Word8
- Graphics.XHB.Gen.Sync: name_len_SYSTEMCOUNTER :: SYSTEMCOUNTER -> CARD16
+ Graphics.XHB.Gen.Sync: name_len_SYSTEMCOUNTER :: SYSTEMCOUNTER -> Word16
- Graphics.XHB.Gen.Sync: priority_GetPriorityReply :: GetPriorityReply -> INT32
+ Graphics.XHB.Gen.Sync: priority_GetPriorityReply :: GetPriorityReply -> Int32
- Graphics.XHB.Gen.Sync: priority_SetPriority :: SetPriority -> INT32
+ Graphics.XHB.Gen.Sync: priority_SetPriority :: SetPriority -> Int32
- Graphics.XHB.Gen.Sync: queryCounter :: Connection -> COUNTER -> IO (Receipt QueryCounterReply)
+ Graphics.XHB.Gen.Sync: queryCounter :: Connection -> COUNTER -> IO (Receipt INT64)
- Graphics.XHB.Gen.Sync: setPriority :: Connection -> CARD32 -> INT32 -> IO ()
+ Graphics.XHB.Gen.Sync: setPriority :: Connection -> Word32 -> Int32 -> IO ()
- Graphics.XHB.Gen.Sync: state_QueryAlarmReply :: QueryAlarmReply -> CARD8
+ Graphics.XHB.Gen.Sync: state_QueryAlarmReply :: QueryAlarmReply -> Word8
- Graphics.XHB.Gen.Sync: test_type_TRIGGER :: TRIGGER -> CARD32
+ Graphics.XHB.Gen.Sync: test_type_TRIGGER :: TRIGGER -> Word32
- Graphics.XHB.Gen.Sync: value_ChangeAlarm :: ChangeAlarm -> ValueParam CARD32
+ Graphics.XHB.Gen.Sync: value_ChangeAlarm :: ChangeAlarm -> ValueParam Word32
- Graphics.XHB.Gen.Sync: value_CreateAlarm :: CreateAlarm -> ValueParam CARD32
+ Graphics.XHB.Gen.Sync: value_CreateAlarm :: CreateAlarm -> ValueParam Word32
- Graphics.XHB.Gen.Sync: wait_type_TRIGGER :: TRIGGER -> CARD32
+ Graphics.XHB.Gen.Sync: wait_type_TRIGGER :: TRIGGER -> Word32
- Graphics.XHB.Gen.Test: MkCompareCursorReply :: BOOL -> CompareCursorReply
+ Graphics.XHB.Gen.Test: MkCompareCursorReply :: Bool -> CompareCursorReply
- Graphics.XHB.Gen.Test: MkFakeInput :: BYTE -> BYTE -> CARD32 -> WINDOW -> CARD16 -> CARD16 -> CARD8 -> FakeInput
+ Graphics.XHB.Gen.Test: MkFakeInput :: Word8 -> Word8 -> Word32 -> WINDOW -> Word16 -> Word16 -> Word8 -> FakeInput
- Graphics.XHB.Gen.Test: MkGetVersion :: CARD8 -> CARD16 -> GetVersion
+ Graphics.XHB.Gen.Test: MkGetVersion :: Word8 -> Word16 -> GetVersion
- Graphics.XHB.Gen.Test: MkGetVersionReply :: CARD8 -> CARD16 -> GetVersionReply
+ Graphics.XHB.Gen.Test: MkGetVersionReply :: Word8 -> Word16 -> GetVersionReply
- Graphics.XHB.Gen.Test: MkGrabControl :: BOOL -> GrabControl
+ Graphics.XHB.Gen.Test: MkGrabControl :: Bool -> GrabControl
- Graphics.XHB.Gen.Test: compareCursor :: Connection -> WINDOW -> CURSOR -> IO (Receipt CompareCursorReply)
+ Graphics.XHB.Gen.Test: compareCursor :: Connection -> WINDOW -> CURSOR -> IO (Receipt Bool)
- Graphics.XHB.Gen.Test: detail_FakeInput :: FakeInput -> BYTE
+ Graphics.XHB.Gen.Test: detail_FakeInput :: FakeInput -> Word8
- Graphics.XHB.Gen.Test: deviceid_FakeInput :: FakeInput -> CARD8
+ Graphics.XHB.Gen.Test: deviceid_FakeInput :: FakeInput -> Word8
- Graphics.XHB.Gen.Test: getVersion :: Connection -> CARD8 -> CARD16 -> IO (Receipt GetVersionReply)
+ Graphics.XHB.Gen.Test: getVersion :: Connection -> Word8 -> Word16 -> IO (Receipt GetVersionReply)
- Graphics.XHB.Gen.Test: grabControl :: Connection -> BOOL -> IO ()
+ Graphics.XHB.Gen.Test: grabControl :: Connection -> Bool -> IO ()
- Graphics.XHB.Gen.Test: impervious_GrabControl :: GrabControl -> BOOL
+ Graphics.XHB.Gen.Test: impervious_GrabControl :: GrabControl -> Bool
- Graphics.XHB.Gen.Test: major_version_GetVersion :: GetVersion -> CARD8
+ Graphics.XHB.Gen.Test: major_version_GetVersion :: GetVersion -> Word8
- Graphics.XHB.Gen.Test: major_version_GetVersionReply :: GetVersionReply -> CARD8
+ Graphics.XHB.Gen.Test: major_version_GetVersionReply :: GetVersionReply -> Word8
- Graphics.XHB.Gen.Test: minor_version_GetVersion :: GetVersion -> CARD16
+ Graphics.XHB.Gen.Test: minor_version_GetVersion :: GetVersion -> Word16
- Graphics.XHB.Gen.Test: minor_version_GetVersionReply :: GetVersionReply -> CARD16
+ Graphics.XHB.Gen.Test: minor_version_GetVersionReply :: GetVersionReply -> Word16
- Graphics.XHB.Gen.Test: rootX_FakeInput :: FakeInput -> CARD16
+ Graphics.XHB.Gen.Test: rootX_FakeInput :: FakeInput -> Word16
- Graphics.XHB.Gen.Test: rootY_FakeInput :: FakeInput -> CARD16
+ Graphics.XHB.Gen.Test: rootY_FakeInput :: FakeInput -> Word16
- Graphics.XHB.Gen.Test: same_CompareCursorReply :: CompareCursorReply -> BOOL
+ Graphics.XHB.Gen.Test: same_CompareCursorReply :: CompareCursorReply -> Bool
- Graphics.XHB.Gen.Test: time_FakeInput :: FakeInput -> CARD32
+ Graphics.XHB.Gen.Test: time_FakeInput :: FakeInput -> Word32
- Graphics.XHB.Gen.Test: type_FakeInput :: FakeInput -> BYTE
+ Graphics.XHB.Gen.Test: type_FakeInput :: FakeInput -> Word8
- Graphics.XHB.Gen.XCMisc: MkGetVersion :: CARD16 -> CARD16 -> GetVersion
+ Graphics.XHB.Gen.XCMisc: MkGetVersion :: Word16 -> Word16 -> GetVersion
- Graphics.XHB.Gen.XCMisc: MkGetVersionReply :: CARD16 -> CARD16 -> GetVersionReply
+ Graphics.XHB.Gen.XCMisc: MkGetVersionReply :: Word16 -> Word16 -> GetVersionReply
- Graphics.XHB.Gen.XCMisc: MkGetXIDList :: CARD32 -> GetXIDList
+ Graphics.XHB.Gen.XCMisc: MkGetXIDList :: Word32 -> GetXIDList
- Graphics.XHB.Gen.XCMisc: MkGetXIDListReply :: CARD32 -> [CARD32] -> GetXIDListReply
+ Graphics.XHB.Gen.XCMisc: MkGetXIDListReply :: Word32 -> [Word32] -> GetXIDListReply
- Graphics.XHB.Gen.XCMisc: MkGetXIDRangeReply :: CARD32 -> CARD32 -> GetXIDRangeReply
+ Graphics.XHB.Gen.XCMisc: MkGetXIDRangeReply :: Word32 -> Word32 -> GetXIDRangeReply
- Graphics.XHB.Gen.XCMisc: client_major_version_GetVersion :: GetVersion -> CARD16
+ Graphics.XHB.Gen.XCMisc: client_major_version_GetVersion :: GetVersion -> Word16
- Graphics.XHB.Gen.XCMisc: client_minor_version_GetVersion :: GetVersion -> CARD16
+ Graphics.XHB.Gen.XCMisc: client_minor_version_GetVersion :: GetVersion -> Word16
- Graphics.XHB.Gen.XCMisc: count_GetXIDList :: GetXIDList -> CARD32
+ Graphics.XHB.Gen.XCMisc: count_GetXIDList :: GetXIDList -> Word32
- Graphics.XHB.Gen.XCMisc: count_GetXIDRangeReply :: GetXIDRangeReply -> CARD32
+ Graphics.XHB.Gen.XCMisc: count_GetXIDRangeReply :: GetXIDRangeReply -> Word32
- Graphics.XHB.Gen.XCMisc: getVersion :: Connection -> CARD16 -> CARD16 -> IO (Receipt GetVersionReply)
+ Graphics.XHB.Gen.XCMisc: getVersion :: Connection -> Word16 -> Word16 -> IO (Receipt GetVersionReply)
- Graphics.XHB.Gen.XCMisc: getXIDList :: Connection -> CARD32 -> IO (Receipt GetXIDListReply)
+ Graphics.XHB.Gen.XCMisc: getXIDList :: Connection -> Word32 -> IO (Receipt GetXIDListReply)
- Graphics.XHB.Gen.XCMisc: ids_GetXIDListReply :: GetXIDListReply -> [CARD32]
+ Graphics.XHB.Gen.XCMisc: ids_GetXIDListReply :: GetXIDListReply -> [Word32]
- Graphics.XHB.Gen.XCMisc: ids_len_GetXIDListReply :: GetXIDListReply -> CARD32
+ Graphics.XHB.Gen.XCMisc: ids_len_GetXIDListReply :: GetXIDListReply -> Word32
- Graphics.XHB.Gen.XCMisc: server_major_version_GetVersionReply :: GetVersionReply -> CARD16
+ Graphics.XHB.Gen.XCMisc: server_major_version_GetVersionReply :: GetVersionReply -> Word16
- Graphics.XHB.Gen.XCMisc: server_minor_version_GetVersionReply :: GetVersionReply -> CARD16
+ Graphics.XHB.Gen.XCMisc: server_minor_version_GetVersionReply :: GetVersionReply -> Word16
- Graphics.XHB.Gen.XCMisc: start_id_GetXIDRangeReply :: GetXIDRangeReply -> CARD32
+ Graphics.XHB.Gen.XCMisc: start_id_GetXIDRangeReply :: GetXIDRangeReply -> Word32
- Graphics.XHB.Gen.XF86Dri: MkAuthConnection :: CARD32 -> CARD32 -> AuthConnection
+ Graphics.XHB.Gen.XF86Dri: MkAuthConnection :: Word32 -> Word32 -> AuthConnection
- Graphics.XHB.Gen.XF86Dri: MkAuthConnectionReply :: CARD32 -> AuthConnectionReply
+ Graphics.XHB.Gen.XF86Dri: MkAuthConnectionReply :: Word32 -> AuthConnectionReply
- Graphics.XHB.Gen.XF86Dri: MkCloseConnection :: CARD32 -> CloseConnection
+ Graphics.XHB.Gen.XF86Dri: MkCloseConnection :: Word32 -> CloseConnection
- Graphics.XHB.Gen.XF86Dri: MkCreateContext :: CARD32 -> CARD32 -> CARD32 -> CreateContext
+ Graphics.XHB.Gen.XF86Dri: MkCreateContext :: Word32 -> Word32 -> Word32 -> CreateContext
- Graphics.XHB.Gen.XF86Dri: MkCreateContextReply :: CARD32 -> CreateContextReply
+ Graphics.XHB.Gen.XF86Dri: MkCreateContextReply :: Word32 -> CreateContextReply
- Graphics.XHB.Gen.XF86Dri: MkCreateDrawable :: CARD32 -> CARD32 -> CreateDrawable
+ Graphics.XHB.Gen.XF86Dri: MkCreateDrawable :: Word32 -> Word32 -> CreateDrawable
- Graphics.XHB.Gen.XF86Dri: MkCreateDrawableReply :: CARD32 -> CreateDrawableReply
+ Graphics.XHB.Gen.XF86Dri: MkCreateDrawableReply :: Word32 -> CreateDrawableReply
- Graphics.XHB.Gen.XF86Dri: MkDestroyContext :: CARD32 -> CARD32 -> DestroyContext
+ Graphics.XHB.Gen.XF86Dri: MkDestroyContext :: Word32 -> Word32 -> DestroyContext
- Graphics.XHB.Gen.XF86Dri: MkDestroyDrawable :: CARD32 -> CARD32 -> DestroyDrawable
+ Graphics.XHB.Gen.XF86Dri: MkDestroyDrawable :: Word32 -> Word32 -> DestroyDrawable
- Graphics.XHB.Gen.XF86Dri: MkDrmClipRect :: INT16 -> INT16 -> INT16 -> INT16 -> DrmClipRect
+ Graphics.XHB.Gen.XF86Dri: MkDrmClipRect :: Int16 -> Int16 -> Int16 -> Int16 -> DrmClipRect
- Graphics.XHB.Gen.XF86Dri: MkGetClientDriverName :: CARD32 -> GetClientDriverName
+ Graphics.XHB.Gen.XF86Dri: MkGetClientDriverName :: Word32 -> GetClientDriverName
- Graphics.XHB.Gen.XF86Dri: MkGetClientDriverNameReply :: CARD32 -> CARD32 -> CARD32 -> CARD32 -> [CChar] -> GetClientDriverNameReply
+ Graphics.XHB.Gen.XF86Dri: MkGetClientDriverNameReply :: Word32 -> Word32 -> Word32 -> Word32 -> [CChar] -> GetClientDriverNameReply
- Graphics.XHB.Gen.XF86Dri: MkGetDeviceInfo :: CARD32 -> GetDeviceInfo
+ Graphics.XHB.Gen.XF86Dri: MkGetDeviceInfo :: Word32 -> GetDeviceInfo
- Graphics.XHB.Gen.XF86Dri: MkGetDeviceInfoReply :: CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> [CARD32] -> GetDeviceInfoReply
+ Graphics.XHB.Gen.XF86Dri: MkGetDeviceInfoReply :: Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> [Word32] -> GetDeviceInfoReply
- Graphics.XHB.Gen.XF86Dri: MkGetDrawableInfo :: CARD32 -> CARD32 -> GetDrawableInfo
+ Graphics.XHB.Gen.XF86Dri: MkGetDrawableInfo :: Word32 -> Word32 -> GetDrawableInfo
- Graphics.XHB.Gen.XF86Dri: MkGetDrawableInfoReply :: CARD32 -> CARD32 -> INT16 -> INT16 -> INT16 -> INT16 -> CARD32 -> [DrmClipRect] -> GetDrawableInfoReply
+ Graphics.XHB.Gen.XF86Dri: MkGetDrawableInfoReply :: Word32 -> Word32 -> Int16 -> Int16 -> Int16 -> Int16 -> Word32 -> [DrmClipRect] -> GetDrawableInfoReply
- Graphics.XHB.Gen.XF86Dri: MkOpenConnection :: CARD32 -> OpenConnection
+ Graphics.XHB.Gen.XF86Dri: MkOpenConnection :: Word32 -> OpenConnection
- Graphics.XHB.Gen.XF86Dri: MkOpenConnectionReply :: CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> [CChar] -> OpenConnectionReply
+ Graphics.XHB.Gen.XF86Dri: MkOpenConnectionReply :: Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> [CChar] -> OpenConnectionReply
- Graphics.XHB.Gen.XF86Dri: MkQueryDirectRenderingCapable :: CARD32 -> QueryDirectRenderingCapable
+ Graphics.XHB.Gen.XF86Dri: MkQueryDirectRenderingCapable :: Word32 -> QueryDirectRenderingCapable
- Graphics.XHB.Gen.XF86Dri: MkQueryDirectRenderingCapableReply :: BOOL -> QueryDirectRenderingCapableReply
+ Graphics.XHB.Gen.XF86Dri: MkQueryDirectRenderingCapableReply :: Bool -> QueryDirectRenderingCapableReply
- Graphics.XHB.Gen.XF86Dri: MkQueryVersionReply :: CARD16 -> CARD16 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.XF86Dri: MkQueryVersionReply :: Word16 -> Word16 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.XF86Dri: authConnection :: Connection -> CARD32 -> CARD32 -> IO (Receipt AuthConnectionReply)
+ Graphics.XHB.Gen.XF86Dri: authConnection :: Connection -> Word32 -> Word32 -> IO (Receipt Word32)
- Graphics.XHB.Gen.XF86Dri: authenticated_AuthConnectionReply :: AuthConnectionReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: authenticated_AuthConnectionReply :: AuthConnectionReply -> Word32
- Graphics.XHB.Gen.XF86Dri: bus_id_len_OpenConnectionReply :: OpenConnectionReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: bus_id_len_OpenConnectionReply :: OpenConnectionReply -> Word32
- Graphics.XHB.Gen.XF86Dri: client_driver_major_version_GetClientDriverNameReply :: GetClientDriverNameReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: client_driver_major_version_GetClientDriverNameReply :: GetClientDriverNameReply -> Word32
- Graphics.XHB.Gen.XF86Dri: client_driver_minor_version_GetClientDriverNameReply :: GetClientDriverNameReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: client_driver_minor_version_GetClientDriverNameReply :: GetClientDriverNameReply -> Word32
- Graphics.XHB.Gen.XF86Dri: client_driver_name_len_GetClientDriverNameReply :: GetClientDriverNameReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: client_driver_name_len_GetClientDriverNameReply :: GetClientDriverNameReply -> Word32
- Graphics.XHB.Gen.XF86Dri: client_driver_patch_version_GetClientDriverNameReply :: GetClientDriverNameReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: client_driver_patch_version_GetClientDriverNameReply :: GetClientDriverNameReply -> Word32
- Graphics.XHB.Gen.XF86Dri: closeConnection :: Connection -> CARD32 -> IO ()
+ Graphics.XHB.Gen.XF86Dri: closeConnection :: Connection -> Word32 -> IO ()
- Graphics.XHB.Gen.XF86Dri: context_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.XF86Dri: context_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.XF86Dri: context_DestroyContext :: DestroyContext -> CARD32
+ Graphics.XHB.Gen.XF86Dri: context_DestroyContext :: DestroyContext -> Word32
- Graphics.XHB.Gen.XF86Dri: createContext :: Connection -> CreateContext -> IO (Receipt CreateContextReply)
+ Graphics.XHB.Gen.XF86Dri: createContext :: Connection -> CreateContext -> IO (Receipt Word32)
- Graphics.XHB.Gen.XF86Dri: createDrawable :: Connection -> CARD32 -> CARD32 -> IO (Receipt CreateDrawableReply)
+ Graphics.XHB.Gen.XF86Dri: createDrawable :: Connection -> Word32 -> Word32 -> IO (Receipt Word32)
- Graphics.XHB.Gen.XF86Dri: destroyContext :: Connection -> CARD32 -> CARD32 -> IO ()
+ Graphics.XHB.Gen.XF86Dri: destroyContext :: Connection -> Word32 -> Word32 -> IO ()
- Graphics.XHB.Gen.XF86Dri: destroyDrawable :: Connection -> CARD32 -> CARD32 -> IO ()
+ Graphics.XHB.Gen.XF86Dri: destroyDrawable :: Connection -> Word32 -> Word32 -> IO ()
- Graphics.XHB.Gen.XF86Dri: device_private_GetDeviceInfoReply :: GetDeviceInfoReply -> [CARD32]
+ Graphics.XHB.Gen.XF86Dri: device_private_GetDeviceInfoReply :: GetDeviceInfoReply -> [Word32]
- Graphics.XHB.Gen.XF86Dri: device_private_size_GetDeviceInfoReply :: GetDeviceInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: device_private_size_GetDeviceInfoReply :: GetDeviceInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: drawable_CreateDrawable :: CreateDrawable -> CARD32
+ Graphics.XHB.Gen.XF86Dri: drawable_CreateDrawable :: CreateDrawable -> Word32
- Graphics.XHB.Gen.XF86Dri: drawable_DestroyDrawable :: DestroyDrawable -> CARD32
+ Graphics.XHB.Gen.XF86Dri: drawable_DestroyDrawable :: DestroyDrawable -> Word32
- Graphics.XHB.Gen.XF86Dri: drawable_GetDrawableInfo :: GetDrawableInfo -> CARD32
+ Graphics.XHB.Gen.XF86Dri: drawable_GetDrawableInfo :: GetDrawableInfo -> Word32
- Graphics.XHB.Gen.XF86Dri: drawable_origin_X_GetDrawableInfoReply :: GetDrawableInfoReply -> INT16
+ Graphics.XHB.Gen.XF86Dri: drawable_origin_X_GetDrawableInfoReply :: GetDrawableInfoReply -> Int16
- Graphics.XHB.Gen.XF86Dri: drawable_origin_Y_GetDrawableInfoReply :: GetDrawableInfoReply -> INT16
+ Graphics.XHB.Gen.XF86Dri: drawable_origin_Y_GetDrawableInfoReply :: GetDrawableInfoReply -> Int16
- Graphics.XHB.Gen.XF86Dri: drawable_size_H_GetDrawableInfoReply :: GetDrawableInfoReply -> INT16
+ Graphics.XHB.Gen.XF86Dri: drawable_size_H_GetDrawableInfoReply :: GetDrawableInfoReply -> Int16
- Graphics.XHB.Gen.XF86Dri: drawable_size_W_GetDrawableInfoReply :: GetDrawableInfoReply -> INT16
+ Graphics.XHB.Gen.XF86Dri: drawable_size_W_GetDrawableInfoReply :: GetDrawableInfoReply -> Int16
- Graphics.XHB.Gen.XF86Dri: drawable_table_index_GetDrawableInfoReply :: GetDrawableInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: drawable_table_index_GetDrawableInfoReply :: GetDrawableInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: drawable_table_stamp_GetDrawableInfoReply :: GetDrawableInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: drawable_table_stamp_GetDrawableInfoReply :: GetDrawableInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: dri_major_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.XF86Dri: dri_major_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.XF86Dri: dri_minor_patch_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: dri_minor_patch_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.XF86Dri: dri_minor_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.XF86Dri: dri_minor_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.XF86Dri: drm_client_key_high_OpenConnectionReply :: OpenConnectionReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: drm_client_key_high_OpenConnectionReply :: OpenConnectionReply -> Word32
- Graphics.XHB.Gen.XF86Dri: drm_client_key_low_OpenConnectionReply :: OpenConnectionReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: drm_client_key_low_OpenConnectionReply :: OpenConnectionReply -> Word32
- Graphics.XHB.Gen.XF86Dri: framebuffer_handle_high_GetDeviceInfoReply :: GetDeviceInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: framebuffer_handle_high_GetDeviceInfoReply :: GetDeviceInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: framebuffer_handle_low_GetDeviceInfoReply :: GetDeviceInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: framebuffer_handle_low_GetDeviceInfoReply :: GetDeviceInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: framebuffer_origin_offset_GetDeviceInfoReply :: GetDeviceInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: framebuffer_origin_offset_GetDeviceInfoReply :: GetDeviceInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: framebuffer_size_GetDeviceInfoReply :: GetDeviceInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: framebuffer_size_GetDeviceInfoReply :: GetDeviceInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: framebuffer_stride_GetDeviceInfoReply :: GetDeviceInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: framebuffer_stride_GetDeviceInfoReply :: GetDeviceInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: getClientDriverName :: Connection -> CARD32 -> IO (Receipt GetClientDriverNameReply)
+ Graphics.XHB.Gen.XF86Dri: getClientDriverName :: Connection -> Word32 -> IO (Receipt GetClientDriverNameReply)
- Graphics.XHB.Gen.XF86Dri: getDeviceInfo :: Connection -> CARD32 -> IO (Receipt GetDeviceInfoReply)
+ Graphics.XHB.Gen.XF86Dri: getDeviceInfo :: Connection -> Word32 -> IO (Receipt GetDeviceInfoReply)
- Graphics.XHB.Gen.XF86Dri: getDrawableInfo :: Connection -> CARD32 -> CARD32 -> IO (Receipt GetDrawableInfoReply)
+ Graphics.XHB.Gen.XF86Dri: getDrawableInfo :: Connection -> Word32 -> Word32 -> IO (Receipt GetDrawableInfoReply)
- Graphics.XHB.Gen.XF86Dri: hw_context_CreateContextReply :: CreateContextReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: hw_context_CreateContextReply :: CreateContextReply -> Word32
- Graphics.XHB.Gen.XF86Dri: hw_drawable_handle_CreateDrawableReply :: CreateDrawableReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: hw_drawable_handle_CreateDrawableReply :: CreateDrawableReply -> Word32
- Graphics.XHB.Gen.XF86Dri: is_capable_QueryDirectRenderingCapableReply :: QueryDirectRenderingCapableReply -> BOOL
+ Graphics.XHB.Gen.XF86Dri: is_capable_QueryDirectRenderingCapableReply :: QueryDirectRenderingCapableReply -> Bool
- Graphics.XHB.Gen.XF86Dri: magic_AuthConnection :: AuthConnection -> CARD32
+ Graphics.XHB.Gen.XF86Dri: magic_AuthConnection :: AuthConnection -> Word32
- Graphics.XHB.Gen.XF86Dri: num_clip_rects_GetDrawableInfoReply :: GetDrawableInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: num_clip_rects_GetDrawableInfoReply :: GetDrawableInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: openConnection :: Connection -> CARD32 -> IO (Receipt OpenConnectionReply)
+ Graphics.XHB.Gen.XF86Dri: openConnection :: Connection -> Word32 -> IO (Receipt OpenConnectionReply)
- Graphics.XHB.Gen.XF86Dri: queryDirectRenderingCapable :: Connection -> CARD32 -> IO (Receipt QueryDirectRenderingCapableReply)
+ Graphics.XHB.Gen.XF86Dri: queryDirectRenderingCapable :: Connection -> Word32 -> IO (Receipt Bool)
- Graphics.XHB.Gen.XF86Dri: sarea_handle_high_OpenConnectionReply :: OpenConnectionReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: sarea_handle_high_OpenConnectionReply :: OpenConnectionReply -> Word32
- Graphics.XHB.Gen.XF86Dri: sarea_handle_low_OpenConnectionReply :: OpenConnectionReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: sarea_handle_low_OpenConnectionReply :: OpenConnectionReply -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_AuthConnection :: AuthConnection -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_AuthConnection :: AuthConnection -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_CloseConnection :: CloseConnection -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_CloseConnection :: CloseConnection -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_CreateDrawable :: CreateDrawable -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_CreateDrawable :: CreateDrawable -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_DestroyContext :: DestroyContext -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_DestroyContext :: DestroyContext -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_DestroyDrawable :: DestroyDrawable -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_DestroyDrawable :: DestroyDrawable -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_GetClientDriverName :: GetClientDriverName -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_GetClientDriverName :: GetClientDriverName -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_GetDeviceInfo :: GetDeviceInfo -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_GetDeviceInfo :: GetDeviceInfo -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_GetDrawableInfo :: GetDrawableInfo -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_GetDrawableInfo :: GetDrawableInfo -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_OpenConnection :: OpenConnection -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_OpenConnection :: OpenConnection -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_QueryDirectRenderingCapable :: QueryDirectRenderingCapable -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_QueryDirectRenderingCapable :: QueryDirectRenderingCapable -> Word32
- Graphics.XHB.Gen.XF86Dri: visual_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.XF86Dri: visual_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.XF86Dri: x1_DrmClipRect :: DrmClipRect -> INT16
+ Graphics.XHB.Gen.XF86Dri: x1_DrmClipRect :: DrmClipRect -> Int16
- Graphics.XHB.Gen.XF86Dri: x2_DrmClipRect :: DrmClipRect -> INT16
+ Graphics.XHB.Gen.XF86Dri: x2_DrmClipRect :: DrmClipRect -> Int16
- Graphics.XHB.Gen.XF86Dri: x3_DrmClipRect :: DrmClipRect -> INT16
+ Graphics.XHB.Gen.XF86Dri: x3_DrmClipRect :: DrmClipRect -> Int16
- Graphics.XHB.Gen.XF86Dri: y1_DrmClipRect :: DrmClipRect -> INT16
+ Graphics.XHB.Gen.XF86Dri: y1_DrmClipRect :: DrmClipRect -> Int16
- Graphics.XHB.Gen.XFixes: MkChangeCursorByName :: CURSOR -> CARD16 -> [CChar] -> ChangeCursorByName
+ Graphics.XHB.Gen.XFixes: MkChangeCursorByName :: CURSOR -> Word16 -> [CChar] -> ChangeCursorByName
- Graphics.XHB.Gen.XFixes: MkChangeSaveSet :: BYTE -> BYTE -> BYTE -> WINDOW -> ChangeSaveSet
+ Graphics.XHB.Gen.XFixes: MkChangeSaveSet :: Word8 -> Word8 -> Word8 -> WINDOW -> ChangeSaveSet
- Graphics.XHB.Gen.XFixes: MkCursorNotify :: CARD8 -> WINDOW -> CARD32 -> TIMESTAMP -> ATOM -> CursorNotify
+ Graphics.XHB.Gen.XFixes: MkCursorNotify :: Word8 -> WINDOW -> Word32 -> TIMESTAMP -> ATOM -> CursorNotify
- Graphics.XHB.Gen.XFixes: MkExpandRegion :: REGION -> REGION -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> ExpandRegion
+ Graphics.XHB.Gen.XFixes: MkExpandRegion :: REGION -> REGION -> Word16 -> Word16 -> Word16 -> Word16 -> ExpandRegion
- Graphics.XHB.Gen.XFixes: MkGetCursorImageAndNameReply :: INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD32 -> ATOM -> CARD16 -> [CChar] -> [CARD32] -> GetCursorImageAndNameReply
+ Graphics.XHB.Gen.XFixes: MkGetCursorImageAndNameReply :: Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word32 -> ATOM -> Word16 -> [CChar] -> [Word32] -> GetCursorImageAndNameReply
- Graphics.XHB.Gen.XFixes: MkGetCursorImageReply :: INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD32 -> [CARD32] -> GetCursorImageReply
+ Graphics.XHB.Gen.XFixes: MkGetCursorImageReply :: Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word32 -> [Word32] -> GetCursorImageReply
- Graphics.XHB.Gen.XFixes: MkGetCursorNameReply :: ATOM -> CARD16 -> [CChar] -> GetCursorNameReply
+ Graphics.XHB.Gen.XFixes: MkGetCursorNameReply :: ATOM -> Word16 -> [CChar] -> GetCursorNameReply
- Graphics.XHB.Gen.XFixes: MkQueryVersion :: CARD32 -> CARD32 -> QueryVersion
+ Graphics.XHB.Gen.XFixes: MkQueryVersion :: Word32 -> Word32 -> QueryVersion
- Graphics.XHB.Gen.XFixes: MkQueryVersionReply :: CARD32 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.XFixes: MkQueryVersionReply :: Word32 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.XFixes: MkSelectCursorInput :: WINDOW -> CARD32 -> SelectCursorInput
+ Graphics.XHB.Gen.XFixes: MkSelectCursorInput :: WINDOW -> Word32 -> SelectCursorInput
- Graphics.XHB.Gen.XFixes: MkSelectSelectionInput :: WINDOW -> ATOM -> CARD32 -> SelectSelectionInput
+ Graphics.XHB.Gen.XFixes: MkSelectSelectionInput :: WINDOW -> ATOM -> Word32 -> SelectSelectionInput
- Graphics.XHB.Gen.XFixes: MkSelectionNotify :: CARD8 -> WINDOW -> WINDOW -> ATOM -> TIMESTAMP -> TIMESTAMP -> SelectionNotify
+ Graphics.XHB.Gen.XFixes: MkSelectionNotify :: Word8 -> WINDOW -> WINDOW -> ATOM -> TIMESTAMP -> TIMESTAMP -> SelectionNotify
- Graphics.XHB.Gen.XFixes: MkSetCursorName :: CURSOR -> CARD16 -> [CChar] -> SetCursorName
+ Graphics.XHB.Gen.XFixes: MkSetCursorName :: CURSOR -> Word16 -> [CChar] -> SetCursorName
- Graphics.XHB.Gen.XFixes: MkSetGCClipRegion :: GCONTEXT -> REGION -> INT16 -> INT16 -> SetGCClipRegion
+ Graphics.XHB.Gen.XFixes: MkSetGCClipRegion :: GCONTEXT -> REGION -> Int16 -> Int16 -> SetGCClipRegion
- Graphics.XHB.Gen.XFixes: MkSetPictureClipRegion :: PICTURE -> REGION -> INT16 -> INT16 -> SetPictureClipRegion
+ Graphics.XHB.Gen.XFixes: MkSetPictureClipRegion :: PICTURE -> REGION -> Int16 -> Int16 -> SetPictureClipRegion
- Graphics.XHB.Gen.XFixes: MkSetWindowShapeRegion :: WINDOW -> KIND -> INT16 -> INT16 -> REGION -> SetWindowShapeRegion
+ Graphics.XHB.Gen.XFixes: MkSetWindowShapeRegion :: WINDOW -> KIND -> Int16 -> Int16 -> REGION -> SetWindowShapeRegion
- Graphics.XHB.Gen.XFixes: MkTranslateRegion :: REGION -> INT16 -> INT16 -> TranslateRegion
+ Graphics.XHB.Gen.XFixes: MkTranslateRegion :: REGION -> Int16 -> Int16 -> TranslateRegion
- Graphics.XHB.Gen.XFixes: bottom_ExpandRegion :: ExpandRegion -> CARD16
+ Graphics.XHB.Gen.XFixes: bottom_ExpandRegion :: ExpandRegion -> Word16
- Graphics.XHB.Gen.XFixes: client_major_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.XFixes: client_major_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.XFixes: client_minor_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.XFixes: client_minor_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.XFixes: cursor_image_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> [CARD32]
+ Graphics.XHB.Gen.XFixes: cursor_image_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> [Word32]
- Graphics.XHB.Gen.XFixes: cursor_image_GetCursorImageReply :: GetCursorImageReply -> [CARD32]
+ Graphics.XHB.Gen.XFixes: cursor_image_GetCursorImageReply :: GetCursorImageReply -> [Word32]
- Graphics.XHB.Gen.XFixes: cursor_serial_CursorNotify :: CursorNotify -> CARD32
+ Graphics.XHB.Gen.XFixes: cursor_serial_CursorNotify :: CursorNotify -> Word32
- Graphics.XHB.Gen.XFixes: cursor_serial_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> CARD32
+ Graphics.XHB.Gen.XFixes: cursor_serial_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Word32
- Graphics.XHB.Gen.XFixes: cursor_serial_GetCursorImageReply :: GetCursorImageReply -> CARD32
+ Graphics.XHB.Gen.XFixes: cursor_serial_GetCursorImageReply :: GetCursorImageReply -> Word32
- Graphics.XHB.Gen.XFixes: dx_TranslateRegion :: TranslateRegion -> INT16
+ Graphics.XHB.Gen.XFixes: dx_TranslateRegion :: TranslateRegion -> Int16
- Graphics.XHB.Gen.XFixes: dy_TranslateRegion :: TranslateRegion -> INT16
+ Graphics.XHB.Gen.XFixes: dy_TranslateRegion :: TranslateRegion -> Int16
- Graphics.XHB.Gen.XFixes: event_mask_SelectCursorInput :: SelectCursorInput -> CARD32
+ Graphics.XHB.Gen.XFixes: event_mask_SelectCursorInput :: SelectCursorInput -> Word32
- Graphics.XHB.Gen.XFixes: event_mask_SelectSelectionInput :: SelectSelectionInput -> CARD32
+ Graphics.XHB.Gen.XFixes: event_mask_SelectSelectionInput :: SelectSelectionInput -> Word32
- Graphics.XHB.Gen.XFixes: height_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> CARD16
+ Graphics.XHB.Gen.XFixes: height_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Word16
- Graphics.XHB.Gen.XFixes: height_GetCursorImageReply :: GetCursorImageReply -> CARD16
+ Graphics.XHB.Gen.XFixes: height_GetCursorImageReply :: GetCursorImageReply -> Word16
- Graphics.XHB.Gen.XFixes: left_ExpandRegion :: ExpandRegion -> CARD16
+ Graphics.XHB.Gen.XFixes: left_ExpandRegion :: ExpandRegion -> Word16
- Graphics.XHB.Gen.XFixes: major_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.XFixes: major_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.XFixes: map_ChangeSaveSet :: ChangeSaveSet -> BYTE
+ Graphics.XHB.Gen.XFixes: map_ChangeSaveSet :: ChangeSaveSet -> Word8
- Graphics.XHB.Gen.XFixes: minor_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.XFixes: minor_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.XFixes: mode_ChangeSaveSet :: ChangeSaveSet -> BYTE
+ Graphics.XHB.Gen.XFixes: mode_ChangeSaveSet :: ChangeSaveSet -> Word8
- Graphics.XHB.Gen.XFixes: nbytes_ChangeCursorByName :: ChangeCursorByName -> CARD16
+ Graphics.XHB.Gen.XFixes: nbytes_ChangeCursorByName :: ChangeCursorByName -> Word16
- Graphics.XHB.Gen.XFixes: nbytes_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> CARD16
+ Graphics.XHB.Gen.XFixes: nbytes_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Word16
- Graphics.XHB.Gen.XFixes: nbytes_GetCursorNameReply :: GetCursorNameReply -> CARD16
+ Graphics.XHB.Gen.XFixes: nbytes_GetCursorNameReply :: GetCursorNameReply -> Word16
- Graphics.XHB.Gen.XFixes: nbytes_SetCursorName :: SetCursorName -> CARD16
+ Graphics.XHB.Gen.XFixes: nbytes_SetCursorName :: SetCursorName -> Word16
- Graphics.XHB.Gen.XFixes: queryVersion :: Connection -> CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.XFixes: queryVersion :: Connection -> Word32 -> Word32 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.XFixes: right_ExpandRegion :: ExpandRegion -> CARD16
+ Graphics.XHB.Gen.XFixes: right_ExpandRegion :: ExpandRegion -> Word16
- Graphics.XHB.Gen.XFixes: selectCursorInput :: Connection -> WINDOW -> CARD32 -> IO ()
+ Graphics.XHB.Gen.XFixes: selectCursorInput :: Connection -> WINDOW -> Word32 -> IO ()
- Graphics.XHB.Gen.XFixes: subtype_CursorNotify :: CursorNotify -> CARD8
+ Graphics.XHB.Gen.XFixes: subtype_CursorNotify :: CursorNotify -> Word8
- Graphics.XHB.Gen.XFixes: subtype_SelectionNotify :: SelectionNotify -> CARD8
+ Graphics.XHB.Gen.XFixes: subtype_SelectionNotify :: SelectionNotify -> Word8
- Graphics.XHB.Gen.XFixes: target_ChangeSaveSet :: ChangeSaveSet -> BYTE
+ Graphics.XHB.Gen.XFixes: target_ChangeSaveSet :: ChangeSaveSet -> Word8
- Graphics.XHB.Gen.XFixes: top_ExpandRegion :: ExpandRegion -> CARD16
+ Graphics.XHB.Gen.XFixes: top_ExpandRegion :: ExpandRegion -> Word16
- Graphics.XHB.Gen.XFixes: width_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> CARD16
+ Graphics.XHB.Gen.XFixes: width_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Word16
- Graphics.XHB.Gen.XFixes: width_GetCursorImageReply :: GetCursorImageReply -> CARD16
+ Graphics.XHB.Gen.XFixes: width_GetCursorImageReply :: GetCursorImageReply -> Word16
- Graphics.XHB.Gen.XFixes: x_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> INT16
+ Graphics.XHB.Gen.XFixes: x_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Int16
- Graphics.XHB.Gen.XFixes: x_GetCursorImageReply :: GetCursorImageReply -> INT16
+ Graphics.XHB.Gen.XFixes: x_GetCursorImageReply :: GetCursorImageReply -> Int16
- Graphics.XHB.Gen.XFixes: x_offset_SetWindowShapeRegion :: SetWindowShapeRegion -> INT16
+ Graphics.XHB.Gen.XFixes: x_offset_SetWindowShapeRegion :: SetWindowShapeRegion -> Int16
- Graphics.XHB.Gen.XFixes: x_origin_SetGCClipRegion :: SetGCClipRegion -> INT16
+ Graphics.XHB.Gen.XFixes: x_origin_SetGCClipRegion :: SetGCClipRegion -> Int16
- Graphics.XHB.Gen.XFixes: x_origin_SetPictureClipRegion :: SetPictureClipRegion -> INT16
+ Graphics.XHB.Gen.XFixes: x_origin_SetPictureClipRegion :: SetPictureClipRegion -> Int16
- Graphics.XHB.Gen.XFixes: xhot_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> CARD16
+ Graphics.XHB.Gen.XFixes: xhot_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Word16
- Graphics.XHB.Gen.XFixes: xhot_GetCursorImageReply :: GetCursorImageReply -> CARD16
+ Graphics.XHB.Gen.XFixes: xhot_GetCursorImageReply :: GetCursorImageReply -> Word16
- Graphics.XHB.Gen.XFixes: y_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> INT16
+ Graphics.XHB.Gen.XFixes: y_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Int16
- Graphics.XHB.Gen.XFixes: y_GetCursorImageReply :: GetCursorImageReply -> INT16
+ Graphics.XHB.Gen.XFixes: y_GetCursorImageReply :: GetCursorImageReply -> Int16
- Graphics.XHB.Gen.XFixes: y_offset_SetWindowShapeRegion :: SetWindowShapeRegion -> INT16
+ Graphics.XHB.Gen.XFixes: y_offset_SetWindowShapeRegion :: SetWindowShapeRegion -> Int16
- Graphics.XHB.Gen.XFixes: y_origin_SetGCClipRegion :: SetGCClipRegion -> INT16
+ Graphics.XHB.Gen.XFixes: y_origin_SetGCClipRegion :: SetGCClipRegion -> Int16
- Graphics.XHB.Gen.XFixes: y_origin_SetPictureClipRegion :: SetPictureClipRegion -> INT16
+ Graphics.XHB.Gen.XFixes: y_origin_SetPictureClipRegion :: SetPictureClipRegion -> Int16
- Graphics.XHB.Gen.XFixes: yhot_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> CARD16
+ Graphics.XHB.Gen.XFixes: yhot_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Word16
- Graphics.XHB.Gen.XFixes: yhot_GetCursorImageReply :: GetCursorImageReply -> CARD16
+ Graphics.XHB.Gen.XFixes: yhot_GetCursorImageReply :: GetCursorImageReply -> Word16
- Graphics.XHB.Gen.XPrint: MkAttributNotify :: CARD8 -> PCONTEXT -> AttributNotify
+ Graphics.XHB.Gen.XPrint: MkAttributNotify :: Word8 -> PCONTEXT -> AttributNotify
- Graphics.XHB.Gen.XPrint: MkCreateContext :: CARD32 -> CARD32 -> CARD32 -> [STRING8] -> [STRING8] -> CreateContext
+ Graphics.XHB.Gen.XPrint: MkCreateContext :: Word32 -> Word32 -> Word32 -> [STRING8] -> [STRING8] -> CreateContext
- Graphics.XHB.Gen.XPrint: MkNotify :: CARD8 -> PCONTEXT -> BOOL -> Notify
+ Graphics.XHB.Gen.XPrint: MkNotify :: Word8 -> PCONTEXT -> Bool -> Notify
- Graphics.XHB.Gen.XPrint: MkPRINTER :: CARD32 -> [STRING8] -> CARD32 -> [STRING8] -> PRINTER
+ Graphics.XHB.Gen.XPrint: MkPRINTER :: Word32 -> [STRING8] -> Word32 -> [STRING8] -> PRINTER
- Graphics.XHB.Gen.XPrint: MkPrintDestroyContext :: CARD32 -> PrintDestroyContext
+ Graphics.XHB.Gen.XPrint: MkPrintDestroyContext :: Word32 -> PrintDestroyContext
- Graphics.XHB.Gen.XPrint: MkPrintEndDoc :: BOOL -> PrintEndDoc
+ Graphics.XHB.Gen.XPrint: MkPrintEndDoc :: Bool -> PrintEndDoc
- Graphics.XHB.Gen.XPrint: MkPrintEndJob :: BOOL -> PrintEndJob
+ Graphics.XHB.Gen.XPrint: MkPrintEndJob :: Bool -> PrintEndJob
- Graphics.XHB.Gen.XPrint: MkPrintEndPage :: BOOL -> PrintEndPage
+ Graphics.XHB.Gen.XPrint: MkPrintEndPage :: Bool -> PrintEndPage
- Graphics.XHB.Gen.XPrint: MkPrintGetAttributes :: PCONTEXT -> CARD8 -> PrintGetAttributes
+ Graphics.XHB.Gen.XPrint: MkPrintGetAttributes :: PCONTEXT -> Word8 -> PrintGetAttributes
- Graphics.XHB.Gen.XPrint: MkPrintGetAttributesReply :: CARD32 -> STRING8 -> PrintGetAttributesReply
+ Graphics.XHB.Gen.XPrint: MkPrintGetAttributesReply :: Word32 -> STRING8 -> PrintGetAttributesReply
- Graphics.XHB.Gen.XPrint: MkPrintGetContextReply :: CARD32 -> PrintGetContextReply
+ Graphics.XHB.Gen.XPrint: MkPrintGetContextReply :: Word32 -> PrintGetContextReply
- Graphics.XHB.Gen.XPrint: MkPrintGetDocumentData :: PCONTEXT -> CARD32 -> PrintGetDocumentData
+ Graphics.XHB.Gen.XPrint: MkPrintGetDocumentData :: PCONTEXT -> Word32 -> PrintGetDocumentData
- Graphics.XHB.Gen.XPrint: MkPrintGetDocumentDataReply :: CARD32 -> CARD32 -> CARD32 -> [BYTE] -> PrintGetDocumentDataReply
+ Graphics.XHB.Gen.XPrint: MkPrintGetDocumentDataReply :: Word32 -> Word32 -> Word32 -> [Word8] -> PrintGetDocumentDataReply
- Graphics.XHB.Gen.XPrint: MkPrintGetImageResolutionReply :: CARD16 -> PrintGetImageResolutionReply
+ Graphics.XHB.Gen.XPrint: MkPrintGetImageResolutionReply :: Word16 -> PrintGetImageResolutionReply
- Graphics.XHB.Gen.XPrint: MkPrintGetOneAttributes :: PCONTEXT -> CARD32 -> CARD8 -> [STRING8] -> PrintGetOneAttributes
+ Graphics.XHB.Gen.XPrint: MkPrintGetOneAttributes :: PCONTEXT -> Word32 -> Word8 -> [STRING8] -> PrintGetOneAttributes
- Graphics.XHB.Gen.XPrint: MkPrintGetOneAttributesReply :: CARD32 -> [STRING8] -> PrintGetOneAttributesReply
+ Graphics.XHB.Gen.XPrint: MkPrintGetOneAttributesReply :: Word32 -> [STRING8] -> PrintGetOneAttributesReply
- Graphics.XHB.Gen.XPrint: MkPrintGetPageDimensionsReply :: CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> PrintGetPageDimensionsReply
+ Graphics.XHB.Gen.XPrint: MkPrintGetPageDimensionsReply :: Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> PrintGetPageDimensionsReply
- Graphics.XHB.Gen.XPrint: MkPrintGetPrinterList :: CARD32 -> CARD32 -> [STRING8] -> [STRING8] -> PrintGetPrinterList
+ Graphics.XHB.Gen.XPrint: MkPrintGetPrinterList :: Word32 -> Word32 -> [STRING8] -> [STRING8] -> PrintGetPrinterList
- Graphics.XHB.Gen.XPrint: MkPrintGetPrinterListReply :: CARD32 -> [PRINTER] -> PrintGetPrinterListReply
+ Graphics.XHB.Gen.XPrint: MkPrintGetPrinterListReply :: Word32 -> [PRINTER] -> PrintGetPrinterListReply
- Graphics.XHB.Gen.XPrint: MkPrintInputSelectedReply :: ValueParam CARD32 -> ValueParam CARD32 -> PrintInputSelectedReply
+ Graphics.XHB.Gen.XPrint: MkPrintInputSelectedReply :: ValueParam Word32 -> ValueParam Word32 -> PrintInputSelectedReply
- Graphics.XHB.Gen.XPrint: MkPrintPutDocumentData :: DRAWABLE -> CARD32 -> CARD16 -> CARD16 -> [BYTE] -> [STRING8] -> [STRING8] -> PrintPutDocumentData
+ Graphics.XHB.Gen.XPrint: MkPrintPutDocumentData :: DRAWABLE -> Word32 -> Word16 -> Word16 -> [Word8] -> [STRING8] -> [STRING8] -> PrintPutDocumentData
- Graphics.XHB.Gen.XPrint: MkPrintQueryScreensReply :: CARD32 -> [WINDOW] -> PrintQueryScreensReply
+ Graphics.XHB.Gen.XPrint: MkPrintQueryScreensReply :: Word32 -> [WINDOW] -> PrintQueryScreensReply
- Graphics.XHB.Gen.XPrint: MkPrintQueryVersionReply :: CARD16 -> CARD16 -> PrintQueryVersionReply
+ Graphics.XHB.Gen.XPrint: MkPrintQueryVersionReply :: Word16 -> Word16 -> PrintQueryVersionReply
- Graphics.XHB.Gen.XPrint: MkPrintSelectInput :: PCONTEXT -> ValueParam CARD32 -> PrintSelectInput
+ Graphics.XHB.Gen.XPrint: MkPrintSelectInput :: PCONTEXT -> ValueParam Word32 -> PrintSelectInput
- Graphics.XHB.Gen.XPrint: MkPrintSetAttributes :: PCONTEXT -> CARD32 -> CARD8 -> CARD8 -> [STRING8] -> PrintSetAttributes
+ Graphics.XHB.Gen.XPrint: MkPrintSetAttributes :: PCONTEXT -> Word32 -> Word8 -> Word8 -> [STRING8] -> PrintSetAttributes
- Graphics.XHB.Gen.XPrint: MkPrintSetContext :: CARD32 -> PrintSetContext
+ Graphics.XHB.Gen.XPrint: MkPrintSetContext :: Word32 -> PrintSetContext
- Graphics.XHB.Gen.XPrint: MkPrintSetImageResolution :: PCONTEXT -> CARD16 -> PrintSetImageResolution
+ Graphics.XHB.Gen.XPrint: MkPrintSetImageResolution :: PCONTEXT -> Word16 -> PrintSetImageResolution
- Graphics.XHB.Gen.XPrint: MkPrintSetImageResolutionReply :: BOOL -> CARD16 -> PrintSetImageResolutionReply
+ Graphics.XHB.Gen.XPrint: MkPrintSetImageResolutionReply :: Bool -> Word16 -> PrintSetImageResolutionReply
- Graphics.XHB.Gen.XPrint: MkPrintStartDoc :: CARD8 -> PrintStartDoc
+ Graphics.XHB.Gen.XPrint: MkPrintStartDoc :: Word8 -> PrintStartDoc
- Graphics.XHB.Gen.XPrint: MkPrintStartJob :: CARD8 -> PrintStartJob
+ Graphics.XHB.Gen.XPrint: MkPrintStartJob :: Word8 -> PrintStartJob
- Graphics.XHB.Gen.XPrint: all_events_PrintInputSelectedReply :: PrintInputSelectedReply -> ValueParam CARD32
+ Graphics.XHB.Gen.XPrint: all_events_PrintInputSelectedReply :: PrintInputSelectedReply -> ValueParam Word32
- Graphics.XHB.Gen.XPrint: cancel_Notify :: Notify -> BOOL
+ Graphics.XHB.Gen.XPrint: cancel_Notify :: Notify -> Bool
- Graphics.XHB.Gen.XPrint: cancel_PrintEndDoc :: PrintEndDoc -> BOOL
+ Graphics.XHB.Gen.XPrint: cancel_PrintEndDoc :: PrintEndDoc -> Bool
- Graphics.XHB.Gen.XPrint: cancel_PrintEndJob :: PrintEndJob -> BOOL
+ Graphics.XHB.Gen.XPrint: cancel_PrintEndJob :: PrintEndJob -> Bool
- Graphics.XHB.Gen.XPrint: cancel_PrintEndPage :: PrintEndPage -> BOOL
+ Graphics.XHB.Gen.XPrint: cancel_PrintEndPage :: PrintEndPage -> Bool
- Graphics.XHB.Gen.XPrint: context_PrintDestroyContext :: PrintDestroyContext -> CARD32
+ Graphics.XHB.Gen.XPrint: context_PrintDestroyContext :: PrintDestroyContext -> Word32
- Graphics.XHB.Gen.XPrint: context_PrintGetContextReply :: PrintGetContextReply -> CARD32
+ Graphics.XHB.Gen.XPrint: context_PrintGetContextReply :: PrintGetContextReply -> Word32
- Graphics.XHB.Gen.XPrint: context_PrintSetContext :: PrintSetContext -> CARD32
+ Graphics.XHB.Gen.XPrint: context_PrintSetContext :: PrintSetContext -> Word32
- Graphics.XHB.Gen.XPrint: context_id_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.XPrint: context_id_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.XPrint: dataLen_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> CARD32
+ Graphics.XHB.Gen.XPrint: dataLen_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> Word32
- Graphics.XHB.Gen.XPrint: data_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> [BYTE]
+ Graphics.XHB.Gen.XPrint: data_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> [Word8]
- Graphics.XHB.Gen.XPrint: data_PrintPutDocumentData :: PrintPutDocumentData -> [BYTE]
+ Graphics.XHB.Gen.XPrint: data_PrintPutDocumentData :: PrintPutDocumentData -> [Word8]
- Graphics.XHB.Gen.XPrint: descLen_PRINTER :: PRINTER -> CARD32
+ Graphics.XHB.Gen.XPrint: descLen_PRINTER :: PRINTER -> Word32
- Graphics.XHB.Gen.XPrint: detail_AttributNotify :: AttributNotify -> CARD8
+ Graphics.XHB.Gen.XPrint: detail_AttributNotify :: AttributNotify -> Word8
- Graphics.XHB.Gen.XPrint: detail_Notify :: Notify -> CARD8
+ Graphics.XHB.Gen.XPrint: detail_Notify :: Notify -> Word8
- Graphics.XHB.Gen.XPrint: driver_mode_PrintStartDoc :: PrintStartDoc -> CARD8
+ Graphics.XHB.Gen.XPrint: driver_mode_PrintStartDoc :: PrintStartDoc -> Word8
- Graphics.XHB.Gen.XPrint: event_PrintInputSelectedReply :: PrintInputSelectedReply -> ValueParam CARD32
+ Graphics.XHB.Gen.XPrint: event_PrintInputSelectedReply :: PrintInputSelectedReply -> ValueParam Word32
- Graphics.XHB.Gen.XPrint: event_PrintSelectInput :: PrintSelectInput -> ValueParam CARD32
+ Graphics.XHB.Gen.XPrint: event_PrintSelectInput :: PrintSelectInput -> ValueParam Word32
- Graphics.XHB.Gen.XPrint: finished_flag_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> CARD32
+ Graphics.XHB.Gen.XPrint: finished_flag_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> Word32
- Graphics.XHB.Gen.XPrint: height_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> CARD16
+ Graphics.XHB.Gen.XPrint: height_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> Word16
- Graphics.XHB.Gen.XPrint: image_resolution_PrintGetImageResolutionReply :: PrintGetImageResolutionReply -> CARD16
+ Graphics.XHB.Gen.XPrint: image_resolution_PrintGetImageResolutionReply :: PrintGetImageResolutionReply -> Word16
- Graphics.XHB.Gen.XPrint: image_resolution_PrintSetImageResolution :: PrintSetImageResolution -> CARD16
+ Graphics.XHB.Gen.XPrint: image_resolution_PrintSetImageResolution :: PrintSetImageResolution -> Word16
- Graphics.XHB.Gen.XPrint: len_data_PrintPutDocumentData :: PrintPutDocumentData -> CARD32
+ Graphics.XHB.Gen.XPrint: len_data_PrintPutDocumentData :: PrintPutDocumentData -> Word32
- Graphics.XHB.Gen.XPrint: len_fmt_PrintPutDocumentData :: PrintPutDocumentData -> CARD16
+ Graphics.XHB.Gen.XPrint: len_fmt_PrintPutDocumentData :: PrintPutDocumentData -> Word16
- Graphics.XHB.Gen.XPrint: len_options_PrintPutDocumentData :: PrintPutDocumentData -> CARD16
+ Graphics.XHB.Gen.XPrint: len_options_PrintPutDocumentData :: PrintPutDocumentData -> Word16
- Graphics.XHB.Gen.XPrint: listCount_PrintGetPrinterListReply :: PrintGetPrinterListReply -> CARD32
+ Graphics.XHB.Gen.XPrint: listCount_PrintGetPrinterListReply :: PrintGetPrinterListReply -> Word32
- Graphics.XHB.Gen.XPrint: listCount_PrintQueryScreensReply :: PrintQueryScreensReply -> CARD32
+ Graphics.XHB.Gen.XPrint: listCount_PrintQueryScreensReply :: PrintQueryScreensReply -> Word32
- Graphics.XHB.Gen.XPrint: localeLen_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.XPrint: localeLen_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.XPrint: localeLen_PrintGetPrinterList :: PrintGetPrinterList -> CARD32
+ Graphics.XHB.Gen.XPrint: localeLen_PrintGetPrinterList :: PrintGetPrinterList -> Word32
- Graphics.XHB.Gen.XPrint: major_version_PrintQueryVersionReply :: PrintQueryVersionReply -> CARD16
+ Graphics.XHB.Gen.XPrint: major_version_PrintQueryVersionReply :: PrintQueryVersionReply -> Word16
- Graphics.XHB.Gen.XPrint: max_bytes_PrintGetDocumentData :: PrintGetDocumentData -> CARD32
+ Graphics.XHB.Gen.XPrint: max_bytes_PrintGetDocumentData :: PrintGetDocumentData -> Word32
- Graphics.XHB.Gen.XPrint: minor_version_PrintQueryVersionReply :: PrintQueryVersionReply -> CARD16
+ Graphics.XHB.Gen.XPrint: minor_version_PrintQueryVersionReply :: PrintQueryVersionReply -> Word16
- Graphics.XHB.Gen.XPrint: nameLen_PRINTER :: PRINTER -> CARD32
+ Graphics.XHB.Gen.XPrint: nameLen_PRINTER :: PRINTER -> Word32
- Graphics.XHB.Gen.XPrint: nameLen_PrintGetOneAttributes :: PrintGetOneAttributes -> CARD32
+ Graphics.XHB.Gen.XPrint: nameLen_PrintGetOneAttributes :: PrintGetOneAttributes -> Word32
- Graphics.XHB.Gen.XPrint: offset_x_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> CARD16
+ Graphics.XHB.Gen.XPrint: offset_x_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> Word16
- Graphics.XHB.Gen.XPrint: offset_y_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> CARD16
+ Graphics.XHB.Gen.XPrint: offset_y_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> Word16
- Graphics.XHB.Gen.XPrint: output_mode_PrintStartJob :: PrintStartJob -> CARD8
+ Graphics.XHB.Gen.XPrint: output_mode_PrintStartJob :: PrintStartJob -> Word8
- Graphics.XHB.Gen.XPrint: pool_PrintGetAttributes :: PrintGetAttributes -> CARD8
+ Graphics.XHB.Gen.XPrint: pool_PrintGetAttributes :: PrintGetAttributes -> Word8
- Graphics.XHB.Gen.XPrint: pool_PrintGetOneAttributes :: PrintGetOneAttributes -> CARD8
+ Graphics.XHB.Gen.XPrint: pool_PrintGetOneAttributes :: PrintGetOneAttributes -> Word8
- Graphics.XHB.Gen.XPrint: pool_PrintSetAttributes :: PrintSetAttributes -> CARD8
+ Graphics.XHB.Gen.XPrint: pool_PrintSetAttributes :: PrintSetAttributes -> Word8
- Graphics.XHB.Gen.XPrint: previous_resolutions_PrintSetImageResolutionReply :: PrintSetImageResolutionReply -> CARD16
+ Graphics.XHB.Gen.XPrint: previous_resolutions_PrintSetImageResolutionReply :: PrintSetImageResolutionReply -> Word16
- Graphics.XHB.Gen.XPrint: printDestroyContext :: Connection -> CARD32 -> IO ()
+ Graphics.XHB.Gen.XPrint: printDestroyContext :: Connection -> Word32 -> IO ()
- Graphics.XHB.Gen.XPrint: printEndDoc :: Connection -> BOOL -> IO ()
+ Graphics.XHB.Gen.XPrint: printEndDoc :: Connection -> Bool -> IO ()
- Graphics.XHB.Gen.XPrint: printEndJob :: Connection -> BOOL -> IO ()
+ Graphics.XHB.Gen.XPrint: printEndJob :: Connection -> Bool -> IO ()
- Graphics.XHB.Gen.XPrint: printEndPage :: Connection -> BOOL -> IO ()
+ Graphics.XHB.Gen.XPrint: printEndPage :: Connection -> Bool -> IO ()
- Graphics.XHB.Gen.XPrint: printGetAttributes :: Connection -> PCONTEXT -> CARD8 -> IO (Receipt PrintGetAttributesReply)
+ Graphics.XHB.Gen.XPrint: printGetAttributes :: Connection -> PCONTEXT -> Word8 -> IO (Receipt PrintGetAttributesReply)
- Graphics.XHB.Gen.XPrint: printGetContext :: Connection -> IO (Receipt PrintGetContextReply)
+ Graphics.XHB.Gen.XPrint: printGetContext :: Connection -> IO (Receipt Word32)
- Graphics.XHB.Gen.XPrint: printGetDocumentData :: Connection -> PCONTEXT -> CARD32 -> IO (Receipt PrintGetDocumentDataReply)
+ Graphics.XHB.Gen.XPrint: printGetDocumentData :: Connection -> PCONTEXT -> Word32 -> IO (Receipt PrintGetDocumentDataReply)
- Graphics.XHB.Gen.XPrint: printGetImageResolution :: Connection -> PCONTEXT -> IO (Receipt PrintGetImageResolutionReply)
+ Graphics.XHB.Gen.XPrint: printGetImageResolution :: Connection -> PCONTEXT -> IO (Receipt Word16)
- Graphics.XHB.Gen.XPrint: printGetScreenOfContext :: Connection -> IO (Receipt PrintGetScreenOfContextReply)
+ Graphics.XHB.Gen.XPrint: printGetScreenOfContext :: Connection -> IO (Receipt WINDOW)
- Graphics.XHB.Gen.XPrint: printSelectInput :: Connection -> PCONTEXT -> ValueParam CARD32 -> IO ()
+ Graphics.XHB.Gen.XPrint: printSelectInput :: Connection -> PCONTEXT -> ValueParam Word32 -> IO ()
- Graphics.XHB.Gen.XPrint: printSetContext :: Connection -> CARD32 -> IO ()
+ Graphics.XHB.Gen.XPrint: printSetContext :: Connection -> Word32 -> IO ()
- Graphics.XHB.Gen.XPrint: printSetImageResolution :: Connection -> PCONTEXT -> CARD16 -> IO (Receipt PrintSetImageResolutionReply)
+ Graphics.XHB.Gen.XPrint: printSetImageResolution :: Connection -> PCONTEXT -> Word16 -> IO (Receipt PrintSetImageResolutionReply)
- Graphics.XHB.Gen.XPrint: printStartDoc :: Connection -> CARD8 -> IO ()
+ Graphics.XHB.Gen.XPrint: printStartDoc :: Connection -> Word8 -> IO ()
- Graphics.XHB.Gen.XPrint: printStartJob :: Connection -> CARD8 -> IO ()
+ Graphics.XHB.Gen.XPrint: printStartJob :: Connection -> Word8 -> IO ()
- Graphics.XHB.Gen.XPrint: printerNameLen_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.XPrint: printerNameLen_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.XPrint: printerNameLen_PrintGetPrinterList :: PrintGetPrinterList -> CARD32
+ Graphics.XHB.Gen.XPrint: printerNameLen_PrintGetPrinterList :: PrintGetPrinterList -> Word32
- Graphics.XHB.Gen.XPrint: reproducible_height_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> CARD16
+ Graphics.XHB.Gen.XPrint: reproducible_height_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> Word16
- Graphics.XHB.Gen.XPrint: reproducible_width_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> CARD16
+ Graphics.XHB.Gen.XPrint: reproducible_width_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> Word16
- Graphics.XHB.Gen.XPrint: rule_PrintSetAttributes :: PrintSetAttributes -> CARD8
+ Graphics.XHB.Gen.XPrint: rule_PrintSetAttributes :: PrintSetAttributes -> Word8
- Graphics.XHB.Gen.XPrint: status_PrintSetImageResolutionReply :: PrintSetImageResolutionReply -> BOOL
+ Graphics.XHB.Gen.XPrint: status_PrintSetImageResolutionReply :: PrintSetImageResolutionReply -> Bool
- Graphics.XHB.Gen.XPrint: status_code_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> CARD32
+ Graphics.XHB.Gen.XPrint: status_code_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> Word32
- Graphics.XHB.Gen.XPrint: stringLen_PrintGetAttributesReply :: PrintGetAttributesReply -> CARD32
+ Graphics.XHB.Gen.XPrint: stringLen_PrintGetAttributesReply :: PrintGetAttributesReply -> Word32
- Graphics.XHB.Gen.XPrint: stringLen_PrintSetAttributes :: PrintSetAttributes -> CARD32
+ Graphics.XHB.Gen.XPrint: stringLen_PrintSetAttributes :: PrintSetAttributes -> Word32
- Graphics.XHB.Gen.XPrint: valueLen_PrintGetOneAttributesReply :: PrintGetOneAttributesReply -> CARD32
+ Graphics.XHB.Gen.XPrint: valueLen_PrintGetOneAttributesReply :: PrintGetOneAttributesReply -> Word32
- Graphics.XHB.Gen.XPrint: width_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> CARD16
+ Graphics.XHB.Gen.XPrint: width_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> Word16
- Graphics.XHB.Gen.Xevie: MkEnd :: CARD32 -> End
+ Graphics.XHB.Gen.Xevie: MkEnd :: Word32 -> End
- Graphics.XHB.Gen.Xevie: MkQueryVersion :: CARD16 -> CARD16 -> QueryVersion
+ Graphics.XHB.Gen.Xevie: MkQueryVersion :: Word16 -> Word16 -> QueryVersion
- Graphics.XHB.Gen.Xevie: MkQueryVersionReply :: CARD16 -> CARD16 -> QueryVersionReply
+ Graphics.XHB.Gen.Xevie: MkQueryVersionReply :: Word16 -> Word16 -> QueryVersionReply
- Graphics.XHB.Gen.Xevie: MkSelectInput :: CARD32 -> SelectInput
+ Graphics.XHB.Gen.Xevie: MkSelectInput :: Word32 -> SelectInput
- Graphics.XHB.Gen.Xevie: MkSend :: Event -> CARD32 -> Send
+ Graphics.XHB.Gen.Xevie: MkSend :: Event -> Word32 -> Send
- Graphics.XHB.Gen.Xevie: MkStart :: CARD32 -> Start
+ Graphics.XHB.Gen.Xevie: MkStart :: Word32 -> Start
- Graphics.XHB.Gen.Xevie: client_major_version_QueryVersion :: QueryVersion -> CARD16
+ Graphics.XHB.Gen.Xevie: client_major_version_QueryVersion :: QueryVersion -> Word16
- Graphics.XHB.Gen.Xevie: client_minor_version_QueryVersion :: QueryVersion -> CARD16
+ Graphics.XHB.Gen.Xevie: client_minor_version_QueryVersion :: QueryVersion -> Word16
- Graphics.XHB.Gen.Xevie: cmap_End :: End -> CARD32
+ Graphics.XHB.Gen.Xevie: cmap_End :: End -> Word32
- Graphics.XHB.Gen.Xevie: data_type_Send :: Send -> CARD32
+ Graphics.XHB.Gen.Xevie: data_type_Send :: Send -> Word32
- Graphics.XHB.Gen.Xevie: end :: Connection -> CARD32 -> IO (Receipt EndReply)
+ Graphics.XHB.Gen.Xevie: end :: Connection -> Word32 -> IO (Receipt EndReply)
- Graphics.XHB.Gen.Xevie: event_mask_SelectInput :: SelectInput -> CARD32
+ Graphics.XHB.Gen.Xevie: event_mask_SelectInput :: SelectInput -> Word32
- Graphics.XHB.Gen.Xevie: queryVersion :: Connection -> CARD16 -> CARD16 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Xevie: queryVersion :: Connection -> Word16 -> Word16 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Xevie: screen_Start :: Start -> CARD32
+ Graphics.XHB.Gen.Xevie: screen_Start :: Start -> Word32
- Graphics.XHB.Gen.Xevie: selectInput :: Connection -> CARD32 -> IO (Receipt SelectInputReply)
+ Graphics.XHB.Gen.Xevie: selectInput :: Connection -> Word32 -> IO (Receipt SelectInputReply)
- Graphics.XHB.Gen.Xevie: send :: Connection -> Event -> CARD32 -> IO (Receipt SendReply)
+ Graphics.XHB.Gen.Xevie: send :: Connection -> Event -> Word32 -> IO (Receipt SendReply)
- Graphics.XHB.Gen.Xevie: server_major_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Xevie: server_major_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Xevie: server_minor_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Xevie: server_minor_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Xevie: start :: Connection -> CARD32 -> IO (Receipt StartReply)
+ Graphics.XHB.Gen.Xevie: start :: Connection -> Word32 -> IO (Receipt StartReply)
- Graphics.XHB.Gen.Xinerama: MkGetScreenCountReply :: BYTE -> WINDOW -> GetScreenCountReply
+ Graphics.XHB.Gen.Xinerama: MkGetScreenCountReply :: Word8 -> WINDOW -> GetScreenCountReply
- Graphics.XHB.Gen.Xinerama: MkGetScreenSize :: WINDOW -> CARD32 -> GetScreenSize
+ Graphics.XHB.Gen.Xinerama: MkGetScreenSize :: WINDOW -> Word32 -> GetScreenSize
- Graphics.XHB.Gen.Xinerama: MkGetScreenSizeReply :: CARD32 -> CARD32 -> WINDOW -> CARD32 -> GetScreenSizeReply
+ Graphics.XHB.Gen.Xinerama: MkGetScreenSizeReply :: Word32 -> Word32 -> WINDOW -> Word32 -> GetScreenSizeReply
- Graphics.XHB.Gen.Xinerama: MkGetStateReply :: BYTE -> WINDOW -> GetStateReply
+ Graphics.XHB.Gen.Xinerama: MkGetStateReply :: Word8 -> WINDOW -> GetStateReply
- Graphics.XHB.Gen.Xinerama: MkIsActiveReply :: CARD32 -> IsActiveReply
+ Graphics.XHB.Gen.Xinerama: MkIsActiveReply :: Word32 -> IsActiveReply
- Graphics.XHB.Gen.Xinerama: MkQueryScreensReply :: CARD32 -> [ScreenInfo] -> QueryScreensReply
+ Graphics.XHB.Gen.Xinerama: MkQueryScreensReply :: Word32 -> [ScreenInfo] -> QueryScreensReply
- Graphics.XHB.Gen.Xinerama: MkQueryVersion :: CARD8 -> CARD8 -> QueryVersion
+ Graphics.XHB.Gen.Xinerama: MkQueryVersion :: Word8 -> Word8 -> QueryVersion
- Graphics.XHB.Gen.Xinerama: MkQueryVersionReply :: CARD16 -> CARD16 -> QueryVersionReply
+ Graphics.XHB.Gen.Xinerama: MkQueryVersionReply :: Word16 -> Word16 -> QueryVersionReply
- Graphics.XHB.Gen.Xinerama: MkScreenInfo :: INT16 -> INT16 -> CARD16 -> CARD16 -> ScreenInfo
+ Graphics.XHB.Gen.Xinerama: MkScreenInfo :: Int16 -> Int16 -> Word16 -> Word16 -> ScreenInfo
- Graphics.XHB.Gen.Xinerama: getScreenSize :: Connection -> WINDOW -> CARD32 -> IO (Receipt GetScreenSizeReply)
+ Graphics.XHB.Gen.Xinerama: getScreenSize :: Connection -> WINDOW -> Word32 -> IO (Receipt GetScreenSizeReply)
- Graphics.XHB.Gen.Xinerama: height_GetScreenSizeReply :: GetScreenSizeReply -> CARD32
+ Graphics.XHB.Gen.Xinerama: height_GetScreenSizeReply :: GetScreenSizeReply -> Word32
- Graphics.XHB.Gen.Xinerama: height_ScreenInfo :: ScreenInfo -> CARD16
+ Graphics.XHB.Gen.Xinerama: height_ScreenInfo :: ScreenInfo -> Word16
- Graphics.XHB.Gen.Xinerama: isActive :: Connection -> IO (Receipt IsActiveReply)
+ Graphics.XHB.Gen.Xinerama: isActive :: Connection -> IO (Receipt Word32)
- Graphics.XHB.Gen.Xinerama: major_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.Xinerama: major_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.Xinerama: major_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Xinerama: major_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Xinerama: minor_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.Xinerama: minor_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.Xinerama: minor_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Xinerama: minor_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Xinerama: number_QueryScreensReply :: QueryScreensReply -> CARD32
+ Graphics.XHB.Gen.Xinerama: number_QueryScreensReply :: QueryScreensReply -> Word32
- Graphics.XHB.Gen.Xinerama: queryVersion :: Connection -> CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Xinerama: queryVersion :: Connection -> Word8 -> Word8 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Xinerama: screen_GetScreenSize :: GetScreenSize -> CARD32
+ Graphics.XHB.Gen.Xinerama: screen_GetScreenSize :: GetScreenSize -> Word32
- Graphics.XHB.Gen.Xinerama: screen_GetScreenSizeReply :: GetScreenSizeReply -> CARD32
+ Graphics.XHB.Gen.Xinerama: screen_GetScreenSizeReply :: GetScreenSizeReply -> Word32
- Graphics.XHB.Gen.Xinerama: screen_count_GetScreenCountReply :: GetScreenCountReply -> BYTE
+ Graphics.XHB.Gen.Xinerama: screen_count_GetScreenCountReply :: GetScreenCountReply -> Word8
- Graphics.XHB.Gen.Xinerama: state_GetStateReply :: GetStateReply -> BYTE
+ Graphics.XHB.Gen.Xinerama: state_GetStateReply :: GetStateReply -> Word8
- Graphics.XHB.Gen.Xinerama: state_IsActiveReply :: IsActiveReply -> CARD32
+ Graphics.XHB.Gen.Xinerama: state_IsActiveReply :: IsActiveReply -> Word32
- Graphics.XHB.Gen.Xinerama: width_GetScreenSizeReply :: GetScreenSizeReply -> CARD32
+ Graphics.XHB.Gen.Xinerama: width_GetScreenSizeReply :: GetScreenSizeReply -> Word32
- Graphics.XHB.Gen.Xinerama: width_ScreenInfo :: ScreenInfo -> CARD16
+ Graphics.XHB.Gen.Xinerama: width_ScreenInfo :: ScreenInfo -> Word16
- Graphics.XHB.Gen.Xinerama: x_org_ScreenInfo :: ScreenInfo -> INT16
+ Graphics.XHB.Gen.Xinerama: x_org_ScreenInfo :: ScreenInfo -> Int16
- Graphics.XHB.Gen.Xinerama: y_org_ScreenInfo :: ScreenInfo -> INT16
+ Graphics.XHB.Gen.Xinerama: y_org_ScreenInfo :: ScreenInfo -> Int16
- Graphics.XHB.Gen.Xproto: ClientData16 :: [CARD16] -> ClientMessageData
+ Graphics.XHB.Gen.Xproto: ClientData16 :: [Word16] -> ClientMessageData
- Graphics.XHB.Gen.Xproto: ClientData32 :: [CARD32] -> ClientMessageData
+ Graphics.XHB.Gen.Xproto: ClientData32 :: [Word32] -> ClientMessageData
- Graphics.XHB.Gen.Xproto: ClientData8 :: [CARD8] -> ClientMessageData
+ Graphics.XHB.Gen.Xproto: ClientData8 :: [Word8] -> ClientMessageData
- Graphics.XHB.Gen.Xproto: MkARC :: INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> ARC
+ Graphics.XHB.Gen.Xproto: MkARC :: Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> ARC
- Graphics.XHB.Gen.Xproto: MkAccess :: CARD32 -> CARD16 -> CARD8 -> Access
+ Graphics.XHB.Gen.Xproto: MkAccess :: Word32 -> Word16 -> Word8 -> Access
- Graphics.XHB.Gen.Xproto: MkAlloc :: CARD32 -> CARD16 -> CARD8 -> Alloc
+ Graphics.XHB.Gen.Xproto: MkAlloc :: Word32 -> Word16 -> Word8 -> Alloc
- Graphics.XHB.Gen.Xproto: MkAllocColor :: COLORMAP -> CARD16 -> CARD16 -> CARD16 -> AllocColor
+ Graphics.XHB.Gen.Xproto: MkAllocColor :: COLORMAP -> Word16 -> Word16 -> Word16 -> AllocColor
- Graphics.XHB.Gen.Xproto: MkAllocColorCells :: BOOL -> COLORMAP -> CARD16 -> CARD16 -> AllocColorCells
+ Graphics.XHB.Gen.Xproto: MkAllocColorCells :: Bool -> COLORMAP -> Word16 -> Word16 -> AllocColorCells
- Graphics.XHB.Gen.Xproto: MkAllocColorCellsReply :: CARD16 -> CARD16 -> [CARD32] -> [CARD32] -> AllocColorCellsReply
+ Graphics.XHB.Gen.Xproto: MkAllocColorCellsReply :: Word16 -> Word16 -> [Word32] -> [Word32] -> AllocColorCellsReply
- Graphics.XHB.Gen.Xproto: MkAllocColorPlanes :: BOOL -> COLORMAP -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> AllocColorPlanes
+ Graphics.XHB.Gen.Xproto: MkAllocColorPlanes :: Bool -> COLORMAP -> Word16 -> Word16 -> Word16 -> Word16 -> AllocColorPlanes
- Graphics.XHB.Gen.Xproto: MkAllocColorPlanesReply :: CARD16 -> CARD32 -> CARD32 -> CARD32 -> [CARD32] -> AllocColorPlanesReply
+ Graphics.XHB.Gen.Xproto: MkAllocColorPlanesReply :: Word16 -> Word32 -> Word32 -> Word32 -> [Word32] -> AllocColorPlanesReply
- Graphics.XHB.Gen.Xproto: MkAllocColorReply :: CARD16 -> CARD16 -> CARD16 -> CARD32 -> AllocColorReply
+ Graphics.XHB.Gen.Xproto: MkAllocColorReply :: Word16 -> Word16 -> Word16 -> Word32 -> AllocColorReply
- Graphics.XHB.Gen.Xproto: MkAllocNamedColor :: COLORMAP -> CARD16 -> [CChar] -> AllocNamedColor
+ Graphics.XHB.Gen.Xproto: MkAllocNamedColor :: COLORMAP -> Word16 -> [CChar] -> AllocNamedColor
- Graphics.XHB.Gen.Xproto: MkAllocNamedColorReply :: CARD32 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> AllocNamedColorReply
+ Graphics.XHB.Gen.Xproto: MkAllocNamedColorReply :: Word32 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> AllocNamedColorReply
- Graphics.XHB.Gen.Xproto: MkAllowEvents :: CARD8 -> TIMESTAMP -> AllowEvents
+ Graphics.XHB.Gen.Xproto: MkAllowEvents :: Word8 -> TIMESTAMP -> AllowEvents
- Graphics.XHB.Gen.Xproto: MkAtom :: CARD32 -> CARD16 -> CARD8 -> Atom
+ Graphics.XHB.Gen.Xproto: MkAtom :: Word32 -> Word16 -> Word8 -> Atom
- Graphics.XHB.Gen.Xproto: MkBell :: INT8 -> Bell
+ Graphics.XHB.Gen.Xproto: MkBell :: Int8 -> Bell
- Graphics.XHB.Gen.Xproto: MkButtonPress :: BUTTON -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> ButtonPress
+ Graphics.XHB.Gen.Xproto: MkButtonPress :: BUTTON -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> ButtonPress
- Graphics.XHB.Gen.Xproto: MkButtonRelease :: BUTTON -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> ButtonRelease
+ Graphics.XHB.Gen.Xproto: MkButtonRelease :: BUTTON -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> ButtonRelease
- Graphics.XHB.Gen.Xproto: MkCHAR2B :: CARD8 -> CARD8 -> CHAR2B
+ Graphics.XHB.Gen.Xproto: MkCHAR2B :: Word8 -> Word8 -> CHAR2B
- Graphics.XHB.Gen.Xproto: MkCHARINFO :: INT16 -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> CHARINFO
+ Graphics.XHB.Gen.Xproto: MkCHARINFO :: Int16 -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> CHARINFO
- Graphics.XHB.Gen.Xproto: MkCOLORITEM :: CARD32 -> CARD16 -> CARD16 -> CARD16 -> BYTE -> COLORITEM
+ Graphics.XHB.Gen.Xproto: MkCOLORITEM :: Word32 -> Word16 -> Word16 -> Word16 -> Word8 -> COLORITEM
- Graphics.XHB.Gen.Xproto: MkChangeActivePointerGrab :: CURSOR -> TIMESTAMP -> CARD16 -> ChangeActivePointerGrab
+ Graphics.XHB.Gen.Xproto: MkChangeActivePointerGrab :: CURSOR -> TIMESTAMP -> Word16 -> ChangeActivePointerGrab
- Graphics.XHB.Gen.Xproto: MkChangeGC :: GCONTEXT -> ValueParam CARD32 -> ChangeGC
+ Graphics.XHB.Gen.Xproto: MkChangeGC :: GCONTEXT -> ValueParam Word32 -> ChangeGC
- Graphics.XHB.Gen.Xproto: MkChangeHosts :: CARD8 -> CARD8 -> CARD16 -> [CChar] -> ChangeHosts
+ Graphics.XHB.Gen.Xproto: MkChangeHosts :: Word8 -> Word8 -> Word16 -> [CChar] -> ChangeHosts
- Graphics.XHB.Gen.Xproto: MkChangeKeyboardControl :: ValueParam CARD32 -> ChangeKeyboardControl
+ Graphics.XHB.Gen.Xproto: MkChangeKeyboardControl :: ValueParam Word32 -> ChangeKeyboardControl
- Graphics.XHB.Gen.Xproto: MkChangeKeyboardMapping :: CARD8 -> KEYCODE -> CARD8 -> [KEYSYM] -> ChangeKeyboardMapping
+ Graphics.XHB.Gen.Xproto: MkChangeKeyboardMapping :: Word8 -> KEYCODE -> Word8 -> [KEYSYM] -> ChangeKeyboardMapping
- Graphics.XHB.Gen.Xproto: MkChangePointerControl :: INT16 -> INT16 -> INT16 -> BOOL -> BOOL -> ChangePointerControl
+ Graphics.XHB.Gen.Xproto: MkChangePointerControl :: Int16 -> Int16 -> Int16 -> Bool -> Bool -> ChangePointerControl
- Graphics.XHB.Gen.Xproto: MkChangeProperty :: CARD8 -> WINDOW -> ATOM -> ATOM -> CARD8 -> CARD32 -> [Word8] -> ChangeProperty
+ Graphics.XHB.Gen.Xproto: MkChangeProperty :: Word8 -> WINDOW -> ATOM -> ATOM -> Word8 -> Word32 -> [Word8] -> ChangeProperty
- Graphics.XHB.Gen.Xproto: MkChangeSaveSet :: BYTE -> WINDOW -> ChangeSaveSet
+ Graphics.XHB.Gen.Xproto: MkChangeSaveSet :: Word8 -> WINDOW -> ChangeSaveSet
- Graphics.XHB.Gen.Xproto: MkChangeWindowAttributes :: WINDOW -> ValueParam CARD32 -> ChangeWindowAttributes
+ Graphics.XHB.Gen.Xproto: MkChangeWindowAttributes :: WINDOW -> ValueParam Word32 -> ChangeWindowAttributes
- Graphics.XHB.Gen.Xproto: MkCirculateNotify :: WINDOW -> WINDOW -> BYTE -> CirculateNotify
+ Graphics.XHB.Gen.Xproto: MkCirculateNotify :: WINDOW -> WINDOW -> Word8 -> CirculateNotify
- Graphics.XHB.Gen.Xproto: MkCirculateRequest :: WINDOW -> WINDOW -> BYTE -> CirculateRequest
+ Graphics.XHB.Gen.Xproto: MkCirculateRequest :: WINDOW -> WINDOW -> Word8 -> CirculateRequest
- Graphics.XHB.Gen.Xproto: MkCirculateWindow :: CARD8 -> WINDOW -> CirculateWindow
+ Graphics.XHB.Gen.Xproto: MkCirculateWindow :: Word8 -> WINDOW -> CirculateWindow
- Graphics.XHB.Gen.Xproto: MkClearArea :: BOOL -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> ClearArea
+ Graphics.XHB.Gen.Xproto: MkClearArea :: Bool -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> ClearArea
- Graphics.XHB.Gen.Xproto: MkClientMessage :: CARD8 -> WINDOW -> ATOM -> ClientMessageData -> ClientMessage
+ Graphics.XHB.Gen.Xproto: MkClientMessage :: Word8 -> WINDOW -> ATOM -> ClientMessageData -> ClientMessage
- Graphics.XHB.Gen.Xproto: MkColormap :: CARD32 -> CARD16 -> CARD8 -> Colormap
+ Graphics.XHB.Gen.Xproto: MkColormap :: Word32 -> Word16 -> Word8 -> Colormap
- Graphics.XHB.Gen.Xproto: MkColormapNotify :: WINDOW -> COLORMAP -> BOOL -> BYTE -> ColormapNotify
+ Graphics.XHB.Gen.Xproto: MkColormapNotify :: WINDOW -> COLORMAP -> Bool -> Word8 -> ColormapNotify
- Graphics.XHB.Gen.Xproto: MkConfigureNotify :: WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> BOOL -> ConfigureNotify
+ Graphics.XHB.Gen.Xproto: MkConfigureNotify :: WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Bool -> ConfigureNotify
- Graphics.XHB.Gen.Xproto: MkConfigureRequest :: BYTE -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> ConfigureRequest
+ Graphics.XHB.Gen.Xproto: MkConfigureRequest :: Word8 -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Word16 -> ConfigureRequest
- Graphics.XHB.Gen.Xproto: MkConfigureWindow :: WINDOW -> ValueParam CARD16 -> ConfigureWindow
+ Graphics.XHB.Gen.Xproto: MkConfigureWindow :: WINDOW -> ValueParam Word16 -> ConfigureWindow
- Graphics.XHB.Gen.Xproto: MkCopyArea :: DRAWABLE -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> CopyArea
+ Graphics.XHB.Gen.Xproto: MkCopyArea :: DRAWABLE -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Word16 -> CopyArea
- Graphics.XHB.Gen.Xproto: MkCopyGC :: GCONTEXT -> GCONTEXT -> CARD32 -> CopyGC
+ Graphics.XHB.Gen.Xproto: MkCopyGC :: GCONTEXT -> GCONTEXT -> Word32 -> CopyGC
- Graphics.XHB.Gen.Xproto: MkCopyPlane :: DRAWABLE -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD32 -> CopyPlane
+ Graphics.XHB.Gen.Xproto: MkCopyPlane :: DRAWABLE -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Word16 -> Word32 -> CopyPlane
- Graphics.XHB.Gen.Xproto: MkCreateColormap :: BYTE -> COLORMAP -> WINDOW -> VISUALID -> CreateColormap
+ Graphics.XHB.Gen.Xproto: MkCreateColormap :: Word8 -> COLORMAP -> WINDOW -> VISUALID -> CreateColormap
- Graphics.XHB.Gen.Xproto: MkCreateCursor :: CURSOR -> PIXMAP -> PIXMAP -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CreateCursor
+ Graphics.XHB.Gen.Xproto: MkCreateCursor :: CURSOR -> PIXMAP -> PIXMAP -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> CreateCursor
- Graphics.XHB.Gen.Xproto: MkCreateGC :: GCONTEXT -> DRAWABLE -> ValueParam CARD32 -> CreateGC
+ Graphics.XHB.Gen.Xproto: MkCreateGC :: GCONTEXT -> DRAWABLE -> ValueParam Word32 -> CreateGC
- Graphics.XHB.Gen.Xproto: MkCreateGlyphCursor :: CURSOR -> FONT -> FONT -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CreateGlyphCursor
+ Graphics.XHB.Gen.Xproto: MkCreateGlyphCursor :: CURSOR -> FONT -> FONT -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> CreateGlyphCursor
- Graphics.XHB.Gen.Xproto: MkCreateNotify :: WINDOW -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> BOOL -> CreateNotify
+ Graphics.XHB.Gen.Xproto: MkCreateNotify :: WINDOW -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Bool -> CreateNotify
- Graphics.XHB.Gen.Xproto: MkCreatePixmap :: CARD8 -> PIXMAP -> DRAWABLE -> CARD16 -> CARD16 -> CreatePixmap
+ Graphics.XHB.Gen.Xproto: MkCreatePixmap :: Word8 -> PIXMAP -> DRAWABLE -> Word16 -> Word16 -> CreatePixmap
- Graphics.XHB.Gen.Xproto: MkCreateWindow :: CARD8 -> WINDOW -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> VISUALID -> ValueParam CARD32 -> CreateWindow
+ Graphics.XHB.Gen.Xproto: MkCreateWindow :: Word8 -> WINDOW -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Word16 -> VISUALID -> ValueParam Word32 -> CreateWindow
- Graphics.XHB.Gen.Xproto: MkCursor :: CARD32 -> CARD16 -> CARD8 -> Cursor
+ Graphics.XHB.Gen.Xproto: MkCursor :: Word32 -> Word16 -> Word8 -> Cursor
- Graphics.XHB.Gen.Xproto: MkDEPTH :: CARD8 -> CARD16 -> [VISUALTYPE] -> DEPTH
+ Graphics.XHB.Gen.Xproto: MkDEPTH :: Word8 -> Word16 -> [VISUALTYPE] -> DEPTH
- Graphics.XHB.Gen.Xproto: MkDrawable :: CARD32 -> CARD16 -> CARD8 -> Drawable
+ Graphics.XHB.Gen.Xproto: MkDrawable :: Word32 -> Word16 -> Word8 -> Drawable
- Graphics.XHB.Gen.Xproto: MkEnterNotify :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BYTE -> BYTE -> EnterNotify
+ Graphics.XHB.Gen.Xproto: MkEnterNotify :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Word8 -> Word8 -> EnterNotify
- Graphics.XHB.Gen.Xproto: MkExpose :: WINDOW -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> Expose
+ Graphics.XHB.Gen.Xproto: MkExpose :: WINDOW -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Expose
- Graphics.XHB.Gen.Xproto: MkFONTPROP :: ATOM -> CARD32 -> FONTPROP
+ Graphics.XHB.Gen.Xproto: MkFONTPROP :: ATOM -> Word32 -> FONTPROP
- Graphics.XHB.Gen.Xproto: MkFORMAT :: CARD8 -> CARD8 -> CARD8 -> FORMAT
+ Graphics.XHB.Gen.Xproto: MkFORMAT :: Word8 -> Word8 -> Word8 -> FORMAT
- Graphics.XHB.Gen.Xproto: MkFillPoly :: DRAWABLE -> GCONTEXT -> CARD8 -> CARD8 -> [POINT] -> FillPoly
+ Graphics.XHB.Gen.Xproto: MkFillPoly :: DRAWABLE -> GCONTEXT -> Word8 -> Word8 -> [POINT] -> FillPoly
- Graphics.XHB.Gen.Xproto: MkFocusIn :: BYTE -> WINDOW -> BYTE -> FocusIn
+ Graphics.XHB.Gen.Xproto: MkFocusIn :: Word8 -> WINDOW -> Word8 -> FocusIn
- Graphics.XHB.Gen.Xproto: MkFocusOut :: BYTE -> WINDOW -> BYTE -> FocusOut
+ Graphics.XHB.Gen.Xproto: MkFocusOut :: Word8 -> WINDOW -> Word8 -> FocusOut
- Graphics.XHB.Gen.Xproto: MkFont :: CARD32 -> CARD16 -> CARD8 -> Font
+ Graphics.XHB.Gen.Xproto: MkFont :: Word32 -> Word16 -> Word8 -> Font
- Graphics.XHB.Gen.Xproto: MkForceScreenSaver :: CARD8 -> ForceScreenSaver
+ Graphics.XHB.Gen.Xproto: MkForceScreenSaver :: Word8 -> ForceScreenSaver
- Graphics.XHB.Gen.Xproto: MkFreeColors :: COLORMAP -> CARD32 -> [CARD32] -> FreeColors
+ Graphics.XHB.Gen.Xproto: MkFreeColors :: COLORMAP -> Word32 -> [Word32] -> FreeColors
- Graphics.XHB.Gen.Xproto: MkGContext :: CARD32 -> CARD16 -> CARD8 -> GContext
+ Graphics.XHB.Gen.Xproto: MkGContext :: Word32 -> Word16 -> Word8 -> GContext
- Graphics.XHB.Gen.Xproto: MkGetAtomNameReply :: CARD16 -> [CChar] -> GetAtomNameReply
+ Graphics.XHB.Gen.Xproto: MkGetAtomNameReply :: Word16 -> [CChar] -> GetAtomNameReply
- Graphics.XHB.Gen.Xproto: MkGetFontPathReply :: CARD16 -> [STR] -> GetFontPathReply
+ Graphics.XHB.Gen.Xproto: MkGetFontPathReply :: Word16 -> [STR] -> GetFontPathReply
- Graphics.XHB.Gen.Xproto: MkGetGeometryReply :: CARD8 -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> GetGeometryReply
+ Graphics.XHB.Gen.Xproto: MkGetGeometryReply :: Word8 -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> GetGeometryReply
- Graphics.XHB.Gen.Xproto: MkGetImage :: CARD8 -> DRAWABLE -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD32 -> GetImage
+ Graphics.XHB.Gen.Xproto: MkGetImage :: Word8 -> DRAWABLE -> Int16 -> Int16 -> Word16 -> Word16 -> Word32 -> GetImage
- Graphics.XHB.Gen.Xproto: MkGetImageReply :: CARD8 -> VISUALID -> [BYTE] -> GetImageReply
+ Graphics.XHB.Gen.Xproto: MkGetImageReply :: Word8 -> VISUALID -> [Word8] -> GetImageReply
- Graphics.XHB.Gen.Xproto: MkGetInputFocusReply :: CARD8 -> WINDOW -> GetInputFocusReply
+ Graphics.XHB.Gen.Xproto: MkGetInputFocusReply :: Word8 -> WINDOW -> GetInputFocusReply
- Graphics.XHB.Gen.Xproto: MkGetKeyboardControlReply :: BYTE -> CARD32 -> CARD8 -> CARD8 -> CARD16 -> CARD16 -> [CARD8] -> GetKeyboardControlReply
+ Graphics.XHB.Gen.Xproto: MkGetKeyboardControlReply :: Word8 -> Word32 -> Word8 -> Word8 -> Word16 -> Word16 -> [Word8] -> GetKeyboardControlReply
- Graphics.XHB.Gen.Xproto: MkGetKeyboardMapping :: KEYCODE -> CARD8 -> GetKeyboardMapping
+ Graphics.XHB.Gen.Xproto: MkGetKeyboardMapping :: KEYCODE -> Word8 -> GetKeyboardMapping
- Graphics.XHB.Gen.Xproto: MkGetKeyboardMappingReply :: BYTE -> [KEYSYM] -> GetKeyboardMappingReply
+ Graphics.XHB.Gen.Xproto: MkGetKeyboardMappingReply :: Word8 -> [KEYSYM] -> GetKeyboardMappingReply
- Graphics.XHB.Gen.Xproto: MkGetModifierMappingReply :: CARD8 -> [KEYCODE] -> GetModifierMappingReply
+ Graphics.XHB.Gen.Xproto: MkGetModifierMappingReply :: Word8 -> [KEYCODE] -> GetModifierMappingReply
- Graphics.XHB.Gen.Xproto: MkGetMotionEventsReply :: CARD32 -> [TIMECOORD] -> GetMotionEventsReply
+ Graphics.XHB.Gen.Xproto: MkGetMotionEventsReply :: Word32 -> [TIMECOORD] -> GetMotionEventsReply
- Graphics.XHB.Gen.Xproto: MkGetPointerControlReply :: CARD16 -> CARD16 -> CARD16 -> GetPointerControlReply
+ Graphics.XHB.Gen.Xproto: MkGetPointerControlReply :: Word16 -> Word16 -> Word16 -> GetPointerControlReply
- Graphics.XHB.Gen.Xproto: MkGetPointerMappingReply :: CARD8 -> [CARD8] -> GetPointerMappingReply
+ Graphics.XHB.Gen.Xproto: MkGetPointerMappingReply :: Word8 -> [Word8] -> GetPointerMappingReply
- Graphics.XHB.Gen.Xproto: MkGetProperty :: BOOL -> WINDOW -> ATOM -> ATOM -> CARD32 -> CARD32 -> GetProperty
+ Graphics.XHB.Gen.Xproto: MkGetProperty :: Bool -> WINDOW -> ATOM -> ATOM -> Word32 -> Word32 -> GetProperty
- Graphics.XHB.Gen.Xproto: MkGetPropertyReply :: CARD8 -> ATOM -> CARD32 -> CARD32 -> [Word8] -> GetPropertyReply
+ Graphics.XHB.Gen.Xproto: MkGetPropertyReply :: Word8 -> ATOM -> Word32 -> Word32 -> [Word8] -> GetPropertyReply
- Graphics.XHB.Gen.Xproto: MkGetScreenSaverReply :: CARD16 -> CARD16 -> BYTE -> BYTE -> GetScreenSaverReply
+ Graphics.XHB.Gen.Xproto: MkGetScreenSaverReply :: Word16 -> Word16 -> Word8 -> Word8 -> GetScreenSaverReply
- Graphics.XHB.Gen.Xproto: MkGetWindowAttributesReply :: CARD8 -> VISUALID -> CARD16 -> CARD8 -> CARD8 -> CARD32 -> CARD32 -> BOOL -> BOOL -> CARD8 -> BOOL -> COLORMAP -> CARD32 -> CARD32 -> CARD16 -> GetWindowAttributesReply
+ Graphics.XHB.Gen.Xproto: MkGetWindowAttributesReply :: Word8 -> VISUALID -> Word16 -> Word8 -> Word8 -> Word32 -> Word32 -> Bool -> Bool -> Word8 -> Bool -> COLORMAP -> Word32 -> Word32 -> Word16 -> GetWindowAttributesReply
- Graphics.XHB.Gen.Xproto: MkGrabButton :: BOOL -> WINDOW -> CARD16 -> CARD8 -> CARD8 -> WINDOW -> CURSOR -> CARD8 -> CARD16 -> GrabButton
+ Graphics.XHB.Gen.Xproto: MkGrabButton :: Bool -> WINDOW -> Word16 -> Word8 -> Word8 -> WINDOW -> CURSOR -> Word8 -> Word16 -> GrabButton
- Graphics.XHB.Gen.Xproto: MkGrabKey :: BOOL -> WINDOW -> CARD16 -> KEYCODE -> CARD8 -> CARD8 -> GrabKey
+ Graphics.XHB.Gen.Xproto: MkGrabKey :: Bool -> WINDOW -> Word16 -> KEYCODE -> Word8 -> Word8 -> GrabKey
- Graphics.XHB.Gen.Xproto: MkGrabKeyboard :: BOOL -> WINDOW -> TIMESTAMP -> BYTE -> BYTE -> GrabKeyboard
+ Graphics.XHB.Gen.Xproto: MkGrabKeyboard :: Bool -> WINDOW -> TIMESTAMP -> Word8 -> Word8 -> GrabKeyboard
- Graphics.XHB.Gen.Xproto: MkGrabKeyboardReply :: BYTE -> GrabKeyboardReply
+ Graphics.XHB.Gen.Xproto: MkGrabKeyboardReply :: Word8 -> GrabKeyboardReply
- Graphics.XHB.Gen.Xproto: MkGrabPointer :: BOOL -> WINDOW -> CARD16 -> BYTE -> BYTE -> WINDOW -> CURSOR -> TIMESTAMP -> GrabPointer
+ Graphics.XHB.Gen.Xproto: MkGrabPointer :: Bool -> WINDOW -> Word16 -> Word8 -> Word8 -> WINDOW -> CURSOR -> TIMESTAMP -> GrabPointer
- Graphics.XHB.Gen.Xproto: MkGrabPointerReply :: BYTE -> GrabPointerReply
+ Graphics.XHB.Gen.Xproto: MkGrabPointerReply :: Word8 -> GrabPointerReply
- Graphics.XHB.Gen.Xproto: MkGraphicsExposure :: DRAWABLE -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD8 -> GraphicsExposure
+ Graphics.XHB.Gen.Xproto: MkGraphicsExposure :: DRAWABLE -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word8 -> GraphicsExposure
- Graphics.XHB.Gen.Xproto: MkGravityNotify :: WINDOW -> WINDOW -> INT16 -> INT16 -> GravityNotify
+ Graphics.XHB.Gen.Xproto: MkGravityNotify :: WINDOW -> WINDOW -> Int16 -> Int16 -> GravityNotify
- Graphics.XHB.Gen.Xproto: MkHOST :: CARD8 -> CARD16 -> [BYTE] -> HOST
+ Graphics.XHB.Gen.Xproto: MkHOST :: Word8 -> Word16 -> [Word8] -> HOST
- Graphics.XHB.Gen.Xproto: MkIDChoice :: CARD32 -> CARD16 -> CARD8 -> IDChoice
+ Graphics.XHB.Gen.Xproto: MkIDChoice :: Word32 -> Word16 -> Word8 -> IDChoice
- Graphics.XHB.Gen.Xproto: MkImageText16 :: BYTE -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> [CHAR2B] -> ImageText16
+ Graphics.XHB.Gen.Xproto: MkImageText16 :: Word8 -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> [CHAR2B] -> ImageText16
- Graphics.XHB.Gen.Xproto: MkImageText8 :: BYTE -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> [CChar] -> ImageText8
+ Graphics.XHB.Gen.Xproto: MkImageText8 :: Word8 -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> [CChar] -> ImageText8
- Graphics.XHB.Gen.Xproto: MkImplementation :: CARD32 -> CARD16 -> CARD8 -> Implementation
+ Graphics.XHB.Gen.Xproto: MkImplementation :: Word32 -> Word16 -> Word8 -> Implementation
- Graphics.XHB.Gen.Xproto: MkInternAtom :: BOOL -> CARD16 -> [CChar] -> InternAtom
+ Graphics.XHB.Gen.Xproto: MkInternAtom :: Bool -> Word16 -> [CChar] -> InternAtom
- Graphics.XHB.Gen.Xproto: MkKeyPress :: KEYCODE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> KeyPress
+ Graphics.XHB.Gen.Xproto: MkKeyPress :: KEYCODE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> KeyPress
- Graphics.XHB.Gen.Xproto: MkKeyRelease :: KEYCODE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> KeyRelease
+ Graphics.XHB.Gen.Xproto: MkKeyRelease :: KEYCODE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> KeyRelease
- Graphics.XHB.Gen.Xproto: MkKeymapNotify :: [CARD8] -> KeymapNotify
+ Graphics.XHB.Gen.Xproto: MkKeymapNotify :: [Word8] -> KeymapNotify
- Graphics.XHB.Gen.Xproto: MkKillClient :: CARD32 -> KillClient
+ Graphics.XHB.Gen.Xproto: MkKillClient :: Word32 -> KillClient
- Graphics.XHB.Gen.Xproto: MkLeaveNotify :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BYTE -> BYTE -> LeaveNotify
+ Graphics.XHB.Gen.Xproto: MkLeaveNotify :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Word8 -> Word8 -> LeaveNotify
- Graphics.XHB.Gen.Xproto: MkLength :: CARD32 -> CARD16 -> CARD8 -> Length
+ Graphics.XHB.Gen.Xproto: MkLength :: Word32 -> Word16 -> Word8 -> Length
- Graphics.XHB.Gen.Xproto: MkListExtensionsReply :: CARD8 -> [STR] -> ListExtensionsReply
+ Graphics.XHB.Gen.Xproto: MkListExtensionsReply :: Word8 -> [STR] -> ListExtensionsReply
- Graphics.XHB.Gen.Xproto: MkListFonts :: CARD16 -> CARD16 -> [CChar] -> ListFonts
+ Graphics.XHB.Gen.Xproto: MkListFonts :: Word16 -> Word16 -> [CChar] -> ListFonts
- Graphics.XHB.Gen.Xproto: MkListFontsReply :: CARD16 -> [STR] -> ListFontsReply
+ Graphics.XHB.Gen.Xproto: MkListFontsReply :: Word16 -> [STR] -> ListFontsReply
- Graphics.XHB.Gen.Xproto: MkListFontsWithInfo :: CARD16 -> CARD16 -> [CChar] -> ListFontsWithInfo
+ Graphics.XHB.Gen.Xproto: MkListFontsWithInfo :: Word16 -> Word16 -> [CChar] -> ListFontsWithInfo
- Graphics.XHB.Gen.Xproto: MkListFontsWithInfoReply :: CARD8 -> CHARINFO -> CHARINFO -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> BYTE -> CARD8 -> CARD8 -> BOOL -> INT16 -> INT16 -> CARD32 -> [FONTPROP] -> [CChar] -> ListFontsWithInfoReply
+ Graphics.XHB.Gen.Xproto: MkListFontsWithInfoReply :: Word8 -> CHARINFO -> CHARINFO -> Word16 -> Word16 -> Word16 -> Word16 -> Word8 -> Word8 -> Word8 -> Bool -> Int16 -> Int16 -> Word32 -> [FONTPROP] -> [CChar] -> ListFontsWithInfoReply
- Graphics.XHB.Gen.Xproto: MkListHostsReply :: BYTE -> CARD16 -> [HOST] -> ListHostsReply
+ Graphics.XHB.Gen.Xproto: MkListHostsReply :: Word8 -> Word16 -> [HOST] -> ListHostsReply
- Graphics.XHB.Gen.Xproto: MkListInstalledColormapsReply :: CARD16 -> [COLORMAP] -> ListInstalledColormapsReply
+ Graphics.XHB.Gen.Xproto: MkListInstalledColormapsReply :: Word16 -> [COLORMAP] -> ListInstalledColormapsReply
- Graphics.XHB.Gen.Xproto: MkListPropertiesReply :: CARD16 -> [ATOM] -> ListPropertiesReply
+ Graphics.XHB.Gen.Xproto: MkListPropertiesReply :: Word16 -> [ATOM] -> ListPropertiesReply
- Graphics.XHB.Gen.Xproto: MkLookupColor :: COLORMAP -> CARD16 -> [CChar] -> LookupColor
+ Graphics.XHB.Gen.Xproto: MkLookupColor :: COLORMAP -> Word16 -> [CChar] -> LookupColor
- Graphics.XHB.Gen.Xproto: MkLookupColorReply :: CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> LookupColorReply
+ Graphics.XHB.Gen.Xproto: MkLookupColorReply :: Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> LookupColorReply
- Graphics.XHB.Gen.Xproto: MkMapNotify :: WINDOW -> WINDOW -> BOOL -> MapNotify
+ Graphics.XHB.Gen.Xproto: MkMapNotify :: WINDOW -> WINDOW -> Bool -> MapNotify
- Graphics.XHB.Gen.Xproto: MkMappingNotify :: BYTE -> KEYCODE -> CARD8 -> MappingNotify
+ Graphics.XHB.Gen.Xproto: MkMappingNotify :: Word8 -> KEYCODE -> Word8 -> MappingNotify
- Graphics.XHB.Gen.Xproto: MkMatch :: CARD32 -> CARD16 -> CARD8 -> Match
+ Graphics.XHB.Gen.Xproto: MkMatch :: Word32 -> Word16 -> Word8 -> Match
- Graphics.XHB.Gen.Xproto: MkMotionNotify :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> MotionNotify
+ Graphics.XHB.Gen.Xproto: MkMotionNotify :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> MotionNotify
- Graphics.XHB.Gen.Xproto: MkName :: CARD32 -> CARD16 -> CARD8 -> Name
+ Graphics.XHB.Gen.Xproto: MkName :: Word32 -> Word16 -> Word8 -> Name
- Graphics.XHB.Gen.Xproto: MkNoExposure :: DRAWABLE -> CARD16 -> CARD8 -> NoExposure
+ Graphics.XHB.Gen.Xproto: MkNoExposure :: DRAWABLE -> Word16 -> Word8 -> NoExposure
- Graphics.XHB.Gen.Xproto: MkOpenFont :: FONT -> CARD16 -> [CChar] -> OpenFont
+ Graphics.XHB.Gen.Xproto: MkOpenFont :: FONT -> Word16 -> [CChar] -> OpenFont
- Graphics.XHB.Gen.Xproto: MkPOINT :: INT16 -> INT16 -> POINT
+ Graphics.XHB.Gen.Xproto: MkPOINT :: Int16 -> Int16 -> POINT
- Graphics.XHB.Gen.Xproto: MkPixmap :: CARD32 -> CARD16 -> CARD8 -> Pixmap
+ Graphics.XHB.Gen.Xproto: MkPixmap :: Word32 -> Word16 -> Word8 -> Pixmap
- Graphics.XHB.Gen.Xproto: MkPolyLine :: BYTE -> DRAWABLE -> GCONTEXT -> [POINT] -> PolyLine
+ Graphics.XHB.Gen.Xproto: MkPolyLine :: Word8 -> DRAWABLE -> GCONTEXT -> [POINT] -> PolyLine
- Graphics.XHB.Gen.Xproto: MkPolyPoint :: BYTE -> DRAWABLE -> GCONTEXT -> [POINT] -> PolyPoint
+ Graphics.XHB.Gen.Xproto: MkPolyPoint :: Word8 -> DRAWABLE -> GCONTEXT -> [POINT] -> PolyPoint
- Graphics.XHB.Gen.Xproto: MkPolyText16 :: DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> [BYTE] -> PolyText16
+ Graphics.XHB.Gen.Xproto: MkPolyText16 :: DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> [Word8] -> PolyText16
- Graphics.XHB.Gen.Xproto: MkPolyText8 :: DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> [BYTE] -> PolyText8
+ Graphics.XHB.Gen.Xproto: MkPolyText8 :: DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> [Word8] -> PolyText8
- Graphics.XHB.Gen.Xproto: MkPropertyNotify :: WINDOW -> ATOM -> TIMESTAMP -> BYTE -> PropertyNotify
+ Graphics.XHB.Gen.Xproto: MkPropertyNotify :: WINDOW -> ATOM -> TIMESTAMP -> Word8 -> PropertyNotify
- Graphics.XHB.Gen.Xproto: MkPutImage :: CARD8 -> DRAWABLE -> GCONTEXT -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD8 -> CARD8 -> [BYTE] -> PutImage
+ Graphics.XHB.Gen.Xproto: MkPutImage :: Word8 -> DRAWABLE -> GCONTEXT -> Word16 -> Word16 -> Int16 -> Int16 -> Word8 -> Word8 -> [Word8] -> PutImage
- Graphics.XHB.Gen.Xproto: MkQueryBestSize :: CARD8 -> DRAWABLE -> CARD16 -> CARD16 -> QueryBestSize
+ Graphics.XHB.Gen.Xproto: MkQueryBestSize :: Word8 -> DRAWABLE -> Word16 -> Word16 -> QueryBestSize
- Graphics.XHB.Gen.Xproto: MkQueryBestSizeReply :: CARD16 -> CARD16 -> QueryBestSizeReply
+ Graphics.XHB.Gen.Xproto: MkQueryBestSizeReply :: Word16 -> Word16 -> QueryBestSizeReply
- Graphics.XHB.Gen.Xproto: MkQueryColors :: COLORMAP -> [CARD32] -> QueryColors
+ Graphics.XHB.Gen.Xproto: MkQueryColors :: COLORMAP -> [Word32] -> QueryColors
- Graphics.XHB.Gen.Xproto: MkQueryColorsReply :: CARD16 -> [RGB] -> QueryColorsReply
+ Graphics.XHB.Gen.Xproto: MkQueryColorsReply :: Word16 -> [RGB] -> QueryColorsReply
- Graphics.XHB.Gen.Xproto: MkQueryExtension :: CARD16 -> [CChar] -> QueryExtension
+ Graphics.XHB.Gen.Xproto: MkQueryExtension :: Word16 -> [CChar] -> QueryExtension
- Graphics.XHB.Gen.Xproto: MkQueryExtensionReply :: BOOL -> CARD8 -> CARD8 -> CARD8 -> QueryExtensionReply
+ Graphics.XHB.Gen.Xproto: MkQueryExtensionReply :: Bool -> Word8 -> Word8 -> Word8 -> QueryExtensionReply
- Graphics.XHB.Gen.Xproto: MkQueryFontReply :: CHARINFO -> CHARINFO -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> BYTE -> CARD8 -> CARD8 -> BOOL -> INT16 -> INT16 -> CARD32 -> [FONTPROP] -> [CHARINFO] -> QueryFontReply
+ Graphics.XHB.Gen.Xproto: MkQueryFontReply :: CHARINFO -> CHARINFO -> Word16 -> Word16 -> Word16 -> Word16 -> Word8 -> Word8 -> Word8 -> Bool -> Int16 -> Int16 -> Word32 -> [FONTPROP] -> [CHARINFO] -> QueryFontReply
- Graphics.XHB.Gen.Xproto: MkQueryKeymapReply :: [CARD8] -> QueryKeymapReply
+ Graphics.XHB.Gen.Xproto: MkQueryKeymapReply :: [Word8] -> QueryKeymapReply
- Graphics.XHB.Gen.Xproto: MkQueryPointerReply :: BOOL -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> QueryPointerReply
+ Graphics.XHB.Gen.Xproto: MkQueryPointerReply :: Bool -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> QueryPointerReply
- Graphics.XHB.Gen.Xproto: MkQueryTextExtentsReply :: BYTE -> INT16 -> INT16 -> INT16 -> INT16 -> INT32 -> INT32 -> INT32 -> QueryTextExtentsReply
+ Graphics.XHB.Gen.Xproto: MkQueryTextExtentsReply :: Word8 -> Int16 -> Int16 -> Int16 -> Int16 -> Int32 -> Int32 -> Int32 -> QueryTextExtentsReply
- Graphics.XHB.Gen.Xproto: MkQueryTreeReply :: WINDOW -> WINDOW -> CARD16 -> [WINDOW] -> QueryTreeReply
+ Graphics.XHB.Gen.Xproto: MkQueryTreeReply :: WINDOW -> WINDOW -> Word16 -> [WINDOW] -> QueryTreeReply
- Graphics.XHB.Gen.Xproto: MkRECTANGLE :: INT16 -> INT16 -> CARD16 -> CARD16 -> RECTANGLE
+ Graphics.XHB.Gen.Xproto: MkRECTANGLE :: Int16 -> Int16 -> Word16 -> Word16 -> RECTANGLE
- Graphics.XHB.Gen.Xproto: MkRGB :: CARD16 -> CARD16 -> CARD16 -> RGB
+ Graphics.XHB.Gen.Xproto: MkRGB :: Word16 -> Word16 -> Word16 -> RGB
- Graphics.XHB.Gen.Xproto: MkRecolorCursor :: CURSOR -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> RecolorCursor
+ Graphics.XHB.Gen.Xproto: MkRecolorCursor :: CURSOR -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> RecolorCursor
- Graphics.XHB.Gen.Xproto: MkReparentNotify :: WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> BOOL -> ReparentNotify
+ Graphics.XHB.Gen.Xproto: MkReparentNotify :: WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Bool -> ReparentNotify
- Graphics.XHB.Gen.Xproto: MkReparentWindow :: WINDOW -> WINDOW -> INT16 -> INT16 -> ReparentWindow
+ Graphics.XHB.Gen.Xproto: MkReparentWindow :: WINDOW -> WINDOW -> Int16 -> Int16 -> ReparentWindow
- Graphics.XHB.Gen.Xproto: MkRequest :: CARD32 -> CARD16 -> CARD8 -> Request
+ Graphics.XHB.Gen.Xproto: MkRequest :: Word32 -> Word16 -> Word8 -> Request
- Graphics.XHB.Gen.Xproto: MkResizeRequest :: WINDOW -> CARD16 -> CARD16 -> ResizeRequest
+ Graphics.XHB.Gen.Xproto: MkResizeRequest :: WINDOW -> Word16 -> Word16 -> ResizeRequest
- Graphics.XHB.Gen.Xproto: MkRotateProperties :: WINDOW -> CARD16 -> INT16 -> [ATOM] -> RotateProperties
+ Graphics.XHB.Gen.Xproto: MkRotateProperties :: WINDOW -> Word16 -> Int16 -> [ATOM] -> RotateProperties
- Graphics.XHB.Gen.Xproto: MkSCREEN :: WINDOW -> COLORMAP -> CARD32 -> CARD32 -> CARD32 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> VISUALID -> BYTE -> BOOL -> CARD8 -> CARD8 -> [DEPTH] -> SCREEN
+ Graphics.XHB.Gen.Xproto: MkSCREEN :: WINDOW -> COLORMAP -> Word32 -> Word32 -> Word32 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> VISUALID -> Word8 -> Bool -> Word8 -> Word8 -> [DEPTH] -> SCREEN
- Graphics.XHB.Gen.Xproto: MkSEGMENT :: INT16 -> INT16 -> INT16 -> INT16 -> SEGMENT
+ Graphics.XHB.Gen.Xproto: MkSEGMENT :: Int16 -> Int16 -> Int16 -> Int16 -> SEGMENT
- Graphics.XHB.Gen.Xproto: MkSTR :: CARD8 -> [CChar] -> STR
+ Graphics.XHB.Gen.Xproto: MkSTR :: Word8 -> [CChar] -> STR
- Graphics.XHB.Gen.Xproto: MkSendEvent :: BOOL -> WINDOW -> CARD32 -> [CChar] -> SendEvent
+ Graphics.XHB.Gen.Xproto: MkSendEvent :: Bool -> WINDOW -> Word32 -> [CChar] -> SendEvent
- Graphics.XHB.Gen.Xproto: MkSetAccessControl :: CARD8 -> SetAccessControl
+ Graphics.XHB.Gen.Xproto: MkSetAccessControl :: Word8 -> SetAccessControl
- Graphics.XHB.Gen.Xproto: MkSetClipRectangles :: BYTE -> GCONTEXT -> INT16 -> INT16 -> [RECTANGLE] -> SetClipRectangles
+ Graphics.XHB.Gen.Xproto: MkSetClipRectangles :: Word8 -> GCONTEXT -> Int16 -> Int16 -> [RECTANGLE] -> SetClipRectangles
- Graphics.XHB.Gen.Xproto: MkSetCloseDownMode :: CARD8 -> SetCloseDownMode
+ Graphics.XHB.Gen.Xproto: MkSetCloseDownMode :: Word8 -> SetCloseDownMode
- Graphics.XHB.Gen.Xproto: MkSetDashes :: GCONTEXT -> CARD16 -> CARD16 -> [CARD8] -> SetDashes
+ Graphics.XHB.Gen.Xproto: MkSetDashes :: GCONTEXT -> Word16 -> Word16 -> [Word8] -> SetDashes
- Graphics.XHB.Gen.Xproto: MkSetFontPath :: CARD16 -> [CChar] -> SetFontPath
+ Graphics.XHB.Gen.Xproto: MkSetFontPath :: Word16 -> [CChar] -> SetFontPath
- Graphics.XHB.Gen.Xproto: MkSetInputFocus :: CARD8 -> WINDOW -> TIMESTAMP -> SetInputFocus
+ Graphics.XHB.Gen.Xproto: MkSetInputFocus :: Word8 -> WINDOW -> TIMESTAMP -> SetInputFocus
- Graphics.XHB.Gen.Xproto: MkSetModifierMapping :: CARD8 -> [KEYCODE] -> SetModifierMapping
+ Graphics.XHB.Gen.Xproto: MkSetModifierMapping :: Word8 -> [KEYCODE] -> SetModifierMapping
- Graphics.XHB.Gen.Xproto: MkSetModifierMappingReply :: BYTE -> SetModifierMappingReply
+ Graphics.XHB.Gen.Xproto: MkSetModifierMappingReply :: Word8 -> SetModifierMappingReply
- Graphics.XHB.Gen.Xproto: MkSetPointerMapping :: CARD8 -> [CARD8] -> SetPointerMapping
+ Graphics.XHB.Gen.Xproto: MkSetPointerMapping :: Word8 -> [Word8] -> SetPointerMapping
- Graphics.XHB.Gen.Xproto: MkSetPointerMappingReply :: BYTE -> SetPointerMappingReply
+ Graphics.XHB.Gen.Xproto: MkSetPointerMappingReply :: Word8 -> SetPointerMappingReply
- Graphics.XHB.Gen.Xproto: MkSetScreenSaver :: INT16 -> INT16 -> CARD8 -> CARD8 -> SetScreenSaver
+ Graphics.XHB.Gen.Xproto: MkSetScreenSaver :: Int16 -> Int16 -> Word8 -> Word8 -> SetScreenSaver
- Graphics.XHB.Gen.Xproto: MkSetup :: CARD8 -> CARD16 -> CARD16 -> CARD16 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD16 -> CARD16 -> CARD8 -> CARD8 -> CARD8 -> CARD8 -> CARD8 -> CARD8 -> KEYCODE -> KEYCODE -> [CChar] -> [FORMAT] -> [SCREEN] -> Setup
+ Graphics.XHB.Gen.Xproto: MkSetup :: Word8 -> Word16 -> Word16 -> Word16 -> Word32 -> Word32 -> Word32 -> Word32 -> Word16 -> Word16 -> Word8 -> Word8 -> Word8 -> Word8 -> Word8 -> Word8 -> KEYCODE -> KEYCODE -> [CChar] -> [FORMAT] -> [SCREEN] -> Setup
- Graphics.XHB.Gen.Xproto: MkSetupAuthenticate :: CARD8 -> CARD16 -> [CChar] -> SetupAuthenticate
+ Graphics.XHB.Gen.Xproto: MkSetupAuthenticate :: Word8 -> Word16 -> [CChar] -> SetupAuthenticate
- Graphics.XHB.Gen.Xproto: MkSetupFailed :: CARD8 -> CARD8 -> CARD16 -> CARD16 -> CARD16 -> [CChar] -> SetupFailed
+ Graphics.XHB.Gen.Xproto: MkSetupFailed :: Word8 -> Word8 -> Word16 -> Word16 -> Word16 -> [CChar] -> SetupFailed
- Graphics.XHB.Gen.Xproto: MkSetupRequest :: CARD8 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> [CChar] -> [CChar] -> SetupRequest
+ Graphics.XHB.Gen.Xproto: MkSetupRequest :: Word8 -> Word16 -> Word16 -> Word16 -> Word16 -> [CChar] -> [CChar] -> SetupRequest
- Graphics.XHB.Gen.Xproto: MkStoreNamedColor :: CARD8 -> COLORMAP -> CARD32 -> CARD16 -> [CChar] -> StoreNamedColor
+ Graphics.XHB.Gen.Xproto: MkStoreNamedColor :: Word8 -> COLORMAP -> Word32 -> Word16 -> [CChar] -> StoreNamedColor
- Graphics.XHB.Gen.Xproto: MkTIMECOORD :: TIMESTAMP -> INT16 -> INT16 -> TIMECOORD
+ Graphics.XHB.Gen.Xproto: MkTIMECOORD :: TIMESTAMP -> Int16 -> Int16 -> TIMECOORD
- Graphics.XHB.Gen.Xproto: MkTranslateCoordinates :: WINDOW -> WINDOW -> INT16 -> INT16 -> TranslateCoordinates
+ Graphics.XHB.Gen.Xproto: MkTranslateCoordinates :: WINDOW -> WINDOW -> Int16 -> Int16 -> TranslateCoordinates
- Graphics.XHB.Gen.Xproto: MkTranslateCoordinatesReply :: BOOL -> WINDOW -> CARD16 -> CARD16 -> TranslateCoordinatesReply
+ Graphics.XHB.Gen.Xproto: MkTranslateCoordinatesReply :: Bool -> WINDOW -> Word16 -> Word16 -> TranslateCoordinatesReply
- Graphics.XHB.Gen.Xproto: MkUngrabButton :: CARD8 -> WINDOW -> CARD16 -> UngrabButton
+ Graphics.XHB.Gen.Xproto: MkUngrabButton :: Word8 -> WINDOW -> Word16 -> UngrabButton
- Graphics.XHB.Gen.Xproto: MkUngrabKey :: KEYCODE -> WINDOW -> CARD16 -> UngrabKey
+ Graphics.XHB.Gen.Xproto: MkUngrabKey :: KEYCODE -> WINDOW -> Word16 -> UngrabKey
- Graphics.XHB.Gen.Xproto: MkUnmapNotify :: WINDOW -> WINDOW -> BOOL -> UnmapNotify
+ Graphics.XHB.Gen.Xproto: MkUnmapNotify :: WINDOW -> WINDOW -> Bool -> UnmapNotify
- Graphics.XHB.Gen.Xproto: MkVISUALTYPE :: VISUALID -> CARD8 -> CARD8 -> CARD16 -> CARD32 -> CARD32 -> CARD32 -> VISUALTYPE
+ Graphics.XHB.Gen.Xproto: MkVISUALTYPE :: VISUALID -> Word8 -> Word8 -> Word16 -> Word32 -> Word32 -> Word32 -> VISUALTYPE
- Graphics.XHB.Gen.Xproto: MkValue :: CARD32 -> CARD16 -> CARD8 -> Value
+ Graphics.XHB.Gen.Xproto: MkValue :: Word32 -> Word16 -> Word8 -> Value
- Graphics.XHB.Gen.Xproto: MkVisibilityNotify :: WINDOW -> BYTE -> VisibilityNotify
+ Graphics.XHB.Gen.Xproto: MkVisibilityNotify :: WINDOW -> Word8 -> VisibilityNotify
- Graphics.XHB.Gen.Xproto: MkWarpPointer :: WINDOW -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> WarpPointer
+ Graphics.XHB.Gen.Xproto: MkWarpPointer :: WINDOW -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> WarpPointer
- Graphics.XHB.Gen.Xproto: MkWindow :: CARD32 -> CARD16 -> CARD8 -> Window
+ Graphics.XHB.Gen.Xproto: MkWindow :: Word32 -> Word16 -> Word8 -> Window
- Graphics.XHB.Gen.Xproto: acceleration_denominator_ChangePointerControl :: ChangePointerControl -> INT16
+ Graphics.XHB.Gen.Xproto: acceleration_denominator_ChangePointerControl :: ChangePointerControl -> Int16
- Graphics.XHB.Gen.Xproto: acceleration_denominator_GetPointerControlReply :: GetPointerControlReply -> CARD16
+ Graphics.XHB.Gen.Xproto: acceleration_denominator_GetPointerControlReply :: GetPointerControlReply -> Word16
- Graphics.XHB.Gen.Xproto: acceleration_numerator_ChangePointerControl :: ChangePointerControl -> INT16
+ Graphics.XHB.Gen.Xproto: acceleration_numerator_ChangePointerControl :: ChangePointerControl -> Int16
- Graphics.XHB.Gen.Xproto: acceleration_numerator_GetPointerControlReply :: GetPointerControlReply -> CARD16
+ Graphics.XHB.Gen.Xproto: acceleration_numerator_GetPointerControlReply :: GetPointerControlReply -> Word16
- Graphics.XHB.Gen.Xproto: address_HOST :: HOST -> [BYTE]
+ Graphics.XHB.Gen.Xproto: address_HOST :: HOST -> [Word8]
- Graphics.XHB.Gen.Xproto: address_len_ChangeHosts :: ChangeHosts -> CARD16
+ Graphics.XHB.Gen.Xproto: address_len_ChangeHosts :: ChangeHosts -> Word16
- Graphics.XHB.Gen.Xproto: address_len_HOST :: HOST -> CARD16
+ Graphics.XHB.Gen.Xproto: address_len_HOST :: HOST -> Word16
- Graphics.XHB.Gen.Xproto: all_chars_exist_ListFontsWithInfoReply :: ListFontsWithInfoReply -> BOOL
+ Graphics.XHB.Gen.Xproto: all_chars_exist_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Bool
- Graphics.XHB.Gen.Xproto: all_chars_exist_QueryFontReply :: QueryFontReply -> BOOL
+ Graphics.XHB.Gen.Xproto: all_chars_exist_QueryFontReply :: QueryFontReply -> Bool
- Graphics.XHB.Gen.Xproto: all_event_masks_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xproto: all_event_masks_GetWindowAttributesReply :: GetWindowAttributesReply -> Word32
- Graphics.XHB.Gen.Xproto: alloc_CreateColormap :: CreateColormap -> BYTE
+ Graphics.XHB.Gen.Xproto: alloc_CreateColormap :: CreateColormap -> Word8
- Graphics.XHB.Gen.Xproto: allowEvents :: Connection -> CARD8 -> TIMESTAMP -> IO ()
+ Graphics.XHB.Gen.Xproto: allowEvents :: Connection -> Word8 -> TIMESTAMP -> IO ()
- Graphics.XHB.Gen.Xproto: allow_exposures_GetScreenSaverReply :: GetScreenSaverReply -> BYTE
+ Graphics.XHB.Gen.Xproto: allow_exposures_GetScreenSaverReply :: GetScreenSaverReply -> Word8
- Graphics.XHB.Gen.Xproto: allow_exposures_SetScreenSaver :: SetScreenSaver -> CARD8
+ Graphics.XHB.Gen.Xproto: allow_exposures_SetScreenSaver :: SetScreenSaver -> Word8
- Graphics.XHB.Gen.Xproto: allowed_depths_len_SCREEN :: SCREEN -> CARD8
+ Graphics.XHB.Gen.Xproto: allowed_depths_len_SCREEN :: SCREEN -> Word8
- Graphics.XHB.Gen.Xproto: angle1_ARC :: ARC -> INT16
+ Graphics.XHB.Gen.Xproto: angle1_ARC :: ARC -> Int16
- Graphics.XHB.Gen.Xproto: angle2_ARC :: ARC -> INT16
+ Graphics.XHB.Gen.Xproto: angle2_ARC :: ARC -> Int16
- Graphics.XHB.Gen.Xproto: ascent_CHARINFO :: CHARINFO -> INT16
+ Graphics.XHB.Gen.Xproto: ascent_CHARINFO :: CHARINFO -> Int16
- Graphics.XHB.Gen.Xproto: atoms_len_ListPropertiesReply :: ListPropertiesReply -> CARD16
+ Graphics.XHB.Gen.Xproto: atoms_len_ListPropertiesReply :: ListPropertiesReply -> Word16
- Graphics.XHB.Gen.Xproto: atoms_len_RotateProperties :: RotateProperties -> CARD16
+ Graphics.XHB.Gen.Xproto: atoms_len_RotateProperties :: RotateProperties -> Word16
- Graphics.XHB.Gen.Xproto: attributes_CHARINFO :: CHARINFO -> CARD16
+ Graphics.XHB.Gen.Xproto: attributes_CHARINFO :: CHARINFO -> Word16
- Graphics.XHB.Gen.Xproto: authorization_protocol_data_len_SetupRequest :: SetupRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: authorization_protocol_data_len_SetupRequest :: SetupRequest -> Word16
- Graphics.XHB.Gen.Xproto: authorization_protocol_name_len_SetupRequest :: SetupRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: authorization_protocol_name_len_SetupRequest :: SetupRequest -> Word16
- Graphics.XHB.Gen.Xproto: auto_repeats_GetKeyboardControlReply :: GetKeyboardControlReply -> [CARD8]
+ Graphics.XHB.Gen.Xproto: auto_repeats_GetKeyboardControlReply :: GetKeyboardControlReply -> [Word8]
- Graphics.XHB.Gen.Xproto: back_blue_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_blue_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_blue_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_blue_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_blue_RecolorCursor :: RecolorCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_blue_RecolorCursor :: RecolorCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_green_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_green_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_green_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_green_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_green_RecolorCursor :: RecolorCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_green_RecolorCursor :: RecolorCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_red_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_red_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_red_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_red_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_red_RecolorCursor :: RecolorCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_red_RecolorCursor :: RecolorCursor -> Word16
- Graphics.XHB.Gen.Xproto: backing_pixel_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xproto: backing_pixel_GetWindowAttributesReply :: GetWindowAttributesReply -> Word32
- Graphics.XHB.Gen.Xproto: backing_planes_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xproto: backing_planes_GetWindowAttributesReply :: GetWindowAttributesReply -> Word32
- Graphics.XHB.Gen.Xproto: backing_store_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD8
+ Graphics.XHB.Gen.Xproto: backing_store_GetWindowAttributesReply :: GetWindowAttributesReply -> Word8
- Graphics.XHB.Gen.Xproto: backing_stores_SCREEN :: SCREEN -> BYTE
+ Graphics.XHB.Gen.Xproto: backing_stores_SCREEN :: SCREEN -> Word8
- Graphics.XHB.Gen.Xproto: bad_value_Access :: Access -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Access :: Access -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Alloc :: Alloc -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Alloc :: Alloc -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Atom :: Atom -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Atom :: Atom -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Colormap :: Colormap -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Colormap :: Colormap -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Cursor :: Cursor -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Cursor :: Cursor -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Drawable :: Drawable -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Drawable :: Drawable -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Font :: Font -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Font :: Font -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_GContext :: GContext -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_GContext :: GContext -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_IDChoice :: IDChoice -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_IDChoice :: IDChoice -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Implementation :: Implementation -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Implementation :: Implementation -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Length :: Length -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Length :: Length -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Match :: Match -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Match :: Match -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Name :: Name -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Name :: Name -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Pixmap :: Pixmap -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Pixmap :: Pixmap -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Request :: Request -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Request :: Request -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Value :: Value -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Value :: Value -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Window :: Window -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Window :: Window -> Word32
- Graphics.XHB.Gen.Xproto: bell :: Connection -> INT8 -> IO ()
+ Graphics.XHB.Gen.Xproto: bell :: Connection -> Int8 -> IO ()
- Graphics.XHB.Gen.Xproto: bell_duration_GetKeyboardControlReply :: GetKeyboardControlReply -> CARD16
+ Graphics.XHB.Gen.Xproto: bell_duration_GetKeyboardControlReply :: GetKeyboardControlReply -> Word16
- Graphics.XHB.Gen.Xproto: bell_percent_GetKeyboardControlReply :: GetKeyboardControlReply -> CARD8
+ Graphics.XHB.Gen.Xproto: bell_percent_GetKeyboardControlReply :: GetKeyboardControlReply -> Word8
- Graphics.XHB.Gen.Xproto: bell_pitch_GetKeyboardControlReply :: GetKeyboardControlReply -> CARD16
+ Graphics.XHB.Gen.Xproto: bell_pitch_GetKeyboardControlReply :: GetKeyboardControlReply -> Word16
- Graphics.XHB.Gen.Xproto: bit_gravity_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD8
+ Graphics.XHB.Gen.Xproto: bit_gravity_GetWindowAttributesReply :: GetWindowAttributesReply -> Word8
- Graphics.XHB.Gen.Xproto: bit_plane_CopyPlane :: CopyPlane -> CARD32
+ Graphics.XHB.Gen.Xproto: bit_plane_CopyPlane :: CopyPlane -> Word32
- Graphics.XHB.Gen.Xproto: bitmap_format_bit_order_Setup :: Setup -> CARD8
+ Graphics.XHB.Gen.Xproto: bitmap_format_bit_order_Setup :: Setup -> Word8
- Graphics.XHB.Gen.Xproto: bitmap_format_scanline_pad_Setup :: Setup -> CARD8
+ Graphics.XHB.Gen.Xproto: bitmap_format_scanline_pad_Setup :: Setup -> Word8
- Graphics.XHB.Gen.Xproto: bitmap_format_scanline_unit_Setup :: Setup -> CARD8
+ Graphics.XHB.Gen.Xproto: bitmap_format_scanline_unit_Setup :: Setup -> Word8
- Graphics.XHB.Gen.Xproto: bits_per_pixel_FORMAT :: FORMAT -> CARD8
+ Graphics.XHB.Gen.Xproto: bits_per_pixel_FORMAT :: FORMAT -> Word8
- Graphics.XHB.Gen.Xproto: bits_per_rgb_value_VISUALTYPE :: VISUALTYPE -> CARD8
+ Graphics.XHB.Gen.Xproto: bits_per_rgb_value_VISUALTYPE :: VISUALTYPE -> Word8
- Graphics.XHB.Gen.Xproto: black_pixel_SCREEN :: SCREEN -> CARD32
+ Graphics.XHB.Gen.Xproto: black_pixel_SCREEN :: SCREEN -> Word32
- Graphics.XHB.Gen.Xproto: blue_AllocColor :: AllocColor -> CARD16
+ Graphics.XHB.Gen.Xproto: blue_AllocColor :: AllocColor -> Word16
- Graphics.XHB.Gen.Xproto: blue_AllocColorReply :: AllocColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: blue_AllocColorReply :: AllocColorReply -> Word16
- Graphics.XHB.Gen.Xproto: blue_COLORITEM :: COLORITEM -> CARD16
+ Graphics.XHB.Gen.Xproto: blue_COLORITEM :: COLORITEM -> Word16
- Graphics.XHB.Gen.Xproto: blue_RGB :: RGB -> CARD16
+ Graphics.XHB.Gen.Xproto: blue_RGB :: RGB -> Word16
- Graphics.XHB.Gen.Xproto: blue_mask_AllocColorPlanesReply :: AllocColorPlanesReply -> CARD32
+ Graphics.XHB.Gen.Xproto: blue_mask_AllocColorPlanesReply :: AllocColorPlanesReply -> Word32
- Graphics.XHB.Gen.Xproto: blue_mask_VISUALTYPE :: VISUALTYPE -> CARD32
+ Graphics.XHB.Gen.Xproto: blue_mask_VISUALTYPE :: VISUALTYPE -> Word32
- Graphics.XHB.Gen.Xproto: blues_AllocColorPlanes :: AllocColorPlanes -> CARD16
+ Graphics.XHB.Gen.Xproto: blues_AllocColorPlanes :: AllocColorPlanes -> Word16
- Graphics.XHB.Gen.Xproto: border_width_ConfigureNotify :: ConfigureNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: border_width_ConfigureNotify :: ConfigureNotify -> Word16
- Graphics.XHB.Gen.Xproto: border_width_ConfigureRequest :: ConfigureRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: border_width_ConfigureRequest :: ConfigureRequest -> Word16
- Graphics.XHB.Gen.Xproto: border_width_CreateNotify :: CreateNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: border_width_CreateNotify :: CreateNotify -> Word16
- Graphics.XHB.Gen.Xproto: border_width_CreateWindow :: CreateWindow -> CARD16
+ Graphics.XHB.Gen.Xproto: border_width_CreateWindow :: CreateWindow -> Word16
- Graphics.XHB.Gen.Xproto: border_width_GetGeometryReply :: GetGeometryReply -> CARD16
+ Graphics.XHB.Gen.Xproto: border_width_GetGeometryReply :: GetGeometryReply -> Word16
- Graphics.XHB.Gen.Xproto: button_GrabButton :: GrabButton -> CARD8
+ Graphics.XHB.Gen.Xproto: button_GrabButton :: GrabButton -> Word8
- Graphics.XHB.Gen.Xproto: button_UngrabButton :: UngrabButton -> CARD8
+ Graphics.XHB.Gen.Xproto: button_UngrabButton :: UngrabButton -> Word8
- Graphics.XHB.Gen.Xproto: byte1_CHAR2B :: CHAR2B -> CARD8
+ Graphics.XHB.Gen.Xproto: byte1_CHAR2B :: CHAR2B -> Word8
- Graphics.XHB.Gen.Xproto: byte2_CHAR2B :: CHAR2B -> CARD8
+ Graphics.XHB.Gen.Xproto: byte2_CHAR2B :: CHAR2B -> Word8
- Graphics.XHB.Gen.Xproto: byte_order_SetupRequest :: SetupRequest -> CARD8
+ Graphics.XHB.Gen.Xproto: byte_order_SetupRequest :: SetupRequest -> Word8
- Graphics.XHB.Gen.Xproto: bytes_after_GetPropertyReply :: GetPropertyReply -> CARD32
+ Graphics.XHB.Gen.Xproto: bytes_after_GetPropertyReply :: GetPropertyReply -> Word32
- Graphics.XHB.Gen.Xproto: changeGC :: Connection -> GCONTEXT -> ValueParam CARD32 -> IO ()
+ Graphics.XHB.Gen.Xproto: changeGC :: Connection -> GCONTEXT -> ValueParam Word32 -> IO ()
- Graphics.XHB.Gen.Xproto: changeKeyboardControl :: Connection -> ValueParam CARD32 -> IO ()
+ Graphics.XHB.Gen.Xproto: changeKeyboardControl :: Connection -> ValueParam Word32 -> IO ()
- Graphics.XHB.Gen.Xproto: changeSaveSet :: Connection -> BYTE -> WINDOW -> IO ()
+ Graphics.XHB.Gen.Xproto: changeSaveSet :: Connection -> Word8 -> WINDOW -> IO ()
- Graphics.XHB.Gen.Xproto: changeWindowAttributes :: Connection -> WINDOW -> ValueParam CARD32 -> IO ()
+ Graphics.XHB.Gen.Xproto: changeWindowAttributes :: Connection -> WINDOW -> ValueParam Word32 -> IO ()
- Graphics.XHB.Gen.Xproto: char_infos_len_QueryFontReply :: QueryFontReply -> CARD32
+ Graphics.XHB.Gen.Xproto: char_infos_len_QueryFontReply :: QueryFontReply -> Word32
- Graphics.XHB.Gen.Xproto: character_width_CHARINFO :: CHARINFO -> INT16
+ Graphics.XHB.Gen.Xproto: character_width_CHARINFO :: CHARINFO -> Int16
- Graphics.XHB.Gen.Xproto: children_len_QueryTreeReply :: QueryTreeReply -> CARD16
+ Graphics.XHB.Gen.Xproto: children_len_QueryTreeReply :: QueryTreeReply -> Word16
- Graphics.XHB.Gen.Xproto: circulateWindow :: Connection -> CARD8 -> WINDOW -> IO ()
+ Graphics.XHB.Gen.Xproto: circulateWindow :: Connection -> Word8 -> WINDOW -> IO ()
- Graphics.XHB.Gen.Xproto: class_CreateWindow :: CreateWindow -> CARD16
+ Graphics.XHB.Gen.Xproto: class_CreateWindow :: CreateWindow -> Word16
- Graphics.XHB.Gen.Xproto: class_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD16
+ Graphics.XHB.Gen.Xproto: class_GetWindowAttributesReply :: GetWindowAttributesReply -> Word16
- Graphics.XHB.Gen.Xproto: class_QueryBestSize :: QueryBestSize -> CARD8
+ Graphics.XHB.Gen.Xproto: class_QueryBestSize :: QueryBestSize -> Word8
- Graphics.XHB.Gen.Xproto: class_VISUALTYPE :: VISUALTYPE -> CARD8
+ Graphics.XHB.Gen.Xproto: class_VISUALTYPE :: VISUALTYPE -> Word8
- Graphics.XHB.Gen.Xproto: clip_x_origin_SetClipRectangles :: SetClipRectangles -> INT16
+ Graphics.XHB.Gen.Xproto: clip_x_origin_SetClipRectangles :: SetClipRectangles -> Int16
- Graphics.XHB.Gen.Xproto: clip_y_origin_SetClipRectangles :: SetClipRectangles -> INT16
+ Graphics.XHB.Gen.Xproto: clip_y_origin_SetClipRectangles :: SetClipRectangles -> Int16
- Graphics.XHB.Gen.Xproto: cmaps_len_ListInstalledColormapsReply :: ListInstalledColormapsReply -> CARD16
+ Graphics.XHB.Gen.Xproto: cmaps_len_ListInstalledColormapsReply :: ListInstalledColormapsReply -> Word16
- Graphics.XHB.Gen.Xproto: colormap_entries_VISUALTYPE :: VISUALTYPE -> CARD16
+ Graphics.XHB.Gen.Xproto: colormap_entries_VISUALTYPE :: VISUALTYPE -> Word16
- Graphics.XHB.Gen.Xproto: colors_AllocColorCells :: AllocColorCells -> CARD16
+ Graphics.XHB.Gen.Xproto: colors_AllocColorCells :: AllocColorCells -> Word16
- Graphics.XHB.Gen.Xproto: colors_AllocColorPlanes :: AllocColorPlanes -> CARD16
+ Graphics.XHB.Gen.Xproto: colors_AllocColorPlanes :: AllocColorPlanes -> Word16
- Graphics.XHB.Gen.Xproto: colors_len_QueryColorsReply :: QueryColorsReply -> CARD16
+ Graphics.XHB.Gen.Xproto: colors_len_QueryColorsReply :: QueryColorsReply -> Word16
- Graphics.XHB.Gen.Xproto: configureWindow :: Connection -> WINDOW -> ValueParam CARD16 -> IO ()
+ Graphics.XHB.Gen.Xproto: configureWindow :: Connection -> WINDOW -> ValueParam Word16 -> IO ()
- Graphics.XHB.Gen.Xproto: contiguous_AllocColorCells :: AllocColorCells -> BOOL
+ Graphics.XHB.Gen.Xproto: contiguous_AllocColorCells :: AllocColorCells -> Bool
- Graphics.XHB.Gen.Xproto: contiguous_AllocColorPlanes :: AllocColorPlanes -> BOOL
+ Graphics.XHB.Gen.Xproto: contiguous_AllocColorPlanes :: AllocColorPlanes -> Bool
- Graphics.XHB.Gen.Xproto: coordinate_mode_FillPoly :: FillPoly -> CARD8
+ Graphics.XHB.Gen.Xproto: coordinate_mode_FillPoly :: FillPoly -> Word8
- Graphics.XHB.Gen.Xproto: coordinate_mode_PolyLine :: PolyLine -> BYTE
+ Graphics.XHB.Gen.Xproto: coordinate_mode_PolyLine :: PolyLine -> Word8
- Graphics.XHB.Gen.Xproto: coordinate_mode_PolyPoint :: PolyPoint -> BYTE
+ Graphics.XHB.Gen.Xproto: coordinate_mode_PolyPoint :: PolyPoint -> Word8
- Graphics.XHB.Gen.Xproto: count_Expose :: Expose -> CARD16
+ Graphics.XHB.Gen.Xproto: count_Expose :: Expose -> Word16
- Graphics.XHB.Gen.Xproto: count_GetKeyboardMapping :: GetKeyboardMapping -> CARD8
+ Graphics.XHB.Gen.Xproto: count_GetKeyboardMapping :: GetKeyboardMapping -> Word8
- Graphics.XHB.Gen.Xproto: count_GraphicsExposure :: GraphicsExposure -> CARD16
+ Graphics.XHB.Gen.Xproto: count_GraphicsExposure :: GraphicsExposure -> Word16
- Graphics.XHB.Gen.Xproto: count_MappingNotify :: MappingNotify -> CARD8
+ Graphics.XHB.Gen.Xproto: count_MappingNotify :: MappingNotify -> Word8
- Graphics.XHB.Gen.Xproto: current_input_masks_SCREEN :: SCREEN -> CARD32
+ Graphics.XHB.Gen.Xproto: current_input_masks_SCREEN :: SCREEN -> Word32
- Graphics.XHB.Gen.Xproto: dash_offset_SetDashes :: SetDashes -> CARD16
+ Graphics.XHB.Gen.Xproto: dash_offset_SetDashes :: SetDashes -> Word16
- Graphics.XHB.Gen.Xproto: dashes_SetDashes :: SetDashes -> [CARD8]
+ Graphics.XHB.Gen.Xproto: dashes_SetDashes :: SetDashes -> [Word8]
- Graphics.XHB.Gen.Xproto: dashes_len_SetDashes :: SetDashes -> CARD16
+ Graphics.XHB.Gen.Xproto: dashes_len_SetDashes :: SetDashes -> Word16
- Graphics.XHB.Gen.Xproto: data_GetImageReply :: GetImageReply -> [BYTE]
+ Graphics.XHB.Gen.Xproto: data_GetImageReply :: GetImageReply -> [Word8]
- Graphics.XHB.Gen.Xproto: data_PutImage :: PutImage -> [BYTE]
+ Graphics.XHB.Gen.Xproto: data_PutImage :: PutImage -> [Word8]
- Graphics.XHB.Gen.Xproto: data_len_ChangeProperty :: ChangeProperty -> CARD32
+ Graphics.XHB.Gen.Xproto: data_len_ChangeProperty :: ChangeProperty -> Word32
- Graphics.XHB.Gen.Xproto: default_char_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD16
+ Graphics.XHB.Gen.Xproto: default_char_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word16
- Graphics.XHB.Gen.Xproto: default_char_QueryFontReply :: QueryFontReply -> CARD16
+ Graphics.XHB.Gen.Xproto: default_char_QueryFontReply :: QueryFontReply -> Word16
- Graphics.XHB.Gen.Xproto: delete_GetProperty :: GetProperty -> BOOL
+ Graphics.XHB.Gen.Xproto: delete_GetProperty :: GetProperty -> Bool
- Graphics.XHB.Gen.Xproto: delta_RotateProperties :: RotateProperties -> INT16
+ Graphics.XHB.Gen.Xproto: delta_RotateProperties :: RotateProperties -> Int16
- Graphics.XHB.Gen.Xproto: depth_CreatePixmap :: CreatePixmap -> CARD8
+ Graphics.XHB.Gen.Xproto: depth_CreatePixmap :: CreatePixmap -> Word8
- Graphics.XHB.Gen.Xproto: depth_CreateWindow :: CreateWindow -> CARD8
+ Graphics.XHB.Gen.Xproto: depth_CreateWindow :: CreateWindow -> Word8
- Graphics.XHB.Gen.Xproto: depth_DEPTH :: DEPTH -> CARD8
+ Graphics.XHB.Gen.Xproto: depth_DEPTH :: DEPTH -> Word8
- Graphics.XHB.Gen.Xproto: depth_FORMAT :: FORMAT -> CARD8
+ Graphics.XHB.Gen.Xproto: depth_FORMAT :: FORMAT -> Word8
- Graphics.XHB.Gen.Xproto: depth_GetGeometryReply :: GetGeometryReply -> CARD8
+ Graphics.XHB.Gen.Xproto: depth_GetGeometryReply :: GetGeometryReply -> Word8
- Graphics.XHB.Gen.Xproto: depth_GetImageReply :: GetImageReply -> CARD8
+ Graphics.XHB.Gen.Xproto: depth_GetImageReply :: GetImageReply -> Word8
- Graphics.XHB.Gen.Xproto: depth_PutImage :: PutImage -> CARD8
+ Graphics.XHB.Gen.Xproto: depth_PutImage :: PutImage -> Word8
- Graphics.XHB.Gen.Xproto: descent_CHARINFO :: CHARINFO -> INT16
+ Graphics.XHB.Gen.Xproto: descent_CHARINFO :: CHARINFO -> Int16
- Graphics.XHB.Gen.Xproto: detail_EnterNotify :: EnterNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: detail_EnterNotify :: EnterNotify -> Word8
- Graphics.XHB.Gen.Xproto: detail_FocusIn :: FocusIn -> BYTE
+ Graphics.XHB.Gen.Xproto: detail_FocusIn :: FocusIn -> Word8
- Graphics.XHB.Gen.Xproto: detail_FocusOut :: FocusOut -> BYTE
+ Graphics.XHB.Gen.Xproto: detail_FocusOut :: FocusOut -> Word8
- Graphics.XHB.Gen.Xproto: detail_LeaveNotify :: LeaveNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: detail_LeaveNotify :: LeaveNotify -> Word8
- Graphics.XHB.Gen.Xproto: detail_MotionNotify :: MotionNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: detail_MotionNotify :: MotionNotify -> Word8
- Graphics.XHB.Gen.Xproto: direction_CirculateWindow :: CirculateWindow -> CARD8
+ Graphics.XHB.Gen.Xproto: direction_CirculateWindow :: CirculateWindow -> Word8
- Graphics.XHB.Gen.Xproto: do_acceleration_ChangePointerControl :: ChangePointerControl -> BOOL
+ Graphics.XHB.Gen.Xproto: do_acceleration_ChangePointerControl :: ChangePointerControl -> Bool
- Graphics.XHB.Gen.Xproto: do_not_propagate_mask_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD16
+ Graphics.XHB.Gen.Xproto: do_not_propagate_mask_GetWindowAttributesReply :: GetWindowAttributesReply -> Word16
- Graphics.XHB.Gen.Xproto: do_threshold_ChangePointerControl :: ChangePointerControl -> BOOL
+ Graphics.XHB.Gen.Xproto: do_threshold_ChangePointerControl :: ChangePointerControl -> Bool
- Graphics.XHB.Gen.Xproto: draw_direction_ListFontsWithInfoReply :: ListFontsWithInfoReply -> BYTE
+ Graphics.XHB.Gen.Xproto: draw_direction_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word8
- Graphics.XHB.Gen.Xproto: draw_direction_QueryFontReply :: QueryFontReply -> BYTE
+ Graphics.XHB.Gen.Xproto: draw_direction_QueryFontReply :: QueryFontReply -> Word8
- Graphics.XHB.Gen.Xproto: draw_direction_QueryTextExtentsReply :: QueryTextExtentsReply -> BYTE
+ Graphics.XHB.Gen.Xproto: draw_direction_QueryTextExtentsReply :: QueryTextExtentsReply -> Word8
- Graphics.XHB.Gen.Xproto: dst_x_CopyArea :: CopyArea -> INT16
+ Graphics.XHB.Gen.Xproto: dst_x_CopyArea :: CopyArea -> Int16
- Graphics.XHB.Gen.Xproto: dst_x_CopyPlane :: CopyPlane -> INT16
+ Graphics.XHB.Gen.Xproto: dst_x_CopyPlane :: CopyPlane -> Int16
- Graphics.XHB.Gen.Xproto: dst_x_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Xproto: dst_x_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Xproto: dst_x_TranslateCoordinatesReply :: TranslateCoordinatesReply -> CARD16
+ Graphics.XHB.Gen.Xproto: dst_x_TranslateCoordinatesReply :: TranslateCoordinatesReply -> Word16
- Graphics.XHB.Gen.Xproto: dst_x_WarpPointer :: WarpPointer -> INT16
+ Graphics.XHB.Gen.Xproto: dst_x_WarpPointer :: WarpPointer -> Int16
- Graphics.XHB.Gen.Xproto: dst_y_CopyArea :: CopyArea -> INT16
+ Graphics.XHB.Gen.Xproto: dst_y_CopyArea :: CopyArea -> Int16
- Graphics.XHB.Gen.Xproto: dst_y_CopyPlane :: CopyPlane -> INT16
+ Graphics.XHB.Gen.Xproto: dst_y_CopyPlane :: CopyPlane -> Int16
- Graphics.XHB.Gen.Xproto: dst_y_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Xproto: dst_y_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Xproto: dst_y_TranslateCoordinatesReply :: TranslateCoordinatesReply -> CARD16
+ Graphics.XHB.Gen.Xproto: dst_y_TranslateCoordinatesReply :: TranslateCoordinatesReply -> Word16
- Graphics.XHB.Gen.Xproto: dst_y_WarpPointer :: WarpPointer -> INT16
+ Graphics.XHB.Gen.Xproto: dst_y_WarpPointer :: WarpPointer -> Int16
- Graphics.XHB.Gen.Xproto: event_mask_ChangeActivePointerGrab :: ChangeActivePointerGrab -> CARD16
+ Graphics.XHB.Gen.Xproto: event_mask_ChangeActivePointerGrab :: ChangeActivePointerGrab -> Word16
- Graphics.XHB.Gen.Xproto: event_mask_GrabButton :: GrabButton -> CARD16
+ Graphics.XHB.Gen.Xproto: event_mask_GrabButton :: GrabButton -> Word16
- Graphics.XHB.Gen.Xproto: event_mask_GrabPointer :: GrabPointer -> CARD16
+ Graphics.XHB.Gen.Xproto: event_mask_GrabPointer :: GrabPointer -> Word16
- Graphics.XHB.Gen.Xproto: event_mask_SendEvent :: SendEvent -> CARD32
+ Graphics.XHB.Gen.Xproto: event_mask_SendEvent :: SendEvent -> Word32
- Graphics.XHB.Gen.Xproto: event_x_ButtonPress :: ButtonPress -> INT16
+ Graphics.XHB.Gen.Xproto: event_x_ButtonPress :: ButtonPress -> Int16
- Graphics.XHB.Gen.Xproto: event_x_ButtonRelease :: ButtonRelease -> INT16
+ Graphics.XHB.Gen.Xproto: event_x_ButtonRelease :: ButtonRelease -> Int16
- Graphics.XHB.Gen.Xproto: event_x_EnterNotify :: EnterNotify -> INT16
+ Graphics.XHB.Gen.Xproto: event_x_EnterNotify :: EnterNotify -> Int16
- Graphics.XHB.Gen.Xproto: event_x_KeyPress :: KeyPress -> INT16
+ Graphics.XHB.Gen.Xproto: event_x_KeyPress :: KeyPress -> Int16
- Graphics.XHB.Gen.Xproto: event_x_KeyRelease :: KeyRelease -> INT16
+ Graphics.XHB.Gen.Xproto: event_x_KeyRelease :: KeyRelease -> Int16
- Graphics.XHB.Gen.Xproto: event_x_LeaveNotify :: LeaveNotify -> INT16
+ Graphics.XHB.Gen.Xproto: event_x_LeaveNotify :: LeaveNotify -> Int16
- Graphics.XHB.Gen.Xproto: event_x_MotionNotify :: MotionNotify -> INT16
+ Graphics.XHB.Gen.Xproto: event_x_MotionNotify :: MotionNotify -> Int16
- Graphics.XHB.Gen.Xproto: event_y_ButtonPress :: ButtonPress -> INT16
+ Graphics.XHB.Gen.Xproto: event_y_ButtonPress :: ButtonPress -> Int16
- Graphics.XHB.Gen.Xproto: event_y_ButtonRelease :: ButtonRelease -> INT16
+ Graphics.XHB.Gen.Xproto: event_y_ButtonRelease :: ButtonRelease -> Int16
- Graphics.XHB.Gen.Xproto: event_y_EnterNotify :: EnterNotify -> INT16
+ Graphics.XHB.Gen.Xproto: event_y_EnterNotify :: EnterNotify -> Int16
- Graphics.XHB.Gen.Xproto: event_y_KeyPress :: KeyPress -> INT16
+ Graphics.XHB.Gen.Xproto: event_y_KeyPress :: KeyPress -> Int16
- Graphics.XHB.Gen.Xproto: event_y_KeyRelease :: KeyRelease -> INT16
+ Graphics.XHB.Gen.Xproto: event_y_KeyRelease :: KeyRelease -> Int16
- Graphics.XHB.Gen.Xproto: event_y_LeaveNotify :: LeaveNotify -> INT16
+ Graphics.XHB.Gen.Xproto: event_y_LeaveNotify :: LeaveNotify -> Int16
- Graphics.XHB.Gen.Xproto: event_y_MotionNotify :: MotionNotify -> INT16
+ Graphics.XHB.Gen.Xproto: event_y_MotionNotify :: MotionNotify -> Int16
- Graphics.XHB.Gen.Xproto: events_len_GetMotionEventsReply :: GetMotionEventsReply -> CARD32
+ Graphics.XHB.Gen.Xproto: events_len_GetMotionEventsReply :: GetMotionEventsReply -> Word32
- Graphics.XHB.Gen.Xproto: exact_blue_AllocNamedColorReply :: AllocNamedColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: exact_blue_AllocNamedColorReply :: AllocNamedColorReply -> Word16
- Graphics.XHB.Gen.Xproto: exact_blue_LookupColorReply :: LookupColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: exact_blue_LookupColorReply :: LookupColorReply -> Word16
- Graphics.XHB.Gen.Xproto: exact_green_AllocNamedColorReply :: AllocNamedColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: exact_green_AllocNamedColorReply :: AllocNamedColorReply -> Word16
- Graphics.XHB.Gen.Xproto: exact_green_LookupColorReply :: LookupColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: exact_green_LookupColorReply :: LookupColorReply -> Word16
- Graphics.XHB.Gen.Xproto: exact_red_AllocNamedColorReply :: AllocNamedColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: exact_red_AllocNamedColorReply :: AllocNamedColorReply -> Word16
- Graphics.XHB.Gen.Xproto: exact_red_LookupColorReply :: LookupColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: exact_red_LookupColorReply :: LookupColorReply -> Word16
- Graphics.XHB.Gen.Xproto: exposures_ClearArea :: ClearArea -> BOOL
+ Graphics.XHB.Gen.Xproto: exposures_ClearArea :: ClearArea -> Bool
- Graphics.XHB.Gen.Xproto: family_ChangeHosts :: ChangeHosts -> CARD8
+ Graphics.XHB.Gen.Xproto: family_ChangeHosts :: ChangeHosts -> Word8
- Graphics.XHB.Gen.Xproto: family_HOST :: HOST -> CARD8
+ Graphics.XHB.Gen.Xproto: family_HOST :: HOST -> Word8
- Graphics.XHB.Gen.Xproto: first_error_QueryExtensionReply :: QueryExtensionReply -> CARD8
+ Graphics.XHB.Gen.Xproto: first_error_QueryExtensionReply :: QueryExtensionReply -> Word8
- Graphics.XHB.Gen.Xproto: first_event_QueryExtensionReply :: QueryExtensionReply -> CARD8
+ Graphics.XHB.Gen.Xproto: first_event_QueryExtensionReply :: QueryExtensionReply -> Word8
- Graphics.XHB.Gen.Xproto: flags_COLORITEM :: COLORITEM -> BYTE
+ Graphics.XHB.Gen.Xproto: flags_COLORITEM :: COLORITEM -> Word8
- Graphics.XHB.Gen.Xproto: flags_StoreNamedColor :: StoreNamedColor -> CARD8
+ Graphics.XHB.Gen.Xproto: flags_StoreNamedColor :: StoreNamedColor -> Word8
- Graphics.XHB.Gen.Xproto: font_ascent_ListFontsWithInfoReply :: ListFontsWithInfoReply -> INT16
+ Graphics.XHB.Gen.Xproto: font_ascent_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Int16
- Graphics.XHB.Gen.Xproto: font_ascent_QueryFontReply :: QueryFontReply -> INT16
+ Graphics.XHB.Gen.Xproto: font_ascent_QueryFontReply :: QueryFontReply -> Int16
- Graphics.XHB.Gen.Xproto: font_ascent_QueryTextExtentsReply :: QueryTextExtentsReply -> INT16
+ Graphics.XHB.Gen.Xproto: font_ascent_QueryTextExtentsReply :: QueryTextExtentsReply -> Int16
- Graphics.XHB.Gen.Xproto: font_descent_ListFontsWithInfoReply :: ListFontsWithInfoReply -> INT16
+ Graphics.XHB.Gen.Xproto: font_descent_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Int16
- Graphics.XHB.Gen.Xproto: font_descent_QueryFontReply :: QueryFontReply -> INT16
+ Graphics.XHB.Gen.Xproto: font_descent_QueryFontReply :: QueryFontReply -> Int16
- Graphics.XHB.Gen.Xproto: font_descent_QueryTextExtentsReply :: QueryTextExtentsReply -> INT16
+ Graphics.XHB.Gen.Xproto: font_descent_QueryTextExtentsReply :: QueryTextExtentsReply -> Int16
- Graphics.XHB.Gen.Xproto: font_qty_SetFontPath :: SetFontPath -> CARD16
+ Graphics.XHB.Gen.Xproto: font_qty_SetFontPath :: SetFontPath -> Word16
- Graphics.XHB.Gen.Xproto: forceScreenSaver :: Connection -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Xproto: forceScreenSaver :: Connection -> Word8 -> IO ()
- Graphics.XHB.Gen.Xproto: fore_blue_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_blue_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_blue_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_blue_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_blue_RecolorCursor :: RecolorCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_blue_RecolorCursor :: RecolorCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_green_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_green_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_green_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_green_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_green_RecolorCursor :: RecolorCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_green_RecolorCursor :: RecolorCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_red_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_red_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_red_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_red_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_red_RecolorCursor :: RecolorCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_red_RecolorCursor :: RecolorCursor -> Word16
- Graphics.XHB.Gen.Xproto: format_ChangeProperty :: ChangeProperty -> CARD8
+ Graphics.XHB.Gen.Xproto: format_ChangeProperty :: ChangeProperty -> Word8
- Graphics.XHB.Gen.Xproto: format_ClientMessage :: ClientMessage -> CARD8
+ Graphics.XHB.Gen.Xproto: format_ClientMessage :: ClientMessage -> Word8
- Graphics.XHB.Gen.Xproto: format_GetImage :: GetImage -> CARD8
+ Graphics.XHB.Gen.Xproto: format_GetImage :: GetImage -> Word8
- Graphics.XHB.Gen.Xproto: format_GetPropertyReply :: GetPropertyReply -> CARD8
+ Graphics.XHB.Gen.Xproto: format_GetPropertyReply :: GetPropertyReply -> Word8
- Graphics.XHB.Gen.Xproto: format_PutImage :: PutImage -> CARD8
+ Graphics.XHB.Gen.Xproto: format_PutImage :: PutImage -> Word8
- Graphics.XHB.Gen.Xproto: from_configure_UnmapNotify :: UnmapNotify -> BOOL
+ Graphics.XHB.Gen.Xproto: from_configure_UnmapNotify :: UnmapNotify -> Bool
- Graphics.XHB.Gen.Xproto: getKeyboardMapping :: Connection -> KEYCODE -> CARD8 -> IO (Receipt GetKeyboardMappingReply)
+ Graphics.XHB.Gen.Xproto: getKeyboardMapping :: Connection -> KEYCODE -> Word8 -> IO (Receipt GetKeyboardMappingReply)
- Graphics.XHB.Gen.Xproto: getSelectionOwner :: Connection -> ATOM -> IO (Receipt GetSelectionOwnerReply)
+ Graphics.XHB.Gen.Xproto: getSelectionOwner :: Connection -> ATOM -> IO (Receipt WINDOW)
- Graphics.XHB.Gen.Xproto: global_auto_repeat_GetKeyboardControlReply :: GetKeyboardControlReply -> BYTE
+ Graphics.XHB.Gen.Xproto: global_auto_repeat_GetKeyboardControlReply :: GetKeyboardControlReply -> Word8
- Graphics.XHB.Gen.Xproto: grabKeyboard :: Connection -> GrabKeyboard -> IO (Receipt GrabKeyboardReply)
+ Graphics.XHB.Gen.Xproto: grabKeyboard :: Connection -> GrabKeyboard -> IO (Receipt Word8)
- Graphics.XHB.Gen.Xproto: grabPointer :: Connection -> GrabPointer -> IO (Receipt GrabPointerReply)
+ Graphics.XHB.Gen.Xproto: grabPointer :: Connection -> GrabPointer -> IO (Receipt Word8)
- Graphics.XHB.Gen.Xproto: green_AllocColor :: AllocColor -> CARD16
+ Graphics.XHB.Gen.Xproto: green_AllocColor :: AllocColor -> Word16
- Graphics.XHB.Gen.Xproto: green_AllocColorReply :: AllocColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: green_AllocColorReply :: AllocColorReply -> Word16
- Graphics.XHB.Gen.Xproto: green_COLORITEM :: COLORITEM -> CARD16
+ Graphics.XHB.Gen.Xproto: green_COLORITEM :: COLORITEM -> Word16
- Graphics.XHB.Gen.Xproto: green_RGB :: RGB -> CARD16
+ Graphics.XHB.Gen.Xproto: green_RGB :: RGB -> Word16
- Graphics.XHB.Gen.Xproto: green_mask_AllocColorPlanesReply :: AllocColorPlanesReply -> CARD32
+ Graphics.XHB.Gen.Xproto: green_mask_AllocColorPlanesReply :: AllocColorPlanesReply -> Word32
- Graphics.XHB.Gen.Xproto: green_mask_VISUALTYPE :: VISUALTYPE -> CARD32
+ Graphics.XHB.Gen.Xproto: green_mask_VISUALTYPE :: VISUALTYPE -> Word32
- Graphics.XHB.Gen.Xproto: greens_AllocColorPlanes :: AllocColorPlanes -> CARD16
+ Graphics.XHB.Gen.Xproto: greens_AllocColorPlanes :: AllocColorPlanes -> Word16
- Graphics.XHB.Gen.Xproto: height_ARC :: ARC -> CARD16
+ Graphics.XHB.Gen.Xproto: height_ARC :: ARC -> Word16
- Graphics.XHB.Gen.Xproto: height_ClearArea :: ClearArea -> CARD16
+ Graphics.XHB.Gen.Xproto: height_ClearArea :: ClearArea -> Word16
- Graphics.XHB.Gen.Xproto: height_ConfigureNotify :: ConfigureNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: height_ConfigureNotify :: ConfigureNotify -> Word16
- Graphics.XHB.Gen.Xproto: height_ConfigureRequest :: ConfigureRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: height_ConfigureRequest :: ConfigureRequest -> Word16
- Graphics.XHB.Gen.Xproto: height_CopyArea :: CopyArea -> CARD16
+ Graphics.XHB.Gen.Xproto: height_CopyArea :: CopyArea -> Word16
- Graphics.XHB.Gen.Xproto: height_CopyPlane :: CopyPlane -> CARD16
+ Graphics.XHB.Gen.Xproto: height_CopyPlane :: CopyPlane -> Word16
- Graphics.XHB.Gen.Xproto: height_CreateNotify :: CreateNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: height_CreateNotify :: CreateNotify -> Word16
- Graphics.XHB.Gen.Xproto: height_CreatePixmap :: CreatePixmap -> CARD16
+ Graphics.XHB.Gen.Xproto: height_CreatePixmap :: CreatePixmap -> Word16
- Graphics.XHB.Gen.Xproto: height_CreateWindow :: CreateWindow -> CARD16
+ Graphics.XHB.Gen.Xproto: height_CreateWindow :: CreateWindow -> Word16
- Graphics.XHB.Gen.Xproto: height_Expose :: Expose -> CARD16
+ Graphics.XHB.Gen.Xproto: height_Expose :: Expose -> Word16
- Graphics.XHB.Gen.Xproto: height_GetGeometryReply :: GetGeometryReply -> CARD16
+ Graphics.XHB.Gen.Xproto: height_GetGeometryReply :: GetGeometryReply -> Word16
- Graphics.XHB.Gen.Xproto: height_GetImage :: GetImage -> CARD16
+ Graphics.XHB.Gen.Xproto: height_GetImage :: GetImage -> Word16
- Graphics.XHB.Gen.Xproto: height_GraphicsExposure :: GraphicsExposure -> CARD16
+ Graphics.XHB.Gen.Xproto: height_GraphicsExposure :: GraphicsExposure -> Word16
- Graphics.XHB.Gen.Xproto: height_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xproto: height_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xproto: height_QueryBestSize :: QueryBestSize -> CARD16
+ Graphics.XHB.Gen.Xproto: height_QueryBestSize :: QueryBestSize -> Word16
- Graphics.XHB.Gen.Xproto: height_QueryBestSizeReply :: QueryBestSizeReply -> CARD16
+ Graphics.XHB.Gen.Xproto: height_QueryBestSizeReply :: QueryBestSizeReply -> Word16
- Graphics.XHB.Gen.Xproto: height_RECTANGLE :: RECTANGLE -> CARD16
+ Graphics.XHB.Gen.Xproto: height_RECTANGLE :: RECTANGLE -> Word16
- Graphics.XHB.Gen.Xproto: height_ResizeRequest :: ResizeRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: height_ResizeRequest :: ResizeRequest -> Word16
- Graphics.XHB.Gen.Xproto: height_in_millimeters_SCREEN :: SCREEN -> CARD16
+ Graphics.XHB.Gen.Xproto: height_in_millimeters_SCREEN :: SCREEN -> Word16
- Graphics.XHB.Gen.Xproto: height_in_pixels_SCREEN :: SCREEN -> CARD16
+ Graphics.XHB.Gen.Xproto: height_in_pixels_SCREEN :: SCREEN -> Word16
- Graphics.XHB.Gen.Xproto: hosts_len_ListHostsReply :: ListHostsReply -> CARD16
+ Graphics.XHB.Gen.Xproto: hosts_len_ListHostsReply :: ListHostsReply -> Word16
- Graphics.XHB.Gen.Xproto: image_byte_order_Setup :: Setup -> CARD8
+ Graphics.XHB.Gen.Xproto: image_byte_order_Setup :: Setup -> Word8
- Graphics.XHB.Gen.Xproto: internAtom :: Connection -> InternAtom -> IO (Receipt InternAtomReply)
+ Graphics.XHB.Gen.Xproto: internAtom :: Connection -> InternAtom -> IO (Receipt ATOM)
- Graphics.XHB.Gen.Xproto: interval_GetScreenSaverReply :: GetScreenSaverReply -> CARD16
+ Graphics.XHB.Gen.Xproto: interval_GetScreenSaverReply :: GetScreenSaverReply -> Word16
- Graphics.XHB.Gen.Xproto: interval_SetScreenSaver :: SetScreenSaver -> INT16
+ Graphics.XHB.Gen.Xproto: interval_SetScreenSaver :: SetScreenSaver -> Int16
- Graphics.XHB.Gen.Xproto: items_PolyText16 :: PolyText16 -> [BYTE]
+ Graphics.XHB.Gen.Xproto: items_PolyText16 :: PolyText16 -> [Word8]
- Graphics.XHB.Gen.Xproto: items_PolyText8 :: PolyText8 -> [BYTE]
+ Graphics.XHB.Gen.Xproto: items_PolyText8 :: PolyText8 -> [Word8]
- Graphics.XHB.Gen.Xproto: key_click_percent_GetKeyboardControlReply :: GetKeyboardControlReply -> CARD8
+ Graphics.XHB.Gen.Xproto: key_click_percent_GetKeyboardControlReply :: GetKeyboardControlReply -> Word8
- Graphics.XHB.Gen.Xproto: keyboard_mode_GrabButton :: GrabButton -> CARD8
+ Graphics.XHB.Gen.Xproto: keyboard_mode_GrabButton :: GrabButton -> Word8
- Graphics.XHB.Gen.Xproto: keyboard_mode_GrabKey :: GrabKey -> CARD8
+ Graphics.XHB.Gen.Xproto: keyboard_mode_GrabKey :: GrabKey -> Word8
- Graphics.XHB.Gen.Xproto: keyboard_mode_GrabKeyboard :: GrabKeyboard -> BYTE
+ Graphics.XHB.Gen.Xproto: keyboard_mode_GrabKeyboard :: GrabKeyboard -> Word8
- Graphics.XHB.Gen.Xproto: keyboard_mode_GrabPointer :: GrabPointer -> BYTE
+ Graphics.XHB.Gen.Xproto: keyboard_mode_GrabPointer :: GrabPointer -> Word8
- Graphics.XHB.Gen.Xproto: keycode_count_ChangeKeyboardMapping :: ChangeKeyboardMapping -> CARD8
+ Graphics.XHB.Gen.Xproto: keycode_count_ChangeKeyboardMapping :: ChangeKeyboardMapping -> Word8
- Graphics.XHB.Gen.Xproto: keycodes_per_modifier_GetModifierMappingReply :: GetModifierMappingReply -> CARD8
+ Graphics.XHB.Gen.Xproto: keycodes_per_modifier_GetModifierMappingReply :: GetModifierMappingReply -> Word8
- Graphics.XHB.Gen.Xproto: keycodes_per_modifier_SetModifierMapping :: SetModifierMapping -> CARD8
+ Graphics.XHB.Gen.Xproto: keycodes_per_modifier_SetModifierMapping :: SetModifierMapping -> Word8
- Graphics.XHB.Gen.Xproto: keys_KeymapNotify :: KeymapNotify -> [CARD8]
+ Graphics.XHB.Gen.Xproto: keys_KeymapNotify :: KeymapNotify -> [Word8]
- Graphics.XHB.Gen.Xproto: keys_QueryKeymapReply :: QueryKeymapReply -> [CARD8]
+ Graphics.XHB.Gen.Xproto: keys_QueryKeymapReply :: QueryKeymapReply -> [Word8]
- Graphics.XHB.Gen.Xproto: keysyms_per_keycode_ChangeKeyboardMapping :: ChangeKeyboardMapping -> CARD8
+ Graphics.XHB.Gen.Xproto: keysyms_per_keycode_ChangeKeyboardMapping :: ChangeKeyboardMapping -> Word8
- Graphics.XHB.Gen.Xproto: keysyms_per_keycode_GetKeyboardMappingReply :: GetKeyboardMappingReply -> BYTE
+ Graphics.XHB.Gen.Xproto: keysyms_per_keycode_GetKeyboardMappingReply :: GetKeyboardMappingReply -> Word8
- Graphics.XHB.Gen.Xproto: killClient :: Connection -> CARD32 -> IO ()
+ Graphics.XHB.Gen.Xproto: killClient :: Connection -> Word32 -> IO ()
- Graphics.XHB.Gen.Xproto: led_mask_GetKeyboardControlReply :: GetKeyboardControlReply -> CARD32
+ Graphics.XHB.Gen.Xproto: led_mask_GetKeyboardControlReply :: GetKeyboardControlReply -> Word32
- Graphics.XHB.Gen.Xproto: left_pad_PutImage :: PutImage -> CARD8
+ Graphics.XHB.Gen.Xproto: left_pad_PutImage :: PutImage -> Word8
- Graphics.XHB.Gen.Xproto: left_side_bearing_CHARINFO :: CHARINFO -> INT16
+ Graphics.XHB.Gen.Xproto: left_side_bearing_CHARINFO :: CHARINFO -> Int16
- Graphics.XHB.Gen.Xproto: length_Setup :: Setup -> CARD16
+ Graphics.XHB.Gen.Xproto: length_Setup :: Setup -> Word16
- Graphics.XHB.Gen.Xproto: length_SetupAuthenticate :: SetupAuthenticate -> CARD16
+ Graphics.XHB.Gen.Xproto: length_SetupAuthenticate :: SetupAuthenticate -> Word16
- Graphics.XHB.Gen.Xproto: length_SetupFailed :: SetupFailed -> CARD16
+ Graphics.XHB.Gen.Xproto: length_SetupFailed :: SetupFailed -> Word16
- Graphics.XHB.Gen.Xproto: long_length_GetProperty :: GetProperty -> CARD32
+ Graphics.XHB.Gen.Xproto: long_length_GetProperty :: GetProperty -> Word32
- Graphics.XHB.Gen.Xproto: long_offset_GetProperty :: GetProperty -> CARD32
+ Graphics.XHB.Gen.Xproto: long_offset_GetProperty :: GetProperty -> Word32
- Graphics.XHB.Gen.Xproto: major_opcode_Access :: Access -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Access :: Access -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Alloc :: Alloc -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Alloc :: Alloc -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Atom :: Atom -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Atom :: Atom -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Colormap :: Colormap -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Colormap :: Colormap -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Cursor :: Cursor -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Cursor :: Cursor -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Drawable :: Drawable -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Drawable :: Drawable -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Font :: Font -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Font :: Font -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_GContext :: GContext -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_GContext :: GContext -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_GraphicsExposure :: GraphicsExposure -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_GraphicsExposure :: GraphicsExposure -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_IDChoice :: IDChoice -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_IDChoice :: IDChoice -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Implementation :: Implementation -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Implementation :: Implementation -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Length :: Length -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Length :: Length -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Match :: Match -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Match :: Match -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Name :: Name -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Name :: Name -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_NoExposure :: NoExposure -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_NoExposure :: NoExposure -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Pixmap :: Pixmap -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Pixmap :: Pixmap -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_QueryExtensionReply :: QueryExtensionReply -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_QueryExtensionReply :: QueryExtensionReply -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Request :: Request -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Request :: Request -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Value :: Value -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Value :: Value -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Window :: Window -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Window :: Window -> Word8
- Graphics.XHB.Gen.Xproto: map_GetPointerMappingReply :: GetPointerMappingReply -> [CARD8]
+ Graphics.XHB.Gen.Xproto: map_GetPointerMappingReply :: GetPointerMappingReply -> [Word8]
- Graphics.XHB.Gen.Xproto: map_SetPointerMapping :: SetPointerMapping -> [CARD8]
+ Graphics.XHB.Gen.Xproto: map_SetPointerMapping :: SetPointerMapping -> [Word8]
- Graphics.XHB.Gen.Xproto: map_is_installed_GetWindowAttributesReply :: GetWindowAttributesReply -> BOOL
+ Graphics.XHB.Gen.Xproto: map_is_installed_GetWindowAttributesReply :: GetWindowAttributesReply -> Bool
- Graphics.XHB.Gen.Xproto: map_len_GetPointerMappingReply :: GetPointerMappingReply -> CARD8
+ Graphics.XHB.Gen.Xproto: map_len_GetPointerMappingReply :: GetPointerMappingReply -> Word8
- Graphics.XHB.Gen.Xproto: map_len_SetPointerMapping :: SetPointerMapping -> CARD8
+ Graphics.XHB.Gen.Xproto: map_len_SetPointerMapping :: SetPointerMapping -> Word8
- Graphics.XHB.Gen.Xproto: map_state_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD8
+ Graphics.XHB.Gen.Xproto: map_state_GetWindowAttributesReply :: GetWindowAttributesReply -> Word8
- Graphics.XHB.Gen.Xproto: mask_QueryPointerReply :: QueryPointerReply -> CARD16
+ Graphics.XHB.Gen.Xproto: mask_QueryPointerReply :: QueryPointerReply -> Word16
- Graphics.XHB.Gen.Xproto: mask_char_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: mask_char_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: masks_AllocColorCellsReply :: AllocColorCellsReply -> [CARD32]
+ Graphics.XHB.Gen.Xproto: masks_AllocColorCellsReply :: AllocColorCellsReply -> [Word32]
- Graphics.XHB.Gen.Xproto: masks_len_AllocColorCellsReply :: AllocColorCellsReply -> CARD16
+ Graphics.XHB.Gen.Xproto: masks_len_AllocColorCellsReply :: AllocColorCellsReply -> Word16
- Graphics.XHB.Gen.Xproto: max_byte1_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD8
+ Graphics.XHB.Gen.Xproto: max_byte1_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word8
- Graphics.XHB.Gen.Xproto: max_byte1_QueryFontReply :: QueryFontReply -> CARD8
+ Graphics.XHB.Gen.Xproto: max_byte1_QueryFontReply :: QueryFontReply -> Word8
- Graphics.XHB.Gen.Xproto: max_char_or_byte2_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD16
+ Graphics.XHB.Gen.Xproto: max_char_or_byte2_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word16
- Graphics.XHB.Gen.Xproto: max_char_or_byte2_QueryFontReply :: QueryFontReply -> CARD16
+ Graphics.XHB.Gen.Xproto: max_char_or_byte2_QueryFontReply :: QueryFontReply -> Word16
- Graphics.XHB.Gen.Xproto: max_installed_maps_SCREEN :: SCREEN -> CARD16
+ Graphics.XHB.Gen.Xproto: max_installed_maps_SCREEN :: SCREEN -> Word16
- Graphics.XHB.Gen.Xproto: max_names_ListFonts :: ListFonts -> CARD16
+ Graphics.XHB.Gen.Xproto: max_names_ListFonts :: ListFonts -> Word16
- Graphics.XHB.Gen.Xproto: max_names_ListFontsWithInfo :: ListFontsWithInfo -> CARD16
+ Graphics.XHB.Gen.Xproto: max_names_ListFontsWithInfo :: ListFontsWithInfo -> Word16
- Graphics.XHB.Gen.Xproto: maximum_request_length_Setup :: Setup -> CARD16
+ Graphics.XHB.Gen.Xproto: maximum_request_length_Setup :: Setup -> Word16
- Graphics.XHB.Gen.Xproto: min_byte1_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD8
+ Graphics.XHB.Gen.Xproto: min_byte1_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word8
- Graphics.XHB.Gen.Xproto: min_byte1_QueryFontReply :: QueryFontReply -> CARD8
+ Graphics.XHB.Gen.Xproto: min_byte1_QueryFontReply :: QueryFontReply -> Word8
- Graphics.XHB.Gen.Xproto: min_char_or_byte2_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD16
+ Graphics.XHB.Gen.Xproto: min_char_or_byte2_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word16
- Graphics.XHB.Gen.Xproto: min_char_or_byte2_QueryFontReply :: QueryFontReply -> CARD16
+ Graphics.XHB.Gen.Xproto: min_char_or_byte2_QueryFontReply :: QueryFontReply -> Word16
- Graphics.XHB.Gen.Xproto: min_installed_maps_SCREEN :: SCREEN -> CARD16
+ Graphics.XHB.Gen.Xproto: min_installed_maps_SCREEN :: SCREEN -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Access :: Access -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Access :: Access -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Alloc :: Alloc -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Alloc :: Alloc -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Atom :: Atom -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Atom :: Atom -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Colormap :: Colormap -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Colormap :: Colormap -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Cursor :: Cursor -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Cursor :: Cursor -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Drawable :: Drawable -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Drawable :: Drawable -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Font :: Font -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Font :: Font -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_GContext :: GContext -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_GContext :: GContext -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_GraphicsExposure :: GraphicsExposure -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_GraphicsExposure :: GraphicsExposure -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_IDChoice :: IDChoice -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_IDChoice :: IDChoice -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Implementation :: Implementation -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Implementation :: Implementation -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Length :: Length -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Length :: Length -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Match :: Match -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Match :: Match -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Name :: Name -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Name :: Name -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_NoExposure :: NoExposure -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_NoExposure :: NoExposure -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Pixmap :: Pixmap -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Pixmap :: Pixmap -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Request :: Request -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Request :: Request -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Value :: Value -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Value :: Value -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Window :: Window -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Window :: Window -> Word16
- Graphics.XHB.Gen.Xproto: mode_AllowEvents :: AllowEvents -> CARD8
+ Graphics.XHB.Gen.Xproto: mode_AllowEvents :: AllowEvents -> Word8
- Graphics.XHB.Gen.Xproto: mode_ChangeHosts :: ChangeHosts -> CARD8
+ Graphics.XHB.Gen.Xproto: mode_ChangeHosts :: ChangeHosts -> Word8
- Graphics.XHB.Gen.Xproto: mode_ChangeProperty :: ChangeProperty -> CARD8
+ Graphics.XHB.Gen.Xproto: mode_ChangeProperty :: ChangeProperty -> Word8
- Graphics.XHB.Gen.Xproto: mode_ChangeSaveSet :: ChangeSaveSet -> BYTE
+ Graphics.XHB.Gen.Xproto: mode_ChangeSaveSet :: ChangeSaveSet -> Word8
- Graphics.XHB.Gen.Xproto: mode_EnterNotify :: EnterNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: mode_EnterNotify :: EnterNotify -> Word8
- Graphics.XHB.Gen.Xproto: mode_FocusIn :: FocusIn -> BYTE
+ Graphics.XHB.Gen.Xproto: mode_FocusIn :: FocusIn -> Word8
- Graphics.XHB.Gen.Xproto: mode_FocusOut :: FocusOut -> BYTE
+ Graphics.XHB.Gen.Xproto: mode_FocusOut :: FocusOut -> Word8
- Graphics.XHB.Gen.Xproto: mode_ForceScreenSaver :: ForceScreenSaver -> CARD8
+ Graphics.XHB.Gen.Xproto: mode_ForceScreenSaver :: ForceScreenSaver -> Word8
- Graphics.XHB.Gen.Xproto: mode_LeaveNotify :: LeaveNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: mode_LeaveNotify :: LeaveNotify -> Word8
- Graphics.XHB.Gen.Xproto: mode_ListHostsReply :: ListHostsReply -> BYTE
+ Graphics.XHB.Gen.Xproto: mode_ListHostsReply :: ListHostsReply -> Word8
- Graphics.XHB.Gen.Xproto: mode_SetAccessControl :: SetAccessControl -> CARD8
+ Graphics.XHB.Gen.Xproto: mode_SetAccessControl :: SetAccessControl -> Word8
- Graphics.XHB.Gen.Xproto: mode_SetCloseDownMode :: SetCloseDownMode -> CARD8
+ Graphics.XHB.Gen.Xproto: mode_SetCloseDownMode :: SetCloseDownMode -> Word8
- Graphics.XHB.Gen.Xproto: modifiers_GrabButton :: GrabButton -> CARD16
+ Graphics.XHB.Gen.Xproto: modifiers_GrabButton :: GrabButton -> Word16
- Graphics.XHB.Gen.Xproto: modifiers_GrabKey :: GrabKey -> CARD16
+ Graphics.XHB.Gen.Xproto: modifiers_GrabKey :: GrabKey -> Word16
- Graphics.XHB.Gen.Xproto: modifiers_UngrabButton :: UngrabButton -> CARD16
+ Graphics.XHB.Gen.Xproto: modifiers_UngrabButton :: UngrabButton -> Word16
- Graphics.XHB.Gen.Xproto: modifiers_UngrabKey :: UngrabKey -> CARD16
+ Graphics.XHB.Gen.Xproto: modifiers_UngrabKey :: UngrabKey -> Word16
- Graphics.XHB.Gen.Xproto: motion_buffer_size_Setup :: Setup -> CARD32
+ Graphics.XHB.Gen.Xproto: motion_buffer_size_Setup :: Setup -> Word32
- Graphics.XHB.Gen.Xproto: name_len_AllocNamedColor :: AllocNamedColor -> CARD16
+ Graphics.XHB.Gen.Xproto: name_len_AllocNamedColor :: AllocNamedColor -> Word16
- Graphics.XHB.Gen.Xproto: name_len_GetAtomNameReply :: GetAtomNameReply -> CARD16
+ Graphics.XHB.Gen.Xproto: name_len_GetAtomNameReply :: GetAtomNameReply -> Word16
- Graphics.XHB.Gen.Xproto: name_len_InternAtom :: InternAtom -> CARD16
+ Graphics.XHB.Gen.Xproto: name_len_InternAtom :: InternAtom -> Word16
- Graphics.XHB.Gen.Xproto: name_len_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD8
+ Graphics.XHB.Gen.Xproto: name_len_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word8
- Graphics.XHB.Gen.Xproto: name_len_LookupColor :: LookupColor -> CARD16
+ Graphics.XHB.Gen.Xproto: name_len_LookupColor :: LookupColor -> Word16
- Graphics.XHB.Gen.Xproto: name_len_OpenFont :: OpenFont -> CARD16
+ Graphics.XHB.Gen.Xproto: name_len_OpenFont :: OpenFont -> Word16
- Graphics.XHB.Gen.Xproto: name_len_QueryExtension :: QueryExtension -> CARD16
+ Graphics.XHB.Gen.Xproto: name_len_QueryExtension :: QueryExtension -> Word16
- Graphics.XHB.Gen.Xproto: name_len_STR :: STR -> CARD8
+ Graphics.XHB.Gen.Xproto: name_len_STR :: STR -> Word8
- Graphics.XHB.Gen.Xproto: name_len_StoreNamedColor :: StoreNamedColor -> CARD16
+ Graphics.XHB.Gen.Xproto: name_len_StoreNamedColor :: StoreNamedColor -> Word16
- Graphics.XHB.Gen.Xproto: names_len_ListExtensionsReply :: ListExtensionsReply -> CARD8
+ Graphics.XHB.Gen.Xproto: names_len_ListExtensionsReply :: ListExtensionsReply -> Word8
- Graphics.XHB.Gen.Xproto: names_len_ListFontsReply :: ListFontsReply -> CARD16
+ Graphics.XHB.Gen.Xproto: names_len_ListFontsReply :: ListFontsReply -> Word16
- Graphics.XHB.Gen.Xproto: new_ColormapNotify :: ColormapNotify -> BOOL
+ Graphics.XHB.Gen.Xproto: new_ColormapNotify :: ColormapNotify -> Bool
- Graphics.XHB.Gen.Xproto: odd_length_QueryTextExtents :: QueryTextExtents -> BOOL
+ Graphics.XHB.Gen.Xproto: odd_length_QueryTextExtents :: QueryTextExtents -> Bool
- Graphics.XHB.Gen.Xproto: only_if_exists_InternAtom :: InternAtom -> BOOL
+ Graphics.XHB.Gen.Xproto: only_if_exists_InternAtom :: InternAtom -> Bool
- Graphics.XHB.Gen.Xproto: ordering_SetClipRectangles :: SetClipRectangles -> BYTE
+ Graphics.XHB.Gen.Xproto: ordering_SetClipRectangles :: SetClipRectangles -> Word8
- Graphics.XHB.Gen.Xproto: overall_ascent_QueryTextExtentsReply :: QueryTextExtentsReply -> INT16
+ Graphics.XHB.Gen.Xproto: overall_ascent_QueryTextExtentsReply :: QueryTextExtentsReply -> Int16
- Graphics.XHB.Gen.Xproto: overall_descent_QueryTextExtentsReply :: QueryTextExtentsReply -> INT16
+ Graphics.XHB.Gen.Xproto: overall_descent_QueryTextExtentsReply :: QueryTextExtentsReply -> Int16
- Graphics.XHB.Gen.Xproto: overall_left_QueryTextExtentsReply :: QueryTextExtentsReply -> INT32
+ Graphics.XHB.Gen.Xproto: overall_left_QueryTextExtentsReply :: QueryTextExtentsReply -> Int32
- Graphics.XHB.Gen.Xproto: overall_right_QueryTextExtentsReply :: QueryTextExtentsReply -> INT32
+ Graphics.XHB.Gen.Xproto: overall_right_QueryTextExtentsReply :: QueryTextExtentsReply -> Int32
- Graphics.XHB.Gen.Xproto: overall_width_QueryTextExtentsReply :: QueryTextExtentsReply -> INT32
+ Graphics.XHB.Gen.Xproto: overall_width_QueryTextExtentsReply :: QueryTextExtentsReply -> Int32
- Graphics.XHB.Gen.Xproto: override_redirect_ConfigureNotify :: ConfigureNotify -> BOOL
+ Graphics.XHB.Gen.Xproto: override_redirect_ConfigureNotify :: ConfigureNotify -> Bool
- Graphics.XHB.Gen.Xproto: override_redirect_CreateNotify :: CreateNotify -> BOOL
+ Graphics.XHB.Gen.Xproto: override_redirect_CreateNotify :: CreateNotify -> Bool
- Graphics.XHB.Gen.Xproto: override_redirect_GetWindowAttributesReply :: GetWindowAttributesReply -> BOOL
+ Graphics.XHB.Gen.Xproto: override_redirect_GetWindowAttributesReply :: GetWindowAttributesReply -> Bool
- Graphics.XHB.Gen.Xproto: override_redirect_MapNotify :: MapNotify -> BOOL
+ Graphics.XHB.Gen.Xproto: override_redirect_MapNotify :: MapNotify -> Bool
- Graphics.XHB.Gen.Xproto: override_redirect_ReparentNotify :: ReparentNotify -> BOOL
+ Graphics.XHB.Gen.Xproto: override_redirect_ReparentNotify :: ReparentNotify -> Bool
- Graphics.XHB.Gen.Xproto: owner_events_GrabButton :: GrabButton -> BOOL
+ Graphics.XHB.Gen.Xproto: owner_events_GrabButton :: GrabButton -> Bool
- Graphics.XHB.Gen.Xproto: owner_events_GrabKey :: GrabKey -> BOOL
+ Graphics.XHB.Gen.Xproto: owner_events_GrabKey :: GrabKey -> Bool
- Graphics.XHB.Gen.Xproto: owner_events_GrabKeyboard :: GrabKeyboard -> BOOL
+ Graphics.XHB.Gen.Xproto: owner_events_GrabKeyboard :: GrabKeyboard -> Bool
- Graphics.XHB.Gen.Xproto: owner_events_GrabPointer :: GrabPointer -> BOOL
+ Graphics.XHB.Gen.Xproto: owner_events_GrabPointer :: GrabPointer -> Bool
- Graphics.XHB.Gen.Xproto: path_len_GetFontPathReply :: GetFontPathReply -> CARD16
+ Graphics.XHB.Gen.Xproto: path_len_GetFontPathReply :: GetFontPathReply -> Word16
- Graphics.XHB.Gen.Xproto: pattern_len_ListFonts :: ListFonts -> CARD16
+ Graphics.XHB.Gen.Xproto: pattern_len_ListFonts :: ListFonts -> Word16
- Graphics.XHB.Gen.Xproto: pattern_len_ListFontsWithInfo :: ListFontsWithInfo -> CARD16
+ Graphics.XHB.Gen.Xproto: pattern_len_ListFontsWithInfo :: ListFontsWithInfo -> Word16
- Graphics.XHB.Gen.Xproto: percent_Bell :: Bell -> INT8
+ Graphics.XHB.Gen.Xproto: percent_Bell :: Bell -> Int8
- Graphics.XHB.Gen.Xproto: pixel_AllocColorReply :: AllocColorReply -> CARD32
+ Graphics.XHB.Gen.Xproto: pixel_AllocColorReply :: AllocColorReply -> Word32
- Graphics.XHB.Gen.Xproto: pixel_AllocNamedColorReply :: AllocNamedColorReply -> CARD32
+ Graphics.XHB.Gen.Xproto: pixel_AllocNamedColorReply :: AllocNamedColorReply -> Word32
- Graphics.XHB.Gen.Xproto: pixel_COLORITEM :: COLORITEM -> CARD32
+ Graphics.XHB.Gen.Xproto: pixel_COLORITEM :: COLORITEM -> Word32
- Graphics.XHB.Gen.Xproto: pixel_StoreNamedColor :: StoreNamedColor -> CARD32
+ Graphics.XHB.Gen.Xproto: pixel_StoreNamedColor :: StoreNamedColor -> Word32
- Graphics.XHB.Gen.Xproto: pixels_AllocColorCellsReply :: AllocColorCellsReply -> [CARD32]
+ Graphics.XHB.Gen.Xproto: pixels_AllocColorCellsReply :: AllocColorCellsReply -> [Word32]
- Graphics.XHB.Gen.Xproto: pixels_AllocColorPlanesReply :: AllocColorPlanesReply -> [CARD32]
+ Graphics.XHB.Gen.Xproto: pixels_AllocColorPlanesReply :: AllocColorPlanesReply -> [Word32]
- Graphics.XHB.Gen.Xproto: pixels_FreeColors :: FreeColors -> [CARD32]
+ Graphics.XHB.Gen.Xproto: pixels_FreeColors :: FreeColors -> [Word32]
- Graphics.XHB.Gen.Xproto: pixels_QueryColors :: QueryColors -> [CARD32]
+ Graphics.XHB.Gen.Xproto: pixels_QueryColors :: QueryColors -> [Word32]
- Graphics.XHB.Gen.Xproto: pixels_len_AllocColorCellsReply :: AllocColorCellsReply -> CARD16
+ Graphics.XHB.Gen.Xproto: pixels_len_AllocColorCellsReply :: AllocColorCellsReply -> Word16
- Graphics.XHB.Gen.Xproto: pixels_len_AllocColorPlanesReply :: AllocColorPlanesReply -> CARD16
+ Graphics.XHB.Gen.Xproto: pixels_len_AllocColorPlanesReply :: AllocColorPlanesReply -> Word16
- Graphics.XHB.Gen.Xproto: pixmap_formats_len_Setup :: Setup -> CARD8
+ Graphics.XHB.Gen.Xproto: pixmap_formats_len_Setup :: Setup -> Word8
- Graphics.XHB.Gen.Xproto: place_CirculateNotify :: CirculateNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: place_CirculateNotify :: CirculateNotify -> Word8
- Graphics.XHB.Gen.Xproto: place_CirculateRequest :: CirculateRequest -> BYTE
+ Graphics.XHB.Gen.Xproto: place_CirculateRequest :: CirculateRequest -> Word8
- Graphics.XHB.Gen.Xproto: plane_mask_FreeColors :: FreeColors -> CARD32
+ Graphics.XHB.Gen.Xproto: plane_mask_FreeColors :: FreeColors -> Word32
- Graphics.XHB.Gen.Xproto: plane_mask_GetImage :: GetImage -> CARD32
+ Graphics.XHB.Gen.Xproto: plane_mask_GetImage :: GetImage -> Word32
- Graphics.XHB.Gen.Xproto: planes_AllocColorCells :: AllocColorCells -> CARD16
+ Graphics.XHB.Gen.Xproto: planes_AllocColorCells :: AllocColorCells -> Word16
- Graphics.XHB.Gen.Xproto: pointer_mode_GrabButton :: GrabButton -> CARD8
+ Graphics.XHB.Gen.Xproto: pointer_mode_GrabButton :: GrabButton -> Word8
- Graphics.XHB.Gen.Xproto: pointer_mode_GrabKey :: GrabKey -> CARD8
+ Graphics.XHB.Gen.Xproto: pointer_mode_GrabKey :: GrabKey -> Word8
- Graphics.XHB.Gen.Xproto: pointer_mode_GrabKeyboard :: GrabKeyboard -> BYTE
+ Graphics.XHB.Gen.Xproto: pointer_mode_GrabKeyboard :: GrabKeyboard -> Word8
- Graphics.XHB.Gen.Xproto: pointer_mode_GrabPointer :: GrabPointer -> BYTE
+ Graphics.XHB.Gen.Xproto: pointer_mode_GrabPointer :: GrabPointer -> Word8
- Graphics.XHB.Gen.Xproto: prefer_blanking_GetScreenSaverReply :: GetScreenSaverReply -> BYTE
+ Graphics.XHB.Gen.Xproto: prefer_blanking_GetScreenSaverReply :: GetScreenSaverReply -> Word8
- Graphics.XHB.Gen.Xproto: prefer_blanking_SetScreenSaver :: SetScreenSaver -> CARD8
+ Graphics.XHB.Gen.Xproto: prefer_blanking_SetScreenSaver :: SetScreenSaver -> Word8
- Graphics.XHB.Gen.Xproto: present_QueryExtensionReply :: QueryExtensionReply -> BOOL
+ Graphics.XHB.Gen.Xproto: present_QueryExtensionReply :: QueryExtensionReply -> Bool
- Graphics.XHB.Gen.Xproto: propagate_SendEvent :: SendEvent -> BOOL
+ Graphics.XHB.Gen.Xproto: propagate_SendEvent :: SendEvent -> Bool
- Graphics.XHB.Gen.Xproto: properties_len_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD16
+ Graphics.XHB.Gen.Xproto: properties_len_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word16
- Graphics.XHB.Gen.Xproto: properties_len_QueryFontReply :: QueryFontReply -> CARD16
+ Graphics.XHB.Gen.Xproto: properties_len_QueryFontReply :: QueryFontReply -> Word16
- Graphics.XHB.Gen.Xproto: protocol_major_version_Setup :: Setup -> CARD16
+ Graphics.XHB.Gen.Xproto: protocol_major_version_Setup :: Setup -> Word16
- Graphics.XHB.Gen.Xproto: protocol_major_version_SetupFailed :: SetupFailed -> CARD16
+ Graphics.XHB.Gen.Xproto: protocol_major_version_SetupFailed :: SetupFailed -> Word16
- Graphics.XHB.Gen.Xproto: protocol_major_version_SetupRequest :: SetupRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: protocol_major_version_SetupRequest :: SetupRequest -> Word16
- Graphics.XHB.Gen.Xproto: protocol_minor_version_Setup :: Setup -> CARD16
+ Graphics.XHB.Gen.Xproto: protocol_minor_version_Setup :: Setup -> Word16
- Graphics.XHB.Gen.Xproto: protocol_minor_version_SetupFailed :: SetupFailed -> CARD16
+ Graphics.XHB.Gen.Xproto: protocol_minor_version_SetupFailed :: SetupFailed -> Word16
- Graphics.XHB.Gen.Xproto: protocol_minor_version_SetupRequest :: SetupRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: protocol_minor_version_SetupRequest :: SetupRequest -> Word16
- Graphics.XHB.Gen.Xproto: queryColors :: Connection -> COLORMAP -> [CARD32] -> IO (Receipt QueryColorsReply)
+ Graphics.XHB.Gen.Xproto: queryColors :: Connection -> COLORMAP -> [Word32] -> IO (Receipt QueryColorsReply)
- Graphics.XHB.Gen.Xproto: queryExtension :: Connection -> CARD16 -> [CChar] -> IO (Receipt QueryExtensionReply)
+ Graphics.XHB.Gen.Xproto: queryExtension :: Connection -> Word16 -> [CChar] -> IO (Receipt QueryExtensionReply)
- Graphics.XHB.Gen.Xproto: queryKeymap :: Connection -> IO (Receipt QueryKeymapReply)
+ Graphics.XHB.Gen.Xproto: queryKeymap :: Connection -> IO (Receipt [Word8])
- Graphics.XHB.Gen.Xproto: reason_len_SetupFailed :: SetupFailed -> CARD8
+ Graphics.XHB.Gen.Xproto: reason_len_SetupFailed :: SetupFailed -> Word8
- Graphics.XHB.Gen.Xproto: red_AllocColor :: AllocColor -> CARD16
+ Graphics.XHB.Gen.Xproto: red_AllocColor :: AllocColor -> Word16
- Graphics.XHB.Gen.Xproto: red_AllocColorReply :: AllocColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: red_AllocColorReply :: AllocColorReply -> Word16
- Graphics.XHB.Gen.Xproto: red_COLORITEM :: COLORITEM -> CARD16
+ Graphics.XHB.Gen.Xproto: red_COLORITEM :: COLORITEM -> Word16
- Graphics.XHB.Gen.Xproto: red_RGB :: RGB -> CARD16
+ Graphics.XHB.Gen.Xproto: red_RGB :: RGB -> Word16
- Graphics.XHB.Gen.Xproto: red_mask_AllocColorPlanesReply :: AllocColorPlanesReply -> CARD32
+ Graphics.XHB.Gen.Xproto: red_mask_AllocColorPlanesReply :: AllocColorPlanesReply -> Word32
- Graphics.XHB.Gen.Xproto: red_mask_VISUALTYPE :: VISUALTYPE -> CARD32
+ Graphics.XHB.Gen.Xproto: red_mask_VISUALTYPE :: VISUALTYPE -> Word32
- Graphics.XHB.Gen.Xproto: reds_AllocColorPlanes :: AllocColorPlanes -> CARD16
+ Graphics.XHB.Gen.Xproto: reds_AllocColorPlanes :: AllocColorPlanes -> Word16
- Graphics.XHB.Gen.Xproto: release_number_Setup :: Setup -> CARD32
+ Graphics.XHB.Gen.Xproto: release_number_Setup :: Setup -> Word32
- Graphics.XHB.Gen.Xproto: replies_hint_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD32
+ Graphics.XHB.Gen.Xproto: replies_hint_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word32
- Graphics.XHB.Gen.Xproto: request_MappingNotify :: MappingNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: request_MappingNotify :: MappingNotify -> Word8
- Graphics.XHB.Gen.Xproto: resource_KillClient :: KillClient -> CARD32
+ Graphics.XHB.Gen.Xproto: resource_KillClient :: KillClient -> Word32
- Graphics.XHB.Gen.Xproto: resource_id_base_Setup :: Setup -> CARD32
+ Graphics.XHB.Gen.Xproto: resource_id_base_Setup :: Setup -> Word32
- Graphics.XHB.Gen.Xproto: resource_id_mask_Setup :: Setup -> CARD32
+ Graphics.XHB.Gen.Xproto: resource_id_mask_Setup :: Setup -> Word32
- Graphics.XHB.Gen.Xproto: revert_to_GetInputFocusReply :: GetInputFocusReply -> CARD8
+ Graphics.XHB.Gen.Xproto: revert_to_GetInputFocusReply :: GetInputFocusReply -> Word8
- Graphics.XHB.Gen.Xproto: revert_to_SetInputFocus :: SetInputFocus -> CARD8
+ Graphics.XHB.Gen.Xproto: revert_to_SetInputFocus :: SetInputFocus -> Word8
- Graphics.XHB.Gen.Xproto: right_side_bearing_CHARINFO :: CHARINFO -> INT16
+ Graphics.XHB.Gen.Xproto: right_side_bearing_CHARINFO :: CHARINFO -> Int16
- Graphics.XHB.Gen.Xproto: root_depth_SCREEN :: SCREEN -> CARD8
+ Graphics.XHB.Gen.Xproto: root_depth_SCREEN :: SCREEN -> Word8
- Graphics.XHB.Gen.Xproto: root_x_ButtonPress :: ButtonPress -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_ButtonPress :: ButtonPress -> Int16
- Graphics.XHB.Gen.Xproto: root_x_ButtonRelease :: ButtonRelease -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_ButtonRelease :: ButtonRelease -> Int16
- Graphics.XHB.Gen.Xproto: root_x_EnterNotify :: EnterNotify -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_EnterNotify :: EnterNotify -> Int16
- Graphics.XHB.Gen.Xproto: root_x_KeyPress :: KeyPress -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_KeyPress :: KeyPress -> Int16
- Graphics.XHB.Gen.Xproto: root_x_KeyRelease :: KeyRelease -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_KeyRelease :: KeyRelease -> Int16
- Graphics.XHB.Gen.Xproto: root_x_LeaveNotify :: LeaveNotify -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_LeaveNotify :: LeaveNotify -> Int16
- Graphics.XHB.Gen.Xproto: root_x_MotionNotify :: MotionNotify -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_MotionNotify :: MotionNotify -> Int16
- Graphics.XHB.Gen.Xproto: root_x_QueryPointerReply :: QueryPointerReply -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_QueryPointerReply :: QueryPointerReply -> Int16
- Graphics.XHB.Gen.Xproto: root_y_ButtonPress :: ButtonPress -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_ButtonPress :: ButtonPress -> Int16
- Graphics.XHB.Gen.Xproto: root_y_ButtonRelease :: ButtonRelease -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_ButtonRelease :: ButtonRelease -> Int16
- Graphics.XHB.Gen.Xproto: root_y_EnterNotify :: EnterNotify -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_EnterNotify :: EnterNotify -> Int16
- Graphics.XHB.Gen.Xproto: root_y_KeyPress :: KeyPress -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_KeyPress :: KeyPress -> Int16
- Graphics.XHB.Gen.Xproto: root_y_KeyRelease :: KeyRelease -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_KeyRelease :: KeyRelease -> Int16
- Graphics.XHB.Gen.Xproto: root_y_LeaveNotify :: LeaveNotify -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_LeaveNotify :: LeaveNotify -> Int16
- Graphics.XHB.Gen.Xproto: root_y_MotionNotify :: MotionNotify -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_MotionNotify :: MotionNotify -> Int16
- Graphics.XHB.Gen.Xproto: root_y_QueryPointerReply :: QueryPointerReply -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_QueryPointerReply :: QueryPointerReply -> Int16
- Graphics.XHB.Gen.Xproto: roots_len_Setup :: Setup -> CARD8
+ Graphics.XHB.Gen.Xproto: roots_len_Setup :: Setup -> Word8
- Graphics.XHB.Gen.Xproto: same_screen_ButtonPress :: ButtonPress -> BOOL
+ Graphics.XHB.Gen.Xproto: same_screen_ButtonPress :: ButtonPress -> Bool
- Graphics.XHB.Gen.Xproto: same_screen_ButtonRelease :: ButtonRelease -> BOOL
+ Graphics.XHB.Gen.Xproto: same_screen_ButtonRelease :: ButtonRelease -> Bool
- Graphics.XHB.Gen.Xproto: same_screen_KeyPress :: KeyPress -> BOOL
+ Graphics.XHB.Gen.Xproto: same_screen_KeyPress :: KeyPress -> Bool
- Graphics.XHB.Gen.Xproto: same_screen_KeyRelease :: KeyRelease -> BOOL
+ Graphics.XHB.Gen.Xproto: same_screen_KeyRelease :: KeyRelease -> Bool
- Graphics.XHB.Gen.Xproto: same_screen_MotionNotify :: MotionNotify -> BOOL
+ Graphics.XHB.Gen.Xproto: same_screen_MotionNotify :: MotionNotify -> Bool
- Graphics.XHB.Gen.Xproto: same_screen_QueryPointerReply :: QueryPointerReply -> BOOL
+ Graphics.XHB.Gen.Xproto: same_screen_QueryPointerReply :: QueryPointerReply -> Bool
- Graphics.XHB.Gen.Xproto: same_screen_TranslateCoordinatesReply :: TranslateCoordinatesReply -> BOOL
+ Graphics.XHB.Gen.Xproto: same_screen_TranslateCoordinatesReply :: TranslateCoordinatesReply -> Bool
- Graphics.XHB.Gen.Xproto: same_screen_focus_EnterNotify :: EnterNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: same_screen_focus_EnterNotify :: EnterNotify -> Word8
- Graphics.XHB.Gen.Xproto: same_screen_focus_LeaveNotify :: LeaveNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: same_screen_focus_LeaveNotify :: LeaveNotify -> Word8
- Graphics.XHB.Gen.Xproto: save_under_GetWindowAttributesReply :: GetWindowAttributesReply -> BOOL
+ Graphics.XHB.Gen.Xproto: save_under_GetWindowAttributesReply :: GetWindowAttributesReply -> Bool
- Graphics.XHB.Gen.Xproto: save_unders_SCREEN :: SCREEN -> BOOL
+ Graphics.XHB.Gen.Xproto: save_unders_SCREEN :: SCREEN -> Bool
- Graphics.XHB.Gen.Xproto: scanline_pad_FORMAT :: FORMAT -> CARD8
+ Graphics.XHB.Gen.Xproto: scanline_pad_FORMAT :: FORMAT -> Word8
- Graphics.XHB.Gen.Xproto: setAccessControl :: Connection -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Xproto: setAccessControl :: Connection -> Word8 -> IO ()
- Graphics.XHB.Gen.Xproto: setCloseDownMode :: Connection -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Xproto: setCloseDownMode :: Connection -> Word8 -> IO ()
- Graphics.XHB.Gen.Xproto: setFontPath :: Connection -> CARD16 -> [CChar] -> IO ()
+ Graphics.XHB.Gen.Xproto: setFontPath :: Connection -> Word16 -> [CChar] -> IO ()
- Graphics.XHB.Gen.Xproto: setModifierMapping :: Connection -> CARD8 -> [KEYCODE] -> IO (Receipt SetModifierMappingReply)
+ Graphics.XHB.Gen.Xproto: setModifierMapping :: Connection -> Word8 -> [KEYCODE] -> IO (Receipt Word8)
- Graphics.XHB.Gen.Xproto: setPointerMapping :: Connection -> CARD8 -> [CARD8] -> IO (Receipt SetPointerMappingReply)
+ Graphics.XHB.Gen.Xproto: setPointerMapping :: Connection -> Word8 -> [Word8] -> IO (Receipt Word8)
- Graphics.XHB.Gen.Xproto: shape_FillPoly :: FillPoly -> CARD8
+ Graphics.XHB.Gen.Xproto: shape_FillPoly :: FillPoly -> Word8
- Graphics.XHB.Gen.Xproto: source_char_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: source_char_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: src_height_WarpPointer :: WarpPointer -> CARD16
+ Graphics.XHB.Gen.Xproto: src_height_WarpPointer :: WarpPointer -> Word16
- Graphics.XHB.Gen.Xproto: src_width_WarpPointer :: WarpPointer -> CARD16
+ Graphics.XHB.Gen.Xproto: src_width_WarpPointer :: WarpPointer -> Word16
- Graphics.XHB.Gen.Xproto: src_x_CopyArea :: CopyArea -> INT16
+ Graphics.XHB.Gen.Xproto: src_x_CopyArea :: CopyArea -> Int16
- Graphics.XHB.Gen.Xproto: src_x_CopyPlane :: CopyPlane -> INT16
+ Graphics.XHB.Gen.Xproto: src_x_CopyPlane :: CopyPlane -> Int16
- Graphics.XHB.Gen.Xproto: src_x_TranslateCoordinates :: TranslateCoordinates -> INT16
+ Graphics.XHB.Gen.Xproto: src_x_TranslateCoordinates :: TranslateCoordinates -> Int16
- Graphics.XHB.Gen.Xproto: src_x_WarpPointer :: WarpPointer -> INT16
+ Graphics.XHB.Gen.Xproto: src_x_WarpPointer :: WarpPointer -> Int16
- Graphics.XHB.Gen.Xproto: src_y_CopyArea :: CopyArea -> INT16
+ Graphics.XHB.Gen.Xproto: src_y_CopyArea :: CopyArea -> Int16
- Graphics.XHB.Gen.Xproto: src_y_CopyPlane :: CopyPlane -> INT16
+ Graphics.XHB.Gen.Xproto: src_y_CopyPlane :: CopyPlane -> Int16
- Graphics.XHB.Gen.Xproto: src_y_TranslateCoordinates :: TranslateCoordinates -> INT16
+ Graphics.XHB.Gen.Xproto: src_y_TranslateCoordinates :: TranslateCoordinates -> Int16
- Graphics.XHB.Gen.Xproto: src_y_WarpPointer :: WarpPointer -> INT16
+ Graphics.XHB.Gen.Xproto: src_y_WarpPointer :: WarpPointer -> Int16
- Graphics.XHB.Gen.Xproto: stack_mode_ConfigureRequest :: ConfigureRequest -> BYTE
+ Graphics.XHB.Gen.Xproto: stack_mode_ConfigureRequest :: ConfigureRequest -> Word8
- Graphics.XHB.Gen.Xproto: state_ButtonPress :: ButtonPress -> CARD16
+ Graphics.XHB.Gen.Xproto: state_ButtonPress :: ButtonPress -> Word16
- Graphics.XHB.Gen.Xproto: state_ButtonRelease :: ButtonRelease -> CARD16
+ Graphics.XHB.Gen.Xproto: state_ButtonRelease :: ButtonRelease -> Word16
- Graphics.XHB.Gen.Xproto: state_ColormapNotify :: ColormapNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: state_ColormapNotify :: ColormapNotify -> Word8
- Graphics.XHB.Gen.Xproto: state_EnterNotify :: EnterNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: state_EnterNotify :: EnterNotify -> Word16
- Graphics.XHB.Gen.Xproto: state_KeyPress :: KeyPress -> CARD16
+ Graphics.XHB.Gen.Xproto: state_KeyPress :: KeyPress -> Word16
- Graphics.XHB.Gen.Xproto: state_KeyRelease :: KeyRelease -> CARD16
+ Graphics.XHB.Gen.Xproto: state_KeyRelease :: KeyRelease -> Word16
- Graphics.XHB.Gen.Xproto: state_LeaveNotify :: LeaveNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: state_LeaveNotify :: LeaveNotify -> Word16
- Graphics.XHB.Gen.Xproto: state_MotionNotify :: MotionNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: state_MotionNotify :: MotionNotify -> Word16
- Graphics.XHB.Gen.Xproto: state_PropertyNotify :: PropertyNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: state_PropertyNotify :: PropertyNotify -> Word8
- Graphics.XHB.Gen.Xproto: state_VisibilityNotify :: VisibilityNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: state_VisibilityNotify :: VisibilityNotify -> Word8
- Graphics.XHB.Gen.Xproto: status_GrabKeyboardReply :: GrabKeyboardReply -> BYTE
+ Graphics.XHB.Gen.Xproto: status_GrabKeyboardReply :: GrabKeyboardReply -> Word8
- Graphics.XHB.Gen.Xproto: status_GrabPointerReply :: GrabPointerReply -> BYTE
+ Graphics.XHB.Gen.Xproto: status_GrabPointerReply :: GrabPointerReply -> Word8
- Graphics.XHB.Gen.Xproto: status_SetModifierMappingReply :: SetModifierMappingReply -> BYTE
+ Graphics.XHB.Gen.Xproto: status_SetModifierMappingReply :: SetModifierMappingReply -> Word8
- Graphics.XHB.Gen.Xproto: status_SetPointerMappingReply :: SetPointerMappingReply -> BYTE
+ Graphics.XHB.Gen.Xproto: status_SetPointerMappingReply :: SetPointerMappingReply -> Word8
- Graphics.XHB.Gen.Xproto: status_Setup :: Setup -> CARD8
+ Graphics.XHB.Gen.Xproto: status_Setup :: Setup -> Word8
- Graphics.XHB.Gen.Xproto: status_SetupAuthenticate :: SetupAuthenticate -> CARD8
+ Graphics.XHB.Gen.Xproto: status_SetupAuthenticate :: SetupAuthenticate -> Word8
- Graphics.XHB.Gen.Xproto: status_SetupFailed :: SetupFailed -> CARD8
+ Graphics.XHB.Gen.Xproto: status_SetupFailed :: SetupFailed -> Word8
- Graphics.XHB.Gen.Xproto: string_len_ImageText16 :: ImageText16 -> BYTE
+ Graphics.XHB.Gen.Xproto: string_len_ImageText16 :: ImageText16 -> Word8
- Graphics.XHB.Gen.Xproto: string_len_ImageText8 :: ImageText8 -> BYTE
+ Graphics.XHB.Gen.Xproto: string_len_ImageText8 :: ImageText8 -> Word8
- Graphics.XHB.Gen.Xproto: threshold_ChangePointerControl :: ChangePointerControl -> INT16
+ Graphics.XHB.Gen.Xproto: threshold_ChangePointerControl :: ChangePointerControl -> Int16
- Graphics.XHB.Gen.Xproto: threshold_GetPointerControlReply :: GetPointerControlReply -> CARD16
+ Graphics.XHB.Gen.Xproto: threshold_GetPointerControlReply :: GetPointerControlReply -> Word16
- Graphics.XHB.Gen.Xproto: timeout_GetScreenSaverReply :: GetScreenSaverReply -> CARD16
+ Graphics.XHB.Gen.Xproto: timeout_GetScreenSaverReply :: GetScreenSaverReply -> Word16
- Graphics.XHB.Gen.Xproto: timeout_SetScreenSaver :: SetScreenSaver -> INT16
+ Graphics.XHB.Gen.Xproto: timeout_SetScreenSaver :: SetScreenSaver -> Int16
- Graphics.XHB.Gen.Xproto: type BUTTON = CARD8
+ Graphics.XHB.Gen.Xproto: type BUTTON = Word8
- Graphics.XHB.Gen.Xproto: type KEYCODE = CARD8
+ Graphics.XHB.Gen.Xproto: type KEYCODE = Word8
- Graphics.XHB.Gen.Xproto: type KEYSYM = CARD32
+ Graphics.XHB.Gen.Xproto: type KEYSYM = Word32
- Graphics.XHB.Gen.Xproto: type TIMESTAMP = CARD32
+ Graphics.XHB.Gen.Xproto: type TIMESTAMP = Word32
- Graphics.XHB.Gen.Xproto: type VISUALID = CARD32
+ Graphics.XHB.Gen.Xproto: type VISUALID = Word32
- Graphics.XHB.Gen.Xproto: value_ChangeGC :: ChangeGC -> ValueParam CARD32
+ Graphics.XHB.Gen.Xproto: value_ChangeGC :: ChangeGC -> ValueParam Word32
- Graphics.XHB.Gen.Xproto: value_ChangeKeyboardControl :: ChangeKeyboardControl -> ValueParam CARD32
+ Graphics.XHB.Gen.Xproto: value_ChangeKeyboardControl :: ChangeKeyboardControl -> ValueParam Word32
- Graphics.XHB.Gen.Xproto: value_ChangeWindowAttributes :: ChangeWindowAttributes -> ValueParam CARD32
+ Graphics.XHB.Gen.Xproto: value_ChangeWindowAttributes :: ChangeWindowAttributes -> ValueParam Word32
- Graphics.XHB.Gen.Xproto: value_ConfigureWindow :: ConfigureWindow -> ValueParam CARD16
+ Graphics.XHB.Gen.Xproto: value_ConfigureWindow :: ConfigureWindow -> ValueParam Word16
- Graphics.XHB.Gen.Xproto: value_CreateGC :: CreateGC -> ValueParam CARD32
+ Graphics.XHB.Gen.Xproto: value_CreateGC :: CreateGC -> ValueParam Word32
- Graphics.XHB.Gen.Xproto: value_CreateWindow :: CreateWindow -> ValueParam CARD32
+ Graphics.XHB.Gen.Xproto: value_CreateWindow :: CreateWindow -> ValueParam Word32
- Graphics.XHB.Gen.Xproto: value_FONTPROP :: FONTPROP -> CARD32
+ Graphics.XHB.Gen.Xproto: value_FONTPROP :: FONTPROP -> Word32
- Graphics.XHB.Gen.Xproto: value_len_GetPropertyReply :: GetPropertyReply -> CARD32
+ Graphics.XHB.Gen.Xproto: value_len_GetPropertyReply :: GetPropertyReply -> Word32
- Graphics.XHB.Gen.Xproto: value_mask_ConfigureRequest :: ConfigureRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: value_mask_ConfigureRequest :: ConfigureRequest -> Word16
- Graphics.XHB.Gen.Xproto: value_mask_CopyGC :: CopyGC -> CARD32
+ Graphics.XHB.Gen.Xproto: value_mask_CopyGC :: CopyGC -> Word32
- Graphics.XHB.Gen.Xproto: vendor_len_Setup :: Setup -> CARD16
+ Graphics.XHB.Gen.Xproto: vendor_len_Setup :: Setup -> Word16
- Graphics.XHB.Gen.Xproto: visual_blue_AllocNamedColorReply :: AllocNamedColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: visual_blue_AllocNamedColorReply :: AllocNamedColorReply -> Word16
- Graphics.XHB.Gen.Xproto: visual_blue_LookupColorReply :: LookupColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: visual_blue_LookupColorReply :: LookupColorReply -> Word16
- Graphics.XHB.Gen.Xproto: visual_green_AllocNamedColorReply :: AllocNamedColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: visual_green_AllocNamedColorReply :: AllocNamedColorReply -> Word16
- Graphics.XHB.Gen.Xproto: visual_green_LookupColorReply :: LookupColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: visual_green_LookupColorReply :: LookupColorReply -> Word16
- Graphics.XHB.Gen.Xproto: visual_red_AllocNamedColorReply :: AllocNamedColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: visual_red_AllocNamedColorReply :: AllocNamedColorReply -> Word16
- Graphics.XHB.Gen.Xproto: visual_red_LookupColorReply :: LookupColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: visual_red_LookupColorReply :: LookupColorReply -> Word16
- Graphics.XHB.Gen.Xproto: visuals_len_DEPTH :: DEPTH -> CARD16
+ Graphics.XHB.Gen.Xproto: visuals_len_DEPTH :: DEPTH -> Word16
- Graphics.XHB.Gen.Xproto: white_pixel_SCREEN :: SCREEN -> CARD32
+ Graphics.XHB.Gen.Xproto: white_pixel_SCREEN :: SCREEN -> Word32
- Graphics.XHB.Gen.Xproto: width_ARC :: ARC -> CARD16
+ Graphics.XHB.Gen.Xproto: width_ARC :: ARC -> Word16
- Graphics.XHB.Gen.Xproto: width_ClearArea :: ClearArea -> CARD16
+ Graphics.XHB.Gen.Xproto: width_ClearArea :: ClearArea -> Word16
- Graphics.XHB.Gen.Xproto: width_ConfigureNotify :: ConfigureNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: width_ConfigureNotify :: ConfigureNotify -> Word16
- Graphics.XHB.Gen.Xproto: width_ConfigureRequest :: ConfigureRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: width_ConfigureRequest :: ConfigureRequest -> Word16
- Graphics.XHB.Gen.Xproto: width_CopyArea :: CopyArea -> CARD16
+ Graphics.XHB.Gen.Xproto: width_CopyArea :: CopyArea -> Word16
- Graphics.XHB.Gen.Xproto: width_CopyPlane :: CopyPlane -> CARD16
+ Graphics.XHB.Gen.Xproto: width_CopyPlane :: CopyPlane -> Word16
- Graphics.XHB.Gen.Xproto: width_CreateNotify :: CreateNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: width_CreateNotify :: CreateNotify -> Word16
- Graphics.XHB.Gen.Xproto: width_CreatePixmap :: CreatePixmap -> CARD16
+ Graphics.XHB.Gen.Xproto: width_CreatePixmap :: CreatePixmap -> Word16
- Graphics.XHB.Gen.Xproto: width_CreateWindow :: CreateWindow -> CARD16
+ Graphics.XHB.Gen.Xproto: width_CreateWindow :: CreateWindow -> Word16
- Graphics.XHB.Gen.Xproto: width_Expose :: Expose -> CARD16
+ Graphics.XHB.Gen.Xproto: width_Expose :: Expose -> Word16
- Graphics.XHB.Gen.Xproto: width_GetGeometryReply :: GetGeometryReply -> CARD16
+ Graphics.XHB.Gen.Xproto: width_GetGeometryReply :: GetGeometryReply -> Word16
- Graphics.XHB.Gen.Xproto: width_GetImage :: GetImage -> CARD16
+ Graphics.XHB.Gen.Xproto: width_GetImage :: GetImage -> Word16
- Graphics.XHB.Gen.Xproto: width_GraphicsExposure :: GraphicsExposure -> CARD16
+ Graphics.XHB.Gen.Xproto: width_GraphicsExposure :: GraphicsExposure -> Word16
- Graphics.XHB.Gen.Xproto: width_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xproto: width_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xproto: width_QueryBestSize :: QueryBestSize -> CARD16
+ Graphics.XHB.Gen.Xproto: width_QueryBestSize :: QueryBestSize -> Word16
- Graphics.XHB.Gen.Xproto: width_QueryBestSizeReply :: QueryBestSizeReply -> CARD16
+ Graphics.XHB.Gen.Xproto: width_QueryBestSizeReply :: QueryBestSizeReply -> Word16
- Graphics.XHB.Gen.Xproto: width_RECTANGLE :: RECTANGLE -> CARD16
+ Graphics.XHB.Gen.Xproto: width_RECTANGLE :: RECTANGLE -> Word16
- Graphics.XHB.Gen.Xproto: width_ResizeRequest :: ResizeRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: width_ResizeRequest :: ResizeRequest -> Word16
- Graphics.XHB.Gen.Xproto: width_in_millimeters_SCREEN :: SCREEN -> CARD16
+ Graphics.XHB.Gen.Xproto: width_in_millimeters_SCREEN :: SCREEN -> Word16
- Graphics.XHB.Gen.Xproto: width_in_pixels_SCREEN :: SCREEN -> CARD16
+ Graphics.XHB.Gen.Xproto: width_in_pixels_SCREEN :: SCREEN -> Word16
- Graphics.XHB.Gen.Xproto: win_gravity_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD8
+ Graphics.XHB.Gen.Xproto: win_gravity_GetWindowAttributesReply :: GetWindowAttributesReply -> Word8
- Graphics.XHB.Gen.Xproto: win_x_QueryPointerReply :: QueryPointerReply -> INT16
+ Graphics.XHB.Gen.Xproto: win_x_QueryPointerReply :: QueryPointerReply -> Int16
- Graphics.XHB.Gen.Xproto: win_y_QueryPointerReply :: QueryPointerReply -> INT16
+ Graphics.XHB.Gen.Xproto: win_y_QueryPointerReply :: QueryPointerReply -> Int16
- Graphics.XHB.Gen.Xproto: x1_SEGMENT :: SEGMENT -> INT16
+ Graphics.XHB.Gen.Xproto: x1_SEGMENT :: SEGMENT -> Int16
- Graphics.XHB.Gen.Xproto: x2_SEGMENT :: SEGMENT -> INT16
+ Graphics.XHB.Gen.Xproto: x2_SEGMENT :: SEGMENT -> Int16
- Graphics.XHB.Gen.Xproto: x_ARC :: ARC -> INT16
+ Graphics.XHB.Gen.Xproto: x_ARC :: ARC -> Int16
- Graphics.XHB.Gen.Xproto: x_ClearArea :: ClearArea -> INT16
+ Graphics.XHB.Gen.Xproto: x_ClearArea :: ClearArea -> Int16
- Graphics.XHB.Gen.Xproto: x_ConfigureNotify :: ConfigureNotify -> INT16
+ Graphics.XHB.Gen.Xproto: x_ConfigureNotify :: ConfigureNotify -> Int16
- Graphics.XHB.Gen.Xproto: x_ConfigureRequest :: ConfigureRequest -> INT16
+ Graphics.XHB.Gen.Xproto: x_ConfigureRequest :: ConfigureRequest -> Int16
- Graphics.XHB.Gen.Xproto: x_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: x_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: x_CreateNotify :: CreateNotify -> INT16
+ Graphics.XHB.Gen.Xproto: x_CreateNotify :: CreateNotify -> Int16
- Graphics.XHB.Gen.Xproto: x_CreateWindow :: CreateWindow -> INT16
+ Graphics.XHB.Gen.Xproto: x_CreateWindow :: CreateWindow -> Int16
- Graphics.XHB.Gen.Xproto: x_Expose :: Expose -> CARD16
+ Graphics.XHB.Gen.Xproto: x_Expose :: Expose -> Word16
- Graphics.XHB.Gen.Xproto: x_GetGeometryReply :: GetGeometryReply -> INT16
+ Graphics.XHB.Gen.Xproto: x_GetGeometryReply :: GetGeometryReply -> Int16
- Graphics.XHB.Gen.Xproto: x_GetImage :: GetImage -> INT16
+ Graphics.XHB.Gen.Xproto: x_GetImage :: GetImage -> Int16
- Graphics.XHB.Gen.Xproto: x_GraphicsExposure :: GraphicsExposure -> CARD16
+ Graphics.XHB.Gen.Xproto: x_GraphicsExposure :: GraphicsExposure -> Word16
- Graphics.XHB.Gen.Xproto: x_GravityNotify :: GravityNotify -> INT16
+ Graphics.XHB.Gen.Xproto: x_GravityNotify :: GravityNotify -> Int16
- Graphics.XHB.Gen.Xproto: x_ImageText16 :: ImageText16 -> INT16
+ Graphics.XHB.Gen.Xproto: x_ImageText16 :: ImageText16 -> Int16
- Graphics.XHB.Gen.Xproto: x_ImageText8 :: ImageText8 -> INT16
+ Graphics.XHB.Gen.Xproto: x_ImageText8 :: ImageText8 -> Int16
- Graphics.XHB.Gen.Xproto: x_POINT :: POINT -> INT16
+ Graphics.XHB.Gen.Xproto: x_POINT :: POINT -> Int16
- Graphics.XHB.Gen.Xproto: x_PolyText16 :: PolyText16 -> INT16
+ Graphics.XHB.Gen.Xproto: x_PolyText16 :: PolyText16 -> Int16
- Graphics.XHB.Gen.Xproto: x_PolyText8 :: PolyText8 -> INT16
+ Graphics.XHB.Gen.Xproto: x_PolyText8 :: PolyText8 -> Int16
- Graphics.XHB.Gen.Xproto: x_RECTANGLE :: RECTANGLE -> INT16
+ Graphics.XHB.Gen.Xproto: x_RECTANGLE :: RECTANGLE -> Int16
- Graphics.XHB.Gen.Xproto: x_ReparentNotify :: ReparentNotify -> INT16
+ Graphics.XHB.Gen.Xproto: x_ReparentNotify :: ReparentNotify -> Int16
- Graphics.XHB.Gen.Xproto: x_ReparentWindow :: ReparentWindow -> INT16
+ Graphics.XHB.Gen.Xproto: x_ReparentWindow :: ReparentWindow -> Int16
- Graphics.XHB.Gen.Xproto: x_TIMECOORD :: TIMECOORD -> INT16
+ Graphics.XHB.Gen.Xproto: x_TIMECOORD :: TIMECOORD -> Int16
- Graphics.XHB.Gen.Xproto: y1_SEGMENT :: SEGMENT -> INT16
+ Graphics.XHB.Gen.Xproto: y1_SEGMENT :: SEGMENT -> Int16
- Graphics.XHB.Gen.Xproto: y2_SEGMENT :: SEGMENT -> INT16
+ Graphics.XHB.Gen.Xproto: y2_SEGMENT :: SEGMENT -> Int16
- Graphics.XHB.Gen.Xproto: y_ARC :: ARC -> INT16
+ Graphics.XHB.Gen.Xproto: y_ARC :: ARC -> Int16
- Graphics.XHB.Gen.Xproto: y_ClearArea :: ClearArea -> INT16
+ Graphics.XHB.Gen.Xproto: y_ClearArea :: ClearArea -> Int16
- Graphics.XHB.Gen.Xproto: y_ConfigureNotify :: ConfigureNotify -> INT16
+ Graphics.XHB.Gen.Xproto: y_ConfigureNotify :: ConfigureNotify -> Int16
- Graphics.XHB.Gen.Xproto: y_ConfigureRequest :: ConfigureRequest -> INT16
+ Graphics.XHB.Gen.Xproto: y_ConfigureRequest :: ConfigureRequest -> Int16
- Graphics.XHB.Gen.Xproto: y_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: y_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: y_CreateNotify :: CreateNotify -> INT16
+ Graphics.XHB.Gen.Xproto: y_CreateNotify :: CreateNotify -> Int16
- Graphics.XHB.Gen.Xproto: y_CreateWindow :: CreateWindow -> INT16
+ Graphics.XHB.Gen.Xproto: y_CreateWindow :: CreateWindow -> Int16
- Graphics.XHB.Gen.Xproto: y_Expose :: Expose -> CARD16
+ Graphics.XHB.Gen.Xproto: y_Expose :: Expose -> Word16
- Graphics.XHB.Gen.Xproto: y_GetGeometryReply :: GetGeometryReply -> INT16
+ Graphics.XHB.Gen.Xproto: y_GetGeometryReply :: GetGeometryReply -> Int16
- Graphics.XHB.Gen.Xproto: y_GetImage :: GetImage -> INT16
+ Graphics.XHB.Gen.Xproto: y_GetImage :: GetImage -> Int16
- Graphics.XHB.Gen.Xproto: y_GraphicsExposure :: GraphicsExposure -> CARD16
+ Graphics.XHB.Gen.Xproto: y_GraphicsExposure :: GraphicsExposure -> Word16
- Graphics.XHB.Gen.Xproto: y_GravityNotify :: GravityNotify -> INT16
+ Graphics.XHB.Gen.Xproto: y_GravityNotify :: GravityNotify -> Int16
- Graphics.XHB.Gen.Xproto: y_ImageText16 :: ImageText16 -> INT16
+ Graphics.XHB.Gen.Xproto: y_ImageText16 :: ImageText16 -> Int16
- Graphics.XHB.Gen.Xproto: y_ImageText8 :: ImageText8 -> INT16
+ Graphics.XHB.Gen.Xproto: y_ImageText8 :: ImageText8 -> Int16
- Graphics.XHB.Gen.Xproto: y_POINT :: POINT -> INT16
+ Graphics.XHB.Gen.Xproto: y_POINT :: POINT -> Int16
- Graphics.XHB.Gen.Xproto: y_PolyText16 :: PolyText16 -> INT16
+ Graphics.XHB.Gen.Xproto: y_PolyText16 :: PolyText16 -> Int16
- Graphics.XHB.Gen.Xproto: y_PolyText8 :: PolyText8 -> INT16
+ Graphics.XHB.Gen.Xproto: y_PolyText8 :: PolyText8 -> Int16
- Graphics.XHB.Gen.Xproto: y_RECTANGLE :: RECTANGLE -> INT16
+ Graphics.XHB.Gen.Xproto: y_RECTANGLE :: RECTANGLE -> Int16
- Graphics.XHB.Gen.Xproto: y_ReparentNotify :: ReparentNotify -> INT16
+ Graphics.XHB.Gen.Xproto: y_ReparentNotify :: ReparentNotify -> Int16
- Graphics.XHB.Gen.Xproto: y_ReparentWindow :: ReparentWindow -> INT16
+ Graphics.XHB.Gen.Xproto: y_ReparentWindow :: ReparentWindow -> Int16
- Graphics.XHB.Gen.Xproto: y_TIMECOORD :: TIMECOORD -> INT16
+ Graphics.XHB.Gen.Xproto: y_TIMECOORD :: TIMECOORD -> Int16
- Graphics.XHB.Gen.Xproto: your_event_mask_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xproto: your_event_mask_GetWindowAttributesReply :: GetWindowAttributesReply -> Word32
- Graphics.XHB.Gen.Xv: MkAdaptorInfo :: PORT -> CARD16 -> CARD16 -> CARD16 -> CARD8 -> [CChar] -> [Format] -> AdaptorInfo
+ Graphics.XHB.Gen.Xv: MkAdaptorInfo :: PORT -> Word16 -> Word16 -> Word16 -> Word8 -> [CChar] -> [Format] -> AdaptorInfo
- Graphics.XHB.Gen.Xv: MkAttributeInfo :: CARD32 -> INT32 -> INT32 -> CARD32 -> [CChar] -> AttributeInfo
+ Graphics.XHB.Gen.Xv: MkAttributeInfo :: Word32 -> Int32 -> Int32 -> Word32 -> [CChar] -> AttributeInfo
- Graphics.XHB.Gen.Xv: MkEncodingInfo :: ENCODING -> CARD16 -> CARD16 -> CARD16 -> Rational -> [CChar] -> EncodingInfo
+ Graphics.XHB.Gen.Xv: MkEncodingInfo :: ENCODING -> Word16 -> Word16 -> Word16 -> Rational -> [CChar] -> EncodingInfo
- Graphics.XHB.Gen.Xv: MkFormat :: VISUALID -> CARD8 -> Format
+ Graphics.XHB.Gen.Xv: MkFormat :: VISUALID -> Word8 -> Format
- Graphics.XHB.Gen.Xv: MkGetPortAttributeReply :: INT32 -> GetPortAttributeReply
+ Graphics.XHB.Gen.Xv: MkGetPortAttributeReply :: Int32 -> GetPortAttributeReply
- Graphics.XHB.Gen.Xv: MkGetStill :: PORT -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> GetStill
+ Graphics.XHB.Gen.Xv: MkGetStill :: PORT -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> GetStill
- Graphics.XHB.Gen.Xv: MkGetVideo :: PORT -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> GetVideo
+ Graphics.XHB.Gen.Xv: MkGetVideo :: PORT -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> GetVideo
- Graphics.XHB.Gen.Xv: MkGrabPortReply :: BYTE -> GrabPortReply
+ Graphics.XHB.Gen.Xv: MkGrabPortReply :: Word8 -> GrabPortReply
- Graphics.XHB.Gen.Xv: MkImage :: CARD32 -> CARD16 -> CARD16 -> CARD32 -> CARD32 -> [CARD32] -> [CARD32] -> [CARD8] -> Image
+ Graphics.XHB.Gen.Xv: MkImage :: Word32 -> Word16 -> Word16 -> Word32 -> Word32 -> [Word32] -> [Word32] -> [Word8] -> Image
- Graphics.XHB.Gen.Xv: MkImageFormatInfo :: CARD32 -> CARD8 -> CARD8 -> [CARD8] -> CARD8 -> CARD8 -> CARD8 -> CARD32 -> CARD32 -> CARD32 -> CARD8 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> [CARD8] -> CARD8 -> ImageFormatInfo
+ Graphics.XHB.Gen.Xv: MkImageFormatInfo :: Word32 -> Word8 -> Word8 -> [Word8] -> Word8 -> Word8 -> Word8 -> Word32 -> Word32 -> Word32 -> Word8 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> [Word8] -> Word8 -> ImageFormatInfo
- Graphics.XHB.Gen.Xv: MkListImageFormatsReply :: CARD32 -> [ImageFormatInfo] -> ListImageFormatsReply
+ Graphics.XHB.Gen.Xv: MkListImageFormatsReply :: Word32 -> [ImageFormatInfo] -> ListImageFormatsReply
- Graphics.XHB.Gen.Xv: MkPortNotify :: TIMESTAMP -> PORT -> ATOM -> INT32 -> PortNotify
+ Graphics.XHB.Gen.Xv: MkPortNotify :: TIMESTAMP -> PORT -> ATOM -> Int32 -> PortNotify
- Graphics.XHB.Gen.Xv: MkPutImage :: PORT -> DRAWABLE -> GCONTEXT -> CARD32 -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> [CARD8] -> PutImage
+ Graphics.XHB.Gen.Xv: MkPutImage :: PORT -> DRAWABLE -> GCONTEXT -> Word32 -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Word16 -> [Word8] -> PutImage
- Graphics.XHB.Gen.Xv: MkPutStill :: PORT -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> PutStill
+ Graphics.XHB.Gen.Xv: MkPutStill :: PORT -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> PutStill
- Graphics.XHB.Gen.Xv: MkPutVideo :: PORT -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> PutVideo
+ Graphics.XHB.Gen.Xv: MkPutVideo :: PORT -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> PutVideo
- Graphics.XHB.Gen.Xv: MkQueryAdaptorsReply :: CARD16 -> [AdaptorInfo] -> QueryAdaptorsReply
+ Graphics.XHB.Gen.Xv: MkQueryAdaptorsReply :: Word16 -> [AdaptorInfo] -> QueryAdaptorsReply
- Graphics.XHB.Gen.Xv: MkQueryBestSize :: PORT -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> BOOL -> QueryBestSize
+ Graphics.XHB.Gen.Xv: MkQueryBestSize :: PORT -> Word16 -> Word16 -> Word16 -> Word16 -> Bool -> QueryBestSize
- Graphics.XHB.Gen.Xv: MkQueryBestSizeReply :: CARD16 -> CARD16 -> QueryBestSizeReply
+ Graphics.XHB.Gen.Xv: MkQueryBestSizeReply :: Word16 -> Word16 -> QueryBestSizeReply
- Graphics.XHB.Gen.Xv: MkQueryEncodingsReply :: CARD16 -> [EncodingInfo] -> QueryEncodingsReply
+ Graphics.XHB.Gen.Xv: MkQueryEncodingsReply :: Word16 -> [EncodingInfo] -> QueryEncodingsReply
- Graphics.XHB.Gen.Xv: MkQueryExtensionReply :: CARD16 -> CARD16 -> QueryExtensionReply
+ Graphics.XHB.Gen.Xv: MkQueryExtensionReply :: Word16 -> Word16 -> QueryExtensionReply
- Graphics.XHB.Gen.Xv: MkQueryImageAttributes :: PORT -> CARD32 -> CARD16 -> CARD16 -> QueryImageAttributes
+ Graphics.XHB.Gen.Xv: MkQueryImageAttributes :: PORT -> Word32 -> Word16 -> Word16 -> QueryImageAttributes
- Graphics.XHB.Gen.Xv: MkQueryImageAttributesReply :: CARD32 -> CARD32 -> CARD16 -> CARD16 -> [CARD32] -> [CARD32] -> QueryImageAttributesReply
+ Graphics.XHB.Gen.Xv: MkQueryImageAttributesReply :: Word32 -> Word32 -> Word16 -> Word16 -> [Word32] -> [Word32] -> QueryImageAttributesReply
- Graphics.XHB.Gen.Xv: MkQueryPortAttributesReply :: CARD32 -> CARD32 -> [AttributeInfo] -> QueryPortAttributesReply
+ Graphics.XHB.Gen.Xv: MkQueryPortAttributesReply :: Word32 -> Word32 -> [AttributeInfo] -> QueryPortAttributesReply
- Graphics.XHB.Gen.Xv: MkRational :: INT32 -> INT32 -> Rational
+ Graphics.XHB.Gen.Xv: MkRational :: Int32 -> Int32 -> Rational
- Graphics.XHB.Gen.Xv: MkSelectPortNotify :: PORT -> BOOL -> SelectPortNotify
+ Graphics.XHB.Gen.Xv: MkSelectPortNotify :: PORT -> Bool -> SelectPortNotify
- Graphics.XHB.Gen.Xv: MkSelectVideoNotify :: DRAWABLE -> BOOL -> SelectVideoNotify
+ Graphics.XHB.Gen.Xv: MkSelectVideoNotify :: DRAWABLE -> Bool -> SelectVideoNotify
- Graphics.XHB.Gen.Xv: MkSetPortAttribute :: PORT -> ATOM -> INT32 -> SetPortAttribute
+ Graphics.XHB.Gen.Xv: MkSetPortAttribute :: PORT -> ATOM -> Int32 -> SetPortAttribute
- Graphics.XHB.Gen.Xv: MkShmPutImage :: PORT -> DRAWABLE -> GCONTEXT -> SEG -> CARD32 -> CARD32 -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD8 -> ShmPutImage
+ Graphics.XHB.Gen.Xv: MkShmPutImage :: PORT -> DRAWABLE -> GCONTEXT -> SEG -> Word32 -> Word32 -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word8 -> ShmPutImage
- Graphics.XHB.Gen.Xv: MkVideoNotify :: BYTE -> TIMESTAMP -> DRAWABLE -> PORT -> VideoNotify
+ Graphics.XHB.Gen.Xv: MkVideoNotify :: Word8 -> TIMESTAMP -> DRAWABLE -> PORT -> VideoNotify
- Graphics.XHB.Gen.Xv: actual_height_QueryBestSizeReply :: QueryBestSizeReply -> CARD16
+ Graphics.XHB.Gen.Xv: actual_height_QueryBestSizeReply :: QueryBestSizeReply -> Word16
- Graphics.XHB.Gen.Xv: actual_width_QueryBestSizeReply :: QueryBestSizeReply -> CARD16
+ Graphics.XHB.Gen.Xv: actual_width_QueryBestSizeReply :: QueryBestSizeReply -> Word16
- Graphics.XHB.Gen.Xv: blue_mask_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: blue_mask_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: bpp_ImageFormatInfo :: ImageFormatInfo -> CARD8
+ Graphics.XHB.Gen.Xv: bpp_ImageFormatInfo :: ImageFormatInfo -> Word8
- Graphics.XHB.Gen.Xv: byte_order_ImageFormatInfo :: ImageFormatInfo -> CARD8
+ Graphics.XHB.Gen.Xv: byte_order_ImageFormatInfo :: ImageFormatInfo -> Word8
- Graphics.XHB.Gen.Xv: data_Image :: Image -> [CARD8]
+ Graphics.XHB.Gen.Xv: data_Image :: Image -> [Word8]
- Graphics.XHB.Gen.Xv: data_PutImage :: PutImage -> [CARD8]
+ Graphics.XHB.Gen.Xv: data_PutImage :: PutImage -> [Word8]
- Graphics.XHB.Gen.Xv: data_size_Image :: Image -> CARD32
+ Graphics.XHB.Gen.Xv: data_size_Image :: Image -> Word32
- Graphics.XHB.Gen.Xv: data_size_QueryImageAttributesReply :: QueryImageAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xv: data_size_QueryImageAttributesReply :: QueryImageAttributesReply -> Word32
- Graphics.XHB.Gen.Xv: denominator_Rational :: Rational -> INT32
+ Graphics.XHB.Gen.Xv: denominator_Rational :: Rational -> Int32
- Graphics.XHB.Gen.Xv: depth_Format :: Format -> CARD8
+ Graphics.XHB.Gen.Xv: depth_Format :: Format -> Word8
- Graphics.XHB.Gen.Xv: depth_ImageFormatInfo :: ImageFormatInfo -> CARD8
+ Graphics.XHB.Gen.Xv: depth_ImageFormatInfo :: ImageFormatInfo -> Word8
- Graphics.XHB.Gen.Xv: drw_h_GetStill :: GetStill -> CARD16
+ Graphics.XHB.Gen.Xv: drw_h_GetStill :: GetStill -> Word16
- Graphics.XHB.Gen.Xv: drw_h_GetVideo :: GetVideo -> CARD16
+ Graphics.XHB.Gen.Xv: drw_h_GetVideo :: GetVideo -> Word16
- Graphics.XHB.Gen.Xv: drw_h_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xv: drw_h_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xv: drw_h_PutStill :: PutStill -> CARD16
+ Graphics.XHB.Gen.Xv: drw_h_PutStill :: PutStill -> Word16
- Graphics.XHB.Gen.Xv: drw_h_PutVideo :: PutVideo -> CARD16
+ Graphics.XHB.Gen.Xv: drw_h_PutVideo :: PutVideo -> Word16
- Graphics.XHB.Gen.Xv: drw_h_QueryBestSize :: QueryBestSize -> CARD16
+ Graphics.XHB.Gen.Xv: drw_h_QueryBestSize :: QueryBestSize -> Word16
- Graphics.XHB.Gen.Xv: drw_h_ShmPutImage :: ShmPutImage -> CARD16
+ Graphics.XHB.Gen.Xv: drw_h_ShmPutImage :: ShmPutImage -> Word16
- Graphics.XHB.Gen.Xv: drw_w_GetStill :: GetStill -> CARD16
+ Graphics.XHB.Gen.Xv: drw_w_GetStill :: GetStill -> Word16
- Graphics.XHB.Gen.Xv: drw_w_GetVideo :: GetVideo -> CARD16
+ Graphics.XHB.Gen.Xv: drw_w_GetVideo :: GetVideo -> Word16
- Graphics.XHB.Gen.Xv: drw_w_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xv: drw_w_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xv: drw_w_PutStill :: PutStill -> CARD16
+ Graphics.XHB.Gen.Xv: drw_w_PutStill :: PutStill -> Word16
- Graphics.XHB.Gen.Xv: drw_w_PutVideo :: PutVideo -> CARD16
+ Graphics.XHB.Gen.Xv: drw_w_PutVideo :: PutVideo -> Word16
- Graphics.XHB.Gen.Xv: drw_w_QueryBestSize :: QueryBestSize -> CARD16
+ Graphics.XHB.Gen.Xv: drw_w_QueryBestSize :: QueryBestSize -> Word16
- Graphics.XHB.Gen.Xv: drw_w_ShmPutImage :: ShmPutImage -> CARD16
+ Graphics.XHB.Gen.Xv: drw_w_ShmPutImage :: ShmPutImage -> Word16
- Graphics.XHB.Gen.Xv: drw_x_GetStill :: GetStill -> INT16
+ Graphics.XHB.Gen.Xv: drw_x_GetStill :: GetStill -> Int16
- Graphics.XHB.Gen.Xv: drw_x_GetVideo :: GetVideo -> INT16
+ Graphics.XHB.Gen.Xv: drw_x_GetVideo :: GetVideo -> Int16
- Graphics.XHB.Gen.Xv: drw_x_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Xv: drw_x_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Xv: drw_x_PutStill :: PutStill -> INT16
+ Graphics.XHB.Gen.Xv: drw_x_PutStill :: PutStill -> Int16
- Graphics.XHB.Gen.Xv: drw_x_PutVideo :: PutVideo -> INT16
+ Graphics.XHB.Gen.Xv: drw_x_PutVideo :: PutVideo -> Int16
- Graphics.XHB.Gen.Xv: drw_x_ShmPutImage :: ShmPutImage -> INT16
+ Graphics.XHB.Gen.Xv: drw_x_ShmPutImage :: ShmPutImage -> Int16
- Graphics.XHB.Gen.Xv: drw_y_GetStill :: GetStill -> INT16
+ Graphics.XHB.Gen.Xv: drw_y_GetStill :: GetStill -> Int16
- Graphics.XHB.Gen.Xv: drw_y_GetVideo :: GetVideo -> INT16
+ Graphics.XHB.Gen.Xv: drw_y_GetVideo :: GetVideo -> Int16
- Graphics.XHB.Gen.Xv: drw_y_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Xv: drw_y_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Xv: drw_y_PutStill :: PutStill -> INT16
+ Graphics.XHB.Gen.Xv: drw_y_PutStill :: PutStill -> Int16
- Graphics.XHB.Gen.Xv: drw_y_PutVideo :: PutVideo -> INT16
+ Graphics.XHB.Gen.Xv: drw_y_PutVideo :: PutVideo -> Int16
- Graphics.XHB.Gen.Xv: drw_y_ShmPutImage :: ShmPutImage -> INT16
+ Graphics.XHB.Gen.Xv: drw_y_ShmPutImage :: ShmPutImage -> Int16
- Graphics.XHB.Gen.Xv: flags_AttributeInfo :: AttributeInfo -> CARD32
+ Graphics.XHB.Gen.Xv: flags_AttributeInfo :: AttributeInfo -> Word32
- Graphics.XHB.Gen.Xv: format_ImageFormatInfo :: ImageFormatInfo -> CARD8
+ Graphics.XHB.Gen.Xv: format_ImageFormatInfo :: ImageFormatInfo -> Word8
- Graphics.XHB.Gen.Xv: getPortAttribute :: Connection -> PORT -> ATOM -> IO (Receipt GetPortAttributeReply)
+ Graphics.XHB.Gen.Xv: getPortAttribute :: Connection -> PORT -> ATOM -> IO (Receipt Int32)
- Graphics.XHB.Gen.Xv: grabPort :: Connection -> PORT -> TIMESTAMP -> IO (Receipt GrabPortReply)
+ Graphics.XHB.Gen.Xv: grabPort :: Connection -> PORT -> TIMESTAMP -> IO (Receipt Word8)
- Graphics.XHB.Gen.Xv: green_mask_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: green_mask_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: guid_ImageFormatInfo :: ImageFormatInfo -> [CARD8]
+ Graphics.XHB.Gen.Xv: guid_ImageFormatInfo :: ImageFormatInfo -> [Word8]
- Graphics.XHB.Gen.Xv: height_EncodingInfo :: EncodingInfo -> CARD16
+ Graphics.XHB.Gen.Xv: height_EncodingInfo :: EncodingInfo -> Word16
- Graphics.XHB.Gen.Xv: height_Image :: Image -> CARD16
+ Graphics.XHB.Gen.Xv: height_Image :: Image -> Word16
- Graphics.XHB.Gen.Xv: height_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xv: height_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xv: height_QueryImageAttributes :: QueryImageAttributes -> CARD16
+ Graphics.XHB.Gen.Xv: height_QueryImageAttributes :: QueryImageAttributes -> Word16
- Graphics.XHB.Gen.Xv: height_QueryImageAttributesReply :: QueryImageAttributesReply -> CARD16
+ Graphics.XHB.Gen.Xv: height_QueryImageAttributesReply :: QueryImageAttributesReply -> Word16
- Graphics.XHB.Gen.Xv: height_ShmPutImage :: ShmPutImage -> CARD16
+ Graphics.XHB.Gen.Xv: height_ShmPutImage :: ShmPutImage -> Word16
- Graphics.XHB.Gen.Xv: id_Image :: Image -> CARD32
+ Graphics.XHB.Gen.Xv: id_Image :: Image -> Word32
- Graphics.XHB.Gen.Xv: id_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: id_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: id_PutImage :: PutImage -> CARD32
+ Graphics.XHB.Gen.Xv: id_PutImage :: PutImage -> Word32
- Graphics.XHB.Gen.Xv: id_QueryImageAttributes :: QueryImageAttributes -> CARD32
+ Graphics.XHB.Gen.Xv: id_QueryImageAttributes :: QueryImageAttributes -> Word32
- Graphics.XHB.Gen.Xv: id_ShmPutImage :: ShmPutImage -> CARD32
+ Graphics.XHB.Gen.Xv: id_ShmPutImage :: ShmPutImage -> Word32
- Graphics.XHB.Gen.Xv: major_QueryExtensionReply :: QueryExtensionReply -> CARD16
+ Graphics.XHB.Gen.Xv: major_QueryExtensionReply :: QueryExtensionReply -> Word16
- Graphics.XHB.Gen.Xv: max_AttributeInfo :: AttributeInfo -> INT32
+ Graphics.XHB.Gen.Xv: max_AttributeInfo :: AttributeInfo -> Int32
- Graphics.XHB.Gen.Xv: min_AttributeInfo :: AttributeInfo -> INT32
+ Graphics.XHB.Gen.Xv: min_AttributeInfo :: AttributeInfo -> Int32
- Graphics.XHB.Gen.Xv: minor_QueryExtensionReply :: QueryExtensionReply -> CARD16
+ Graphics.XHB.Gen.Xv: minor_QueryExtensionReply :: QueryExtensionReply -> Word16
- Graphics.XHB.Gen.Xv: motion_QueryBestSize :: QueryBestSize -> BOOL
+ Graphics.XHB.Gen.Xv: motion_QueryBestSize :: QueryBestSize -> Bool
- Graphics.XHB.Gen.Xv: name_size_AdaptorInfo :: AdaptorInfo -> CARD16
+ Graphics.XHB.Gen.Xv: name_size_AdaptorInfo :: AdaptorInfo -> Word16
- Graphics.XHB.Gen.Xv: name_size_EncodingInfo :: EncodingInfo -> CARD16
+ Graphics.XHB.Gen.Xv: name_size_EncodingInfo :: EncodingInfo -> Word16
- Graphics.XHB.Gen.Xv: num_adaptors_QueryAdaptorsReply :: QueryAdaptorsReply -> CARD16
+ Graphics.XHB.Gen.Xv: num_adaptors_QueryAdaptorsReply :: QueryAdaptorsReply -> Word16
- Graphics.XHB.Gen.Xv: num_attributes_QueryPortAttributesReply :: QueryPortAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xv: num_attributes_QueryPortAttributesReply :: QueryPortAttributesReply -> Word32
- Graphics.XHB.Gen.Xv: num_encodings_QueryEncodingsReply :: QueryEncodingsReply -> CARD16
+ Graphics.XHB.Gen.Xv: num_encodings_QueryEncodingsReply :: QueryEncodingsReply -> Word16
- Graphics.XHB.Gen.Xv: num_formats_AdaptorInfo :: AdaptorInfo -> CARD16
+ Graphics.XHB.Gen.Xv: num_formats_AdaptorInfo :: AdaptorInfo -> Word16
- Graphics.XHB.Gen.Xv: num_formats_ListImageFormatsReply :: ListImageFormatsReply -> CARD32
+ Graphics.XHB.Gen.Xv: num_formats_ListImageFormatsReply :: ListImageFormatsReply -> Word32
- Graphics.XHB.Gen.Xv: num_planes_Image :: Image -> CARD32
+ Graphics.XHB.Gen.Xv: num_planes_Image :: Image -> Word32
- Graphics.XHB.Gen.Xv: num_planes_ImageFormatInfo :: ImageFormatInfo -> CARD8
+ Graphics.XHB.Gen.Xv: num_planes_ImageFormatInfo :: ImageFormatInfo -> Word8
- Graphics.XHB.Gen.Xv: num_planes_QueryImageAttributesReply :: QueryImageAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xv: num_planes_QueryImageAttributesReply :: QueryImageAttributesReply -> Word32
- Graphics.XHB.Gen.Xv: num_ports_AdaptorInfo :: AdaptorInfo -> CARD16
+ Graphics.XHB.Gen.Xv: num_ports_AdaptorInfo :: AdaptorInfo -> Word16
- Graphics.XHB.Gen.Xv: numerator_Rational :: Rational -> INT32
+ Graphics.XHB.Gen.Xv: numerator_Rational :: Rational -> Int32
- Graphics.XHB.Gen.Xv: offset_ShmPutImage :: ShmPutImage -> CARD32
+ Graphics.XHB.Gen.Xv: offset_ShmPutImage :: ShmPutImage -> Word32
- Graphics.XHB.Gen.Xv: offsets_Image :: Image -> [CARD32]
+ Graphics.XHB.Gen.Xv: offsets_Image :: Image -> [Word32]
- Graphics.XHB.Gen.Xv: offsets_QueryImageAttributesReply :: QueryImageAttributesReply -> [CARD32]
+ Graphics.XHB.Gen.Xv: offsets_QueryImageAttributesReply :: QueryImageAttributesReply -> [Word32]
- Graphics.XHB.Gen.Xv: onoff_SelectPortNotify :: SelectPortNotify -> BOOL
+ Graphics.XHB.Gen.Xv: onoff_SelectPortNotify :: SelectPortNotify -> Bool
- Graphics.XHB.Gen.Xv: onoff_SelectVideoNotify :: SelectVideoNotify -> BOOL
+ Graphics.XHB.Gen.Xv: onoff_SelectVideoNotify :: SelectVideoNotify -> Bool
- Graphics.XHB.Gen.Xv: pitches_Image :: Image -> [CARD32]
+ Graphics.XHB.Gen.Xv: pitches_Image :: Image -> [Word32]
- Graphics.XHB.Gen.Xv: pitches_QueryImageAttributesReply :: QueryImageAttributesReply -> [CARD32]
+ Graphics.XHB.Gen.Xv: pitches_QueryImageAttributesReply :: QueryImageAttributesReply -> [Word32]
- Graphics.XHB.Gen.Xv: reason_VideoNotify :: VideoNotify -> BYTE
+ Graphics.XHB.Gen.Xv: reason_VideoNotify :: VideoNotify -> Word8
- Graphics.XHB.Gen.Xv: red_mask_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: red_mask_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: result_GrabPortReply :: GrabPortReply -> BYTE
+ Graphics.XHB.Gen.Xv: result_GrabPortReply :: GrabPortReply -> Word8
- Graphics.XHB.Gen.Xv: selectPortNotify :: Connection -> PORT -> BOOL -> IO ()
+ Graphics.XHB.Gen.Xv: selectPortNotify :: Connection -> PORT -> Bool -> IO ()
- Graphics.XHB.Gen.Xv: selectVideoNotify :: Connection -> DRAWABLE -> BOOL -> IO ()
+ Graphics.XHB.Gen.Xv: selectVideoNotify :: Connection -> DRAWABLE -> Bool -> IO ()
- Graphics.XHB.Gen.Xv: send_event_ShmPutImage :: ShmPutImage -> CARD8
+ Graphics.XHB.Gen.Xv: send_event_ShmPutImage :: ShmPutImage -> Word8
- Graphics.XHB.Gen.Xv: size_AttributeInfo :: AttributeInfo -> CARD32
+ Graphics.XHB.Gen.Xv: size_AttributeInfo :: AttributeInfo -> Word32
- Graphics.XHB.Gen.Xv: src_h_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xv: src_h_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xv: src_h_ShmPutImage :: ShmPutImage -> CARD16
+ Graphics.XHB.Gen.Xv: src_h_ShmPutImage :: ShmPutImage -> Word16
- Graphics.XHB.Gen.Xv: src_w_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xv: src_w_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xv: src_w_ShmPutImage :: ShmPutImage -> CARD16
+ Graphics.XHB.Gen.Xv: src_w_ShmPutImage :: ShmPutImage -> Word16
- Graphics.XHB.Gen.Xv: src_x_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Xv: src_x_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Xv: src_x_ShmPutImage :: ShmPutImage -> INT16
+ Graphics.XHB.Gen.Xv: src_x_ShmPutImage :: ShmPutImage -> Int16
- Graphics.XHB.Gen.Xv: src_y_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Xv: src_y_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Xv: src_y_ShmPutImage :: ShmPutImage -> INT16
+ Graphics.XHB.Gen.Xv: src_y_ShmPutImage :: ShmPutImage -> Int16
- Graphics.XHB.Gen.Xv: text_size_QueryPortAttributesReply :: QueryPortAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xv: text_size_QueryPortAttributesReply :: QueryPortAttributesReply -> Word32
- Graphics.XHB.Gen.Xv: type_AdaptorInfo :: AdaptorInfo -> CARD8
+ Graphics.XHB.Gen.Xv: type_AdaptorInfo :: AdaptorInfo -> Word8
- Graphics.XHB.Gen.Xv: type_ImageFormatInfo :: ImageFormatInfo -> CARD8
+ Graphics.XHB.Gen.Xv: type_ImageFormatInfo :: ImageFormatInfo -> Word8
- Graphics.XHB.Gen.Xv: u_sample_bits_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: u_sample_bits_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: v_sample_bits_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: v_sample_bits_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: value_GetPortAttributeReply :: GetPortAttributeReply -> INT32
+ Graphics.XHB.Gen.Xv: value_GetPortAttributeReply :: GetPortAttributeReply -> Int32
- Graphics.XHB.Gen.Xv: value_PortNotify :: PortNotify -> INT32
+ Graphics.XHB.Gen.Xv: value_PortNotify :: PortNotify -> Int32
- Graphics.XHB.Gen.Xv: value_SetPortAttribute :: SetPortAttribute -> INT32
+ Graphics.XHB.Gen.Xv: value_SetPortAttribute :: SetPortAttribute -> Int32
- Graphics.XHB.Gen.Xv: vcomp_order_ImageFormatInfo :: ImageFormatInfo -> [CARD8]
+ Graphics.XHB.Gen.Xv: vcomp_order_ImageFormatInfo :: ImageFormatInfo -> [Word8]
- Graphics.XHB.Gen.Xv: vhorz_u_period_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: vhorz_u_period_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: vhorz_v_period_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: vhorz_v_period_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: vhorz_y_period_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: vhorz_y_period_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: vid_h_GetStill :: GetStill -> CARD16
+ Graphics.XHB.Gen.Xv: vid_h_GetStill :: GetStill -> Word16
- Graphics.XHB.Gen.Xv: vid_h_GetVideo :: GetVideo -> CARD16
+ Graphics.XHB.Gen.Xv: vid_h_GetVideo :: GetVideo -> Word16
- Graphics.XHB.Gen.Xv: vid_h_PutStill :: PutStill -> CARD16
+ Graphics.XHB.Gen.Xv: vid_h_PutStill :: PutStill -> Word16
- Graphics.XHB.Gen.Xv: vid_h_PutVideo :: PutVideo -> CARD16
+ Graphics.XHB.Gen.Xv: vid_h_PutVideo :: PutVideo -> Word16
- Graphics.XHB.Gen.Xv: vid_h_QueryBestSize :: QueryBestSize -> CARD16
+ Graphics.XHB.Gen.Xv: vid_h_QueryBestSize :: QueryBestSize -> Word16
- Graphics.XHB.Gen.Xv: vid_w_GetStill :: GetStill -> CARD16
+ Graphics.XHB.Gen.Xv: vid_w_GetStill :: GetStill -> Word16
- Graphics.XHB.Gen.Xv: vid_w_GetVideo :: GetVideo -> CARD16
+ Graphics.XHB.Gen.Xv: vid_w_GetVideo :: GetVideo -> Word16
- Graphics.XHB.Gen.Xv: vid_w_PutStill :: PutStill -> CARD16
+ Graphics.XHB.Gen.Xv: vid_w_PutStill :: PutStill -> Word16
- Graphics.XHB.Gen.Xv: vid_w_PutVideo :: PutVideo -> CARD16
+ Graphics.XHB.Gen.Xv: vid_w_PutVideo :: PutVideo -> Word16
- Graphics.XHB.Gen.Xv: vid_w_QueryBestSize :: QueryBestSize -> CARD16
+ Graphics.XHB.Gen.Xv: vid_w_QueryBestSize :: QueryBestSize -> Word16
- Graphics.XHB.Gen.Xv: vid_x_GetStill :: GetStill -> INT16
+ Graphics.XHB.Gen.Xv: vid_x_GetStill :: GetStill -> Int16
- Graphics.XHB.Gen.Xv: vid_x_GetVideo :: GetVideo -> INT16
+ Graphics.XHB.Gen.Xv: vid_x_GetVideo :: GetVideo -> Int16
- Graphics.XHB.Gen.Xv: vid_x_PutStill :: PutStill -> INT16
+ Graphics.XHB.Gen.Xv: vid_x_PutStill :: PutStill -> Int16
- Graphics.XHB.Gen.Xv: vid_x_PutVideo :: PutVideo -> INT16
+ Graphics.XHB.Gen.Xv: vid_x_PutVideo :: PutVideo -> Int16
- Graphics.XHB.Gen.Xv: vid_y_GetStill :: GetStill -> INT16
+ Graphics.XHB.Gen.Xv: vid_y_GetStill :: GetStill -> Int16
- Graphics.XHB.Gen.Xv: vid_y_GetVideo :: GetVideo -> INT16
+ Graphics.XHB.Gen.Xv: vid_y_GetVideo :: GetVideo -> Int16
- Graphics.XHB.Gen.Xv: vid_y_PutStill :: PutStill -> INT16
+ Graphics.XHB.Gen.Xv: vid_y_PutStill :: PutStill -> Int16
- Graphics.XHB.Gen.Xv: vid_y_PutVideo :: PutVideo -> INT16
+ Graphics.XHB.Gen.Xv: vid_y_PutVideo :: PutVideo -> Int16
- Graphics.XHB.Gen.Xv: vscanline_order_ImageFormatInfo :: ImageFormatInfo -> CARD8
+ Graphics.XHB.Gen.Xv: vscanline_order_ImageFormatInfo :: ImageFormatInfo -> Word8
- Graphics.XHB.Gen.Xv: vvert_u_period_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: vvert_u_period_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: vvert_v_period_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: vvert_v_period_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: vvert_y_period_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: vvert_y_period_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: width_EncodingInfo :: EncodingInfo -> CARD16
+ Graphics.XHB.Gen.Xv: width_EncodingInfo :: EncodingInfo -> Word16
- Graphics.XHB.Gen.Xv: width_Image :: Image -> CARD16
+ Graphics.XHB.Gen.Xv: width_Image :: Image -> Word16
- Graphics.XHB.Gen.Xv: width_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xv: width_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xv: width_QueryImageAttributes :: QueryImageAttributes -> CARD16
+ Graphics.XHB.Gen.Xv: width_QueryImageAttributes :: QueryImageAttributes -> Word16
- Graphics.XHB.Gen.Xv: width_QueryImageAttributesReply :: QueryImageAttributesReply -> CARD16
+ Graphics.XHB.Gen.Xv: width_QueryImageAttributesReply :: QueryImageAttributesReply -> Word16
- Graphics.XHB.Gen.Xv: width_ShmPutImage :: ShmPutImage -> CARD16
+ Graphics.XHB.Gen.Xv: width_ShmPutImage :: ShmPutImage -> Word16
- Graphics.XHB.Gen.Xv: y_sample_bits_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: y_sample_bits_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.XvMC: MkCreateContext :: CONTEXT -> PORT -> SURFACE -> CARD16 -> CARD16 -> CARD32 -> CreateContext
+ Graphics.XHB.Gen.XvMC: MkCreateContext :: CONTEXT -> PORT -> SURFACE -> Word16 -> Word16 -> Word32 -> CreateContext
- Graphics.XHB.Gen.XvMC: MkCreateContextReply :: CARD16 -> CARD16 -> CARD32 -> [CARD32] -> CreateContextReply
+ Graphics.XHB.Gen.XvMC: MkCreateContextReply :: Word16 -> Word16 -> Word32 -> [Word32] -> CreateContextReply
- Graphics.XHB.Gen.XvMC: MkCreateSubpicture :: SUBPICTURE -> CONTEXT -> CARD32 -> CARD16 -> CARD16 -> CreateSubpicture
+ Graphics.XHB.Gen.XvMC: MkCreateSubpicture :: SUBPICTURE -> CONTEXT -> Word32 -> Word16 -> Word16 -> CreateSubpicture
- Graphics.XHB.Gen.XvMC: MkCreateSubpictureReply :: CARD16 -> CARD16 -> CARD16 -> CARD16 -> [CARD8] -> [CARD32] -> CreateSubpictureReply
+ Graphics.XHB.Gen.XvMC: MkCreateSubpictureReply :: Word16 -> Word16 -> Word16 -> Word16 -> [Word8] -> [Word32] -> CreateSubpictureReply
- Graphics.XHB.Gen.XvMC: MkCreateSurfaceReply :: [CARD32] -> CreateSurfaceReply
+ Graphics.XHB.Gen.XvMC: MkCreateSurfaceReply :: [Word32] -> CreateSurfaceReply
- Graphics.XHB.Gen.XvMC: MkListSubpictureTypesReply :: CARD32 -> [ImageFormatInfo] -> ListSubpictureTypesReply
+ Graphics.XHB.Gen.XvMC: MkListSubpictureTypesReply :: Word32 -> [ImageFormatInfo] -> ListSubpictureTypesReply
- Graphics.XHB.Gen.XvMC: MkListSurfaceTypesReply :: CARD32 -> [SurfaceInfo] -> ListSurfaceTypesReply
+ Graphics.XHB.Gen.XvMC: MkListSurfaceTypesReply :: Word32 -> [SurfaceInfo] -> ListSurfaceTypesReply
- Graphics.XHB.Gen.XvMC: MkQueryVersionReply :: CARD32 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.XvMC: MkQueryVersionReply :: Word32 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.XvMC: MkSurfaceInfo :: SURFACE -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD32 -> CARD32 -> SurfaceInfo
+ Graphics.XHB.Gen.XvMC: MkSurfaceInfo :: SURFACE -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word32 -> Word32 -> SurfaceInfo
- Graphics.XHB.Gen.XvMC: chroma_format_SurfaceInfo :: SurfaceInfo -> CARD16
+ Graphics.XHB.Gen.XvMC: chroma_format_SurfaceInfo :: SurfaceInfo -> Word16
- Graphics.XHB.Gen.XvMC: component_order_CreateSubpictureReply :: CreateSubpictureReply -> [CARD8]
+ Graphics.XHB.Gen.XvMC: component_order_CreateSubpictureReply :: CreateSubpictureReply -> [Word8]
- Graphics.XHB.Gen.XvMC: createSurface :: Connection -> SURFACE -> CONTEXT -> IO (Receipt CreateSurfaceReply)
+ Graphics.XHB.Gen.XvMC: createSurface :: Connection -> SURFACE -> CONTEXT -> IO (Receipt [Word32])
- Graphics.XHB.Gen.XvMC: entry_bytes_CreateSubpictureReply :: CreateSubpictureReply -> CARD16
+ Graphics.XHB.Gen.XvMC: entry_bytes_CreateSubpictureReply :: CreateSubpictureReply -> Word16
- Graphics.XHB.Gen.XvMC: flags_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.XvMC: flags_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.XvMC: flags_SurfaceInfo :: SurfaceInfo -> CARD32
+ Graphics.XHB.Gen.XvMC: flags_SurfaceInfo :: SurfaceInfo -> Word32
- Graphics.XHB.Gen.XvMC: flags_return_CreateContextReply :: CreateContextReply -> CARD32
+ Graphics.XHB.Gen.XvMC: flags_return_CreateContextReply :: CreateContextReply -> Word32
- Graphics.XHB.Gen.XvMC: height_CreateContext :: CreateContext -> CARD16
+ Graphics.XHB.Gen.XvMC: height_CreateContext :: CreateContext -> Word16
- Graphics.XHB.Gen.XvMC: height_CreateSubpicture :: CreateSubpicture -> CARD16
+ Graphics.XHB.Gen.XvMC: height_CreateSubpicture :: CreateSubpicture -> Word16
- Graphics.XHB.Gen.XvMC: height_actual_CreateContextReply :: CreateContextReply -> CARD16
+ Graphics.XHB.Gen.XvMC: height_actual_CreateContextReply :: CreateContextReply -> Word16
- Graphics.XHB.Gen.XvMC: height_actual_CreateSubpictureReply :: CreateSubpictureReply -> CARD16
+ Graphics.XHB.Gen.XvMC: height_actual_CreateSubpictureReply :: CreateSubpictureReply -> Word16
- Graphics.XHB.Gen.XvMC: major_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.XvMC: major_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.XvMC: max_height_SurfaceInfo :: SurfaceInfo -> CARD16
+ Graphics.XHB.Gen.XvMC: max_height_SurfaceInfo :: SurfaceInfo -> Word16
- Graphics.XHB.Gen.XvMC: max_width_SurfaceInfo :: SurfaceInfo -> CARD16
+ Graphics.XHB.Gen.XvMC: max_width_SurfaceInfo :: SurfaceInfo -> Word16
- Graphics.XHB.Gen.XvMC: mc_type_SurfaceInfo :: SurfaceInfo -> CARD32
+ Graphics.XHB.Gen.XvMC: mc_type_SurfaceInfo :: SurfaceInfo -> Word32
- Graphics.XHB.Gen.XvMC: minor_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.XvMC: minor_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.XvMC: num_ListSubpictureTypesReply :: ListSubpictureTypesReply -> CARD32
+ Graphics.XHB.Gen.XvMC: num_ListSubpictureTypesReply :: ListSubpictureTypesReply -> Word32
- Graphics.XHB.Gen.XvMC: num_ListSurfaceTypesReply :: ListSurfaceTypesReply -> CARD32
+ Graphics.XHB.Gen.XvMC: num_ListSurfaceTypesReply :: ListSurfaceTypesReply -> Word32
- Graphics.XHB.Gen.XvMC: num_palette_entries_CreateSubpictureReply :: CreateSubpictureReply -> CARD16
+ Graphics.XHB.Gen.XvMC: num_palette_entries_CreateSubpictureReply :: CreateSubpictureReply -> Word16
- Graphics.XHB.Gen.XvMC: pad0_SurfaceInfo :: SurfaceInfo -> CARD16
+ Graphics.XHB.Gen.XvMC: pad0_SurfaceInfo :: SurfaceInfo -> Word16
- Graphics.XHB.Gen.XvMC: priv_data_CreateContextReply :: CreateContextReply -> [CARD32]
+ Graphics.XHB.Gen.XvMC: priv_data_CreateContextReply :: CreateContextReply -> [Word32]
- Graphics.XHB.Gen.XvMC: priv_data_CreateSubpictureReply :: CreateSubpictureReply -> [CARD32]
+ Graphics.XHB.Gen.XvMC: priv_data_CreateSubpictureReply :: CreateSubpictureReply -> [Word32]
- Graphics.XHB.Gen.XvMC: priv_data_CreateSurfaceReply :: CreateSurfaceReply -> [CARD32]
+ Graphics.XHB.Gen.XvMC: priv_data_CreateSurfaceReply :: CreateSurfaceReply -> [Word32]
- Graphics.XHB.Gen.XvMC: subpicture_max_height_SurfaceInfo :: SurfaceInfo -> CARD16
+ Graphics.XHB.Gen.XvMC: subpicture_max_height_SurfaceInfo :: SurfaceInfo -> Word16
- Graphics.XHB.Gen.XvMC: subpicture_max_width_SurfaceInfo :: SurfaceInfo -> CARD16
+ Graphics.XHB.Gen.XvMC: subpicture_max_width_SurfaceInfo :: SurfaceInfo -> Word16
- Graphics.XHB.Gen.XvMC: width_CreateContext :: CreateContext -> CARD16
+ Graphics.XHB.Gen.XvMC: width_CreateContext :: CreateContext -> Word16
- Graphics.XHB.Gen.XvMC: width_CreateSubpicture :: CreateSubpicture -> CARD16
+ Graphics.XHB.Gen.XvMC: width_CreateSubpicture :: CreateSubpicture -> Word16
- Graphics.XHB.Gen.XvMC: width_actual_CreateContextReply :: CreateContextReply -> CARD16
+ Graphics.XHB.Gen.XvMC: width_actual_CreateContextReply :: CreateContextReply -> Word16
- Graphics.XHB.Gen.XvMC: width_actual_CreateSubpictureReply :: CreateSubpictureReply -> CARD16
+ Graphics.XHB.Gen.XvMC: width_actual_CreateSubpictureReply :: CreateSubpictureReply -> Word16
- Graphics.XHB.Gen.XvMC: xvimage_id_CreateSubpicture :: CreateSubpicture -> CARD32
+ Graphics.XHB.Gen.XvMC: xvimage_id_CreateSubpicture :: CreateSubpicture -> Word32
Files
- Graphics/XHB.hs +1/−8
- Graphics/XHB/Connection.hs +8/−12
- Graphics/XHB/Connection/Extension.hs +1/−1
- Graphics/XHB/Connection/Internal.hs +2/−2
- Graphics/XHB/Connection/Types.hs +1/−3
- Graphics/XHB/Shared.hs +50/−32
- patched/Graphics/XHB/Gen/BigRequests.hs +7/−4
- patched/Graphics/XHB/Gen/BigRequests/Types.hs +3/−2
- patched/Graphics/XHB/Gen/Composite.hs +14/−10
- patched/Graphics/XHB/Gen/Composite/Types.hs +18/−17
- patched/Graphics/XHB/Gen/DPMS.hs +15/−12
- patched/Graphics/XHB/Gen/DPMS/Types.hs +21/−20
- patched/Graphics/XHB/Gen/Damage.hs +6/−3
- patched/Graphics/XHB/Gen/Damage/Types.hs +12/−11
- patched/Graphics/XHB/Gen/Glx.hs +180/−162
- patched/Graphics/XHB/Gen/Glx/Types.hs +402/−401
- patched/Graphics/XHB/Gen/Input.hs +70/−58
- patched/Graphics/XHB/Gen/Input/Types.hs +385/−384
- patched/Graphics/XHB/Gen/RandR.hs +37/−32
- patched/Graphics/XHB/Gen/RandR/Types.hs +131/−128
- patched/Graphics/XHB/Gen/Record.hs +10/−7
- patched/Graphics/XHB/Gen/Record/Types.hs +34/−33
- patched/Graphics/XHB/Gen/Render.hs +13/−10
- patched/Graphics/XHB/Gen/Render/Types.hs +113/−112
- patched/Graphics/XHB/Gen/Res.hs +14/−11
- patched/Graphics/XHB/Gen/Res/Types.hs +18/−17
- patched/Graphics/XHB/Gen/SELinux.hs +44/−41
- patched/Graphics/XHB/Gen/SELinux/Types.hs +55/−54
- patched/Graphics/XHB/Gen/ScreenSaver.hs +10/−7
- patched/Graphics/XHB/Gen/ScreenSaver/Types.hs +26/−25
- patched/Graphics/XHB/Gen/Shape.hs +14/−10
- patched/Graphics/XHB/Gen/Shape/Types.hs +39/−38
- patched/Graphics/XHB/Gen/Shm.hs +7/−4
- patched/Graphics/XHB/Gen/Shm/Types.hs +34/−33
- patched/Graphics/XHB/Gen/Sync.hs +21/−16
- patched/Graphics/XHB/Gen/Sync/Types.hs +39/−38
- patched/Graphics/XHB/Gen/Test.hs +11/−7
- patched/Graphics/XHB/Gen/Test/Types.hs +15/−14
- patched/Graphics/XHB/Gen/XCMisc.hs +11/−8
- patched/Graphics/XHB/Gen/XCMisc/Types.hs +13/−12
- patched/Graphics/XHB/Gen/XF86Dri.hs +38/−29
- patched/Graphics/XHB/Gen/XF86Dri/Types.hs +64/−63
- patched/Graphics/XHB/Gen/XFixes.hs +15/−12
- patched/Graphics/XHB/Gen/XFixes/Types.hs +73/−72
- patched/Graphics/XHB/Gen/XPrint.hs +46/−40
- patched/Graphics/XHB/Gen/XPrint/Types.hs +77/−76
- patched/Graphics/XHB/Gen/Xevie.hs +18/−15
- patched/Graphics/XHB/Gen/Xevie/Types.hs +14/−13
- patched/Graphics/XHB/Gen/Xinerama.hs +19/−16
- patched/Graphics/XHB/Gen/Xinerama/Types.hs +22/−21
- patched/Graphics/XHB/Gen/Xproto.hs +114/−104
- patched/Graphics/XHB/Gen/Xproto/Types.hs +6040/−6035
- patched/Graphics/XHB/Gen/Xv.hs +27/−22
- patched/Graphics/XHB/Gen/Xv/Types.hs +114/−113
- patched/Graphics/XHB/Gen/XvMC.hs +17/−13
- patched/Graphics/XHB/Gen/XvMC/Types.hs +35/−34
- xhb.cabal +1/−1
Graphics/XHB.hs view
@@ -21,6 +21,7 @@ , module Graphics.XHB.Gen.Xproto , Xid , XidLike(..)+ , xidNone , SimpleEnum(..) , BitEnum(..) , fromMask@@ -38,14 +39,6 @@ , Event(..) , SomeEvent , UnknownEvent(..)- , CARD8- , CARD16- , CARD32- , INT8- , INT16- , INT32- , BOOL- , BYTE ) where import Graphics.XHB.Connection
Graphics/XHB/Connection.hs view
@@ -156,8 +156,8 @@ -- reverse-lookup infrastructure for extensions. Not pretty or -- maybe not even fast. But it is straight-forward.-queryExtMap :: (QueryExtensionReply -> CARD8)- -> ReadLoop -> CARD8 -> IO (Maybe (ExtensionId, CARD8))+queryExtMap :: (QueryExtensionReply -> Word8)+ -> ReadLoop -> Word8 -> IO (Maybe (ExtensionId, Word8)) queryExtMap f r code = do ext_map <- atomically . readTVar $ read_extensions r return $ findFromCode ext_map@@ -171,13 +171,13 @@ where num = f extInfo -- | Returns the extension id and the base event code-extensionIdFromEventCode :: ReadLoop -> CARD8- -> IO (Maybe (ExtensionId, CARD8))+extensionIdFromEventCode :: ReadLoop -> Word8+ -> IO (Maybe (ExtensionId, Word8)) extensionIdFromEventCode = queryExtMap first_event_QueryExtensionReply -- | Returns the extension id and the base error code-extensionIdFromErrorCode :: ReadLoop -> CARD8- -> IO (Maybe (ExtensionId, CARD8))+extensionIdFromErrorCode :: ReadLoop -> Word8+ -> IO (Maybe (ExtensionId, Word8)) extensionIdFromErrorCode = queryExtMap first_error_QueryExtensionReply @@ -243,10 +243,7 @@ atomically $ do nextPend <- readTChan $ read_reps rl if (pended_sequence nextPend) == (grep_sequence genRep)- then case pended_reply nextPend of- WrappedReply replyHole -> - let reply = flip runGet bytes $ deserializeInReadLoop rl- in putReceipt replyHole $ Right reply+ then putReceipt (pended_reply nextPend) $ Right bytes else unGetTChan (read_reps rl) nextPend @@ -262,8 +259,7 @@ atomically $ do nextPend <- readTChan $ read_reps rl if (pended_sequence nextPend) == (grep_sequence genRep)- then case pended_reply nextPend of- WrappedReply replyHole -> putReceipt replyHole (Left err)+ then putReceipt (pended_reply nextPend) $ Left err else do unGetTChan (read_reps rl) nextPend writeTChan (read_error_queue rl) err
Graphics/XHB/Connection/Extension.hs view
@@ -70,4 +70,4 @@ _extensionOpCode = major_opcode_QueryExtensionReply _extensionPresent :: QueryExtensionReply -> Bool-_extensionPresent = (/= 0) . present_QueryExtensionReply+_extensionPresent = present_QueryExtensionReply
Graphics/XHB/Connection/Internal.hs view
@@ -44,14 +44,14 @@ return () -sendRequestWithReply :: Deserialize a => Connection -> ByteString -> Receipt a -> IO ()+sendRequestWithReply :: Connection -> ByteString -> RawReceipt -> IO () sendRequestWithReply c bytes r = withConnectionHandle c $ \h -> do BS.hPut h bytes atomically $ do seq <- nextSequence c- writeTChan (conn_reps c) $ PendedReply seq $ WrappedReply r+ writeTChan (conn_reps c) $ PendedReply seq r -- Returns the next sequence ID
Graphics/XHB/Connection/Types.hs view
@@ -36,7 +36,5 @@ data PendedReply = PendedReply {pended_sequence :: SequenceId- ,pended_reply :: WrappedReply+ ,pended_reply :: RawReceipt }--data WrappedReply = forall a . Deserialize a => WrappedReply (Receipt a)
@@ -27,14 +27,6 @@ import Data.ByteString.Lazy (ByteString) import Control.Concurrent.STM- ( TMVar- , STM- , putTMVar- , newEmptyTMVarIO- , takeTMVar- , putTMVar- , atomically- ) import System.ByteOrder @@ -50,18 +42,6 @@ byteOrderToNum LittleEndian = fromEnum '\o154' -- l byteOrderToNum Mixed{} = error "Mixed endian platforms not supported." -type CARD8 = Word8-type CARD16 = Word16-type CARD32 = Word32--type INT32 = Int32-type INT16 = Int16-type INT8 = Int8--type BOOL = Word8--type BYTE = Word8- newtype Xid = MkXid Word32 deriving (Eq, Ord, Serialize, Deserialize) @@ -76,6 +56,9 @@ fromXid = id toXid = id +xidNone :: Xid+xidNone = MkXid 0+ -- Enums and ValueParams class SimpleEnum a where@@ -139,23 +122,40 @@ -- In units of four bytes type ReplyLength = Word32 -newtype Receipt a = MkReceipt- {unReceipt :: TMVar (Either SomeError a)}+-- The Receipt type allows the sender of the request+-- to arbitrarily munge the result before handing+-- it back to the caller+newtype Receipt a = MkReceipt (TVar (InnerReceipt a)) -newEmptyReceiptIO :: IO (Receipt a)-newEmptyReceiptIO = MkReceipt `fmap` newEmptyTMVarIO+type RawReceipt = TMVar (Either SomeError ByteString) -putReceipt :: Receipt a -> Either SomeError a -> STM ()-putReceipt = putTMVar . unReceipt+data InnerReceipt a+ = Item (Either SomeError a)+ | Result RawReceipt (ByteString -> a) +newEmptyReceipt :: (ByteString -> a) -> IO (Receipt a, RawReceipt)+newEmptyReceipt f = do+ rawReceipt <- newEmptyTMVarIO+ ref <- newTVarIO $ Result rawReceipt f+ return $ (MkReceipt ref, rawReceipt)++newDeserReceipt :: Deserialize a => IO (Receipt a, RawReceipt)+newDeserReceipt = newEmptyReceipt $ runGet deserialize++putReceipt :: RawReceipt -> Either SomeError ByteString -> STM ()+putReceipt = putTMVar+ -- | Extracts a reply from the receipt from the request. -- Blocks until the reply is available. getReply :: Receipt a -> IO (Either SomeError a)-getReply (MkReceipt r)- = atomically $ do- a <- takeTMVar r- putTMVar r a- return a+getReply (MkReceipt ref) = atomically $+ readTVar ref >>= \ircpt -> case ircpt of+ Item a -> return a+ Result rrcpt f -> do+ res <- takeTMVar rrcpt+ let ret = either Left (Right . f) res+ writeTVar ref $ Item ret+ return ret -- Because new errors and events are introduced with each extension, -- I don't want to give the users of this library pattern-match@@ -218,6 +218,24 @@ --Instances ++instance Serialize Bool where+ serialize = serialize `fmap` boolToWord+ size = size . boolToWord++instance Deserialize Bool where+ deserialize = wordToBool `fmap` deserialize++boolToWord :: Bool -> Word8+wordToBool :: Word8 -> Bool++boolToWord True = 1+boolToWord False = 0++wordToBool 0 = False+wordToBool _ = True++ -- Words instance Serialize Word8 where serialize = putWord8@@ -369,5 +387,5 @@ putSkip 0 = return () putSkip n = replicateM_ n $ putWord8 0 -isCard32 :: CARD32 -> a+isCard32 :: Word32 -> a isCard32 = undefined
patched/Graphics/XHB/Gen/BigRequests.hs view
@@ -7,6 +7,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) @@ -14,12 +17,12 @@ extension = "BIG-REQUESTS" enable ::- Graphics.XHB.Connection.Types.Connection ->- IO (Receipt EnableReply)+ Graphics.XHB.Connection.Types.Connection -> IO (Receipt Word32) enable c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (maximum_request_length_EnableReply `fmap` deserialize)) let req = MkEnable putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/BigRequests/Types.hs view
@@ -2,6 +2,7 @@ (deserializeError, deserializeEvent, Enable(..), EnableReply(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -28,11 +29,11 @@ = do putWord8 extOpCode putWord8 0 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data EnableReply = MkEnableReply{maximum_request_length_EnableReply- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance Deserialize EnableReply where
patched/Graphics/XHB/Gen/Composite.hs view
@@ -10,6 +10,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -25,18 +28,18 @@ queryVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)+ Word32 -> Word32 -> IO (Receipt QueryVersionReply) queryVersion c client_major_version client_minor_version- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion client_major_version client_minor_version putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt redirectWindow :: Graphics.XHB.Connection.Types.Connection ->- WINDOW -> CARD8 -> IO ()+ WINDOW -> Word8 -> IO () redirectWindow c window update = do let req = MkRedirectWindow window update putAction <- serializeExtensionRequest c req@@ -45,7 +48,7 @@ redirectSubwindows :: Graphics.XHB.Connection.Types.Connection ->- WINDOW -> CARD8 -> IO ()+ WINDOW -> Word8 -> IO () redirectSubwindows c window update = do let req = MkRedirectSubwindows window update putAction <- serializeExtensionRequest c req@@ -54,7 +57,7 @@ unredirectWindow :: Graphics.XHB.Connection.Types.Connection ->- WINDOW -> CARD8 -> IO ()+ WINDOW -> Word8 -> IO () unredirectWindow c window update = do let req = MkUnredirectWindow window update putAction <- serializeExtensionRequest c req@@ -63,7 +66,7 @@ unredirectSubwindows :: Graphics.XHB.Connection.Types.Connection ->- WINDOW -> CARD8 -> IO ()+ WINDOW -> Word8 -> IO () unredirectSubwindows c window update = do let req = MkUnredirectSubwindows window update putAction <- serializeExtensionRequest c req@@ -90,13 +93,14 @@ getOverlayWindow :: Graphics.XHB.Connection.Types.Connection ->- WINDOW -> IO (Receipt GetOverlayWindowReply)+ WINDOW -> IO (Receipt WINDOW) getOverlayWindow c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (overlay_win_GetOverlayWindowReply `fmap` deserialize)) let req = MkGetOverlayWindow window putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt releaseOverlayWindow ::
patched/Graphics/XHB/Gen/Composite/Types.hs view
@@ -7,6 +7,7 @@ GetOverlayWindowReply(..), ReleaseOverlayWindow(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -41,8 +42,8 @@ fromValue 1 = RedirectManual data QueryVersion = MkQueryVersion{client_major_version_QueryVersion- :: CARD32,- client_minor_version_QueryVersion :: CARD32}+ :: Word32,+ client_minor_version_QueryVersion :: Word32} deriving (Show, Typeable) instance ExtensionRequest QueryVersion where@@ -53,14 +54,14 @@ let size__ = 4 + size (client_major_version_QueryVersion x) + size (client_minor_version_QueryVersion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (client_major_version_QueryVersion x) serialize (client_minor_version_QueryVersion x) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply- :: CARD32,- minor_version_QueryVersionReply :: CARD32}+ :: Word32,+ minor_version_QueryVersionReply :: Word32} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -77,7 +78,7 @@ data RedirectWindow = MkRedirectWindow{window_RedirectWindow :: WINDOW,- update_RedirectWindow :: CARD8}+ update_RedirectWindow :: Word8} deriving (Show, Typeable) instance ExtensionRequest RedirectWindow where@@ -89,7 +90,7 @@ = 4 + size (window_RedirectWindow x) + size (update_RedirectWindow x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_RedirectWindow x) serialize (update_RedirectWindow x) putSkip 3@@ -97,7 +98,7 @@ data RedirectSubwindows = MkRedirectSubwindows{window_RedirectSubwindows :: WINDOW,- update_RedirectSubwindows :: CARD8}+ update_RedirectSubwindows :: Word8} deriving (Show, Typeable) instance ExtensionRequest RedirectSubwindows where@@ -109,7 +110,7 @@ = 4 + size (window_RedirectSubwindows x) + size (update_RedirectSubwindows x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_RedirectSubwindows x) serialize (update_RedirectSubwindows x) putSkip 3@@ -117,7 +118,7 @@ data UnredirectWindow = MkUnredirectWindow{window_UnredirectWindow :: WINDOW,- update_UnredirectWindow :: CARD8}+ update_UnredirectWindow :: Word8} deriving (Show, Typeable) instance ExtensionRequest UnredirectWindow where@@ -129,7 +130,7 @@ = 4 + size (window_UnredirectWindow x) + size (update_UnredirectWindow x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_UnredirectWindow x) serialize (update_UnredirectWindow x) putSkip 3@@ -137,7 +138,7 @@ data UnredirectSubwindows = MkUnredirectSubwindows{window_UnredirectSubwindows :: WINDOW,- update_UnredirectSubwindows :: CARD8}+ update_UnredirectSubwindows :: Word8} deriving (Show, Typeable) instance ExtensionRequest UnredirectSubwindows where@@ -149,7 +150,7 @@ = 4 + size (window_UnredirectSubwindows x) + size (update_UnredirectSubwindows x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_UnredirectSubwindows x) serialize (update_UnredirectSubwindows x) putSkip 3@@ -169,7 +170,7 @@ let size__ = 4 + size (region_CreateRegionFromBorderClip x) + size (window_CreateRegionFromBorderClip x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (region_CreateRegionFromBorderClip x) serialize (window_CreateRegionFromBorderClip x) putSkip (requiredPadding size__)@@ -187,7 +188,7 @@ let size__ = 4 + size (window_NameWindowPixmap x) + size (pixmap_NameWindowPixmap x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_NameWindowPixmap x) serialize (pixmap_NameWindowPixmap x) putSkip (requiredPadding size__)@@ -202,7 +203,7 @@ = do putWord8 extOpCode putWord8 7 let size__ = 4 + size (window_GetOverlayWindow x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_GetOverlayWindow x) putSkip (requiredPadding size__) @@ -231,6 +232,6 @@ = do putWord8 extOpCode putWord8 8 let size__ = 4 + size (window_ReleaseOverlayWindow x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_ReleaseOverlayWindow x) putSkip (requiredPadding size__)
patched/Graphics/XHB/Gen/DPMS.hs view
@@ -8,6 +8,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) @@ -16,35 +19,35 @@ getVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD16 -> CARD16 -> IO (Receipt GetVersionReply)+ Word16 -> Word16 -> IO (Receipt GetVersionReply) getVersion c client_major_version client_minor_version- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetVersion client_major_version client_minor_version putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt capable ::- Graphics.XHB.Connection.Types.Connection ->- IO (Receipt CapableReply)+ Graphics.XHB.Connection.Types.Connection -> IO (Receipt Bool) capable c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (capable_CapableReply `fmap` deserialize)) let req = MkCapable putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getTimeouts :: Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetTimeoutsReply) getTimeouts c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetTimeouts putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setTimeouts ::@@ -55,7 +58,7 @@ sendRequest c chunk forceLevel ::- Graphics.XHB.Connection.Types.Connection -> CARD16 -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Word16 -> IO () forceLevel c power_level = do let req = MkForceLevel power_level putAction <- serializeExtensionRequest c req@@ -65,9 +68,9 @@ info :: Graphics.XHB.Connection.Types.Connection -> IO (Receipt InfoReply) info c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkInfo putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/DPMS/Types.hs view
@@ -5,6 +5,7 @@ ForceLevel(..), Info(..), InfoReply(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -23,8 +24,8 @@ deserializeEvent _ = Nothing data GetVersion = MkGetVersion{client_major_version_GetVersion ::- CARD16,- client_minor_version_GetVersion :: CARD16}+ Word16,+ client_minor_version_GetVersion :: Word16} deriving (Show, Typeable) instance ExtensionRequest GetVersion where@@ -35,14 +36,14 @@ let size__ = 4 + size (client_major_version_GetVersion x) + size (client_minor_version_GetVersion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (client_major_version_GetVersion x) serialize (client_minor_version_GetVersion x) putSkip (requiredPadding size__) data GetVersionReply = MkGetVersionReply{server_major_version_GetVersionReply- :: CARD16,- server_minor_version_GetVersionReply :: CARD16}+ :: Word16,+ server_minor_version_GetVersionReply :: Word16} deriving (Show, Typeable) instance Deserialize GetVersionReply where@@ -66,10 +67,10 @@ = do putWord8 extOpCode putWord8 1 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) -data CapableReply = MkCapableReply{capable_CapableReply :: BOOL}+data CapableReply = MkCapableReply{capable_CapableReply :: Bool} deriving (Show, Typeable) instance Deserialize CapableReply where@@ -92,13 +93,13 @@ = do putWord8 extOpCode putWord8 2 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data GetTimeoutsReply = MkGetTimeoutsReply{standby_timeout_GetTimeoutsReply- :: CARD16,- suspend_timeout_GetTimeoutsReply :: CARD16,- off_timeout_GetTimeoutsReply :: CARD16}+ :: Word16,+ suspend_timeout_GetTimeoutsReply :: Word16,+ off_timeout_GetTimeoutsReply :: Word16} deriving (Show, Typeable) instance Deserialize GetTimeoutsReply where@@ -116,9 +117,9 @@ (MkGetTimeoutsReply standby_timeout suspend_timeout off_timeout) data SetTimeouts = MkSetTimeouts{standby_timeout_SetTimeouts ::- CARD16,- suspend_timeout_SetTimeouts :: CARD16,- off_timeout_SetTimeouts :: CARD16}+ Word16,+ suspend_timeout_SetTimeouts :: Word16,+ off_timeout_SetTimeouts :: Word16} deriving (Show, Typeable) instance ExtensionRequest SetTimeouts where@@ -130,13 +131,13 @@ = 4 + size (standby_timeout_SetTimeouts x) + size (suspend_timeout_SetTimeouts x) + size (off_timeout_SetTimeouts x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (standby_timeout_SetTimeouts x) serialize (suspend_timeout_SetTimeouts x) serialize (off_timeout_SetTimeouts x) putSkip (requiredPadding size__) -data ForceLevel = MkForceLevel{power_level_ForceLevel :: CARD16}+data ForceLevel = MkForceLevel{power_level_ForceLevel :: Word16} deriving (Show, Typeable) instance ExtensionRequest ForceLevel where@@ -145,7 +146,7 @@ = do putWord8 extOpCode putWord8 6 let size__ = 4 + size (power_level_ForceLevel x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (power_level_ForceLevel x) putSkip (requiredPadding size__) @@ -158,11 +159,11 @@ = do putWord8 extOpCode putWord8 7 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) -data InfoReply = MkInfoReply{power_level_InfoReply :: CARD16,- state_InfoReply :: BOOL}+data InfoReply = MkInfoReply{power_level_InfoReply :: Word16,+ state_InfoReply :: Bool} deriving (Show, Typeable) instance Deserialize InfoReply where
patched/Graphics/XHB/Gen/Damage.hs view
@@ -9,6 +9,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -24,13 +27,13 @@ queryVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)+ Word32 -> Word32 -> IO (Receipt QueryVersionReply) queryVersion c client_major_version client_minor_version- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion client_major_version client_minor_version putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt create ::
patched/Graphics/XHB/Gen/Damage/Types.hs view
@@ -4,6 +4,7 @@ Subtract(..), Add(..), Notify(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -49,8 +50,8 @@ fromValue 3 = ReportLevelNonEmpty data QueryVersion = MkQueryVersion{client_major_version_QueryVersion- :: CARD32,- client_minor_version_QueryVersion :: CARD32}+ :: Word32,+ client_minor_version_QueryVersion :: Word32} deriving (Show, Typeable) instance ExtensionRequest QueryVersion where@@ -61,14 +62,14 @@ let size__ = 4 + size (client_major_version_QueryVersion x) + size (client_minor_version_QueryVersion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (client_major_version_QueryVersion x) serialize (client_minor_version_QueryVersion x) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply- :: CARD32,- minor_version_QueryVersionReply :: CARD32}+ :: Word32,+ minor_version_QueryVersionReply :: Word32} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -84,7 +85,7 @@ return (MkQueryVersionReply major_version minor_version) data Create = MkCreate{damage_Create :: DAMAGE,- drawable_Create :: DRAWABLE, level_Create :: CARD8}+ drawable_Create :: DRAWABLE, level_Create :: Word8} deriving (Show, Typeable) instance ExtensionRequest Create where@@ -96,7 +97,7 @@ = 4 + size (damage_Create x) + size (drawable_Create x) + size (level_Create x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (damage_Create x) serialize (drawable_Create x) serialize (level_Create x)@@ -112,7 +113,7 @@ = do putWord8 extOpCode putWord8 2 let size__ = 4 + size (damage_Destroy x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (damage_Destroy x) putSkip (requiredPadding size__) @@ -128,7 +129,7 @@ let size__ = 4 + size (damage_Subtract x) + size (repair_Subtract x) + size (parts_Subtract x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (damage_Subtract x) serialize (repair_Subtract x) serialize (parts_Subtract x)@@ -143,12 +144,12 @@ = do putWord8 extOpCode putWord8 4 let size__ = 4 + size (drawable_Add x) + size (region_Add x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (drawable_Add x) serialize (region_Add x) putSkip (requiredPadding size__) -data Notify = MkNotify{level_Notify :: CARD8,+data Notify = MkNotify{level_Notify :: Word8, drawable_Notify :: DRAWABLE, damage_Notify :: DAMAGE, timestamp_Notify :: TIMESTAMP, area_Notify :: RECTANGLE, geometry_Notify :: RECTANGLE}
patched/Graphics/XHB/Gen/Glx.hs view
@@ -32,6 +32,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -45,7 +48,7 @@ render :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> [BYTE] -> IO ()+ CONTEXT_TAG -> [Word8] -> IO () render c context_tag data_ = do let req = MkRender context_tag data_ putAction <- serializeExtensionRequest c req@@ -77,34 +80,36 @@ makeCurrent :: Graphics.XHB.Connection.Types.Connection ->- MakeCurrent -> IO (Receipt MakeCurrentReply)+ MakeCurrent -> IO (Receipt CONTEXT_TAG) makeCurrent c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (context_tag_MakeCurrentReply `fmap` deserialize)) putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt isDirect :: Graphics.XHB.Connection.Types.Connection ->- Graphics.XHB.Gen.Glx.Types.CONTEXT -> IO (Receipt IsDirectReply)+ Graphics.XHB.Gen.Glx.Types.CONTEXT -> IO (Receipt Bool) isDirect c context- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (is_direct_IsDirectReply `fmap` deserialize)) let req = MkIsDirect context putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)+ Word32 -> Word32 -> IO (Receipt QueryVersionReply) queryVersion c major_version minor_version- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion major_version minor_version putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt waitGL ::@@ -156,13 +161,13 @@ getVisualConfigs :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt GetVisualConfigsReply)+ Word32 -> IO (Receipt GetVisualConfigsReply) getVisualConfigs c screen- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetVisualConfigs screen putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt destroyGLXPixmap ::@@ -185,32 +190,33 @@ Graphics.XHB.Connection.Types.Connection -> VendorPrivateWithReply -> IO (Receipt VendorPrivateWithReplyReply) vendorPrivateWithReply c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryExtensionsString :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt QueryExtensionsStringReply)+ Word32 -> IO (Receipt Word32) queryExtensionsString c screen- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (n_QueryExtensionsStringReply `fmap` deserialize)) let req = MkQueryExtensionsString screen putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryServerString :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> CARD32 -> IO (Receipt QueryServerStringReply)+ Word32 -> Word32 -> IO (Receipt QueryServerStringReply) queryServerString c screen name- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryServerString screen name putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt clientInfo ::@@ -222,13 +228,13 @@ getFBConfigs :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt GetFBConfigsReply)+ Word32 -> IO (Receipt GetFBConfigsReply) getFBConfigs c screen- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetFBConfigs screen putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt createPixmap ::@@ -260,21 +266,22 @@ Graphics.XHB.Gen.Glx.Types.CONTEXT -> IO (Receipt QueryContextReply) queryContext c context- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryContext context putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt makeContextCurrent :: Graphics.XHB.Connection.Types.Connection ->- MakeContextCurrent -> IO (Receipt MakeContextCurrentReply)+ MakeContextCurrent -> IO (Receipt CONTEXT_TAG) makeContextCurrent c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (context_tag_MakeContextCurrentReply `fmap` deserialize)) putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt createPbuffer ::@@ -297,11 +304,11 @@ Graphics.XHB.Gen.Glx.Types.DRAWABLE -> IO (Receipt GetDrawableAttributesReply) getDrawableAttributes c drawable- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetDrawableAttributes drawable putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt changeDrawableAttributes ::@@ -352,13 +359,14 @@ genLists :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> INT32 -> IO (Receipt GenListsReply)+ CONTEXT_TAG -> Int32 -> IO (Receipt Word32) genLists c context_tag range- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (ret_val_GenListsReply `fmap` deserialize)) let req = MkGenLists context_tag range putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt feedbackBuffer ::@@ -370,7 +378,7 @@ selectBuffer :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> INT32 -> IO ()+ CONTEXT_TAG -> Int32 -> IO () selectBuffer c context_tag size = do let req = MkSelectBuffer context_tag size putAction <- serializeExtensionRequest c req@@ -379,24 +387,24 @@ renderMode :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> CARD32 -> IO (Receipt RenderModeReply)+ CONTEXT_TAG -> Word32 -> IO (Receipt RenderModeReply) renderMode c context_tag mode- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkRenderMode context_tag mode putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt finish :: Graphics.XHB.Connection.Types.Connection -> CONTEXT_TAG -> IO (Receipt FinishReply) finish c context_tag- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkFinish context_tag putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt pixelStoref ::@@ -415,314 +423,319 @@ readPixels :: Graphics.XHB.Connection.Types.Connection ->- ReadPixels -> IO (Receipt ReadPixelsReply)+ ReadPixels -> IO (Receipt [Word8]) readPixels c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (data_ReadPixelsReply `fmap` deserialize)) putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getBooleanv :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> INT32 -> IO (Receipt GetBooleanvReply)+ CONTEXT_TAG -> Int32 -> IO (Receipt GetBooleanvReply) getBooleanv c context_tag pname- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetBooleanv context_tag pname putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getClipPlane :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> INT32 -> IO (Receipt GetClipPlaneReply)+ CONTEXT_TAG -> Int32 -> IO (Receipt [FLOAT64]) getClipPlane c context_tag plane- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (data_GetClipPlaneReply `fmap` deserialize)) let req = MkGetClipPlane context_tag plane putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getDoublev :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> CARD32 -> IO (Receipt GetDoublevReply)+ CONTEXT_TAG -> Word32 -> IO (Receipt GetDoublevReply) getDoublev c context_tag pname- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetDoublev context_tag pname putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getError :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> IO (Receipt GetErrorReply)+ CONTEXT_TAG -> IO (Receipt Int32) getError c context_tag- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (error_GetErrorReply `fmap` deserialize)) let req = MkGetError context_tag putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getFloatv :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> CARD32 -> IO (Receipt GetFloatvReply)+ CONTEXT_TAG -> Word32 -> IO (Receipt GetFloatvReply) getFloatv c context_tag pname- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetFloatv context_tag pname putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getIntegerv :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> CARD32 -> IO (Receipt GetIntegervReply)+ CONTEXT_TAG -> Word32 -> IO (Receipt GetIntegervReply) getIntegerv c context_tag pname- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetIntegerv context_tag pname putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getLightfv :: Graphics.XHB.Connection.Types.Connection -> GetLightfv -> IO (Receipt GetLightfvReply) getLightfv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getLightiv :: Graphics.XHB.Connection.Types.Connection -> GetLightiv -> IO (Receipt GetLightivReply) getLightiv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getMapdv :: Graphics.XHB.Connection.Types.Connection -> GetMapdv -> IO (Receipt GetMapdvReply) getMapdv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getMapfv :: Graphics.XHB.Connection.Types.Connection -> GetMapfv -> IO (Receipt GetMapfvReply) getMapfv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getMapiv :: Graphics.XHB.Connection.Types.Connection -> GetMapiv -> IO (Receipt GetMapivReply) getMapiv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getMaterialfv :: Graphics.XHB.Connection.Types.Connection -> GetMaterialfv -> IO (Receipt GetMaterialfvReply) getMaterialfv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getMaterialiv :: Graphics.XHB.Connection.Types.Connection -> GetMaterialiv -> IO (Receipt GetMaterialivReply) getMaterialiv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getPixelMapfv :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> CARD32 -> IO (Receipt GetPixelMapfvReply)+ CONTEXT_TAG -> Word32 -> IO (Receipt GetPixelMapfvReply) getPixelMapfv c context_tag map- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetPixelMapfv context_tag map putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getPixelMapuiv :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> CARD32 -> IO (Receipt GetPixelMapuivReply)+ CONTEXT_TAG -> Word32 -> IO (Receipt GetPixelMapuivReply) getPixelMapuiv c context_tag map- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetPixelMapuiv context_tag map putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getPixelMapusv :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> CARD32 -> IO (Receipt GetPixelMapusvReply)+ CONTEXT_TAG -> Word32 -> IO (Receipt GetPixelMapusvReply) getPixelMapusv c context_tag map- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetPixelMapusv context_tag map putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getPolygonStipple :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> BOOL -> IO (Receipt GetPolygonStippleReply)+ CONTEXT_TAG -> Bool -> IO (Receipt [Word8]) getPolygonStipple c context_tag lsb_first- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (data_GetPolygonStippleReply `fmap` deserialize)) let req = MkGetPolygonStipple context_tag lsb_first putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getString :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> CARD32 -> IO (Receipt GetStringReply)+ CONTEXT_TAG -> Word32 -> IO (Receipt GetStringReply) getString c context_tag name- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetString context_tag name putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getTexEnvfv :: Graphics.XHB.Connection.Types.Connection -> GetTexEnvfv -> IO (Receipt GetTexEnvfvReply) getTexEnvfv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getTexEnviv :: Graphics.XHB.Connection.Types.Connection -> GetTexEnviv -> IO (Receipt GetTexEnvivReply) getTexEnviv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getTexGendv :: Graphics.XHB.Connection.Types.Connection -> GetTexGendv -> IO (Receipt GetTexGendvReply) getTexGendv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getTexGenfv :: Graphics.XHB.Connection.Types.Connection -> GetTexGenfv -> IO (Receipt GetTexGenfvReply) getTexGenfv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getTexGeniv :: Graphics.XHB.Connection.Types.Connection -> GetTexGeniv -> IO (Receipt GetTexGenivReply) getTexGeniv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getTexImage :: Graphics.XHB.Connection.Types.Connection -> GetTexImage -> IO (Receipt GetTexImageReply) getTexImage c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getTexParameterfv :: Graphics.XHB.Connection.Types.Connection -> GetTexParameterfv -> IO (Receipt GetTexParameterfvReply) getTexParameterfv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getTexParameteriv :: Graphics.XHB.Connection.Types.Connection -> GetTexParameteriv -> IO (Receipt GetTexParameterivReply) getTexParameteriv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getTexLevelParameterfv :: Graphics.XHB.Connection.Types.Connection -> GetTexLevelParameterfv -> IO (Receipt GetTexLevelParameterfvReply) getTexLevelParameterfv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getTexLevelParameteriv :: Graphics.XHB.Connection.Types.Connection -> GetTexLevelParameteriv -> IO (Receipt GetTexLevelParameterivReply) getTexLevelParameteriv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt isList :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> CARD32 -> IO (Receipt IsListReply)+ CONTEXT_TAG -> Word32 -> IO (Receipt BOOL32) isList c context_tag list- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (ret_val_IsListReply `fmap` deserialize)) let req = MkIsList context_tag list putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt flush ::@@ -737,10 +750,10 @@ Graphics.XHB.Connection.Types.Connection -> AreTexturesResident -> IO (Receipt AreTexturesResidentReply) areTexturesResident c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt deleteTextures ::@@ -752,34 +765,36 @@ genTextures :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> INT32 -> IO (Receipt GenTexturesReply)+ CONTEXT_TAG -> Int32 -> IO (Receipt [Word32]) genTextures c context_tag n- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (data_GenTexturesReply `fmap` deserialize)) let req = MkGenTextures context_tag n putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt isTexture :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> CARD32 -> IO (Receipt IsTextureReply)+ CONTEXT_TAG -> Word32 -> IO (Receipt BOOL32) isTexture c context_tag texture- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (ret_val_IsTextureReply `fmap` deserialize)) let req = MkIsTexture context_tag texture putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getColorTable :: Graphics.XHB.Connection.Types.Connection -> GetColorTable -> IO (Receipt GetColorTableReply) getColorTable c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getColorTableParameterfv ::@@ -787,10 +802,10 @@ GetColorTableParameterfv -> IO (Receipt GetColorTableParameterfvReply) getColorTableParameterfv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getColorTableParameteriv ::@@ -798,20 +813,20 @@ GetColorTableParameteriv -> IO (Receipt GetColorTableParameterivReply) getColorTableParameteriv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getConvolutionFilter :: Graphics.XHB.Connection.Types.Connection -> GetConvolutionFilter -> IO (Receipt GetConvolutionFilterReply) getConvolutionFilter c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getConvolutionParameterfv ::@@ -819,10 +834,10 @@ GetConvolutionParameterfv -> IO (Receipt GetConvolutionParameterfvReply) getConvolutionParameterfv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getConvolutionParameteriv ::@@ -830,30 +845,30 @@ GetConvolutionParameteriv -> IO (Receipt GetConvolutionParameterivReply) getConvolutionParameteriv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getSeparableFilter :: Graphics.XHB.Connection.Types.Connection -> GetSeparableFilter -> IO (Receipt GetSeparableFilterReply) getSeparableFilter c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getHistogram :: Graphics.XHB.Connection.Types.Connection -> GetHistogram -> IO (Receipt GetHistogramReply) getHistogram c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getHistogramParameterfv ::@@ -861,10 +876,10 @@ GetHistogramParameterfv -> IO (Receipt GetHistogramParameterfvReply) getHistogramParameterfv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getHistogramParameteriv ::@@ -872,40 +887,41 @@ GetHistogramParameteriv -> IO (Receipt GetHistogramParameterivReply) getHistogramParameteriv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getMinmax :: Graphics.XHB.Connection.Types.Connection ->- GetMinmax -> IO (Receipt GetMinmaxReply)+ GetMinmax -> IO (Receipt [Word8]) getMinmax c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (data_GetMinmaxReply `fmap` deserialize)) putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getMinmaxParameterfv :: Graphics.XHB.Connection.Types.Connection -> GetMinmaxParameterfv -> IO (Receipt GetMinmaxParameterfvReply) getMinmaxParameterfv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getMinmaxParameteriv :: Graphics.XHB.Connection.Types.Connection -> GetMinmaxParameteriv -> IO (Receipt GetMinmaxParameterivReply) getMinmaxParameteriv c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getCompressedTexImageARB ::@@ -913,10 +929,10 @@ GetCompressedTexImageARB -> IO (Receipt GetCompressedTexImageARBReply) getCompressedTexImageARB c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt deleteQueriesARB ::@@ -929,52 +945,54 @@ genQueriesARB :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> INT32 -> IO (Receipt GenQueriesARBReply)+ CONTEXT_TAG -> Int32 -> IO (Receipt [Word32]) genQueriesARB c context_tag n- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (data_GenQueriesARBReply `fmap` deserialize)) let req = MkGenQueriesARB context_tag n putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt isQueryARB :: Graphics.XHB.Connection.Types.Connection ->- CONTEXT_TAG -> CARD32 -> IO (Receipt IsQueryARBReply)+ CONTEXT_TAG -> Word32 -> IO (Receipt BOOL32) isQueryARB c context_tag id- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (ret_val_IsQueryARBReply `fmap` deserialize)) let req = MkIsQueryARB context_tag id putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getQueryivARB :: Graphics.XHB.Connection.Types.Connection -> GetQueryivARB -> IO (Receipt GetQueryivARBReply) getQueryivARB c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getQueryObjectivARB :: Graphics.XHB.Connection.Types.Connection -> GetQueryObjectivARB -> IO (Receipt GetQueryObjectivARBReply) getQueryObjectivARB c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getQueryObjectuivARB :: Graphics.XHB.Connection.Types.Connection -> GetQueryObjectuivARB -> IO (Receipt GetQueryObjectuivARBReply) getQueryObjectuivARB c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/Glx/Types.hs view
@@ -70,6 +70,7 @@ GetQueryObjectuivARB(..), GetQueryObjectuivARBReply(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -143,12 +144,12 @@ type FLOAT64 = CDouble -type BOOL32 = CARD32+type BOOL32 = Word32 -type CONTEXT_TAG = CARD32+type CONTEXT_TAG = Word32 -data Generic = MkGeneric{bad_value_Generic :: CARD32,- minor_opcode_Generic :: CARD16, major_opcode_Generic :: CARD8}+data Generic = MkGeneric{bad_value_Generic :: Word32,+ minor_opcode_Generic :: Word16, major_opcode_Generic :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error Generic@@ -162,9 +163,9 @@ skip 21 return (MkGeneric bad_value minor_opcode major_opcode) -data BadContext = MkBadContext{bad_value_BadContext :: CARD32,- minor_opcode_BadContext :: CARD16,- major_opcode_BadContext :: CARD8}+data BadContext = MkBadContext{bad_value_BadContext :: Word32,+ minor_opcode_BadContext :: Word16,+ major_opcode_BadContext :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error BadContext@@ -179,9 +180,9 @@ return (MkBadContext bad_value minor_opcode major_opcode) data BadContextState = MkBadContextState{bad_value_BadContextState- :: CARD32,- minor_opcode_BadContextState :: CARD16,- major_opcode_BadContextState :: CARD8}+ :: Word32,+ minor_opcode_BadContextState :: Word16,+ major_opcode_BadContextState :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error BadContextState@@ -195,9 +196,9 @@ skip 21 return (MkBadContextState bad_value minor_opcode major_opcode) -data BadDrawable = MkBadDrawable{bad_value_BadDrawable :: CARD32,- minor_opcode_BadDrawable :: CARD16,- major_opcode_BadDrawable :: CARD8}+data BadDrawable = MkBadDrawable{bad_value_BadDrawable :: Word32,+ minor_opcode_BadDrawable :: Word16,+ major_opcode_BadDrawable :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error BadDrawable@@ -211,8 +212,8 @@ skip 21 return (MkBadDrawable bad_value minor_opcode major_opcode) -data BadPixmap = MkBadPixmap{bad_value_BadPixmap :: CARD32,- minor_opcode_BadPixmap :: CARD16, major_opcode_BadPixmap :: CARD8}+data BadPixmap = MkBadPixmap{bad_value_BadPixmap :: Word32,+ minor_opcode_BadPixmap :: Word16, major_opcode_BadPixmap :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error BadPixmap@@ -227,9 +228,9 @@ return (MkBadPixmap bad_value minor_opcode major_opcode) data BadContextTag = MkBadContextTag{bad_value_BadContextTag ::- CARD32,- minor_opcode_BadContextTag :: CARD16,- major_opcode_BadContextTag :: CARD8}+ Word32,+ minor_opcode_BadContextTag :: Word16,+ major_opcode_BadContextTag :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error BadContextTag@@ -244,9 +245,9 @@ return (MkBadContextTag bad_value minor_opcode major_opcode) data BadCurrentWindow = MkBadCurrentWindow{bad_value_BadCurrentWindow- :: CARD32,- minor_opcode_BadCurrentWindow :: CARD16,- major_opcode_BadCurrentWindow :: CARD8}+ :: Word32,+ minor_opcode_BadCurrentWindow :: Word16,+ major_opcode_BadCurrentWindow :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error BadCurrentWindow@@ -261,9 +262,9 @@ return (MkBadCurrentWindow bad_value minor_opcode major_opcode) data BadRenderRequest = MkBadRenderRequest{bad_value_BadRenderRequest- :: CARD32,- minor_opcode_BadRenderRequest :: CARD16,- major_opcode_BadRenderRequest :: CARD8}+ :: Word32,+ minor_opcode_BadRenderRequest :: Word16,+ major_opcode_BadRenderRequest :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error BadRenderRequest@@ -278,9 +279,9 @@ return (MkBadRenderRequest bad_value minor_opcode major_opcode) data BadLargeRequest = MkBadLargeRequest{bad_value_BadLargeRequest- :: CARD32,- minor_opcode_BadLargeRequest :: CARD16,- major_opcode_BadLargeRequest :: CARD8}+ :: Word32,+ minor_opcode_BadLargeRequest :: Word16,+ major_opcode_BadLargeRequest :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error BadLargeRequest@@ -295,11 +296,11 @@ return (MkBadLargeRequest bad_value minor_opcode major_opcode) data UnsupportedPrivateRequest = MkUnsupportedPrivateRequest{bad_value_UnsupportedPrivateRequest- :: CARD32,+ :: Word32, minor_opcode_UnsupportedPrivateRequest- :: CARD16,+ :: Word16, major_opcode_UnsupportedPrivateRequest- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error UnsupportedPrivateRequest@@ -314,9 +315,9 @@ return (MkUnsupportedPrivateRequest bad_value minor_opcode major_opcode) -data BadFBConfig = MkBadFBConfig{bad_value_BadFBConfig :: CARD32,- minor_opcode_BadFBConfig :: CARD16,- major_opcode_BadFBConfig :: CARD8}+data BadFBConfig = MkBadFBConfig{bad_value_BadFBConfig :: Word32,+ minor_opcode_BadFBConfig :: Word16,+ major_opcode_BadFBConfig :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error BadFBConfig@@ -330,9 +331,9 @@ skip 21 return (MkBadFBConfig bad_value minor_opcode major_opcode) -data BadPbuffer = MkBadPbuffer{bad_value_BadPbuffer :: CARD32,- minor_opcode_BadPbuffer :: CARD16,- major_opcode_BadPbuffer :: CARD8}+data BadPbuffer = MkBadPbuffer{bad_value_BadPbuffer :: Word32,+ minor_opcode_BadPbuffer :: Word16,+ major_opcode_BadPbuffer :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error BadPbuffer@@ -347,9 +348,9 @@ return (MkBadPbuffer bad_value minor_opcode major_opcode) data BadCurrentDrawable = MkBadCurrentDrawable{bad_value_BadCurrentDrawable- :: CARD32,- minor_opcode_BadCurrentDrawable :: CARD16,- major_opcode_BadCurrentDrawable :: CARD8}+ :: Word32,+ minor_opcode_BadCurrentDrawable :: Word16,+ major_opcode_BadCurrentDrawable :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error BadCurrentDrawable@@ -363,8 +364,8 @@ skip 21 return (MkBadCurrentDrawable bad_value minor_opcode major_opcode) -data BadWindow = MkBadWindow{bad_value_BadWindow :: CARD32,- minor_opcode_BadWindow :: CARD16, major_opcode_BadWindow :: CARD8}+data BadWindow = MkBadWindow{bad_value_BadWindow :: Word32,+ minor_opcode_BadWindow :: Word16, major_opcode_BadWindow :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error BadWindow@@ -379,16 +380,16 @@ return (MkBadWindow bad_value minor_opcode major_opcode) data PbufferClobber = MkPbufferClobber{event_type_PbufferClobber ::- CARD16,- draw_type_PbufferClobber :: CARD16,+ Word16,+ draw_type_PbufferClobber :: Word16, drawable_PbufferClobber :: Graphics.XHB.Gen.Glx.Types.DRAWABLE,- b_mask_PbufferClobber :: CARD32,- aux_buffer_PbufferClobber :: CARD16,- x_PbufferClobber :: CARD16, y_PbufferClobber :: CARD16,- width_PbufferClobber :: CARD16,- height_PbufferClobber :: CARD16,- count_PbufferClobber :: CARD16}+ b_mask_PbufferClobber :: Word32,+ aux_buffer_PbufferClobber :: Word16,+ x_PbufferClobber :: Word16, y_PbufferClobber :: Word16,+ width_PbufferClobber :: Word16,+ height_PbufferClobber :: Word16,+ count_PbufferClobber :: Word16} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event PbufferClobber@@ -435,7 +436,7 @@ fromValue 32794 = PBCDTPbuffer data Render = MkRender{context_tag_Render :: CONTEXT_TAG,- data_Render :: [BYTE]}+ data_Render :: [Word8]} deriving (Show, Typeable) instance ExtensionRequest Render where@@ -445,16 +446,16 @@ putWord8 1 let size__ = 4 + size (context_tag_Render x) + sum (map size (data_Render x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_Render x) serializeList (data_Render x) putSkip (requiredPadding size__) data RenderLarge = MkRenderLarge{context_tag_RenderLarge :: CONTEXT_TAG,- request_num_RenderLarge :: CARD16,- request_total_RenderLarge :: CARD16,- data_len_RenderLarge :: CARD32, data_RenderLarge :: [BYTE]}+ request_num_RenderLarge :: Word16,+ request_total_RenderLarge :: Word16,+ data_len_RenderLarge :: Word32, data_RenderLarge :: [Word8]} deriving (Show, Typeable) instance ExtensionRequest RenderLarge where@@ -468,7 +469,7 @@ + size (request_total_RenderLarge x) + size (data_len_RenderLarge x) + sum (map size (data_RenderLarge x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_RenderLarge x) serialize (request_num_RenderLarge x) serialize (request_total_RenderLarge x)@@ -479,9 +480,9 @@ data CreateContext = MkCreateContext{context_CreateContext :: Graphics.XHB.Gen.Glx.Types.CONTEXT, visual_CreateContext :: VISUALID,- screen_CreateContext :: CARD32,+ screen_CreateContext :: Word32, share_list_CreateContext :: Graphics.XHB.Gen.Glx.Types.CONTEXT,- is_direct_CreateContext :: BOOL}+ is_direct_CreateContext :: Bool} deriving (Show, Typeable) instance ExtensionRequest CreateContext where@@ -496,7 +497,7 @@ + size (share_list_CreateContext x) + size (is_direct_CreateContext x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_CreateContext x) serialize (visual_CreateContext x) serialize (screen_CreateContext x)@@ -515,7 +516,7 @@ = do putWord8 extOpCode putWord8 4 let size__ = 4 + size (context_DestroyContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_DestroyContext x) putSkip (requiredPadding size__) @@ -533,7 +534,7 @@ let size__ = 4 + size (drawable_MakeCurrent x) + size (context_MakeCurrent x) + size (old_context_tag_MakeCurrent x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (drawable_MakeCurrent x) serialize (context_MakeCurrent x) serialize (old_context_tag_MakeCurrent x)@@ -564,12 +565,12 @@ = do putWord8 extOpCode putWord8 6 let size__ = 4 + size (context_IsDirect x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_IsDirect x) putSkip (requiredPadding size__) data IsDirectReply = MkIsDirectReply{is_direct_IsDirectReply ::- BOOL}+ Bool} deriving (Show, Typeable) instance Deserialize IsDirectReply where@@ -584,8 +585,8 @@ return (MkIsDirectReply is_direct) data QueryVersion = MkQueryVersion{major_version_QueryVersion ::- CARD32,- minor_version_QueryVersion :: CARD32}+ Word32,+ minor_version_QueryVersion :: Word32} deriving (Show, Typeable) instance ExtensionRequest QueryVersion where@@ -596,14 +597,14 @@ let size__ = 4 + size (major_version_QueryVersion x) + size (minor_version_QueryVersion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (major_version_QueryVersion x) serialize (minor_version_QueryVersion x) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply- :: CARD32,- minor_version_QueryVersionReply :: CARD32}+ :: Word32,+ minor_version_QueryVersionReply :: Word32} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -627,7 +628,7 @@ = do putWord8 extOpCode putWord8 8 let size__ = 4 + size (context_tag_WaitGL x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_WaitGL x) putSkip (requiredPadding size__) @@ -640,14 +641,14 @@ = do putWord8 extOpCode putWord8 9 let size__ = 4 + size (context_tag_WaitX x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_WaitX x) putSkip (requiredPadding size__) data CopyContext = MkCopyContext{src_CopyContext :: Graphics.XHB.Gen.Glx.Types.CONTEXT, dest_CopyContext :: Graphics.XHB.Gen.Glx.Types.CONTEXT,- mask_CopyContext :: CARD32,+ mask_CopyContext :: Word32, src_context_tag_CopyContext :: CONTEXT_TAG} deriving (Show, Typeable) @@ -660,7 +661,7 @@ = 4 + size (src_CopyContext x) + size (dest_CopyContext x) + size (mask_CopyContext x) + size (src_context_tag_CopyContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (src_CopyContext x) serialize (dest_CopyContext x) serialize (mask_CopyContext x)@@ -743,14 +744,14 @@ let size__ = 4 + size (context_tag_SwapBuffers x) + size (drawable_SwapBuffers x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_SwapBuffers x) serialize (drawable_SwapBuffers x) putSkip (requiredPadding size__) data UseXFont = MkUseXFont{context_tag_UseXFont :: CONTEXT_TAG,- font_UseXFont :: FONT, first_UseXFont :: CARD32,- count_UseXFont :: CARD32, list_base_UseXFont :: CARD32}+ font_UseXFont :: FONT, first_UseXFont :: Word32,+ count_UseXFont :: Word32, list_base_UseXFont :: Word32} deriving (Show, Typeable) instance ExtensionRequest UseXFont where@@ -763,7 +764,7 @@ size (first_UseXFont x) + size (count_UseXFont x) + size (list_base_UseXFont x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_UseXFont x) serialize (font_UseXFont x) serialize (first_UseXFont x)@@ -772,7 +773,7 @@ putSkip (requiredPadding size__) data CreateGLXPixmap = MkCreateGLXPixmap{screen_CreateGLXPixmap ::- CARD32,+ Word32, visual_CreateGLXPixmap :: VISUALID, pixmap_CreateGLXPixmap :: Graphics.XHB.Gen.Xproto.Types.PIXMAP,@@ -790,7 +791,7 @@ size (visual_CreateGLXPixmap x) + size (pixmap_CreateGLXPixmap x) + size (glx_pixmap_CreateGLXPixmap x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_CreateGLXPixmap x) serialize (visual_CreateGLXPixmap x) serialize (pixmap_CreateGLXPixmap x)@@ -798,7 +799,7 @@ putSkip (requiredPadding size__) data GetVisualConfigs = MkGetVisualConfigs{screen_GetVisualConfigs- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetVisualConfigs where@@ -807,15 +808,15 @@ = do putWord8 extOpCode putWord8 14 let size__ = 4 + size (screen_GetVisualConfigs x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_GetVisualConfigs x) putSkip (requiredPadding size__) data GetVisualConfigsReply = MkGetVisualConfigsReply{num_visuals_GetVisualConfigsReply- :: CARD32,- num_properties_GetVisualConfigsReply :: CARD32,+ :: Word32,+ num_properties_GetVisualConfigsReply :: Word32, property_list_GetVisualConfigsReply ::- [CARD32]}+ [Word32]} deriving (Show, Typeable) instance Deserialize GetVisualConfigsReply where@@ -842,14 +843,14 @@ = do putWord8 extOpCode putWord8 15 let size__ = 4 + size (glx_pixmap_DestroyGLXPixmap x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (glx_pixmap_DestroyGLXPixmap x) putSkip (requiredPadding size__) data VendorPrivate = MkVendorPrivate{vendor_code_VendorPrivate ::- CARD32,+ Word32, context_tag_VendorPrivate :: CONTEXT_TAG,- data_VendorPrivate :: [BYTE]}+ data_VendorPrivate :: [Word8]} deriving (Show, Typeable) instance ExtensionRequest VendorPrivate where@@ -861,17 +862,17 @@ = 4 + size (vendor_code_VendorPrivate x) + size (context_tag_VendorPrivate x) + sum (map size (data_VendorPrivate x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (vendor_code_VendorPrivate x) serialize (context_tag_VendorPrivate x) serializeList (data_VendorPrivate x) putSkip (requiredPadding size__) data VendorPrivateWithReply = MkVendorPrivateWithReply{vendor_code_VendorPrivateWithReply- :: CARD32,+ :: Word32, context_tag_VendorPrivateWithReply :: CONTEXT_TAG,- data_VendorPrivateWithReply :: [BYTE]}+ data_VendorPrivateWithReply :: [Word8]} deriving (Show, Typeable) instance ExtensionRequest VendorPrivateWithReply where@@ -883,18 +884,18 @@ = 4 + size (vendor_code_VendorPrivateWithReply x) + size (context_tag_VendorPrivateWithReply x) + sum (map size (data_VendorPrivateWithReply x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (vendor_code_VendorPrivateWithReply x) serialize (context_tag_VendorPrivateWithReply x) serializeList (data_VendorPrivateWithReply x) putSkip (requiredPadding size__) data VendorPrivateWithReplyReply = MkVendorPrivateWithReplyReply{retval_VendorPrivateWithReplyReply- :: CARD32,+ :: Word32, data1_VendorPrivateWithReplyReply- :: [BYTE],+ :: [Word8], data2_VendorPrivateWithReplyReply- :: [BYTE]}+ :: [Word8]} deriving (Show, Typeable) instance Deserialize VendorPrivateWithReplyReply where@@ -910,7 +911,7 @@ return (MkVendorPrivateWithReplyReply retval data1 data2) data QueryExtensionsString = MkQueryExtensionsString{screen_QueryExtensionsString- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance ExtensionRequest QueryExtensionsString where@@ -919,12 +920,12 @@ = do putWord8 extOpCode putWord8 18 let size__ = 4 + size (screen_QueryExtensionsString x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_QueryExtensionsString x) putSkip (requiredPadding size__) data QueryExtensionsStringReply = MkQueryExtensionsStringReply{n_QueryExtensionsStringReply- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance Deserialize QueryExtensionsStringReply where@@ -940,8 +941,8 @@ return (MkQueryExtensionsStringReply n) data QueryServerString = MkQueryServerString{screen_QueryServerString- :: CARD32,- name_QueryServerString :: CARD32}+ :: Word32,+ name_QueryServerString :: Word32} deriving (Show, Typeable) instance ExtensionRequest QueryServerString where@@ -952,13 +953,13 @@ let size__ = 4 + size (screen_QueryServerString x) + size (name_QueryServerString x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_QueryServerString x) serialize (name_QueryServerString x) putSkip (requiredPadding size__) data QueryServerStringReply = MkQueryServerStringReply{str_len_QueryServerStringReply- :: CARD32,+ :: Word32, string_QueryServerStringReply :: [CChar]} deriving (Show, Typeable) @@ -975,8 +976,8 @@ let _ = isCard32 length return (MkQueryServerStringReply str_len string) -data ClientInfo = MkClientInfo{major_version_ClientInfo :: CARD32,- minor_version_ClientInfo :: CARD32, str_len_ClientInfo :: CARD32,+data ClientInfo = MkClientInfo{major_version_ClientInfo :: Word32,+ minor_version_ClientInfo :: Word32, str_len_ClientInfo :: Word32, string_ClientInfo :: [CChar]} deriving (Show, Typeable) @@ -990,14 +991,14 @@ size (minor_version_ClientInfo x) + size (str_len_ClientInfo x) + sum (map size (string_ClientInfo x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (major_version_ClientInfo x) serialize (minor_version_ClientInfo x) serialize (str_len_ClientInfo x) serializeList (string_ClientInfo x) putSkip (requiredPadding size__) -data GetFBConfigs = MkGetFBConfigs{screen_GetFBConfigs :: CARD32}+data GetFBConfigs = MkGetFBConfigs{screen_GetFBConfigs :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetFBConfigs where@@ -1006,14 +1007,14 @@ = do putWord8 extOpCode putWord8 21 let size__ = 4 + size (screen_GetFBConfigs x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_GetFBConfigs x) putSkip (requiredPadding size__) data GetFBConfigsReply = MkGetFBConfigsReply{num_FB_configs_GetFBConfigsReply- :: CARD32,- num_properties_GetFBConfigsReply :: CARD32,- property_list_GetFBConfigsReply :: [CARD32]}+ :: Word32,+ num_properties_GetFBConfigsReply :: Word32,+ property_list_GetFBConfigsReply :: [Word32]} deriving (Show, Typeable) instance Deserialize GetFBConfigsReply where@@ -1030,12 +1031,12 @@ return (MkGetFBConfigsReply num_FB_configs num_properties property_list) -data CreatePixmap = MkCreatePixmap{screen_CreatePixmap :: CARD32,- fbconfig_CreatePixmap :: CARD32,+data CreatePixmap = MkCreatePixmap{screen_CreatePixmap :: Word32,+ fbconfig_CreatePixmap :: Word32, pixmap_CreatePixmap :: Graphics.XHB.Gen.Xproto.Types.PIXMAP, glx_pixmap_CreatePixmap :: Graphics.XHB.Gen.Glx.Types.PIXMAP,- num_attribs_CreatePixmap :: CARD32,- attribs_CreatePixmap :: [CARD32]}+ num_attribs_CreatePixmap :: Word32,+ attribs_CreatePixmap :: [Word32]} deriving (Show, Typeable) instance ExtensionRequest CreatePixmap where@@ -1049,7 +1050,7 @@ + size (glx_pixmap_CreatePixmap x) + size (num_attribs_CreatePixmap x) + sum (map size (attribs_CreatePixmap x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_CreatePixmap x) serialize (fbconfig_CreatePixmap x) serialize (pixmap_CreatePixmap x)@@ -1068,19 +1069,19 @@ = do putWord8 extOpCode putWord8 23 let size__ = 4 + size (glx_pixmap_DestroyPixmap x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (glx_pixmap_DestroyPixmap x) putSkip (requiredPadding size__) data CreateNewContext = MkCreateNewContext{context_CreateNewContext :: Graphics.XHB.Gen.Glx.Types.CONTEXT,- fbconfig_CreateNewContext :: CARD32,- screen_CreateNewContext :: CARD32,- render_type_CreateNewContext :: CARD32,- share_list_CreateNewContext :: CARD32,- is_direct_CreateNewContext :: BOOL,- reserved1_CreateNewContext :: CARD8,- reserved2_CreateNewContext :: CARD16}+ fbconfig_CreateNewContext :: Word32,+ screen_CreateNewContext :: Word32,+ render_type_CreateNewContext :: Word32,+ share_list_CreateNewContext :: Word32,+ is_direct_CreateNewContext :: Bool,+ reserved1_CreateNewContext :: Word8,+ reserved2_CreateNewContext :: Word16} deriving (Show, Typeable) instance ExtensionRequest CreateNewContext where@@ -1097,7 +1098,7 @@ + size (is_direct_CreateNewContext x) + size (reserved1_CreateNewContext x) + size (reserved2_CreateNewContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_CreateNewContext x) serialize (fbconfig_CreateNewContext x) serialize (screen_CreateNewContext x)@@ -1118,13 +1119,13 @@ = do putWord8 extOpCode putWord8 25 let size__ = 4 + size (context_QueryContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_QueryContext x) putSkip (requiredPadding size__) data QueryContextReply = MkQueryContextReply{num_attribs_QueryContextReply- :: CARD32,- attribs_QueryContextReply :: [CARD32]}+ :: Word32,+ attribs_QueryContextReply :: [Word32]} deriving (Show, Typeable) instance Deserialize QueryContextReply where@@ -1160,7 +1161,7 @@ size (drawable_MakeContextCurrent x) + size (read_drawable_MakeContextCurrent x) + size (context_MakeContextCurrent x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (old_context_tag_MakeContextCurrent x) serialize (drawable_MakeContextCurrent x) serialize (read_drawable_MakeContextCurrent x)@@ -1183,11 +1184,11 @@ return (MkMakeContextCurrentReply context_tag) data CreatePbuffer = MkCreatePbuffer{screen_CreatePbuffer ::- CARD32,+ Word32, fbconfig_CreatePbuffer :: FBCONFIG, pbuffer_CreatePbuffer :: PBUFFER,- num_attribs_CreatePbuffer :: CARD32,- attribs_CreatePbuffer :: [CARD32]}+ num_attribs_CreatePbuffer :: Word32,+ attribs_CreatePbuffer :: [Word32]} deriving (Show, Typeable) instance ExtensionRequest CreatePbuffer where@@ -1201,7 +1202,7 @@ + size (pbuffer_CreatePbuffer x) + size (num_attribs_CreatePbuffer x) + sum (map size (attribs_CreatePbuffer x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_CreatePbuffer x) serialize (fbconfig_CreatePbuffer x) serialize (pbuffer_CreatePbuffer x)@@ -1219,7 +1220,7 @@ = do putWord8 extOpCode putWord8 28 let size__ = 4 + size (pbuffer_DestroyPbuffer x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (pbuffer_DestroyPbuffer x) putSkip (requiredPadding size__) @@ -1233,14 +1234,14 @@ = do putWord8 extOpCode putWord8 29 let size__ = 4 + size (drawable_GetDrawableAttributes x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (drawable_GetDrawableAttributes x) putSkip (requiredPadding size__) data GetDrawableAttributesReply = MkGetDrawableAttributesReply{num_attribs_GetDrawableAttributesReply- :: CARD32,+ :: Word32, attribs_GetDrawableAttributesReply ::- [CARD32]}+ [Word32]} deriving (Show, Typeable) instance Deserialize GetDrawableAttributesReply where@@ -1259,9 +1260,9 @@ data ChangeDrawableAttributes = MkChangeDrawableAttributes{drawable_ChangeDrawableAttributes :: Graphics.XHB.Gen.Glx.Types.DRAWABLE, num_attribs_ChangeDrawableAttributes ::- CARD32,+ Word32, attribs_ChangeDrawableAttributes ::- [CARD32]}+ [Word32]} deriving (Show, Typeable) instance ExtensionRequest ChangeDrawableAttributes where@@ -1273,18 +1274,18 @@ = 4 + size (drawable_ChangeDrawableAttributes x) + size (num_attribs_ChangeDrawableAttributes x) + sum (map size (attribs_ChangeDrawableAttributes x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (drawable_ChangeDrawableAttributes x) serialize (num_attribs_ChangeDrawableAttributes x) serializeList (attribs_ChangeDrawableAttributes x) putSkip (requiredPadding size__) -data CreateWindow = MkCreateWindow{screen_CreateWindow :: CARD32,+data CreateWindow = MkCreateWindow{screen_CreateWindow :: Word32, fbconfig_CreateWindow :: FBCONFIG, window_CreateWindow :: Graphics.XHB.Gen.Xproto.Types.WINDOW, glx_window_CreateWindow :: Graphics.XHB.Gen.Glx.Types.WINDOW,- num_attribs_CreateWindow :: CARD32,- attribs_CreateWindow :: [CARD32]}+ num_attribs_CreateWindow :: Word32,+ attribs_CreateWindow :: [Word32]} deriving (Show, Typeable) instance ExtensionRequest CreateWindow where@@ -1298,7 +1299,7 @@ + size (glx_window_CreateWindow x) + size (num_attribs_CreateWindow x) + sum (map size (attribs_CreateWindow x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_CreateWindow x) serialize (fbconfig_CreateWindow x) serialize (window_CreateWindow x)@@ -1317,12 +1318,12 @@ = do putWord8 extOpCode putWord8 32 let size__ = 4 + size (glxwindow_DeleteWindow x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (glxwindow_DeleteWindow x) putSkip (requiredPadding size__) data NewList = MkNewList{context_tag_NewList :: CONTEXT_TAG,- list_NewList :: CARD32, mode_NewList :: CARD32}+ list_NewList :: Word32, mode_NewList :: Word32} deriving (Show, Typeable) instance ExtensionRequest NewList where@@ -1333,7 +1334,7 @@ let size__ = 4 + size (context_tag_NewList x) + size (list_NewList x) + size (mode_NewList x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_NewList x) serialize (list_NewList x) serialize (mode_NewList x)@@ -1348,13 +1349,13 @@ = do putWord8 extOpCode putWord8 102 let size__ = 4 + size (context_tag_EndList x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_EndList x) putSkip (requiredPadding size__) data DeleteLists = MkDeleteLists{context_tag_DeleteLists :: CONTEXT_TAG,- list_DeleteLists :: CARD32, range_DeleteLists :: INT32}+ list_DeleteLists :: Word32, range_DeleteLists :: Int32} deriving (Show, Typeable) instance ExtensionRequest DeleteLists where@@ -1365,14 +1366,14 @@ let size__ = 4 + size (context_tag_DeleteLists x) + size (list_DeleteLists x) + size (range_DeleteLists x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_DeleteLists x) serialize (list_DeleteLists x) serialize (range_DeleteLists x) putSkip (requiredPadding size__) data GenLists = MkGenLists{context_tag_GenLists :: CONTEXT_TAG,- range_GenLists :: INT32}+ range_GenLists :: Int32} deriving (Show, Typeable) instance ExtensionRequest GenLists where@@ -1382,13 +1383,13 @@ putWord8 104 let size__ = 4 + size (context_tag_GenLists x) + size (range_GenLists x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GenLists x) serialize (range_GenLists x) putSkip (requiredPadding size__) data GenListsReply = MkGenListsReply{ret_val_GenListsReply ::- CARD32}+ Word32} deriving (Show, Typeable) instance Deserialize GenListsReply where@@ -1403,7 +1404,7 @@ data FeedbackBuffer = MkFeedbackBuffer{context_tag_FeedbackBuffer :: CONTEXT_TAG,- size_FeedbackBuffer :: INT32, type_FeedbackBuffer :: INT32}+ size_FeedbackBuffer :: Int32, type_FeedbackBuffer :: Int32} deriving (Show, Typeable) instance ExtensionRequest FeedbackBuffer where@@ -1415,7 +1416,7 @@ = 4 + size (context_tag_FeedbackBuffer x) + size (size_FeedbackBuffer x) + size (type_FeedbackBuffer x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_FeedbackBuffer x) serialize (size_FeedbackBuffer x) serialize (type_FeedbackBuffer x)@@ -1423,7 +1424,7 @@ data SelectBuffer = MkSelectBuffer{context_tag_SelectBuffer :: CONTEXT_TAG,- size_SelectBuffer :: INT32}+ size_SelectBuffer :: Int32} deriving (Show, Typeable) instance ExtensionRequest SelectBuffer where@@ -1434,14 +1435,14 @@ let size__ = 4 + size (context_tag_SelectBuffer x) + size (size_SelectBuffer x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_SelectBuffer x) serialize (size_SelectBuffer x) putSkip (requiredPadding size__) data RenderMode = MkRenderMode{context_tag_RenderMode :: CONTEXT_TAG,- mode_RenderMode :: CARD32}+ mode_RenderMode :: Word32} deriving (Show, Typeable) instance ExtensionRequest RenderMode where@@ -1451,16 +1452,16 @@ putWord8 107 let size__ = 4 + size (context_tag_RenderMode x) + size (mode_RenderMode x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_RenderMode x) serialize (mode_RenderMode x) putSkip (requiredPadding size__) data RenderModeReply = MkRenderModeReply{ret_val_RenderModeReply ::- CARD32,- n_RenderModeReply :: CARD32,- new_mode_RenderModeReply :: CARD32,- data_RenderModeReply :: [CARD32]}+ Word32,+ n_RenderModeReply :: Word32,+ new_mode_RenderModeReply :: Word32,+ data_RenderModeReply :: [Word32]} deriving (Show, Typeable) instance Deserialize RenderModeReply where@@ -1498,7 +1499,7 @@ = do putWord8 extOpCode putWord8 108 let size__ = 4 + size (context_tag_Finish x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_Finish x) putSkip (requiredPadding size__) @@ -1516,7 +1517,7 @@ data PixelStoref = MkPixelStoref{context_tag_PixelStoref :: CONTEXT_TAG,- pname_PixelStoref :: CARD32, datum_PixelStoref :: FLOAT32}+ pname_PixelStoref :: Word32, datum_PixelStoref :: FLOAT32} deriving (Show, Typeable) instance ExtensionRequest PixelStoref where@@ -1527,7 +1528,7 @@ let size__ = 4 + size (context_tag_PixelStoref x) + size (pname_PixelStoref x) + size (datum_PixelStoref x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_PixelStoref x) serialize (pname_PixelStoref x) serialize (datum_PixelStoref x)@@ -1535,7 +1536,7 @@ data PixelStorei = MkPixelStorei{context_tag_PixelStorei :: CONTEXT_TAG,- pname_PixelStorei :: CARD32, datum_PixelStorei :: INT32}+ pname_PixelStorei :: Word32, datum_PixelStorei :: Int32} deriving (Show, Typeable) instance ExtensionRequest PixelStorei where@@ -1546,7 +1547,7 @@ let size__ = 4 + size (context_tag_PixelStorei x) + size (pname_PixelStorei x) + size (datum_PixelStorei x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_PixelStorei x) serialize (pname_PixelStorei x) serialize (datum_PixelStorei x)@@ -1554,10 +1555,10 @@ data ReadPixels = MkReadPixels{context_tag_ReadPixels :: CONTEXT_TAG,- x_ReadPixels :: INT32, y_ReadPixels :: INT32,- width_ReadPixels :: INT32, height_ReadPixels :: INT32,- format_ReadPixels :: CARD32, type_ReadPixels :: CARD32,- swap_bytes_ReadPixels :: BOOL, lsb_first_ReadPixels :: BOOL}+ x_ReadPixels :: Int32, y_ReadPixels :: Int32,+ width_ReadPixels :: Int32, height_ReadPixels :: Int32,+ format_ReadPixels :: Word32, type_ReadPixels :: Word32,+ swap_bytes_ReadPixels :: Bool, lsb_first_ReadPixels :: Bool} deriving (Show, Typeable) instance ExtensionRequest ReadPixels where@@ -1574,7 +1575,7 @@ + size (type_ReadPixels x) + size (swap_bytes_ReadPixels x) + size (lsb_first_ReadPixels x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_ReadPixels x) serialize (x_ReadPixels x) serialize (y_ReadPixels x)@@ -1587,7 +1588,7 @@ putSkip (requiredPadding size__) data ReadPixelsReply = MkReadPixelsReply{data_ReadPixelsReply ::- [BYTE]}+ [Word8]} deriving (Show, Typeable) instance Deserialize ReadPixelsReply where@@ -1603,7 +1604,7 @@ data GetBooleanv = MkGetBooleanv{context_tag_GetBooleanv :: CONTEXT_TAG,- pname_GetBooleanv :: INT32}+ pname_GetBooleanv :: Int32} deriving (Show, Typeable) instance ExtensionRequest GetBooleanv where@@ -1613,15 +1614,15 @@ putWord8 112 let size__ = 4 + size (context_tag_GetBooleanv x) + size (pname_GetBooleanv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetBooleanv x) serialize (pname_GetBooleanv x) putSkip (requiredPadding size__) data GetBooleanvReply = MkGetBooleanvReply{n_GetBooleanvReply ::- CARD32,- datum_GetBooleanvReply :: BOOL,- data_GetBooleanvReply :: [BOOL]}+ Word32,+ datum_GetBooleanvReply :: Bool,+ data_GetBooleanvReply :: [Bool]} deriving (Show, Typeable) instance Deserialize GetBooleanvReply where@@ -1640,7 +1641,7 @@ data GetClipPlane = MkGetClipPlane{context_tag_GetClipPlane :: CONTEXT_TAG,- plane_GetClipPlane :: INT32}+ plane_GetClipPlane :: Int32} deriving (Show, Typeable) instance ExtensionRequest GetClipPlane where@@ -1651,7 +1652,7 @@ let size__ = 4 + size (context_tag_GetClipPlane x) + size (plane_GetClipPlane x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetClipPlane x) serialize (plane_GetClipPlane x) putSkip (requiredPadding size__)@@ -1674,7 +1675,7 @@ data GetDoublev = MkGetDoublev{context_tag_GetDoublev :: CONTEXT_TAG,- pname_GetDoublev :: CARD32}+ pname_GetDoublev :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetDoublev where@@ -1684,13 +1685,13 @@ putWord8 114 let size__ = 4 + size (context_tag_GetDoublev x) + size (pname_GetDoublev x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetDoublev x) serialize (pname_GetDoublev x) putSkip (requiredPadding size__) data GetDoublevReply = MkGetDoublevReply{n_GetDoublevReply ::- CARD32,+ Word32, datum_GetDoublevReply :: FLOAT64, data_GetDoublevReply :: [FLOAT64]} deriving (Show, Typeable)@@ -1718,11 +1719,11 @@ = do putWord8 extOpCode putWord8 115 let size__ = 4 + size (context_tag_GetError x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetError x) putSkip (requiredPadding size__) -data GetErrorReply = MkGetErrorReply{error_GetErrorReply :: INT32}+data GetErrorReply = MkGetErrorReply{error_GetErrorReply :: Int32} deriving (Show, Typeable) instance Deserialize GetErrorReply where@@ -1736,7 +1737,7 @@ return (MkGetErrorReply error) data GetFloatv = MkGetFloatv{context_tag_GetFloatv :: CONTEXT_TAG,- pname_GetFloatv :: CARD32}+ pname_GetFloatv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetFloatv where@@ -1746,12 +1747,12 @@ putWord8 116 let size__ = 4 + size (context_tag_GetFloatv x) + size (pname_GetFloatv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetFloatv x) serialize (pname_GetFloatv x) putSkip (requiredPadding size__) -data GetFloatvReply = MkGetFloatvReply{n_GetFloatvReply :: CARD32,+data GetFloatvReply = MkGetFloatvReply{n_GetFloatvReply :: Word32, datum_GetFloatvReply :: FLOAT32, data_GetFloatvReply :: [FLOAT32]} deriving (Show, Typeable)@@ -1772,7 +1773,7 @@ data GetIntegerv = MkGetIntegerv{context_tag_GetIntegerv :: CONTEXT_TAG,- pname_GetIntegerv :: CARD32}+ pname_GetIntegerv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetIntegerv where@@ -1782,15 +1783,15 @@ putWord8 117 let size__ = 4 + size (context_tag_GetIntegerv x) + size (pname_GetIntegerv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetIntegerv x) serialize (pname_GetIntegerv x) putSkip (requiredPadding size__) data GetIntegervReply = MkGetIntegervReply{n_GetIntegervReply ::- CARD32,- datum_GetIntegervReply :: INT32,- data_GetIntegervReply :: [INT32]}+ Word32,+ datum_GetIntegervReply :: Int32,+ data_GetIntegervReply :: [Int32]} deriving (Show, Typeable) instance Deserialize GetIntegervReply where@@ -1809,7 +1810,7 @@ data GetLightfv = MkGetLightfv{context_tag_GetLightfv :: CONTEXT_TAG,- light_GetLightfv :: CARD32, pname_GetLightfv :: CARD32}+ light_GetLightfv :: Word32, pname_GetLightfv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetLightfv where@@ -1820,14 +1821,14 @@ let size__ = 4 + size (context_tag_GetLightfv x) + size (light_GetLightfv x) + size (pname_GetLightfv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetLightfv x) serialize (light_GetLightfv x) serialize (pname_GetLightfv x) putSkip (requiredPadding size__) data GetLightfvReply = MkGetLightfvReply{n_GetLightfvReply ::- CARD32,+ Word32, datum_GetLightfvReply :: FLOAT32, data_GetLightfvReply :: [FLOAT32]} deriving (Show, Typeable)@@ -1848,7 +1849,7 @@ data GetLightiv = MkGetLightiv{context_tag_GetLightiv :: CONTEXT_TAG,- light_GetLightiv :: CARD32, pname_GetLightiv :: CARD32}+ light_GetLightiv :: Word32, pname_GetLightiv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetLightiv where@@ -1859,16 +1860,16 @@ let size__ = 4 + size (context_tag_GetLightiv x) + size (light_GetLightiv x) + size (pname_GetLightiv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetLightiv x) serialize (light_GetLightiv x) serialize (pname_GetLightiv x) putSkip (requiredPadding size__) data GetLightivReply = MkGetLightivReply{n_GetLightivReply ::- CARD32,- datum_GetLightivReply :: INT32,- data_GetLightivReply :: [INT32]}+ Word32,+ datum_GetLightivReply :: Int32,+ data_GetLightivReply :: [Int32]} deriving (Show, Typeable) instance Deserialize GetLightivReply where@@ -1886,7 +1887,7 @@ return (MkGetLightivReply n datum data_) data GetMapdv = MkGetMapdv{context_tag_GetMapdv :: CONTEXT_TAG,- target_GetMapdv :: CARD32, query_GetMapdv :: CARD32}+ target_GetMapdv :: Word32, query_GetMapdv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetMapdv where@@ -1897,13 +1898,13 @@ let size__ = 4 + size (context_tag_GetMapdv x) + size (target_GetMapdv x) + size (query_GetMapdv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetMapdv x) serialize (target_GetMapdv x) serialize (query_GetMapdv x) putSkip (requiredPadding size__) -data GetMapdvReply = MkGetMapdvReply{n_GetMapdvReply :: CARD32,+data GetMapdvReply = MkGetMapdvReply{n_GetMapdvReply :: Word32, datum_GetMapdvReply :: FLOAT64, data_GetMapdvReply :: [FLOAT64]} deriving (Show, Typeable)@@ -1923,7 +1924,7 @@ return (MkGetMapdvReply n datum data_) data GetMapfv = MkGetMapfv{context_tag_GetMapfv :: CONTEXT_TAG,- target_GetMapfv :: CARD32, query_GetMapfv :: CARD32}+ target_GetMapfv :: Word32, query_GetMapfv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetMapfv where@@ -1934,13 +1935,13 @@ let size__ = 4 + size (context_tag_GetMapfv x) + size (target_GetMapfv x) + size (query_GetMapfv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetMapfv x) serialize (target_GetMapfv x) serialize (query_GetMapfv x) putSkip (requiredPadding size__) -data GetMapfvReply = MkGetMapfvReply{n_GetMapfvReply :: CARD32,+data GetMapfvReply = MkGetMapfvReply{n_GetMapfvReply :: Word32, datum_GetMapfvReply :: FLOAT32, data_GetMapfvReply :: [FLOAT32]} deriving (Show, Typeable)@@ -1960,7 +1961,7 @@ return (MkGetMapfvReply n datum data_) data GetMapiv = MkGetMapiv{context_tag_GetMapiv :: CONTEXT_TAG,- target_GetMapiv :: CARD32, query_GetMapiv :: CARD32}+ target_GetMapiv :: Word32, query_GetMapiv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetMapiv where@@ -1971,14 +1972,14 @@ let size__ = 4 + size (context_tag_GetMapiv x) + size (target_GetMapiv x) + size (query_GetMapiv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetMapiv x) serialize (target_GetMapiv x) serialize (query_GetMapiv x) putSkip (requiredPadding size__) -data GetMapivReply = MkGetMapivReply{n_GetMapivReply :: CARD32,- datum_GetMapivReply :: INT32, data_GetMapivReply :: [INT32]}+data GetMapivReply = MkGetMapivReply{n_GetMapivReply :: Word32,+ datum_GetMapivReply :: Int32, data_GetMapivReply :: [Int32]} deriving (Show, Typeable) instance Deserialize GetMapivReply where@@ -1997,7 +1998,7 @@ data GetMaterialfv = MkGetMaterialfv{context_tag_GetMaterialfv :: CONTEXT_TAG,- face_GetMaterialfv :: CARD32, pname_GetMaterialfv :: CARD32}+ face_GetMaterialfv :: Word32, pname_GetMaterialfv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetMaterialfv where@@ -2009,14 +2010,14 @@ = 4 + size (context_tag_GetMaterialfv x) + size (face_GetMaterialfv x) + size (pname_GetMaterialfv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetMaterialfv x) serialize (face_GetMaterialfv x) serialize (pname_GetMaterialfv x) putSkip (requiredPadding size__) data GetMaterialfvReply = MkGetMaterialfvReply{n_GetMaterialfvReply- :: CARD32,+ :: Word32, datum_GetMaterialfvReply :: FLOAT32, data_GetMaterialfvReply :: [FLOAT32]} deriving (Show, Typeable)@@ -2037,7 +2038,7 @@ data GetMaterialiv = MkGetMaterialiv{context_tag_GetMaterialiv :: CONTEXT_TAG,- face_GetMaterialiv :: CARD32, pname_GetMaterialiv :: CARD32}+ face_GetMaterialiv :: Word32, pname_GetMaterialiv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetMaterialiv where@@ -2049,16 +2050,16 @@ = 4 + size (context_tag_GetMaterialiv x) + size (face_GetMaterialiv x) + size (pname_GetMaterialiv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetMaterialiv x) serialize (face_GetMaterialiv x) serialize (pname_GetMaterialiv x) putSkip (requiredPadding size__) data GetMaterialivReply = MkGetMaterialivReply{n_GetMaterialivReply- :: CARD32,- datum_GetMaterialivReply :: INT32,- data_GetMaterialivReply :: [INT32]}+ :: Word32,+ datum_GetMaterialivReply :: Int32,+ data_GetMaterialivReply :: [Int32]} deriving (Show, Typeable) instance Deserialize GetMaterialivReply where@@ -2077,7 +2078,7 @@ data GetPixelMapfv = MkGetPixelMapfv{context_tag_GetPixelMapfv :: CONTEXT_TAG,- map_GetPixelMapfv :: CARD32}+ map_GetPixelMapfv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetPixelMapfv where@@ -2088,13 +2089,13 @@ let size__ = 4 + size (context_tag_GetPixelMapfv x) + size (map_GetPixelMapfv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetPixelMapfv x) serialize (map_GetPixelMapfv x) putSkip (requiredPadding size__) data GetPixelMapfvReply = MkGetPixelMapfvReply{n_GetPixelMapfvReply- :: CARD32,+ :: Word32, datum_GetPixelMapfvReply :: FLOAT32, data_GetPixelMapfvReply :: [FLOAT32]} deriving (Show, Typeable)@@ -2115,7 +2116,7 @@ data GetPixelMapuiv = MkGetPixelMapuiv{context_tag_GetPixelMapuiv :: CONTEXT_TAG,- map_GetPixelMapuiv :: CARD32}+ map_GetPixelMapuiv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetPixelMapuiv where@@ -2126,15 +2127,15 @@ let size__ = 4 + size (context_tag_GetPixelMapuiv x) + size (map_GetPixelMapuiv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetPixelMapuiv x) serialize (map_GetPixelMapuiv x) putSkip (requiredPadding size__) data GetPixelMapuivReply = MkGetPixelMapuivReply{n_GetPixelMapuivReply- :: CARD32,- datum_GetPixelMapuivReply :: CARD32,- data_GetPixelMapuivReply :: [CARD32]}+ :: Word32,+ datum_GetPixelMapuivReply :: Word32,+ data_GetPixelMapuivReply :: [Word32]} deriving (Show, Typeable) instance Deserialize GetPixelMapuivReply where@@ -2153,7 +2154,7 @@ data GetPixelMapusv = MkGetPixelMapusv{context_tag_GetPixelMapusv :: CONTEXT_TAG,- map_GetPixelMapusv :: CARD32}+ map_GetPixelMapusv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetPixelMapusv where@@ -2164,15 +2165,15 @@ let size__ = 4 + size (context_tag_GetPixelMapusv x) + size (map_GetPixelMapusv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetPixelMapusv x) serialize (map_GetPixelMapusv x) putSkip (requiredPadding size__) data GetPixelMapusvReply = MkGetPixelMapusvReply{n_GetPixelMapusvReply- :: CARD32,- datum_GetPixelMapusvReply :: CARD16,- data_GetPixelMapusvReply :: [CARD16]}+ :: Word32,+ datum_GetPixelMapusvReply :: Word16,+ data_GetPixelMapusvReply :: [Word16]} deriving (Show, Typeable) instance Deserialize GetPixelMapusvReply where@@ -2191,7 +2192,7 @@ data GetPolygonStipple = MkGetPolygonStipple{context_tag_GetPolygonStipple :: CONTEXT_TAG,- lsb_first_GetPolygonStipple :: BOOL}+ lsb_first_GetPolygonStipple :: Bool} deriving (Show, Typeable) instance ExtensionRequest GetPolygonStipple where@@ -2202,13 +2203,13 @@ let size__ = 4 + size (context_tag_GetPolygonStipple x) + size (lsb_first_GetPolygonStipple x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetPolygonStipple x) serialize (lsb_first_GetPolygonStipple x) putSkip (requiredPadding size__) data GetPolygonStippleReply = MkGetPolygonStippleReply{data_GetPolygonStippleReply- :: [BYTE]}+ :: [Word8]} deriving (Show, Typeable) instance Deserialize GetPolygonStippleReply where@@ -2223,7 +2224,7 @@ return (MkGetPolygonStippleReply data_) data GetString = MkGetString{context_tag_GetString :: CONTEXT_TAG,- name_GetString :: CARD32}+ name_GetString :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetString where@@ -2233,12 +2234,12 @@ putWord8 129 let size__ = 4 + size (context_tag_GetString x) + size (name_GetString x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetString x) serialize (name_GetString x) putSkip (requiredPadding size__) -data GetStringReply = MkGetStringReply{n_GetStringReply :: CARD32,+data GetStringReply = MkGetStringReply{n_GetStringReply :: Word32, string_GetStringReply :: [CChar]} deriving (Show, Typeable) @@ -2257,7 +2258,7 @@ data GetTexEnvfv = MkGetTexEnvfv{context_tag_GetTexEnvfv :: CONTEXT_TAG,- target_GetTexEnvfv :: CARD32, pname_GetTexEnvfv :: CARD32}+ target_GetTexEnvfv :: Word32, pname_GetTexEnvfv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetTexEnvfv where@@ -2269,14 +2270,14 @@ = 4 + size (context_tag_GetTexEnvfv x) + size (target_GetTexEnvfv x) + size (pname_GetTexEnvfv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetTexEnvfv x) serialize (target_GetTexEnvfv x) serialize (pname_GetTexEnvfv x) putSkip (requiredPadding size__) data GetTexEnvfvReply = MkGetTexEnvfvReply{n_GetTexEnvfvReply ::- CARD32,+ Word32, datum_GetTexEnvfvReply :: FLOAT32, data_GetTexEnvfvReply :: [FLOAT32]} deriving (Show, Typeable)@@ -2297,7 +2298,7 @@ data GetTexEnviv = MkGetTexEnviv{context_tag_GetTexEnviv :: CONTEXT_TAG,- target_GetTexEnviv :: CARD32, pname_GetTexEnviv :: CARD32}+ target_GetTexEnviv :: Word32, pname_GetTexEnviv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetTexEnviv where@@ -2309,16 +2310,16 @@ = 4 + size (context_tag_GetTexEnviv x) + size (target_GetTexEnviv x) + size (pname_GetTexEnviv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetTexEnviv x) serialize (target_GetTexEnviv x) serialize (pname_GetTexEnviv x) putSkip (requiredPadding size__) data GetTexEnvivReply = MkGetTexEnvivReply{n_GetTexEnvivReply ::- CARD32,- datum_GetTexEnvivReply :: INT32,- data_GetTexEnvivReply :: [INT32]}+ Word32,+ datum_GetTexEnvivReply :: Int32,+ data_GetTexEnvivReply :: [Int32]} deriving (Show, Typeable) instance Deserialize GetTexEnvivReply where@@ -2337,7 +2338,7 @@ data GetTexGendv = MkGetTexGendv{context_tag_GetTexGendv :: CONTEXT_TAG,- coord_GetTexGendv :: CARD32, pname_GetTexGendv :: CARD32}+ coord_GetTexGendv :: Word32, pname_GetTexGendv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetTexGendv where@@ -2348,14 +2349,14 @@ let size__ = 4 + size (context_tag_GetTexGendv x) + size (coord_GetTexGendv x) + size (pname_GetTexGendv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetTexGendv x) serialize (coord_GetTexGendv x) serialize (pname_GetTexGendv x) putSkip (requiredPadding size__) data GetTexGendvReply = MkGetTexGendvReply{n_GetTexGendvReply ::- CARD32,+ Word32, datum_GetTexGendvReply :: FLOAT64, data_GetTexGendvReply :: [FLOAT64]} deriving (Show, Typeable)@@ -2376,7 +2377,7 @@ data GetTexGenfv = MkGetTexGenfv{context_tag_GetTexGenfv :: CONTEXT_TAG,- coord_GetTexGenfv :: CARD32, pname_GetTexGenfv :: CARD32}+ coord_GetTexGenfv :: Word32, pname_GetTexGenfv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetTexGenfv where@@ -2387,14 +2388,14 @@ let size__ = 4 + size (context_tag_GetTexGenfv x) + size (coord_GetTexGenfv x) + size (pname_GetTexGenfv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetTexGenfv x) serialize (coord_GetTexGenfv x) serialize (pname_GetTexGenfv x) putSkip (requiredPadding size__) data GetTexGenfvReply = MkGetTexGenfvReply{n_GetTexGenfvReply ::- CARD32,+ Word32, datum_GetTexGenfvReply :: FLOAT32, data_GetTexGenfvReply :: [FLOAT32]} deriving (Show, Typeable)@@ -2415,7 +2416,7 @@ data GetTexGeniv = MkGetTexGeniv{context_tag_GetTexGeniv :: CONTEXT_TAG,- coord_GetTexGeniv :: CARD32, pname_GetTexGeniv :: CARD32}+ coord_GetTexGeniv :: Word32, pname_GetTexGeniv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetTexGeniv where@@ -2426,16 +2427,16 @@ let size__ = 4 + size (context_tag_GetTexGeniv x) + size (coord_GetTexGeniv x) + size (pname_GetTexGeniv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetTexGeniv x) serialize (coord_GetTexGeniv x) serialize (pname_GetTexGeniv x) putSkip (requiredPadding size__) data GetTexGenivReply = MkGetTexGenivReply{n_GetTexGenivReply ::- CARD32,- datum_GetTexGenivReply :: INT32,- data_GetTexGenivReply :: [INT32]}+ Word32,+ datum_GetTexGenivReply :: Int32,+ data_GetTexGenivReply :: [Int32]} deriving (Show, Typeable) instance Deserialize GetTexGenivReply where@@ -2454,9 +2455,9 @@ data GetTexImage = MkGetTexImage{context_tag_GetTexImage :: CONTEXT_TAG,- target_GetTexImage :: CARD32, level_GetTexImage :: INT32,- format_GetTexImage :: CARD32, type_GetTexImage :: CARD32,- swap_bytes_GetTexImage :: BOOL}+ target_GetTexImage :: Word32, level_GetTexImage :: Int32,+ format_GetTexImage :: Word32, type_GetTexImage :: Word32,+ swap_bytes_GetTexImage :: Bool} deriving (Show, Typeable) instance ExtensionRequest GetTexImage where@@ -2471,7 +2472,7 @@ + size (format_GetTexImage x) + size (type_GetTexImage x) + size (swap_bytes_GetTexImage x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetTexImage x) serialize (target_GetTexImage x) serialize (level_GetTexImage x)@@ -2481,10 +2482,10 @@ putSkip (requiredPadding size__) data GetTexImageReply = MkGetTexImageReply{width_GetTexImageReply- :: INT32,- height_GetTexImageReply :: INT32,- depth_GetTexImageReply :: INT32,- data_GetTexImageReply :: [BYTE]}+ :: Int32,+ height_GetTexImageReply :: Int32,+ depth_GetTexImageReply :: Int32,+ data_GetTexImageReply :: [Word8]} deriving (Show, Typeable) instance Deserialize GetTexImageReply where@@ -2504,8 +2505,8 @@ data GetTexParameterfv = MkGetTexParameterfv{context_tag_GetTexParameterfv :: CONTEXT_TAG,- target_GetTexParameterfv :: CARD32,- pname_GetTexParameterfv :: CARD32}+ target_GetTexParameterfv :: Word32,+ pname_GetTexParameterfv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetTexParameterfv where@@ -2517,14 +2518,14 @@ = 4 + size (context_tag_GetTexParameterfv x) + size (target_GetTexParameterfv x) + size (pname_GetTexParameterfv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetTexParameterfv x) serialize (target_GetTexParameterfv x) serialize (pname_GetTexParameterfv x) putSkip (requiredPadding size__) data GetTexParameterfvReply = MkGetTexParameterfvReply{n_GetTexParameterfvReply- :: CARD32,+ :: Word32, datum_GetTexParameterfvReply :: FLOAT32, data_GetTexParameterfvReply :: [FLOAT32]} deriving (Show, Typeable)@@ -2545,8 +2546,8 @@ data GetTexParameteriv = MkGetTexParameteriv{context_tag_GetTexParameteriv :: CONTEXT_TAG,- target_GetTexParameteriv :: CARD32,- pname_GetTexParameteriv :: CARD32}+ target_GetTexParameteriv :: Word32,+ pname_GetTexParameteriv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetTexParameteriv where@@ -2558,16 +2559,16 @@ = 4 + size (context_tag_GetTexParameteriv x) + size (target_GetTexParameteriv x) + size (pname_GetTexParameteriv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetTexParameteriv x) serialize (target_GetTexParameteriv x) serialize (pname_GetTexParameteriv x) putSkip (requiredPadding size__) data GetTexParameterivReply = MkGetTexParameterivReply{n_GetTexParameterivReply- :: CARD32,- datum_GetTexParameterivReply :: INT32,- data_GetTexParameterivReply :: [INT32]}+ :: Word32,+ datum_GetTexParameterivReply :: Int32,+ data_GetTexParameterivReply :: [Int32]} deriving (Show, Typeable) instance Deserialize GetTexParameterivReply where@@ -2586,9 +2587,9 @@ data GetTexLevelParameterfv = MkGetTexLevelParameterfv{context_tag_GetTexLevelParameterfv :: CONTEXT_TAG,- target_GetTexLevelParameterfv :: CARD32,- level_GetTexLevelParameterfv :: INT32,- pname_GetTexLevelParameterfv :: CARD32}+ target_GetTexLevelParameterfv :: Word32,+ level_GetTexLevelParameterfv :: Int32,+ pname_GetTexLevelParameterfv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetTexLevelParameterfv where@@ -2601,7 +2602,7 @@ size (target_GetTexLevelParameterfv x) + size (level_GetTexLevelParameterfv x) + size (pname_GetTexLevelParameterfv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetTexLevelParameterfv x) serialize (target_GetTexLevelParameterfv x) serialize (level_GetTexLevelParameterfv x)@@ -2609,7 +2610,7 @@ putSkip (requiredPadding size__) data GetTexLevelParameterfvReply = MkGetTexLevelParameterfvReply{n_GetTexLevelParameterfvReply- :: CARD32,+ :: Word32, datum_GetTexLevelParameterfvReply :: FLOAT32, data_GetTexLevelParameterfvReply ::@@ -2632,9 +2633,9 @@ data GetTexLevelParameteriv = MkGetTexLevelParameteriv{context_tag_GetTexLevelParameteriv :: CONTEXT_TAG,- target_GetTexLevelParameteriv :: CARD32,- level_GetTexLevelParameteriv :: INT32,- pname_GetTexLevelParameteriv :: CARD32}+ target_GetTexLevelParameteriv :: Word32,+ level_GetTexLevelParameteriv :: Int32,+ pname_GetTexLevelParameteriv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetTexLevelParameteriv where@@ -2647,7 +2648,7 @@ size (target_GetTexLevelParameteriv x) + size (level_GetTexLevelParameteriv x) + size (pname_GetTexLevelParameteriv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetTexLevelParameteriv x) serialize (target_GetTexLevelParameteriv x) serialize (level_GetTexLevelParameteriv x)@@ -2655,11 +2656,11 @@ putSkip (requiredPadding size__) data GetTexLevelParameterivReply = MkGetTexLevelParameterivReply{n_GetTexLevelParameterivReply- :: CARD32,+ :: Word32, datum_GetTexLevelParameterivReply- :: INT32,+ :: Int32, data_GetTexLevelParameterivReply ::- [INT32]}+ [Int32]} deriving (Show, Typeable) instance Deserialize GetTexLevelParameterivReply where@@ -2677,7 +2678,7 @@ return (MkGetTexLevelParameterivReply n datum data_) data IsList = MkIsList{context_tag_IsList :: CONTEXT_TAG,- list_IsList :: CARD32}+ list_IsList :: Word32} deriving (Show, Typeable) instance ExtensionRequest IsList where@@ -2686,7 +2687,7 @@ = do putWord8 extOpCode putWord8 141 let size__ = 4 + size (context_tag_IsList x) + size (list_IsList x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_IsList x) serialize (list_IsList x) putSkip (requiredPadding size__)@@ -2713,14 +2714,14 @@ = do putWord8 extOpCode putWord8 142 let size__ = 4 + size (context_tag_Flush x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_Flush x) putSkip (requiredPadding size__) data AreTexturesResident = MkAreTexturesResident{context_tag_AreTexturesResident :: CONTEXT_TAG,- n_AreTexturesResident :: INT32,- textures_AreTexturesResident :: [CARD32]}+ n_AreTexturesResident :: Int32,+ textures_AreTexturesResident :: [Word32]} deriving (Show, Typeable) instance ExtensionRequest AreTexturesResident where@@ -2732,7 +2733,7 @@ = 4 + size (context_tag_AreTexturesResident x) + size (n_AreTexturesResident x) + sum (map size (textures_AreTexturesResident x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_AreTexturesResident x) serialize (n_AreTexturesResident x) serializeList (textures_AreTexturesResident x)@@ -2740,7 +2741,7 @@ data AreTexturesResidentReply = MkAreTexturesResidentReply{ret_val_AreTexturesResidentReply :: BOOL32,- data_AreTexturesResidentReply :: [BOOL]}+ data_AreTexturesResidentReply :: [Bool]} deriving (Show, Typeable) instance Deserialize AreTexturesResidentReply where@@ -2757,8 +2758,8 @@ data DeleteTextures = MkDeleteTextures{context_tag_DeleteTextures :: CONTEXT_TAG,- n_DeleteTextures :: INT32,- textures_DeleteTextures :: [CARD32]}+ n_DeleteTextures :: Int32,+ textures_DeleteTextures :: [Word32]} deriving (Show, Typeable) instance ExtensionRequest DeleteTextures where@@ -2770,7 +2771,7 @@ = 4 + size (context_tag_DeleteTextures x) + size (n_DeleteTextures x) + sum (map size (textures_DeleteTextures x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_DeleteTextures x) serialize (n_DeleteTextures x) serializeList (textures_DeleteTextures x)@@ -2778,7 +2779,7 @@ data GenTextures = MkGenTextures{context_tag_GenTextures :: CONTEXT_TAG,- n_GenTextures :: INT32}+ n_GenTextures :: Int32} deriving (Show, Typeable) instance ExtensionRequest GenTextures where@@ -2788,13 +2789,13 @@ putWord8 145 let size__ = 4 + size (context_tag_GenTextures x) + size (n_GenTextures x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GenTextures x) serialize (n_GenTextures x) putSkip (requiredPadding size__) data GenTexturesReply = MkGenTexturesReply{data_GenTexturesReply ::- [CARD32]}+ [Word32]} deriving (Show, Typeable) instance Deserialize GenTexturesReply where@@ -2809,7 +2810,7 @@ return (MkGenTexturesReply data_) data IsTexture = MkIsTexture{context_tag_IsTexture :: CONTEXT_TAG,- texture_IsTexture :: CARD32}+ texture_IsTexture :: Word32} deriving (Show, Typeable) instance ExtensionRequest IsTexture where@@ -2819,7 +2820,7 @@ putWord8 146 let size__ = 4 + size (context_tag_IsTexture x) + size (texture_IsTexture x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_IsTexture x) serialize (texture_IsTexture x) putSkip (requiredPadding size__)@@ -2840,8 +2841,8 @@ data GetColorTable = MkGetColorTable{context_tag_GetColorTable :: CONTEXT_TAG,- target_GetColorTable :: CARD32, format_GetColorTable :: CARD32,- type_GetColorTable :: CARD32, swap_bytes_GetColorTable :: BOOL}+ target_GetColorTable :: Word32, format_GetColorTable :: Word32,+ type_GetColorTable :: Word32, swap_bytes_GetColorTable :: Bool} deriving (Show, Typeable) instance ExtensionRequest GetColorTable where@@ -2855,7 +2856,7 @@ + size (format_GetColorTable x) + size (type_GetColorTable x) + size (swap_bytes_GetColorTable x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetColorTable x) serialize (target_GetColorTable x) serialize (format_GetColorTable x)@@ -2864,8 +2865,8 @@ putSkip (requiredPadding size__) data GetColorTableReply = MkGetColorTableReply{width_GetColorTableReply- :: INT32,- data_GetColorTableReply :: [BYTE]}+ :: Int32,+ data_GetColorTableReply :: [Word8]} deriving (Show, Typeable) instance Deserialize GetColorTableReply where@@ -2884,8 +2885,8 @@ data GetColorTableParameterfv = MkGetColorTableParameterfv{context_tag_GetColorTableParameterfv :: CONTEXT_TAG, target_GetColorTableParameterfv ::- CARD32,- pname_GetColorTableParameterfv :: CARD32}+ Word32,+ pname_GetColorTableParameterfv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetColorTableParameterfv where@@ -2897,14 +2898,14 @@ = 4 + size (context_tag_GetColorTableParameterfv x) + size (target_GetColorTableParameterfv x) + size (pname_GetColorTableParameterfv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetColorTableParameterfv x) serialize (target_GetColorTableParameterfv x) serialize (pname_GetColorTableParameterfv x) putSkip (requiredPadding size__) data GetColorTableParameterfvReply = MkGetColorTableParameterfvReply{n_GetColorTableParameterfvReply- :: CARD32,+ :: Word32, datum_GetColorTableParameterfvReply :: FLOAT32, data_GetColorTableParameterfvReply@@ -2928,8 +2929,8 @@ data GetColorTableParameteriv = MkGetColorTableParameteriv{context_tag_GetColorTableParameteriv :: CONTEXT_TAG, target_GetColorTableParameteriv ::- CARD32,- pname_GetColorTableParameteriv :: CARD32}+ Word32,+ pname_GetColorTableParameteriv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetColorTableParameteriv where@@ -2941,18 +2942,18 @@ = 4 + size (context_tag_GetColorTableParameteriv x) + size (target_GetColorTableParameteriv x) + size (pname_GetColorTableParameteriv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetColorTableParameteriv x) serialize (target_GetColorTableParameteriv x) serialize (pname_GetColorTableParameteriv x) putSkip (requiredPadding size__) data GetColorTableParameterivReply = MkGetColorTableParameterivReply{n_GetColorTableParameterivReply- :: CARD32,+ :: Word32, datum_GetColorTableParameterivReply- :: INT32,+ :: Int32, data_GetColorTableParameterivReply- :: [INT32]}+ :: [Int32]} deriving (Show, Typeable) instance Deserialize GetColorTableParameterivReply where@@ -2971,10 +2972,10 @@ data GetConvolutionFilter = MkGetConvolutionFilter{context_tag_GetConvolutionFilter :: CONTEXT_TAG,- target_GetConvolutionFilter :: CARD32,- format_GetConvolutionFilter :: CARD32,- type_GetConvolutionFilter :: CARD32,- swap_bytes_GetConvolutionFilter :: BOOL}+ target_GetConvolutionFilter :: Word32,+ format_GetConvolutionFilter :: Word32,+ type_GetConvolutionFilter :: Word32,+ swap_bytes_GetConvolutionFilter :: Bool} deriving (Show, Typeable) instance ExtensionRequest GetConvolutionFilter where@@ -2988,7 +2989,7 @@ + size (format_GetConvolutionFilter x) + size (type_GetConvolutionFilter x) + size (swap_bytes_GetConvolutionFilter x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetConvolutionFilter x) serialize (target_GetConvolutionFilter x) serialize (format_GetConvolutionFilter x)@@ -2997,11 +2998,11 @@ putSkip (requiredPadding size__) data GetConvolutionFilterReply = MkGetConvolutionFilterReply{width_GetConvolutionFilterReply- :: INT32,+ :: Int32, height_GetConvolutionFilterReply ::- INT32,+ Int32, data_GetConvolutionFilterReply ::- [BYTE]}+ [Word8]} deriving (Show, Typeable) instance Deserialize GetConvolutionFilterReply where@@ -3021,9 +3022,9 @@ data GetConvolutionParameterfv = MkGetConvolutionParameterfv{context_tag_GetConvolutionParameterfv :: CONTEXT_TAG, target_GetConvolutionParameterfv ::- CARD32,+ Word32, pname_GetConvolutionParameterfv ::- CARD32}+ Word32} deriving (Show, Typeable) instance ExtensionRequest GetConvolutionParameterfv where@@ -3035,14 +3036,14 @@ = 4 + size (context_tag_GetConvolutionParameterfv x) + size (target_GetConvolutionParameterfv x) + size (pname_GetConvolutionParameterfv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetConvolutionParameterfv x) serialize (target_GetConvolutionParameterfv x) serialize (pname_GetConvolutionParameterfv x) putSkip (requiredPadding size__) data GetConvolutionParameterfvReply = MkGetConvolutionParameterfvReply{n_GetConvolutionParameterfvReply- :: CARD32,+ :: Word32, datum_GetConvolutionParameterfvReply :: FLOAT32, data_GetConvolutionParameterfvReply@@ -3066,9 +3067,9 @@ data GetConvolutionParameteriv = MkGetConvolutionParameteriv{context_tag_GetConvolutionParameteriv :: CONTEXT_TAG, target_GetConvolutionParameteriv ::- CARD32,+ Word32, pname_GetConvolutionParameteriv ::- CARD32}+ Word32} deriving (Show, Typeable) instance ExtensionRequest GetConvolutionParameteriv where@@ -3080,18 +3081,18 @@ = 4 + size (context_tag_GetConvolutionParameteriv x) + size (target_GetConvolutionParameteriv x) + size (pname_GetConvolutionParameteriv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetConvolutionParameteriv x) serialize (target_GetConvolutionParameteriv x) serialize (pname_GetConvolutionParameteriv x) putSkip (requiredPadding size__) data GetConvolutionParameterivReply = MkGetConvolutionParameterivReply{n_GetConvolutionParameterivReply- :: CARD32,+ :: Word32, datum_GetConvolutionParameterivReply- :: INT32,+ :: Int32, data_GetConvolutionParameterivReply- :: [INT32]}+ :: [Int32]} deriving (Show, Typeable) instance Deserialize GetConvolutionParameterivReply where@@ -3110,10 +3111,10 @@ data GetSeparableFilter = MkGetSeparableFilter{context_tag_GetSeparableFilter :: CONTEXT_TAG,- target_GetSeparableFilter :: CARD32,- format_GetSeparableFilter :: CARD32,- type_GetSeparableFilter :: CARD32,- swap_bytes_GetSeparableFilter :: BOOL}+ target_GetSeparableFilter :: Word32,+ format_GetSeparableFilter :: Word32,+ type_GetSeparableFilter :: Word32,+ swap_bytes_GetSeparableFilter :: Bool} deriving (Show, Typeable) instance ExtensionRequest GetSeparableFilter where@@ -3127,7 +3128,7 @@ + size (format_GetSeparableFilter x) + size (type_GetSeparableFilter x) + size (swap_bytes_GetSeparableFilter x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetSeparableFilter x) serialize (target_GetSeparableFilter x) serialize (format_GetSeparableFilter x)@@ -3136,10 +3137,10 @@ putSkip (requiredPadding size__) data GetSeparableFilterReply = MkGetSeparableFilterReply{row_w_GetSeparableFilterReply- :: INT32,- col_h_GetSeparableFilterReply :: INT32,+ :: Int32,+ col_h_GetSeparableFilterReply :: Int32, rows_and_cols_GetSeparableFilterReply ::- [BYTE]}+ [Word8]} deriving (Show, Typeable) instance Deserialize GetSeparableFilterReply where@@ -3159,9 +3160,9 @@ data GetHistogram = MkGetHistogram{context_tag_GetHistogram :: CONTEXT_TAG,- target_GetHistogram :: CARD32, format_GetHistogram :: CARD32,- type_GetHistogram :: CARD32, swap_bytes_GetHistogram :: BOOL,- reset_GetHistogram :: BOOL}+ target_GetHistogram :: Word32, format_GetHistogram :: Word32,+ type_GetHistogram :: Word32, swap_bytes_GetHistogram :: Bool,+ reset_GetHistogram :: Bool} deriving (Show, Typeable) instance ExtensionRequest GetHistogram where@@ -3176,7 +3177,7 @@ + size (type_GetHistogram x) + size (swap_bytes_GetHistogram x) + size (reset_GetHistogram x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetHistogram x) serialize (target_GetHistogram x) serialize (format_GetHistogram x)@@ -3186,8 +3187,8 @@ putSkip (requiredPadding size__) data GetHistogramReply = MkGetHistogramReply{width_GetHistogramReply- :: INT32,- data_GetHistogramReply :: [BYTE]}+ :: Int32,+ data_GetHistogramReply :: [Word8]} deriving (Show, Typeable) instance Deserialize GetHistogramReply where@@ -3205,8 +3206,8 @@ data GetHistogramParameterfv = MkGetHistogramParameterfv{context_tag_GetHistogramParameterfv :: CONTEXT_TAG,- target_GetHistogramParameterfv :: CARD32,- pname_GetHistogramParameterfv :: CARD32}+ target_GetHistogramParameterfv :: Word32,+ pname_GetHistogramParameterfv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetHistogramParameterfv where@@ -3218,14 +3219,14 @@ = 4 + size (context_tag_GetHistogramParameterfv x) + size (target_GetHistogramParameterfv x) + size (pname_GetHistogramParameterfv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetHistogramParameterfv x) serialize (target_GetHistogramParameterfv x) serialize (pname_GetHistogramParameterfv x) putSkip (requiredPadding size__) data GetHistogramParameterfvReply = MkGetHistogramParameterfvReply{n_GetHistogramParameterfvReply- :: CARD32,+ :: Word32, datum_GetHistogramParameterfvReply :: FLOAT32, data_GetHistogramParameterfvReply@@ -3248,8 +3249,8 @@ data GetHistogramParameteriv = MkGetHistogramParameteriv{context_tag_GetHistogramParameteriv :: CONTEXT_TAG,- target_GetHistogramParameteriv :: CARD32,- pname_GetHistogramParameteriv :: CARD32}+ target_GetHistogramParameteriv :: Word32,+ pname_GetHistogramParameteriv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetHistogramParameteriv where@@ -3261,18 +3262,18 @@ = 4 + size (context_tag_GetHistogramParameteriv x) + size (target_GetHistogramParameteriv x) + size (pname_GetHistogramParameteriv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetHistogramParameteriv x) serialize (target_GetHistogramParameteriv x) serialize (pname_GetHistogramParameteriv x) putSkip (requiredPadding size__) data GetHistogramParameterivReply = MkGetHistogramParameterivReply{n_GetHistogramParameterivReply- :: CARD32,+ :: Word32, datum_GetHistogramParameterivReply- :: INT32,+ :: Int32, data_GetHistogramParameterivReply- :: [INT32]}+ :: [Int32]} deriving (Show, Typeable) instance Deserialize GetHistogramParameterivReply where@@ -3290,9 +3291,9 @@ return (MkGetHistogramParameterivReply n datum data_) data GetMinmax = MkGetMinmax{context_tag_GetMinmax :: CONTEXT_TAG,- target_GetMinmax :: CARD32, format_GetMinmax :: CARD32,- type_GetMinmax :: CARD32, swap_bytes_GetMinmax :: BOOL,- reset_GetMinmax :: BOOL}+ target_GetMinmax :: Word32, format_GetMinmax :: Word32,+ type_GetMinmax :: Word32, swap_bytes_GetMinmax :: Bool,+ reset_GetMinmax :: Bool} deriving (Show, Typeable) instance ExtensionRequest GetMinmax where@@ -3306,7 +3307,7 @@ + size (type_GetMinmax x) + size (swap_bytes_GetMinmax x) + size (reset_GetMinmax x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetMinmax x) serialize (target_GetMinmax x) serialize (format_GetMinmax x)@@ -3316,7 +3317,7 @@ putSkip (requiredPadding size__) data GetMinmaxReply = MkGetMinmaxReply{data_GetMinmaxReply ::- [BYTE]}+ [Word8]} deriving (Show, Typeable) instance Deserialize GetMinmaxReply where@@ -3332,8 +3333,8 @@ data GetMinmaxParameterfv = MkGetMinmaxParameterfv{context_tag_GetMinmaxParameterfv :: CONTEXT_TAG,- target_GetMinmaxParameterfv :: CARD32,- pname_GetMinmaxParameterfv :: CARD32}+ target_GetMinmaxParameterfv :: Word32,+ pname_GetMinmaxParameterfv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetMinmaxParameterfv where@@ -3345,14 +3346,14 @@ = 4 + size (context_tag_GetMinmaxParameterfv x) + size (target_GetMinmaxParameterfv x) + size (pname_GetMinmaxParameterfv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetMinmaxParameterfv x) serialize (target_GetMinmaxParameterfv x) serialize (pname_GetMinmaxParameterfv x) putSkip (requiredPadding size__) data GetMinmaxParameterfvReply = MkGetMinmaxParameterfvReply{n_GetMinmaxParameterfvReply- :: CARD32,+ :: Word32, datum_GetMinmaxParameterfvReply :: FLOAT32, data_GetMinmaxParameterfvReply ::@@ -3375,8 +3376,8 @@ data GetMinmaxParameteriv = MkGetMinmaxParameteriv{context_tag_GetMinmaxParameteriv :: CONTEXT_TAG,- target_GetMinmaxParameteriv :: CARD32,- pname_GetMinmaxParameteriv :: CARD32}+ target_GetMinmaxParameteriv :: Word32,+ pname_GetMinmaxParameteriv :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetMinmaxParameteriv where@@ -3388,18 +3389,18 @@ = 4 + size (context_tag_GetMinmaxParameteriv x) + size (target_GetMinmaxParameteriv x) + size (pname_GetMinmaxParameteriv x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetMinmaxParameteriv x) serialize (target_GetMinmaxParameteriv x) serialize (pname_GetMinmaxParameteriv x) putSkip (requiredPadding size__) data GetMinmaxParameterivReply = MkGetMinmaxParameterivReply{n_GetMinmaxParameterivReply- :: CARD32,+ :: Word32, datum_GetMinmaxParameterivReply ::- INT32,+ Int32, data_GetMinmaxParameterivReply ::- [INT32]}+ [Int32]} deriving (Show, Typeable) instance Deserialize GetMinmaxParameterivReply where@@ -3419,8 +3420,8 @@ data GetCompressedTexImageARB = MkGetCompressedTexImageARB{context_tag_GetCompressedTexImageARB :: CONTEXT_TAG, target_GetCompressedTexImageARB ::- CARD32,- level_GetCompressedTexImageARB :: INT32}+ Word32,+ level_GetCompressedTexImageARB :: Int32} deriving (Show, Typeable) instance ExtensionRequest GetCompressedTexImageARB where@@ -3432,16 +3433,16 @@ = 4 + size (context_tag_GetCompressedTexImageARB x) + size (target_GetCompressedTexImageARB x) + size (level_GetCompressedTexImageARB x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetCompressedTexImageARB x) serialize (target_GetCompressedTexImageARB x) serialize (level_GetCompressedTexImageARB x) putSkip (requiredPadding size__) data GetCompressedTexImageARBReply = MkGetCompressedTexImageARBReply{size_GetCompressedTexImageARBReply- :: INT32,+ :: Int32, data_GetCompressedTexImageARBReply- :: [BYTE]}+ :: [Word8]} deriving (Show, Typeable) instance Deserialize GetCompressedTexImageARBReply where@@ -3459,8 +3460,8 @@ data DeleteQueriesARB = MkDeleteQueriesARB{context_tag_DeleteQueriesARB :: CONTEXT_TAG,- n_DeleteQueriesARB :: INT32,- ids_DeleteQueriesARB :: [CARD32]}+ n_DeleteQueriesARB :: Int32,+ ids_DeleteQueriesARB :: [Word32]} deriving (Show, Typeable) instance ExtensionRequest DeleteQueriesARB where@@ -3472,7 +3473,7 @@ = 4 + size (context_tag_DeleteQueriesARB x) + size (n_DeleteQueriesARB x) + sum (map size (ids_DeleteQueriesARB x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_DeleteQueriesARB x) serialize (n_DeleteQueriesARB x) serializeList (ids_DeleteQueriesARB x)@@ -3480,7 +3481,7 @@ data GenQueriesARB = MkGenQueriesARB{context_tag_GenQueriesARB :: CONTEXT_TAG,- n_GenQueriesARB :: INT32}+ n_GenQueriesARB :: Int32} deriving (Show, Typeable) instance ExtensionRequest GenQueriesARB where@@ -3490,13 +3491,13 @@ putWord8 162 let size__ = 4 + size (context_tag_GenQueriesARB x) + size (n_GenQueriesARB x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GenQueriesARB x) serialize (n_GenQueriesARB x) putSkip (requiredPadding size__) data GenQueriesARBReply = MkGenQueriesARBReply{data_GenQueriesARBReply- :: [CARD32]}+ :: [Word32]} deriving (Show, Typeable) instance Deserialize GenQueriesARBReply where@@ -3512,7 +3513,7 @@ data IsQueryARB = MkIsQueryARB{context_tag_IsQueryARB :: CONTEXT_TAG,- id_IsQueryARB :: CARD32}+ id_IsQueryARB :: Word32} deriving (Show, Typeable) instance ExtensionRequest IsQueryARB where@@ -3522,7 +3523,7 @@ putWord8 163 let size__ = 4 + size (context_tag_IsQueryARB x) + size (id_IsQueryARB x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_IsQueryARB x) serialize (id_IsQueryARB x) putSkip (requiredPadding size__)@@ -3543,7 +3544,7 @@ data GetQueryivARB = MkGetQueryivARB{context_tag_GetQueryivARB :: CONTEXT_TAG,- target_GetQueryivARB :: CARD32, pname_GetQueryivARB :: CARD32}+ target_GetQueryivARB :: Word32, pname_GetQueryivARB :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetQueryivARB where@@ -3555,16 +3556,16 @@ = 4 + size (context_tag_GetQueryivARB x) + size (target_GetQueryivARB x) + size (pname_GetQueryivARB x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetQueryivARB x) serialize (target_GetQueryivARB x) serialize (pname_GetQueryivARB x) putSkip (requiredPadding size__) data GetQueryivARBReply = MkGetQueryivARBReply{n_GetQueryivARBReply- :: CARD32,- datum_GetQueryivARBReply :: INT32,- data_GetQueryivARBReply :: [INT32]}+ :: Word32,+ datum_GetQueryivARBReply :: Int32,+ data_GetQueryivARBReply :: [Int32]} deriving (Show, Typeable) instance Deserialize GetQueryivARBReply where@@ -3583,8 +3584,8 @@ data GetQueryObjectivARB = MkGetQueryObjectivARB{context_tag_GetQueryObjectivARB :: CONTEXT_TAG,- id_GetQueryObjectivARB :: CARD32,- pname_GetQueryObjectivARB :: CARD32}+ id_GetQueryObjectivARB :: Word32,+ pname_GetQueryObjectivARB :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetQueryObjectivARB where@@ -3596,16 +3597,16 @@ = 4 + size (context_tag_GetQueryObjectivARB x) + size (id_GetQueryObjectivARB x) + size (pname_GetQueryObjectivARB x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetQueryObjectivARB x) serialize (id_GetQueryObjectivARB x) serialize (pname_GetQueryObjectivARB x) putSkip (requiredPadding size__) data GetQueryObjectivARBReply = MkGetQueryObjectivARBReply{n_GetQueryObjectivARBReply- :: CARD32,- datum_GetQueryObjectivARBReply :: INT32,- data_GetQueryObjectivARBReply :: [INT32]}+ :: Word32,+ datum_GetQueryObjectivARBReply :: Int32,+ data_GetQueryObjectivARBReply :: [Int32]} deriving (Show, Typeable) instance Deserialize GetQueryObjectivARBReply where@@ -3624,8 +3625,8 @@ data GetQueryObjectuivARB = MkGetQueryObjectuivARB{context_tag_GetQueryObjectuivARB :: CONTEXT_TAG,- id_GetQueryObjectuivARB :: CARD32,- pname_GetQueryObjectuivARB :: CARD32}+ id_GetQueryObjectuivARB :: Word32,+ pname_GetQueryObjectuivARB :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetQueryObjectuivARB where@@ -3637,18 +3638,18 @@ = 4 + size (context_tag_GetQueryObjectuivARB x) + size (id_GetQueryObjectuivARB x) + size (pname_GetQueryObjectuivARB x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_tag_GetQueryObjectuivARB x) serialize (id_GetQueryObjectuivARB x) serialize (pname_GetQueryObjectuivARB x) putSkip (requiredPadding size__) data GetQueryObjectuivARBReply = MkGetQueryObjectuivARBReply{n_GetQueryObjectuivARBReply- :: CARD32,+ :: Word32, datum_GetQueryObjectuivARBReply ::- CARD32,+ Word32, data_GetQueryObjectuivARBReply ::- [CARD32]}+ [Word32]} deriving (Show, Typeable) instance Deserialize GetQueryObjectuivARBReply where
patched/Graphics/XHB/Gen/Input.hs view
@@ -19,6 +19,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -31,39 +34,39 @@ getExtensionVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD16 -> [CChar] -> IO (Receipt GetExtensionVersionReply)+ Word16 -> [CChar] -> IO (Receipt GetExtensionVersionReply) getExtensionVersion c name_len name- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetExtensionVersion name_len name putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt listInputDevices :: Graphics.XHB.Connection.Types.Connection -> IO (Receipt ListInputDevicesReply) listInputDevices c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkListInputDevices putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt openDevice :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> IO (Receipt OpenDeviceReply)+ Word8 -> IO (Receipt OpenDeviceReply) openDevice c device_id- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkOpenDevice device_id putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt closeDevice ::- Graphics.XHB.Connection.Types.Connection -> CARD8 -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Word8 -> IO () closeDevice c device_id = do let req = MkCloseDevice device_id putAction <- serializeExtensionRequest c req@@ -72,13 +75,14 @@ setDeviceMode :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> CARD8 -> IO (Receipt SetDeviceModeReply)+ Word8 -> Word8 -> IO (Receipt Word8) setDeviceMode c device_id mode- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (status_SetDeviceModeReply `fmap` deserialize)) let req = MkSetDeviceMode device_id mode putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt selectExtensionEvent ::@@ -93,11 +97,11 @@ Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt GetSelectedExtensionEventsReply) getSelectedExtensionEvents c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetSelectedExtensionEvents window putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt changeDeviceDontPropagateList ::@@ -112,57 +116,60 @@ Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt GetDeviceDontPropagateListReply) getDeviceDontPropagateList c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetDeviceDontPropagateList window putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getDeviceMotionEvents :: Graphics.XHB.Connection.Types.Connection -> GetDeviceMotionEvents -> IO (Receipt GetDeviceMotionEventsReply) getDeviceMotionEvents c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt changeKeyboardDevice :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> IO (Receipt ChangeKeyboardDeviceReply)+ Word8 -> IO (Receipt Word8) changeKeyboardDevice c device_id- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (status_ChangeKeyboardDeviceReply `fmap` deserialize)) let req = MkChangeKeyboardDevice device_id putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt changePointerDevice :: Graphics.XHB.Connection.Types.Connection ->- ChangePointerDevice -> IO (Receipt ChangePointerDeviceReply)+ ChangePointerDevice -> IO (Receipt Word8) changePointerDevice c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (status_ChangePointerDeviceReply `fmap` deserialize)) putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt grabDevice :: Graphics.XHB.Connection.Types.Connection ->- GrabDevice -> IO (Receipt GrabDeviceReply)+ GrabDevice -> IO (Receipt Word8) grabDevice c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (status_GrabDeviceReply `fmap` deserialize)) putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt ungrabDevice :: Graphics.XHB.Connection.Types.Connection ->- TIMESTAMP -> CARD8 -> IO ()+ TIMESTAMP -> Word8 -> IO () ungrabDevice c time device_id = do let req = MkUngrabDevice time device_id putAction <- serializeExtensionRequest c req@@ -210,13 +217,13 @@ getDeviceFocus :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> IO (Receipt GetDeviceFocusReply)+ Word8 -> IO (Receipt GetDeviceFocusReply) getDeviceFocus c device_id- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetDeviceFocus device_id putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setDeviceFocus ::@@ -228,23 +235,24 @@ getFeedbackControl :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> IO (Receipt GetFeedbackControlReply)+ Word8 -> IO (Receipt Word16) getFeedbackControl c device_id- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (num_feedback_GetFeedbackControlReply `fmap` deserialize)) let req = MkGetFeedbackControl device_id putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getDeviceKeyMapping :: Graphics.XHB.Connection.Types.Connection -> GetDeviceKeyMapping -> IO (Receipt GetDeviceKeyMappingReply) getDeviceKeyMapping c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt changeDeviceKeyMapping ::@@ -257,56 +265,58 @@ getDeviceModifierMapping :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> IO (Receipt GetDeviceModifierMappingReply)+ Word8 -> IO (Receipt GetDeviceModifierMappingReply) getDeviceModifierMapping c device_id- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetDeviceModifierMapping device_id putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setDeviceModifierMapping :: Graphics.XHB.Connection.Types.Connection ->- SetDeviceModifierMapping ->- IO (Receipt SetDeviceModifierMappingReply)+ SetDeviceModifierMapping -> IO (Receipt Word8) setDeviceModifierMapping c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (status_SetDeviceModifierMappingReply `fmap` deserialize)) putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getDeviceButtonMapping :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> IO (Receipt GetDeviceButtonMappingReply)+ Word8 -> IO (Receipt GetDeviceButtonMappingReply) getDeviceButtonMapping c device_id- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetDeviceButtonMapping device_id putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setDeviceButtonMapping :: Graphics.XHB.Connection.Types.Connection ->- SetDeviceButtonMapping -> IO (Receipt SetDeviceButtonMappingReply)+ SetDeviceButtonMapping -> IO (Receipt Word8) setDeviceButtonMapping c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (status_SetDeviceButtonMappingReply `fmap` deserialize)) putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryDeviceState :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> IO (Receipt QueryDeviceStateReply)+ Word8 -> IO (Receipt Word8) queryDeviceState c device_id- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (num_classes_QueryDeviceStateReply `fmap` deserialize)) let req = MkQueryDeviceState device_id putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt sendExtensionEvent ::@@ -326,21 +336,23 @@ setDeviceValuators :: Graphics.XHB.Connection.Types.Connection ->- SetDeviceValuators -> IO (Receipt SetDeviceValuatorsReply)+ SetDeviceValuators -> IO (Receipt Word8) setDeviceValuators c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (status_SetDeviceValuatorsReply `fmap` deserialize)) putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getDeviceControl :: Graphics.XHB.Connection.Types.Connection ->- CARD16 -> CARD8 -> IO (Receipt GetDeviceControlReply)+ Word16 -> Word8 -> IO (Receipt Word8) getDeviceControl c control_id device_id- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (status_GetDeviceControlReply `fmap` deserialize)) let req = MkGetDeviceControl control_id device_id putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/Input/Types.hs view
@@ -48,6 +48,7 @@ DevicePresenceNotify(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -102,9 +103,9 @@ = return (liftM toEvent (deserialize :: Get DevicePresenceNotify)) deserializeEvent _ = Nothing -type KeyCode = CARD8+type KeyCode = Word8 -type EventClass = CARD32+type EventClass = Word32 data ValuatorMode = ValuatorModeRelative | ValuatorModeAbsolute@@ -125,7 +126,7 @@ fromValue 1 = PropagateModeDeleteFromList data GetExtensionVersion = MkGetExtensionVersion{name_len_GetExtensionVersion- :: CARD16,+ :: Word16, name_GetExtensionVersion :: [CChar]} deriving (Show, Typeable) @@ -137,18 +138,18 @@ let size__ = 4 + size (name_len_GetExtensionVersion x) + 2 + sum (map size (name_GetExtensionVersion x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (name_len_GetExtensionVersion x) putSkip 2 serializeList (name_GetExtensionVersion x) putSkip (requiredPadding size__) data GetExtensionVersionReply = MkGetExtensionVersionReply{server_major_GetExtensionVersionReply- :: CARD16,+ :: Word16, server_minor_GetExtensionVersionReply ::- CARD16,+ Word16, present_GetExtensionVersionReply ::- CARD8}+ Word8} deriving (Show, Typeable) instance Deserialize GetExtensionVersionReply where@@ -166,8 +167,8 @@ (MkGetExtensionVersionReply server_major server_minor present) data DeviceInfo = MkDeviceInfo{device_type_DeviceInfo :: ATOM,- device_id_DeviceInfo :: CARD8, num_class_info_DeviceInfo :: CARD8,- device_use_DeviceInfo :: CARD8}+ device_id_DeviceInfo :: Word8, num_class_info_DeviceInfo :: Word8,+ device_use_DeviceInfo :: Word8} deriving (Show, Typeable) instance Serialize DeviceInfo where@@ -202,11 +203,11 @@ = do putWord8 extOpCode putWord8 2 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data ListInputDevicesReply = MkListInputDevicesReply{devices_len_ListInputDevicesReply- :: CARD8,+ :: Word8, devices_ListInputDevicesReply :: [DeviceInfo]} deriving (Show, Typeable) @@ -240,8 +241,8 @@ fromValue 3 = DeviceUseIsXExtensionKeyboard fromValue 4 = DeviceUseIsXExtensionPointer -data InputInfo = MkInputInfo{class_id_InputInfo :: CARD8,- len_InputInfo :: CARD8}+data InputInfo = MkInputInfo{class_id_InputInfo :: Word8,+ len_InputInfo :: Word8} deriving (Show, Typeable) instance Serialize InputInfo where@@ -256,9 +257,9 @@ len <- deserialize return (MkInputInfo class_id len) -data KeyInfo = MkKeyInfo{class_id_KeyInfo :: CARD8,- len_KeyInfo :: CARD8, min_keycode_KeyInfo :: KeyCode,- max_keycode_KeyInfo :: KeyCode, num_keys_KeyInfo :: CARD16}+data KeyInfo = MkKeyInfo{class_id_KeyInfo :: Word8,+ len_KeyInfo :: Word8, min_keycode_KeyInfo :: KeyCode,+ max_keycode_KeyInfo :: KeyCode, num_keys_KeyInfo :: Word16} deriving (Show, Typeable) instance Serialize KeyInfo where@@ -286,8 +287,8 @@ skip 2 return (MkKeyInfo class_id len min_keycode max_keycode num_keys) -data ButtonInfo = MkButtonInfo{class_id_ButtonInfo :: CARD8,- len_ButtonInfo :: CARD8, num_buttons_ButtonInfo :: CARD16}+data ButtonInfo = MkButtonInfo{class_id_ButtonInfo :: Word8,+ len_ButtonInfo :: Word8, num_buttons_ButtonInfo :: Word16} deriving (Show, Typeable) instance Serialize ButtonInfo where@@ -306,8 +307,8 @@ num_buttons <- deserialize return (MkButtonInfo class_id len num_buttons) -data AxisInfo = MkAxisInfo{resolution_AxisInfo :: CARD32,- minimum_AxisInfo :: CARD32, maximum_AxisInfo :: CARD32}+data AxisInfo = MkAxisInfo{resolution_AxisInfo :: Word32,+ minimum_AxisInfo :: Word32, maximum_AxisInfo :: Word32} deriving (Show, Typeable) instance Serialize AxisInfo where@@ -326,9 +327,9 @@ maximum <- deserialize return (MkAxisInfo resolution minimum maximum) -data ValuatorInfo = MkValuatorInfo{class_id_ValuatorInfo :: CARD8,- len_ValuatorInfo :: CARD8, axes_len_ValuatorInfo :: CARD8,- mode_ValuatorInfo :: CARD8, motion_size_ValuatorInfo :: CARD32,+data ValuatorInfo = MkValuatorInfo{class_id_ValuatorInfo :: Word8,+ len_ValuatorInfo :: Word8, axes_len_ValuatorInfo :: Word8,+ mode_ValuatorInfo :: Word8, motion_size_ValuatorInfo :: Word32, axes_ValuatorInfo :: [AxisInfo]} deriving (Show, Typeable) @@ -358,8 +359,8 @@ return (MkValuatorInfo class_id len axes_len mode motion_size axes) data InputClassInfo = MkInputClassInfo{class_id_InputClassInfo ::- CARD8,- event_type_base_InputClassInfo :: CARD8}+ Word8,+ event_type_base_InputClassInfo :: Word8} deriving (Show, Typeable) instance Serialize InputClassInfo where@@ -376,7 +377,7 @@ event_type_base <- deserialize return (MkInputClassInfo class_id event_type_base) -data OpenDevice = MkOpenDevice{device_id_OpenDevice :: CARD8}+data OpenDevice = MkOpenDevice{device_id_OpenDevice :: Word8} deriving (Show, Typeable) instance ExtensionRequest OpenDevice where@@ -385,13 +386,13 @@ = do putWord8 extOpCode putWord8 3 let size__ = 4 + size (device_id_OpenDevice x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_OpenDevice x) putSkip 3 putSkip (requiredPadding size__) data OpenDeviceReply = MkOpenDeviceReply{num_classes_OpenDeviceReply- :: CARD8,+ :: Word8, class_info_OpenDeviceReply :: [InputClassInfo]} deriving (Show, Typeable) @@ -431,7 +432,7 @@ fromValue 5 = InputClassFocus fromValue 6 = InputClassOther -data CloseDevice = MkCloseDevice{device_id_CloseDevice :: CARD8}+data CloseDevice = MkCloseDevice{device_id_CloseDevice :: Word8} deriving (Show, Typeable) instance ExtensionRequest CloseDevice where@@ -440,14 +441,14 @@ = do putWord8 extOpCode putWord8 4 let size__ = 4 + size (device_id_CloseDevice x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_CloseDevice x) putSkip 3 putSkip (requiredPadding size__) data SetDeviceMode = MkSetDeviceMode{device_id_SetDeviceMode ::- CARD8,- mode_SetDeviceMode :: CARD8}+ Word8,+ mode_SetDeviceMode :: Word8} deriving (Show, Typeable) instance ExtensionRequest SetDeviceMode where@@ -459,14 +460,14 @@ = 4 + size (device_id_SetDeviceMode x) + size (mode_SetDeviceMode x) + 2- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_SetDeviceMode x) serialize (mode_SetDeviceMode x) putSkip 2 putSkip (requiredPadding size__) data SetDeviceModeReply = MkSetDeviceModeReply{status_SetDeviceModeReply- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance Deserialize SetDeviceModeReply where@@ -482,7 +483,7 @@ data SelectExtensionEvent = MkSelectExtensionEvent{window_SelectExtensionEvent :: WINDOW,- num_classes_SelectExtensionEvent :: CARD16,+ num_classes_SelectExtensionEvent :: Word16, classes_SelectExtensionEvent :: [EventClass]} deriving (Show, Typeable) @@ -496,7 +497,7 @@ size (num_classes_SelectExtensionEvent x) + 2 + sum (map size (classes_SelectExtensionEvent x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_SelectExtensionEvent x) serialize (num_classes_SelectExtensionEvent x) putSkip 2@@ -513,14 +514,14 @@ = do putWord8 extOpCode putWord8 7 let size__ = 4 + size (window_GetSelectedExtensionEvents x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_GetSelectedExtensionEvents x) putSkip (requiredPadding size__) data GetSelectedExtensionEventsReply = MkGetSelectedExtensionEventsReply{num_this_classes_GetSelectedExtensionEventsReply- :: CARD16,+ :: Word16, num_all_classes_GetSelectedExtensionEventsReply- :: CARD16,+ :: Word16, this_classes_GetSelectedExtensionEventsReply :: [EventClass], all_classes_GetSelectedExtensionEventsReply@@ -547,9 +548,9 @@ data ChangeDeviceDontPropagateList = MkChangeDeviceDontPropagateList{window_ChangeDeviceDontPropagateList :: WINDOW, num_classes_ChangeDeviceDontPropagateList- :: CARD16,+ :: Word16, mode_ChangeDeviceDontPropagateList- :: CARD8,+ :: Word8, classes_ChangeDeviceDontPropagateList :: [EventClass]} deriving (Show, Typeable)@@ -565,7 +566,7 @@ + size (mode_ChangeDeviceDontPropagateList x) + 1 + sum (map size (classes_ChangeDeviceDontPropagateList x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_ChangeDeviceDontPropagateList x) serialize (num_classes_ChangeDeviceDontPropagateList x) serialize (mode_ChangeDeviceDontPropagateList x)@@ -583,12 +584,12 @@ = do putWord8 extOpCode putWord8 9 let size__ = 4 + size (window_GetDeviceDontPropagateList x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_GetDeviceDontPropagateList x) putSkip (requiredPadding size__) data GetDeviceDontPropagateListReply = MkGetDeviceDontPropagateListReply{num_classes_GetDeviceDontPropagateListReply- :: CARD16,+ :: Word16, classes_GetDeviceDontPropagateListReply :: [EventClass]} deriving (Show, Typeable)@@ -608,7 +609,7 @@ data GetDeviceMotionEvents = MkGetDeviceMotionEvents{start_GetDeviceMotionEvents :: TIMESTAMP, stop_GetDeviceMotionEvents :: TIMESTAMP,- device_id_GetDeviceMotionEvents :: CARD8}+ device_id_GetDeviceMotionEvents :: Word8} deriving (Show, Typeable) instance ExtensionRequest GetDeviceMotionEvents where@@ -620,18 +621,18 @@ = 4 + size (start_GetDeviceMotionEvents x) + size (stop_GetDeviceMotionEvents x) + size (device_id_GetDeviceMotionEvents x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (start_GetDeviceMotionEvents x) serialize (stop_GetDeviceMotionEvents x) serialize (device_id_GetDeviceMotionEvents x) putSkip (requiredPadding size__) data GetDeviceMotionEventsReply = MkGetDeviceMotionEventsReply{num_coords_GetDeviceMotionEventsReply- :: CARD32,+ :: Word32, num_axes_GetDeviceMotionEventsReply- :: CARD8,+ :: Word8, device_mode_GetDeviceMotionEventsReply- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance Deserialize GetDeviceMotionEventsReply where@@ -662,7 +663,7 @@ return (MkDeviceTimeCoord time) data ChangeKeyboardDevice = MkChangeKeyboardDevice{device_id_ChangeKeyboardDevice- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance ExtensionRequest ChangeKeyboardDevice where@@ -671,13 +672,13 @@ = do putWord8 extOpCode putWord8 11 let size__ = 4 + size (device_id_ChangeKeyboardDevice x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_ChangeKeyboardDevice x) putSkip 3 putSkip (requiredPadding size__) data ChangeKeyboardDeviceReply = MkChangeKeyboardDeviceReply{status_ChangeKeyboardDeviceReply- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance Deserialize ChangeKeyboardDeviceReply where@@ -692,9 +693,9 @@ return (MkChangeKeyboardDeviceReply status) data ChangePointerDevice = MkChangePointerDevice{x_axis_ChangePointerDevice- :: CARD8,- y_axis_ChangePointerDevice :: CARD8,- device_id_ChangePointerDevice :: CARD8}+ :: Word8,+ y_axis_ChangePointerDevice :: Word8,+ device_id_ChangePointerDevice :: Word8} deriving (Show, Typeable) instance ExtensionRequest ChangePointerDevice where@@ -707,7 +708,7 @@ size (y_axis_ChangePointerDevice x) + size (device_id_ChangePointerDevice x) + 1- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (x_axis_ChangePointerDevice x) serialize (y_axis_ChangePointerDevice x) serialize (device_id_ChangePointerDevice x)@@ -715,7 +716,7 @@ putSkip (requiredPadding size__) data ChangePointerDeviceReply = MkChangePointerDeviceReply{status_ChangePointerDeviceReply- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance Deserialize ChangePointerDeviceReply where@@ -730,10 +731,10 @@ return (MkChangePointerDeviceReply status) data GrabDevice = MkGrabDevice{grab_window_GrabDevice :: WINDOW,- time_GrabDevice :: TIMESTAMP, num_classes_GrabDevice :: CARD16,- this_device_mode_GrabDevice :: CARD8,- other_device_mode_GrabDevice :: CARD8,- owner_events_GrabDevice :: BOOL, device_id_GrabDevice :: CARD8,+ time_GrabDevice :: TIMESTAMP, num_classes_GrabDevice :: Word16,+ this_device_mode_GrabDevice :: Word8,+ other_device_mode_GrabDevice :: Word8,+ owner_events_GrabDevice :: Bool, device_id_GrabDevice :: Word8, classes_GrabDevice :: [EventClass]} deriving (Show, Typeable) @@ -751,7 +752,7 @@ + size (device_id_GrabDevice x) + 2 + sum (map size (classes_GrabDevice x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (grab_window_GrabDevice x) serialize (time_GrabDevice x) serialize (num_classes_GrabDevice x)@@ -764,7 +765,7 @@ putSkip (requiredPadding size__) data GrabDeviceReply = MkGrabDeviceReply{status_GrabDeviceReply ::- CARD8}+ Word8} deriving (Show, Typeable) instance Deserialize GrabDeviceReply where@@ -779,7 +780,7 @@ return (MkGrabDeviceReply status) data UngrabDevice = MkUngrabDevice{time_UngrabDevice :: TIMESTAMP,- device_id_UngrabDevice :: CARD8}+ device_id_UngrabDevice :: Word8} deriving (Show, Typeable) instance ExtensionRequest UngrabDevice where@@ -789,21 +790,21 @@ putWord8 14 let size__ = 4 + size (time_UngrabDevice x) + size (device_id_UngrabDevice x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (time_UngrabDevice x) serialize (device_id_UngrabDevice x) putSkip (requiredPadding size__) data GrabDeviceKey = MkGrabDeviceKey{grab_window_GrabDeviceKey :: WINDOW,- num_classes_GrabDeviceKey :: CARD16,- modifiers_GrabDeviceKey :: CARD16,- modifier_device_GrabDeviceKey :: CARD8,- grabbed_device_GrabDeviceKey :: CARD8,- key_GrabDeviceKey :: CARD8,- this_device_mode_GrabDeviceKey :: CARD8,- other_device_mode_GrabDeviceKey :: CARD8,- owner_events_GrabDeviceKey :: BOOL,+ num_classes_GrabDeviceKey :: Word16,+ modifiers_GrabDeviceKey :: Word16,+ modifier_device_GrabDeviceKey :: Word8,+ grabbed_device_GrabDeviceKey :: Word8,+ key_GrabDeviceKey :: Word8,+ this_device_mode_GrabDeviceKey :: Word8,+ other_device_mode_GrabDeviceKey :: Word8,+ owner_events_GrabDeviceKey :: Bool, classes_GrabDeviceKey :: [EventClass]} deriving (Show, Typeable) @@ -824,7 +825,7 @@ + size (owner_events_GrabDeviceKey x) + 2 + sum (map size (classes_GrabDeviceKey x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (grab_window_GrabDeviceKey x) serialize (num_classes_GrabDeviceKey x) serialize (modifiers_GrabDeviceKey x)@@ -840,10 +841,10 @@ data UngrabDeviceKey = MkUngrabDeviceKey{grabWindow_UngrabDeviceKey :: WINDOW,- modifiers_UngrabDeviceKey :: CARD16,- modifier_device_UngrabDeviceKey :: CARD8,- key_UngrabDeviceKey :: CARD8,- grabbed_device_UngrabDeviceKey :: CARD8}+ modifiers_UngrabDeviceKey :: Word16,+ modifier_device_UngrabDeviceKey :: Word8,+ key_UngrabDeviceKey :: Word8,+ grabbed_device_UngrabDeviceKey :: Word8} deriving (Show, Typeable) instance ExtensionRequest UngrabDeviceKey where@@ -857,7 +858,7 @@ + size (modifier_device_UngrabDeviceKey x) + size (key_UngrabDeviceKey x) + size (grabbed_device_UngrabDeviceKey x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (grabWindow_UngrabDeviceKey x) serialize (modifiers_UngrabDeviceKey x) serialize (modifier_device_UngrabDeviceKey x)@@ -867,14 +868,14 @@ data GrabDeviceButton = MkGrabDeviceButton{grab_window_GrabDeviceButton :: WINDOW,- grabbed_device_GrabDeviceButton :: CARD8,- modifier_device_GrabDeviceButton :: CARD8,- num_classes_GrabDeviceButton :: CARD16,- modifiers_GrabDeviceButton :: CARD16,- this_device_mode_GrabDeviceButton :: CARD8,- other_device_mode_GrabDeviceButton :: CARD8,- button_GrabDeviceButton :: CARD8,- owner_events_GrabDeviceButton :: CARD8,+ grabbed_device_GrabDeviceButton :: Word8,+ modifier_device_GrabDeviceButton :: Word8,+ num_classes_GrabDeviceButton :: Word16,+ modifiers_GrabDeviceButton :: Word16,+ this_device_mode_GrabDeviceButton :: Word8,+ other_device_mode_GrabDeviceButton :: Word8,+ button_GrabDeviceButton :: Word8,+ owner_events_GrabDeviceButton :: Word8, classes_GrabDeviceButton :: [EventClass]} deriving (Show, Typeable) @@ -895,7 +896,7 @@ + size (owner_events_GrabDeviceButton x) + 2 + sum (map size (classes_GrabDeviceButton x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (grab_window_GrabDeviceButton x) serialize (grabbed_device_GrabDeviceButton x) serialize (modifier_device_GrabDeviceButton x)@@ -911,10 +912,10 @@ data UngrabDeviceButton = MkUngrabDeviceButton{grab_window_UngrabDeviceButton :: WINDOW,- modifiers_UngrabDeviceButton :: CARD16,- modifier_device_UngrabDeviceButton :: CARD8,- button_UngrabDeviceButton :: CARD8,- grabbed_device_UngrabDeviceButton :: CARD8}+ modifiers_UngrabDeviceButton :: Word16,+ modifier_device_UngrabDeviceButton :: Word8,+ button_UngrabDeviceButton :: Word8,+ grabbed_device_UngrabDeviceButton :: Word8} deriving (Show, Typeable) instance ExtensionRequest UngrabDeviceButton where@@ -928,7 +929,7 @@ + size (modifier_device_UngrabDeviceButton x) + size (button_UngrabDeviceButton x) + size (grabbed_device_UngrabDeviceButton x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (grab_window_UngrabDeviceButton x) serialize (modifiers_UngrabDeviceButton x) serialize (modifier_device_UngrabDeviceButton x)@@ -938,8 +939,8 @@ data AllowDeviceEvents = MkAllowDeviceEvents{time_AllowDeviceEvents :: TIMESTAMP,- mode_AllowDeviceEvents :: CARD8,- device_id_AllowDeviceEvents :: CARD8}+ mode_AllowDeviceEvents :: Word8,+ device_id_AllowDeviceEvents :: Word8} deriving (Show, Typeable) instance ExtensionRequest AllowDeviceEvents where@@ -951,14 +952,14 @@ = 4 + size (time_AllowDeviceEvents x) + size (mode_AllowDeviceEvents x) + size (device_id_AllowDeviceEvents x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (time_AllowDeviceEvents x) serialize (mode_AllowDeviceEvents x) serialize (device_id_AllowDeviceEvents x) putSkip (requiredPadding size__) data GetDeviceFocus = MkGetDeviceFocus{device_id_GetDeviceFocus ::- CARD8}+ Word8} deriving (Show, Typeable) instance ExtensionRequest GetDeviceFocus where@@ -967,7 +968,7 @@ = do putWord8 extOpCode putWord8 20 let size__ = 4 + size (device_id_GetDeviceFocus x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_GetDeviceFocus x) putSkip 3 putSkip (requiredPadding size__)@@ -975,7 +976,7 @@ data GetDeviceFocusReply = MkGetDeviceFocusReply{focus_GetDeviceFocusReply :: WINDOW, time_GetDeviceFocusReply :: TIMESTAMP,- revert_to_GetDeviceFocusReply :: CARD8}+ revert_to_GetDeviceFocusReply :: Word8} deriving (Show, Typeable) instance Deserialize GetDeviceFocusReply where@@ -994,8 +995,8 @@ data SetDeviceFocus = MkSetDeviceFocus{focus_SetDeviceFocus :: WINDOW, time_SetDeviceFocus :: TIMESTAMP,- revert_to_SetDeviceFocus :: CARD8,- device_id_SetDeviceFocus :: CARD8}+ revert_to_SetDeviceFocus :: Word8,+ device_id_SetDeviceFocus :: Word8} deriving (Show, Typeable) instance ExtensionRequest SetDeviceFocus where@@ -1007,7 +1008,7 @@ = 4 + size (focus_SetDeviceFocus x) + size (time_SetDeviceFocus x) + size (revert_to_SetDeviceFocus x) + size (device_id_SetDeviceFocus x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (focus_SetDeviceFocus x) serialize (time_SetDeviceFocus x) serialize (revert_to_SetDeviceFocus x)@@ -1015,7 +1016,7 @@ putSkip (requiredPadding size__) data GetFeedbackControl = MkGetFeedbackControl{device_id_GetFeedbackControl- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance ExtensionRequest GetFeedbackControl where@@ -1024,13 +1025,13 @@ = do putWord8 extOpCode putWord8 22 let size__ = 4 + size (device_id_GetFeedbackControl x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_GetFeedbackControl x) putSkip 3 putSkip (requiredPadding size__) data GetFeedbackControlReply = MkGetFeedbackControlReply{num_feedback_GetFeedbackControlReply- :: CARD16}+ :: Word16} deriving (Show, Typeable) instance Deserialize GetFeedbackControlReply where@@ -1045,8 +1046,8 @@ return (MkGetFeedbackControlReply num_feedback) data FeedbackState = MkFeedbackState{class_id_FeedbackState ::- CARD8,- id_FeedbackState :: CARD8, len_FeedbackState :: CARD16}+ Word8,+ id_FeedbackState :: Word8, len_FeedbackState :: Word16} deriving (Show, Typeable) instance Serialize FeedbackState where@@ -1066,17 +1067,17 @@ return (MkFeedbackState class_id id len) data KbdFeedbackState = MkKbdFeedbackState{class_id_KbdFeedbackState- :: CARD8,- id_KbdFeedbackState :: CARD8,- len_KbdFeedbackState :: CARD16,- pitch_KbdFeedbackState :: CARD16,- duration_KbdFeedbackState :: CARD16,- led_mask_KbdFeedbackState :: CARD32,- led_values_KbdFeedbackState :: CARD32,- global_auto_repeat_KbdFeedbackState :: BOOL,- click_KbdFeedbackState :: CARD8,- percent_KbdFeedbackState :: CARD8,- auto_repeats_KbdFeedbackState :: [CARD8]}+ :: Word8,+ id_KbdFeedbackState :: Word8,+ len_KbdFeedbackState :: Word16,+ pitch_KbdFeedbackState :: Word16,+ duration_KbdFeedbackState :: Word16,+ led_mask_KbdFeedbackState :: Word32,+ led_values_KbdFeedbackState :: Word32,+ global_auto_repeat_KbdFeedbackState :: Bool,+ click_KbdFeedbackState :: Word8,+ percent_KbdFeedbackState :: Word8,+ auto_repeats_KbdFeedbackState :: [Word8]} deriving (Show, Typeable) instance Serialize KbdFeedbackState where@@ -1129,12 +1130,12 @@ auto_repeats) data PtrFeedbackState = MkPtrFeedbackState{class_id_PtrFeedbackState- :: CARD8,- id_PtrFeedbackState :: CARD8,- len_PtrFeedbackState :: CARD16,- accel_num_PtrFeedbackState :: CARD16,- accel_denom_PtrFeedbackState :: CARD16,- threshold_PtrFeedbackState :: CARD16}+ :: Word8,+ id_PtrFeedbackState :: Word8,+ len_PtrFeedbackState :: Word16,+ accel_num_PtrFeedbackState :: Word16,+ accel_denom_PtrFeedbackState :: Word16,+ threshold_PtrFeedbackState :: Word16} deriving (Show, Typeable) instance Serialize PtrFeedbackState where@@ -1168,12 +1169,12 @@ threshold) data IntegerFeedbackState = MkIntegerFeedbackState{class_id_IntegerFeedbackState- :: CARD8,- id_IntegerFeedbackState :: CARD8,- len_IntegerFeedbackState :: CARD16,- resolution_IntegerFeedbackState :: CARD32,- min_value_IntegerFeedbackState :: INT32,- max_value_IntegerFeedbackState :: INT32}+ :: Word8,+ id_IntegerFeedbackState :: Word8,+ len_IntegerFeedbackState :: Word16,+ resolution_IntegerFeedbackState :: Word32,+ min_value_IntegerFeedbackState :: Int32,+ max_value_IntegerFeedbackState :: Int32} deriving (Show, Typeable) instance Serialize IntegerFeedbackState where@@ -1205,11 +1206,11 @@ max_value) data StringFeedbackState = MkStringFeedbackState{class_id_StringFeedbackState- :: CARD8,- id_StringFeedbackState :: CARD8,- len_StringFeedbackState :: CARD16,- max_symbols_StringFeedbackState :: CARD16,- num_keysyms_StringFeedbackState :: CARD16,+ :: Word8,+ id_StringFeedbackState :: Word8,+ len_StringFeedbackState :: Word16,+ max_symbols_StringFeedbackState :: Word16,+ num_keysyms_StringFeedbackState :: Word16, keysyms_StringFeedbackState :: [KEYSYM]} deriving (Show, Typeable) @@ -1242,12 +1243,12 @@ keysyms) data BellFeedbackState = MkBellFeedbackState{class_id_BellFeedbackState- :: CARD8,- id_BellFeedbackState :: CARD8,- len_BellFeedbackState :: CARD16,- percent_BellFeedbackState :: CARD8,- pitch_BellFeedbackState :: CARD16,- duration_BellFeedbackState :: CARD16}+ :: Word8,+ id_BellFeedbackState :: Word8,+ len_BellFeedbackState :: Word16,+ percent_BellFeedbackState :: Word8,+ pitch_BellFeedbackState :: Word16,+ duration_BellFeedbackState :: Word16} deriving (Show, Typeable) instance Serialize BellFeedbackState where@@ -1280,11 +1281,11 @@ return (MkBellFeedbackState class_id id len percent pitch duration) data LedFeedbackState = MkLedFeedbackState{class_id_LedFeedbackState- :: CARD8,- id_LedFeedbackState :: CARD8,- len_LedFeedbackState :: CARD16,- led_mask_LedFeedbackState :: CARD32,- led_values_LedFeedbackState :: CARD32}+ :: Word8,+ id_LedFeedbackState :: Word8,+ len_LedFeedbackState :: Word16,+ led_mask_LedFeedbackState :: Word32,+ led_values_LedFeedbackState :: Word32} deriving (Show, Typeable) instance Serialize LedFeedbackState where@@ -1309,8 +1310,8 @@ led_values <- deserialize return (MkLedFeedbackState class_id id len led_mask led_values) -data FeedbackCtl = MkFeedbackCtl{class_id_FeedbackCtl :: CARD8,- id_FeedbackCtl :: CARD8, len_FeedbackCtl :: CARD16}+data FeedbackCtl = MkFeedbackCtl{class_id_FeedbackCtl :: Word8,+ id_FeedbackCtl :: Word8, len_FeedbackCtl :: Word16} deriving (Show, Typeable) instance Serialize FeedbackCtl where@@ -1330,16 +1331,16 @@ return (MkFeedbackCtl class_id id len) data KbdFeedbackCtl = MkKbdFeedbackCtl{class_id_KbdFeedbackCtl ::- CARD8,- id_KbdFeedbackCtl :: CARD8, len_KbdFeedbackCtl :: CARD16,+ Word8,+ id_KbdFeedbackCtl :: Word8, len_KbdFeedbackCtl :: Word16, key_KbdFeedbackCtl :: KeyCode,- auto_repeat_mode_KbdFeedbackCtl :: CARD8,- key_click_percent_KbdFeedbackCtl :: INT8,- bell_percent_KbdFeedbackCtl :: INT8,- bell_pitch_KbdFeedbackCtl :: INT16,- bell_duration_KbdFeedbackCtl :: INT16,- led_mask_KbdFeedbackCtl :: CARD32,- led_values_KbdFeedbackCtl :: CARD32}+ auto_repeat_mode_KbdFeedbackCtl :: Word8,+ key_click_percent_KbdFeedbackCtl :: Int8,+ bell_percent_KbdFeedbackCtl :: Int8,+ bell_pitch_KbdFeedbackCtl :: Int16,+ bell_duration_KbdFeedbackCtl :: Int16,+ led_mask_KbdFeedbackCtl :: Word32,+ led_values_KbdFeedbackCtl :: Word32} deriving (Show, Typeable) instance Serialize KbdFeedbackCtl where@@ -1390,10 +1391,10 @@ led_values) data PtrFeedbackCtl = MkPtrFeedbackCtl{class_id_PtrFeedbackCtl ::- CARD8,- id_PtrFeedbackCtl :: CARD8, len_PtrFeedbackCtl :: CARD16,- num_PtrFeedbackCtl :: INT16, denom_PtrFeedbackCtl :: INT16,- threshold_PtrFeedbackCtl :: INT16}+ Word8,+ id_PtrFeedbackCtl :: Word8, len_PtrFeedbackCtl :: Word16,+ num_PtrFeedbackCtl :: Int16, denom_PtrFeedbackCtl :: Int16,+ threshold_PtrFeedbackCtl :: Int16} deriving (Show, Typeable) instance Serialize PtrFeedbackCtl where@@ -1425,10 +1426,10 @@ return (MkPtrFeedbackCtl class_id id len num denom threshold) data IntegerFeedbackCtl = MkIntegerFeedbackCtl{class_id_IntegerFeedbackCtl- :: CARD8,- id_IntegerFeedbackCtl :: CARD8,- len_IntegerFeedbackCtl :: CARD16,- int_to_display_IntegerFeedbackCtl :: INT32}+ :: Word8,+ id_IntegerFeedbackCtl :: Word8,+ len_IntegerFeedbackCtl :: Word16,+ int_to_display_IntegerFeedbackCtl :: Int32} deriving (Show, Typeable) instance Serialize IntegerFeedbackCtl where@@ -1452,10 +1453,10 @@ return (MkIntegerFeedbackCtl class_id id len int_to_display) data StringFeedbackCtl = MkStringFeedbackCtl{class_id_StringFeedbackCtl- :: CARD8,- id_StringFeedbackCtl :: CARD8,- len_StringFeedbackCtl :: CARD16,- num_keysyms_StringFeedbackCtl :: CARD16,+ :: Word8,+ id_StringFeedbackCtl :: Word8,+ len_StringFeedbackCtl :: Word16,+ num_keysyms_StringFeedbackCtl :: Word16, keysyms_StringFeedbackCtl :: [KEYSYM]} deriving (Show, Typeable) @@ -1486,11 +1487,11 @@ return (MkStringFeedbackCtl class_id id len num_keysyms keysyms) data BellFeedbackCtl = MkBellFeedbackCtl{class_id_BellFeedbackCtl- :: CARD8,- id_BellFeedbackCtl :: CARD8, len_BellFeedbackCtl :: CARD16,- percent_BellFeedbackCtl :: INT8,- pitch_BellFeedbackCtl :: INT16,- duration_BellFeedbackCtl :: INT16}+ :: Word8,+ id_BellFeedbackCtl :: Word8, len_BellFeedbackCtl :: Word16,+ percent_BellFeedbackCtl :: Int8,+ pitch_BellFeedbackCtl :: Int16,+ duration_BellFeedbackCtl :: Int16} deriving (Show, Typeable) instance Serialize BellFeedbackCtl where@@ -1522,10 +1523,10 @@ return (MkBellFeedbackCtl class_id id len percent pitch duration) data LedFeedbackCtl = MkLedFeedbackCtl{class_id_LedFeedbackCtl ::- CARD8,- id_LedFeedbackCtl :: CARD8, len_LedFeedbackCtl :: CARD16,- led_mask_LedFeedbackCtl :: CARD32,- led_values_LedFeedbackCtl :: CARD32}+ Word8,+ id_LedFeedbackCtl :: Word8, len_LedFeedbackCtl :: Word16,+ led_mask_LedFeedbackCtl :: Word32,+ led_values_LedFeedbackCtl :: Word32} deriving (Show, Typeable) instance Serialize LedFeedbackCtl where@@ -1551,9 +1552,9 @@ return (MkLedFeedbackCtl class_id id len led_mask led_values) data GetDeviceKeyMapping = MkGetDeviceKeyMapping{device_id_GetDeviceKeyMapping- :: CARD8,+ :: Word8, first_keycode_GetDeviceKeyMapping :: KeyCode,- count_GetDeviceKeyMapping :: CARD8}+ count_GetDeviceKeyMapping :: Word8} deriving (Show, Typeable) instance ExtensionRequest GetDeviceKeyMapping where@@ -1565,14 +1566,14 @@ = 4 + size (device_id_GetDeviceKeyMapping x) + size (first_keycode_GetDeviceKeyMapping x) + size (count_GetDeviceKeyMapping x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_GetDeviceKeyMapping x) serialize (first_keycode_GetDeviceKeyMapping x) serialize (count_GetDeviceKeyMapping x) putSkip (requiredPadding size__) data GetDeviceKeyMappingReply = MkGetDeviceKeyMappingReply{keysyms_per_keycode_GetDeviceKeyMappingReply- :: CARD8,+ :: Word8, keysyms_GetDeviceKeyMappingReply :: [KEYSYM]} deriving (Show, Typeable)@@ -1590,13 +1591,13 @@ return (MkGetDeviceKeyMappingReply keysyms_per_keycode keysyms) data ChangeDeviceKeyMapping = MkChangeDeviceKeyMapping{device_id_ChangeDeviceKeyMapping- :: CARD8,+ :: Word8, first_keycode_ChangeDeviceKeyMapping :: KeyCode, keysyms_per_keycode_ChangeDeviceKeyMapping ::- CARD8,+ Word8, keycode_count_ChangeDeviceKeyMapping ::- CARD8,+ Word8, keysyms_ChangeDeviceKeyMapping :: [KEYSYM]} deriving (Show, Typeable) @@ -1611,7 +1612,7 @@ + size (keysyms_per_keycode_ChangeDeviceKeyMapping x) + size (keycode_count_ChangeDeviceKeyMapping x) + sum (map size (keysyms_ChangeDeviceKeyMapping x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_ChangeDeviceKeyMapping x) serialize (first_keycode_ChangeDeviceKeyMapping x) serialize (keysyms_per_keycode_ChangeDeviceKeyMapping x)@@ -1620,7 +1621,7 @@ putSkip (requiredPadding size__) data GetDeviceModifierMapping = MkGetDeviceModifierMapping{device_id_GetDeviceModifierMapping- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance ExtensionRequest GetDeviceModifierMapping where@@ -1629,15 +1630,15 @@ = do putWord8 extOpCode putWord8 26 let size__ = 4 + size (device_id_GetDeviceModifierMapping x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_GetDeviceModifierMapping x) putSkip 3 putSkip (requiredPadding size__) data GetDeviceModifierMappingReply = MkGetDeviceModifierMappingReply{keycodes_per_modifier_GetDeviceModifierMappingReply- :: CARD8,+ :: Word8, keymaps_GetDeviceModifierMappingReply- :: [CARD8]}+ :: [Word8]} deriving (Show, Typeable) instance Deserialize GetDeviceModifierMappingReply where@@ -1655,11 +1656,11 @@ (MkGetDeviceModifierMappingReply keycodes_per_modifier keymaps) data SetDeviceModifierMapping = MkSetDeviceModifierMapping{device_id_SetDeviceModifierMapping- :: CARD8,+ :: Word8, keycodes_per_modifier_SetDeviceModifierMapping- :: CARD8,+ :: Word8, keymaps_SetDeviceModifierMapping ::- [CARD8]}+ [Word8]} deriving (Show, Typeable) instance ExtensionRequest SetDeviceModifierMapping where@@ -1672,7 +1673,7 @@ size (keycodes_per_modifier_SetDeviceModifierMapping x) + 1 + sum (map size (keymaps_SetDeviceModifierMapping x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_SetDeviceModifierMapping x) serialize (keycodes_per_modifier_SetDeviceModifierMapping x) putSkip 1@@ -1680,7 +1681,7 @@ putSkip (requiredPadding size__) data SetDeviceModifierMappingReply = MkSetDeviceModifierMappingReply{status_SetDeviceModifierMappingReply- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance Deserialize SetDeviceModifierMappingReply where@@ -1695,7 +1696,7 @@ return (MkSetDeviceModifierMappingReply status) data GetDeviceButtonMapping = MkGetDeviceButtonMapping{device_id_GetDeviceButtonMapping- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance ExtensionRequest GetDeviceButtonMapping where@@ -1704,15 +1705,15 @@ = do putWord8 extOpCode putWord8 28 let size__ = 4 + size (device_id_GetDeviceButtonMapping x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_GetDeviceButtonMapping x) putSkip 3 putSkip (requiredPadding size__) data GetDeviceButtonMappingReply = MkGetDeviceButtonMappingReply{map_size_GetDeviceButtonMappingReply- :: CARD8,+ :: Word8, map_GetDeviceButtonMappingReply ::- [CARD8]}+ [Word8]} deriving (Show, Typeable) instance Deserialize GetDeviceButtonMappingReply where@@ -1728,9 +1729,9 @@ return (MkGetDeviceButtonMappingReply map_size map) data SetDeviceButtonMapping = MkSetDeviceButtonMapping{device_id_SetDeviceButtonMapping- :: CARD8,- map_size_SetDeviceButtonMapping :: CARD8,- map_SetDeviceButtonMapping :: [CARD8]}+ :: Word8,+ map_size_SetDeviceButtonMapping :: Word8,+ map_SetDeviceButtonMapping :: [Word8]} deriving (Show, Typeable) instance ExtensionRequest SetDeviceButtonMapping where@@ -1743,7 +1744,7 @@ size (map_size_SetDeviceButtonMapping x) + 2 + sum (map size (map_SetDeviceButtonMapping x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_SetDeviceButtonMapping x) serialize (map_size_SetDeviceButtonMapping x) putSkip 2@@ -1751,7 +1752,7 @@ putSkip (requiredPadding size__) data SetDeviceButtonMappingReply = MkSetDeviceButtonMappingReply{status_SetDeviceButtonMappingReply- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance Deserialize SetDeviceButtonMappingReply where@@ -1766,7 +1767,7 @@ return (MkSetDeviceButtonMappingReply status) data QueryDeviceState = MkQueryDeviceState{device_id_QueryDeviceState- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance ExtensionRequest QueryDeviceState where@@ -1775,13 +1776,13 @@ = do putWord8 extOpCode putWord8 30 let size__ = 4 + size (device_id_QueryDeviceState x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_QueryDeviceState x) putSkip 3 putSkip (requiredPadding size__) data QueryDeviceStateReply = MkQueryDeviceStateReply{num_classes_QueryDeviceStateReply- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance Deserialize QueryDeviceStateReply where@@ -1795,8 +1796,8 @@ let _ = isCard32 length return (MkQueryDeviceStateReply num_classes) -data InputState = MkInputState{class_id_InputState :: CARD8,- len_InputState :: CARD8, num_items_InputState :: CARD8}+data InputState = MkInputState{class_id_InputState :: Word8,+ len_InputState :: Word8, num_items_InputState :: Word8} deriving (Show, Typeable) instance Serialize InputState where@@ -1815,9 +1816,9 @@ num_items <- deserialize return (MkInputState class_id len num_items) -data KeyState = MkKeyState{class_id_KeyState :: CARD8,- len_KeyState :: CARD8, num_keys_KeyState :: CARD8,- keys_KeyState :: [CARD8]}+data KeyState = MkKeyState{class_id_KeyState :: Word8,+ len_KeyState :: Word8, num_keys_KeyState :: Word8,+ keys_KeyState :: [Word8]} deriving (Show, Typeable) instance Serialize KeyState where@@ -1842,9 +1843,9 @@ keys <- deserializeList (fromIntegral 32) return (MkKeyState class_id len num_keys keys) -data ButtonState = MkButtonState{class_id_ButtonState :: CARD8,- len_ButtonState :: CARD8, num_buttons_ButtonState :: CARD8,- buttons_ButtonState :: [CARD8]}+data ButtonState = MkButtonState{class_id_ButtonState :: Word8,+ len_ButtonState :: Word8, num_buttons_ButtonState :: Word8,+ buttons_ButtonState :: [Word8]} deriving (Show, Typeable) instance Serialize ButtonState where@@ -1870,11 +1871,11 @@ return (MkButtonState class_id len num_buttons buttons) data ValuatorState = MkValuatorState{class_id_ValuatorState ::- CARD8,- len_ValuatorState :: CARD8,- num_valuators_ValuatorState :: CARD8,- mode_ValuatorState :: CARD8,- valuators_ValuatorState :: [CARD32]}+ Word8,+ len_ValuatorState :: Word8,+ num_valuators_ValuatorState :: Word8,+ mode_ValuatorState :: Word8,+ valuators_ValuatorState :: [Word32]} deriving (Show, Typeable) instance Serialize ValuatorState where@@ -1901,10 +1902,10 @@ data SendExtensionEvent = MkSendExtensionEvent{destination_SendExtensionEvent :: WINDOW,- device_id_SendExtensionEvent :: CARD8,- propagate_SendExtensionEvent :: BOOL,- num_classes_SendExtensionEvent :: CARD16,- num_events_SendExtensionEvent :: CARD8,+ device_id_SendExtensionEvent :: Word8,+ propagate_SendExtensionEvent :: Bool,+ num_classes_SendExtensionEvent :: Word16,+ num_events_SendExtensionEvent :: Word8, events_SendExtensionEvent :: [CChar], classes_SendExtensionEvent :: [EventClass]} deriving (Show, Typeable)@@ -1923,7 +1924,7 @@ + 3 + sum (map size (events_SendExtensionEvent x)) + sum (map size (classes_SendExtensionEvent x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (destination_SendExtensionEvent x) serialize (device_id_SendExtensionEvent x) serialize (propagate_SendExtensionEvent x)@@ -1934,9 +1935,9 @@ serializeList (classes_SendExtensionEvent x) putSkip (requiredPadding size__) -data DeviceBell = MkDeviceBell{device_id_DeviceBell :: CARD8,- feedback_id_DeviceBell :: CARD8,- feedback_class_DeviceBell :: CARD8, percent_DeviceBell :: INT8}+data DeviceBell = MkDeviceBell{device_id_DeviceBell :: Word8,+ feedback_id_DeviceBell :: Word8,+ feedback_class_DeviceBell :: Word8, percent_DeviceBell :: Int8} deriving (Show, Typeable) instance ExtensionRequest DeviceBell where@@ -1949,7 +1950,7 @@ size (feedback_id_DeviceBell x) + size (feedback_class_DeviceBell x) + size (percent_DeviceBell x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_DeviceBell x) serialize (feedback_id_DeviceBell x) serialize (feedback_class_DeviceBell x)@@ -1957,10 +1958,10 @@ putSkip (requiredPadding size__) data SetDeviceValuators = MkSetDeviceValuators{device_id_SetDeviceValuators- :: CARD8,- first_valuator_SetDeviceValuators :: CARD8,- num_valuators_SetDeviceValuators :: CARD8,- valuators_SetDeviceValuators :: [INT32]}+ :: Word8,+ first_valuator_SetDeviceValuators :: Word8,+ num_valuators_SetDeviceValuators :: Word8,+ valuators_SetDeviceValuators :: [Int32]} deriving (Show, Typeable) instance ExtensionRequest SetDeviceValuators where@@ -1974,7 +1975,7 @@ + size (num_valuators_SetDeviceValuators x) + 1 + sum (map size (valuators_SetDeviceValuators x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_id_SetDeviceValuators x) serialize (first_valuator_SetDeviceValuators x) serialize (num_valuators_SetDeviceValuators x)@@ -1983,7 +1984,7 @@ putSkip (requiredPadding size__) data SetDeviceValuatorsReply = MkSetDeviceValuatorsReply{status_SetDeviceValuatorsReply- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance Deserialize SetDeviceValuatorsReply where@@ -1998,8 +1999,8 @@ return (MkSetDeviceValuatorsReply status) data GetDeviceControl = MkGetDeviceControl{control_id_GetDeviceControl- :: CARD16,- device_id_GetDeviceControl :: CARD8}+ :: Word16,+ device_id_GetDeviceControl :: Word8} deriving (Show, Typeable) instance ExtensionRequest GetDeviceControl where@@ -2011,14 +2012,14 @@ = 4 + size (control_id_GetDeviceControl x) + size (device_id_GetDeviceControl x) + 1- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (control_id_GetDeviceControl x) serialize (device_id_GetDeviceControl x) putSkip 1 putSkip (requiredPadding size__) data GetDeviceControlReply = MkGetDeviceControlReply{status_GetDeviceControlReply- :: CARD8}+ :: Word8} deriving (Show, Typeable) instance Deserialize GetDeviceControlReply where@@ -2032,8 +2033,8 @@ let _ = isCard32 length return (MkGetDeviceControlReply status) -data DeviceState = MkDeviceState{control_id_DeviceState :: CARD16,- len_DeviceState :: CARD16}+data DeviceState = MkDeviceState{control_id_DeviceState :: Word16,+ len_DeviceState :: Word16} deriving (Show, Typeable) instance Serialize DeviceState where@@ -2049,15 +2050,15 @@ return (MkDeviceState control_id len) data DeviceResolutionState = MkDeviceResolutionState{control_id_DeviceResolutionState- :: CARD16,- len_DeviceResolutionState :: CARD16,- num_valuators_DeviceResolutionState :: CARD32,+ :: Word16,+ len_DeviceResolutionState :: Word16,+ num_valuators_DeviceResolutionState :: Word32, resolution_values_DeviceResolutionState ::- [CARD32],+ [Word32], resolution_min_DeviceResolutionState ::- [CARD32],+ [Word32], resolution_max_DeviceResolutionState ::- [CARD32]}+ [Word32]} deriving (Show, Typeable) instance Serialize DeviceResolutionState where@@ -2091,16 +2092,16 @@ resolution_max) data DeviceAbsCalibState = MkDeviceAbsCalibState{control_id_DeviceAbsCalibState- :: CARD16,- len_DeviceAbsCalibState :: CARD16,- min_x_DeviceAbsCalibState :: INT32,- max_x_DeviceAbsCalibState :: INT32,- min_y_DeviceAbsCalibState :: INT32,- max_y_DeviceAbsCalibState :: INT32,- flip_x_DeviceAbsCalibState :: CARD32,- flip_y_DeviceAbsCalibState :: CARD32,- rotation_DeviceAbsCalibState :: CARD32,- button_threshold_DeviceAbsCalibState :: CARD32}+ :: Word16,+ len_DeviceAbsCalibState :: Word16,+ min_x_DeviceAbsCalibState :: Int32,+ max_x_DeviceAbsCalibState :: Int32,+ min_y_DeviceAbsCalibState :: Int32,+ max_y_DeviceAbsCalibState :: Int32,+ flip_x_DeviceAbsCalibState :: Word32,+ flip_y_DeviceAbsCalibState :: Word32,+ rotation_DeviceAbsCalibState :: Word32,+ button_threshold_DeviceAbsCalibState :: Word32} deriving (Show, Typeable) instance Serialize DeviceAbsCalibState where@@ -2147,14 +2148,14 @@ button_threshold) data DeviceAbsAreaState = MkDeviceAbsAreaState{control_id_DeviceAbsAreaState- :: CARD16,- len_DeviceAbsAreaState :: CARD16,- offset_x_DeviceAbsAreaState :: CARD32,- offset_y_DeviceAbsAreaState :: CARD32,- width_DeviceAbsAreaState :: CARD32,- height_DeviceAbsAreaState :: CARD32,- screen_DeviceAbsAreaState :: CARD32,- following_DeviceAbsAreaState :: CARD32}+ :: Word16,+ len_DeviceAbsAreaState :: Word16,+ offset_x_DeviceAbsAreaState :: Word32,+ offset_y_DeviceAbsAreaState :: Word32,+ width_DeviceAbsAreaState :: Word32,+ height_DeviceAbsAreaState :: Word32,+ screen_DeviceAbsAreaState :: Word32,+ following_DeviceAbsAreaState :: Word32} deriving (Show, Typeable) instance Serialize DeviceAbsAreaState where@@ -2193,10 +2194,10 @@ following) data DeviceCoreState = MkDeviceCoreState{control_id_DeviceCoreState- :: CARD16,- len_DeviceCoreState :: CARD16,- status_DeviceCoreState :: CARD8,- iscore_DeviceCoreState :: CARD8}+ :: Word16,+ len_DeviceCoreState :: Word16,+ status_DeviceCoreState :: Word8,+ iscore_DeviceCoreState :: Word8} deriving (Show, Typeable) instance Serialize DeviceCoreState where@@ -2223,9 +2224,9 @@ return (MkDeviceCoreState control_id len status iscore) data DeviceEnableState = MkDeviceEnableState{control_id_DeviceEnableState- :: CARD16,- len_DeviceEnableState :: CARD16,- enable_DeviceEnableState :: CARD8}+ :: Word16,+ len_DeviceEnableState :: Word16,+ enable_DeviceEnableState :: Word8} deriving (Show, Typeable) instance Serialize DeviceEnableState where@@ -2248,8 +2249,8 @@ skip 3 return (MkDeviceEnableState control_id len enable) -data DeviceCtl = MkDeviceCtl{control_id_DeviceCtl :: CARD16,- len_DeviceCtl :: CARD16}+data DeviceCtl = MkDeviceCtl{control_id_DeviceCtl :: Word16,+ len_DeviceCtl :: Word16} deriving (Show, Typeable) instance Serialize DeviceCtl where@@ -2265,11 +2266,11 @@ return (MkDeviceCtl control_id len) data DeviceResolutionCtl = MkDeviceResolutionCtl{control_id_DeviceResolutionCtl- :: CARD16,- len_DeviceResolutionCtl :: CARD16,- first_valuator_DeviceResolutionCtl :: CARD8,- num_valuators_DeviceResolutionCtl :: CARD8,- resolution_values_DeviceResolutionCtl :: [CARD32]}+ :: Word16,+ len_DeviceResolutionCtl :: Word16,+ first_valuator_DeviceResolutionCtl :: Word8,+ num_valuators_DeviceResolutionCtl :: Word8,+ resolution_values_DeviceResolutionCtl :: [Word32]} deriving (Show, Typeable) instance Serialize DeviceResolutionCtl where@@ -2298,16 +2299,16 @@ resolution_values) data DeviceAbsCalibCtl = MkDeviceAbsCalibCtl{control_id_DeviceAbsCalibCtl- :: CARD16,- len_DeviceAbsCalibCtl :: CARD16,- min_x_DeviceAbsCalibCtl :: INT32,- max_x_DeviceAbsCalibCtl :: INT32,- min_y_DeviceAbsCalibCtl :: INT32,- max_y_DeviceAbsCalibCtl :: INT32,- flip_x_DeviceAbsCalibCtl :: CARD32,- flip_y_DeviceAbsCalibCtl :: CARD32,- rotation_DeviceAbsCalibCtl :: CARD32,- button_threshold_DeviceAbsCalibCtl :: CARD32}+ :: Word16,+ len_DeviceAbsCalibCtl :: Word16,+ min_x_DeviceAbsCalibCtl :: Int32,+ max_x_DeviceAbsCalibCtl :: Int32,+ min_y_DeviceAbsCalibCtl :: Int32,+ max_y_DeviceAbsCalibCtl :: Int32,+ flip_x_DeviceAbsCalibCtl :: Word32,+ flip_y_DeviceAbsCalibCtl :: Word32,+ rotation_DeviceAbsCalibCtl :: Word32,+ button_threshold_DeviceAbsCalibCtl :: Word32} deriving (Show, Typeable) instance Serialize DeviceAbsCalibCtl where@@ -2353,14 +2354,14 @@ button_threshold) data DeviceAbsAreaCtrl = MkDeviceAbsAreaCtrl{control_id_DeviceAbsAreaCtrl- :: CARD16,- len_DeviceAbsAreaCtrl :: CARD16,- offset_x_DeviceAbsAreaCtrl :: CARD32,- offset_y_DeviceAbsAreaCtrl :: CARD32,- width_DeviceAbsAreaCtrl :: INT32,- height_DeviceAbsAreaCtrl :: INT32,- screen_DeviceAbsAreaCtrl :: INT32,- following_DeviceAbsAreaCtrl :: CARD32}+ :: Word16,+ len_DeviceAbsAreaCtrl :: Word16,+ offset_x_DeviceAbsAreaCtrl :: Word32,+ offset_y_DeviceAbsAreaCtrl :: Word32,+ width_DeviceAbsAreaCtrl :: Int32,+ height_DeviceAbsAreaCtrl :: Int32,+ screen_DeviceAbsAreaCtrl :: Int32,+ following_DeviceAbsAreaCtrl :: Word32} deriving (Show, Typeable) instance Serialize DeviceAbsAreaCtrl where@@ -2399,8 +2400,8 @@ following) data DeviceCoreCtrl = MkDeviceCoreCtrl{control_id_DeviceCoreCtrl ::- CARD16,- len_DeviceCoreCtrl :: CARD16, status_DeviceCoreCtrl :: CARD8}+ Word16,+ len_DeviceCoreCtrl :: Word16, status_DeviceCoreCtrl :: Word8} deriving (Show, Typeable) instance Serialize DeviceCoreCtrl where@@ -2423,9 +2424,9 @@ return (MkDeviceCoreCtrl control_id len status) data DeviceEnableCtrl = MkDeviceEnableCtrl{control_id_DeviceEnableCtrl- :: CARD16,- len_DeviceEnableCtrl :: CARD16,- enable_DeviceEnableCtrl :: CARD8}+ :: Word16,+ len_DeviceEnableCtrl :: Word16,+ enable_DeviceEnableCtrl :: Word8} deriving (Show, Typeable) instance Serialize DeviceEnableCtrl where@@ -2449,11 +2450,11 @@ return (MkDeviceEnableCtrl control_id len enable) data DeviceValuator = MkDeviceValuator{device_id_DeviceValuator ::- CARD8,- device_state_DeviceValuator :: CARD16,- num_valuators_DeviceValuator :: CARD8,- first_valuator_DeviceValuator :: CARD8,- valuators_DeviceValuator :: [INT32]}+ Word8,+ device_state_DeviceValuator :: Word16,+ num_valuators_DeviceValuator :: Word8,+ first_valuator_DeviceValuator :: Word8,+ valuators_DeviceValuator :: [Int32]} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event DeviceValuator@@ -2473,18 +2474,18 @@ valuators) data DeviceKeyPress = MkDeviceKeyPress{detail_DeviceKeyPress ::- BYTE,+ Word8, time_DeviceKeyPress :: TIMESTAMP, root_DeviceKeyPress :: WINDOW, event_DeviceKeyPress :: WINDOW, child_DeviceKeyPress :: WINDOW,- root_x_DeviceKeyPress :: INT16,- root_y_DeviceKeyPress :: INT16,- event_x_DeviceKeyPress :: INT16,- event_y_DeviceKeyPress :: INT16,- state_DeviceKeyPress :: CARD16,- same_screen_DeviceKeyPress :: BOOL,- device_id_DeviceKeyPress :: CARD8}+ root_x_DeviceKeyPress :: Int16,+ root_y_DeviceKeyPress :: Int16,+ event_x_DeviceKeyPress :: Int16,+ event_y_DeviceKeyPress :: Int16,+ state_DeviceKeyPress :: Word16,+ same_screen_DeviceKeyPress :: Bool,+ device_id_DeviceKeyPress :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event DeviceKeyPress@@ -2514,18 +2515,18 @@ device_id) data DeviceKeyRelease = MkDeviceKeyRelease{detail_DeviceKeyRelease- :: BYTE,+ :: Word8, time_DeviceKeyRelease :: TIMESTAMP, root_DeviceKeyRelease :: WINDOW, event_DeviceKeyRelease :: WINDOW, child_DeviceKeyRelease :: WINDOW,- root_x_DeviceKeyRelease :: INT16,- root_y_DeviceKeyRelease :: INT16,- event_x_DeviceKeyRelease :: INT16,- event_y_DeviceKeyRelease :: INT16,- state_DeviceKeyRelease :: CARD16,- same_screen_DeviceKeyRelease :: BOOL,- device_id_DeviceKeyRelease :: CARD8}+ root_x_DeviceKeyRelease :: Int16,+ root_y_DeviceKeyRelease :: Int16,+ event_x_DeviceKeyRelease :: Int16,+ event_y_DeviceKeyRelease :: Int16,+ state_DeviceKeyRelease :: Word16,+ same_screen_DeviceKeyRelease :: Bool,+ device_id_DeviceKeyRelease :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event DeviceKeyRelease@@ -2555,18 +2556,18 @@ device_id) data DeviceButtonPress = MkDeviceButtonPress{detail_DeviceButtonPress- :: BYTE,+ :: Word8, time_DeviceButtonPress :: TIMESTAMP, root_DeviceButtonPress :: WINDOW, event_DeviceButtonPress :: WINDOW, child_DeviceButtonPress :: WINDOW,- root_x_DeviceButtonPress :: INT16,- root_y_DeviceButtonPress :: INT16,- event_x_DeviceButtonPress :: INT16,- event_y_DeviceButtonPress :: INT16,- state_DeviceButtonPress :: CARD16,- same_screen_DeviceButtonPress :: BOOL,- device_id_DeviceButtonPress :: CARD8}+ root_x_DeviceButtonPress :: Int16,+ root_y_DeviceButtonPress :: Int16,+ event_x_DeviceButtonPress :: Int16,+ event_y_DeviceButtonPress :: Int16,+ state_DeviceButtonPress :: Word16,+ same_screen_DeviceButtonPress :: Bool,+ device_id_DeviceButtonPress :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event DeviceButtonPress@@ -2596,18 +2597,18 @@ device_id) data DeviceButtonRelease = MkDeviceButtonRelease{detail_DeviceButtonRelease- :: BYTE,+ :: Word8, time_DeviceButtonRelease :: TIMESTAMP, root_DeviceButtonRelease :: WINDOW, event_DeviceButtonRelease :: WINDOW, child_DeviceButtonRelease :: WINDOW,- root_x_DeviceButtonRelease :: INT16,- root_y_DeviceButtonRelease :: INT16,- event_x_DeviceButtonRelease :: INT16,- event_y_DeviceButtonRelease :: INT16,- state_DeviceButtonRelease :: CARD16,- same_screen_DeviceButtonRelease :: BOOL,- device_id_DeviceButtonRelease :: CARD8}+ root_x_DeviceButtonRelease :: Int16,+ root_y_DeviceButtonRelease :: Int16,+ event_x_DeviceButtonRelease :: Int16,+ event_y_DeviceButtonRelease :: Int16,+ state_DeviceButtonRelease :: Word16,+ same_screen_DeviceButtonRelease :: Bool,+ device_id_DeviceButtonRelease :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event DeviceButtonRelease@@ -2637,18 +2638,18 @@ device_id) data DeviceMotionNotify = MkDeviceMotionNotify{detail_DeviceMotionNotify- :: BYTE,+ :: Word8, time_DeviceMotionNotify :: TIMESTAMP, root_DeviceMotionNotify :: WINDOW, event_DeviceMotionNotify :: WINDOW, child_DeviceMotionNotify :: WINDOW,- root_x_DeviceMotionNotify :: INT16,- root_y_DeviceMotionNotify :: INT16,- event_x_DeviceMotionNotify :: INT16,- event_y_DeviceMotionNotify :: INT16,- state_DeviceMotionNotify :: CARD16,- same_screen_DeviceMotionNotify :: BOOL,- device_id_DeviceMotionNotify :: CARD8}+ root_x_DeviceMotionNotify :: Int16,+ root_y_DeviceMotionNotify :: Int16,+ event_x_DeviceMotionNotify :: Int16,+ event_y_DeviceMotionNotify :: Int16,+ state_DeviceMotionNotify :: Word16,+ same_screen_DeviceMotionNotify :: Bool,+ device_id_DeviceMotionNotify :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event DeviceMotionNotify@@ -2677,13 +2678,13 @@ same_screen device_id) -data ProximityIn = MkProximityIn{detail_ProximityIn :: BYTE,+data ProximityIn = MkProximityIn{detail_ProximityIn :: Word8, time_ProximityIn :: TIMESTAMP, root_ProximityIn :: WINDOW, event_ProximityIn :: WINDOW, child_ProximityIn :: WINDOW,- root_x_ProximityIn :: INT16, root_y_ProximityIn :: INT16,- event_x_ProximityIn :: INT16, event_y_ProximityIn :: INT16,- state_ProximityIn :: CARD16, same_screen_ProximityIn :: BOOL,- device_id_ProximityIn :: CARD8}+ root_x_ProximityIn :: Int16, root_y_ProximityIn :: Int16,+ event_x_ProximityIn :: Int16, event_y_ProximityIn :: Int16,+ state_ProximityIn :: Word16, same_screen_ProximityIn :: Bool,+ device_id_ProximityIn :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event ProximityIn@@ -2711,13 +2712,13 @@ same_screen device_id) -data ProximityOut = MkProximityOut{detail_ProximityOut :: BYTE,+data ProximityOut = MkProximityOut{detail_ProximityOut :: Word8, time_ProximityOut :: TIMESTAMP, root_ProximityOut :: WINDOW, event_ProximityOut :: WINDOW, child_ProximityOut :: WINDOW,- root_x_ProximityOut :: INT16, root_y_ProximityOut :: INT16,- event_x_ProximityOut :: INT16, event_y_ProximityOut :: INT16,- state_ProximityOut :: CARD16, same_screen_ProximityOut :: BOOL,- device_id_ProximityOut :: CARD8}+ root_x_ProximityOut :: Int16, root_y_ProximityOut :: Int16,+ event_x_ProximityOut :: Int16, event_y_ProximityOut :: Int16,+ state_ProximityOut :: Word16, same_screen_ProximityOut :: Bool,+ device_id_ProximityOut :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event ProximityOut@@ -2745,9 +2746,9 @@ same_screen device_id) -data FocusIn = MkFocusIn{detail_FocusIn :: BYTE,+data FocusIn = MkFocusIn{detail_FocusIn :: Word8, time_FocusIn :: TIMESTAMP, window_FocusIn :: WINDOW,- mode_FocusIn :: BYTE, device_id_FocusIn :: CARD8}+ mode_FocusIn :: Word8, device_id_FocusIn :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event FocusIn@@ -2764,13 +2765,13 @@ skip 18 return (MkFocusIn detail time window mode device_id) -data FocusOut = MkFocusOut{detail_FocusOut :: BYTE,+data FocusOut = MkFocusOut{detail_FocusOut :: Word8, time_FocusOut :: TIMESTAMP, root_FocusOut :: WINDOW, event_FocusOut :: WINDOW, child_FocusOut :: WINDOW,- root_x_FocusOut :: INT16, root_y_FocusOut :: INT16,- event_x_FocusOut :: INT16, event_y_FocusOut :: INT16,- state_FocusOut :: CARD16, same_screen_FocusOut :: BOOL,- device_id_FocusOut :: CARD8}+ root_x_FocusOut :: Int16, root_y_FocusOut :: Int16,+ event_x_FocusOut :: Int16, event_y_FocusOut :: Int16,+ state_FocusOut :: Word16, same_screen_FocusOut :: Bool,+ device_id_FocusOut :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event FocusOut@@ -2799,15 +2800,15 @@ device_id) data DeviceStateNotify = MkDeviceStateNotify{device_id_DeviceStateNotify- :: BYTE,+ :: Word8, time_DeviceStateNotify :: TIMESTAMP,- num_keys_DeviceStateNotify :: CARD8,- num_buttons_DeviceStateNotify :: CARD8,- num_valuators_DeviceStateNotify :: CARD8,- classes_reported_DeviceStateNotify :: CARD8,- buttons_DeviceStateNotify :: [CARD8],- keys_DeviceStateNotify :: [CARD8],- valuators_DeviceStateNotify :: [CARD32]}+ num_keys_DeviceStateNotify :: Word8,+ num_buttons_DeviceStateNotify :: Word8,+ num_valuators_DeviceStateNotify :: Word8,+ classes_reported_DeviceStateNotify :: Word8,+ buttons_DeviceStateNotify :: [Word8],+ keys_DeviceStateNotify :: [Word8],+ valuators_DeviceStateNotify :: [Word32]} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event DeviceStateNotify@@ -2834,10 +2835,10 @@ valuators) data DeviceMappingNotify = MkDeviceMappingNotify{device_id_DeviceMappingNotify- :: BYTE,- request_DeviceMappingNotify :: CARD8,+ :: Word8,+ request_DeviceMappingNotify :: Word8, first_keycode_DeviceMappingNotify :: KeyCode,- count_DeviceMappingNotify :: CARD8,+ count_DeviceMappingNotify :: Word8, time_DeviceMappingNotify :: TIMESTAMP} deriving (Show, Typeable) @@ -2858,9 +2859,9 @@ (MkDeviceMappingNotify device_id request first_keycode count time) data ChangeDeviceNotify = MkChangeDeviceNotify{device_id_ChangeDeviceNotify- :: BYTE,+ :: Word8, time_ChangeDeviceNotify :: TIMESTAMP,- request_ChangeDeviceNotify :: CARD8}+ request_ChangeDeviceNotify :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event ChangeDeviceNotify@@ -2876,8 +2877,8 @@ return (MkChangeDeviceNotify device_id time request) data DeviceKeyStateNotify = MkDeviceKeyStateNotify{device_id_DeviceKeyStateNotify- :: BYTE,- keys_DeviceKeyStateNotify :: [CARD8]}+ :: Word8,+ keys_DeviceKeyStateNotify :: [Word8]} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event DeviceKeyStateNotify@@ -2891,8 +2892,8 @@ return (MkDeviceKeyStateNotify device_id keys) data DeviceButtonStateNotify = MkDeviceButtonStateNotify{device_id_DeviceButtonStateNotify- :: BYTE,- buttons_DeviceButtonStateNotify :: [CARD8]}+ :: Word8,+ buttons_DeviceButtonStateNotify :: [Word8]} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event DeviceButtonStateNotify@@ -2907,9 +2908,9 @@ data DevicePresenceNotify = MkDevicePresenceNotify{time_DevicePresenceNotify :: TIMESTAMP,- devchange_DevicePresenceNotify :: BYTE,- device_id_DevicePresenceNotify :: BYTE,- control_DevicePresenceNotify :: CARD16}+ devchange_DevicePresenceNotify :: Word8,+ device_id_DevicePresenceNotify :: Word8,+ control_DevicePresenceNotify :: Word16} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event DevicePresenceNotify
patched/Graphics/XHB/Gen/RandR.hs view
@@ -14,6 +14,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -25,28 +28,28 @@ queryVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)+ Word32 -> Word32 -> IO (Receipt QueryVersionReply) queryVersion c major_version minor_version- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion major_version minor_version putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setScreenConfig :: Graphics.XHB.Connection.Types.Connection -> SetScreenConfig -> IO (Receipt SetScreenConfigReply) setScreenConfig c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt selectInput :: Graphics.XHB.Connection.Types.Connection ->- WINDOW -> CARD16 -> IO ()+ WINDOW -> Word16 -> IO () selectInput c window enable = do let req = MkSelectInput window enable putAction <- serializeExtensionRequest c req@@ -57,22 +60,22 @@ Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt GetScreenInfoReply) getScreenInfo c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetScreenInfo window putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getScreenSizeRange :: Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt GetScreenSizeRangeReply) getScreenSizeRange c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetScreenSizeRange window putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setScreenSize ::@@ -86,44 +89,44 @@ Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt GetScreenResourcesReply) getScreenResources c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetScreenResources window putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getOutputInfo :: Graphics.XHB.Connection.Types.Connection -> OUTPUT -> TIMESTAMP -> IO (Receipt GetOutputInfoReply) getOutputInfo c output config_timestamp- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetOutputInfo output config_timestamp putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt listOutputProperties :: Graphics.XHB.Connection.Types.Connection -> OUTPUT -> IO (Receipt ListOutputPropertiesReply) listOutputProperties c output- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkListOutputProperties output putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryOutputProperty :: Graphics.XHB.Connection.Types.Connection -> OUTPUT -> ATOM -> IO (Receipt QueryOutputPropertyReply) queryOutputProperty c output property- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryOutputProperty output property putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt configureOutputProperty ::@@ -154,20 +157,21 @@ Graphics.XHB.Connection.Types.Connection -> GetOutputProperty -> IO (Receipt GetOutputPropertyReply) getOutputProperty c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt createMode :: Graphics.XHB.Connection.Types.Connection ->- CreateMode -> IO (Receipt CreateModeReply)+ CreateMode -> IO (Receipt MODE) createMode c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (mode_CreateModeReply `fmap` deserialize)) putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt destroyMode ::@@ -198,43 +202,44 @@ Graphics.XHB.Connection.Types.Connection -> CRTC -> TIMESTAMP -> IO (Receipt GetCrtcInfoReply) getCrtcInfo c crtc config_timestamp- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetCrtcInfo crtc config_timestamp putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setCrtcConfig :: Graphics.XHB.Connection.Types.Connection -> SetCrtcConfig -> IO (Receipt SetCrtcConfigReply) setCrtcConfig c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getCrtcGammaSize :: Graphics.XHB.Connection.Types.Connection ->- CRTC -> IO (Receipt GetCrtcGammaSizeReply)+ CRTC -> IO (Receipt Word16) getCrtcGammaSize c crtc- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (size_GetCrtcGammaSizeReply `fmap` deserialize)) let req = MkGetCrtcGammaSize crtc putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getCrtcGamma :: Graphics.XHB.Connection.Types.Connection -> CRTC -> IO (Receipt GetCrtcGammaReply) getCrtcGamma c crtc- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetCrtcGamma crtc putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setCrtcGamma ::
patched/Graphics/XHB/Gen/RandR/Types.hs view
@@ -21,6 +21,7 @@ Notify(..),NotifyData(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -75,9 +76,9 @@ fromBit 4 = RotationReflect_X fromBit 5 = RotationReflect_Y -data ScreenSize = MkScreenSize{width_ScreenSize :: CARD16,- height_ScreenSize :: CARD16, mwidth_ScreenSize :: CARD16,- mheight_ScreenSize :: CARD16}+data ScreenSize = MkScreenSize{width_ScreenSize :: Word16,+ height_ScreenSize :: Word16, mwidth_ScreenSize :: Word16,+ mheight_ScreenSize :: Word16} deriving (Show, Typeable) instance Serialize ScreenSize where@@ -99,8 +100,8 @@ mheight <- deserialize return (MkScreenSize width height mwidth mheight) -data RefreshRates = MkRefreshRates{nRates_RefreshRates :: CARD16,- rates_RefreshRates :: [CARD16]}+data RefreshRates = MkRefreshRates{nRates_RefreshRates :: Word16,+ rates_RefreshRates :: [Word16]} deriving (Show, Typeable) instance Serialize RefreshRates where@@ -118,8 +119,8 @@ return (MkRefreshRates nRates rates) data QueryVersion = MkQueryVersion{major_version_QueryVersion ::- CARD32,- minor_version_QueryVersion :: CARD32}+ Word32,+ minor_version_QueryVersion :: Word32} deriving (Show, Typeable) instance ExtensionRequest QueryVersion where@@ -130,14 +131,14 @@ let size__ = 4 + size (major_version_QueryVersion x) + size (minor_version_QueryVersion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (major_version_QueryVersion x) serialize (minor_version_QueryVersion x) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply- :: CARD32,- minor_version_QueryVersionReply :: CARD32}+ :: Word32,+ minor_version_QueryVersionReply :: Word32} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -156,9 +157,9 @@ WINDOW, timestamp_SetScreenConfig :: TIMESTAMP, config_timestamp_SetScreenConfig :: TIMESTAMP,- sizeID_SetScreenConfig :: CARD16,- rotation_SetScreenConfig :: CARD16,- rate_SetScreenConfig :: CARD16}+ sizeID_SetScreenConfig :: Word16,+ rotation_SetScreenConfig :: Word16,+ rate_SetScreenConfig :: Word16} deriving (Show, Typeable) instance ExtensionRequest SetScreenConfig where@@ -174,7 +175,7 @@ + size (rotation_SetScreenConfig x) + size (rate_SetScreenConfig x) + 2- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_SetScreenConfig x) serialize (timestamp_SetScreenConfig x) serialize (config_timestamp_SetScreenConfig x)@@ -185,12 +186,12 @@ putSkip (requiredPadding size__) data SetScreenConfigReply = MkSetScreenConfigReply{status_SetScreenConfigReply- :: CARD8,+ :: Word8, new_timestamp_SetScreenConfigReply :: TIMESTAMP, config_timestamp_SetScreenConfigReply :: TIMESTAMP, root_SetScreenConfigReply :: WINDOW,- subpixel_order_SetScreenConfigReply :: CARD16}+ subpixel_order_SetScreenConfigReply :: Word16} deriving (Show, Typeable) instance Deserialize SetScreenConfigReply where@@ -225,7 +226,7 @@ fromValue 3 = SetConfigFailed data SelectInput = MkSelectInput{window_SelectInput :: WINDOW,- enable_SelectInput :: CARD16}+ enable_SelectInput :: Word16} deriving (Show, Typeable) instance ExtensionRequest SelectInput where@@ -235,7 +236,7 @@ putWord8 4 let size__ = 4 + size (window_SelectInput x) + size (enable_SelectInput x) + 2- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_SelectInput x) serialize (enable_SelectInput x) putSkip 2@@ -251,20 +252,20 @@ = do putWord8 extOpCode putWord8 5 let size__ = 4 + size (window_GetScreenInfo x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_GetScreenInfo x) putSkip (requiredPadding size__) data GetScreenInfoReply = MkGetScreenInfoReply{rotations_GetScreenInfoReply- :: CARD8,+ :: Word8, root_GetScreenInfoReply :: WINDOW, timestamp_GetScreenInfoReply :: TIMESTAMP, config_timestamp_GetScreenInfoReply :: TIMESTAMP,- nSizes_GetScreenInfoReply :: CARD16,- sizeID_GetScreenInfoReply :: CARD16,- rotation_GetScreenInfoReply :: CARD16,- rate_GetScreenInfoReply :: CARD16,- nInfo_GetScreenInfoReply :: CARD16,+ nSizes_GetScreenInfoReply :: Word16,+ sizeID_GetScreenInfoReply :: Word16,+ rotation_GetScreenInfoReply :: Word16,+ rate_GetScreenInfoReply :: Word16,+ nInfo_GetScreenInfoReply :: Word16, sizes_GetScreenInfoReply :: [ScreenSize], rates_GetScreenInfoReply :: [RefreshRates]} deriving (Show, Typeable)@@ -308,18 +309,18 @@ = do putWord8 extOpCode putWord8 6 let size__ = 4 + size (window_GetScreenSizeRange x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_GetScreenSizeRange x) putSkip (requiredPadding size__) data GetScreenSizeRangeReply = MkGetScreenSizeRangeReply{min_width_GetScreenSizeRangeReply- :: CARD16,+ :: Word16, min_height_GetScreenSizeRangeReply ::- CARD16,+ Word16, max_width_GetScreenSizeRangeReply ::- CARD16,+ Word16, max_height_GetScreenSizeRangeReply ::- CARD16}+ Word16} deriving (Show, Typeable) instance Deserialize GetScreenSizeRangeReply where@@ -340,9 +341,9 @@ data SetScreenSize = MkSetScreenSize{window_SetScreenSize :: WINDOW,- width_SetScreenSize :: CARD16, height_SetScreenSize :: CARD16,- mm_width_SetScreenSize :: CARD32,- mm_height_SetScreenSize :: CARD32}+ width_SetScreenSize :: Word16, height_SetScreenSize :: Word16,+ mm_width_SetScreenSize :: Word32,+ mm_height_SetScreenSize :: Word32} deriving (Show, Typeable) instance ExtensionRequest SetScreenSize where@@ -355,7 +356,7 @@ + size (height_SetScreenSize x) + size (mm_width_SetScreenSize x) + size (mm_height_SetScreenSize x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_SetScreenSize x) serialize (width_SetScreenSize x) serialize (height_SetScreenSize x)@@ -408,13 +409,13 @@ fromBit 12 = ModeFlagDoubleClock fromBit 13 = ModeFlagHalveClock -data ModeInfo = MkModeInfo{id_ModeInfo :: CARD32,- width_ModeInfo :: CARD16, height_ModeInfo :: CARD16,- dot_clock_ModeInfo :: CARD32, hsync_start_ModeInfo :: CARD16,- hsync_end_ModeInfo :: CARD16, htotal_ModeInfo :: CARD16,- hskew_ModeInfo :: CARD16, vsync_start_ModeInfo :: CARD16,- vsync_end_ModeInfo :: CARD16, vtotal_ModeInfo :: CARD16,- name_len_ModeInfo :: CARD16, mode_flags_ModeInfo :: CARD32}+data ModeInfo = MkModeInfo{id_ModeInfo :: Word32,+ width_ModeInfo :: Word16, height_ModeInfo :: Word16,+ dot_clock_ModeInfo :: Word32, hsync_start_ModeInfo :: Word16,+ hsync_end_ModeInfo :: Word16, htotal_ModeInfo :: Word16,+ hskew_ModeInfo :: Word16, vsync_start_ModeInfo :: Word16,+ vsync_end_ModeInfo :: Word16, vtotal_ModeInfo :: Word16,+ name_len_ModeInfo :: Word16, mode_flags_ModeInfo :: Word32} deriving (Show, Typeable) instance Serialize ModeInfo where@@ -480,7 +481,7 @@ = do putWord8 extOpCode putWord8 8 let size__ = 4 + size (window_GetScreenResources x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_GetScreenResources x) putSkip (requiredPadding size__) @@ -489,19 +490,19 @@ config_timestamp_GetScreenResourcesReply :: TIMESTAMP, num_crtcs_GetScreenResourcesReply ::- CARD16,+ Word16, num_outputs_GetScreenResourcesReply ::- CARD16,+ Word16, num_modes_GetScreenResourcesReply ::- CARD16,+ Word16, names_len_GetScreenResourcesReply ::- CARD16,+ Word16, crtcs_GetScreenResourcesReply :: [CRTC], outputs_GetScreenResourcesReply :: [OUTPUT], modes_GetScreenResourcesReply :: [ModeInfo],- names_GetScreenResourcesReply :: [BYTE]}+ names_GetScreenResourcesReply :: [Word8]} deriving (Show, Typeable) instance Deserialize GetScreenResourcesReply where@@ -557,28 +558,28 @@ let size__ = 4 + size (output_GetOutputInfo x) + size (config_timestamp_GetOutputInfo x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (output_GetOutputInfo x) serialize (config_timestamp_GetOutputInfo x) putSkip (requiredPadding size__) data GetOutputInfoReply = MkGetOutputInfoReply{status_GetOutputInfoReply- :: CARD8,+ :: Word8, timestamp_GetOutputInfoReply :: TIMESTAMP, crtc_GetOutputInfoReply :: CRTC,- mm_width_GetOutputInfoReply :: CARD32,- mm_height_GetOutputInfoReply :: CARD32,- connection_GetOutputInfoReply :: CARD8,- subpixel_order_GetOutputInfoReply :: CARD8,- num_crtcs_GetOutputInfoReply :: CARD16,- num_modes_GetOutputInfoReply :: CARD16,- num_preferred_GetOutputInfoReply :: CARD16,- num_clones_GetOutputInfoReply :: CARD16,- name_len_GetOutputInfoReply :: CARD16,+ mm_width_GetOutputInfoReply :: Word32,+ mm_height_GetOutputInfoReply :: Word32,+ connection_GetOutputInfoReply :: Word8,+ subpixel_order_GetOutputInfoReply :: Word8,+ num_crtcs_GetOutputInfoReply :: Word16,+ num_modes_GetOutputInfoReply :: Word16,+ num_preferred_GetOutputInfoReply :: Word16,+ num_clones_GetOutputInfoReply :: Word16,+ name_len_GetOutputInfoReply :: Word16, crtcs_GetOutputInfoReply :: [CRTC], modes_GetOutputInfoReply :: [MODE], clones_GetOutputInfoReply :: [OUTPUT],- name_GetOutputInfoReply :: [BYTE]}+ name_GetOutputInfoReply :: [Word8]} deriving (Show, Typeable) instance Deserialize GetOutputInfoReply where@@ -627,12 +628,12 @@ = do putWord8 extOpCode putWord8 10 let size__ = 4 + size (output_ListOutputProperties x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (output_ListOutputProperties x) putSkip (requiredPadding size__) data ListOutputPropertiesReply = MkListOutputPropertiesReply{num_atoms_ListOutputPropertiesReply- :: CARD16,+ :: Word16, atoms_ListOutputPropertiesReply :: [ATOM]} deriving (Show, Typeable)@@ -662,18 +663,18 @@ let size__ = 4 + size (output_QueryOutputProperty x) + size (property_QueryOutputProperty x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (output_QueryOutputProperty x) serialize (property_QueryOutputProperty x) putSkip (requiredPadding size__) data QueryOutputPropertyReply = MkQueryOutputPropertyReply{pending_QueryOutputPropertyReply- :: BOOL,- range_QueryOutputPropertyReply :: BOOL,+ :: Bool,+ range_QueryOutputPropertyReply :: Bool, immutable_QueryOutputPropertyReply ::- BOOL,+ Bool, validValues_QueryOutputPropertyReply ::- [INT32]}+ [Int32]} deriving (Show, Typeable) instance Deserialize QueryOutputPropertyReply where@@ -694,9 +695,9 @@ data ConfigureOutputProperty = MkConfigureOutputProperty{output_ConfigureOutputProperty :: OUTPUT, property_ConfigureOutputProperty :: ATOM,- pending_ConfigureOutputProperty :: BOOL,- range_ConfigureOutputProperty :: BOOL,- values_ConfigureOutputProperty :: [INT32]}+ pending_ConfigureOutputProperty :: Bool,+ range_ConfigureOutputProperty :: Bool,+ values_ConfigureOutputProperty :: [Int32]} deriving (Show, Typeable) instance ExtensionRequest ConfigureOutputProperty where@@ -711,7 +712,7 @@ + size (range_ConfigureOutputProperty x) + 2 + sum (map size (values_ConfigureOutputProperty x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (output_ConfigureOutputProperty x) serialize (property_ConfigureOutputProperty x) serialize (pending_ConfigureOutputProperty x)@@ -724,9 +725,9 @@ :: OUTPUT, property_ChangeOutputProperty :: ATOM, type_ChangeOutputProperty :: ATOM,- format_ChangeOutputProperty :: CARD8,- mode_ChangeOutputProperty :: CARD8,- num_units_ChangeOutputProperty :: CARD32,+ format_ChangeOutputProperty :: Word8,+ mode_ChangeOutputProperty :: Word8,+ num_units_ChangeOutputProperty :: Word32, data_ChangeOutputProperty :: [Word8]} deriving (Show, Typeable) @@ -744,7 +745,7 @@ + 2 + size (num_units_ChangeOutputProperty x) + sum (map size (data_ChangeOutputProperty x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (output_ChangeOutputProperty x) serialize (property_ChangeOutputProperty x) serialize (type_ChangeOutputProperty x)@@ -768,7 +769,7 @@ let size__ = 4 + size (output_DeleteOutputProperty x) + size (property_DeleteOutputProperty x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (output_DeleteOutputProperty x) serialize (property_DeleteOutputProperty x) putSkip (requiredPadding size__)@@ -777,10 +778,10 @@ :: OUTPUT, property_GetOutputProperty :: ATOM, type_GetOutputProperty :: ATOM,- long_offset_GetOutputProperty :: CARD32,- long_length_GetOutputProperty :: CARD32,- delete_GetOutputProperty :: BOOL,- pending_GetOutputProperty :: BOOL}+ long_offset_GetOutputProperty :: Word32,+ long_length_GetOutputProperty :: Word32,+ delete_GetOutputProperty :: Bool,+ pending_GetOutputProperty :: Bool} deriving (Show, Typeable) instance ExtensionRequest GetOutputProperty where@@ -797,7 +798,7 @@ + size (delete_GetOutputProperty x) + size (pending_GetOutputProperty x) + 2- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (output_GetOutputProperty x) serialize (property_GetOutputProperty x) serialize (type_GetOutputProperty x)@@ -809,11 +810,11 @@ putSkip (requiredPadding size__) data GetOutputPropertyReply = MkGetOutputPropertyReply{format_GetOutputPropertyReply- :: CARD8,+ :: Word8, type_GetOutputPropertyReply :: ATOM,- bytes_after_GetOutputPropertyReply :: CARD32,- num_items_GetOutputPropertyReply :: CARD32,- data_GetOutputPropertyReply :: [BYTE]}+ bytes_after_GetOutputPropertyReply :: Word32,+ num_items_GetOutputPropertyReply :: Word32,+ data_GetOutputPropertyReply :: [Word8]} deriving (Show, Typeable) instance Deserialize GetOutputPropertyReply where@@ -845,7 +846,7 @@ let size__ = 4 + size (window_CreateMode x) + size (mode_info_CreateMode x) + sum (map size (name_CreateMode x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_CreateMode x) serialize (mode_info_CreateMode x) serializeList (name_CreateMode x)@@ -875,7 +876,7 @@ = do putWord8 extOpCode putWord8 17 let size__ = 4 + size (mode_DestroyMode x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (mode_DestroyMode x) putSkip (requiredPadding size__) @@ -891,7 +892,7 @@ putWord8 18 let size__ = 4 + size (output_AddOutputMode x) + size (mode_AddOutputMode x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (output_AddOutputMode x) serialize (mode_AddOutputMode x) putSkip (requiredPadding size__)@@ -909,7 +910,7 @@ let size__ = 4 + size (output_DeleteOutputMode x) + size (mode_DeleteOutputMode x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (output_DeleteOutputMode x) serialize (mode_DeleteOutputMode x) putSkip (requiredPadding size__)@@ -926,22 +927,22 @@ let size__ = 4 + size (crtc_GetCrtcInfo x) + size (config_timestamp_GetCrtcInfo x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (crtc_GetCrtcInfo x) serialize (config_timestamp_GetCrtcInfo x) putSkip (requiredPadding size__) data GetCrtcInfoReply = MkGetCrtcInfoReply{status_GetCrtcInfoReply- :: CARD8,+ :: Word8, timestamp_GetCrtcInfoReply :: TIMESTAMP,- x_GetCrtcInfoReply :: INT16, y_GetCrtcInfoReply :: INT16,- width_GetCrtcInfoReply :: CARD16,- height_GetCrtcInfoReply :: CARD16,+ x_GetCrtcInfoReply :: Int16, y_GetCrtcInfoReply :: Int16,+ width_GetCrtcInfoReply :: Word16,+ height_GetCrtcInfoReply :: Word16, mode_GetCrtcInfoReply :: MODE,- rotation_GetCrtcInfoReply :: CARD16,- rotations_GetCrtcInfoReply :: CARD16,- num_outputs_GetCrtcInfoReply :: CARD16,- num_possible_outputs_GetCrtcInfoReply :: CARD16,+ rotation_GetCrtcInfoReply :: Word16,+ rotations_GetCrtcInfoReply :: Word16,+ num_outputs_GetCrtcInfoReply :: Word16,+ num_possible_outputs_GetCrtcInfoReply :: Word16, outputs_GetCrtcInfoReply :: [OUTPUT], possible_GetCrtcInfoReply :: [OUTPUT]} deriving (Show, Typeable)@@ -976,8 +977,8 @@ data SetCrtcConfig = MkSetCrtcConfig{crtc_SetCrtcConfig :: CRTC, timestamp_SetCrtcConfig :: TIMESTAMP, config_timestamp_SetCrtcConfig :: TIMESTAMP,- x_SetCrtcConfig :: INT16, y_SetCrtcConfig :: INT16,- mode_SetCrtcConfig :: MODE, rotation_SetCrtcConfig :: CARD16,+ x_SetCrtcConfig :: Int16, y_SetCrtcConfig :: Int16,+ mode_SetCrtcConfig :: MODE, rotation_SetCrtcConfig :: Word16, outputs_SetCrtcConfig :: [OUTPUT]} deriving (Show, Typeable) @@ -996,7 +997,7 @@ + size (rotation_SetCrtcConfig x) + 2 + sum (map size (outputs_SetCrtcConfig x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (crtc_SetCrtcConfig x) serialize (timestamp_SetCrtcConfig x) serialize (config_timestamp_SetCrtcConfig x)@@ -1009,7 +1010,7 @@ putSkip (requiredPadding size__) data SetCrtcConfigReply = MkSetCrtcConfigReply{status_SetCrtcConfigReply- :: CARD8,+ :: Word8, timestamp_SetCrtcConfigReply :: TIMESTAMP} deriving (Show, Typeable) @@ -1034,12 +1035,12 @@ = do putWord8 extOpCode putWord8 22 let size__ = 4 + size (crtc_GetCrtcGammaSize x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (crtc_GetCrtcGammaSize x) putSkip (requiredPadding size__) data GetCrtcGammaSizeReply = MkGetCrtcGammaSizeReply{size_GetCrtcGammaSizeReply- :: CARD16}+ :: Word16} deriving (Show, Typeable) instance Deserialize GetCrtcGammaSizeReply where@@ -1062,15 +1063,15 @@ = do putWord8 extOpCode putWord8 23 let size__ = 4 + size (crtc_GetCrtcGamma x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (crtc_GetCrtcGamma x) putSkip (requiredPadding size__) data GetCrtcGammaReply = MkGetCrtcGammaReply{size_GetCrtcGammaReply- :: CARD16,- red_GetCrtcGammaReply :: [CARD16],- green_GetCrtcGammaReply :: [CARD16],- blue_GetCrtcGammaReply :: [CARD16]}+ :: Word16,+ red_GetCrtcGammaReply :: [Word16],+ green_GetCrtcGammaReply :: [Word16],+ blue_GetCrtcGammaReply :: [Word16]} deriving (Show, Typeable) instance Deserialize GetCrtcGammaReply where@@ -1088,8 +1089,8 @@ return (MkGetCrtcGammaReply size red green blue) data SetCrtcGamma = MkSetCrtcGamma{crtc_SetCrtcGamma :: CRTC,- size_SetCrtcGamma :: CARD16, red_SetCrtcGamma :: [CARD16],- green_SetCrtcGamma :: [CARD16], blue_SetCrtcGamma :: [CARD16]}+ size_SetCrtcGamma :: Word16, red_SetCrtcGamma :: [Word16],+ green_SetCrtcGamma :: [Word16], blue_SetCrtcGamma :: [Word16]} deriving (Show, Typeable) instance ExtensionRequest SetCrtcGamma where@@ -1102,7 +1103,7 @@ sum (map size (red_SetCrtcGamma x)) + sum (map size (green_SetCrtcGamma x)) + sum (map size (blue_SetCrtcGamma x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (crtc_SetCrtcGamma x) serialize (size_SetCrtcGamma x) putSkip 2@@ -1127,17 +1128,17 @@ fromBit 3 = NotifyMaskOutputProperty data ScreenChangeNotify = MkScreenChangeNotify{rotation_ScreenChangeNotify- :: CARD8,+ :: Word8, timestamp_ScreenChangeNotify :: TIMESTAMP, config_timestamp_ScreenChangeNotify :: TIMESTAMP, root_ScreenChangeNotify :: WINDOW, request_window_ScreenChangeNotify :: WINDOW,- sizeID_ScreenChangeNotify :: CARD16,- subpixel_order_ScreenChangeNotify :: CARD16,- width_ScreenChangeNotify :: CARD16,- height_ScreenChangeNotify :: CARD16,- mwidth_ScreenChangeNotify :: CARD16,- mheight_ScreenChangeNotify :: CARD16}+ sizeID_ScreenChangeNotify :: Word16,+ subpixel_order_ScreenChangeNotify :: Word16,+ width_ScreenChangeNotify :: Word16,+ height_ScreenChangeNotify :: Word16,+ mwidth_ScreenChangeNotify :: Word16,+ mheight_ScreenChangeNotify :: Word16} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event ScreenChangeNotify@@ -1181,9 +1182,9 @@ data CrtcChange = MkCrtcChange{timestamp_CrtcChange :: TIMESTAMP, window_CrtcChange :: WINDOW, crtc_CrtcChange :: CRTC,- mode_CrtcChange :: MODE, rotation_CrtcChange :: CARD16,- x_CrtcChange :: INT16, y_CrtcChange :: INT16,- width_CrtcChange :: CARD16, height_CrtcChange :: CARD16}+ mode_CrtcChange :: MODE, rotation_CrtcChange :: Word16,+ x_CrtcChange :: Int16, y_CrtcChange :: Int16,+ width_CrtcChange :: Word16, height_CrtcChange :: Word16} deriving (Show, Typeable) instance Serialize CrtcChange where@@ -1229,9 +1230,9 @@ config_timestamp_OutputChange :: TIMESTAMP, window_OutputChange :: WINDOW, output_OutputChange :: OUTPUT, crtc_OutputChange :: CRTC, mode_OutputChange :: MODE,- rotation_OutputChange :: CARD16,- connection_OutputChange :: CARD8,- subpixel_order_OutputChange :: CARD8}+ rotation_OutputChange :: Word16,+ connection_OutputChange :: Word8,+ subpixel_order_OutputChange :: Word8} deriving (Show, Typeable) instance Serialize OutputChange where@@ -1277,7 +1278,7 @@ WINDOW, output_OutputProperty :: OUTPUT, atom_OutputProperty :: ATOM, timestamp_OutputProperty :: TIMESTAMP,- status_OutputProperty :: CARD8}+ status_OutputProperty :: Word8} deriving (Show, Typeable) instance Serialize OutputProperty where@@ -1304,7 +1305,8 @@ status <- deserialize skip 11 return (MkOutputProperty window output atom timestamp status)- ++ data NotifyData = NotifyDataCrtcChange CrtcChange | NotifyDataOutputChange OutputChange | NotifyDataOutputProperty OutputProperty@@ -1324,12 +1326,13 @@ deserializeNotifyData NotifyOutputChange = NotifyDataOutputChange `liftM` deserialize deserializeNotifyData NotifyOutputProperty = NotifyDataOutputProperty `liftM` deserialize -subCodeToNotifyEnum :: CARD8 -> NotifyEnum+subCodeToNotifyEnum :: Word8 -> NotifyEnum subCodeToNotifyEnum 0 = NotifyCrtcChange subCodeToNotifyEnum 1 = NotifyOutputChange subCodeToNotifyEnum 2 = NotifyOutputProperty -data Notify = MkNotify{subCode_Notify :: CARD8,++data Notify = MkNotify{subCode_Notify :: Word8, u_Notify :: NotifyData} deriving (Show, Typeable)
patched/Graphics/XHB/Gen/Record.hs view
@@ -9,6 +9,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) @@ -17,13 +20,13 @@ queryVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD16 -> CARD16 -> IO (Receipt QueryVersionReply)+ Word16 -> Word16 -> IO (Receipt QueryVersionReply) queryVersion c major_version minor_version- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion major_version minor_version putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt createContext ::@@ -54,11 +57,11 @@ Graphics.XHB.Gen.Record.Types.CONTEXT -> IO (Receipt GetContextReply) getContext c context- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetContext context putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt enableContext ::@@ -66,11 +69,11 @@ Graphics.XHB.Gen.Record.Types.CONTEXT -> IO (Receipt EnableContextReply) enableContext c context- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkEnableContext context putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt disableContext ::
patched/Graphics/XHB/Gen/Record/Types.hs view
@@ -8,6 +8,7 @@ DisableContext(..), FreeContext(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -30,7 +31,7 @@ newtype CONTEXT = MkCONTEXT Xid deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike) -data Range8 = MkRange8{first_Range8 :: CARD8, last_Range8 :: CARD8}+data Range8 = MkRange8{first_Range8 :: Word8, last_Range8 :: Word8} deriving (Show, Typeable) instance Serialize Range8 where@@ -45,8 +46,8 @@ last <- deserialize return (MkRange8 first last) -data Range16 = MkRange16{first_Range16 :: CARD16,- last_Range16 :: CARD16}+data Range16 = MkRange16{first_Range16 :: Word16,+ last_Range16 :: Word16} deriving (Show, Typeable) instance Serialize Range16 where@@ -81,7 +82,7 @@ core_replies_Range :: Range8, ext_requests_Range :: ExtRange, ext_replies_Range :: ExtRange, delivered_events_Range :: Range8, device_events_Range :: Range8, errors_Range :: Range8,- client_started_Range :: BOOL, client_died_Range :: BOOL}+ client_started_Range :: Bool, client_died_Range :: Bool} deriving (Show, Typeable) instance Serialize Range where@@ -124,7 +125,7 @@ client_started client_died) -type ElementHeader = CARD8+type ElementHeader = Word8 data HType = HTypeFromServerTime | HTypeFromClientTime@@ -138,7 +139,7 @@ fromBit 1 = HTypeFromClientTime fromBit 2 = HTypeFromClientSequence -type ClientSpec = CARD32+type ClientSpec = Word32 data CS = CSCurrentClients | CSFutureClients@@ -154,7 +155,7 @@ data ClientInfo = MkClientInfo{client_resource_ClientInfo :: ClientSpec,- num_ranges_ClientInfo :: CARD32, ranges_ClientInfo :: [Range]}+ num_ranges_ClientInfo :: Word32, ranges_ClientInfo :: [Range]} deriving (Show, Typeable) instance Serialize ClientInfo where@@ -174,7 +175,7 @@ ranges <- deserializeList (fromIntegral num_ranges) return (MkClientInfo client_resource num_ranges ranges) -data BadContext = MkBadContext{invalid_record_BadContext :: CARD32}+data BadContext = MkBadContext{invalid_record_BadContext :: Word32} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error BadContext@@ -186,8 +187,8 @@ return (MkBadContext invalid_record) data QueryVersion = MkQueryVersion{major_version_QueryVersion ::- CARD16,- minor_version_QueryVersion :: CARD16}+ Word16,+ minor_version_QueryVersion :: Word16} deriving (Show, Typeable) instance ExtensionRequest QueryVersion where@@ -198,14 +199,14 @@ let size__ = 4 + size (major_version_QueryVersion x) + size (minor_version_QueryVersion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (major_version_QueryVersion x) serialize (minor_version_QueryVersion x) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply- :: CARD16,- minor_version_QueryVersionReply :: CARD16}+ :: Word16,+ minor_version_QueryVersionReply :: Word16} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -222,8 +223,8 @@ data CreateContext = MkCreateContext{context_CreateContext :: Graphics.XHB.Gen.Record.Types.CONTEXT, element_header_CreateContext :: ElementHeader,- num_client_specs_CreateContext :: CARD32,- num_ranges_CreateContext :: CARD32,+ num_client_specs_CreateContext :: Word32,+ num_ranges_CreateContext :: Word32, client_specs_CreateContext :: [ClientSpec], ranges_CreateContext :: [Range]} deriving (Show, Typeable)@@ -241,7 +242,7 @@ + size (num_ranges_CreateContext x) + sum (map size (client_specs_CreateContext x)) + sum (map size (ranges_CreateContext x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_CreateContext x) serialize (element_header_CreateContext x) putSkip 3@@ -254,8 +255,8 @@ data RegisterClients = MkRegisterClients{context_RegisterClients :: Graphics.XHB.Gen.Record.Types.CONTEXT, element_header_RegisterClients :: ElementHeader,- num_client_specs_RegisterClients :: CARD32,- num_ranges_RegisterClients :: CARD32,+ num_client_specs_RegisterClients :: Word32,+ num_ranges_RegisterClients :: Word32, client_specs_RegisterClients :: [ClientSpec], ranges_RegisterClients :: [Range]} deriving (Show, Typeable)@@ -273,7 +274,7 @@ + size (num_ranges_RegisterClients x) + sum (map size (client_specs_RegisterClients x)) + sum (map size (ranges_RegisterClients x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_RegisterClients x) serialize (element_header_RegisterClients x) putSkip 3@@ -285,7 +286,7 @@ data UnregisterClients = MkUnregisterClients{context_UnregisterClients :: Graphics.XHB.Gen.Record.Types.CONTEXT,- num_client_specs_UnregisterClients :: CARD32,+ num_client_specs_UnregisterClients :: Word32, client_specs_UnregisterClients :: [ClientSpec]} deriving (Show, Typeable) @@ -298,7 +299,7 @@ = 4 + size (context_UnregisterClients x) + size (num_client_specs_UnregisterClients x) + sum (map size (client_specs_UnregisterClients x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_UnregisterClients x) serialize (num_client_specs_UnregisterClients x) serializeList (client_specs_UnregisterClients x)@@ -314,14 +315,14 @@ = do putWord8 extOpCode putWord8 4 let size__ = 4 + size (context_GetContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_GetContext x) putSkip (requiredPadding size__) data GetContextReply = MkGetContextReply{enabled_GetContextReply ::- BOOL,+ Bool, element_header_GetContextReply :: ElementHeader,- num_intercepted_clients_GetContextReply :: CARD32,+ num_intercepted_clients_GetContextReply :: Word32, intercepted_clients_GetContextReply :: [ClientInfo]} deriving (Show, Typeable) @@ -352,18 +353,18 @@ = do putWord8 extOpCode putWord8 5 let size__ = 4 + size (context_EnableContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_EnableContext x) putSkip (requiredPadding size__) data EnableContextReply = MkEnableContextReply{category_EnableContextReply- :: CARD8,+ :: Word8, element_header_EnableContextReply :: ElementHeader,- client_swapped_EnableContextReply :: BOOL,- xid_base_EnableContextReply :: CARD32,- server_time_EnableContextReply :: CARD32,- rec_sequence_num_EnableContextReply :: CARD32,- data_EnableContextReply :: [BYTE]}+ client_swapped_EnableContextReply :: Bool,+ xid_base_EnableContextReply :: Word32,+ server_time_EnableContextReply :: Word32,+ rec_sequence_num_EnableContextReply :: Word32,+ data_EnableContextReply :: [Word8]} deriving (Show, Typeable) instance Deserialize EnableContextReply where@@ -398,7 +399,7 @@ = do putWord8 extOpCode putWord8 6 let size__ = 4 + size (context_DisableContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_DisableContext x) putSkip (requiredPadding size__) @@ -412,6 +413,6 @@ = do putWord8 extOpCode putWord8 7 let size__ = 4 + size (context_FreeContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_FreeContext x) putSkip (requiredPadding size__)
patched/Graphics/XHB/Gen/Render.hs view
@@ -15,6 +15,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -26,35 +29,35 @@ queryVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)+ Word32 -> Word32 -> IO (Receipt QueryVersionReply) queryVersion c client_major_version client_minor_version- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion client_major_version client_minor_version putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryPictFormats :: Graphics.XHB.Connection.Types.Connection -> IO (Receipt QueryPictFormatsReply) queryPictFormats c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryPictFormats putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryPictIndexValues :: Graphics.XHB.Connection.Types.Connection -> PICTFORMAT -> IO (Receipt QueryPictIndexValuesReply) queryPictIndexValues c format- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryPictIndexValues format putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt createPicture ::@@ -66,7 +69,7 @@ changePicture :: Graphics.XHB.Connection.Types.Connection ->- PICTURE -> ValueParam CARD32 -> IO ()+ PICTURE -> ValueParam Word32 -> IO () changePicture c picture value = do let req = MkChangePicture picture value putAction <- serializeExtensionRequest c req@@ -217,11 +220,11 @@ Graphics.XHB.Connection.Types.Connection -> DRAWABLE -> IO (Receipt QueryFiltersReply) queryFilters c drawable- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryFilters drawable putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setPictureFilter ::
patched/Graphics/XHB/Gen/Render/Types.hs view
@@ -21,6 +21,7 @@ CreateConicalGradient(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -263,7 +264,7 @@ fromValue 2 = RepeatPad fromValue 3 = RepeatReflect -type GLYPH = CARD32+type GLYPH = Word32 newtype GLYPHSET = MkGLYPHSET Xid deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)@@ -274,17 +275,17 @@ newtype PICTFORMAT = MkPICTFORMAT Xid deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike) -type FIXED = INT32+type FIXED = Int32 data DIRECTFORMAT = MkDIRECTFORMAT{red_shift_DIRECTFORMAT ::- CARD16,- red_mask_DIRECTFORMAT :: CARD16,- green_shift_DIRECTFORMAT :: CARD16,- green_mask_DIRECTFORMAT :: CARD16,- blue_shift_DIRECTFORMAT :: CARD16,- blue_mask_DIRECTFORMAT :: CARD16,- alpha_shift_DIRECTFORMAT :: CARD16,- alpha_mask_DIRECTFORMAT :: CARD16}+ Word16,+ red_mask_DIRECTFORMAT :: Word16,+ green_shift_DIRECTFORMAT :: Word16,+ green_mask_DIRECTFORMAT :: Word16,+ blue_shift_DIRECTFORMAT :: Word16,+ blue_mask_DIRECTFORMAT :: Word16,+ alpha_shift_DIRECTFORMAT :: Word16,+ alpha_mask_DIRECTFORMAT :: Word16} deriving (Show, Typeable) instance Serialize DIRECTFORMAT where@@ -324,7 +325,7 @@ alpha_mask) data PICTFORMINFO = MkPICTFORMINFO{id_PICTFORMINFO :: PICTFORMAT,- type_PICTFORMINFO :: CARD8, depth_PICTFORMINFO :: CARD8,+ type_PICTFORMINFO :: Word8, depth_PICTFORMINFO :: Word8, direct_PICTFORMINFO :: DIRECTFORMAT, colormap_PICTFORMINFO :: COLORMAP} deriving (Show, Typeable)@@ -370,8 +371,8 @@ format <- deserialize return (MkPICTVISUAL visual format) -data PICTDEPTH = MkPICTDEPTH{depth_PICTDEPTH :: CARD8,- num_visuals_PICTDEPTH :: CARD16, visuals_PICTDEPTH :: [PICTVISUAL]}+data PICTDEPTH = MkPICTDEPTH{depth_PICTDEPTH :: Word8,+ num_visuals_PICTDEPTH :: Word16, visuals_PICTDEPTH :: [PICTVISUAL]} deriving (Show, Typeable) instance Serialize PICTDEPTH where@@ -394,7 +395,7 @@ visuals <- deserializeList (fromIntegral num_visuals) return (MkPICTDEPTH depth num_visuals visuals) -data PICTSCREEN = MkPICTSCREEN{num_depths_PICTSCREEN :: CARD32,+data PICTSCREEN = MkPICTSCREEN{num_depths_PICTSCREEN :: Word32, fallback_PICTSCREEN :: PICTFORMAT, depths_PICTSCREEN :: [PICTDEPTH]} deriving (Show, Typeable)@@ -415,9 +416,9 @@ depths <- deserializeList (fromIntegral num_depths) return (MkPICTSCREEN num_depths fallback depths) -data INDEXVALUE = MkINDEXVALUE{pixel_INDEXVALUE :: CARD32,- red_INDEXVALUE :: CARD16, green_INDEXVALUE :: CARD16,- blue_INDEXVALUE :: CARD16, alpha_INDEXVALUE :: CARD16}+data INDEXVALUE = MkINDEXVALUE{pixel_INDEXVALUE :: Word32,+ red_INDEXVALUE :: Word16, green_INDEXVALUE :: Word16,+ blue_INDEXVALUE :: Word16, alpha_INDEXVALUE :: Word16} deriving (Show, Typeable) instance Serialize INDEXVALUE where@@ -442,8 +443,8 @@ alpha <- deserialize return (MkINDEXVALUE pixel red green blue alpha) -data COLOR = MkCOLOR{red_COLOR :: CARD16, green_COLOR :: CARD16,- blue_COLOR :: CARD16, alpha_COLOR :: CARD16}+data COLOR = MkCOLOR{red_COLOR :: Word16, green_COLOR :: Word16,+ blue_COLOR :: Word16, alpha_COLOR :: Word16} deriving (Show, Typeable) instance Serialize COLOR where@@ -540,10 +541,10 @@ right <- deserialize return (MkTRAPEZOID top bottom left right) -data GLYPHINFO = MkGLYPHINFO{width_GLYPHINFO :: CARD16,- height_GLYPHINFO :: CARD16, x_GLYPHINFO :: INT16,- y_GLYPHINFO :: INT16, x_off_GLYPHINFO :: INT16,- y_off_GLYPHINFO :: INT16}+data GLYPHINFO = MkGLYPHINFO{width_GLYPHINFO :: Word16,+ height_GLYPHINFO :: Word16, x_GLYPHINFO :: Int16,+ y_GLYPHINFO :: Int16, x_off_GLYPHINFO :: Int16,+ y_off_GLYPHINFO :: Int16} deriving (Show, Typeable) instance Serialize GLYPHINFO where@@ -572,8 +573,8 @@ return (MkGLYPHINFO width height x y x_off y_off) data QueryVersion = MkQueryVersion{client_major_version_QueryVersion- :: CARD32,- client_minor_version_QueryVersion :: CARD32}+ :: Word32,+ client_minor_version_QueryVersion :: Word32} deriving (Show, Typeable) instance ExtensionRequest QueryVersion where@@ -584,14 +585,14 @@ let size__ = 4 + size (client_major_version_QueryVersion x) + size (client_minor_version_QueryVersion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (client_major_version_QueryVersion x) serialize (client_minor_version_QueryVersion x) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply- :: CARD32,- minor_version_QueryVersionReply :: CARD32}+ :: Word32,+ minor_version_QueryVersionReply :: Word32} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -615,19 +616,19 @@ = do putWord8 extOpCode putWord8 1 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data QueryPictFormatsReply = MkQueryPictFormatsReply{num_formats_QueryPictFormatsReply- :: CARD32,- num_screens_QueryPictFormatsReply :: CARD32,- num_depths_QueryPictFormatsReply :: CARD32,- num_visuals_QueryPictFormatsReply :: CARD32,- num_subpixel_QueryPictFormatsReply :: CARD32,+ :: Word32,+ num_screens_QueryPictFormatsReply :: Word32,+ num_depths_QueryPictFormatsReply :: Word32,+ num_visuals_QueryPictFormatsReply :: Word32,+ num_subpixel_QueryPictFormatsReply :: Word32, formats_QueryPictFormatsReply :: [PICTFORMINFO], screens_QueryPictFormatsReply :: [PICTSCREEN],- subpixels_QueryPictFormatsReply :: [CARD32]}+ subpixels_QueryPictFormatsReply :: [Word32]} deriving (Show, Typeable) instance Deserialize QueryPictFormatsReply where@@ -664,12 +665,12 @@ = do putWord8 extOpCode putWord8 2 let size__ = 4 + size (format_QueryPictIndexValues x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (format_QueryPictIndexValues x) putSkip (requiredPadding size__) data QueryPictIndexValuesReply = MkQueryPictIndexValuesReply{num_values_QueryPictIndexValuesReply- :: CARD32,+ :: Word32, values_QueryPictIndexValuesReply :: [INDEXVALUE]} deriving (Show, Typeable)@@ -689,7 +690,7 @@ data CreatePicture = MkCreatePicture{pid_CreatePicture :: PICTURE, drawable_CreatePicture :: DRAWABLE, format_CreatePicture :: PICTFORMAT,- value_CreatePicture :: ValueParam CARD32}+ value_CreatePicture :: ValueParam Word32} deriving (Show, Typeable) instance ExtensionRequest CreatePicture where@@ -701,7 +702,7 @@ = 4 + size (pid_CreatePicture x) + size (drawable_CreatePicture x) + size (format_CreatePicture x) + size (value_CreatePicture x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (pid_CreatePicture x) serialize (drawable_CreatePicture x) serialize (format_CreatePicture x)@@ -710,7 +711,7 @@ data ChangePicture = MkChangePicture{picture_ChangePicture :: PICTURE,- value_ChangePicture :: ValueParam CARD32}+ value_ChangePicture :: ValueParam Word32} deriving (Show, Typeable) instance ExtensionRequest ChangePicture where@@ -720,7 +721,7 @@ putWord8 5 let size__ = 4 + size (picture_ChangePicture x) + size (value_ChangePicture x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (picture_ChangePicture x) serialize (value_ChangePicture x) putSkip (requiredPadding size__)@@ -728,9 +729,9 @@ data SetPictureClipRectangles = MkSetPictureClipRectangles{picture_SetPictureClipRectangles :: PICTURE, clip_x_origin_SetPictureClipRectangles ::- INT16,+ Int16, clip_y_origin_SetPictureClipRectangles ::- INT16,+ Int16, rectangles_SetPictureClipRectangles :: [RECTANGLE]} deriving (Show, Typeable)@@ -745,7 +746,7 @@ size (clip_x_origin_SetPictureClipRectangles x) + size (clip_y_origin_SetPictureClipRectangles x) + sum (map size (rectangles_SetPictureClipRectangles x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (picture_SetPictureClipRectangles x) serialize (clip_x_origin_SetPictureClipRectangles x) serialize (clip_y_origin_SetPictureClipRectangles x)@@ -761,17 +762,17 @@ = do putWord8 extOpCode putWord8 7 let size__ = 4 + size (picture_FreePicture x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (picture_FreePicture x) putSkip (requiredPadding size__) -data Composite = MkComposite{op_Composite :: CARD8,+data Composite = MkComposite{op_Composite :: Word8, src_Composite :: PICTURE, mask_Composite :: PICTURE,- dst_Composite :: PICTURE, src_x_Composite :: INT16,- src_y_Composite :: INT16, mask_x_Composite :: INT16,- mask_y_Composite :: INT16, dst_x_Composite :: INT16,- dst_y_Composite :: INT16, width_Composite :: CARD16,- height_Composite :: CARD16}+ dst_Composite :: PICTURE, src_x_Composite :: Int16,+ src_y_Composite :: Int16, mask_x_Composite :: Int16,+ mask_y_Composite :: Int16, dst_x_Composite :: Int16,+ dst_y_Composite :: Int16, width_Composite :: Word16,+ height_Composite :: Word16} deriving (Show, Typeable) instance ExtensionRequest Composite where@@ -791,7 +792,7 @@ + size (dst_y_Composite x) + size (width_Composite x) + size (height_Composite x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (op_Composite x) putSkip 3 serialize (src_Composite x)@@ -807,10 +808,10 @@ serialize (height_Composite x) putSkip (requiredPadding size__) -data Trapezoids = MkTrapezoids{op_Trapezoids :: CARD8,+data Trapezoids = MkTrapezoids{op_Trapezoids :: Word8, src_Trapezoids :: PICTURE, dst_Trapezoids :: PICTURE,- mask_format_Trapezoids :: PICTFORMAT, src_x_Trapezoids :: INT16,- src_y_Trapezoids :: INT16, traps_Trapezoids :: [TRAPEZOID]}+ mask_format_Trapezoids :: PICTFORMAT, src_x_Trapezoids :: Int16,+ src_y_Trapezoids :: Int16, traps_Trapezoids :: [TRAPEZOID]} deriving (Show, Typeable) instance ExtensionRequest Trapezoids where@@ -825,7 +826,7 @@ + size (src_x_Trapezoids x) + size (src_y_Trapezoids x) + sum (map size (traps_Trapezoids x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (op_Trapezoids x) putSkip 3 serialize (src_Trapezoids x)@@ -836,10 +837,10 @@ serializeList (traps_Trapezoids x) putSkip (requiredPadding size__) -data Triangles = MkTriangles{op_Triangles :: CARD8,+data Triangles = MkTriangles{op_Triangles :: Word8, src_Triangles :: PICTURE, dst_Triangles :: PICTURE,- mask_format_Triangles :: PICTFORMAT, src_x_Triangles :: INT16,- src_y_Triangles :: INT16, triangles_Triangles :: [TRIANGLE]}+ mask_format_Triangles :: PICTFORMAT, src_x_Triangles :: Int16,+ src_y_Triangles :: Int16, triangles_Triangles :: [TRIANGLE]} deriving (Show, Typeable) instance ExtensionRequest Triangles where@@ -854,7 +855,7 @@ + size (src_x_Triangles x) + size (src_y_Triangles x) + sum (map size (triangles_Triangles x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (op_Triangles x) putSkip 3 serialize (src_Triangles x)@@ -865,10 +866,10 @@ serializeList (triangles_Triangles x) putSkip (requiredPadding size__) -data TriStrip = MkTriStrip{op_TriStrip :: CARD8,+data TriStrip = MkTriStrip{op_TriStrip :: Word8, src_TriStrip :: PICTURE, dst_TriStrip :: PICTURE,- mask_format_TriStrip :: PICTFORMAT, src_x_TriStrip :: INT16,- src_y_TriStrip :: INT16, points_TriStrip :: [POINTFIX]}+ mask_format_TriStrip :: PICTFORMAT, src_x_TriStrip :: Int16,+ src_y_TriStrip :: Int16, points_TriStrip :: [POINTFIX]} deriving (Show, Typeable) instance ExtensionRequest TriStrip where@@ -883,7 +884,7 @@ + size (src_x_TriStrip x) + size (src_y_TriStrip x) + sum (map size (points_TriStrip x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (op_TriStrip x) putSkip 3 serialize (src_TriStrip x)@@ -894,9 +895,9 @@ serializeList (points_TriStrip x) putSkip (requiredPadding size__) -data TriFan = MkTriFan{op_TriFan :: CARD8, src_TriFan :: PICTURE,+data TriFan = MkTriFan{op_TriFan :: Word8, src_TriFan :: PICTURE, dst_TriFan :: PICTURE, mask_format_TriFan :: PICTFORMAT,- src_x_TriFan :: INT16, src_y_TriFan :: INT16,+ src_x_TriFan :: Int16, src_y_TriFan :: Int16, points_TriFan :: [POINTFIX]} deriving (Show, Typeable) @@ -912,7 +913,7 @@ + size (src_x_TriFan x) + size (src_y_TriFan x) + sum (map size (points_TriFan x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (op_TriFan x) putSkip 3 serialize (src_TriFan x)@@ -935,7 +936,7 @@ putWord8 17 let size__ = 4 + size (gsid_CreateGlyphSet x) + size (format_CreateGlyphSet x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (gsid_CreateGlyphSet x) serialize (format_CreateGlyphSet x) putSkip (requiredPadding size__)@@ -953,7 +954,7 @@ let size__ = 4 + size (gsid_ReferenceGlyphSet x) + size (existing_ReferenceGlyphSet x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (gsid_ReferenceGlyphSet x) serialize (existing_ReferenceGlyphSet x) putSkip (requiredPadding size__)@@ -968,13 +969,13 @@ = do putWord8 extOpCode putWord8 19 let size__ = 4 + size (glyphset_FreeGlyphSet x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (glyphset_FreeGlyphSet x) putSkip (requiredPadding size__) data AddGlyphs = MkAddGlyphs{glyphset_AddGlyphs :: GLYPHSET,- glyphs_len_AddGlyphs :: CARD32, glyphids_AddGlyphs :: [CARD32],- glyphs_AddGlyphs :: [GLYPHINFO], data_AddGlyphs :: [BYTE]}+ glyphs_len_AddGlyphs :: Word32, glyphids_AddGlyphs :: [Word32],+ glyphs_AddGlyphs :: [GLYPHINFO], data_AddGlyphs :: [Word8]} deriving (Show, Typeable) instance ExtensionRequest AddGlyphs where@@ -987,7 +988,7 @@ sum (map size (glyphids_AddGlyphs x)) + sum (map size (glyphs_AddGlyphs x)) + sum (map size (data_AddGlyphs x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (glyphset_AddGlyphs x) serialize (glyphs_len_AddGlyphs x) serializeList (glyphids_AddGlyphs x)@@ -1007,20 +1008,20 @@ let size__ = 4 + size (glyphset_FreeGlyphs x) + sum (map size (glyphs_FreeGlyphs x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (glyphset_FreeGlyphs x) serializeList (glyphs_FreeGlyphs x) putSkip (requiredPadding size__) data CompositeGlyphs8 = MkCompositeGlyphs8{op_CompositeGlyphs8 ::- CARD8,+ Word8, src_CompositeGlyphs8 :: PICTURE, dst_CompositeGlyphs8 :: PICTURE, mask_format_CompositeGlyphs8 :: PICTFORMAT, glyphset_CompositeGlyphs8 :: GLYPHSET,- src_x_CompositeGlyphs8 :: INT16,- src_y_CompositeGlyphs8 :: INT16,- glyphcmds_CompositeGlyphs8 :: [BYTE]}+ src_x_CompositeGlyphs8 :: Int16,+ src_y_CompositeGlyphs8 :: Int16,+ glyphcmds_CompositeGlyphs8 :: [Word8]} deriving (Show, Typeable) instance ExtensionRequest CompositeGlyphs8 where@@ -1037,7 +1038,7 @@ + size (src_x_CompositeGlyphs8 x) + size (src_y_CompositeGlyphs8 x) + sum (map size (glyphcmds_CompositeGlyphs8 x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (op_CompositeGlyphs8 x) putSkip 3 serialize (src_CompositeGlyphs8 x)@@ -1050,14 +1051,14 @@ putSkip (requiredPadding size__) data CompositeGlyphs16 = MkCompositeGlyphs16{op_CompositeGlyphs16- :: CARD8,+ :: Word8, src_CompositeGlyphs16 :: PICTURE, dst_CompositeGlyphs16 :: PICTURE, mask_format_CompositeGlyphs16 :: PICTFORMAT, glyphset_CompositeGlyphs16 :: GLYPHSET,- src_x_CompositeGlyphs16 :: INT16,- src_y_CompositeGlyphs16 :: INT16,- glyphcmds_CompositeGlyphs16 :: [BYTE]}+ src_x_CompositeGlyphs16 :: Int16,+ src_y_CompositeGlyphs16 :: Int16,+ glyphcmds_CompositeGlyphs16 :: [Word8]} deriving (Show, Typeable) instance ExtensionRequest CompositeGlyphs16 where@@ -1074,7 +1075,7 @@ + size (src_x_CompositeGlyphs16 x) + size (src_y_CompositeGlyphs16 x) + sum (map size (glyphcmds_CompositeGlyphs16 x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (op_CompositeGlyphs16 x) putSkip 3 serialize (src_CompositeGlyphs16 x)@@ -1087,14 +1088,14 @@ putSkip (requiredPadding size__) data CompositeGlyphs32 = MkCompositeGlyphs32{op_CompositeGlyphs32- :: CARD8,+ :: Word8, src_CompositeGlyphs32 :: PICTURE, dst_CompositeGlyphs32 :: PICTURE, mask_format_CompositeGlyphs32 :: PICTFORMAT, glyphset_CompositeGlyphs32 :: GLYPHSET,- src_x_CompositeGlyphs32 :: INT16,- src_y_CompositeGlyphs32 :: INT16,- glyphcmds_CompositeGlyphs32 :: [BYTE]}+ src_x_CompositeGlyphs32 :: Int16,+ src_y_CompositeGlyphs32 :: Int16,+ glyphcmds_CompositeGlyphs32 :: [Word8]} deriving (Show, Typeable) instance ExtensionRequest CompositeGlyphs32 where@@ -1111,7 +1112,7 @@ + size (src_x_CompositeGlyphs32 x) + size (src_y_CompositeGlyphs32 x) + sum (map size (glyphcmds_CompositeGlyphs32 x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (op_CompositeGlyphs32 x) putSkip 3 serialize (src_CompositeGlyphs32 x)@@ -1123,7 +1124,7 @@ serializeList (glyphcmds_CompositeGlyphs32 x) putSkip (requiredPadding size__) -data FillRectangles = MkFillRectangles{op_FillRectangles :: CARD8,+data FillRectangles = MkFillRectangles{op_FillRectangles :: Word8, dst_FillRectangles :: PICTURE, color_FillRectangles :: COLOR, rects_FillRectangles :: [RECTANGLE]} deriving (Show, Typeable)@@ -1137,7 +1138,7 @@ = 4 + size (op_FillRectangles x) + 3 + size (dst_FillRectangles x) + size (color_FillRectangles x) + sum (map size (rects_FillRectangles x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (op_FillRectangles x) putSkip 3 serialize (dst_FillRectangles x)@@ -1146,8 +1147,8 @@ putSkip (requiredPadding size__) data CreateCursor = MkCreateCursor{cid_CreateCursor :: CURSOR,- source_CreateCursor :: PICTURE, x_CreateCursor :: CARD16,- y_CreateCursor :: CARD16}+ source_CreateCursor :: PICTURE, x_CreateCursor :: Word16,+ y_CreateCursor :: Word16} deriving (Show, Typeable) instance ExtensionRequest CreateCursor where@@ -1159,7 +1160,7 @@ = 4 + size (cid_CreateCursor x) + size (source_CreateCursor x) + size (x_CreateCursor x) + size (y_CreateCursor x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (cid_CreateCursor x) serialize (source_CreateCursor x) serialize (x_CreateCursor x)@@ -1224,7 +1225,7 @@ let size__ = 4 + size (picture_SetPictureTransform x) + size (transform_SetPictureTransform x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (picture_SetPictureTransform x) serialize (transform_SetPictureTransform x) putSkip (requiredPadding size__)@@ -1239,14 +1240,14 @@ = do putWord8 extOpCode putWord8 29 let size__ = 4 + size (drawable_QueryFilters x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (drawable_QueryFilters x) putSkip (requiredPadding size__) data QueryFiltersReply = MkQueryFiltersReply{num_aliases_QueryFiltersReply- :: CARD32,- num_filters_QueryFiltersReply :: CARD32,- aliases_QueryFiltersReply :: [CARD16],+ :: Word32,+ num_filters_QueryFiltersReply :: Word32,+ aliases_QueryFiltersReply :: [Word16], filters_QueryFiltersReply :: [STR]} deriving (Show, Typeable) @@ -1267,7 +1268,7 @@ data SetPictureFilter = MkSetPictureFilter{picture_SetPictureFilter :: PICTURE,- filter_len_SetPictureFilter :: CARD16,+ filter_len_SetPictureFilter :: Word16, filter_SetPictureFilter :: [CChar], values_SetPictureFilter :: [FIXED]} deriving (Show, Typeable)@@ -1283,7 +1284,7 @@ + 2 + sum (map size (filter_SetPictureFilter x)) + sum (map size (values_SetPictureFilter x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (picture_SetPictureFilter x) serialize (filter_len_SetPictureFilter x) putSkip 2@@ -1293,7 +1294,7 @@ data ANIMCURSORELT = MkANIMCURSORELT{cursor_ANIMCURSORELT :: CURSOR,- delay_ANIMCURSORELT :: CARD32}+ delay_ANIMCURSORELT :: Word32} deriving (Show, Typeable) instance Serialize ANIMCURSORELT where@@ -1322,7 +1323,7 @@ let size__ = 4 + size (cid_CreateAnimCursor x) + sum (map size (cursors_CreateAnimCursor x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (cid_CreateAnimCursor x) serializeList (cursors_CreateAnimCursor x) putSkip (requiredPadding size__)@@ -1362,7 +1363,7 @@ return (MkTRAP top bot) data AddTraps = MkAddTraps{picture_AddTraps :: PICTURE,- x_off_AddTraps :: INT16, y_off_AddTraps :: INT16,+ x_off_AddTraps :: Int16, y_off_AddTraps :: Int16, traps_AddTraps :: [TRAP]} deriving (Show, Typeable) @@ -1375,7 +1376,7 @@ = 4 + size (picture_AddTraps x) + size (x_off_AddTraps x) + size (y_off_AddTraps x) + sum (map size (traps_AddTraps x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (picture_AddTraps x) serialize (x_off_AddTraps x) serialize (y_off_AddTraps x)@@ -1395,7 +1396,7 @@ let size__ = 4 + size (picture_CreateSolidFill x) + size (color_CreateSolidFill x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (picture_CreateSolidFill x) serialize (color_CreateSolidFill x) putSkip (requiredPadding size__)@@ -1404,7 +1405,7 @@ :: PICTURE, p1_CreateLinearGradient :: POINTFIX, p2_CreateLinearGradient :: POINTFIX,- num_stops_CreateLinearGradient :: CARD32,+ num_stops_CreateLinearGradient :: Word32, stops_CreateLinearGradient :: [FIXED], colors_CreateLinearGradient :: [COLOR]} deriving (Show, Typeable)@@ -1421,7 +1422,7 @@ + size (num_stops_CreateLinearGradient x) + sum (map size (stops_CreateLinearGradient x)) + sum (map size (colors_CreateLinearGradient x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (picture_CreateLinearGradient x) serialize (p1_CreateLinearGradient x) serialize (p2_CreateLinearGradient x)@@ -1436,7 +1437,7 @@ outer_CreateRadialGradient :: POINTFIX, inner_radius_CreateRadialGradient :: FIXED, outer_radius_CreateRadialGradient :: FIXED,- num_stops_CreateRadialGradient :: CARD32,+ num_stops_CreateRadialGradient :: Word32, stops_CreateRadialGradient :: [FIXED], colors_CreateRadialGradient :: [COLOR]} deriving (Show, Typeable)@@ -1455,7 +1456,7 @@ + size (num_stops_CreateRadialGradient x) + sum (map size (stops_CreateRadialGradient x)) + sum (map size (colors_CreateRadialGradient x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (picture_CreateRadialGradient x) serialize (inner_CreateRadialGradient x) serialize (outer_CreateRadialGradient x)@@ -1470,7 +1471,7 @@ :: PICTURE, center_CreateConicalGradient :: POINTFIX, angle_CreateConicalGradient :: FIXED,- num_stops_CreateConicalGradient :: CARD32,+ num_stops_CreateConicalGradient :: Word32, stops_CreateConicalGradient :: [FIXED], colors_CreateConicalGradient :: [COLOR]} deriving (Show, Typeable)@@ -1487,7 +1488,7 @@ + size (num_stops_CreateConicalGradient x) + sum (map size (stops_CreateConicalGradient x)) + sum (map size (colors_CreateConicalGradient x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (picture_CreateConicalGradient x) serialize (center_CreateConicalGradient x) serialize (angle_CreateConicalGradient x)
patched/Graphics/XHB/Gen/Res.hs view
@@ -8,6 +8,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -19,44 +22,44 @@ queryVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)+ Word8 -> Word8 -> IO (Receipt QueryVersionReply) queryVersion c client_major client_minor- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion client_major client_minor putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryClients :: Graphics.XHB.Connection.Types.Connection -> IO (Receipt QueryClientsReply) queryClients c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryClients putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryClientResources :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt QueryClientResourcesReply)+ Word32 -> IO (Receipt QueryClientResourcesReply) queryClientResources c xid- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryClientResources xid putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryClientPixmapBytes :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt QueryClientPixmapBytesReply)+ Word32 -> IO (Receipt QueryClientPixmapBytesReply) queryClientPixmapBytes c xid- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryClientPixmapBytes xid putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/Res/Types.hs view
@@ -6,6 +6,7 @@ QueryClientPixmapBytesReply(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -26,8 +27,8 @@ deserializeEvent :: Word8 -> Maybe (Get SomeEvent) deserializeEvent _ = Nothing -data Client = MkClient{resource_base_Client :: CARD32,- resource_mask_Client :: CARD32}+data Client = MkClient{resource_base_Client :: Word32,+ resource_mask_Client :: Word32} deriving (Show, Typeable) instance Serialize Client where@@ -44,7 +45,7 @@ return (MkClient resource_base resource_mask) data Type = MkType{resource_type_Type :: ATOM,- count_Type :: CARD32}+ count_Type :: Word32} deriving (Show, Typeable) instance Serialize Type where@@ -60,8 +61,8 @@ return (MkType resource_type count) data QueryVersion = MkQueryVersion{client_major_QueryVersion ::- CARD8,- client_minor_QueryVersion :: CARD8}+ Word8,+ client_minor_QueryVersion :: Word8} deriving (Show, Typeable) instance ExtensionRequest QueryVersion where@@ -72,14 +73,14 @@ let size__ = 4 + size (client_major_QueryVersion x) + size (client_minor_QueryVersion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (client_major_QueryVersion x) serialize (client_minor_QueryVersion x) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{server_major_QueryVersionReply- :: CARD16,- server_minor_QueryVersionReply :: CARD16}+ :: Word16,+ server_minor_QueryVersionReply :: Word16} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -102,11 +103,11 @@ = do putWord8 extOpCode putWord8 1 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data QueryClientsReply = MkQueryClientsReply{num_clients_QueryClientsReply- :: CARD32,+ :: Word32, clients_QueryClientsReply :: [Client]} deriving (Show, Typeable) @@ -123,7 +124,7 @@ return (MkQueryClientsReply num_clients clients) data QueryClientResources = MkQueryClientResources{xid_QueryClientResources- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance ExtensionRequest QueryClientResources where@@ -132,12 +133,12 @@ = do putWord8 extOpCode putWord8 2 let size__ = 4 + size (xid_QueryClientResources x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (xid_QueryClientResources x) putSkip (requiredPadding size__) data QueryClientResourcesReply = MkQueryClientResourcesReply{num_types_QueryClientResourcesReply- :: CARD32,+ :: Word32, types_QueryClientResourcesReply :: [Type]} deriving (Show, Typeable)@@ -155,7 +156,7 @@ return (MkQueryClientResourcesReply num_types types) data QueryClientPixmapBytes = MkQueryClientPixmapBytes{xid_QueryClientPixmapBytes- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance ExtensionRequest QueryClientPixmapBytes where@@ -164,14 +165,14 @@ = do putWord8 extOpCode putWord8 3 let size__ = 4 + size (xid_QueryClientPixmapBytes x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (xid_QueryClientPixmapBytes x) putSkip (requiredPadding size__) data QueryClientPixmapBytesReply = MkQueryClientPixmapBytesReply{bytes_QueryClientPixmapBytesReply- :: CARD32,+ :: Word32, bytes_overflow_QueryClientPixmapBytesReply- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance Deserialize QueryClientPixmapBytesReply where
patched/Graphics/XHB/Gen/SELinux.hs view
@@ -16,6 +16,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -28,18 +31,18 @@ queryVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)+ Word8 -> Word8 -> IO (Receipt QueryVersionReply) queryVersion c client_major client_minor- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion client_major client_minor putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setDeviceCreateContext :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> [CChar] -> IO ()+ Word32 -> [CChar] -> IO () setDeviceCreateContext c context_len context = do let req = MkSetDeviceCreateContext context_len context putAction <- serializeExtensionRequest c req@@ -50,11 +53,11 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetDeviceCreateContextReply) getDeviceCreateContext c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetDeviceCreateContext putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setDeviceContext ::@@ -67,18 +70,18 @@ getDeviceContext :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt GetDeviceContextReply)+ Word32 -> IO (Receipt GetDeviceContextReply) getDeviceContext c device- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetDeviceContext device putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setWindowCreateContext :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> [CChar] -> IO ()+ Word32 -> [CChar] -> IO () setWindowCreateContext c context_len context = do let req = MkSetWindowCreateContext context_len context putAction <- serializeExtensionRequest c req@@ -89,27 +92,27 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetWindowCreateContextReply) getWindowCreateContext c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetWindowCreateContext putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getWindowContext :: Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt GetWindowContextReply) getWindowContext c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetWindowContext window putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setPropertyCreateContext :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> [CChar] -> IO ()+ Word32 -> [CChar] -> IO () setPropertyCreateContext c context_len context = do let req = MkSetPropertyCreateContext context_len context putAction <- serializeExtensionRequest c req@@ -120,16 +123,16 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetPropertyCreateContextReply) getPropertyCreateContext c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetPropertyCreateContext putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setPropertyUseContext :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> [CChar] -> IO ()+ Word32 -> [CChar] -> IO () setPropertyUseContext c context_len context = do let req = MkSetPropertyUseContext context_len context putAction <- serializeExtensionRequest c req@@ -140,49 +143,49 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetPropertyUseContextReply) getPropertyUseContext c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetPropertyUseContext putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getPropertyContext :: Graphics.XHB.Connection.Types.Connection -> WINDOW -> ATOM -> IO (Receipt GetPropertyContextReply) getPropertyContext c window property- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetPropertyContext window property putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getPropertyDataContext :: Graphics.XHB.Connection.Types.Connection -> WINDOW -> ATOM -> IO (Receipt GetPropertyDataContextReply) getPropertyDataContext c window property- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetPropertyDataContext window property putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt listProperties :: Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt ListPropertiesReply) listProperties c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkListProperties window putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setSelectionCreateContext :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> [CChar] -> IO ()+ Word32 -> [CChar] -> IO () setSelectionCreateContext c context_len context = do let req = MkSetSelectionCreateContext context_len context putAction <- serializeExtensionRequest c req@@ -193,16 +196,16 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetSelectionCreateContextReply) getSelectionCreateContext c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetSelectionCreateContext putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setSelectionUseContext :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> [CChar] -> IO ()+ Word32 -> [CChar] -> IO () setSelectionUseContext c context_len context = do let req = MkSetSelectionUseContext context_len context putAction <- serializeExtensionRequest c req@@ -213,53 +216,53 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetSelectionUseContextReply) getSelectionUseContext c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetSelectionUseContext putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getSelectionContext :: Graphics.XHB.Connection.Types.Connection -> ATOM -> IO (Receipt GetSelectionContextReply) getSelectionContext c selection- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetSelectionContext selection putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getSelectionDataContext :: Graphics.XHB.Connection.Types.Connection -> ATOM -> IO (Receipt GetSelectionDataContextReply) getSelectionDataContext c selection- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetSelectionDataContext selection putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt listSelections :: Graphics.XHB.Connection.Types.Connection -> IO (Receipt ListSelectionsReply) listSelections c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkListSelections putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getClientContext :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt GetClientContextReply)+ Word32 -> IO (Receipt GetClientContextReply) getClientContext c resource- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetClientContext resource putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/SELinux/Types.hs view
@@ -21,6 +21,7 @@ GetClientContextReply(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -43,8 +44,8 @@ deserializeEvent _ = Nothing data QueryVersion = MkQueryVersion{client_major_QueryVersion ::- CARD8,- client_minor_QueryVersion :: CARD8}+ Word8,+ client_minor_QueryVersion :: Word8} deriving (Show, Typeable) instance ExtensionRequest QueryVersion where@@ -55,14 +56,14 @@ let size__ = 4 + size (client_major_QueryVersion x) + size (client_minor_QueryVersion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (client_major_QueryVersion x) serialize (client_minor_QueryVersion x) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{server_major_QueryVersionReply- :: CARD16,- server_minor_QueryVersionReply :: CARD16}+ :: Word16,+ server_minor_QueryVersionReply :: Word16} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -77,7 +78,7 @@ return (MkQueryVersionReply server_major server_minor) data SetDeviceCreateContext = MkSetDeviceCreateContext{context_len_SetDeviceCreateContext- :: CARD32,+ :: Word32, context_SetDeviceCreateContext :: [CChar]} deriving (Show, Typeable) @@ -89,7 +90,7 @@ let size__ = 4 + size (context_len_SetDeviceCreateContext x) + sum (map size (context_SetDeviceCreateContext x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_len_SetDeviceCreateContext x) serializeList (context_SetDeviceCreateContext x) putSkip (requiredPadding size__)@@ -103,11 +104,11 @@ = do putWord8 extOpCode putWord8 2 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data GetDeviceCreateContextReply = MkGetDeviceCreateContextReply{context_len_GetDeviceCreateContextReply- :: CARD32,+ :: Word32, context_GetDeviceCreateContextReply :: [CChar]} deriving (Show, Typeable)@@ -125,8 +126,8 @@ return (MkGetDeviceCreateContextReply context_len context) data SetDeviceContext = MkSetDeviceContext{device_SetDeviceContext- :: CARD32,- context_len_SetDeviceContext :: CARD32,+ :: Word32,+ context_len_SetDeviceContext :: Word32, context_SetDeviceContext :: [CChar]} deriving (Show, Typeable) @@ -139,14 +140,14 @@ = 4 + size (device_SetDeviceContext x) + size (context_len_SetDeviceContext x) + sum (map size (context_SetDeviceContext x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_SetDeviceContext x) serialize (context_len_SetDeviceContext x) serializeList (context_SetDeviceContext x) putSkip (requiredPadding size__) data GetDeviceContext = MkGetDeviceContext{device_GetDeviceContext- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetDeviceContext where@@ -155,12 +156,12 @@ = do putWord8 extOpCode putWord8 4 let size__ = 4 + size (device_GetDeviceContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (device_GetDeviceContext x) putSkip (requiredPadding size__) data GetDeviceContextReply = MkGetDeviceContextReply{context_len_GetDeviceContextReply- :: CARD32,+ :: Word32, context_GetDeviceContextReply :: [CChar]} deriving (Show, Typeable) @@ -177,7 +178,7 @@ return (MkGetDeviceContextReply context_len context) data SetWindowCreateContext = MkSetWindowCreateContext{context_len_SetWindowCreateContext- :: CARD32,+ :: Word32, context_SetWindowCreateContext :: [CChar]} deriving (Show, Typeable) @@ -189,7 +190,7 @@ let size__ = 4 + size (context_len_SetWindowCreateContext x) + sum (map size (context_SetWindowCreateContext x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_len_SetWindowCreateContext x) serializeList (context_SetWindowCreateContext x) putSkip (requiredPadding size__)@@ -203,11 +204,11 @@ = do putWord8 extOpCode putWord8 6 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data GetWindowCreateContextReply = MkGetWindowCreateContextReply{context_len_GetWindowCreateContextReply- :: CARD32,+ :: Word32, context_GetWindowCreateContextReply :: [CChar]} deriving (Show, Typeable)@@ -234,12 +235,12 @@ = do putWord8 extOpCode putWord8 7 let size__ = 4 + size (window_GetWindowContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_GetWindowContext x) putSkip (requiredPadding size__) data GetWindowContextReply = MkGetWindowContextReply{context_len_GetWindowContextReply- :: CARD32,+ :: Word32, context_GetWindowContextReply :: [CChar]} deriving (Show, Typeable) @@ -256,8 +257,8 @@ return (MkGetWindowContextReply context_len context) data ListItem = MkListItem{name_ListItem :: ATOM,- object_context_len_ListItem :: CARD32,- data_context_len_ListItem :: CARD32,+ object_context_len_ListItem :: Word32,+ data_context_len_ListItem :: Word32, object_context_ListItem :: [CChar], data_context_ListItem :: [CChar]} deriving (Show, Typeable)@@ -287,7 +288,7 @@ data_context) data SetPropertyCreateContext = MkSetPropertyCreateContext{context_len_SetPropertyCreateContext- :: CARD32,+ :: Word32, context_SetPropertyCreateContext :: [CChar]} deriving (Show, Typeable)@@ -300,7 +301,7 @@ let size__ = 4 + size (context_len_SetPropertyCreateContext x) + sum (map size (context_SetPropertyCreateContext x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_len_SetPropertyCreateContext x) serializeList (context_SetPropertyCreateContext x) putSkip (requiredPadding size__)@@ -314,11 +315,11 @@ = do putWord8 extOpCode putWord8 9 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data GetPropertyCreateContextReply = MkGetPropertyCreateContextReply{context_len_GetPropertyCreateContextReply- :: CARD32,+ :: Word32, context_GetPropertyCreateContextReply :: [CChar]} deriving (Show, Typeable)@@ -336,7 +337,7 @@ return (MkGetPropertyCreateContextReply context_len context) data SetPropertyUseContext = MkSetPropertyUseContext{context_len_SetPropertyUseContext- :: CARD32,+ :: Word32, context_SetPropertyUseContext :: [CChar]} deriving (Show, Typeable) @@ -348,7 +349,7 @@ let size__ = 4 + size (context_len_SetPropertyUseContext x) + sum (map size (context_SetPropertyUseContext x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_len_SetPropertyUseContext x) serializeList (context_SetPropertyUseContext x) putSkip (requiredPadding size__)@@ -362,11 +363,11 @@ = do putWord8 extOpCode putWord8 11 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data GetPropertyUseContextReply = MkGetPropertyUseContextReply{context_len_GetPropertyUseContextReply- :: CARD32,+ :: Word32, context_GetPropertyUseContextReply :: [CChar]} deriving (Show, Typeable)@@ -396,13 +397,13 @@ let size__ = 4 + size (window_GetPropertyContext x) + size (property_GetPropertyContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_GetPropertyContext x) serialize (property_GetPropertyContext x) putSkip (requiredPadding size__) data GetPropertyContextReply = MkGetPropertyContextReply{context_len_GetPropertyContextReply- :: CARD32,+ :: Word32, context_GetPropertyContextReply :: [CChar]} deriving (Show, Typeable) @@ -431,13 +432,13 @@ let size__ = 4 + size (window_GetPropertyDataContext x) + size (property_GetPropertyDataContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_GetPropertyDataContext x) serialize (property_GetPropertyDataContext x) putSkip (requiredPadding size__) data GetPropertyDataContextReply = MkGetPropertyDataContextReply{context_len_GetPropertyDataContextReply- :: CARD32,+ :: Word32, context_GetPropertyDataContextReply :: [CChar]} deriving (Show, Typeable)@@ -464,12 +465,12 @@ = do putWord8 extOpCode putWord8 14 let size__ = 4 + size (window_ListProperties x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_ListProperties x) putSkip (requiredPadding size__) data ListPropertiesReply = MkListPropertiesReply{properties_len_ListPropertiesReply- :: CARD32,+ :: Word32, properties_ListPropertiesReply :: [ListItem]} deriving (Show, Typeable) @@ -486,7 +487,7 @@ return (MkListPropertiesReply properties_len properties) data SetSelectionCreateContext = MkSetSelectionCreateContext{context_len_SetSelectionCreateContext- :: CARD32,+ :: Word32, context_SetSelectionCreateContext :: [CChar]} deriving (Show, Typeable)@@ -499,7 +500,7 @@ let size__ = 4 + size (context_len_SetSelectionCreateContext x) + sum (map size (context_SetSelectionCreateContext x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_len_SetSelectionCreateContext x) serializeList (context_SetSelectionCreateContext x) putSkip (requiredPadding size__)@@ -513,11 +514,11 @@ = do putWord8 extOpCode putWord8 16 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data GetSelectionCreateContextReply = MkGetSelectionCreateContextReply{context_len_GetSelectionCreateContextReply- :: CARD32,+ :: Word32, context_GetSelectionCreateContextReply :: [CChar]} deriving (Show, Typeable)@@ -535,7 +536,7 @@ return (MkGetSelectionCreateContextReply context_len context) data SetSelectionUseContext = MkSetSelectionUseContext{context_len_SetSelectionUseContext- :: CARD32,+ :: Word32, context_SetSelectionUseContext :: [CChar]} deriving (Show, Typeable) @@ -547,7 +548,7 @@ let size__ = 4 + size (context_len_SetSelectionUseContext x) + sum (map size (context_SetSelectionUseContext x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_len_SetSelectionUseContext x) serializeList (context_SetSelectionUseContext x) putSkip (requiredPadding size__)@@ -561,11 +562,11 @@ = do putWord8 extOpCode putWord8 18 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data GetSelectionUseContextReply = MkGetSelectionUseContextReply{context_len_GetSelectionUseContextReply- :: CARD32,+ :: Word32, context_GetSelectionUseContextReply :: [CChar]} deriving (Show, Typeable)@@ -592,12 +593,12 @@ = do putWord8 extOpCode putWord8 19 let size__ = 4 + size (selection_GetSelectionContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (selection_GetSelectionContext x) putSkip (requiredPadding size__) data GetSelectionContextReply = MkGetSelectionContextReply{context_len_GetSelectionContextReply- :: CARD32,+ :: Word32, context_GetSelectionContextReply :: [CChar]} deriving (Show, Typeable)@@ -624,12 +625,12 @@ = do putWord8 extOpCode putWord8 20 let size__ = 4 + size (selection_GetSelectionDataContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (selection_GetSelectionDataContext x) putSkip (requiredPadding size__) data GetSelectionDataContextReply = MkGetSelectionDataContextReply{context_len_GetSelectionDataContextReply- :: CARD32,+ :: Word32, context_GetSelectionDataContextReply :: [CChar]} deriving (Show, Typeable)@@ -655,11 +656,11 @@ = do putWord8 extOpCode putWord8 21 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data ListSelectionsReply = MkListSelectionsReply{selections_len_ListSelectionsReply- :: CARD32,+ :: Word32, selections_ListSelectionsReply :: [ListItem]} deriving (Show, Typeable) @@ -676,7 +677,7 @@ return (MkListSelectionsReply selections_len selections) data GetClientContext = MkGetClientContext{resource_GetClientContext- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetClientContext where@@ -685,12 +686,12 @@ = do putWord8 extOpCode putWord8 22 let size__ = 4 + size (resource_GetClientContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (resource_GetClientContext x) putSkip (requiredPadding size__) data GetClientContextReply = MkGetClientContextReply{context_len_GetClientContextReply- :: CARD32,+ :: Word32, context_GetClientContextReply :: [CChar]} deriving (Show, Typeable)
patched/Graphics/XHB/Gen/ScreenSaver.hs view
@@ -9,6 +9,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -20,29 +23,29 @@ queryVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)+ Word8 -> Word8 -> IO (Receipt QueryVersionReply) queryVersion c client_major_version client_minor_version- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion client_major_version client_minor_version putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryInfo :: Graphics.XHB.Connection.Types.Connection -> DRAWABLE -> IO (Receipt QueryInfoReply) queryInfo c drawable- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryInfo drawable putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt selectInput :: Graphics.XHB.Connection.Types.Connection ->- DRAWABLE -> CARD32 -> IO ()+ DRAWABLE -> Word32 -> IO () selectInput c drawable event_mask = do let req = MkSelectInput drawable event_mask putAction <- serializeExtensionRequest c req@@ -65,7 +68,7 @@ sendRequest c chunk suspend ::- Graphics.XHB.Connection.Types.Connection -> BOOL -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Bool -> IO () suspend c suspend = do let req = MkSuspend suspend putAction <- serializeExtensionRequest c req
patched/Graphics/XHB/Gen/ScreenSaver/Types.hs view
@@ -5,6 +5,7 @@ UnsetAttributes(..), Suspend(..), Notify(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -64,8 +65,8 @@ fromValue 3 = StateDisabled data QueryVersion = MkQueryVersion{client_major_version_QueryVersion- :: CARD8,- client_minor_version_QueryVersion :: CARD8}+ :: Word8,+ client_minor_version_QueryVersion :: Word8} deriving (Show, Typeable) instance ExtensionRequest QueryVersion where@@ -77,15 +78,15 @@ = 4 + size (client_major_version_QueryVersion x) + size (client_minor_version_QueryVersion x) + 2- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (client_major_version_QueryVersion x) serialize (client_minor_version_QueryVersion x) putSkip 2 putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{server_major_version_QueryVersionReply- :: CARD16,- server_minor_version_QueryVersionReply :: CARD16}+ :: Word16,+ server_minor_version_QueryVersionReply :: Word16} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -110,17 +111,17 @@ = do putWord8 extOpCode putWord8 1 let size__ = 4 + size (drawable_QueryInfo x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (drawable_QueryInfo x) putSkip (requiredPadding size__) data QueryInfoReply = MkQueryInfoReply{state_QueryInfoReply ::- CARD8,+ Word8, saver_window_QueryInfoReply :: WINDOW,- ms_until_server_QueryInfoReply :: CARD32,- ms_since_user_input_QueryInfoReply :: CARD32,- event_mask_QueryInfoReply :: CARD32,- kind_QueryInfoReply :: BYTE}+ ms_until_server_QueryInfoReply :: Word32,+ ms_since_user_input_QueryInfoReply :: Word32,+ event_mask_QueryInfoReply :: Word32,+ kind_QueryInfoReply :: Word8} deriving (Show, Typeable) instance Deserialize QueryInfoReply where@@ -143,7 +144,7 @@ kind) data SelectInput = MkSelectInput{drawable_SelectInput :: DRAWABLE,- event_mask_SelectInput :: CARD32}+ event_mask_SelectInput :: Word32} deriving (Show, Typeable) instance ExtensionRequest SelectInput where@@ -154,19 +155,19 @@ let size__ = 4 + size (drawable_SelectInput x) + size (event_mask_SelectInput x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (drawable_SelectInput x) serialize (event_mask_SelectInput x) putSkip (requiredPadding size__) data SetAttributes = MkSetAttributes{drawable_SetAttributes :: DRAWABLE,- x_SetAttributes :: INT16, y_SetAttributes :: INT16,- width_SetAttributes :: CARD16, height_SetAttributes :: CARD16,- border_width_SetAttributes :: CARD16,- class_SetAttributes :: BYTE, depth_SetAttributes :: CARD8,+ x_SetAttributes :: Int16, y_SetAttributes :: Int16,+ width_SetAttributes :: Word16, height_SetAttributes :: Word16,+ border_width_SetAttributes :: Word16,+ class_SetAttributes :: Word8, depth_SetAttributes :: Word8, visual_SetAttributes :: VISUALID,- value_SetAttributes :: ValueParam CARD32}+ value_SetAttributes :: ValueParam Word32} deriving (Show, Typeable) instance ExtensionRequest SetAttributes where@@ -184,7 +185,7 @@ + size (depth_SetAttributes x) + size (visual_SetAttributes x) + size (value_SetAttributes x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (drawable_SetAttributes x) serialize (x_SetAttributes x) serialize (y_SetAttributes x)@@ -207,11 +208,11 @@ = do putWord8 extOpCode putWord8 4 let size__ = 4 + size (drawable_UnsetAttributes x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (drawable_UnsetAttributes x) putSkip (requiredPadding size__) -data Suspend = MkSuspend{suspend_Suspend :: BOOL}+data Suspend = MkSuspend{suspend_Suspend :: Bool} deriving (Show, Typeable) instance ExtensionRequest Suspend where@@ -220,15 +221,15 @@ = do putWord8 extOpCode putWord8 5 let size__ = 4 + size (suspend_Suspend x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (suspend_Suspend x) putSkip 3 putSkip (requiredPadding size__) -data Notify = MkNotify{code_Notify :: CARD8, state_Notify :: BYTE,- sequence_number_Notify :: CARD16, time_Notify :: TIMESTAMP,+data Notify = MkNotify{code_Notify :: Word8, state_Notify :: Word8,+ sequence_number_Notify :: Word16, time_Notify :: TIMESTAMP, root_Notify :: WINDOW, window_Notify :: WINDOW,- kind_Notify :: BYTE, forced_Notify :: BOOL}+ kind_Notify :: Word8, forced_Notify :: Bool} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event Notify
patched/Graphics/XHB/Gen/Shape.hs view
@@ -9,6 +9,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -22,11 +25,11 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt QueryVersionReply) queryVersion c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt rectangles ::@@ -60,15 +63,15 @@ Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt QueryExtentsReply) queryExtents c destination_window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryExtents destination_window putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt selectInput ::- Graphics.XHB.Connection.Types.Connection -> WINDOW -> BOOL -> IO ()+ Graphics.XHB.Connection.Types.Connection -> WINDOW -> Bool -> IO () selectInput c destination_window enable = do let req = MkSelectInput destination_window enable putAction <- serializeExtensionRequest c req@@ -77,22 +80,23 @@ inputSelected :: Graphics.XHB.Connection.Types.Connection ->- WINDOW -> IO (Receipt InputSelectedReply)+ WINDOW -> IO (Receipt Bool) inputSelected c destination_window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (enabled_InputSelectedReply `fmap` deserialize)) let req = MkInputSelected destination_window putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getRectangles :: Graphics.XHB.Connection.Types.Connection -> WINDOW -> KIND -> IO (Receipt GetRectanglesReply) getRectangles c window source_kind- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetRectangles window source_kind putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/Shape/Types.hs view
@@ -7,6 +7,7 @@ GetRectanglesReply(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -29,9 +30,9 @@ = return (liftM toEvent (deserialize :: Get Notify)) deserializeEvent _ = Nothing -type OP = CARD8+type OP = Word8 -type KIND = CARD8+type KIND = Word8 data SO = SOSet | SOUnion@@ -64,10 +65,10 @@ fromValue 2 = SKInput data Notify = MkNotify{shape_kind_Notify :: KIND,- affected_window_Notify :: WINDOW, extents_x_Notify :: INT16,- extents_y_Notify :: INT16, extents_width_Notify :: CARD16,- extents_height_Notify :: CARD16, server_time_Notify :: TIMESTAMP,- shaped_Notify :: BOOL}+ affected_window_Notify :: WINDOW, extents_x_Notify :: Int16,+ extents_y_Notify :: Int16, extents_width_Notify :: Word16,+ extents_height_Notify :: Word16, server_time_Notify :: TIMESTAMP,+ shaped_Notify :: Bool} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event Notify@@ -101,12 +102,12 @@ = do putWord8 extOpCode putWord8 0 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply- :: CARD16,- minor_version_QueryVersionReply :: CARD16}+ :: Word16,+ minor_version_QueryVersionReply :: Word16} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -121,9 +122,9 @@ return (MkQueryVersionReply major_version minor_version) data Rectangles = MkRectangles{operation_Rectangles :: OP,- destination_kind_Rectangles :: KIND, ordering_Rectangles :: BYTE,+ destination_kind_Rectangles :: KIND, ordering_Rectangles :: Word8, destination_window_Rectangles :: WINDOW,- x_offset_Rectangles :: INT16, y_offset_Rectangles :: INT16,+ x_offset_Rectangles :: Int16, y_offset_Rectangles :: Int16, rectangles_Rectangles :: [RECTANGLE]} deriving (Show, Typeable) @@ -141,7 +142,7 @@ + size (x_offset_Rectangles x) + size (y_offset_Rectangles x) + sum (map size (rectangles_Rectangles x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (operation_Rectangles x) serialize (destination_kind_Rectangles x) serialize (ordering_Rectangles x)@@ -154,7 +155,7 @@ data Mask = MkMask{operation_Mask :: OP, destination_kind_Mask :: KIND, destination_window_Mask :: WINDOW,- x_offset_Mask :: INT16, y_offset_Mask :: INT16,+ x_offset_Mask :: Int16, y_offset_Mask :: Int16, source_bitmap_Mask :: PIXMAP} deriving (Show, Typeable) @@ -169,7 +170,7 @@ + size (x_offset_Mask x) + size (y_offset_Mask x) + size (source_bitmap_Mask x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (operation_Mask x) serialize (destination_kind_Mask x) putSkip 2@@ -181,8 +182,8 @@ data Combine = MkCombine{operation_Combine :: OP, destination_kind_Combine :: KIND, source_kind_Combine :: KIND,- destination_window_Combine :: WINDOW, x_offset_Combine :: INT16,- y_offset_Combine :: INT16, source_window_Combine :: WINDOW}+ destination_window_Combine :: WINDOW, x_offset_Combine :: Int16,+ y_offset_Combine :: Int16, source_window_Combine :: WINDOW} deriving (Show, Typeable) instance ExtensionRequest Combine where@@ -199,7 +200,7 @@ + size (x_offset_Combine x) + size (y_offset_Combine x) + size (source_window_Combine x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (operation_Combine x) serialize (destination_kind_Combine x) serialize (source_kind_Combine x)@@ -211,8 +212,8 @@ putSkip (requiredPadding size__) data Offset = MkOffset{destination_kind_Offset :: KIND,- destination_window_Offset :: WINDOW, x_offset_Offset :: INT16,- y_offset_Offset :: INT16}+ destination_window_Offset :: WINDOW, x_offset_Offset :: Int16,+ y_offset_Offset :: Int16} deriving (Show, Typeable) instance ExtensionRequest Offset where@@ -225,7 +226,7 @@ size (destination_window_Offset x) + size (x_offset_Offset x) + size (y_offset_Offset x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (destination_kind_Offset x) putSkip 3 serialize (destination_window_Offset x)@@ -243,23 +244,23 @@ = do putWord8 extOpCode putWord8 5 let size__ = 4 + size (destination_window_QueryExtents x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (destination_window_QueryExtents x) putSkip (requiredPadding size__) data QueryExtentsReply = MkQueryExtentsReply{bounding_shaped_QueryExtentsReply- :: BOOL,- clip_shaped_QueryExtentsReply :: BOOL,- bounding_shape_extents_x_QueryExtentsReply :: INT16,- bounding_shape_extents_y_QueryExtentsReply :: INT16,+ :: Bool,+ clip_shaped_QueryExtentsReply :: Bool,+ bounding_shape_extents_x_QueryExtentsReply :: Int16,+ bounding_shape_extents_y_QueryExtentsReply :: Int16, bounding_shape_extents_width_QueryExtentsReply ::- CARD16,+ Word16, bounding_shape_extents_height_QueryExtentsReply ::- CARD16,- clip_shape_extents_x_QueryExtentsReply :: INT16,- clip_shape_extents_y_QueryExtentsReply :: INT16,- clip_shape_extents_width_QueryExtentsReply :: CARD16,- clip_shape_extents_height_QueryExtentsReply :: CARD16}+ Word16,+ clip_shape_extents_x_QueryExtentsReply :: Int16,+ clip_shape_extents_y_QueryExtentsReply :: Int16,+ clip_shape_extents_width_QueryExtentsReply :: Word16,+ clip_shape_extents_height_QueryExtentsReply :: Word16} deriving (Show, Typeable) instance Deserialize QueryExtentsReply where@@ -293,7 +294,7 @@ data SelectInput = MkSelectInput{destination_window_SelectInput :: WINDOW,- enable_SelectInput :: BOOL}+ enable_SelectInput :: Bool} deriving (Show, Typeable) instance ExtensionRequest SelectInput where@@ -305,7 +306,7 @@ = 4 + size (destination_window_SelectInput x) + size (enable_SelectInput x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (destination_window_SelectInput x) serialize (enable_SelectInput x) putSkip 3@@ -321,12 +322,12 @@ = do putWord8 extOpCode putWord8 7 let size__ = 4 + size (destination_window_InputSelected x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (destination_window_InputSelected x) putSkip (requiredPadding size__) data InputSelectedReply = MkInputSelectedReply{enabled_InputSelectedReply- :: BOOL}+ :: Bool} deriving (Show, Typeable) instance Deserialize InputSelectedReply where@@ -352,15 +353,15 @@ = 4 + size (window_GetRectangles x) + size (source_kind_GetRectangles x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_GetRectangles x) serialize (source_kind_GetRectangles x) putSkip 3 putSkip (requiredPadding size__) data GetRectanglesReply = MkGetRectanglesReply{ordering_GetRectanglesReply- :: BYTE,- rectangles_len_GetRectanglesReply :: CARD32,+ :: Word8,+ rectangles_len_GetRectanglesReply :: Word32, rectangles_GetRectanglesReply :: [RECTANGLE]} deriving (Show, Typeable)
patched/Graphics/XHB/Gen/Shm.hs view
@@ -8,6 +8,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -22,11 +25,11 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt QueryVersionReply) queryVersion c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt attach ::@@ -54,10 +57,10 @@ Graphics.XHB.Connection.Types.Connection -> GetImage -> IO (Receipt GetImageReply) getImage c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt createPixmap ::
patched/Graphics/XHB/Gen/Shm/Types.hs view
@@ -5,6 +5,7 @@ CreatePixmap(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -34,8 +35,8 @@ deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike) data Completion = MkCompletion{drawable_Completion :: DRAWABLE,- shmseg_Completion :: SEG, minor_event_Completion :: CARD16,- major_event_Completion :: BYTE, offset_Completion :: CARD32}+ shmseg_Completion :: SEG, minor_event_Completion :: Word16,+ major_event_Completion :: Word8, offset_Completion :: Word32} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event Completion@@ -54,8 +55,8 @@ return (MkCompletion drawable shmseg minor_event major_event offset) -data BadSeg = MkBadSeg{bad_value_BadSeg :: CARD32,- minor_opcode_BadSeg :: CARD16, major_opcode_BadSeg :: CARD8}+data BadSeg = MkBadSeg{bad_value_BadSeg :: Word32,+ minor_opcode_BadSeg :: Word16, major_opcode_BadSeg :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error BadSeg@@ -78,16 +79,16 @@ = do putWord8 extOpCode putWord8 0 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{shared_pixmaps_QueryVersionReply- :: BOOL,- major_version_QueryVersionReply :: CARD16,- minor_version_QueryVersionReply :: CARD16,- uid_QueryVersionReply :: CARD16,- gid_QueryVersionReply :: CARD16,- pixmap_format_QueryVersionReply :: CARD8}+ :: Bool,+ major_version_QueryVersionReply :: Word16,+ minor_version_QueryVersionReply :: Word16,+ uid_QueryVersionReply :: Word16,+ gid_QueryVersionReply :: Word16,+ pixmap_format_QueryVersionReply :: Word8} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -109,7 +110,7 @@ pixmap_format) data Attach = MkAttach{shmseg_Attach :: SEG,- shmid_Attach :: CARD32, read_only_Attach :: BOOL}+ shmid_Attach :: Word32, read_only_Attach :: Bool} deriving (Show, Typeable) instance ExtensionRequest Attach where@@ -121,7 +122,7 @@ = 4 + size (shmseg_Attach x) + size (shmid_Attach x) + size (read_only_Attach x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (shmseg_Attach x) serialize (shmid_Attach x) serialize (read_only_Attach x)@@ -137,18 +138,18 @@ = do putWord8 extOpCode putWord8 2 let size__ = 4 + size (shmseg_Detach x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (shmseg_Detach x) putSkip (requiredPadding size__) data PutImage = MkPutImage{drawable_PutImage :: DRAWABLE,- gc_PutImage :: GCONTEXT, total_width_PutImage :: CARD16,- total_height_PutImage :: CARD16, src_x_PutImage :: CARD16,- src_y_PutImage :: CARD16, src_width_PutImage :: CARD16,- src_height_PutImage :: CARD16, dst_x_PutImage :: INT16,- dst_y_PutImage :: INT16, depth_PutImage :: CARD8,- format_PutImage :: CARD8, send_event_PutImage :: CARD8,- shmseg_PutImage :: SEG, offset_PutImage :: CARD32}+ gc_PutImage :: GCONTEXT, total_width_PutImage :: Word16,+ total_height_PutImage :: Word16, src_x_PutImage :: Word16,+ src_y_PutImage :: Word16, src_width_PutImage :: Word16,+ src_height_PutImage :: Word16, dst_x_PutImage :: Int16,+ dst_y_PutImage :: Int16, depth_PutImage :: Word8,+ format_PutImage :: Word8, send_event_PutImage :: Word8,+ shmseg_PutImage :: SEG, offset_PutImage :: Word32} deriving (Show, Typeable) instance ExtensionRequest PutImage where@@ -172,7 +173,7 @@ + 1 + size (shmseg_PutImage x) + size (offset_PutImage x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (drawable_PutImage x) serialize (gc_PutImage x) serialize (total_width_PutImage x)@@ -192,10 +193,10 @@ putSkip (requiredPadding size__) data GetImage = MkGetImage{drawable_GetImage :: DRAWABLE,- x_GetImage :: INT16, y_GetImage :: INT16, width_GetImage :: CARD16,- height_GetImage :: CARD16, plane_mask_GetImage :: CARD32,- format_GetImage :: CARD8, shmseg_GetImage :: SEG,- offset_GetImage :: CARD32}+ x_GetImage :: Int16, y_GetImage :: Int16, width_GetImage :: Word16,+ height_GetImage :: Word16, plane_mask_GetImage :: Word32,+ format_GetImage :: Word8, shmseg_GetImage :: SEG,+ offset_GetImage :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetImage where@@ -213,7 +214,7 @@ + 3 + size (shmseg_GetImage x) + size (offset_GetImage x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (drawable_GetImage x) serialize (x_GetImage x) serialize (y_GetImage x)@@ -226,8 +227,8 @@ serialize (offset_GetImage x) putSkip (requiredPadding size__) -data GetImageReply = MkGetImageReply{depth_GetImageReply :: CARD8,- visual_GetImageReply :: VISUALID, size_GetImageReply :: CARD32}+data GetImageReply = MkGetImageReply{depth_GetImageReply :: Word8,+ visual_GetImageReply :: VISUALID, size_GetImageReply :: Word32} deriving (Show, Typeable) instance Deserialize GetImageReply where@@ -242,9 +243,9 @@ return (MkGetImageReply depth visual size) data CreatePixmap = MkCreatePixmap{pid_CreatePixmap :: PIXMAP,- drawable_CreatePixmap :: DRAWABLE, width_CreatePixmap :: CARD16,- height_CreatePixmap :: CARD16, depth_CreatePixmap :: CARD8,- shmseg_CreatePixmap :: SEG, offset_CreatePixmap :: CARD32}+ drawable_CreatePixmap :: DRAWABLE, width_CreatePixmap :: Word16,+ height_CreatePixmap :: Word16, depth_CreatePixmap :: Word8,+ shmseg_CreatePixmap :: SEG, offset_CreatePixmap :: Word32} deriving (Show, Typeable) instance ExtensionRequest CreatePixmap where@@ -260,7 +261,7 @@ + 3 + size (shmseg_CreatePixmap x) + size (offset_CreatePixmap x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (pid_CreatePixmap x) serialize (drawable_CreatePixmap x) serialize (width_CreatePixmap x)
patched/Graphics/XHB/Gen/Sync.hs view
@@ -10,6 +10,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -21,24 +24,24 @@ initialize :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> CARD8 -> IO (Receipt InitializeReply)+ Word8 -> Word8 -> IO (Receipt InitializeReply) initialize c desired_major_version desired_minor_version- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkInitialize desired_major_version desired_minor_version putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt listSystemCounters :: Graphics.XHB.Connection.Types.Connection -> IO (Receipt ListSystemCountersReply) listSystemCounters c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkListSystemCounters putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt createCounter ::@@ -60,13 +63,14 @@ queryCounter :: Graphics.XHB.Connection.Types.Connection ->- COUNTER -> IO (Receipt QueryCounterReply)+ COUNTER -> IO (Receipt INT64) queryCounter c counter- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (counter_value_QueryCounterReply `fmap` deserialize)) let req = MkQueryCounter counter putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt await ::@@ -98,7 +102,7 @@ createAlarm :: Graphics.XHB.Connection.Types.Connection ->- ALARM -> ValueParam CARD32 -> IO ()+ ALARM -> ValueParam Word32 -> IO () createAlarm c id value = do let req = MkCreateAlarm id value putAction <- serializeExtensionRequest c req@@ -107,7 +111,7 @@ changeAlarm :: Graphics.XHB.Connection.Types.Connection ->- ALARM -> ValueParam CARD32 -> IO ()+ ALARM -> ValueParam Word32 -> IO () changeAlarm c id value = do let req = MkChangeAlarm id value putAction <- serializeExtensionRequest c req@@ -126,16 +130,16 @@ Graphics.XHB.Connection.Types.Connection -> ALARM -> IO (Receipt QueryAlarmReply) queryAlarm c alarm- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryAlarm alarm putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setPriority :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> INT32 -> IO ()+ Word32 -> Int32 -> IO () setPriority c id priority = do let req = MkSetPriority id priority putAction <- serializeExtensionRequest c req@@ -144,11 +148,12 @@ getPriority :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt GetPriorityReply)+ Word32 -> IO (Receipt Int32) getPriority c id- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (priority_GetPriorityReply `fmap` deserialize)) let req = MkGetPriority id putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/Sync/Types.hs view
@@ -12,6 +12,7 @@ AlarmNotify(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -103,7 +104,7 @@ fromBit 4 = CADelta fromBit 5 = CAEvents -data INT64 = MkINT64{hi_INT64 :: INT32, lo_INT64 :: CARD32}+data INT64 = MkINT64{hi_INT64 :: Int32, lo_INT64 :: Word32} deriving (Show, Typeable) instance Serialize INT64 where@@ -121,7 +122,7 @@ data SYSTEMCOUNTER = MkSYSTEMCOUNTER{counter_SYSTEMCOUNTER :: COUNTER, resolution_SYSTEMCOUNTER :: INT64,- name_len_SYSTEMCOUNTER :: CARD16,+ name_len_SYSTEMCOUNTER :: Word16, name_SYSTEMCOUNTER :: [CChar]} deriving (Show, Typeable) @@ -146,8 +147,8 @@ return (MkSYSTEMCOUNTER counter resolution name_len name) data TRIGGER = MkTRIGGER{counter_TRIGGER :: COUNTER,- wait_type_TRIGGER :: CARD32, wait_value_TRIGGER :: INT64,- test_type_TRIGGER :: CARD32}+ wait_type_TRIGGER :: Word32, wait_value_TRIGGER :: INT64,+ test_type_TRIGGER :: Word32} deriving (Show, Typeable) instance Serialize TRIGGER where@@ -188,8 +189,8 @@ event_threshold <- deserialize return (MkWAITCONDITION trigger event_threshold) -data Counter = MkCounter{bad_counter_Counter :: CARD32,- minor_opcode_Counter :: CARD16, major_opcode_Counter :: CARD8}+data Counter = MkCounter{bad_counter_Counter :: Word32,+ minor_opcode_Counter :: Word16, major_opcode_Counter :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error Counter@@ -202,8 +203,8 @@ major_opcode <- deserialize return (MkCounter bad_counter minor_opcode major_opcode) -data Alarm = MkAlarm{bad_alarm_Alarm :: CARD32,- minor_opcode_Alarm :: CARD16, major_opcode_Alarm :: CARD8}+data Alarm = MkAlarm{bad_alarm_Alarm :: Word32,+ minor_opcode_Alarm :: Word16, major_opcode_Alarm :: Word8} deriving (Show, Typeable) instance Graphics.XHB.Shared.Error Alarm@@ -217,8 +218,8 @@ return (MkAlarm bad_alarm minor_opcode major_opcode) data Initialize = MkInitialize{desired_major_version_Initialize ::- CARD8,- desired_minor_version_Initialize :: CARD8}+ Word8,+ desired_minor_version_Initialize :: Word8} deriving (Show, Typeable) instance ExtensionRequest Initialize where@@ -229,14 +230,14 @@ let size__ = 4 + size (desired_major_version_Initialize x) + size (desired_minor_version_Initialize x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (desired_major_version_Initialize x) serialize (desired_minor_version_Initialize x) putSkip (requiredPadding size__) data InitializeReply = MkInitializeReply{major_version_InitializeReply- :: CARD8,- minor_version_InitializeReply :: CARD8}+ :: Word8,+ minor_version_InitializeReply :: Word8} deriving (Show, Typeable) instance Deserialize InitializeReply where@@ -260,11 +261,11 @@ = do putWord8 extOpCode putWord8 1 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data ListSystemCountersReply = MkListSystemCountersReply{counters_len_ListSystemCountersReply- :: CARD32,+ :: Word32, counters_ListSystemCountersReply :: [SYSTEMCOUNTER]} deriving (Show, Typeable)@@ -293,7 +294,7 @@ let size__ = 4 + size (id_CreateCounter x) + size (initial_value_CreateCounter x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (id_CreateCounter x) serialize (initial_value_CreateCounter x) putSkip (requiredPadding size__)@@ -308,7 +309,7 @@ = do putWord8 extOpCode putWord8 6 let size__ = 4 + size (counter_DestroyCounter x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (counter_DestroyCounter x) putSkip (requiredPadding size__) @@ -321,7 +322,7 @@ = do putWord8 extOpCode putWord8 5 let size__ = 4 + size (counter_QueryCounter x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (counter_QueryCounter x) putSkip (requiredPadding size__) @@ -348,7 +349,7 @@ = do putWord8 extOpCode putWord8 7 let size__ = 4 + sum (map size (wait_list_Await x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serializeList (wait_list_Await x) putSkip (requiredPadding size__) @@ -365,7 +366,7 @@ let size__ = 4 + size (counter_ChangeCounter x) + size (amount_ChangeCounter x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (counter_ChangeCounter x) serialize (amount_ChangeCounter x) putSkip (requiredPadding size__)@@ -381,13 +382,13 @@ putWord8 3 let size__ = 4 + size (counter_SetCounter x) + size (value_SetCounter x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (counter_SetCounter x) serialize (value_SetCounter x) putSkip (requiredPadding size__) data CreateAlarm = MkCreateAlarm{id_CreateAlarm :: ALARM,- value_CreateAlarm :: ValueParam CARD32}+ value_CreateAlarm :: ValueParam Word32} deriving (Show, Typeable) instance ExtensionRequest CreateAlarm where@@ -397,13 +398,13 @@ putWord8 8 let size__ = 4 + size (id_CreateAlarm x) + size (value_CreateAlarm x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (id_CreateAlarm x) serialize (value_CreateAlarm x) putSkip (requiredPadding size__) data ChangeAlarm = MkChangeAlarm{id_ChangeAlarm :: ALARM,- value_ChangeAlarm :: ValueParam CARD32}+ value_ChangeAlarm :: ValueParam Word32} deriving (Show, Typeable) instance ExtensionRequest ChangeAlarm where@@ -413,7 +414,7 @@ putWord8 9 let size__ = 4 + size (id_ChangeAlarm x) + size (value_ChangeAlarm x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (id_ChangeAlarm x) serialize (value_ChangeAlarm x) putSkip (requiredPadding size__)@@ -427,7 +428,7 @@ = do putWord8 extOpCode putWord8 11 let size__ = 4 + size (alarm_DestroyAlarm x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (alarm_DestroyAlarm x) putSkip (requiredPadding size__) @@ -440,15 +441,15 @@ = do putWord8 extOpCode putWord8 10 let size__ = 4 + size (alarm_QueryAlarm x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (alarm_QueryAlarm x) putSkip (requiredPadding size__) data QueryAlarmReply = MkQueryAlarmReply{trigger_QueryAlarmReply :: TRIGGER, delta_QueryAlarmReply :: INT64,- events_QueryAlarmReply :: BOOL,- state_QueryAlarmReply :: CARD8}+ events_QueryAlarmReply :: Bool,+ state_QueryAlarmReply :: Word8} deriving (Show, Typeable) instance Deserialize QueryAlarmReply where@@ -465,8 +466,8 @@ let _ = isCard32 length return (MkQueryAlarmReply trigger delta events state) -data SetPriority = MkSetPriority{id_SetPriority :: CARD32,- priority_SetPriority :: INT32}+data SetPriority = MkSetPriority{id_SetPriority :: Word32,+ priority_SetPriority :: Int32} deriving (Show, Typeable) instance ExtensionRequest SetPriority where@@ -476,12 +477,12 @@ putWord8 12 let size__ = 4 + size (id_SetPriority x) + size (priority_SetPriority x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (id_SetPriority x) serialize (priority_SetPriority x) putSkip (requiredPadding size__) -data GetPriority = MkGetPriority{id_GetPriority :: CARD32}+data GetPriority = MkGetPriority{id_GetPriority :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetPriority where@@ -490,12 +491,12 @@ = do putWord8 extOpCode putWord8 13 let size__ = 4 + size (id_GetPriority x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (id_GetPriority x) putSkip (requiredPadding size__) data GetPriorityReply = MkGetPriorityReply{priority_GetPriorityReply- :: INT32}+ :: Int32} deriving (Show, Typeable) instance Deserialize GetPriorityReply where@@ -508,12 +509,12 @@ let _ = isCard32 length return (MkGetPriorityReply priority) -data CounterNotify = MkCounterNotify{kind_CounterNotify :: CARD8,+data CounterNotify = MkCounterNotify{kind_CounterNotify :: Word8, counter_CounterNotify :: COUNTER, wait_value_CounterNotify :: INT64, counter_value_CounterNotify :: INT64, timestamp_CounterNotify :: TIMESTAMP,- count_CounterNotify :: CARD16, destroyed_CounterNotify :: BOOL}+ count_CounterNotify :: Word16, destroyed_CounterNotify :: Bool} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event CounterNotify@@ -535,7 +536,7 @@ count destroyed) -data AlarmNotify = MkAlarmNotify{kind_AlarmNotify :: CARD8,+data AlarmNotify = MkAlarmNotify{kind_AlarmNotify :: Word8, alarm_AlarmNotify :: ALARM, counter_value_AlarmNotify :: INT64, alarm_value_AlarmNotify :: INT64, timestamp_AlarmNotify :: TIMESTAMP}
patched/Graphics/XHB/Gen/Test.hs view
@@ -8,6 +8,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -19,24 +22,25 @@ getVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> CARD16 -> IO (Receipt GetVersionReply)+ Word8 -> Word16 -> IO (Receipt GetVersionReply) getVersion c major_version minor_version- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetVersion major_version minor_version putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt compareCursor :: Graphics.XHB.Connection.Types.Connection ->- WINDOW -> CURSOR -> IO (Receipt CompareCursorReply)+ WINDOW -> CURSOR -> IO (Receipt Bool) compareCursor c window cursor- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (same_CompareCursorReply `fmap` deserialize)) let req = MkCompareCursor window cursor putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt fakeInput ::@@ -47,7 +51,7 @@ sendRequest c chunk grabControl ::- Graphics.XHB.Connection.Types.Connection -> BOOL -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Bool -> IO () grabControl c impervious = do let req = MkGrabControl impervious putAction <- serializeExtensionRequest c req
patched/Graphics/XHB/Gen/Test/Types.hs view
@@ -4,6 +4,7 @@ CompareCursorReply(..), FakeInput(..), GrabControl(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -24,8 +25,8 @@ deserializeEvent :: Word8 -> Maybe (Get SomeEvent) deserializeEvent _ = Nothing -data GetVersion = MkGetVersion{major_version_GetVersion :: CARD8,- minor_version_GetVersion :: CARD16}+data GetVersion = MkGetVersion{major_version_GetVersion :: Word8,+ minor_version_GetVersion :: Word16} deriving (Show, Typeable) instance ExtensionRequest GetVersion where@@ -36,15 +37,15 @@ let size__ = 4 + size (major_version_GetVersion x) + 1 + size (minor_version_GetVersion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (major_version_GetVersion x) putSkip 1 serialize (minor_version_GetVersion x) putSkip (requiredPadding size__) data GetVersionReply = MkGetVersionReply{major_version_GetVersionReply- :: CARD8,- minor_version_GetVersionReply :: CARD16}+ :: Word8,+ minor_version_GetVersionReply :: Word16} deriving (Show, Typeable) instance Deserialize GetVersionReply where@@ -78,13 +79,13 @@ putWord8 1 let size__ = 4 + size (window_CompareCursor x) + size (cursor_CompareCursor x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_CompareCursor x) serialize (cursor_CompareCursor x) putSkip (requiredPadding size__) data CompareCursorReply = MkCompareCursorReply{same_CompareCursorReply- :: BOOL}+ :: Bool} deriving (Show, Typeable) instance Deserialize CompareCursorReply where@@ -96,10 +97,10 @@ let _ = isCard32 length return (MkCompareCursorReply same) -data FakeInput = MkFakeInput{type_FakeInput :: BYTE,- detail_FakeInput :: BYTE, time_FakeInput :: CARD32,- window_FakeInput :: WINDOW, rootX_FakeInput :: CARD16,- rootY_FakeInput :: CARD16, deviceid_FakeInput :: CARD8}+data FakeInput = MkFakeInput{type_FakeInput :: Word8,+ detail_FakeInput :: Word8, time_FakeInput :: Word32,+ window_FakeInput :: WINDOW, rootX_FakeInput :: Word16,+ rootY_FakeInput :: Word16, deviceid_FakeInput :: Word8} deriving (Show, Typeable) instance ExtensionRequest FakeInput where@@ -116,7 +117,7 @@ + size (rootY_FakeInput x) + 7 + size (deviceid_FakeInput x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (type_FakeInput x) serialize (detail_FakeInput x) putSkip 2@@ -129,7 +130,7 @@ serialize (deviceid_FakeInput x) putSkip (requiredPadding size__) -data GrabControl = MkGrabControl{impervious_GrabControl :: BOOL}+data GrabControl = MkGrabControl{impervious_GrabControl :: Bool} deriving (Show, Typeable) instance ExtensionRequest GrabControl where@@ -138,7 +139,7 @@ = do putWord8 extOpCode putWord8 3 let size__ = 4 + size (impervious_GrabControl x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (impervious_GrabControl x) putSkip 3 putSkip (requiredPadding size__)
patched/Graphics/XHB/Gen/XCMisc.hs view
@@ -8,6 +8,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) @@ -16,33 +19,33 @@ getVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD16 -> CARD16 -> IO (Receipt GetVersionReply)+ Word16 -> Word16 -> IO (Receipt GetVersionReply) getVersion c client_major_version client_minor_version- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetVersion client_major_version client_minor_version putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getXIDRange :: Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetXIDRangeReply) getXIDRange c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetXIDRange putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getXIDList :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt GetXIDListReply)+ Word32 -> IO (Receipt GetXIDListReply) getXIDList c count- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetXIDList count putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/XCMisc/Types.hs view
@@ -4,6 +4,7 @@ GetXIDList(..), GetXIDListReply(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -22,8 +23,8 @@ deserializeEvent _ = Nothing data GetVersion = MkGetVersion{client_major_version_GetVersion ::- CARD16,- client_minor_version_GetVersion :: CARD16}+ Word16,+ client_minor_version_GetVersion :: Word16} deriving (Show, Typeable) instance ExtensionRequest GetVersion where@@ -34,14 +35,14 @@ let size__ = 4 + size (client_major_version_GetVersion x) + size (client_minor_version_GetVersion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (client_major_version_GetVersion x) serialize (client_minor_version_GetVersion x) putSkip (requiredPadding size__) data GetVersionReply = MkGetVersionReply{server_major_version_GetVersionReply- :: CARD16,- server_minor_version_GetVersionReply :: CARD16}+ :: Word16,+ server_minor_version_GetVersionReply :: Word16} deriving (Show, Typeable) instance Deserialize GetVersionReply where@@ -65,12 +66,12 @@ = do putWord8 extOpCode putWord8 1 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data GetXIDRangeReply = MkGetXIDRangeReply{start_id_GetXIDRangeReply- :: CARD32,- count_GetXIDRangeReply :: CARD32}+ :: Word32,+ count_GetXIDRangeReply :: Word32} deriving (Show, Typeable) instance Deserialize GetXIDRangeReply where@@ -84,7 +85,7 @@ let _ = isCard32 length return (MkGetXIDRangeReply start_id count) -data GetXIDList = MkGetXIDList{count_GetXIDList :: CARD32}+data GetXIDList = MkGetXIDList{count_GetXIDList :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetXIDList where@@ -93,13 +94,13 @@ = do putWord8 extOpCode putWord8 2 let size__ = 4 + size (count_GetXIDList x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (count_GetXIDList x) putSkip (requiredPadding size__) data GetXIDListReply = MkGetXIDListReply{ids_len_GetXIDListReply ::- CARD32,- ids_GetXIDListReply :: [CARD32]}+ Word32,+ ids_GetXIDListReply :: [Word32]} deriving (Show, Typeable) instance Deserialize GetXIDListReply where
patched/Graphics/XHB/Gen/XF86Dri.hs view
@@ -11,6 +11,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) @@ -21,37 +24,39 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt QueryVersionReply) queryVersion c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryDirectRenderingCapable :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt QueryDirectRenderingCapableReply)+ Word32 -> IO (Receipt Bool) queryDirectRenderingCapable c screen- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet+ (is_capable_QueryDirectRenderingCapableReply `fmap` deserialize)) let req = MkQueryDirectRenderingCapable screen putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt openConnection :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt OpenConnectionReply)+ Word32 -> IO (Receipt OpenConnectionReply) openConnection c screen- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkOpenConnection screen putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt closeConnection ::- Graphics.XHB.Connection.Types.Connection -> CARD32 -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Word32 -> IO () closeConnection c screen = do let req = MkCloseConnection screen putAction <- serializeExtensionRequest c req@@ -60,28 +65,29 @@ getClientDriverName :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt GetClientDriverNameReply)+ Word32 -> IO (Receipt GetClientDriverNameReply) getClientDriverName c screen- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetClientDriverName screen putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt createContext :: Graphics.XHB.Connection.Types.Connection ->- CreateContext -> IO (Receipt CreateContextReply)+ CreateContext -> IO (Receipt Word32) createContext c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (hw_context_CreateContextReply `fmap` deserialize)) putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt destroyContext :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> CARD32 -> IO ()+ Word32 -> Word32 -> IO () destroyContext c screen context = do let req = MkDestroyContext screen context putAction <- serializeExtensionRequest c req@@ -90,18 +96,20 @@ createDrawable :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> CARD32 -> IO (Receipt CreateDrawableReply)+ Word32 -> Word32 -> IO (Receipt Word32) createDrawable c screen drawable- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet+ (hw_drawable_handle_CreateDrawableReply `fmap` deserialize)) let req = MkCreateDrawable screen drawable putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt destroyDrawable :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> CARD32 -> IO ()+ Word32 -> Word32 -> IO () destroyDrawable c screen drawable = do let req = MkDestroyDrawable screen drawable putAction <- serializeExtensionRequest c req@@ -110,33 +118,34 @@ getDrawableInfo :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> CARD32 -> IO (Receipt GetDrawableInfoReply)+ Word32 -> Word32 -> IO (Receipt GetDrawableInfoReply) getDrawableInfo c screen drawable- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetDrawableInfo screen drawable putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getDeviceInfo :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt GetDeviceInfoReply)+ Word32 -> IO (Receipt GetDeviceInfoReply) getDeviceInfo c screen- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetDeviceInfo screen putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt authConnection :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> CARD32 -> IO (Receipt AuthConnectionReply)+ Word32 -> Word32 -> IO (Receipt Word32) authConnection c screen magic- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (authenticated_AuthConnectionReply `fmap` deserialize)) let req = MkAuthConnection screen magic putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/XF86Dri/Types.hs view
@@ -12,6 +12,7 @@ AuthConnectionReply(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -29,9 +30,9 @@ deserializeEvent :: Word8 -> Maybe (Get SomeEvent) deserializeEvent _ = Nothing -data DrmClipRect = MkDrmClipRect{x1_DrmClipRect :: INT16,- y1_DrmClipRect :: INT16, x2_DrmClipRect :: INT16,- x3_DrmClipRect :: INT16}+data DrmClipRect = MkDrmClipRect{x1_DrmClipRect :: Int16,+ y1_DrmClipRect :: Int16, x2_DrmClipRect :: Int16,+ x3_DrmClipRect :: Int16} deriving (Show, Typeable) instance Serialize DrmClipRect where@@ -62,13 +63,13 @@ = do putWord8 extOpCode putWord8 0 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{dri_major_version_QueryVersionReply- :: CARD16,- dri_minor_version_QueryVersionReply :: CARD16,- dri_minor_patch_QueryVersionReply :: CARD32}+ :: Word16,+ dri_minor_version_QueryVersionReply :: Word16,+ dri_minor_patch_QueryVersionReply :: Word32} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -86,7 +87,7 @@ dri_minor_patch) data QueryDirectRenderingCapable = MkQueryDirectRenderingCapable{screen_QueryDirectRenderingCapable- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance ExtensionRequest QueryDirectRenderingCapable where@@ -95,12 +96,12 @@ = do putWord8 extOpCode putWord8 1 let size__ = 4 + size (screen_QueryDirectRenderingCapable x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_QueryDirectRenderingCapable x) putSkip (requiredPadding size__) data QueryDirectRenderingCapableReply = MkQueryDirectRenderingCapableReply{is_capable_QueryDirectRenderingCapableReply- :: BOOL}+ :: Bool} deriving (Show, Typeable) instance Deserialize QueryDirectRenderingCapableReply where@@ -114,7 +115,7 @@ return (MkQueryDirectRenderingCapableReply is_capable) data OpenConnection = MkOpenConnection{screen_OpenConnection ::- CARD32}+ Word32} deriving (Show, Typeable) instance ExtensionRequest OpenConnection where@@ -123,16 +124,16 @@ = do putWord8 extOpCode putWord8 2 let size__ = 4 + size (screen_OpenConnection x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_OpenConnection x) putSkip (requiredPadding size__) data OpenConnectionReply = MkOpenConnectionReply{drm_client_key_low_OpenConnectionReply- :: CARD32,- drm_client_key_high_OpenConnectionReply :: CARD32,- sarea_handle_low_OpenConnectionReply :: CARD32,- sarea_handle_high_OpenConnectionReply :: CARD32,- bus_id_len_OpenConnectionReply :: CARD32,+ :: Word32,+ drm_client_key_high_OpenConnectionReply :: Word32,+ sarea_handle_low_OpenConnectionReply :: Word32,+ sarea_handle_high_OpenConnectionReply :: Word32,+ bus_id_len_OpenConnectionReply :: Word32, bus_id_OpenConnectionReply :: [CChar]} deriving (Show, Typeable) @@ -158,7 +159,7 @@ bus_id) data CloseConnection = MkCloseConnection{screen_CloseConnection ::- CARD32}+ Word32} deriving (Show, Typeable) instance ExtensionRequest CloseConnection where@@ -167,12 +168,12 @@ = do putWord8 extOpCode putWord8 3 let size__ = 4 + size (screen_CloseConnection x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_CloseConnection x) putSkip (requiredPadding size__) data GetClientDriverName = MkGetClientDriverName{screen_GetClientDriverName- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetClientDriverName where@@ -181,18 +182,18 @@ = do putWord8 extOpCode putWord8 4 let size__ = 4 + size (screen_GetClientDriverName x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_GetClientDriverName x) putSkip (requiredPadding size__) data GetClientDriverNameReply = MkGetClientDriverNameReply{client_driver_major_version_GetClientDriverNameReply- :: CARD32,+ :: Word32, client_driver_minor_version_GetClientDriverNameReply- :: CARD32,+ :: Word32, client_driver_patch_version_GetClientDriverNameReply- :: CARD32,+ :: Word32, client_driver_name_len_GetClientDriverNameReply- :: CARD32,+ :: Word32, client_driver_name_GetClientDriverNameReply :: [CChar]} deriving (Show, Typeable)@@ -219,9 +220,9 @@ client_driver_name) data CreateContext = MkCreateContext{visual_CreateContext ::- CARD32,- screen_CreateContext :: CARD32,- context_CreateContext :: CARD32}+ Word32,+ screen_CreateContext :: Word32,+ context_CreateContext :: Word32} deriving (Show, Typeable) instance ExtensionRequest CreateContext where@@ -232,14 +233,14 @@ let size__ = 4 + size (visual_CreateContext x) + size (screen_CreateContext x) + size (context_CreateContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (visual_CreateContext x) serialize (screen_CreateContext x) serialize (context_CreateContext x) putSkip (requiredPadding size__) data CreateContextReply = MkCreateContextReply{hw_context_CreateContextReply- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance Deserialize CreateContextReply where@@ -253,8 +254,8 @@ return (MkCreateContextReply hw_context) data DestroyContext = MkDestroyContext{screen_DestroyContext ::- CARD32,- context_DestroyContext :: CARD32}+ Word32,+ context_DestroyContext :: Word32} deriving (Show, Typeable) instance ExtensionRequest DestroyContext where@@ -265,14 +266,14 @@ let size__ = 4 + size (screen_DestroyContext x) + size (context_DestroyContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_DestroyContext x) serialize (context_DestroyContext x) putSkip (requiredPadding size__) data CreateDrawable = MkCreateDrawable{screen_CreateDrawable ::- CARD32,- drawable_CreateDrawable :: CARD32}+ Word32,+ drawable_CreateDrawable :: Word32} deriving (Show, Typeable) instance ExtensionRequest CreateDrawable where@@ -283,13 +284,13 @@ let size__ = 4 + size (screen_CreateDrawable x) + size (drawable_CreateDrawable x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_CreateDrawable x) serialize (drawable_CreateDrawable x) putSkip (requiredPadding size__) data CreateDrawableReply = MkCreateDrawableReply{hw_drawable_handle_CreateDrawableReply- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance Deserialize CreateDrawableReply where@@ -303,8 +304,8 @@ return (MkCreateDrawableReply hw_drawable_handle) data DestroyDrawable = MkDestroyDrawable{screen_DestroyDrawable ::- CARD32,- drawable_DestroyDrawable :: CARD32}+ Word32,+ drawable_DestroyDrawable :: Word32} deriving (Show, Typeable) instance ExtensionRequest DestroyDrawable where@@ -315,14 +316,14 @@ let size__ = 4 + size (screen_DestroyDrawable x) + size (drawable_DestroyDrawable x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_DestroyDrawable x) serialize (drawable_DestroyDrawable x) putSkip (requiredPadding size__) data GetDrawableInfo = MkGetDrawableInfo{screen_GetDrawableInfo ::- CARD32,- drawable_GetDrawableInfo :: CARD32}+ Word32,+ drawable_GetDrawableInfo :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetDrawableInfo where@@ -333,20 +334,20 @@ let size__ = 4 + size (screen_GetDrawableInfo x) + size (drawable_GetDrawableInfo x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_GetDrawableInfo x) serialize (drawable_GetDrawableInfo x) putSkip (requiredPadding size__) data GetDrawableInfoReply = MkGetDrawableInfoReply{drawable_table_index_GetDrawableInfoReply- :: CARD32,+ :: Word32, drawable_table_stamp_GetDrawableInfoReply ::- CARD32,- drawable_origin_X_GetDrawableInfoReply :: INT16,- drawable_origin_Y_GetDrawableInfoReply :: INT16,- drawable_size_W_GetDrawableInfoReply :: INT16,- drawable_size_H_GetDrawableInfoReply :: INT16,- num_clip_rects_GetDrawableInfoReply :: CARD32,+ Word32,+ drawable_origin_X_GetDrawableInfoReply :: Int16,+ drawable_origin_Y_GetDrawableInfoReply :: Int16,+ drawable_size_W_GetDrawableInfoReply :: Int16,+ drawable_size_H_GetDrawableInfoReply :: Int16,+ num_clip_rects_GetDrawableInfoReply :: Word32, clip_rects_GetDrawableInfoReply :: [DrmClipRect]} deriving (Show, Typeable) @@ -376,7 +377,7 @@ clip_rects) data GetDeviceInfo = MkGetDeviceInfo{screen_GetDeviceInfo ::- CARD32}+ Word32} deriving (Show, Typeable) instance ExtensionRequest GetDeviceInfo where@@ -385,19 +386,19 @@ = do putWord8 extOpCode putWord8 10 let size__ = 4 + size (screen_GetDeviceInfo x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_GetDeviceInfo x) putSkip (requiredPadding size__) data GetDeviceInfoReply = MkGetDeviceInfoReply{framebuffer_handle_low_GetDeviceInfoReply- :: CARD32,- framebuffer_handle_high_GetDeviceInfoReply :: CARD32,+ :: Word32,+ framebuffer_handle_high_GetDeviceInfoReply :: Word32, framebuffer_origin_offset_GetDeviceInfoReply ::- CARD32,- framebuffer_size_GetDeviceInfoReply :: CARD32,- framebuffer_stride_GetDeviceInfoReply :: CARD32,- device_private_size_GetDeviceInfoReply :: CARD32,- device_private_GetDeviceInfoReply :: [CARD32]}+ Word32,+ framebuffer_size_GetDeviceInfoReply :: Word32,+ framebuffer_stride_GetDeviceInfoReply :: Word32,+ device_private_size_GetDeviceInfoReply :: Word32,+ device_private_GetDeviceInfoReply :: [Word32]} deriving (Show, Typeable) instance Deserialize GetDeviceInfoReply where@@ -425,8 +426,8 @@ device_private) data AuthConnection = MkAuthConnection{screen_AuthConnection ::- CARD32,- magic_AuthConnection :: CARD32}+ Word32,+ magic_AuthConnection :: Word32} deriving (Show, Typeable) instance ExtensionRequest AuthConnection where@@ -437,13 +438,13 @@ let size__ = 4 + size (screen_AuthConnection x) + size (magic_AuthConnection x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_AuthConnection x) serialize (magic_AuthConnection x) putSkip (requiredPadding size__) data AuthConnectionReply = MkAuthConnectionReply{authenticated_AuthConnectionReply- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance Deserialize AuthConnectionReply where
patched/Graphics/XHB/Gen/XFixes.hs view
@@ -16,6 +16,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -36,13 +39,13 @@ queryVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)+ Word32 -> Word32 -> IO (Receipt QueryVersionReply) queryVersion c client_major_version client_minor_version- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion client_major_version client_minor_version putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt changeSaveSet ::@@ -62,7 +65,7 @@ selectCursorInput :: Graphics.XHB.Connection.Types.Connection ->- WINDOW -> CARD32 -> IO ()+ WINDOW -> Word32 -> IO () selectCursorInput c window event_mask = do let req = MkSelectCursorInput window event_mask putAction <- serializeExtensionRequest c req@@ -73,11 +76,11 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetCursorImageReply) getCursorImage c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetCursorImage putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt createRegion ::@@ -200,11 +203,11 @@ Graphics.XHB.Connection.Types.Connection -> REGION -> IO (Receipt FetchRegionReply) fetchRegion c region- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkFetchRegion region putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setGCClipRegion ::@@ -242,22 +245,22 @@ Graphics.XHB.Connection.Types.Connection -> CURSOR -> IO (Receipt GetCursorNameReply) getCursorName c cursor- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetCursorName cursor putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getCursorImageAndName :: Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetCursorImageAndNameReply) getCursorImageAndName c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetCursorImageAndName putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt changeCursor ::
patched/Graphics/XHB/Gen/XFixes/Types.hs view
@@ -19,6 +19,7 @@ HideCursor(..), ShowCursor(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -53,8 +54,8 @@ deserializeEvent _ = Nothing data QueryVersion = MkQueryVersion{client_major_version_QueryVersion- :: CARD32,- client_minor_version_QueryVersion :: CARD32}+ :: Word32,+ client_minor_version_QueryVersion :: Word32} deriving (Show, Typeable) instance ExtensionRequest QueryVersion where@@ -65,14 +66,14 @@ let size__ = 4 + size (client_major_version_QueryVersion x) + size (client_minor_version_QueryVersion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (client_major_version_QueryVersion x) serialize (client_minor_version_QueryVersion x) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply- :: CARD32,- minor_version_QueryVersionReply :: CARD32}+ :: Word32,+ minor_version_QueryVersionReply :: Word32} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -114,8 +115,8 @@ fromValue 0 = SaveSetMappingMap fromValue 1 = SaveSetMappingUnmap -data ChangeSaveSet = MkChangeSaveSet{mode_ChangeSaveSet :: BYTE,- target_ChangeSaveSet :: BYTE, map_ChangeSaveSet :: BYTE,+data ChangeSaveSet = MkChangeSaveSet{mode_ChangeSaveSet :: Word8,+ target_ChangeSaveSet :: Word8, map_ChangeSaveSet :: Word8, window_ChangeSaveSet :: WINDOW} deriving (Show, Typeable) @@ -129,7 +130,7 @@ size (map_ChangeSaveSet x) + 1 + size (window_ChangeSaveSet x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (mode_ChangeSaveSet x) serialize (target_ChangeSaveSet x) serialize (map_ChangeSaveSet x)@@ -162,7 +163,7 @@ fromBit 2 = SelectionEventMaskSelectionClientClose data SelectionNotify = MkSelectionNotify{subtype_SelectionNotify ::- CARD8,+ Word8, window_SelectionNotify :: WINDOW, owner_SelectionNotify :: WINDOW, selection_SelectionNotify :: ATOM,@@ -190,7 +191,7 @@ data SelectSelectionInput = MkSelectSelectionInput{window_SelectSelectionInput :: WINDOW, selection_SelectSelectionInput :: ATOM,- event_mask_SelectSelectionInput :: CARD32}+ event_mask_SelectSelectionInput :: Word32} deriving (Show, Typeable) instance ExtensionRequest SelectSelectionInput where@@ -202,7 +203,7 @@ = 4 + size (window_SelectSelectionInput x) + size (selection_SelectSelectionInput x) + size (event_mask_SelectSelectionInput x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_SelectSelectionInput x) serialize (selection_SelectSelectionInput x) serialize (event_mask_SelectSelectionInput x)@@ -220,9 +221,9 @@ toBit CursorNotifyMaskDisplayCursor{} = 0 fromBit 0 = CursorNotifyMaskDisplayCursor -data CursorNotify = MkCursorNotify{subtype_CursorNotify :: CARD8,+data CursorNotify = MkCursorNotify{subtype_CursorNotify :: Word8, window_CursorNotify :: WINDOW,- cursor_serial_CursorNotify :: CARD32,+ cursor_serial_CursorNotify :: Word32, timestamp_CursorNotify :: TIMESTAMP, name_CursorNotify :: ATOM} deriving (Show, Typeable) @@ -242,7 +243,7 @@ data SelectCursorInput = MkSelectCursorInput{window_SelectCursorInput :: WINDOW,- event_mask_SelectCursorInput :: CARD32}+ event_mask_SelectCursorInput :: Word32} deriving (Show, Typeable) instance ExtensionRequest SelectCursorInput where@@ -253,7 +254,7 @@ let size__ = 4 + size (window_SelectCursorInput x) + size (event_mask_SelectCursorInput x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_SelectCursorInput x) serialize (event_mask_SelectCursorInput x) putSkip (requiredPadding size__)@@ -267,18 +268,18 @@ = do putWord8 extOpCode putWord8 4 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data GetCursorImageReply = MkGetCursorImageReply{x_GetCursorImageReply- :: INT16,- y_GetCursorImageReply :: INT16,- width_GetCursorImageReply :: CARD16,- height_GetCursorImageReply :: CARD16,- xhot_GetCursorImageReply :: CARD16,- yhot_GetCursorImageReply :: CARD16,- cursor_serial_GetCursorImageReply :: CARD32,- cursor_image_GetCursorImageReply :: [CARD32]}+ :: Int16,+ y_GetCursorImageReply :: Int16,+ width_GetCursorImageReply :: Word16,+ height_GetCursorImageReply :: Word16,+ xhot_GetCursorImageReply :: Word16,+ yhot_GetCursorImageReply :: Word16,+ cursor_serial_GetCursorImageReply :: Word32,+ cursor_image_GetCursorImageReply :: [Word32]} deriving (Show, Typeable) instance Deserialize GetCursorImageReply where@@ -317,7 +318,7 @@ let size__ = 4 + size (region_CreateRegion x) + sum (map size (rectangles_CreateRegion x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (region_CreateRegion x) serializeList (rectangles_CreateRegion x) putSkip (requiredPadding size__)@@ -335,7 +336,7 @@ let size__ = 4 + size (region_CreateRegionFromBitmap x) + size (bitmap_CreateRegionFromBitmap x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (region_CreateRegionFromBitmap x) serialize (bitmap_CreateRegionFromBitmap x) putSkip (requiredPadding size__)@@ -357,7 +358,7 @@ size (window_CreateRegionFromWindow x) + size (kind_CreateRegionFromWindow x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (region_CreateRegionFromWindow x) serialize (window_CreateRegionFromWindow x) serialize (kind_CreateRegionFromWindow x)@@ -377,7 +378,7 @@ let size__ = 4 + size (region_CreateRegionFromGC x) + size (gc_CreateRegionFromGC x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (region_CreateRegionFromGC x) serialize (gc_CreateRegionFromGC x) putSkip (requiredPadding size__)@@ -395,7 +396,7 @@ let size__ = 4 + size (region_CreateRegionFromPicture x) + size (picture_CreateRegionFromPicture x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (region_CreateRegionFromPicture x) serialize (picture_CreateRegionFromPicture x) putSkip (requiredPadding size__)@@ -410,7 +411,7 @@ = do putWord8 extOpCode putWord8 10 let size__ = 4 + size (region_DestroyRegion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (region_DestroyRegion x) putSkip (requiredPadding size__) @@ -426,7 +427,7 @@ let size__ = 4 + size (region_SetRegion x) + sum (map size (rectangles_SetRegion x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (region_SetRegion x) serializeList (rectangles_SetRegion x) putSkip (requiredPadding size__)@@ -442,7 +443,7 @@ putWord8 12 let size__ = 4 + size (source_CopyRegion x) + size (destination_CopyRegion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (source_CopyRegion x) serialize (destination_CopyRegion x) putSkip (requiredPadding size__)@@ -459,7 +460,7 @@ let size__ = 4 + size (source1_UnionRegion x) + size (source2_UnionRegion x) + size (destination_UnionRegion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (source1_UnionRegion x) serialize (source2_UnionRegion x) serialize (destination_UnionRegion x)@@ -480,7 +481,7 @@ = 4 + size (source1_IntersectRegion x) + size (source2_IntersectRegion x) + size (destination_IntersectRegion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (source1_IntersectRegion x) serialize (source2_IntersectRegion x) serialize (destination_IntersectRegion x)@@ -501,7 +502,7 @@ = 4 + size (source1_SubtractRegion x) + size (source2_SubtractRegion x) + size (destination_SubtractRegion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (source1_SubtractRegion x) serialize (source2_SubtractRegion x) serialize (destination_SubtractRegion x)@@ -520,7 +521,7 @@ let size__ = 4 + size (source_InvertRegion x) + size (bounds_InvertRegion x) + size (destination_InvertRegion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (source_InvertRegion x) serialize (bounds_InvertRegion x) serialize (destination_InvertRegion x)@@ -528,7 +529,7 @@ data TranslateRegion = MkTranslateRegion{region_TranslateRegion :: REGION,- dx_TranslateRegion :: INT16, dy_TranslateRegion :: INT16}+ dx_TranslateRegion :: Int16, dy_TranslateRegion :: Int16} deriving (Show, Typeable) instance ExtensionRequest TranslateRegion where@@ -539,7 +540,7 @@ let size__ = 4 + size (region_TranslateRegion x) + size (dx_TranslateRegion x) + size (dy_TranslateRegion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (region_TranslateRegion x) serialize (dx_TranslateRegion x) serialize (dy_TranslateRegion x)@@ -558,7 +559,7 @@ let size__ = 4 + size (source_RegionExtents x) + size (destination_RegionExtents x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (source_RegionExtents x) serialize (destination_RegionExtents x) putSkip (requiredPadding size__)@@ -572,7 +573,7 @@ = do putWord8 extOpCode putWord8 19 let size__ = 4 + size (region_FetchRegion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (region_FetchRegion x) putSkip (requiredPadding size__) @@ -596,8 +597,8 @@ data SetGCClipRegion = MkSetGCClipRegion{gc_SetGCClipRegion :: GCONTEXT, region_SetGCClipRegion :: REGION,- x_origin_SetGCClipRegion :: INT16,- y_origin_SetGCClipRegion :: INT16}+ x_origin_SetGCClipRegion :: Int16,+ y_origin_SetGCClipRegion :: Int16} deriving (Show, Typeable) instance ExtensionRequest SetGCClipRegion where@@ -609,7 +610,7 @@ = 4 + size (gc_SetGCClipRegion x) + size (region_SetGCClipRegion x) + size (x_origin_SetGCClipRegion x) + size (y_origin_SetGCClipRegion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (gc_SetGCClipRegion x) serialize (region_SetGCClipRegion x) serialize (x_origin_SetGCClipRegion x)@@ -620,8 +621,8 @@ :: WINDOW, dest_kind_SetWindowShapeRegion :: Graphics.XHB.Gen.Shape.Types.KIND,- x_offset_SetWindowShapeRegion :: INT16,- y_offset_SetWindowShapeRegion :: INT16,+ x_offset_SetWindowShapeRegion :: Int16,+ y_offset_SetWindowShapeRegion :: Int16, region_SetWindowShapeRegion :: REGION} deriving (Show, Typeable) @@ -637,7 +638,7 @@ + size (x_offset_SetWindowShapeRegion x) + size (y_offset_SetWindowShapeRegion x) + size (region_SetWindowShapeRegion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (dest_SetWindowShapeRegion x) serialize (dest_kind_SetWindowShapeRegion x) putSkip 3@@ -649,8 +650,8 @@ data SetPictureClipRegion = MkSetPictureClipRegion{picture_SetPictureClipRegion :: PICTURE, region_SetPictureClipRegion :: REGION,- x_origin_SetPictureClipRegion :: INT16,- y_origin_SetPictureClipRegion :: INT16}+ x_origin_SetPictureClipRegion :: Int16,+ y_origin_SetPictureClipRegion :: Int16} deriving (Show, Typeable) instance ExtensionRequest SetPictureClipRegion where@@ -663,7 +664,7 @@ size (region_SetPictureClipRegion x) + size (x_origin_SetPictureClipRegion x) + size (y_origin_SetPictureClipRegion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (picture_SetPictureClipRegion x) serialize (region_SetPictureClipRegion x) serialize (x_origin_SetPictureClipRegion x)@@ -672,7 +673,7 @@ data SetCursorName = MkSetCursorName{cursor_SetCursorName :: CURSOR,- nbytes_SetCursorName :: CARD16, name_SetCursorName :: [CChar]}+ nbytes_SetCursorName :: Word16, name_SetCursorName :: [CChar]} deriving (Show, Typeable) instance ExtensionRequest SetCursorName where@@ -684,7 +685,7 @@ = 4 + size (cursor_SetCursorName x) + size (nbytes_SetCursorName x) + 2 + sum (map size (name_SetCursorName x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (cursor_SetCursorName x) serialize (nbytes_SetCursorName x) putSkip 2@@ -701,13 +702,13 @@ = do putWord8 extOpCode putWord8 24 let size__ = 4 + size (cursor_GetCursorName x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (cursor_GetCursorName x) putSkip (requiredPadding size__) data GetCursorNameReply = MkGetCursorNameReply{atom_GetCursorNameReply :: ATOM,- nbytes_GetCursorNameReply :: CARD16,+ nbytes_GetCursorNameReply :: Word16, name_GetCursorNameReply :: [CChar]} deriving (Show, Typeable) @@ -733,31 +734,31 @@ = do putWord8 extOpCode putWord8 25 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data GetCursorImageAndNameReply = MkGetCursorImageAndNameReply{x_GetCursorImageAndNameReply- :: INT16,+ :: Int16, y_GetCursorImageAndNameReply ::- INT16,+ Int16, width_GetCursorImageAndNameReply ::- CARD16,+ Word16, height_GetCursorImageAndNameReply ::- CARD16,+ Word16, xhot_GetCursorImageAndNameReply ::- CARD16,+ Word16, yhot_GetCursorImageAndNameReply ::- CARD16,+ Word16, cursor_serial_GetCursorImageAndNameReply- :: CARD32,+ :: Word32, cursor_atom_GetCursorImageAndNameReply :: ATOM, nbytes_GetCursorImageAndNameReply ::- CARD16,+ Word16, name_GetCursorImageAndNameReply :: [CChar], cursor_image_GetCursorImageAndNameReply- :: [CARD32]}+ :: [Word32]} deriving (Show, Typeable) instance Deserialize GetCursorImageAndNameReply where@@ -800,14 +801,14 @@ let size__ = 4 + size (source_ChangeCursor x) + size (destination_ChangeCursor x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (source_ChangeCursor x) serialize (destination_ChangeCursor x) putSkip (requiredPadding size__) data ChangeCursorByName = MkChangeCursorByName{src_ChangeCursorByName :: CURSOR,- nbytes_ChangeCursorByName :: CARD16,+ nbytes_ChangeCursorByName :: Word16, name_ChangeCursorByName :: [CChar]} deriving (Show, Typeable) @@ -821,7 +822,7 @@ size (nbytes_ChangeCursorByName x) + 2 + sum (map size (name_ChangeCursorByName x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (src_ChangeCursorByName x) serialize (nbytes_ChangeCursorByName x) putSkip 2@@ -829,9 +830,9 @@ putSkip (requiredPadding size__) data ExpandRegion = MkExpandRegion{source_ExpandRegion :: REGION,- destination_ExpandRegion :: REGION, left_ExpandRegion :: CARD16,- right_ExpandRegion :: CARD16, top_ExpandRegion :: CARD16,- bottom_ExpandRegion :: CARD16}+ destination_ExpandRegion :: REGION, left_ExpandRegion :: Word16,+ right_ExpandRegion :: Word16, top_ExpandRegion :: Word16,+ bottom_ExpandRegion :: Word16} deriving (Show, Typeable) instance ExtensionRequest ExpandRegion where@@ -846,7 +847,7 @@ + size (right_ExpandRegion x) + size (top_ExpandRegion x) + size (bottom_ExpandRegion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (source_ExpandRegion x) serialize (destination_ExpandRegion x) serialize (left_ExpandRegion x)@@ -864,7 +865,7 @@ = do putWord8 extOpCode putWord8 29 let size__ = 4 + size (window_HideCursor x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_HideCursor x) putSkip (requiredPadding size__) @@ -877,6 +878,6 @@ = do putWord8 extOpCode putWord8 30 let size__ = 4 + size (window_ShowCursor x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_ShowCursor x) putSkip (requiredPadding size__)
patched/Graphics/XHB/Gen/XPrint.hs view
@@ -14,6 +14,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -27,21 +30,21 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt PrintQueryVersionReply) printQueryVersion c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkPrintQueryVersion putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt printGetPrinterList :: Graphics.XHB.Connection.Types.Connection -> PrintGetPrinterList -> IO (Receipt PrintGetPrinterListReply) printGetPrinterList c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt createContext ::@@ -52,7 +55,7 @@ sendRequest c chunk printSetContext ::- Graphics.XHB.Connection.Types.Connection -> CARD32 -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Word32 -> IO () printSetContext c context = do let req = MkPrintSetContext context putAction <- serializeExtensionRequest c req@@ -60,18 +63,18 @@ sendRequest c chunk printGetContext ::- Graphics.XHB.Connection.Types.Connection ->- IO (Receipt PrintGetContextReply)+ Graphics.XHB.Connection.Types.Connection -> IO (Receipt Word32) printGetContext c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (context_PrintGetContextReply `fmap` deserialize)) let req = MkPrintGetContext putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt printDestroyContext ::- Graphics.XHB.Connection.Types.Connection -> CARD32 -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Word32 -> IO () printDestroyContext c context = do let req = MkPrintDestroyContext context putAction <- serializeExtensionRequest c req@@ -79,18 +82,18 @@ sendRequest c chunk printGetScreenOfContext ::- Graphics.XHB.Connection.Types.Connection ->- IO (Receipt PrintGetScreenOfContextReply)+ Graphics.XHB.Connection.Types.Connection -> IO (Receipt WINDOW) printGetScreenOfContext c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (root_PrintGetScreenOfContextReply `fmap` deserialize)) let req = MkPrintGetScreenOfContext putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt printStartJob ::- Graphics.XHB.Connection.Types.Connection -> CARD8 -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Word8 -> IO () printStartJob c output_mode = do let req = MkPrintStartJob output_mode putAction <- serializeExtensionRequest c req@@ -98,7 +101,7 @@ sendRequest c chunk printEndJob ::- Graphics.XHB.Connection.Types.Connection -> BOOL -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Bool -> IO () printEndJob c cancel = do let req = MkPrintEndJob cancel putAction <- serializeExtensionRequest c req@@ -106,7 +109,7 @@ sendRequest c chunk printStartDoc ::- Graphics.XHB.Connection.Types.Connection -> CARD8 -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Word8 -> IO () printStartDoc c driver_mode = do let req = MkPrintStartDoc driver_mode putAction <- serializeExtensionRequest c req@@ -114,7 +117,7 @@ sendRequest c chunk printEndDoc ::- Graphics.XHB.Connection.Types.Connection -> BOOL -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Bool -> IO () printEndDoc c cancel = do let req = MkPrintEndDoc cancel putAction <- serializeExtensionRequest c req@@ -131,13 +134,13 @@ printGetDocumentData :: Graphics.XHB.Connection.Types.Connection ->- PCONTEXT -> CARD32 -> IO (Receipt PrintGetDocumentDataReply)+ PCONTEXT -> Word32 -> IO (Receipt PrintGetDocumentDataReply) printGetDocumentData c context max_bytes- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkPrintGetDocumentData context max_bytes putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt printStartPage ::@@ -149,7 +152,7 @@ sendRequest c chunk printEndPage ::- Graphics.XHB.Connection.Types.Connection -> BOOL -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Bool -> IO () printEndPage c cancel = do let req = MkPrintEndPage cancel putAction <- serializeExtensionRequest c req@@ -158,7 +161,7 @@ printSelectInput :: Graphics.XHB.Connection.Types.Connection ->- PCONTEXT -> ValueParam CARD32 -> IO ()+ PCONTEXT -> ValueParam Word32 -> IO () printSelectInput c context event = do let req = MkPrintSelectInput context event putAction <- serializeExtensionRequest c req@@ -169,32 +172,32 @@ Graphics.XHB.Connection.Types.Connection -> PCONTEXT -> IO (Receipt PrintInputSelectedReply) printInputSelected c context- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkPrintInputSelected context putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt printGetAttributes :: Graphics.XHB.Connection.Types.Connection ->- PCONTEXT -> CARD8 -> IO (Receipt PrintGetAttributesReply)+ PCONTEXT -> Word8 -> IO (Receipt PrintGetAttributesReply) printGetAttributes c context pool- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkPrintGetAttributes context pool putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt printGetOneAttributes :: Graphics.XHB.Connection.Types.Connection -> PrintGetOneAttributes -> IO (Receipt PrintGetOneAttributesReply) printGetOneAttributes c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt printSetAttributes ::@@ -209,42 +212,45 @@ Graphics.XHB.Connection.Types.Connection -> PCONTEXT -> IO (Receipt PrintGetPageDimensionsReply) printGetPageDimensions c context- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkPrintGetPageDimensions context putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt printQueryScreens :: Graphics.XHB.Connection.Types.Connection -> IO (Receipt PrintQueryScreensReply) printQueryScreens c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkPrintQueryScreens putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt printSetImageResolution :: Graphics.XHB.Connection.Types.Connection ->- PCONTEXT -> CARD16 -> IO (Receipt PrintSetImageResolutionReply)+ PCONTEXT -> Word16 -> IO (Receipt PrintSetImageResolutionReply) printSetImageResolution c context image_resolution- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkPrintSetImageResolution context image_resolution putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt printGetImageResolution :: Graphics.XHB.Connection.Types.Connection ->- PCONTEXT -> IO (Receipt PrintGetImageResolutionReply)+ PCONTEXT -> IO (Receipt Word16) printGetImageResolution c context- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet+ (image_resolution_PrintGetImageResolutionReply `fmap`+ deserialize)) let req = MkPrintGetImageResolution context putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/XPrint/Types.hs view
@@ -20,6 +20,7 @@ PrintGetImageResolutionReply(..), Notify(..), AttributNotify(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -46,8 +47,8 @@ type STRING8 = CChar -data PRINTER = MkPRINTER{nameLen_PRINTER :: CARD32,- name_PRINTER :: [STRING8], descLen_PRINTER :: CARD32,+data PRINTER = MkPRINTER{nameLen_PRINTER :: Word32,+ name_PRINTER :: [STRING8], descLen_PRINTER :: Word32, description_PRINTER :: [STRING8]} deriving (Show, Typeable) @@ -145,13 +146,13 @@ = do putWord8 extOpCode putWord8 0 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data PrintQueryVersionReply = MkPrintQueryVersionReply{major_version_PrintQueryVersionReply- :: CARD16,+ :: Word16, minor_version_PrintQueryVersionReply ::- CARD16}+ Word16} deriving (Show, Typeable) instance Deserialize PrintQueryVersionReply where@@ -166,8 +167,8 @@ return (MkPrintQueryVersionReply major_version minor_version) data PrintGetPrinterList = MkPrintGetPrinterList{printerNameLen_PrintGetPrinterList- :: CARD32,- localeLen_PrintGetPrinterList :: CARD32,+ :: Word32,+ localeLen_PrintGetPrinterList :: Word32, printer_name_PrintGetPrinterList :: [STRING8], locale_PrintGetPrinterList :: [STRING8]} deriving (Show, Typeable)@@ -182,7 +183,7 @@ size (localeLen_PrintGetPrinterList x) + sum (map size (printer_name_PrintGetPrinterList x)) + sum (map size (locale_PrintGetPrinterList x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (printerNameLen_PrintGetPrinterList x) serialize (localeLen_PrintGetPrinterList x) serializeList (printer_name_PrintGetPrinterList x)@@ -190,7 +191,7 @@ putSkip (requiredPadding size__) data PrintGetPrinterListReply = MkPrintGetPrinterListReply{listCount_PrintGetPrinterListReply- :: CARD32,+ :: Word32, printers_PrintGetPrinterListReply :: [PRINTER]} deriving (Show, Typeable)@@ -208,9 +209,9 @@ return (MkPrintGetPrinterListReply listCount printers) data CreateContext = MkCreateContext{context_id_CreateContext ::- CARD32,- printerNameLen_CreateContext :: CARD32,- localeLen_CreateContext :: CARD32,+ Word32,+ printerNameLen_CreateContext :: Word32,+ localeLen_CreateContext :: Word32, printerName_CreateContext :: [STRING8], locale_CreateContext :: [STRING8]} deriving (Show, Typeable)@@ -226,7 +227,7 @@ + size (localeLen_CreateContext x) + sum (map size (printerName_CreateContext x)) + sum (map size (locale_CreateContext x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_id_CreateContext x) serialize (printerNameLen_CreateContext x) serialize (localeLen_CreateContext x)@@ -235,7 +236,7 @@ putSkip (requiredPadding size__) data PrintSetContext = MkPrintSetContext{context_PrintSetContext ::- CARD32}+ Word32} deriving (Show, Typeable) instance ExtensionRequest PrintSetContext where@@ -244,7 +245,7 @@ = do putWord8 extOpCode putWord8 3 let size__ = 4 + size (context_PrintSetContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_PrintSetContext x) putSkip (requiredPadding size__) @@ -257,11 +258,11 @@ = do putWord8 extOpCode putWord8 4 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data PrintGetContextReply = MkPrintGetContextReply{context_PrintGetContextReply- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance Deserialize PrintGetContextReply where@@ -275,7 +276,7 @@ return (MkPrintGetContextReply context) data PrintDestroyContext = MkPrintDestroyContext{context_PrintDestroyContext- :: CARD32}+ :: Word32} deriving (Show, Typeable) instance ExtensionRequest PrintDestroyContext where@@ -284,7 +285,7 @@ = do putWord8 extOpCode putWord8 5 let size__ = 4 + size (context_PrintDestroyContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_PrintDestroyContext x) putSkip (requiredPadding size__) @@ -297,7 +298,7 @@ = do putWord8 extOpCode putWord8 6 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data PrintGetScreenOfContextReply = MkPrintGetScreenOfContextReply{root_PrintGetScreenOfContextReply@@ -315,7 +316,7 @@ return (MkPrintGetScreenOfContextReply root) data PrintStartJob = MkPrintStartJob{output_mode_PrintStartJob ::- CARD8}+ Word8} deriving (Show, Typeable) instance ExtensionRequest PrintStartJob where@@ -324,11 +325,11 @@ = do putWord8 extOpCode putWord8 7 let size__ = 4 + size (output_mode_PrintStartJob x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (output_mode_PrintStartJob x) putSkip (requiredPadding size__) -data PrintEndJob = MkPrintEndJob{cancel_PrintEndJob :: BOOL}+data PrintEndJob = MkPrintEndJob{cancel_PrintEndJob :: Bool} deriving (Show, Typeable) instance ExtensionRequest PrintEndJob where@@ -337,12 +338,12 @@ = do putWord8 extOpCode putWord8 8 let size__ = 4 + size (cancel_PrintEndJob x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (cancel_PrintEndJob x) putSkip (requiredPadding size__) data PrintStartDoc = MkPrintStartDoc{driver_mode_PrintStartDoc ::- CARD8}+ Word8} deriving (Show, Typeable) instance ExtensionRequest PrintStartDoc where@@ -351,11 +352,11 @@ = do putWord8 extOpCode putWord8 9 let size__ = 4 + size (driver_mode_PrintStartDoc x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (driver_mode_PrintStartDoc x) putSkip (requiredPadding size__) -data PrintEndDoc = MkPrintEndDoc{cancel_PrintEndDoc :: BOOL}+data PrintEndDoc = MkPrintEndDoc{cancel_PrintEndDoc :: Bool} deriving (Show, Typeable) instance ExtensionRequest PrintEndDoc where@@ -364,16 +365,16 @@ = do putWord8 extOpCode putWord8 10 let size__ = 4 + size (cancel_PrintEndDoc x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (cancel_PrintEndDoc x) putSkip (requiredPadding size__) data PrintPutDocumentData = MkPrintPutDocumentData{drawable_PrintPutDocumentData :: DRAWABLE,- len_data_PrintPutDocumentData :: CARD32,- len_fmt_PrintPutDocumentData :: CARD16,- len_options_PrintPutDocumentData :: CARD16,- data_PrintPutDocumentData :: [BYTE],+ len_data_PrintPutDocumentData :: Word32,+ len_fmt_PrintPutDocumentData :: Word16,+ len_options_PrintPutDocumentData :: Word16,+ data_PrintPutDocumentData :: [Word8], doc_format_PrintPutDocumentData :: [STRING8], options_PrintPutDocumentData :: [STRING8]} deriving (Show, Typeable)@@ -391,7 +392,7 @@ + sum (map size (data_PrintPutDocumentData x)) + sum (map size (doc_format_PrintPutDocumentData x)) + sum (map size (options_PrintPutDocumentData x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (drawable_PrintPutDocumentData x) serialize (len_data_PrintPutDocumentData x) serialize (len_fmt_PrintPutDocumentData x)@@ -403,7 +404,7 @@ data PrintGetDocumentData = MkPrintGetDocumentData{context_PrintGetDocumentData :: PCONTEXT,- max_bytes_PrintGetDocumentData :: CARD32}+ max_bytes_PrintGetDocumentData :: Word32} deriving (Show, Typeable) instance ExtensionRequest PrintGetDocumentData where@@ -414,19 +415,19 @@ let size__ = 4 + size (context_PrintGetDocumentData x) + size (max_bytes_PrintGetDocumentData x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_PrintGetDocumentData x) serialize (max_bytes_PrintGetDocumentData x) putSkip (requiredPadding size__) data PrintGetDocumentDataReply = MkPrintGetDocumentDataReply{status_code_PrintGetDocumentDataReply- :: CARD32,+ :: Word32, finished_flag_PrintGetDocumentDataReply- :: CARD32,+ :: Word32, dataLen_PrintGetDocumentDataReply ::- CARD32,+ Word32, data_PrintGetDocumentDataReply ::- [BYTE]}+ [Word8]} deriving (Show, Typeable) instance Deserialize PrintGetDocumentDataReply where@@ -455,11 +456,11 @@ = do putWord8 extOpCode putWord8 13 let size__ = 4 + size (window_PrintStartPage x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_PrintStartPage x) putSkip (requiredPadding size__) -data PrintEndPage = MkPrintEndPage{cancel_PrintEndPage :: BOOL}+data PrintEndPage = MkPrintEndPage{cancel_PrintEndPage :: Bool} deriving (Show, Typeable) instance ExtensionRequest PrintEndPage where@@ -468,14 +469,14 @@ = do putWord8 extOpCode putWord8 14 let size__ = 4 + size (cancel_PrintEndPage x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (cancel_PrintEndPage x) putSkip 3 putSkip (requiredPadding size__) data PrintSelectInput = MkPrintSelectInput{context_PrintSelectInput :: PCONTEXT,- event_PrintSelectInput :: ValueParam CARD32}+ event_PrintSelectInput :: ValueParam Word32} deriving (Show, Typeable) instance ExtensionRequest PrintSelectInput where@@ -486,7 +487,7 @@ let size__ = 4 + size (context_PrintSelectInput x) + size (event_PrintSelectInput x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_PrintSelectInput x) serialize (event_PrintSelectInput x) putSkip (requiredPadding size__)@@ -501,14 +502,14 @@ = do putWord8 extOpCode putWord8 16 let size__ = 4 + size (context_PrintInputSelected x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_PrintInputSelected x) putSkip (requiredPadding size__) data PrintInputSelectedReply = MkPrintInputSelectedReply{event_PrintInputSelectedReply- :: ValueParam CARD32,+ :: ValueParam Word32, all_events_PrintInputSelectedReply ::- ValueParam CARD32}+ ValueParam Word32} deriving (Show, Typeable) instance Deserialize PrintInputSelectedReply where@@ -524,7 +525,7 @@ data PrintGetAttributes = MkPrintGetAttributes{context_PrintGetAttributes :: PCONTEXT,- pool_PrintGetAttributes :: CARD8}+ pool_PrintGetAttributes :: Word8} deriving (Show, Typeable) instance ExtensionRequest PrintGetAttributes where@@ -536,14 +537,14 @@ = 4 + size (context_PrintGetAttributes x) + size (pool_PrintGetAttributes x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_PrintGetAttributes x) serialize (pool_PrintGetAttributes x) putSkip 3 putSkip (requiredPadding size__) data PrintGetAttributesReply = MkPrintGetAttributesReply{stringLen_PrintGetAttributesReply- :: CARD32,+ :: Word32, attributes_PrintGetAttributesReply :: STRING8} deriving (Show, Typeable)@@ -562,8 +563,8 @@ data PrintGetOneAttributes = MkPrintGetOneAttributes{context_PrintGetOneAttributes :: PCONTEXT,- nameLen_PrintGetOneAttributes :: CARD32,- pool_PrintGetOneAttributes :: CARD8,+ nameLen_PrintGetOneAttributes :: Word32,+ pool_PrintGetOneAttributes :: Word8, name_PrintGetOneAttributes :: [STRING8]} deriving (Show, Typeable) @@ -578,7 +579,7 @@ + size (pool_PrintGetOneAttributes x) + 3 + sum (map size (name_PrintGetOneAttributes x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_PrintGetOneAttributes x) serialize (nameLen_PrintGetOneAttributes x) serialize (pool_PrintGetOneAttributes x)@@ -587,7 +588,7 @@ putSkip (requiredPadding size__) data PrintGetOneAttributesReply = MkPrintGetOneAttributesReply{valueLen_PrintGetOneAttributesReply- :: CARD32,+ :: Word32, value_PrintGetOneAttributesReply :: [STRING8]} deriving (Show, Typeable)@@ -606,9 +607,9 @@ data PrintSetAttributes = MkPrintSetAttributes{context_PrintSetAttributes :: PCONTEXT,- stringLen_PrintSetAttributes :: CARD32,- pool_PrintSetAttributes :: CARD8,- rule_PrintSetAttributes :: CARD8,+ stringLen_PrintSetAttributes :: Word32,+ pool_PrintSetAttributes :: Word8,+ rule_PrintSetAttributes :: Word8, attributes_PrintSetAttributes :: [STRING8]} deriving (Show, Typeable) @@ -624,7 +625,7 @@ + size (rule_PrintSetAttributes x) + 2 + sum (map size (attributes_PrintSetAttributes x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_PrintSetAttributes x) serialize (stringLen_PrintSetAttributes x) serialize (pool_PrintSetAttributes x)@@ -643,22 +644,22 @@ = do putWord8 extOpCode putWord8 21 let size__ = 4 + size (context_PrintGetPageDimensions x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_PrintGetPageDimensions x) putSkip (requiredPadding size__) data PrintGetPageDimensionsReply = MkPrintGetPageDimensionsReply{width_PrintGetPageDimensionsReply- :: CARD16,+ :: Word16, height_PrintGetPageDimensionsReply- :: CARD16,+ :: Word16, offset_x_PrintGetPageDimensionsReply- :: CARD16,+ :: Word16, offset_y_PrintGetPageDimensionsReply- :: CARD16,+ :: Word16, reproducible_width_PrintGetPageDimensionsReply- :: CARD16,+ :: Word16, reproducible_height_PrintGetPageDimensionsReply- :: CARD16}+ :: Word16} deriving (Show, Typeable) instance Deserialize PrintGetPageDimensionsReply where@@ -688,11 +689,11 @@ = do putWord8 extOpCode putWord8 22 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data PrintQueryScreensReply = MkPrintQueryScreensReply{listCount_PrintQueryScreensReply- :: CARD32,+ :: Word32, roots_PrintQueryScreensReply :: [WINDOW]} deriving (Show, Typeable) @@ -711,7 +712,7 @@ data PrintSetImageResolution = MkPrintSetImageResolution{context_PrintSetImageResolution :: PCONTEXT, image_resolution_PrintSetImageResolution ::- CARD16}+ Word16} deriving (Show, Typeable) instance ExtensionRequest PrintSetImageResolution where@@ -722,15 +723,15 @@ let size__ = 4 + size (context_PrintSetImageResolution x) + size (image_resolution_PrintSetImageResolution x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_PrintSetImageResolution x) serialize (image_resolution_PrintSetImageResolution x) putSkip (requiredPadding size__) data PrintSetImageResolutionReply = MkPrintSetImageResolutionReply{status_PrintSetImageResolutionReply- :: BOOL,+ :: Bool, previous_resolutions_PrintSetImageResolutionReply- :: CARD16}+ :: Word16} deriving (Show, Typeable) instance Deserialize PrintSetImageResolutionReply where@@ -753,12 +754,12 @@ = do putWord8 extOpCode putWord8 24 let size__ = 4 + size (context_PrintGetImageResolution x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_PrintGetImageResolution x) putSkip (requiredPadding size__) data PrintGetImageResolutionReply = MkPrintGetImageResolutionReply{image_resolution_PrintGetImageResolutionReply- :: CARD16}+ :: Word16} deriving (Show, Typeable) instance Deserialize PrintGetImageResolutionReply where@@ -771,8 +772,8 @@ let _ = isCard32 length return (MkPrintGetImageResolutionReply image_resolution) -data Notify = MkNotify{detail_Notify :: CARD8,- context_Notify :: PCONTEXT, cancel_Notify :: BOOL}+data Notify = MkNotify{detail_Notify :: Word8,+ context_Notify :: PCONTEXT, cancel_Notify :: Bool} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event Notify@@ -787,7 +788,7 @@ return (MkNotify detail context cancel) data AttributNotify = MkAttributNotify{detail_AttributNotify ::- CARD8,+ Word8, context_AttributNotify :: PCONTEXT} deriving (Show, Typeable)
patched/Graphics/XHB/Gen/Xevie.hs view
@@ -8,6 +8,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) @@ -16,55 +19,55 @@ queryVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD16 -> CARD16 -> IO (Receipt QueryVersionReply)+ Word16 -> Word16 -> IO (Receipt QueryVersionReply) queryVersion c client_major_version client_minor_version- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion client_major_version client_minor_version putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt start :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt StartReply)+ Word32 -> IO (Receipt StartReply) start c screen- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkStart screen putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt end :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt EndReply)+ Word32 -> IO (Receipt EndReply) end c cmap- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkEnd cmap putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt send :: Graphics.XHB.Connection.Types.Connection ->- Event -> CARD32 -> IO (Receipt SendReply)+ Event -> Word32 -> IO (Receipt SendReply) send c event data_type- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkSend event data_type putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt selectInput :: Graphics.XHB.Connection.Types.Connection ->- CARD32 -> IO (Receipt SelectInputReply)+ Word32 -> IO (Receipt SelectInputReply) selectInput c event_mask- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkSelectInput event_mask putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/Xevie/Types.hs view
@@ -5,6 +5,7 @@ SelectInput(..), SelectInputReply(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -23,8 +24,8 @@ deserializeEvent _ = Nothing data QueryVersion = MkQueryVersion{client_major_version_QueryVersion- :: CARD16,- client_minor_version_QueryVersion :: CARD16}+ :: Word16,+ client_minor_version_QueryVersion :: Word16} deriving (Show, Typeable) instance ExtensionRequest QueryVersion where@@ -35,14 +36,14 @@ let size__ = 4 + size (client_major_version_QueryVersion x) + size (client_minor_version_QueryVersion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (client_major_version_QueryVersion x) serialize (client_minor_version_QueryVersion x) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{server_major_version_QueryVersionReply- :: CARD16,- server_minor_version_QueryVersionReply :: CARD16}+ :: Word16,+ server_minor_version_QueryVersionReply :: Word16} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -58,7 +59,7 @@ return (MkQueryVersionReply server_major_version server_minor_version) -data Start = MkStart{screen_Start :: CARD32}+data Start = MkStart{screen_Start :: Word32} deriving (Show, Typeable) instance ExtensionRequest Start where@@ -67,7 +68,7 @@ = do putWord8 extOpCode putWord8 1 let size__ = 4 + size (screen_Start x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (screen_Start x) putSkip (requiredPadding size__) @@ -84,7 +85,7 @@ let _ = isCard32 length return (MkStartReply) -data End = MkEnd{cmap_End :: CARD32}+data End = MkEnd{cmap_End :: Word32} deriving (Show, Typeable) instance ExtensionRequest End where@@ -93,7 +94,7 @@ = do putWord8 extOpCode putWord8 2 let size__ = 4 + size (cmap_End x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (cmap_End x) putSkip (requiredPadding size__) @@ -131,7 +132,7 @@ = do skip 32 return (MkEvent) -data Send = MkSend{event_Send :: Event, data_type_Send :: CARD32}+data Send = MkSend{event_Send :: Event, data_type_Send :: Word32} deriving (Show, Typeable) instance ExtensionRequest Send where@@ -140,7 +141,7 @@ = do putWord8 extOpCode putWord8 3 let size__ = 4 + size (event_Send x) + size (data_type_Send x) + 64- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (event_Send x) serialize (data_type_Send x) putSkip 64@@ -159,7 +160,7 @@ let _ = isCard32 length return (MkSendReply) -data SelectInput = MkSelectInput{event_mask_SelectInput :: CARD32}+data SelectInput = MkSelectInput{event_mask_SelectInput :: Word32} deriving (Show, Typeable) instance ExtensionRequest SelectInput where@@ -168,7 +169,7 @@ = do putWord8 extOpCode putWord8 4 let size__ = 4 + size (event_mask_SelectInput x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (event_mask_SelectInput x) putSkip (requiredPadding size__)
patched/Graphics/XHB/Gen/Xinerama.hs view
@@ -8,6 +8,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -19,66 +22,66 @@ queryVersion :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)+ Word8 -> Word8 -> IO (Receipt QueryVersionReply) queryVersion c major minor- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion major minor putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getState :: Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt GetStateReply) getState c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetState window putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getScreenCount :: Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt GetScreenCountReply) getScreenCount c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetScreenCount window putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getScreenSize :: Graphics.XHB.Connection.Types.Connection ->- WINDOW -> CARD32 -> IO (Receipt GetScreenSizeReply)+ WINDOW -> Word32 -> IO (Receipt GetScreenSizeReply) getScreenSize c window screen- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetScreenSize window screen putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt isActive ::- Graphics.XHB.Connection.Types.Connection ->- IO (Receipt IsActiveReply)+ Graphics.XHB.Connection.Types.Connection -> IO (Receipt Word32) isActive c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (state_IsActiveReply `fmap` deserialize)) let req = MkIsActive putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryScreens :: Graphics.XHB.Connection.Types.Connection -> IO (Receipt QueryScreensReply) queryScreens c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryScreens putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/Xinerama/Types.hs view
@@ -6,6 +6,7 @@ IsActiveReply(..), QueryScreens(..), QueryScreensReply(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -26,9 +27,9 @@ deserializeEvent :: Word8 -> Maybe (Get SomeEvent) deserializeEvent _ = Nothing -data ScreenInfo = MkScreenInfo{x_org_ScreenInfo :: INT16,- y_org_ScreenInfo :: INT16, width_ScreenInfo :: CARD16,- height_ScreenInfo :: CARD16}+data ScreenInfo = MkScreenInfo{x_org_ScreenInfo :: Int16,+ y_org_ScreenInfo :: Int16, width_ScreenInfo :: Word16,+ height_ScreenInfo :: Word16} deriving (Show, Typeable) instance Serialize ScreenInfo where@@ -50,8 +51,8 @@ height <- deserialize return (MkScreenInfo x_org y_org width height) -data QueryVersion = MkQueryVersion{major_QueryVersion :: CARD8,- minor_QueryVersion :: CARD8}+data QueryVersion = MkQueryVersion{major_QueryVersion :: Word8,+ minor_QueryVersion :: Word8} deriving (Show, Typeable) instance ExtensionRequest QueryVersion where@@ -61,14 +62,14 @@ putWord8 0 let size__ = 4 + size (major_QueryVersion x) + size (minor_QueryVersion x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (major_QueryVersion x) serialize (minor_QueryVersion x) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{major_QueryVersionReply- :: CARD16,- minor_QueryVersionReply :: CARD16}+ :: Word16,+ minor_QueryVersionReply :: Word16} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -91,11 +92,11 @@ = do putWord8 extOpCode putWord8 1 let size__ = 4 + size (window_GetState x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_GetState x) putSkip (requiredPadding size__) -data GetStateReply = MkGetStateReply{state_GetStateReply :: BYTE,+data GetStateReply = MkGetStateReply{state_GetStateReply :: Word8, window_GetStateReply :: WINDOW} deriving (Show, Typeable) @@ -119,12 +120,12 @@ = do putWord8 extOpCode putWord8 2 let size__ = 4 + size (window_GetScreenCount x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_GetScreenCount x) putSkip (requiredPadding size__) data GetScreenCountReply = MkGetScreenCountReply{screen_count_GetScreenCountReply- :: BYTE,+ :: Word8, window_GetScreenCountReply :: WINDOW} deriving (Show, Typeable) @@ -140,7 +141,7 @@ data GetScreenSize = MkGetScreenSize{window_GetScreenSize :: WINDOW,- screen_GetScreenSize :: CARD32}+ screen_GetScreenSize :: Word32} deriving (Show, Typeable) instance ExtensionRequest GetScreenSize where@@ -150,16 +151,16 @@ putWord8 3 let size__ = 4 + size (window_GetScreenSize x) + size (screen_GetScreenSize x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_GetScreenSize x) serialize (screen_GetScreenSize x) putSkip (requiredPadding size__) data GetScreenSizeReply = MkGetScreenSizeReply{width_GetScreenSizeReply- :: CARD32,- height_GetScreenSizeReply :: CARD32,+ :: Word32,+ height_GetScreenSizeReply :: Word32, window_GetScreenSizeReply :: WINDOW,- screen_GetScreenSizeReply :: CARD32}+ screen_GetScreenSizeReply :: Word32} deriving (Show, Typeable) instance Deserialize GetScreenSizeReply where@@ -184,10 +185,10 @@ = do putWord8 extOpCode putWord8 4 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) -data IsActiveReply = MkIsActiveReply{state_IsActiveReply :: CARD32}+data IsActiveReply = MkIsActiveReply{state_IsActiveReply :: Word32} deriving (Show, Typeable) instance Deserialize IsActiveReply where@@ -209,11 +210,11 @@ = do putWord8 extOpCode putWord8 5 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data QueryScreensReply = MkQueryScreensReply{number_QueryScreensReply- :: CARD32,+ :: Word32, screen_info_QueryScreensReply :: [ScreenInfo]} deriving (Show, Typeable)
patched/Graphics/XHB/Gen/Xproto.hs view
@@ -36,6 +36,9 @@ import Data.Binary.Put import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import qualified Graphics.XHB.Connection.Types createWindow ::@@ -46,7 +49,7 @@ changeWindowAttributes :: Graphics.XHB.Connection.Types.Connection ->- WINDOW -> ValueParam CARD32 -> IO ()+ WINDOW -> ValueParam Word32 -> IO () changeWindowAttributes c window value = do let req = MkChangeWindowAttributes window value let chunk = runPut (serialize req)@@ -56,10 +59,10 @@ Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt GetWindowAttributesReply) getWindowAttributes c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetWindowAttributes window let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt destroyWindow ::@@ -77,7 +80,8 @@ sendRequest c chunk changeSaveSet ::- Graphics.XHB.Connection.Types.Connection -> BYTE -> WINDOW -> IO ()+ Graphics.XHB.Connection.Types.Connection ->+ Word8 -> WINDOW -> IO () changeSaveSet c mode window = do let req = MkChangeSaveSet mode window let chunk = runPut (serialize req)@@ -119,7 +123,7 @@ configureWindow :: Graphics.XHB.Connection.Types.Connection ->- WINDOW -> ValueParam CARD16 -> IO ()+ WINDOW -> ValueParam Word16 -> IO () configureWindow c window value = do let req = MkConfigureWindow window value let chunk = runPut (serialize req)@@ -127,7 +131,7 @@ circulateWindow :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> WINDOW -> IO ()+ Word8 -> WINDOW -> IO () circulateWindow c direction window = do let req = MkCirculateWindow direction window let chunk = runPut (serialize req)@@ -137,39 +141,40 @@ Graphics.XHB.Connection.Types.Connection -> DRAWABLE -> IO (Receipt GetGeometryReply) getGeometry c drawable- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetGeometry drawable let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryTree :: Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt QueryTreeReply) queryTree c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryTree window let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt internAtom :: Graphics.XHB.Connection.Types.Connection ->- InternAtom -> IO (Receipt InternAtomReply)+ InternAtom -> IO (Receipt ATOM) internAtom c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (atom_InternAtomReply `fmap` deserialize)) let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getAtomName :: Graphics.XHB.Connection.Types.Connection -> ATOM -> IO (Receipt GetAtomNameReply) getAtomName c atom- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetAtomName atom let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt changeProperty ::@@ -189,19 +194,19 @@ Graphics.XHB.Connection.Types.Connection -> GetProperty -> IO (Receipt GetPropertyReply) getProperty c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt listProperties :: Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt ListPropertiesReply) listProperties c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkListProperties window let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setSelectionOwner ::@@ -213,12 +218,13 @@ getSelectionOwner :: Graphics.XHB.Connection.Types.Connection ->- ATOM -> IO (Receipt GetSelectionOwnerReply)+ ATOM -> IO (Receipt WINDOW) getSelectionOwner c selection- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (owner_GetSelectionOwnerReply `fmap` deserialize)) let req = MkGetSelectionOwner selection let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt convertSelection ::@@ -236,11 +242,12 @@ grabPointer :: Graphics.XHB.Connection.Types.Connection ->- GrabPointer -> IO (Receipt GrabPointerReply)+ GrabPointer -> IO (Receipt Word8) grabPointer c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (status_GrabPointerReply `fmap` deserialize)) let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt ungrabPointer ::@@ -271,11 +278,12 @@ grabKeyboard :: Graphics.XHB.Connection.Types.Connection ->- GrabKeyboard -> IO (Receipt GrabKeyboardReply)+ GrabKeyboard -> IO (Receipt Word8) grabKeyboard c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (status_GrabKeyboardReply `fmap` deserialize)) let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt ungrabKeyboard ::@@ -299,7 +307,7 @@ allowEvents :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> TIMESTAMP -> IO ()+ Word8 -> TIMESTAMP -> IO () allowEvents c mode time = do let req = MkAllowEvents mode time let chunk = runPut (serialize req)@@ -309,28 +317,28 @@ Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt QueryPointerReply) queryPointer c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryPointer window let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getMotionEvents :: Graphics.XHB.Connection.Types.Connection -> GetMotionEvents -> IO (Receipt GetMotionEventsReply) getMotionEvents c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt translateCoordinates :: Graphics.XHB.Connection.Types.Connection -> TranslateCoordinates -> IO (Receipt TranslateCoordinatesReply) translateCoordinates c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt warpPointer ::@@ -349,20 +357,20 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetInputFocusReply) getInputFocus c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetInputFocus let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryKeymap ::- Graphics.XHB.Connection.Types.Connection ->- IO (Receipt QueryKeymapReply)+ Graphics.XHB.Connection.Types.Connection -> IO (Receipt [Word8]) queryKeymap c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (keys_QueryKeymapReply `fmap` deserialize)) let req = MkQueryKeymap let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt openFont ::@@ -382,43 +390,43 @@ Graphics.XHB.Connection.Types.Connection -> FONTABLE -> IO (Receipt QueryFontReply) queryFont c font- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryFont font let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryTextExtents :: Graphics.XHB.Connection.Types.Connection -> FONTABLE -> [CHAR2B] -> IO (Receipt QueryTextExtentsReply) queryTextExtents c font string- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryTextExtents font string let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt listFonts :: Graphics.XHB.Connection.Types.Connection -> ListFonts -> IO (Receipt ListFontsReply) listFonts c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt listFontsWithInfo :: Graphics.XHB.Connection.Types.Connection -> ListFontsWithInfo -> IO (Receipt ListFontsWithInfoReply) listFontsWithInfo c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setFontPath :: Graphics.XHB.Connection.Types.Connection ->- CARD16 -> [CChar] -> IO ()+ Word16 -> [CChar] -> IO () setFontPath c font_qty path = do let req = MkSetFontPath font_qty path let chunk = runPut (serialize req)@@ -428,10 +436,10 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetFontPathReply) getFontPath c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetFontPath let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt createPixmap ::@@ -455,7 +463,7 @@ changeGC :: Graphics.XHB.Connection.Types.Connection ->- GCONTEXT -> ValueParam CARD32 -> IO ()+ GCONTEXT -> ValueParam Word32 -> IO () changeGC c gc value = do let req = MkChangeGC gc value let chunk = runPut (serialize req)@@ -564,9 +572,9 @@ Graphics.XHB.Connection.Types.Connection -> GetImage -> IO (Receipt GetImageReply) getImage c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt polyText8 ::@@ -632,46 +640,46 @@ Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt ListInstalledColormapsReply) listInstalledColormaps c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkListInstalledColormaps window let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt allocColor :: Graphics.XHB.Connection.Types.Connection -> AllocColor -> IO (Receipt AllocColorReply) allocColor c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt allocNamedColor :: Graphics.XHB.Connection.Types.Connection -> AllocNamedColor -> IO (Receipt AllocNamedColorReply) allocNamedColor c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt allocColorCells :: Graphics.XHB.Connection.Types.Connection -> AllocColorCells -> IO (Receipt AllocColorCellsReply) allocColorCells c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt allocColorPlanes :: Graphics.XHB.Connection.Types.Connection -> AllocColorPlanes -> IO (Receipt AllocColorPlanesReply) allocColorPlanes c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt freeColors ::@@ -697,21 +705,21 @@ queryColors :: Graphics.XHB.Connection.Types.Connection ->- COLORMAP -> [CARD32] -> IO (Receipt QueryColorsReply)+ COLORMAP -> [Word32] -> IO (Receipt QueryColorsReply) queryColors c cmap pixels- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryColors cmap pixels let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt lookupColor :: Graphics.XHB.Connection.Types.Connection -> LookupColor -> IO (Receipt LookupColorReply) lookupColor c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt createCursor ::@@ -744,29 +752,29 @@ Graphics.XHB.Connection.Types.Connection -> QueryBestSize -> IO (Receipt QueryBestSizeReply) queryBestSize c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryExtension :: Graphics.XHB.Connection.Types.Connection ->- CARD16 -> [CChar] -> IO (Receipt QueryExtensionReply)+ Word16 -> [CChar] -> IO (Receipt QueryExtensionReply) queryExtension c name_len name- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryExtension name_len name let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt listExtensions :: Graphics.XHB.Connection.Types.Connection -> IO (Receipt ListExtensionsReply) listExtensions c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkListExtensions let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt changeKeyboardMapping ::@@ -778,17 +786,17 @@ getKeyboardMapping :: Graphics.XHB.Connection.Types.Connection ->- KEYCODE -> CARD8 -> IO (Receipt GetKeyboardMappingReply)+ KEYCODE -> Word8 -> IO (Receipt GetKeyboardMappingReply) getKeyboardMapping c first_keycode count- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetKeyboardMapping first_keycode count let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt changeKeyboardControl :: Graphics.XHB.Connection.Types.Connection ->- ValueParam CARD32 -> IO ()+ ValueParam Word32 -> IO () changeKeyboardControl c value = do let req = MkChangeKeyboardControl value let chunk = runPut (serialize req)@@ -798,13 +806,13 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetKeyboardControlReply) getKeyboardControl c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetKeyboardControl let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt -bell :: Graphics.XHB.Connection.Types.Connection -> INT8 -> IO ()+bell :: Graphics.XHB.Connection.Types.Connection -> Int8 -> IO () bell c percent = do let req = MkBell percent let chunk = runPut (serialize req)@@ -821,10 +829,10 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetPointerControlReply) getPointerControl c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetPointerControl let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setScreenSaver ::@@ -837,10 +845,10 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetScreenSaverReply) getScreenSaver c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetScreenSaver let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt changeHosts ::@@ -853,28 +861,28 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt ListHostsReply) listHosts c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkListHosts let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setAccessControl ::- Graphics.XHB.Connection.Types.Connection -> CARD8 -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Word8 -> IO () setAccessControl c mode = do let req = MkSetAccessControl mode let chunk = runPut (serialize req) sendRequest c chunk setCloseDownMode ::- Graphics.XHB.Connection.Types.Connection -> CARD8 -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Word8 -> IO () setCloseDownMode c mode = do let req = MkSetCloseDownMode mode let chunk = runPut (serialize req) sendRequest c chunk killClient ::- Graphics.XHB.Connection.Types.Connection -> CARD32 -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Word32 -> IO () killClient c resource = do let req = MkKillClient resource let chunk = runPut (serialize req)@@ -888,7 +896,7 @@ sendRequest c chunk forceScreenSaver ::- Graphics.XHB.Connection.Types.Connection -> CARD8 -> IO ()+ Graphics.XHB.Connection.Types.Connection -> Word8 -> IO () forceScreenSaver c mode = do let req = MkForceScreenSaver mode let chunk = runPut (serialize req)@@ -896,40 +904,42 @@ setPointerMapping :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> [CARD8] -> IO (Receipt SetPointerMappingReply)+ Word8 -> [Word8] -> IO (Receipt Word8) setPointerMapping c map_len map- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (status_SetPointerMappingReply `fmap` deserialize)) let req = MkSetPointerMapping map_len map let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getPointerMapping :: Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetPointerMappingReply) getPointerMapping c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetPointerMapping let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setModifierMapping :: Graphics.XHB.Connection.Types.Connection ->- CARD8 -> [KEYCODE] -> IO (Receipt SetModifierMappingReply)+ Word8 -> [KEYCODE] -> IO (Receipt Word8) setModifierMapping c keycodes_per_modifier keycodes- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (status_SetModifierMappingReply `fmap` deserialize)) let req = MkSetModifierMapping keycodes_per_modifier keycodes let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt getModifierMapping :: Graphics.XHB.Connection.Types.Connection -> IO (Receipt GetModifierMappingReply) getModifierMapping c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkGetModifierMapping let chunk = runPut (serialize req)- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/Xproto/Types.hs view
@@ -94,6041 +94,6046 @@ GetModifierMappingReply(..)) where import Data.Word-import Foreign.C.Types-import Data.Bits-import Data.Binary.Put-import Data.Binary.Get-import Data.Typeable-import Control.Monad-import Control.Exception-import Data.List-import Graphics.XHB.Shared hiding (Event, Error)-import qualified Graphics.XHB.Shared- -deserializeError :: Word8 -> Maybe (Get SomeError)-deserializeError 1- = return (liftM toError (deserialize :: Get Request))-deserializeError 2- = return (liftM toError (deserialize :: Get Value))-deserializeError 3- = return (liftM toError (deserialize :: Get Window))-deserializeError 4- = return (liftM toError (deserialize :: Get Pixmap))-deserializeError 5- = return (liftM toError (deserialize :: Get Atom))-deserializeError 6- = return (liftM toError (deserialize :: Get Cursor))-deserializeError 7- = return (liftM toError (deserialize :: Get Font))-deserializeError 8- = return (liftM toError (deserialize :: Get Match))-deserializeError 9- = return (liftM toError (deserialize :: Get Drawable))-deserializeError 10- = return (liftM toError (deserialize :: Get Access))-deserializeError 11- = return (liftM toError (deserialize :: Get Alloc))-deserializeError 12- = return (liftM toError (deserialize :: Get Colormap))-deserializeError 13- = return (liftM toError (deserialize :: Get GContext))-deserializeError 14- = return (liftM toError (deserialize :: Get IDChoice))-deserializeError 15- = return (liftM toError (deserialize :: Get Name))-deserializeError 16- = return (liftM toError (deserialize :: Get Length))-deserializeError 17- = return (liftM toError (deserialize :: Get Implementation))-deserializeError _ = Nothing- -deserializeEvent :: Word8 -> Maybe (Get SomeEvent)-deserializeEvent 2- = return (liftM toEvent (deserialize :: Get KeyPress))-deserializeEvent 3- = return (liftM toEvent (deserialize :: Get KeyRelease))-deserializeEvent 4- = return (liftM toEvent (deserialize :: Get ButtonPress))-deserializeEvent 5- = return (liftM toEvent (deserialize :: Get ButtonRelease))-deserializeEvent 6- = return (liftM toEvent (deserialize :: Get MotionNotify))-deserializeEvent 7- = return (liftM toEvent (deserialize :: Get EnterNotify))-deserializeEvent 8- = return (liftM toEvent (deserialize :: Get LeaveNotify))-deserializeEvent 9- = return (liftM toEvent (deserialize :: Get FocusIn))-deserializeEvent 10- = return (liftM toEvent (deserialize :: Get FocusOut))-deserializeEvent 11- = return (liftM toEvent (deserialize :: Get KeymapNotify))-deserializeEvent 12- = return (liftM toEvent (deserialize :: Get Expose))-deserializeEvent 13- = return (liftM toEvent (deserialize :: Get GraphicsExposure))-deserializeEvent 14- = return (liftM toEvent (deserialize :: Get NoExposure))-deserializeEvent 15- = return (liftM toEvent (deserialize :: Get VisibilityNotify))-deserializeEvent 16- = return (liftM toEvent (deserialize :: Get CreateNotify))-deserializeEvent 17- = return (liftM toEvent (deserialize :: Get DestroyNotify))-deserializeEvent 18- = return (liftM toEvent (deserialize :: Get UnmapNotify))-deserializeEvent 19- = return (liftM toEvent (deserialize :: Get MapNotify))-deserializeEvent 20- = return (liftM toEvent (deserialize :: Get MapRequest))-deserializeEvent 21- = return (liftM toEvent (deserialize :: Get ReparentNotify))-deserializeEvent 22- = return (liftM toEvent (deserialize :: Get ConfigureNotify))-deserializeEvent 23- = return (liftM toEvent (deserialize :: Get ConfigureRequest))-deserializeEvent 24- = return (liftM toEvent (deserialize :: Get GravityNotify))-deserializeEvent 25- = return (liftM toEvent (deserialize :: Get ResizeRequest))-deserializeEvent 26- = return (liftM toEvent (deserialize :: Get CirculateNotify))-deserializeEvent 27- = return (liftM toEvent (deserialize :: Get CirculateRequest))-deserializeEvent 28- = return (liftM toEvent (deserialize :: Get PropertyNotify))-deserializeEvent 29- = return (liftM toEvent (deserialize :: Get SelectionClear))-deserializeEvent 30- = return (liftM toEvent (deserialize :: Get SelectionRequest))-deserializeEvent 31- = return (liftM toEvent (deserialize :: Get SelectionNotify))-deserializeEvent 32- = return (liftM toEvent (deserialize :: Get ColormapNotify))-deserializeEvent 33- = return (liftM toEvent (deserialize :: Get ClientMessage))-deserializeEvent 34- = return (liftM toEvent (deserialize :: Get MappingNotify))-deserializeEvent _ = Nothing- -data CHAR2B = MkCHAR2B{byte1_CHAR2B :: CARD8,- byte2_CHAR2B :: CARD8}- deriving (Show, Typeable)- -instance Serialize CHAR2B where- serialize x- = do serialize (byte1_CHAR2B x)- serialize (byte2_CHAR2B x)- size x = size (byte1_CHAR2B x) + size (byte2_CHAR2B x)- -instance Deserialize CHAR2B where- deserialize- = do byte1 <- deserialize- byte2 <- deserialize- return (MkCHAR2B byte1 byte2)- -newtype WINDOW = MkWINDOW Xid- deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype PIXMAP = MkPIXMAP Xid- deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype CURSOR = MkCURSOR Xid- deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype FONT = MkFONT Xid- deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype GCONTEXT = MkGCONTEXT Xid- deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype COLORMAP = MkCOLORMAP Xid- deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype ATOM = MkATOM Xid- deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype DRAWABLE = MkDRAWABLE Xid- deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype FONTABLE = MkFONTABLE Xid- deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -type VISUALID = CARD32- -type TIMESTAMP = CARD32- -type KEYSYM = CARD32- -type KEYCODE = CARD8- -type BUTTON = CARD8- -data POINT = MkPOINT{x_POINT :: INT16, y_POINT :: INT16}- deriving (Show, Typeable)- -instance Serialize POINT where- serialize x- = do serialize (x_POINT x)- serialize (y_POINT x)- size x = size (x_POINT x) + size (y_POINT x)- -instance Deserialize POINT where- deserialize- = do x <- deserialize- y <- deserialize- return (MkPOINT x y)- -data RECTANGLE = MkRECTANGLE{x_RECTANGLE :: INT16,- y_RECTANGLE :: INT16, width_RECTANGLE :: CARD16,- height_RECTANGLE :: CARD16}- deriving (Show, Typeable)- -instance Serialize RECTANGLE where- serialize x- = do serialize (x_RECTANGLE x)- serialize (y_RECTANGLE x)- serialize (width_RECTANGLE x)- serialize (height_RECTANGLE x)- size x- = size (x_RECTANGLE x) + size (y_RECTANGLE x) +- size (width_RECTANGLE x)- + size (height_RECTANGLE x)- -instance Deserialize RECTANGLE where- deserialize- = do x <- deserialize- y <- deserialize- width <- deserialize- height <- deserialize- return (MkRECTANGLE x y width height)- -data ARC = MkARC{x_ARC :: INT16, y_ARC :: INT16,- width_ARC :: CARD16, height_ARC :: CARD16, angle1_ARC :: INT16,- angle2_ARC :: INT16}- deriving (Show, Typeable)- -instance Serialize ARC where- serialize x- = do serialize (x_ARC x)- serialize (y_ARC x)- serialize (width_ARC x)- serialize (height_ARC x)- serialize (angle1_ARC x)- serialize (angle2_ARC x)- size x- = size (x_ARC x) + size (y_ARC x) + size (width_ARC x) +- size (height_ARC x)- + size (angle1_ARC x)- + size (angle2_ARC x)- -instance Deserialize ARC where- deserialize- = do x <- deserialize- y <- deserialize- width <- deserialize- height <- deserialize- angle1 <- deserialize- angle2 <- deserialize- return (MkARC x y width height angle1 angle2)- -data FORMAT = MkFORMAT{depth_FORMAT :: CARD8,- bits_per_pixel_FORMAT :: CARD8, scanline_pad_FORMAT :: CARD8}- deriving (Show, Typeable)- -instance Serialize FORMAT where- serialize x- = do serialize (depth_FORMAT x)- serialize (bits_per_pixel_FORMAT x)- serialize (scanline_pad_FORMAT x)- putSkip 5- size x- = size (depth_FORMAT x) + size (bits_per_pixel_FORMAT x) +- size (scanline_pad_FORMAT x)- + 5- -instance Deserialize FORMAT where- deserialize- = do depth <- deserialize- bits_per_pixel <- deserialize- scanline_pad <- deserialize- skip 5- return (MkFORMAT depth bits_per_pixel scanline_pad)- -data VisualClass = VisualClassStaticGray- | VisualClassGrayScale- | VisualClassStaticColor- | VisualClassPseudoColor- | VisualClassTrueColor- | VisualClassDirectColor- -instance SimpleEnum VisualClass where- toValue VisualClassStaticGray{} = 0- toValue VisualClassGrayScale{} = 1- toValue VisualClassStaticColor{} = 2- toValue VisualClassPseudoColor{} = 3- toValue VisualClassTrueColor{} = 4- toValue VisualClassDirectColor{} = 5- fromValue 0 = VisualClassStaticGray- fromValue 1 = VisualClassGrayScale- fromValue 2 = VisualClassStaticColor- fromValue 3 = VisualClassPseudoColor- fromValue 4 = VisualClassTrueColor- fromValue 5 = VisualClassDirectColor- -data VISUALTYPE = MkVISUALTYPE{visual_id_VISUALTYPE :: VISUALID,- class_VISUALTYPE :: CARD8, bits_per_rgb_value_VISUALTYPE :: CARD8,- colormap_entries_VISUALTYPE :: CARD16,- red_mask_VISUALTYPE :: CARD32, green_mask_VISUALTYPE :: CARD32,- blue_mask_VISUALTYPE :: CARD32}- deriving (Show, Typeable)- -instance Serialize VISUALTYPE where- serialize x- = do serialize (visual_id_VISUALTYPE x)- serialize (class_VISUALTYPE x)- serialize (bits_per_rgb_value_VISUALTYPE x)- serialize (colormap_entries_VISUALTYPE x)- serialize (red_mask_VISUALTYPE x)- serialize (green_mask_VISUALTYPE x)- serialize (blue_mask_VISUALTYPE x)- putSkip 4- size x- = size (visual_id_VISUALTYPE x) + size (class_VISUALTYPE x) +- size (bits_per_rgb_value_VISUALTYPE x)- + size (colormap_entries_VISUALTYPE x)- + size (red_mask_VISUALTYPE x)- + size (green_mask_VISUALTYPE x)- + size (blue_mask_VISUALTYPE x)- + 4- -instance Deserialize VISUALTYPE where- deserialize- = do visual_id <- deserialize- class_ <- deserialize- bits_per_rgb_value <- deserialize- colormap_entries <- deserialize- red_mask <- deserialize- green_mask <- deserialize- blue_mask <- deserialize- skip 4- return- (MkVISUALTYPE visual_id class_ bits_per_rgb_value colormap_entries- red_mask- green_mask- blue_mask)- -data DEPTH = MkDEPTH{depth_DEPTH :: CARD8,- visuals_len_DEPTH :: CARD16, visuals_DEPTH :: [VISUALTYPE]}- deriving (Show, Typeable)- -instance Serialize DEPTH where- serialize x- = do serialize (depth_DEPTH x)- putSkip 1- serialize (visuals_len_DEPTH x)- putSkip 4- serializeList (visuals_DEPTH x)- size x- = size (depth_DEPTH x) + 1 + size (visuals_len_DEPTH x) + 4 +- sum (map size (visuals_DEPTH x))- -instance Deserialize DEPTH where- deserialize- = do depth <- deserialize- skip 1- visuals_len <- deserialize- skip 4- visuals <- deserializeList (fromIntegral visuals_len)- return (MkDEPTH depth visuals_len visuals)- -data SCREEN = MkSCREEN{root_SCREEN :: WINDOW,- default_colormap_SCREEN :: COLORMAP, white_pixel_SCREEN :: CARD32,- black_pixel_SCREEN :: CARD32, current_input_masks_SCREEN :: CARD32,- width_in_pixels_SCREEN :: CARD16,- height_in_pixels_SCREEN :: CARD16,- width_in_millimeters_SCREEN :: CARD16,- height_in_millimeters_SCREEN :: CARD16,- min_installed_maps_SCREEN :: CARD16,- max_installed_maps_SCREEN :: CARD16,- root_visual_SCREEN :: VISUALID, backing_stores_SCREEN :: BYTE,- save_unders_SCREEN :: BOOL, root_depth_SCREEN :: CARD8,- allowed_depths_len_SCREEN :: CARD8,- allowed_depths_SCREEN :: [DEPTH]}- deriving (Show, Typeable)- -instance Serialize SCREEN where- serialize x- = do serialize (root_SCREEN x)- serialize (default_colormap_SCREEN x)- serialize (white_pixel_SCREEN x)- serialize (black_pixel_SCREEN x)- serialize (current_input_masks_SCREEN x)- serialize (width_in_pixels_SCREEN x)- serialize (height_in_pixels_SCREEN x)- serialize (width_in_millimeters_SCREEN x)- serialize (height_in_millimeters_SCREEN x)- serialize (min_installed_maps_SCREEN x)- serialize (max_installed_maps_SCREEN x)- serialize (root_visual_SCREEN x)- serialize (backing_stores_SCREEN x)- serialize (save_unders_SCREEN x)- serialize (root_depth_SCREEN x)- serialize (allowed_depths_len_SCREEN x)- serializeList (allowed_depths_SCREEN x)- size x- = size (root_SCREEN x) + size (default_colormap_SCREEN x) +- size (white_pixel_SCREEN x)- + size (black_pixel_SCREEN x)- + size (current_input_masks_SCREEN x)- + size (width_in_pixels_SCREEN x)- + size (height_in_pixels_SCREEN x)- + size (width_in_millimeters_SCREEN x)- + size (height_in_millimeters_SCREEN x)- + size (min_installed_maps_SCREEN x)- + size (max_installed_maps_SCREEN x)- + size (root_visual_SCREEN x)- + size (backing_stores_SCREEN x)- + size (save_unders_SCREEN x)- + size (root_depth_SCREEN x)- + size (allowed_depths_len_SCREEN x)- + sum (map size (allowed_depths_SCREEN x))- -instance Deserialize SCREEN where- deserialize- = do root <- deserialize- default_colormap <- deserialize- white_pixel <- deserialize- black_pixel <- deserialize- current_input_masks <- deserialize- width_in_pixels <- deserialize- height_in_pixels <- deserialize- width_in_millimeters <- deserialize- height_in_millimeters <- deserialize- min_installed_maps <- deserialize- max_installed_maps <- deserialize- root_visual <- deserialize- backing_stores <- deserialize- save_unders <- deserialize- root_depth <- deserialize- allowed_depths_len <- deserialize- allowed_depths <- deserializeList (fromIntegral allowed_depths_len)- return- (MkSCREEN root default_colormap white_pixel black_pixel- current_input_masks- width_in_pixels- height_in_pixels- width_in_millimeters- height_in_millimeters- min_installed_maps- max_installed_maps- root_visual- backing_stores- save_unders- root_depth- allowed_depths_len- allowed_depths)- -data SetupRequest = MkSetupRequest{byte_order_SetupRequest ::- CARD8,- protocol_major_version_SetupRequest :: CARD16,- protocol_minor_version_SetupRequest :: CARD16,- authorization_protocol_name_len_SetupRequest :: CARD16,- authorization_protocol_data_len_SetupRequest :: CARD16,- authorization_protocol_name_SetupRequest :: [CChar],- authorization_protocol_data_SetupRequest :: [CChar]}- deriving (Show, Typeable)- -instance Serialize SetupRequest where- serialize x- = do serialize (byte_order_SetupRequest x)- putSkip 1- serialize (protocol_major_version_SetupRequest x)- serialize (protocol_minor_version_SetupRequest x)- serialize (authorization_protocol_name_len_SetupRequest x)- serialize (authorization_protocol_data_len_SetupRequest x)- putSkip 2- serializeList (authorization_protocol_name_SetupRequest x)- serializeList (authorization_protocol_data_SetupRequest x)- size x- = size (byte_order_SetupRequest x) + 1 +- size (protocol_major_version_SetupRequest x)- + size (protocol_minor_version_SetupRequest x)- + size (authorization_protocol_name_len_SetupRequest x)- + size (authorization_protocol_data_len_SetupRequest x)- + 2- + sum (map size (authorization_protocol_name_SetupRequest x))- + sum (map size (authorization_protocol_data_SetupRequest x))- -instance Deserialize SetupRequest where- deserialize- = do byte_order <- deserialize- skip 1- protocol_major_version <- deserialize- protocol_minor_version <- deserialize- authorization_protocol_name_len <- deserialize- authorization_protocol_data_len <- deserialize- skip 2- authorization_protocol_name <- deserializeList- (fromIntegral authorization_protocol_name_len)- authorization_protocol_data <- deserializeList- (fromIntegral authorization_protocol_data_len)- return- (MkSetupRequest byte_order protocol_major_version- protocol_minor_version- authorization_protocol_name_len- authorization_protocol_data_len- authorization_protocol_name- authorization_protocol_data)- -data SetupFailed = MkSetupFailed{status_SetupFailed :: CARD8,- reason_len_SetupFailed :: CARD8,- protocol_major_version_SetupFailed :: CARD16,- protocol_minor_version_SetupFailed :: CARD16,- length_SetupFailed :: CARD16, reason_SetupFailed :: [CChar]}- deriving (Show, Typeable)- -instance Serialize SetupFailed where- serialize x- = do serialize (status_SetupFailed x)- serialize (reason_len_SetupFailed x)- serialize (protocol_major_version_SetupFailed x)- serialize (protocol_minor_version_SetupFailed x)- serialize (length_SetupFailed x)- serializeList (reason_SetupFailed x)- size x- = size (status_SetupFailed x) + size (reason_len_SetupFailed x) +- size (protocol_major_version_SetupFailed x)- + size (protocol_minor_version_SetupFailed x)- + size (length_SetupFailed x)- + sum (map size (reason_SetupFailed x))- -instance Deserialize SetupFailed where- deserialize- = do status <- deserialize- reason_len <- deserialize- protocol_major_version <- deserialize- protocol_minor_version <- deserialize- length <- deserialize- reason <- deserializeList (fromIntegral reason_len)- return- (MkSetupFailed status reason_len protocol_major_version- protocol_minor_version- length- reason)- -data SetupAuthenticate = MkSetupAuthenticate{status_SetupAuthenticate- :: CARD8,- length_SetupAuthenticate :: CARD16,- reason_SetupAuthenticate :: [CChar]}- deriving (Show, Typeable)- -instance Serialize SetupAuthenticate where- serialize x- = do serialize (status_SetupAuthenticate x)- putSkip 5- serialize (length_SetupAuthenticate x)- serializeList (reason_SetupAuthenticate x)- size x- = size (status_SetupAuthenticate x) + 5 +- size (length_SetupAuthenticate x)- + sum (map size (reason_SetupAuthenticate x))- -instance Deserialize SetupAuthenticate where- deserialize- = do status <- deserialize- skip 5- length <- deserialize- reason <- deserializeList- (fromIntegral (fromIntegral (length * 4)))- return (MkSetupAuthenticate status length reason)- -data ImageOrder = ImageOrderLSBFirst- | ImageOrderMSBFirst- -instance SimpleEnum ImageOrder where- toValue ImageOrderLSBFirst{} = 0- toValue ImageOrderMSBFirst{} = 1- fromValue 0 = ImageOrderLSBFirst- fromValue 1 = ImageOrderMSBFirst- -data Setup = MkSetup{status_Setup :: CARD8,- protocol_major_version_Setup :: CARD16,- protocol_minor_version_Setup :: CARD16, length_Setup :: CARD16,- release_number_Setup :: CARD32, resource_id_base_Setup :: CARD32,- resource_id_mask_Setup :: CARD32,- motion_buffer_size_Setup :: CARD32, vendor_len_Setup :: CARD16,- maximum_request_length_Setup :: CARD16, roots_len_Setup :: CARD8,- pixmap_formats_len_Setup :: CARD8, image_byte_order_Setup :: CARD8,- bitmap_format_bit_order_Setup :: CARD8,- bitmap_format_scanline_unit_Setup :: CARD8,- bitmap_format_scanline_pad_Setup :: CARD8,- min_keycode_Setup :: KEYCODE, max_keycode_Setup :: KEYCODE,- vendor_Setup :: [CChar], pixmap_formats_Setup :: [FORMAT],- roots_Setup :: [SCREEN]}- deriving (Show, Typeable)- -instance Serialize Setup where- serialize x- = do serialize (status_Setup x)- putSkip 1- serialize (protocol_major_version_Setup x)- serialize (protocol_minor_version_Setup x)- serialize (length_Setup x)- serialize (release_number_Setup x)- serialize (resource_id_base_Setup x)- serialize (resource_id_mask_Setup x)- serialize (motion_buffer_size_Setup x)- serialize (vendor_len_Setup x)- serialize (maximum_request_length_Setup x)- serialize (roots_len_Setup x)- serialize (pixmap_formats_len_Setup x)- serialize (image_byte_order_Setup x)- serialize (bitmap_format_bit_order_Setup x)- serialize (bitmap_format_scanline_unit_Setup x)- serialize (bitmap_format_scanline_pad_Setup x)- serialize (min_keycode_Setup x)- serialize (max_keycode_Setup x)- putSkip 4- serializeList (vendor_Setup x)- serializeList (pixmap_formats_Setup x)- serializeList (roots_Setup x)- size x- = size (status_Setup x) + 1 + size (protocol_major_version_Setup x)- + size (protocol_minor_version_Setup x)- + size (length_Setup x)- + size (release_number_Setup x)- + size (resource_id_base_Setup x)- + size (resource_id_mask_Setup x)- + size (motion_buffer_size_Setup x)- + size (vendor_len_Setup x)- + size (maximum_request_length_Setup x)- + size (roots_len_Setup x)- + size (pixmap_formats_len_Setup x)- + size (image_byte_order_Setup x)- + size (bitmap_format_bit_order_Setup x)- + size (bitmap_format_scanline_unit_Setup x)- + size (bitmap_format_scanline_pad_Setup x)- + size (min_keycode_Setup x)- + size (max_keycode_Setup x)- + 4- + sum (map size (vendor_Setup x))- + sum (map size (pixmap_formats_Setup x))- + sum (map size (roots_Setup x))- -instance Deserialize Setup where- deserialize- = do status <- deserialize- skip 1- protocol_major_version <- deserialize- protocol_minor_version <- deserialize- length <- deserialize- release_number <- deserialize- resource_id_base <- deserialize- resource_id_mask <- deserialize- motion_buffer_size <- deserialize- vendor_len <- deserialize- maximum_request_length <- deserialize- roots_len <- deserialize- pixmap_formats_len <- deserialize- image_byte_order <- deserialize- bitmap_format_bit_order <- deserialize- bitmap_format_scanline_unit <- deserialize- bitmap_format_scanline_pad <- deserialize- min_keycode <- deserialize- max_keycode <- deserialize- skip 4- vendor <- deserializeList (fromIntegral vendor_len)- pixmap_formats <- deserializeList (fromIntegral pixmap_formats_len)- roots <- deserializeList (fromIntegral roots_len)- return- (MkSetup status protocol_major_version protocol_minor_version- length- release_number- resource_id_base- resource_id_mask- motion_buffer_size- vendor_len- maximum_request_length- roots_len- pixmap_formats_len- image_byte_order- bitmap_format_bit_order- bitmap_format_scanline_unit- bitmap_format_scanline_pad- min_keycode- max_keycode- vendor- pixmap_formats- roots)- -data ModMask = ModMaskShift- | ModMaskLock- | ModMaskControl- | ModMask1- | ModMask2- | ModMask3- | ModMask4- | ModMask5- -instance BitEnum ModMask where- toBit ModMaskShift{} = 0- toBit ModMaskLock{} = 1- toBit ModMaskControl{} = 2- toBit ModMask1{} = 3- toBit ModMask2{} = 4- toBit ModMask3{} = 5- toBit ModMask4{} = 6- toBit ModMask5{} = 7- fromBit 0 = ModMaskShift- fromBit 1 = ModMaskLock- fromBit 2 = ModMaskControl- fromBit 3 = ModMask1- fromBit 4 = ModMask2- fromBit 5 = ModMask3- fromBit 6 = ModMask4- fromBit 7 = ModMask5- -data KeyPress = MkKeyPress{detail_KeyPress :: KEYCODE,- time_KeyPress :: TIMESTAMP, root_KeyPress :: WINDOW,- event_KeyPress :: WINDOW, child_KeyPress :: WINDOW,- root_x_KeyPress :: INT16, root_y_KeyPress :: INT16,- event_x_KeyPress :: INT16, event_y_KeyPress :: INT16,- state_KeyPress :: CARD16, same_screen_KeyPress :: BOOL}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event KeyPress- -instance Deserialize KeyPress where- deserialize- = do skip 1- detail <- deserialize- skip 2- time <- deserialize- root <- deserialize- event <- deserialize- child <- deserialize- root_x <- deserialize- root_y <- deserialize- event_x <- deserialize- event_y <- deserialize- state <- deserialize- same_screen <- deserialize- skip 1- return- (MkKeyPress detail time root event child root_x root_y event_x- event_y- state- same_screen)- -data KeyRelease = MkKeyRelease{detail_KeyRelease :: KEYCODE,- time_KeyRelease :: TIMESTAMP, root_KeyRelease :: WINDOW,- event_KeyRelease :: WINDOW, child_KeyRelease :: WINDOW,- root_x_KeyRelease :: INT16, root_y_KeyRelease :: INT16,- event_x_KeyRelease :: INT16, event_y_KeyRelease :: INT16,- state_KeyRelease :: CARD16, same_screen_KeyRelease :: BOOL}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event KeyRelease- -instance Deserialize KeyRelease where- deserialize- = do skip 1- detail <- deserialize- skip 2- time <- deserialize- root <- deserialize- event <- deserialize- child <- deserialize- root_x <- deserialize- root_y <- deserialize- event_x <- deserialize- event_y <- deserialize- state <- deserialize- same_screen <- deserialize- skip 1- return- (MkKeyRelease detail time root event child root_x root_y event_x- event_y- state- same_screen)- -data ButtonMask = ButtonMask1- | ButtonMask2- | ButtonMask3- | ButtonMask4- | ButtonMask5- | ButtonMaskAny- -instance BitEnum ButtonMask where- toBit ButtonMask1{} = 8- toBit ButtonMask2{} = 9- toBit ButtonMask3{} = 10- toBit ButtonMask4{} = 11- toBit ButtonMask5{} = 12- toBit ButtonMaskAny{} = 15- fromBit 8 = ButtonMask1- fromBit 9 = ButtonMask2- fromBit 10 = ButtonMask3- fromBit 11 = ButtonMask4- fromBit 12 = ButtonMask5- fromBit 15 = ButtonMaskAny- -data ButtonPress = MkButtonPress{detail_ButtonPress :: BUTTON,- time_ButtonPress :: TIMESTAMP, root_ButtonPress :: WINDOW,- event_ButtonPress :: WINDOW, child_ButtonPress :: WINDOW,- root_x_ButtonPress :: INT16, root_y_ButtonPress :: INT16,- event_x_ButtonPress :: INT16, event_y_ButtonPress :: INT16,- state_ButtonPress :: CARD16, same_screen_ButtonPress :: BOOL}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event ButtonPress- -instance Deserialize ButtonPress where- deserialize- = do skip 1- detail <- deserialize- skip 2- time <- deserialize- root <- deserialize- event <- deserialize- child <- deserialize- root_x <- deserialize- root_y <- deserialize- event_x <- deserialize- event_y <- deserialize- state <- deserialize- same_screen <- deserialize- skip 1- return- (MkButtonPress detail time root event child root_x root_y event_x- event_y- state- same_screen)- -data ButtonRelease = MkButtonRelease{detail_ButtonRelease ::- BUTTON,- time_ButtonRelease :: TIMESTAMP, root_ButtonRelease :: WINDOW,- event_ButtonRelease :: WINDOW, child_ButtonRelease :: WINDOW,- root_x_ButtonRelease :: INT16, root_y_ButtonRelease :: INT16,- event_x_ButtonRelease :: INT16, event_y_ButtonRelease :: INT16,- state_ButtonRelease :: CARD16,- same_screen_ButtonRelease :: BOOL}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event ButtonRelease- -instance Deserialize ButtonRelease where- deserialize- = do skip 1- detail <- deserialize- skip 2- time <- deserialize- root <- deserialize- event <- deserialize- child <- deserialize- root_x <- deserialize- root_y <- deserialize- event_x <- deserialize- event_y <- deserialize- state <- deserialize- same_screen <- deserialize- skip 1- return- (MkButtonRelease detail time root event child root_x root_y event_x- event_y- state- same_screen)- -data Motion = MotionNormal- | MotionHint- -instance SimpleEnum Motion where- toValue MotionNormal{} = 0- toValue MotionHint{} = 1- fromValue 0 = MotionNormal- fromValue 1 = MotionHint- -data MotionNotify = MkMotionNotify{detail_MotionNotify :: BYTE,- time_MotionNotify :: TIMESTAMP, root_MotionNotify :: WINDOW,- event_MotionNotify :: WINDOW, child_MotionNotify :: WINDOW,- root_x_MotionNotify :: INT16, root_y_MotionNotify :: INT16,- event_x_MotionNotify :: INT16, event_y_MotionNotify :: INT16,- state_MotionNotify :: CARD16, same_screen_MotionNotify :: BOOL}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event MotionNotify- -instance Deserialize MotionNotify where- deserialize- = do skip 1- detail <- deserialize- skip 2- time <- deserialize- root <- deserialize- event <- deserialize- child <- deserialize- root_x <- deserialize- root_y <- deserialize- event_x <- deserialize- event_y <- deserialize- state <- deserialize- same_screen <- deserialize- skip 1- return- (MkMotionNotify detail time root event child root_x root_y event_x- event_y- state- same_screen)- -data NotifyDetail = NotifyDetailAncestor- | NotifyDetailVirtual- | NotifyDetailInferior- | NotifyDetailNonlinear- | NotifyDetailNonlinearVirtual- | NotifyDetailPointer- | NotifyDetailPointerRoot- | NotifyDetailNone- -instance SimpleEnum NotifyDetail where- toValue NotifyDetailAncestor{} = 0- toValue NotifyDetailVirtual{} = 1- toValue NotifyDetailInferior{} = 2- toValue NotifyDetailNonlinear{} = 3- toValue NotifyDetailNonlinearVirtual{} = 4- toValue NotifyDetailPointer{} = 5- toValue NotifyDetailPointerRoot{} = 6- toValue NotifyDetailNone{} = 7- fromValue 0 = NotifyDetailAncestor- fromValue 1 = NotifyDetailVirtual- fromValue 2 = NotifyDetailInferior- fromValue 3 = NotifyDetailNonlinear- fromValue 4 = NotifyDetailNonlinearVirtual- fromValue 5 = NotifyDetailPointer- fromValue 6 = NotifyDetailPointerRoot- fromValue 7 = NotifyDetailNone- -data NotifyMode = NotifyModeNormal- | NotifyModeGrab- | NotifyModeUngrab- | NotifyModeWhileGrabbed- -instance SimpleEnum NotifyMode where- toValue NotifyModeNormal{} = 0- toValue NotifyModeGrab{} = 1- toValue NotifyModeUngrab{} = 2- toValue NotifyModeWhileGrabbed{} = 3- fromValue 0 = NotifyModeNormal- fromValue 1 = NotifyModeGrab- fromValue 2 = NotifyModeUngrab- fromValue 3 = NotifyModeWhileGrabbed- -data EnterNotify = MkEnterNotify{detail_EnterNotify :: BYTE,- time_EnterNotify :: TIMESTAMP, root_EnterNotify :: WINDOW,- event_EnterNotify :: WINDOW, child_EnterNotify :: WINDOW,- root_x_EnterNotify :: INT16, root_y_EnterNotify :: INT16,- event_x_EnterNotify :: INT16, event_y_EnterNotify :: INT16,- state_EnterNotify :: CARD16, mode_EnterNotify :: BYTE,- same_screen_focus_EnterNotify :: BYTE}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event EnterNotify- -instance Deserialize EnterNotify where- deserialize- = do skip 1- detail <- deserialize- skip 2- time <- deserialize- root <- deserialize- event <- deserialize- child <- deserialize- root_x <- deserialize- root_y <- deserialize- event_x <- deserialize- event_y <- deserialize- state <- deserialize- mode <- deserialize- same_screen_focus <- deserialize- return- (MkEnterNotify detail time root event child root_x root_y event_x- event_y- state- mode- same_screen_focus)- -data LeaveNotify = MkLeaveNotify{detail_LeaveNotify :: BYTE,- time_LeaveNotify :: TIMESTAMP, root_LeaveNotify :: WINDOW,- event_LeaveNotify :: WINDOW, child_LeaveNotify :: WINDOW,- root_x_LeaveNotify :: INT16, root_y_LeaveNotify :: INT16,- event_x_LeaveNotify :: INT16, event_y_LeaveNotify :: INT16,- state_LeaveNotify :: CARD16, mode_LeaveNotify :: BYTE,- same_screen_focus_LeaveNotify :: BYTE}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event LeaveNotify- -instance Deserialize LeaveNotify where- deserialize- = do skip 1- detail <- deserialize- skip 2- time <- deserialize- root <- deserialize- event <- deserialize- child <- deserialize- root_x <- deserialize- root_y <- deserialize- event_x <- deserialize- event_y <- deserialize- state <- deserialize- mode <- deserialize- same_screen_focus <- deserialize- return- (MkLeaveNotify detail time root event child root_x root_y event_x- event_y- state- mode- same_screen_focus)- -data FocusIn = MkFocusIn{detail_FocusIn :: BYTE,- event_FocusIn :: WINDOW, mode_FocusIn :: BYTE}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event FocusIn- -instance Deserialize FocusIn where- deserialize- = do skip 1- detail <- deserialize- skip 2- event <- deserialize- mode <- deserialize- skip 3- return (MkFocusIn detail event mode)- -data FocusOut = MkFocusOut{detail_FocusOut :: BYTE,- event_FocusOut :: WINDOW, mode_FocusOut :: BYTE}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event FocusOut- -instance Deserialize FocusOut where- deserialize- = do skip 1- detail <- deserialize- skip 2- event <- deserialize- mode <- deserialize- skip 3- return (MkFocusOut detail event mode)- -data KeymapNotify = MkKeymapNotify{keys_KeymapNotify :: [CARD8]}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event KeymapNotify- -instance Deserialize KeymapNotify where- deserialize- = do skip 1- keys <- deserializeList (fromIntegral 31)- return (MkKeymapNotify keys)- -data Expose = MkExpose{window_Expose :: WINDOW, x_Expose :: CARD16,- y_Expose :: CARD16, width_Expose :: CARD16,- height_Expose :: CARD16, count_Expose :: CARD16}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event Expose- -instance Deserialize Expose where- deserialize- = do skip 1- skip 1- skip 2- window <- deserialize- x <- deserialize- y <- deserialize- width <- deserialize- height <- deserialize- count <- deserialize- skip 2- return (MkExpose window x y width height count)- -data GraphicsExposure = MkGraphicsExposure{drawable_GraphicsExposure- :: DRAWABLE,- x_GraphicsExposure :: CARD16,- y_GraphicsExposure :: CARD16,- width_GraphicsExposure :: CARD16,- height_GraphicsExposure :: CARD16,- minor_opcode_GraphicsExposure :: CARD16,- count_GraphicsExposure :: CARD16,- major_opcode_GraphicsExposure :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event GraphicsExposure- -instance Deserialize GraphicsExposure where- deserialize- = do skip 1- skip 1- skip 2- drawable <- deserialize- x <- deserialize- y <- deserialize- width <- deserialize- height <- deserialize- minor_opcode <- deserialize- count <- deserialize- major_opcode <- deserialize- skip 3- return- (MkGraphicsExposure drawable x y width height minor_opcode count- major_opcode)- -data NoExposure = MkNoExposure{drawable_NoExposure :: DRAWABLE,- minor_opcode_NoExposure :: CARD16,- major_opcode_NoExposure :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event NoExposure- -instance Deserialize NoExposure where- deserialize- = do skip 1- skip 1- skip 2- drawable <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkNoExposure drawable minor_opcode major_opcode)- -data Visibility = VisibilityUnobscured- | VisibilityPartiallyObscured- | VisibilityFullyObscured- -instance SimpleEnum Visibility where- toValue VisibilityUnobscured{} = 0- toValue VisibilityPartiallyObscured{} = 1- toValue VisibilityFullyObscured{} = 2- fromValue 0 = VisibilityUnobscured- fromValue 1 = VisibilityPartiallyObscured- fromValue 2 = VisibilityFullyObscured- -data VisibilityNotify = MkVisibilityNotify{window_VisibilityNotify- :: WINDOW,- state_VisibilityNotify :: BYTE}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event VisibilityNotify- -instance Deserialize VisibilityNotify where- deserialize- = do skip 1- skip 1- skip 2- window <- deserialize- state <- deserialize- skip 3- return (MkVisibilityNotify window state)- -data CreateNotify = MkCreateNotify{parent_CreateNotify :: WINDOW,- window_CreateNotify :: WINDOW, x_CreateNotify :: INT16,- y_CreateNotify :: INT16, width_CreateNotify :: CARD16,- height_CreateNotify :: CARD16,- border_width_CreateNotify :: CARD16,- override_redirect_CreateNotify :: BOOL}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event CreateNotify- -instance Deserialize CreateNotify where- deserialize- = do skip 1- skip 1- skip 2- parent <- deserialize- window <- deserialize- x <- deserialize- y <- deserialize- width <- deserialize- height <- deserialize- border_width <- deserialize- override_redirect <- deserialize- skip 1- return- (MkCreateNotify parent window x y width height border_width- override_redirect)- -data DestroyNotify = MkDestroyNotify{event_DestroyNotify :: WINDOW,- window_DestroyNotify :: WINDOW}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event DestroyNotify- -instance Deserialize DestroyNotify where- deserialize- = do skip 1- skip 1- skip 2- event <- deserialize- window <- deserialize- return (MkDestroyNotify event window)- -data UnmapNotify = MkUnmapNotify{event_UnmapNotify :: WINDOW,- window_UnmapNotify :: WINDOW, from_configure_UnmapNotify :: BOOL}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event UnmapNotify- -instance Deserialize UnmapNotify where- deserialize- = do skip 1- skip 1- skip 2- event <- deserialize- window <- deserialize- from_configure <- deserialize- skip 3- return (MkUnmapNotify event window from_configure)- -data MapNotify = MkMapNotify{event_MapNotify :: WINDOW,- window_MapNotify :: WINDOW, override_redirect_MapNotify :: BOOL}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event MapNotify- -instance Deserialize MapNotify where- deserialize- = do skip 1- skip 1- skip 2- event <- deserialize- window <- deserialize- override_redirect <- deserialize- skip 3- return (MkMapNotify event window override_redirect)- -data MapRequest = MkMapRequest{parent_MapRequest :: WINDOW,- window_MapRequest :: WINDOW}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event MapRequest- -instance Deserialize MapRequest where- deserialize- = do skip 1- skip 1- skip 2- parent <- deserialize- window <- deserialize- return (MkMapRequest parent window)- -data ReparentNotify = MkReparentNotify{event_ReparentNotify ::- WINDOW,- window_ReparentNotify :: WINDOW,- parent_ReparentNotify :: WINDOW, x_ReparentNotify :: INT16,- y_ReparentNotify :: INT16,- override_redirect_ReparentNotify :: BOOL}- deriving (Show, Typeable)-- -data ClientMessageData = ClientData8 [CARD8] -- ^length 20- | ClientData16 [CARD16] -- ^length 10- | ClientData32 [CARD32] -- ^length 5- deriving (Show, Typeable)-- -data ClientMessageDataType = CDType8- | CDType16- | CDType32- -clientMessageDataType :: ClientMessageData -> ClientMessageDataType-clientMessageDataType ClientData8{} = CDType8-clientMessageDataType ClientData16{} = CDType16-clientMessageDataType ClientData32{} = CDType32- -instance Serialize ClientMessageData where- serialize (ClientData8 xs) = assert (length xs == 20) $- serializeList xs- serialize (ClientData16 xs) = assert (length xs == 10) $- serializeList xs- serialize (ClientData32 xs) = assert (length xs == 5) $- serializeList xs- size cd = assert- (case cd of- ClientData8 xs -> length xs == 20- ClientData16 xs -> length xs == 10- ClientData32 xs -> length xs == 5)- 20--deserializeClientData :: ClientMessageDataType -> Get ClientMessageData-deserializeClientData CDType8- = ClientData8 `liftM` deserializeList 20-deserializeClientData CDType16- = ClientData16 `liftM` deserializeList 10-deserializeClientData CDType32- = ClientData32 `liftM` deserializeList 5- -clientDataFormatToType :: CARD8 -> ClientMessageDataType-clientDataFormatToType 8 = CDType8-clientDataFormatToType 16 = CDType16-clientDataFormatToType 32 = CDType32-clientDataFormatToType _ = CDType8 -- should we throw an error here?-- -instance Graphics.XHB.Shared.Event ReparentNotify- -instance Deserialize ReparentNotify where- deserialize- = do skip 1- skip 1- skip 2- event <- deserialize- window <- deserialize- parent <- deserialize- x <- deserialize- y <- deserialize- override_redirect <- deserialize- skip 3- return (MkReparentNotify event window parent x y override_redirect)- -data ConfigureNotify = MkConfigureNotify{event_ConfigureNotify ::- WINDOW,- window_ConfigureNotify :: WINDOW,- above_sibling_ConfigureNotify :: WINDOW,- x_ConfigureNotify :: INT16, y_ConfigureNotify :: INT16,- width_ConfigureNotify :: CARD16,- height_ConfigureNotify :: CARD16,- border_width_ConfigureNotify :: CARD16,- override_redirect_ConfigureNotify :: BOOL}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event ConfigureNotify- -instance Deserialize ConfigureNotify where- deserialize- = do skip 1- skip 1- skip 2- event <- deserialize- window <- deserialize- above_sibling <- deserialize- x <- deserialize- y <- deserialize- width <- deserialize- height <- deserialize- border_width <- deserialize- override_redirect <- deserialize- skip 1- return- (MkConfigureNotify event window above_sibling x y width height- border_width- override_redirect)- -data ConfigureRequest = MkConfigureRequest{stack_mode_ConfigureRequest- :: BYTE,- parent_ConfigureRequest :: WINDOW,- window_ConfigureRequest :: WINDOW,- sibling_ConfigureRequest :: WINDOW,- x_ConfigureRequest :: INT16, y_ConfigureRequest :: INT16,- width_ConfigureRequest :: CARD16,- height_ConfigureRequest :: CARD16,- border_width_ConfigureRequest :: CARD16,- value_mask_ConfigureRequest :: CARD16}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event ConfigureRequest- -instance Deserialize ConfigureRequest where- deserialize- = do skip 1- stack_mode <- deserialize- skip 2- parent <- deserialize- window <- deserialize- sibling <- deserialize- x <- deserialize- y <- deserialize- width <- deserialize- height <- deserialize- border_width <- deserialize- value_mask <- deserialize- return- (MkConfigureRequest stack_mode parent window sibling x y width- height- border_width- value_mask)- -data GravityNotify = MkGravityNotify{event_GravityNotify :: WINDOW,- window_GravityNotify :: WINDOW, x_GravityNotify :: INT16,- y_GravityNotify :: INT16}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event GravityNotify- -instance Deserialize GravityNotify where- deserialize- = do skip 1- skip 1- skip 2- event <- deserialize- window <- deserialize- x <- deserialize- y <- deserialize- return (MkGravityNotify event window x y)- -data ResizeRequest = MkResizeRequest{window_ResizeRequest ::- WINDOW,- width_ResizeRequest :: CARD16, height_ResizeRequest :: CARD16}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event ResizeRequest- -instance Deserialize ResizeRequest where- deserialize- = do skip 1- skip 1- skip 2- window <- deserialize- width <- deserialize- height <- deserialize- return (MkResizeRequest window width height)- -data Place = PlaceOnTop- | PlaceOnBottom- -instance SimpleEnum Place where- toValue PlaceOnTop{} = 0- toValue PlaceOnBottom{} = 1- fromValue 0 = PlaceOnTop- fromValue 1 = PlaceOnBottom- -data CirculateNotify = MkCirculateNotify{event_CirculateNotify ::- WINDOW,- window_CirculateNotify :: WINDOW,- place_CirculateNotify :: BYTE}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event CirculateNotify- -instance Deserialize CirculateNotify where- deserialize- = do skip 1- skip 1- skip 2- event <- deserialize- window <- deserialize- skip 4- place <- deserialize- skip 3- return (MkCirculateNotify event window place)- -data CirculateRequest = MkCirculateRequest{event_CirculateRequest- :: WINDOW,- window_CirculateRequest :: WINDOW,- place_CirculateRequest :: BYTE}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event CirculateRequest- -instance Deserialize CirculateRequest where- deserialize- = do skip 1- skip 1- skip 2- event <- deserialize- window <- deserialize- skip 4- place <- deserialize- skip 3- return (MkCirculateRequest event window place)- -data Property = PropertyNewValue- | PropertyDelete- -instance SimpleEnum Property where- toValue PropertyNewValue{} = 0- toValue PropertyDelete{} = 1- fromValue 0 = PropertyNewValue- fromValue 1 = PropertyDelete- -data PropertyNotify = MkPropertyNotify{window_PropertyNotify ::- WINDOW,- atom_PropertyNotify :: ATOM,- time_PropertyNotify :: TIMESTAMP,- state_PropertyNotify :: BYTE}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event PropertyNotify- -instance Deserialize PropertyNotify where- deserialize- = do skip 1- skip 1- skip 2- window <- deserialize- atom <- deserialize- time <- deserialize- state <- deserialize- skip 3- return (MkPropertyNotify window atom time state)- -data SelectionClear = MkSelectionClear{time_SelectionClear ::- TIMESTAMP,- owner_SelectionClear :: WINDOW,- selection_SelectionClear :: ATOM}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event SelectionClear- -instance Deserialize SelectionClear where- deserialize- = do skip 1- skip 1- skip 2- time <- deserialize- owner <- deserialize- selection <- deserialize- return (MkSelectionClear time owner selection)- -data SelectionRequest = MkSelectionRequest{time_SelectionRequest ::- TIMESTAMP,- owner_SelectionRequest :: WINDOW,- requestor_SelectionRequest :: WINDOW,- selection_SelectionRequest :: ATOM,- target_SelectionRequest :: ATOM,- property_SelectionRequest :: ATOM}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event SelectionRequest- -instance Deserialize SelectionRequest where- deserialize- = do skip 1- skip 1- skip 2- time <- deserialize- owner <- deserialize- requestor <- deserialize- selection <- deserialize- target <- deserialize- property <- deserialize- return- (MkSelectionRequest time owner requestor selection target property)- -data SelectionNotify = MkSelectionNotify{time_SelectionNotify ::- TIMESTAMP,- requestor_SelectionNotify :: WINDOW,- selection_SelectionNotify :: ATOM,- target_SelectionNotify :: ATOM,- property_SelectionNotify :: ATOM}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event SelectionNotify- -instance Deserialize SelectionNotify where- deserialize- = do skip 1- skip 1- skip 2- time <- deserialize- requestor <- deserialize- selection <- deserialize- target <- deserialize- property <- deserialize- return (MkSelectionNotify time requestor selection target property)- -data ColormapState = ColormapStateUninstalled- | ColormapStateInstalled- -instance SimpleEnum ColormapState where- toValue ColormapStateUninstalled{} = 0- toValue ColormapStateInstalled{} = 1- fromValue 0 = ColormapStateUninstalled- fromValue 1 = ColormapStateInstalled- -data ColormapNotify = MkColormapNotify{window_ColormapNotify ::- WINDOW,- colormap_ColormapNotify :: COLORMAP,- new_ColormapNotify :: BOOL, state_ColormapNotify :: BYTE}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event ColormapNotify- -instance Deserialize ColormapNotify where- deserialize- = do skip 1- skip 1- skip 2- window <- deserialize- colormap <- deserialize- new <- deserialize- state <- deserialize- skip 2- return (MkColormapNotify window colormap new state)- -data ClientMessage = MkClientMessage{format_ClientMessage :: CARD8,- window_ClientMessage :: WINDOW, type_ClientMessage :: ATOM,- data_ClientMessage :: ClientMessageData}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event ClientMessage- -instance Deserialize ClientMessage where- deserialize- = do skip 1- format <- deserialize- skip 2- window <- deserialize- type_ <- deserialize- data_ <- deserializeClientData (clientDataFormatToType format)- return (MkClientMessage format window type_ data_)- -data Mapping = MappingModifier- | MappingKeyboard- | MappingPointer- -instance SimpleEnum Mapping where- toValue MappingModifier{} = 0- toValue MappingKeyboard{} = 1- toValue MappingPointer{} = 2- fromValue 0 = MappingModifier- fromValue 1 = MappingKeyboard- fromValue 2 = MappingPointer- -data MappingNotify = MkMappingNotify{request_MappingNotify :: BYTE,- first_keycode_MappingNotify :: KEYCODE,- count_MappingNotify :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event MappingNotify- -instance Deserialize MappingNotify where- deserialize- = do skip 1- skip 1- skip 2- request <- deserialize- first_keycode <- deserialize- count <- deserialize- skip 1- return (MkMappingNotify request first_keycode count)- -data Request = MkRequest{bad_value_Request :: CARD32,- minor_opcode_Request :: CARD16, major_opcode_Request :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Request- -instance Deserialize Request where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkRequest bad_value minor_opcode major_opcode)- -data Value = MkValue{bad_value_Value :: CARD32,- minor_opcode_Value :: CARD16, major_opcode_Value :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Value- -instance Deserialize Value where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkValue bad_value minor_opcode major_opcode)- -data Window = MkWindow{bad_value_Window :: CARD32,- minor_opcode_Window :: CARD16, major_opcode_Window :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Window- -instance Deserialize Window where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkWindow bad_value minor_opcode major_opcode)- -data Pixmap = MkPixmap{bad_value_Pixmap :: CARD32,- minor_opcode_Pixmap :: CARD16, major_opcode_Pixmap :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Pixmap- -instance Deserialize Pixmap where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkPixmap bad_value minor_opcode major_opcode)- -data Atom = MkAtom{bad_value_Atom :: CARD32,- minor_opcode_Atom :: CARD16, major_opcode_Atom :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Atom- -instance Deserialize Atom where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkAtom bad_value minor_opcode major_opcode)- -data Cursor = MkCursor{bad_value_Cursor :: CARD32,- minor_opcode_Cursor :: CARD16, major_opcode_Cursor :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Cursor- -instance Deserialize Cursor where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkCursor bad_value minor_opcode major_opcode)- -data Font = MkFont{bad_value_Font :: CARD32,- minor_opcode_Font :: CARD16, major_opcode_Font :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Font- -instance Deserialize Font where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkFont bad_value minor_opcode major_opcode)- -data Match = MkMatch{bad_value_Match :: CARD32,- minor_opcode_Match :: CARD16, major_opcode_Match :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Match- -instance Deserialize Match where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkMatch bad_value minor_opcode major_opcode)- -data Drawable = MkDrawable{bad_value_Drawable :: CARD32,- minor_opcode_Drawable :: CARD16, major_opcode_Drawable :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Drawable- -instance Deserialize Drawable where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkDrawable bad_value minor_opcode major_opcode)- -data Access = MkAccess{bad_value_Access :: CARD32,- minor_opcode_Access :: CARD16, major_opcode_Access :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Access- -instance Deserialize Access where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkAccess bad_value minor_opcode major_opcode)- -data Alloc = MkAlloc{bad_value_Alloc :: CARD32,- minor_opcode_Alloc :: CARD16, major_opcode_Alloc :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Alloc- -instance Deserialize Alloc where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkAlloc bad_value minor_opcode major_opcode)- -data Colormap = MkColormap{bad_value_Colormap :: CARD32,- minor_opcode_Colormap :: CARD16, major_opcode_Colormap :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Colormap- -instance Deserialize Colormap where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkColormap bad_value minor_opcode major_opcode)- -data GContext = MkGContext{bad_value_GContext :: CARD32,- minor_opcode_GContext :: CARD16, major_opcode_GContext :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error GContext- -instance Deserialize GContext where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkGContext bad_value minor_opcode major_opcode)- -data IDChoice = MkIDChoice{bad_value_IDChoice :: CARD32,- minor_opcode_IDChoice :: CARD16, major_opcode_IDChoice :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error IDChoice- -instance Deserialize IDChoice where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkIDChoice bad_value minor_opcode major_opcode)- -data Name = MkName{bad_value_Name :: CARD32,- minor_opcode_Name :: CARD16, major_opcode_Name :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Name- -instance Deserialize Name where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkName bad_value minor_opcode major_opcode)- -data Length = MkLength{bad_value_Length :: CARD32,- minor_opcode_Length :: CARD16, major_opcode_Length :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Length- -instance Deserialize Length where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkLength bad_value minor_opcode major_opcode)- -data Implementation = MkImplementation{bad_value_Implementation ::- CARD32,- minor_opcode_Implementation :: CARD16,- major_opcode_Implementation :: CARD8}- deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Implementation- -instance Deserialize Implementation where- deserialize- = do skip 4- bad_value <- deserialize- minor_opcode <- deserialize- major_opcode <- deserialize- skip 1- return (MkImplementation bad_value minor_opcode major_opcode)- -data WindowClass = WindowClassCopyFromParent- | WindowClassInputOutput- | WindowClassInputOnly- -instance SimpleEnum WindowClass where- toValue WindowClassCopyFromParent{} = 0- toValue WindowClassInputOutput{} = 1- toValue WindowClassInputOnly{} = 2- fromValue 0 = WindowClassCopyFromParent- fromValue 1 = WindowClassInputOutput- fromValue 2 = WindowClassInputOnly- -data CW = CWBackPixmap- | CWBackPixel- | CWBorderPixmap- | CWBorderPixel- | CWBitGravity- | CWWinGravity- | CWBackingStore- | CWBackingPlanes- | CWBackingPixel- | CWOverrideRedirect- | CWSaveUnder- | CWEventMask- | CWDontPropagate- | CWColormap- | CWCursor- -instance BitEnum CW where- toBit CWBackPixmap{} = 0- toBit CWBackPixel{} = 1- toBit CWBorderPixmap{} = 2- toBit CWBorderPixel{} = 3- toBit CWBitGravity{} = 4- toBit CWWinGravity{} = 5- toBit CWBackingStore{} = 6- toBit CWBackingPlanes{} = 7- toBit CWBackingPixel{} = 8- toBit CWOverrideRedirect{} = 9- toBit CWSaveUnder{} = 10- toBit CWEventMask{} = 11- toBit CWDontPropagate{} = 12- toBit CWColormap{} = 13- toBit CWCursor{} = 14- fromBit 0 = CWBackPixmap- fromBit 1 = CWBackPixel- fromBit 2 = CWBorderPixmap- fromBit 3 = CWBorderPixel- fromBit 4 = CWBitGravity- fromBit 5 = CWWinGravity- fromBit 6 = CWBackingStore- fromBit 7 = CWBackingPlanes- fromBit 8 = CWBackingPixel- fromBit 9 = CWOverrideRedirect- fromBit 10 = CWSaveUnder- fromBit 11 = CWEventMask- fromBit 12 = CWDontPropagate- fromBit 13 = CWColormap- fromBit 14 = CWCursor- -data BackPixmap = BackPixmapNone- | BackPixmapParentRelative- -instance SimpleEnum BackPixmap where- toValue BackPixmapNone{} = 0- toValue BackPixmapParentRelative{} = 1- fromValue 0 = BackPixmapNone- fromValue 1 = BackPixmapParentRelative- -data Gravity = GravityBitForget- | GravityWinUnmap- | GravityNorthWest- | GravityNorth- | GravityNorthEast- | GravityWest- | GravityCenter- | GravityEast- | GravitySouthWest- | GravitySouth- | GravitySouthEast- | GravityStatic- -instance SimpleEnum Gravity where- toValue GravityBitForget{} = 0- toValue GravityWinUnmap{} = 0- toValue GravityNorthWest{} = 1- toValue GravityNorth{} = 2- toValue GravityNorthEast{} = 3- toValue GravityWest{} = 4- toValue GravityCenter{} = 5- toValue GravityEast{} = 6- toValue GravitySouthWest{} = 7- toValue GravitySouth{} = 8- toValue GravitySouthEast{} = 9- toValue GravityStatic{} = 10- fromValue 0 = GravityBitForget- fromValue 0 = GravityWinUnmap- fromValue 1 = GravityNorthWest- fromValue 2 = GravityNorth- fromValue 3 = GravityNorthEast- fromValue 4 = GravityWest- fromValue 5 = GravityCenter- fromValue 6 = GravityEast- fromValue 7 = GravitySouthWest- fromValue 8 = GravitySouth- fromValue 9 = GravitySouthEast- fromValue 10 = GravityStatic- -data BackingStore = BackingStoreNotUseful- | BackingStoreWhenMapped- | BackingStoreAlways- -instance SimpleEnum BackingStore where- toValue BackingStoreNotUseful{} = 0- toValue BackingStoreWhenMapped{} = 1- toValue BackingStoreAlways{} = 2- fromValue 0 = BackingStoreNotUseful- fromValue 1 = BackingStoreWhenMapped- fromValue 2 = BackingStoreAlways- -data EventMask = EventMaskKeyPress- | EventMaskKeyRelease- | EventMaskButtonPress- | EventMaskButtonRelease- | EventMaskEnterWindow- | EventMaskLeaveWindow- | EventMaskPointerMotion- | EventMaskPointerMotionHint- | EventMaskButton1Motion- | EventMaskButton2Motion- | EventMaskButton3Motion- | EventMaskButton4Motion- | EventMaskButton5Motion- | EventMaskButtonMotion- | EventMaskKeymapState- | EventMaskExposure- | EventMaskVisibilityChange- | EventMaskStructureNotify- | EventMaskResizeRedirect- | EventMaskSubstructureNotify- | EventMaskSubstructureRedirect- | EventMaskFocusChange- | EventMaskPropertyChange- | EventMaskColorMapChange- | EventMaskOwnerGrabButton- -instance BitEnum EventMask where- toBit EventMaskKeyPress{} = 0- toBit EventMaskKeyRelease{} = 1- toBit EventMaskButtonPress{} = 2- toBit EventMaskButtonRelease{} = 3- toBit EventMaskEnterWindow{} = 4- toBit EventMaskLeaveWindow{} = 5- toBit EventMaskPointerMotion{} = 6- toBit EventMaskPointerMotionHint{} = 7- toBit EventMaskButton1Motion{} = 8- toBit EventMaskButton2Motion{} = 9- toBit EventMaskButton3Motion{} = 10- toBit EventMaskButton4Motion{} = 11- toBit EventMaskButton5Motion{} = 12- toBit EventMaskButtonMotion{} = 13- toBit EventMaskKeymapState{} = 14- toBit EventMaskExposure{} = 15- toBit EventMaskVisibilityChange{} = 16- toBit EventMaskStructureNotify{} = 17- toBit EventMaskResizeRedirect{} = 18- toBit EventMaskSubstructureNotify{} = 19- toBit EventMaskSubstructureRedirect{} = 20- toBit EventMaskFocusChange{} = 21- toBit EventMaskPropertyChange{} = 22- toBit EventMaskColorMapChange{} = 23- toBit EventMaskOwnerGrabButton{} = 24- fromBit 0 = EventMaskKeyPress- fromBit 1 = EventMaskKeyRelease- fromBit 2 = EventMaskButtonPress- fromBit 3 = EventMaskButtonRelease- fromBit 4 = EventMaskEnterWindow- fromBit 5 = EventMaskLeaveWindow- fromBit 6 = EventMaskPointerMotion- fromBit 7 = EventMaskPointerMotionHint- fromBit 8 = EventMaskButton1Motion- fromBit 9 = EventMaskButton2Motion- fromBit 10 = EventMaskButton3Motion- fromBit 11 = EventMaskButton4Motion- fromBit 12 = EventMaskButton5Motion- fromBit 13 = EventMaskButtonMotion- fromBit 14 = EventMaskKeymapState- fromBit 15 = EventMaskExposure- fromBit 16 = EventMaskVisibilityChange- fromBit 17 = EventMaskStructureNotify- fromBit 18 = EventMaskResizeRedirect- fromBit 19 = EventMaskSubstructureNotify- fromBit 20 = EventMaskSubstructureRedirect- fromBit 21 = EventMaskFocusChange- fromBit 22 = EventMaskPropertyChange- fromBit 23 = EventMaskColorMapChange- fromBit 24 = EventMaskOwnerGrabButton- -data CreateWindow = MkCreateWindow{depth_CreateWindow :: CARD8,- wid_CreateWindow :: WINDOW, parent_CreateWindow :: WINDOW,- x_CreateWindow :: INT16, y_CreateWindow :: INT16,- width_CreateWindow :: CARD16, height_CreateWindow :: CARD16,- border_width_CreateWindow :: CARD16,- class_CreateWindow :: CARD16, visual_CreateWindow :: VISUALID,- value_CreateWindow :: ValueParam CARD32}- deriving (Show, Typeable)- -instance Serialize CreateWindow where- serialize x- = do putWord8 1- serialize (depth_CreateWindow x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (wid_CreateWindow x)- serialize (parent_CreateWindow x)- serialize (x_CreateWindow x)- serialize (y_CreateWindow x)- serialize (width_CreateWindow x)- serialize (height_CreateWindow x)- serialize (border_width_CreateWindow x)- serialize (class_CreateWindow x)- serialize (visual_CreateWindow x)- serialize (value_CreateWindow x)- putSkip (requiredPadding (size x))- size x- = 3 + size (depth_CreateWindow x) + size (wid_CreateWindow x) +- size (parent_CreateWindow x)- + size (x_CreateWindow x)- + size (y_CreateWindow x)- + size (width_CreateWindow x)- + size (height_CreateWindow x)- + size (border_width_CreateWindow x)- + size (class_CreateWindow x)- + size (visual_CreateWindow x)- + size (value_CreateWindow x)- -data ChangeWindowAttributes = MkChangeWindowAttributes{window_ChangeWindowAttributes- :: WINDOW,- value_ChangeWindowAttributes ::- ValueParam CARD32}- deriving (Show, Typeable)- -instance Serialize ChangeWindowAttributes where- serialize x- = do putWord8 2- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_ChangeWindowAttributes x)- serialize (value_ChangeWindowAttributes x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (window_ChangeWindowAttributes x) +- size (value_ChangeWindowAttributes x)- -data MapState = MapStateUnmapped- | MapStateUnviewable- | MapStateViewable- -instance SimpleEnum MapState where- toValue MapStateUnmapped{} = 0- toValue MapStateUnviewable{} = 1- toValue MapStateViewable{} = 2- fromValue 0 = MapStateUnmapped- fromValue 1 = MapStateUnviewable- fromValue 2 = MapStateViewable- -data GetWindowAttributes = MkGetWindowAttributes{window_GetWindowAttributes- :: WINDOW}- deriving (Show, Typeable)- -instance Serialize GetWindowAttributes where- serialize x- = do putWord8 3- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_GetWindowAttributes x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (window_GetWindowAttributes x)- -data GetWindowAttributesReply = MkGetWindowAttributesReply{backing_store_GetWindowAttributesReply- :: CARD8,- visual_GetWindowAttributesReply ::- VISUALID,- class_GetWindowAttributesReply :: CARD16,- bit_gravity_GetWindowAttributesReply ::- CARD8,- win_gravity_GetWindowAttributesReply ::- CARD8,- backing_planes_GetWindowAttributesReply- :: CARD32,- backing_pixel_GetWindowAttributesReply ::- CARD32,- save_under_GetWindowAttributesReply ::- BOOL,- map_is_installed_GetWindowAttributesReply- :: BOOL,- map_state_GetWindowAttributesReply ::- CARD8,- override_redirect_GetWindowAttributesReply- :: BOOL,- colormap_GetWindowAttributesReply ::- COLORMAP,- all_event_masks_GetWindowAttributesReply- :: CARD32,- your_event_mask_GetWindowAttributesReply- :: CARD32,- do_not_propagate_mask_GetWindowAttributesReply- :: CARD16}- deriving (Show, Typeable)- -instance Deserialize GetWindowAttributesReply where- deserialize- = do skip 1- backing_store <- deserialize- skip 2- length <- deserialize- visual <- deserialize- class_ <- deserialize- bit_gravity <- deserialize- win_gravity <- deserialize- backing_planes <- deserialize- backing_pixel <- deserialize- save_under <- deserialize- map_is_installed <- deserialize- map_state <- deserialize- override_redirect <- deserialize- colormap <- deserialize- all_event_masks <- deserialize- your_event_mask <- deserialize- do_not_propagate_mask <- deserialize- skip 2- let _ = isCard32 length- return- (MkGetWindowAttributesReply backing_store visual class_ bit_gravity- win_gravity- backing_planes- backing_pixel- save_under- map_is_installed- map_state- override_redirect- colormap- all_event_masks- your_event_mask- do_not_propagate_mask)- -data DestroyWindow = MkDestroyWindow{window_DestroyWindow ::- WINDOW}- deriving (Show, Typeable)- -instance Serialize DestroyWindow where- serialize x- = do putWord8 4- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_DestroyWindow x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (window_DestroyWindow x)- -data DestroySubwindows = MkDestroySubwindows{window_DestroySubwindows- :: WINDOW}- deriving (Show, Typeable)- -instance Serialize DestroySubwindows where- serialize x- = do putWord8 5- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_DestroySubwindows x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (window_DestroySubwindows x)- -data SetMode = SetModeInsert- | SetModeDelete- -instance SimpleEnum SetMode where- toValue SetModeInsert{} = 0- toValue SetModeDelete{} = 1- fromValue 0 = SetModeInsert- fromValue 1 = SetModeDelete- -data ChangeSaveSet = MkChangeSaveSet{mode_ChangeSaveSet :: BYTE,- window_ChangeSaveSet :: WINDOW}- deriving (Show, Typeable)- -instance Serialize ChangeSaveSet where- serialize x- = do putWord8 6- serialize (mode_ChangeSaveSet x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_ChangeSaveSet x)- putSkip (requiredPadding (size x))- size x- = 3 + size (mode_ChangeSaveSet x) + size (window_ChangeSaveSet x)- -data ReparentWindow = MkReparentWindow{window_ReparentWindow ::- WINDOW,- parent_ReparentWindow :: WINDOW, x_ReparentWindow :: INT16,- y_ReparentWindow :: INT16}- deriving (Show, Typeable)- -instance Serialize ReparentWindow where- serialize x- = do putWord8 7- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_ReparentWindow x)- serialize (parent_ReparentWindow x)- serialize (x_ReparentWindow x)- serialize (y_ReparentWindow x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (window_ReparentWindow x) +- size (parent_ReparentWindow x)- + size (x_ReparentWindow x)- + size (y_ReparentWindow x)- -data MapWindow = MkMapWindow{window_MapWindow :: WINDOW}- deriving (Show, Typeable)- -instance Serialize MapWindow where- serialize x- = do putWord8 8- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_MapWindow x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (window_MapWindow x)- -data MapSubwindows = MkMapSubwindows{window_MapSubwindows ::- WINDOW}- deriving (Show, Typeable)- -instance Serialize MapSubwindows where- serialize x- = do putWord8 9- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_MapSubwindows x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (window_MapSubwindows x)- -data UnmapWindow = MkUnmapWindow{window_UnmapWindow :: WINDOW}- deriving (Show, Typeable)- -instance Serialize UnmapWindow where- serialize x- = do putWord8 10- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_UnmapWindow x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (window_UnmapWindow x)- -data UnmapSubwindows = MkUnmapSubwindows{window_UnmapSubwindows ::- WINDOW}- deriving (Show, Typeable)- -instance Serialize UnmapSubwindows where- serialize x- = do putWord8 11- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_UnmapSubwindows x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (window_UnmapSubwindows x)- -data ConfigWindow = ConfigWindowX- | ConfigWindowY- | ConfigWindowWidth- | ConfigWindowHeight- | ConfigWindowBorderWidth- | ConfigWindowSibling- | ConfigWindowStackMode- -instance BitEnum ConfigWindow where- toBit ConfigWindowX{} = 0- toBit ConfigWindowY{} = 1- toBit ConfigWindowWidth{} = 2- toBit ConfigWindowHeight{} = 3- toBit ConfigWindowBorderWidth{} = 4- toBit ConfigWindowSibling{} = 5- toBit ConfigWindowStackMode{} = 6- fromBit 0 = ConfigWindowX- fromBit 1 = ConfigWindowY- fromBit 2 = ConfigWindowWidth- fromBit 3 = ConfigWindowHeight- fromBit 4 = ConfigWindowBorderWidth- fromBit 5 = ConfigWindowSibling- fromBit 6 = ConfigWindowStackMode- -data StackMode = StackModeAbove- | StackModeBelow- | StackModeTopIf- | StackModeBottomIf- | StackModeOpposite- -instance SimpleEnum StackMode where- toValue StackModeAbove{} = 0- toValue StackModeBelow{} = 1- toValue StackModeTopIf{} = 2- toValue StackModeBottomIf{} = 3- toValue StackModeOpposite{} = 4- fromValue 0 = StackModeAbove- fromValue 1 = StackModeBelow- fromValue 2 = StackModeTopIf- fromValue 3 = StackModeBottomIf- fromValue 4 = StackModeOpposite- -data ConfigureWindow = MkConfigureWindow{window_ConfigureWindow ::- WINDOW,- value_ConfigureWindow :: ValueParam CARD16}- deriving (Show, Typeable)- -instance Serialize ConfigureWindow where- serialize x- = do putWord8 12- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_ConfigureWindow x)- serializeValueParam 2 (value_ConfigureWindow x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (window_ConfigureWindow x) +- size (value_ConfigureWindow x)- + 2- -data Circulate = CirculateRaiseLowest- | CirculateLowerHighest- -instance SimpleEnum Circulate where- toValue CirculateRaiseLowest{} = 0- toValue CirculateLowerHighest{} = 1- fromValue 0 = CirculateRaiseLowest- fromValue 1 = CirculateLowerHighest- -data CirculateWindow = MkCirculateWindow{direction_CirculateWindow- :: CARD8,- window_CirculateWindow :: WINDOW}- deriving (Show, Typeable)- -instance Serialize CirculateWindow where- serialize x- = do putWord8 13- serialize (direction_CirculateWindow x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_CirculateWindow x)- putSkip (requiredPadding (size x))- size x- = 3 + size (direction_CirculateWindow x) +- size (window_CirculateWindow x)- -data GetGeometry = MkGetGeometry{drawable_GetGeometry :: DRAWABLE}- deriving (Show, Typeable)- -instance Serialize GetGeometry where- serialize x- = do putWord8 14- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_GetGeometry x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (drawable_GetGeometry x)- -data GetGeometryReply = MkGetGeometryReply{depth_GetGeometryReply- :: CARD8,- root_GetGeometryReply :: WINDOW,- x_GetGeometryReply :: INT16, y_GetGeometryReply :: INT16,- width_GetGeometryReply :: CARD16,- height_GetGeometryReply :: CARD16,- border_width_GetGeometryReply :: CARD16}- deriving (Show, Typeable)- -instance Deserialize GetGeometryReply where- deserialize- = do skip 1- depth <- deserialize- skip 2- length <- deserialize- root <- deserialize- x <- deserialize- y <- deserialize- width <- deserialize- height <- deserialize- border_width <- deserialize- skip 2- let _ = isCard32 length- return- (MkGetGeometryReply depth root x y width height border_width)- -data QueryTree = MkQueryTree{window_QueryTree :: WINDOW}- deriving (Show, Typeable)- -instance Serialize QueryTree where- serialize x- = do putWord8 15- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_QueryTree x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (window_QueryTree x)- -data QueryTreeReply = MkQueryTreeReply{root_QueryTreeReply ::- WINDOW,- parent_QueryTreeReply :: WINDOW,- children_len_QueryTreeReply :: CARD16,- children_QueryTreeReply :: [WINDOW]}- deriving (Show, Typeable)- -instance Deserialize QueryTreeReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- root <- deserialize- parent <- deserialize- children_len <- deserialize- skip 14- children <- deserializeList (fromIntegral children_len)- let _ = isCard32 length- return (MkQueryTreeReply root parent children_len children)- -data InternAtom = MkInternAtom{only_if_exists_InternAtom :: BOOL,- name_len_InternAtom :: CARD16, name_InternAtom :: [CChar]}- deriving (Show, Typeable)- -instance Serialize InternAtom where- serialize x- = do putWord8 16- serialize (only_if_exists_InternAtom x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (name_len_InternAtom x)- putSkip 2- serializeList (name_InternAtom x)- putSkip (requiredPadding (size x))- size x- = 3 + size (only_if_exists_InternAtom x) +- size (name_len_InternAtom x)- + 2- + sum (map size (name_InternAtom x))- -data InternAtomReply = MkInternAtomReply{atom_InternAtomReply ::- ATOM}- deriving (Show, Typeable)- -instance Deserialize InternAtomReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- atom <- deserialize- let _ = isCard32 length- return (MkInternAtomReply atom)- -data GetAtomName = MkGetAtomName{atom_GetAtomName :: ATOM}- deriving (Show, Typeable)- -instance Serialize GetAtomName where- serialize x- = do putWord8 17- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (atom_GetAtomName x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (atom_GetAtomName x)- -data GetAtomNameReply = MkGetAtomNameReply{name_len_GetAtomNameReply- :: CARD16,- name_GetAtomNameReply :: [CChar]}- deriving (Show, Typeable)- -instance Deserialize GetAtomNameReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- name_len <- deserialize- skip 22- name <- deserializeList (fromIntegral name_len)- let _ = isCard32 length- return (MkGetAtomNameReply name_len name)- -data PropMode = PropModeReplace- | PropModePrepend- | PropModeAppend- -instance SimpleEnum PropMode where- toValue PropModeReplace{} = 0- toValue PropModePrepend{} = 1- toValue PropModeAppend{} = 2- fromValue 0 = PropModeReplace- fromValue 1 = PropModePrepend- fromValue 2 = PropModeAppend- -data ChangeProperty = MkChangeProperty{mode_ChangeProperty ::- CARD8,- window_ChangeProperty :: WINDOW,- property_ChangeProperty :: ATOM, type_ChangeProperty :: ATOM,- format_ChangeProperty :: CARD8,- data_len_ChangeProperty :: CARD32,- data_ChangeProperty :: [Word8]}- deriving (Show, Typeable)- -instance Serialize ChangeProperty where- serialize x- = do putWord8 18- serialize (mode_ChangeProperty x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_ChangeProperty x)- serialize (property_ChangeProperty x)- serialize (type_ChangeProperty x)- serialize (format_ChangeProperty x)- putSkip 3- serialize (data_len_ChangeProperty x)- serializeList (data_ChangeProperty x)- putSkip (requiredPadding (size x))- size x- = 3 + size (mode_ChangeProperty x) + size (window_ChangeProperty x)- + size (property_ChangeProperty x)- + size (type_ChangeProperty x)- + size (format_ChangeProperty x)- + 3- + size (data_len_ChangeProperty x)- + sum (map size (data_ChangeProperty x))- -data DeleteProperty = MkDeleteProperty{window_DeleteProperty ::- WINDOW,- property_DeleteProperty :: ATOM}- deriving (Show, Typeable)- -instance Serialize DeleteProperty where- serialize x- = do putWord8 19- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_DeleteProperty x)- serialize (property_DeleteProperty x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (window_DeleteProperty x) +- size (property_DeleteProperty x)- -data GetPropertyType = GetPropertyTypeAny- -instance SimpleEnum GetPropertyType where- toValue GetPropertyTypeAny{} = 0- fromValue 0 = GetPropertyTypeAny- -data GetProperty = MkGetProperty{delete_GetProperty :: BOOL,- window_GetProperty :: WINDOW, property_GetProperty :: ATOM,- type_GetProperty :: ATOM, long_offset_GetProperty :: CARD32,- long_length_GetProperty :: CARD32}- deriving (Show, Typeable)- -instance Serialize GetProperty where- serialize x- = do putWord8 20- serialize (delete_GetProperty x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_GetProperty x)- serialize (property_GetProperty x)- serialize (type_GetProperty x)- serialize (long_offset_GetProperty x)- serialize (long_length_GetProperty x)- putSkip (requiredPadding (size x))- size x- = 3 + size (delete_GetProperty x) + size (window_GetProperty x) +- size (property_GetProperty x)- + size (type_GetProperty x)- + size (long_offset_GetProperty x)- + size (long_length_GetProperty x)- -data GetPropertyReply = MkGetPropertyReply{format_GetPropertyReply- :: CARD8,- type_GetPropertyReply :: ATOM,- bytes_after_GetPropertyReply :: CARD32,- value_len_GetPropertyReply :: CARD32,- value_GetPropertyReply :: [Word8]}- deriving (Show, Typeable)- -instance Deserialize GetPropertyReply where- deserialize- = do skip 1- format <- deserialize- skip 2- length <- deserialize- type_ <- deserialize- bytes_after <- deserialize- value_len <- deserialize- skip 12- value <- deserializeList (fromIntegral value_len)- let _ = isCard32 length- return- (MkGetPropertyReply format type_ bytes_after value_len value)- -data ListProperties = MkListProperties{window_ListProperties ::- WINDOW}- deriving (Show, Typeable)- -instance Serialize ListProperties where- serialize x- = do putWord8 21- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_ListProperties x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (window_ListProperties x)- -data ListPropertiesReply = MkListPropertiesReply{atoms_len_ListPropertiesReply- :: CARD16,- atoms_ListPropertiesReply :: [ATOM]}- deriving (Show, Typeable)- -instance Deserialize ListPropertiesReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- atoms_len <- deserialize- skip 22- atoms <- deserializeList (fromIntegral atoms_len)- let _ = isCard32 length- return (MkListPropertiesReply atoms_len atoms)- -data SetSelectionOwner = MkSetSelectionOwner{owner_SetSelectionOwner- :: WINDOW,- selection_SetSelectionOwner :: ATOM,- time_SetSelectionOwner :: TIMESTAMP}- deriving (Show, Typeable)- -instance Serialize SetSelectionOwner where- serialize x- = do putWord8 22- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (owner_SetSelectionOwner x)- serialize (selection_SetSelectionOwner x)- serialize (time_SetSelectionOwner x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (owner_SetSelectionOwner x) +- size (selection_SetSelectionOwner x)- + size (time_SetSelectionOwner x)- -data GetSelectionOwner = MkGetSelectionOwner{selection_GetSelectionOwner- :: ATOM}- deriving (Show, Typeable)- -instance Serialize GetSelectionOwner where- serialize x- = do putWord8 23- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (selection_GetSelectionOwner x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (selection_GetSelectionOwner x)- -data GetSelectionOwnerReply = MkGetSelectionOwnerReply{owner_GetSelectionOwnerReply- :: WINDOW}- deriving (Show, Typeable)- -instance Deserialize GetSelectionOwnerReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- owner <- deserialize- let _ = isCard32 length- return (MkGetSelectionOwnerReply owner)- -data ConvertSelection = MkConvertSelection{requestor_ConvertSelection- :: WINDOW,- selection_ConvertSelection :: ATOM,- target_ConvertSelection :: ATOM,- property_ConvertSelection :: ATOM,- time_ConvertSelection :: TIMESTAMP}- deriving (Show, Typeable)- -instance Serialize ConvertSelection where- serialize x- = do putWord8 24- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (requestor_ConvertSelection x)- serialize (selection_ConvertSelection x)- serialize (target_ConvertSelection x)- serialize (property_ConvertSelection x)- serialize (time_ConvertSelection x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (requestor_ConvertSelection x) +- size (selection_ConvertSelection x)- + size (target_ConvertSelection x)- + size (property_ConvertSelection x)- + size (time_ConvertSelection x)- -data SendEventDest = SendEventDestPointerWindow- | SendEventDestItemFocus- -instance SimpleEnum SendEventDest where- toValue SendEventDestPointerWindow{} = 0- toValue SendEventDestItemFocus{} = 1- fromValue 0 = SendEventDestPointerWindow- fromValue 1 = SendEventDestItemFocus- -data SendEvent = MkSendEvent{propagate_SendEvent :: BOOL,- destination_SendEvent :: WINDOW, event_mask_SendEvent :: CARD32,- event_SendEvent :: [CChar]}- deriving (Show, Typeable)- -instance Serialize SendEvent where- serialize x- = do putWord8 25- serialize (propagate_SendEvent x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (destination_SendEvent x)- serialize (event_mask_SendEvent x)- serializeList (event_SendEvent x)- putSkip (requiredPadding (size x))- size x- = 3 + size (propagate_SendEvent x) + size (destination_SendEvent x)- + size (event_mask_SendEvent x)- + sum (map size (event_SendEvent x))- -data GrabMode = GrabModeSync- | GrabModeAsync- -instance SimpleEnum GrabMode where- toValue GrabModeSync{} = 0- toValue GrabModeAsync{} = 1- fromValue 0 = GrabModeSync- fromValue 1 = GrabModeAsync- -data GrabStatus = GrabStatusSuccess- | GrabStatusAlreadyGrabbed- | GrabStatusInvalidTime- | GrabStatusNotViewable- | GrabStatusFrozen- -instance SimpleEnum GrabStatus where- toValue GrabStatusSuccess{} = 0- toValue GrabStatusAlreadyGrabbed{} = 1- toValue GrabStatusInvalidTime{} = 2- toValue GrabStatusNotViewable{} = 3- toValue GrabStatusFrozen{} = 4- fromValue 0 = GrabStatusSuccess- fromValue 1 = GrabStatusAlreadyGrabbed- fromValue 2 = GrabStatusInvalidTime- fromValue 3 = GrabStatusNotViewable- fromValue 4 = GrabStatusFrozen- -data GrabPointer = MkGrabPointer{owner_events_GrabPointer :: BOOL,- grab_window_GrabPointer :: WINDOW,- event_mask_GrabPointer :: CARD16, pointer_mode_GrabPointer :: BYTE,- keyboard_mode_GrabPointer :: BYTE,- confine_to_GrabPointer :: WINDOW, cursor_GrabPointer :: CURSOR,- time_GrabPointer :: TIMESTAMP}- deriving (Show, Typeable)- -instance Serialize GrabPointer where- serialize x- = do putWord8 26- serialize (owner_events_GrabPointer x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (grab_window_GrabPointer x)- serialize (event_mask_GrabPointer x)- serialize (pointer_mode_GrabPointer x)- serialize (keyboard_mode_GrabPointer x)- serialize (confine_to_GrabPointer x)- serialize (cursor_GrabPointer x)- serialize (time_GrabPointer x)- putSkip (requiredPadding (size x))- size x- = 3 + size (owner_events_GrabPointer x) +- size (grab_window_GrabPointer x)- + size (event_mask_GrabPointer x)- + size (pointer_mode_GrabPointer x)- + size (keyboard_mode_GrabPointer x)- + size (confine_to_GrabPointer x)- + size (cursor_GrabPointer x)- + size (time_GrabPointer x)- -data GrabPointerReply = MkGrabPointerReply{status_GrabPointerReply- :: BYTE}- deriving (Show, Typeable)- -instance Deserialize GrabPointerReply where- deserialize- = do skip 1- status <- deserialize- skip 2- length <- deserialize- let _ = isCard32 length- return (MkGrabPointerReply status)- -data UngrabPointer = MkUngrabPointer{time_UngrabPointer ::- TIMESTAMP}- deriving (Show, Typeable)- -instance Serialize UngrabPointer where- serialize x- = do putWord8 27- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (time_UngrabPointer x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (time_UngrabPointer x)- -data ButtonIndex = ButtonIndexAny- | ButtonIndex1- | ButtonIndex2- | ButtonIndex3- | ButtonIndex4- | ButtonIndex5- -instance SimpleEnum ButtonIndex where- toValue ButtonIndexAny{} = 0- toValue ButtonIndex1{} = 1- toValue ButtonIndex2{} = 2- toValue ButtonIndex3{} = 3- toValue ButtonIndex4{} = 4- toValue ButtonIndex5{} = 5- fromValue 0 = ButtonIndexAny- fromValue 1 = ButtonIndex1- fromValue 2 = ButtonIndex2- fromValue 3 = ButtonIndex3- fromValue 4 = ButtonIndex4- fromValue 5 = ButtonIndex5- -data GrabButton = MkGrabButton{owner_events_GrabButton :: BOOL,- grab_window_GrabButton :: WINDOW, event_mask_GrabButton :: CARD16,- pointer_mode_GrabButton :: CARD8,- keyboard_mode_GrabButton :: CARD8, confine_to_GrabButton :: WINDOW,- cursor_GrabButton :: CURSOR, button_GrabButton :: CARD8,- modifiers_GrabButton :: CARD16}- deriving (Show, Typeable)- -instance Serialize GrabButton where- serialize x- = do putWord8 28- serialize (owner_events_GrabButton x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (grab_window_GrabButton x)- serialize (event_mask_GrabButton x)- serialize (pointer_mode_GrabButton x)- serialize (keyboard_mode_GrabButton x)- serialize (confine_to_GrabButton x)- serialize (cursor_GrabButton x)- serialize (button_GrabButton x)- putSkip 1- serialize (modifiers_GrabButton x)- putSkip (requiredPadding (size x))- size x- = 3 + size (owner_events_GrabButton x) +- size (grab_window_GrabButton x)- + size (event_mask_GrabButton x)- + size (pointer_mode_GrabButton x)- + size (keyboard_mode_GrabButton x)- + size (confine_to_GrabButton x)- + size (cursor_GrabButton x)- + size (button_GrabButton x)- + 1- + size (modifiers_GrabButton x)- -data UngrabButton = MkUngrabButton{button_UngrabButton :: CARD8,- grab_window_UngrabButton :: WINDOW,- modifiers_UngrabButton :: CARD16}- deriving (Show, Typeable)- -instance Serialize UngrabButton where- serialize x- = do putWord8 29- serialize (button_UngrabButton x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (grab_window_UngrabButton x)- serialize (modifiers_UngrabButton x)- putSkip 2- putSkip (requiredPadding (size x))- size x- = 3 + size (button_UngrabButton x) +- size (grab_window_UngrabButton x)- + size (modifiers_UngrabButton x)- + 2- -data ChangeActivePointerGrab = MkChangeActivePointerGrab{cursor_ChangeActivePointerGrab- :: CURSOR,- time_ChangeActivePointerGrab :: TIMESTAMP,- event_mask_ChangeActivePointerGrab ::- CARD16}- deriving (Show, Typeable)- -instance Serialize ChangeActivePointerGrab where- serialize x- = do putWord8 30- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cursor_ChangeActivePointerGrab x)- serialize (time_ChangeActivePointerGrab x)- serialize (event_mask_ChangeActivePointerGrab x)- putSkip 2- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (cursor_ChangeActivePointerGrab x) +- size (time_ChangeActivePointerGrab x)- + size (event_mask_ChangeActivePointerGrab x)- + 2- -data GrabKeyboard = MkGrabKeyboard{owner_events_GrabKeyboard ::- BOOL,- grab_window_GrabKeyboard :: WINDOW,- time_GrabKeyboard :: TIMESTAMP,- pointer_mode_GrabKeyboard :: BYTE,- keyboard_mode_GrabKeyboard :: BYTE}- deriving (Show, Typeable)- -instance Serialize GrabKeyboard where- serialize x- = do putWord8 31- serialize (owner_events_GrabKeyboard x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (grab_window_GrabKeyboard x)- serialize (time_GrabKeyboard x)- serialize (pointer_mode_GrabKeyboard x)- serialize (keyboard_mode_GrabKeyboard x)- putSkip 2- putSkip (requiredPadding (size x))- size x- = 3 + size (owner_events_GrabKeyboard x) +- size (grab_window_GrabKeyboard x)- + size (time_GrabKeyboard x)- + size (pointer_mode_GrabKeyboard x)- + size (keyboard_mode_GrabKeyboard x)- + 2- -data GrabKeyboardReply = MkGrabKeyboardReply{status_GrabKeyboardReply- :: BYTE}- deriving (Show, Typeable)- -instance Deserialize GrabKeyboardReply where- deserialize- = do skip 1- status <- deserialize- skip 2- length <- deserialize- let _ = isCard32 length- return (MkGrabKeyboardReply status)- -data UngrabKeyboard = MkUngrabKeyboard{time_UngrabKeyboard ::- TIMESTAMP}- deriving (Show, Typeable)- -instance Serialize UngrabKeyboard where- serialize x- = do putWord8 32- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (time_UngrabKeyboard x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (time_UngrabKeyboard x)- -data Grab = GrabAny- -instance SimpleEnum Grab where- toValue GrabAny{} = 0- fromValue 0 = GrabAny- -data GrabKey = MkGrabKey{owner_events_GrabKey :: BOOL,- grab_window_GrabKey :: WINDOW, modifiers_GrabKey :: CARD16,- key_GrabKey :: KEYCODE, pointer_mode_GrabKey :: CARD8,- keyboard_mode_GrabKey :: CARD8}- deriving (Show, Typeable)- -instance Serialize GrabKey where- serialize x- = do putWord8 33- serialize (owner_events_GrabKey x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (grab_window_GrabKey x)- serialize (modifiers_GrabKey x)- serialize (key_GrabKey x)- serialize (pointer_mode_GrabKey x)- serialize (keyboard_mode_GrabKey x)- putSkip 3- putSkip (requiredPadding (size x))- size x- = 3 + size (owner_events_GrabKey x) + size (grab_window_GrabKey x)- + size (modifiers_GrabKey x)- + size (key_GrabKey x)- + size (pointer_mode_GrabKey x)- + size (keyboard_mode_GrabKey x)- + 3- -data UngrabKey = MkUngrabKey{key_UngrabKey :: KEYCODE,- grab_window_UngrabKey :: WINDOW, modifiers_UngrabKey :: CARD16}- deriving (Show, Typeable)- -instance Serialize UngrabKey where- serialize x- = do putWord8 34- serialize (key_UngrabKey x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (grab_window_UngrabKey x)- serialize (modifiers_UngrabKey x)- putSkip 2- putSkip (requiredPadding (size x))- size x- = 3 + size (key_UngrabKey x) + size (grab_window_UngrabKey x) +- size (modifiers_UngrabKey x)- + 2- -data Allow = AllowAsyncPointer- | AllowSyncPointer- | AllowReplayPointer- | AllowAsyncKeyboard- | AllowSyncKeyboard- | AllowReplayKeyboard- | AllowAsyncBoth- | AllowSyncBoth- -instance SimpleEnum Allow where- toValue AllowAsyncPointer{} = 0- toValue AllowSyncPointer{} = 1- toValue AllowReplayPointer{} = 2- toValue AllowAsyncKeyboard{} = 3- toValue AllowSyncKeyboard{} = 4- toValue AllowReplayKeyboard{} = 5- toValue AllowAsyncBoth{} = 6- toValue AllowSyncBoth{} = 7- fromValue 0 = AllowAsyncPointer- fromValue 1 = AllowSyncPointer- fromValue 2 = AllowReplayPointer- fromValue 3 = AllowAsyncKeyboard- fromValue 4 = AllowSyncKeyboard- fromValue 5 = AllowReplayKeyboard- fromValue 6 = AllowAsyncBoth- fromValue 7 = AllowSyncBoth- -data AllowEvents = MkAllowEvents{mode_AllowEvents :: CARD8,- time_AllowEvents :: TIMESTAMP}- deriving (Show, Typeable)- -instance Serialize AllowEvents where- serialize x- = do putWord8 35- serialize (mode_AllowEvents x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (time_AllowEvents x)- putSkip (requiredPadding (size x))- size x = 3 + size (mode_AllowEvents x) + size (time_AllowEvents x)- -data QueryPointer = MkQueryPointer{window_QueryPointer :: WINDOW}- deriving (Show, Typeable)- -instance Serialize QueryPointer where- serialize x- = do putWord8 38- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_QueryPointer x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (window_QueryPointer x)- -data QueryPointerReply = MkQueryPointerReply{same_screen_QueryPointerReply- :: BOOL,- root_QueryPointerReply :: WINDOW,- child_QueryPointerReply :: WINDOW,- root_x_QueryPointerReply :: INT16,- root_y_QueryPointerReply :: INT16,- win_x_QueryPointerReply :: INT16,- win_y_QueryPointerReply :: INT16,- mask_QueryPointerReply :: CARD16}- deriving (Show, Typeable)- -instance Deserialize QueryPointerReply where- deserialize- = do skip 1- same_screen <- deserialize- skip 2- length <- deserialize- root <- deserialize- child <- deserialize- root_x <- deserialize- root_y <- deserialize- win_x <- deserialize- win_y <- deserialize- mask <- deserialize- skip 2- let _ = isCard32 length- return- (MkQueryPointerReply same_screen root child root_x root_y win_x- win_y- mask)- -data TIMECOORD = MkTIMECOORD{time_TIMECOORD :: TIMESTAMP,- x_TIMECOORD :: INT16, y_TIMECOORD :: INT16}- deriving (Show, Typeable)- -instance Serialize TIMECOORD where- serialize x- = do serialize (time_TIMECOORD x)- serialize (x_TIMECOORD x)- serialize (y_TIMECOORD x)- size x- = size (time_TIMECOORD x) + size (x_TIMECOORD x) +- size (y_TIMECOORD x)- -instance Deserialize TIMECOORD where- deserialize- = do time <- deserialize- x <- deserialize- y <- deserialize- return (MkTIMECOORD time x y)- -data GetMotionEvents = MkGetMotionEvents{window_GetMotionEvents ::- WINDOW,- start_GetMotionEvents :: TIMESTAMP,- stop_GetMotionEvents :: TIMESTAMP}- deriving (Show, Typeable)- -instance Serialize GetMotionEvents where- serialize x- = do putWord8 39- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_GetMotionEvents x)- serialize (start_GetMotionEvents x)- serialize (stop_GetMotionEvents x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (window_GetMotionEvents x) +- size (start_GetMotionEvents x)- + size (stop_GetMotionEvents x)- -data GetMotionEventsReply = MkGetMotionEventsReply{events_len_GetMotionEventsReply- :: CARD32,- events_GetMotionEventsReply :: [TIMECOORD]}- deriving (Show, Typeable)- -instance Deserialize GetMotionEventsReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- events_len <- deserialize- skip 20- events <- deserializeList (fromIntegral events_len)- let _ = isCard32 length- return (MkGetMotionEventsReply events_len events)- -data TranslateCoordinates = MkTranslateCoordinates{src_window_TranslateCoordinates- :: WINDOW,- dst_window_TranslateCoordinates :: WINDOW,- src_x_TranslateCoordinates :: INT16,- src_y_TranslateCoordinates :: INT16}- deriving (Show, Typeable)- -instance Serialize TranslateCoordinates where- serialize x- = do putWord8 40- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (src_window_TranslateCoordinates x)- serialize (dst_window_TranslateCoordinates x)- serialize (src_x_TranslateCoordinates x)- serialize (src_y_TranslateCoordinates x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (src_window_TranslateCoordinates x) +- size (dst_window_TranslateCoordinates x)- + size (src_x_TranslateCoordinates x)- + size (src_y_TranslateCoordinates x)- -data TranslateCoordinatesReply = MkTranslateCoordinatesReply{same_screen_TranslateCoordinatesReply- :: BOOL,- child_TranslateCoordinatesReply ::- WINDOW,- dst_x_TranslateCoordinatesReply ::- CARD16,- dst_y_TranslateCoordinatesReply ::- CARD16}- deriving (Show, Typeable)- -instance Deserialize TranslateCoordinatesReply where- deserialize- = do skip 1- same_screen <- deserialize- skip 2- length <- deserialize- child <- deserialize- dst_x <- deserialize- dst_y <- deserialize- let _ = isCard32 length- return (MkTranslateCoordinatesReply same_screen child dst_x dst_y)- -data WarpPointer = MkWarpPointer{src_window_WarpPointer :: WINDOW,- dst_window_WarpPointer :: WINDOW, src_x_WarpPointer :: INT16,- src_y_WarpPointer :: INT16, src_width_WarpPointer :: CARD16,- src_height_WarpPointer :: CARD16, dst_x_WarpPointer :: INT16,- dst_y_WarpPointer :: INT16}- deriving (Show, Typeable)- -instance Serialize WarpPointer where- serialize x- = do putWord8 41- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (src_window_WarpPointer x)- serialize (dst_window_WarpPointer x)- serialize (src_x_WarpPointer x)- serialize (src_y_WarpPointer x)- serialize (src_width_WarpPointer x)- serialize (src_height_WarpPointer x)- serialize (dst_x_WarpPointer x)- serialize (dst_y_WarpPointer x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (src_window_WarpPointer x) +- size (dst_window_WarpPointer x)- + size (src_x_WarpPointer x)- + size (src_y_WarpPointer x)- + size (src_width_WarpPointer x)- + size (src_height_WarpPointer x)- + size (dst_x_WarpPointer x)- + size (dst_y_WarpPointer x)- -data InputFocus = InputFocusNone- | InputFocusPointerRoot- | InputFocusParent- -instance SimpleEnum InputFocus where- toValue InputFocusNone{} = 0- toValue InputFocusPointerRoot{} = 1- toValue InputFocusParent{} = 2- fromValue 0 = InputFocusNone- fromValue 1 = InputFocusPointerRoot- fromValue 2 = InputFocusParent- -data SetInputFocus = MkSetInputFocus{revert_to_SetInputFocus ::- CARD8,- focus_SetInputFocus :: WINDOW, time_SetInputFocus :: TIMESTAMP}- deriving (Show, Typeable)- -instance Serialize SetInputFocus where- serialize x- = do putWord8 42- serialize (revert_to_SetInputFocus x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (focus_SetInputFocus x)- serialize (time_SetInputFocus x)- putSkip (requiredPadding (size x))- size x- = 3 + size (revert_to_SetInputFocus x) +- size (focus_SetInputFocus x)- + size (time_SetInputFocus x)- -data GetInputFocus = MkGetInputFocus{}- deriving (Show, Typeable)- -instance Serialize GetInputFocus where- serialize x- = do putWord8 43- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- putSkip (requiredPadding (size x))- size x = 4- -data GetInputFocusReply = MkGetInputFocusReply{revert_to_GetInputFocusReply- :: CARD8,- focus_GetInputFocusReply :: WINDOW}- deriving (Show, Typeable)- -instance Deserialize GetInputFocusReply where- deserialize- = do skip 1- revert_to <- deserialize- skip 2- length <- deserialize- focus <- deserialize- let _ = isCard32 length- return (MkGetInputFocusReply revert_to focus)- -data QueryKeymap = MkQueryKeymap{}- deriving (Show, Typeable)- -instance Serialize QueryKeymap where- serialize x- = do putWord8 44- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- putSkip (requiredPadding (size x))- size x = 4- -data QueryKeymapReply = MkQueryKeymapReply{keys_QueryKeymapReply ::- [CARD8]}- deriving (Show, Typeable)- -instance Deserialize QueryKeymapReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- keys <- deserializeList (fromIntegral 32)- let _ = isCard32 length- return (MkQueryKeymapReply keys)- -data OpenFont = MkOpenFont{fid_OpenFont :: FONT,- name_len_OpenFont :: CARD16, name_OpenFont :: [CChar]}- deriving (Show, Typeable)- -instance Serialize OpenFont where- serialize x- = do putWord8 45- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (fid_OpenFont x)- serialize (name_len_OpenFont x)- putSkip 2- serializeList (name_OpenFont x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (fid_OpenFont x) + size (name_len_OpenFont x) + 2 +- sum (map size (name_OpenFont x))- -data CloseFont = MkCloseFont{font_CloseFont :: FONT}- deriving (Show, Typeable)- -instance Serialize CloseFont where- serialize x- = do putWord8 46- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (font_CloseFont x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (font_CloseFont x)- -data FontDraw = FontDrawLeftToRight- | FontDrawRightToLeft- -instance SimpleEnum FontDraw where- toValue FontDrawLeftToRight{} = 0- toValue FontDrawRightToLeft{} = 1- fromValue 0 = FontDrawLeftToRight- fromValue 1 = FontDrawRightToLeft- -data FONTPROP = MkFONTPROP{name_FONTPROP :: ATOM,- value_FONTPROP :: CARD32}- deriving (Show, Typeable)- -instance Serialize FONTPROP where- serialize x- = do serialize (name_FONTPROP x)- serialize (value_FONTPROP x)- size x = size (name_FONTPROP x) + size (value_FONTPROP x)- -instance Deserialize FONTPROP where- deserialize- = do name <- deserialize- value <- deserialize- return (MkFONTPROP name value)- -data CHARINFO = MkCHARINFO{left_side_bearing_CHARINFO :: INT16,- right_side_bearing_CHARINFO :: INT16,- character_width_CHARINFO :: INT16, ascent_CHARINFO :: INT16,- descent_CHARINFO :: INT16, attributes_CHARINFO :: CARD16}- deriving (Show, Typeable)- -instance Serialize CHARINFO where- serialize x- = do serialize (left_side_bearing_CHARINFO x)- serialize (right_side_bearing_CHARINFO x)- serialize (character_width_CHARINFO x)- serialize (ascent_CHARINFO x)- serialize (descent_CHARINFO x)- serialize (attributes_CHARINFO x)- size x- = size (left_side_bearing_CHARINFO x) +- size (right_side_bearing_CHARINFO x)- + size (character_width_CHARINFO x)- + size (ascent_CHARINFO x)- + size (descent_CHARINFO x)- + size (attributes_CHARINFO x)- -instance Deserialize CHARINFO where- deserialize- = do left_side_bearing <- deserialize- right_side_bearing <- deserialize- character_width <- deserialize- ascent <- deserialize- descent <- deserialize- attributes <- deserialize- return- (MkCHARINFO left_side_bearing right_side_bearing character_width- ascent- descent- attributes)- -data QueryFont = MkQueryFont{font_QueryFont :: FONTABLE}- deriving (Show, Typeable)- -instance Serialize QueryFont where- serialize x- = do putWord8 47- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (font_QueryFont x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (font_QueryFont x)- -data QueryFontReply = MkQueryFontReply{min_bounds_QueryFontReply ::- CHARINFO,- max_bounds_QueryFontReply :: CHARINFO,- min_char_or_byte2_QueryFontReply :: CARD16,- max_char_or_byte2_QueryFontReply :: CARD16,- default_char_QueryFontReply :: CARD16,- properties_len_QueryFontReply :: CARD16,- draw_direction_QueryFontReply :: BYTE,- min_byte1_QueryFontReply :: CARD8,- max_byte1_QueryFontReply :: CARD8,- all_chars_exist_QueryFontReply :: BOOL,- font_ascent_QueryFontReply :: INT16,- font_descent_QueryFontReply :: INT16,- char_infos_len_QueryFontReply :: CARD32,- properties_QueryFontReply :: [FONTPROP],- char_infos_QueryFontReply :: [CHARINFO]}- deriving (Show, Typeable)- -instance Deserialize QueryFontReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- min_bounds <- deserialize- skip 4- max_bounds <- deserialize- skip 4- min_char_or_byte2 <- deserialize- max_char_or_byte2 <- deserialize- default_char <- deserialize- properties_len <- deserialize- draw_direction <- deserialize- min_byte1 <- deserialize- max_byte1 <- deserialize- all_chars_exist <- deserialize- font_ascent <- deserialize- font_descent <- deserialize- char_infos_len <- deserialize- properties <- deserializeList (fromIntegral properties_len)- char_infos <- deserializeList (fromIntegral char_infos_len)- let _ = isCard32 length- return- (MkQueryFontReply min_bounds max_bounds min_char_or_byte2- max_char_or_byte2- default_char- properties_len- draw_direction- min_byte1- max_byte1- all_chars_exist- font_ascent- font_descent- char_infos_len- properties- char_infos)- -data QueryTextExtents = MkQueryTextExtents{font_QueryTextExtents ::- FONTABLE,- string_QueryTextExtents :: [CHAR2B]}- deriving (Show, Typeable)- -odd_length_QueryTextExtents :: QueryTextExtents -> BOOL-odd_length_QueryTextExtents x- = (fromIntegral (string_len_QueryTextExtents x .&. 1))--string_len_QueryTextExtents :: QueryTextExtents -> Word8-string_len_QueryTextExtents x = genericLength $ string_QueryTextExtents x- -instance Serialize QueryTextExtents where- serialize x- = do putWord8 48- serialize (odd_length_QueryTextExtents x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (font_QueryTextExtents x)- serializeList (string_QueryTextExtents x)- putSkip (requiredPadding (size x))- size x- = 3 + size (odd_length_QueryTextExtents x) +- size (font_QueryTextExtents x)- + sum (map size (string_QueryTextExtents x))- -data QueryTextExtentsReply = MkQueryTextExtentsReply{draw_direction_QueryTextExtentsReply- :: BYTE,- font_ascent_QueryTextExtentsReply :: INT16,- font_descent_QueryTextExtentsReply :: INT16,- overall_ascent_QueryTextExtentsReply :: INT16,- overall_descent_QueryTextExtentsReply :: INT16,- overall_width_QueryTextExtentsReply :: INT32,- overall_left_QueryTextExtentsReply :: INT32,- overall_right_QueryTextExtentsReply :: INT32}- deriving (Show, Typeable)- -instance Deserialize QueryTextExtentsReply where- deserialize- = do skip 1- draw_direction <- deserialize- skip 2- length <- deserialize- font_ascent <- deserialize- font_descent <- deserialize- overall_ascent <- deserialize- overall_descent <- deserialize- overall_width <- deserialize- overall_left <- deserialize- overall_right <- deserialize- let _ = isCard32 length- return- (MkQueryTextExtentsReply draw_direction font_ascent font_descent- overall_ascent- overall_descent- overall_width- overall_left- overall_right)- -data STR = MkSTR{name_len_STR :: CARD8, name_STR :: [CChar]}- deriving (Show, Typeable)- -instance Serialize STR where- serialize x- = do serialize (name_len_STR x)- serializeList (name_STR x)- size x = size (name_len_STR x) + sum (map size (name_STR x))- -instance Deserialize STR where- deserialize- = do name_len <- deserialize- name <- deserializeList (fromIntegral name_len)- return (MkSTR name_len name)- -data ListFonts = MkListFonts{max_names_ListFonts :: CARD16,- pattern_len_ListFonts :: CARD16, pattern_ListFonts :: [CChar]}- deriving (Show, Typeable)- -instance Serialize ListFonts where- serialize x- = do putWord8 49- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (max_names_ListFonts x)- serialize (pattern_len_ListFonts x)- serializeList (pattern_ListFonts x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (max_names_ListFonts x) +- size (pattern_len_ListFonts x)- + sum (map size (pattern_ListFonts x))- -data ListFontsReply = MkListFontsReply{names_len_ListFontsReply ::- CARD16,- names_ListFontsReply :: [STR]}- deriving (Show, Typeable)- -instance Deserialize ListFontsReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- names_len <- deserialize- skip 22- names <- deserializeList (fromIntegral names_len)- let _ = isCard32 length- return (MkListFontsReply names_len names)- -data ListFontsWithInfo = MkListFontsWithInfo{max_names_ListFontsWithInfo- :: CARD16,- pattern_len_ListFontsWithInfo :: CARD16,- pattern_ListFontsWithInfo :: [CChar]}- deriving (Show, Typeable)- -instance Serialize ListFontsWithInfo where- serialize x- = do putWord8 50- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (max_names_ListFontsWithInfo x)- serialize (pattern_len_ListFontsWithInfo x)- serializeList (pattern_ListFontsWithInfo x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (max_names_ListFontsWithInfo x) +- size (pattern_len_ListFontsWithInfo x)- + sum (map size (pattern_ListFontsWithInfo x))- -data ListFontsWithInfoReply = MkListFontsWithInfoReply{name_len_ListFontsWithInfoReply- :: CARD8,- min_bounds_ListFontsWithInfoReply ::- CHARINFO,- max_bounds_ListFontsWithInfoReply ::- CHARINFO,- min_char_or_byte2_ListFontsWithInfoReply ::- CARD16,- max_char_or_byte2_ListFontsWithInfoReply ::- CARD16,- default_char_ListFontsWithInfoReply ::- CARD16,- properties_len_ListFontsWithInfoReply ::- CARD16,- draw_direction_ListFontsWithInfoReply ::- BYTE,- min_byte1_ListFontsWithInfoReply :: CARD8,- max_byte1_ListFontsWithInfoReply :: CARD8,- all_chars_exist_ListFontsWithInfoReply ::- BOOL,- font_ascent_ListFontsWithInfoReply :: INT16,- font_descent_ListFontsWithInfoReply :: INT16,- replies_hint_ListFontsWithInfoReply ::- CARD32,- properties_ListFontsWithInfoReply ::- [FONTPROP],- name_ListFontsWithInfoReply :: [CChar]}- deriving (Show, Typeable)- -instance Deserialize ListFontsWithInfoReply where- deserialize- = do skip 1- name_len <- deserialize- skip 2- length <- deserialize- min_bounds <- deserialize- skip 4- max_bounds <- deserialize- skip 4- min_char_or_byte2 <- deserialize- max_char_or_byte2 <- deserialize- default_char <- deserialize- properties_len <- deserialize- draw_direction <- deserialize- min_byte1 <- deserialize- max_byte1 <- deserialize- all_chars_exist <- deserialize- font_ascent <- deserialize- font_descent <- deserialize- replies_hint <- deserialize- properties <- deserializeList (fromIntegral properties_len)- name <- deserializeList (fromIntegral name_len)- let _ = isCard32 length- return- (MkListFontsWithInfoReply name_len min_bounds max_bounds- min_char_or_byte2- max_char_or_byte2- default_char- properties_len- draw_direction- min_byte1- max_byte1- all_chars_exist- font_ascent- font_descent- replies_hint- properties- name)- -data SetFontPath = MkSetFontPath{font_qty_SetFontPath :: CARD16,- path_SetFontPath :: [CChar]}- deriving (Show, Typeable)- -instance Serialize SetFontPath where- serialize x- = do putWord8 51- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (font_qty_SetFontPath x)- serializeList (path_SetFontPath x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (font_qty_SetFontPath x) +- sum (map size (path_SetFontPath x))- -data GetFontPath = MkGetFontPath{}- deriving (Show, Typeable)- -instance Serialize GetFontPath where- serialize x- = do putWord8 52- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- putSkip (requiredPadding (size x))- size x = 4- -data GetFontPathReply = MkGetFontPathReply{path_len_GetFontPathReply- :: CARD16,- path_GetFontPathReply :: [STR]}- deriving (Show, Typeable)- -instance Deserialize GetFontPathReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- path_len <- deserialize- skip 22- path <- deserializeList (fromIntegral path_len)- let _ = isCard32 length- return (MkGetFontPathReply path_len path)- -data CreatePixmap = MkCreatePixmap{depth_CreatePixmap :: CARD8,- pid_CreatePixmap :: PIXMAP, drawable_CreatePixmap :: DRAWABLE,- width_CreatePixmap :: CARD16, height_CreatePixmap :: CARD16}- deriving (Show, Typeable)- -instance Serialize CreatePixmap where- serialize x- = do putWord8 53- serialize (depth_CreatePixmap x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (pid_CreatePixmap x)- serialize (drawable_CreatePixmap x)- serialize (width_CreatePixmap x)- serialize (height_CreatePixmap x)- putSkip (requiredPadding (size x))- size x- = 3 + size (depth_CreatePixmap x) + size (pid_CreatePixmap x) +- size (drawable_CreatePixmap x)- + size (width_CreatePixmap x)- + size (height_CreatePixmap x)- -data FreePixmap = MkFreePixmap{pixmap_FreePixmap :: PIXMAP}- deriving (Show, Typeable)- -instance Serialize FreePixmap where- serialize x- = do putWord8 54- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (pixmap_FreePixmap x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (pixmap_FreePixmap x)- -data GC = GCFunction- | GCPlaneMask- | GCForeground- | GCBackground- | GCLineWidth- | GCLineStyle- | GCCapStyle- | GCJoinStyle- | GCFillStyle- | GCFillRule- | GCTile- | GCStipple- | GCTileStippleOriginX- | GCTileStippleOriginY- | GCFont- | GCSubwindowMode- | GCGraphicsExposures- | GCClipOriginX- | GCClipOriginY- | GCClipMask- | GCDashOffset- | GCDashList- | GCArcMode- -instance BitEnum GC where- toBit GCFunction{} = 0- toBit GCPlaneMask{} = 1- toBit GCForeground{} = 2- toBit GCBackground{} = 3- toBit GCLineWidth{} = 4- toBit GCLineStyle{} = 5- toBit GCCapStyle{} = 6- toBit GCJoinStyle{} = 7- toBit GCFillStyle{} = 8- toBit GCFillRule{} = 9- toBit GCTile{} = 10- toBit GCStipple{} = 11- toBit GCTileStippleOriginX{} = 12- toBit GCTileStippleOriginY{} = 13- toBit GCFont{} = 14- toBit GCSubwindowMode{} = 15- toBit GCGraphicsExposures{} = 16- toBit GCClipOriginX{} = 17- toBit GCClipOriginY{} = 18- toBit GCClipMask{} = 19- toBit GCDashOffset{} = 20- toBit GCDashList{} = 21- toBit GCArcMode{} = 22- fromBit 0 = GCFunction- fromBit 1 = GCPlaneMask- fromBit 2 = GCForeground- fromBit 3 = GCBackground- fromBit 4 = GCLineWidth- fromBit 5 = GCLineStyle- fromBit 6 = GCCapStyle- fromBit 7 = GCJoinStyle- fromBit 8 = GCFillStyle- fromBit 9 = GCFillRule- fromBit 10 = GCTile- fromBit 11 = GCStipple- fromBit 12 = GCTileStippleOriginX- fromBit 13 = GCTileStippleOriginY- fromBit 14 = GCFont- fromBit 15 = GCSubwindowMode- fromBit 16 = GCGraphicsExposures- fromBit 17 = GCClipOriginX- fromBit 18 = GCClipOriginY- fromBit 19 = GCClipMask- fromBit 20 = GCDashOffset- fromBit 21 = GCDashList- fromBit 22 = GCArcMode- -data GX = GXclear- | GXand- | GXandReverse- | GXcopy- | GXandInverted- | GXnoop- | GXxor- | GXor- | GXnor- | GXequiv- | GXinvert- | GXorReverse- | GXcopyInverted- | GXorInverted- | GXnand- | GXset- -instance SimpleEnum GX where- toValue GXclear{} = 0- toValue GXand{} = 1- toValue GXandReverse{} = 2- toValue GXcopy{} = 3- toValue GXandInverted{} = 4- toValue GXnoop{} = 5- toValue GXxor{} = 6- toValue GXor{} = 7- toValue GXnor{} = 8- toValue GXequiv{} = 9- toValue GXinvert{} = 10- toValue GXorReverse{} = 11- toValue GXcopyInverted{} = 12- toValue GXorInverted{} = 13- toValue GXnand{} = 14- toValue GXset{} = 15- fromValue 0 = GXclear- fromValue 1 = GXand- fromValue 2 = GXandReverse- fromValue 3 = GXcopy- fromValue 4 = GXandInverted- fromValue 5 = GXnoop- fromValue 6 = GXxor- fromValue 7 = GXor- fromValue 8 = GXnor- fromValue 9 = GXequiv- fromValue 10 = GXinvert- fromValue 11 = GXorReverse- fromValue 12 = GXcopyInverted- fromValue 13 = GXorInverted- fromValue 14 = GXnand- fromValue 15 = GXset- -data LineStyle = LineStyleSolid- | LineStyleOnOffDash- | LineStyleDoubleDash- -instance SimpleEnum LineStyle where- toValue LineStyleSolid{} = 0- toValue LineStyleOnOffDash{} = 1- toValue LineStyleDoubleDash{} = 2- fromValue 0 = LineStyleSolid- fromValue 1 = LineStyleOnOffDash- fromValue 2 = LineStyleDoubleDash- -data CapStyle = CapStyleNotLast- | CapStyleButt- | CapStyleRound- | CapStyleProjecting- -instance SimpleEnum CapStyle where- toValue CapStyleNotLast{} = 0- toValue CapStyleButt{} = 1- toValue CapStyleRound{} = 2- toValue CapStyleProjecting{} = 3- fromValue 0 = CapStyleNotLast- fromValue 1 = CapStyleButt- fromValue 2 = CapStyleRound- fromValue 3 = CapStyleProjecting- -data JoinStyle = JoinStyleMitre- | JoinStyleRound- | JoinStyleBevel- -instance SimpleEnum JoinStyle where- toValue JoinStyleMitre{} = 0- toValue JoinStyleRound{} = 1- toValue JoinStyleBevel{} = 2- fromValue 0 = JoinStyleMitre- fromValue 1 = JoinStyleRound- fromValue 2 = JoinStyleBevel- -data FillStyle = FillStyleSolid- | FillStyleTiled- | FillStyleStippled- | FillStyleOpaqueStippled- -instance SimpleEnum FillStyle where- toValue FillStyleSolid{} = 0- toValue FillStyleTiled{} = 1- toValue FillStyleStippled{} = 2- toValue FillStyleOpaqueStippled{} = 3- fromValue 0 = FillStyleSolid- fromValue 1 = FillStyleTiled- fromValue 2 = FillStyleStippled- fromValue 3 = FillStyleOpaqueStippled- -data FillRule = FillRuleEvenOdd- | FillRuleWinding- -instance SimpleEnum FillRule where- toValue FillRuleEvenOdd{} = 0- toValue FillRuleWinding{} = 1- fromValue 0 = FillRuleEvenOdd- fromValue 1 = FillRuleWinding- -data SubwindowMode = SubwindowModeClipByChildren- | SubwindowModeIncludeInferiors- -instance SimpleEnum SubwindowMode where- toValue SubwindowModeClipByChildren{} = 0- toValue SubwindowModeIncludeInferiors{} = 1- fromValue 0 = SubwindowModeClipByChildren- fromValue 1 = SubwindowModeIncludeInferiors- -data ArcMode = ArcModeChord- | ArcModePieSlice- -instance SimpleEnum ArcMode where- toValue ArcModeChord{} = 0- toValue ArcModePieSlice{} = 1- fromValue 0 = ArcModeChord- fromValue 1 = ArcModePieSlice- -data CreateGC = MkCreateGC{cid_CreateGC :: GCONTEXT,- drawable_CreateGC :: DRAWABLE, value_CreateGC :: ValueParam CARD32}- deriving (Show, Typeable)- -instance Serialize CreateGC where- serialize x- = do putWord8 55- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cid_CreateGC x)- serialize (drawable_CreateGC x)- serialize (value_CreateGC x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (cid_CreateGC x) + size (drawable_CreateGC x) +- size (value_CreateGC x)- -data ChangeGC = MkChangeGC{gc_ChangeGC :: GCONTEXT,- value_ChangeGC :: ValueParam CARD32}- deriving (Show, Typeable)- -instance Serialize ChangeGC where- serialize x- = do putWord8 56- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (gc_ChangeGC x)- serialize (value_ChangeGC x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (gc_ChangeGC x) + size (value_ChangeGC x)- -data CopyGC = MkCopyGC{src_gc_CopyGC :: GCONTEXT,- dst_gc_CopyGC :: GCONTEXT, value_mask_CopyGC :: CARD32}- deriving (Show, Typeable)- -instance Serialize CopyGC where- serialize x- = do putWord8 57- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (src_gc_CopyGC x)- serialize (dst_gc_CopyGC x)- serialize (value_mask_CopyGC x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (src_gc_CopyGC x) + size (dst_gc_CopyGC x) +- size (value_mask_CopyGC x)- -data SetDashes = MkSetDashes{gc_SetDashes :: GCONTEXT,- dash_offset_SetDashes :: CARD16, dashes_len_SetDashes :: CARD16,- dashes_SetDashes :: [CARD8]}- deriving (Show, Typeable)- -instance Serialize SetDashes where- serialize x- = do putWord8 58- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (gc_SetDashes x)- serialize (dash_offset_SetDashes x)- serialize (dashes_len_SetDashes x)- serializeList (dashes_SetDashes x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (gc_SetDashes x) + size (dash_offset_SetDashes x) +- size (dashes_len_SetDashes x)- + sum (map size (dashes_SetDashes x))- -data ClipOrdering = ClipOrderingUnsorted- | ClipOrderingYSorted- | ClipOrderingYXSorted- | ClipOrderingYXBanded- -instance SimpleEnum ClipOrdering where- toValue ClipOrderingUnsorted{} = 0- toValue ClipOrderingYSorted{} = 1- toValue ClipOrderingYXSorted{} = 2- toValue ClipOrderingYXBanded{} = 3- fromValue 0 = ClipOrderingUnsorted- fromValue 1 = ClipOrderingYSorted- fromValue 2 = ClipOrderingYXSorted- fromValue 3 = ClipOrderingYXBanded- -data SetClipRectangles = MkSetClipRectangles{ordering_SetClipRectangles- :: BYTE,- gc_SetClipRectangles :: GCONTEXT,- clip_x_origin_SetClipRectangles :: INT16,- clip_y_origin_SetClipRectangles :: INT16,- rectangles_SetClipRectangles :: [RECTANGLE]}- deriving (Show, Typeable)- -instance Serialize SetClipRectangles where- serialize x- = do putWord8 59- serialize (ordering_SetClipRectangles x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (gc_SetClipRectangles x)- serialize (clip_x_origin_SetClipRectangles x)- serialize (clip_y_origin_SetClipRectangles x)- serializeList (rectangles_SetClipRectangles x)- putSkip (requiredPadding (size x))- size x- = 3 + size (ordering_SetClipRectangles x) +- size (gc_SetClipRectangles x)- + size (clip_x_origin_SetClipRectangles x)- + size (clip_y_origin_SetClipRectangles x)- + sum (map size (rectangles_SetClipRectangles x))- -data FreeGC = MkFreeGC{gc_FreeGC :: GCONTEXT}- deriving (Show, Typeable)- -instance Serialize FreeGC where- serialize x- = do putWord8 60- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (gc_FreeGC x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (gc_FreeGC x)- -data ClearArea = MkClearArea{exposures_ClearArea :: BOOL,- window_ClearArea :: WINDOW, x_ClearArea :: INT16,- y_ClearArea :: INT16, width_ClearArea :: CARD16,- height_ClearArea :: CARD16}- deriving (Show, Typeable)- -instance Serialize ClearArea where- serialize x- = do putWord8 61- serialize (exposures_ClearArea x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_ClearArea x)- serialize (x_ClearArea x)- serialize (y_ClearArea x)- serialize (width_ClearArea x)- serialize (height_ClearArea x)- putSkip (requiredPadding (size x))- size x- = 3 + size (exposures_ClearArea x) + size (window_ClearArea x) +- size (x_ClearArea x)- + size (y_ClearArea x)- + size (width_ClearArea x)- + size (height_ClearArea x)- -data CopyArea = MkCopyArea{src_drawable_CopyArea :: DRAWABLE,- dst_drawable_CopyArea :: DRAWABLE, gc_CopyArea :: GCONTEXT,- src_x_CopyArea :: INT16, src_y_CopyArea :: INT16,- dst_x_CopyArea :: INT16, dst_y_CopyArea :: INT16,- width_CopyArea :: CARD16, height_CopyArea :: CARD16}- deriving (Show, Typeable)- -instance Serialize CopyArea where- serialize x- = do putWord8 62- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (src_drawable_CopyArea x)- serialize (dst_drawable_CopyArea x)- serialize (gc_CopyArea x)- serialize (src_x_CopyArea x)- serialize (src_y_CopyArea x)- serialize (dst_x_CopyArea x)- serialize (dst_y_CopyArea x)- serialize (width_CopyArea x)- serialize (height_CopyArea x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (src_drawable_CopyArea x) +- size (dst_drawable_CopyArea x)- + size (gc_CopyArea x)- + size (src_x_CopyArea x)- + size (src_y_CopyArea x)- + size (dst_x_CopyArea x)- + size (dst_y_CopyArea x)- + size (width_CopyArea x)- + size (height_CopyArea x)- -data CopyPlane = MkCopyPlane{src_drawable_CopyPlane :: DRAWABLE,- dst_drawable_CopyPlane :: DRAWABLE, gc_CopyPlane :: GCONTEXT,- src_x_CopyPlane :: INT16, src_y_CopyPlane :: INT16,- dst_x_CopyPlane :: INT16, dst_y_CopyPlane :: INT16,- width_CopyPlane :: CARD16, height_CopyPlane :: CARD16,- bit_plane_CopyPlane :: CARD32}- deriving (Show, Typeable)- -instance Serialize CopyPlane where- serialize x- = do putWord8 63- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (src_drawable_CopyPlane x)- serialize (dst_drawable_CopyPlane x)- serialize (gc_CopyPlane x)- serialize (src_x_CopyPlane x)- serialize (src_y_CopyPlane x)- serialize (dst_x_CopyPlane x)- serialize (dst_y_CopyPlane x)- serialize (width_CopyPlane x)- serialize (height_CopyPlane x)- serialize (bit_plane_CopyPlane x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (src_drawable_CopyPlane x) +- size (dst_drawable_CopyPlane x)- + size (gc_CopyPlane x)- + size (src_x_CopyPlane x)- + size (src_y_CopyPlane x)- + size (dst_x_CopyPlane x)- + size (dst_y_CopyPlane x)- + size (width_CopyPlane x)- + size (height_CopyPlane x)- + size (bit_plane_CopyPlane x)- -data CoordMode = CoordModeOrigin- | CoordModePrevious- -instance SimpleEnum CoordMode where- toValue CoordModeOrigin{} = 0- toValue CoordModePrevious{} = 1- fromValue 0 = CoordModeOrigin- fromValue 1 = CoordModePrevious- -data PolyPoint = MkPolyPoint{coordinate_mode_PolyPoint :: BYTE,- drawable_PolyPoint :: DRAWABLE, gc_PolyPoint :: GCONTEXT,- points_PolyPoint :: [POINT]}- deriving (Show, Typeable)- -instance Serialize PolyPoint where- serialize x- = do putWord8 64- serialize (coordinate_mode_PolyPoint x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_PolyPoint x)- serialize (gc_PolyPoint x)- serializeList (points_PolyPoint x)- putSkip (requiredPadding (size x))- size x- = 3 + size (coordinate_mode_PolyPoint x) +- size (drawable_PolyPoint x)- + size (gc_PolyPoint x)- + sum (map size (points_PolyPoint x))- -data PolyLine = MkPolyLine{coordinate_mode_PolyLine :: BYTE,- drawable_PolyLine :: DRAWABLE, gc_PolyLine :: GCONTEXT,- points_PolyLine :: [POINT]}- deriving (Show, Typeable)- -instance Serialize PolyLine where- serialize x- = do putWord8 65- serialize (coordinate_mode_PolyLine x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_PolyLine x)- serialize (gc_PolyLine x)- serializeList (points_PolyLine x)- putSkip (requiredPadding (size x))- size x- = 3 + size (coordinate_mode_PolyLine x) +- size (drawable_PolyLine x)- + size (gc_PolyLine x)- + sum (map size (points_PolyLine x))- -data SEGMENT = MkSEGMENT{x1_SEGMENT :: INT16, y1_SEGMENT :: INT16,- x2_SEGMENT :: INT16, y2_SEGMENT :: INT16}- deriving (Show, Typeable)- -instance Serialize SEGMENT where- serialize x- = do serialize (x1_SEGMENT x)- serialize (y1_SEGMENT x)- serialize (x2_SEGMENT x)- serialize (y2_SEGMENT x)- size x- = size (x1_SEGMENT x) + size (y1_SEGMENT x) + size (x2_SEGMENT x) +- size (y2_SEGMENT x)- -instance Deserialize SEGMENT where- deserialize- = do x1 <- deserialize- y1 <- deserialize- x2 <- deserialize- y2 <- deserialize- return (MkSEGMENT x1 y1 x2 y2)- -data PolySegment = MkPolySegment{drawable_PolySegment :: DRAWABLE,- gc_PolySegment :: GCONTEXT, segments_PolySegment :: [SEGMENT]}- deriving (Show, Typeable)- -instance Serialize PolySegment where- serialize x- = do putWord8 66- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_PolySegment x)- serialize (gc_PolySegment x)- serializeList (segments_PolySegment x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (drawable_PolySegment x) + size (gc_PolySegment x) +- sum (map size (segments_PolySegment x))- -data PolyRectangle = MkPolyRectangle{drawable_PolyRectangle ::- DRAWABLE,- gc_PolyRectangle :: GCONTEXT,- rectangles_PolyRectangle :: [RECTANGLE]}- deriving (Show, Typeable)- -instance Serialize PolyRectangle where- serialize x- = do putWord8 67- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_PolyRectangle x)- serialize (gc_PolyRectangle x)- serializeList (rectangles_PolyRectangle x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (drawable_PolyRectangle x) +- size (gc_PolyRectangle x)- + sum (map size (rectangles_PolyRectangle x))- -data PolyArc = MkPolyArc{drawable_PolyArc :: DRAWABLE,- gc_PolyArc :: GCONTEXT, arcs_PolyArc :: [ARC]}- deriving (Show, Typeable)- -instance Serialize PolyArc where- serialize x- = do putWord8 68- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_PolyArc x)- serialize (gc_PolyArc x)- serializeList (arcs_PolyArc x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (drawable_PolyArc x) + size (gc_PolyArc x) +- sum (map size (arcs_PolyArc x))- -data PolyShape = PolyShapeComplex- | PolyShapeNonconvex- | PolyShapeConvex- -instance SimpleEnum PolyShape where- toValue PolyShapeComplex{} = 0- toValue PolyShapeNonconvex{} = 1- toValue PolyShapeConvex{} = 2- fromValue 0 = PolyShapeComplex- fromValue 1 = PolyShapeNonconvex- fromValue 2 = PolyShapeConvex- -data FillPoly = MkFillPoly{drawable_FillPoly :: DRAWABLE,- gc_FillPoly :: GCONTEXT, shape_FillPoly :: CARD8,- coordinate_mode_FillPoly :: CARD8, points_FillPoly :: [POINT]}- deriving (Show, Typeable)- -instance Serialize FillPoly where- serialize x- = do putWord8 69- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_FillPoly x)- serialize (gc_FillPoly x)- serialize (shape_FillPoly x)- serialize (coordinate_mode_FillPoly x)- putSkip 2- serializeList (points_FillPoly x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (drawable_FillPoly x) + size (gc_FillPoly x) +- size (shape_FillPoly x)- + size (coordinate_mode_FillPoly x)- + 2- + sum (map size (points_FillPoly x))- -data PolyFillRectangle = MkPolyFillRectangle{drawable_PolyFillRectangle- :: DRAWABLE,- gc_PolyFillRectangle :: GCONTEXT,- rectangles_PolyFillRectangle :: [RECTANGLE]}- deriving (Show, Typeable)- -instance Serialize PolyFillRectangle where- serialize x- = do putWord8 70- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_PolyFillRectangle x)- serialize (gc_PolyFillRectangle x)- serializeList (rectangles_PolyFillRectangle x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (drawable_PolyFillRectangle x) +- size (gc_PolyFillRectangle x)- + sum (map size (rectangles_PolyFillRectangle x))- -data PolyFillArc = MkPolyFillArc{drawable_PolyFillArc :: DRAWABLE,- gc_PolyFillArc :: GCONTEXT, arcs_PolyFillArc :: [ARC]}- deriving (Show, Typeable)- -instance Serialize PolyFillArc where- serialize x- = do putWord8 71- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_PolyFillArc x)- serialize (gc_PolyFillArc x)- serializeList (arcs_PolyFillArc x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (drawable_PolyFillArc x) + size (gc_PolyFillArc x) +- sum (map size (arcs_PolyFillArc x))- -data ImageFormat = ImageFormatXYBitmap- | ImageFormatXYPixmap- | ImageFormatZPixmap- -instance SimpleEnum ImageFormat where- toValue ImageFormatXYBitmap{} = 0- toValue ImageFormatXYPixmap{} = 1- toValue ImageFormatZPixmap{} = 2- fromValue 0 = ImageFormatXYBitmap- fromValue 1 = ImageFormatXYPixmap- fromValue 2 = ImageFormatZPixmap- -data PutImage = MkPutImage{format_PutImage :: CARD8,- drawable_PutImage :: DRAWABLE, gc_PutImage :: GCONTEXT,- width_PutImage :: CARD16, height_PutImage :: CARD16,- dst_x_PutImage :: INT16, dst_y_PutImage :: INT16,- left_pad_PutImage :: CARD8, depth_PutImage :: CARD8,- data_PutImage :: [BYTE]}- deriving (Show, Typeable)- -instance Serialize PutImage where- serialize x- = do putWord8 72- serialize (format_PutImage x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_PutImage x)- serialize (gc_PutImage x)- serialize (width_PutImage x)- serialize (height_PutImage x)- serialize (dst_x_PutImage x)- serialize (dst_y_PutImage x)- serialize (left_pad_PutImage x)- serialize (depth_PutImage x)- putSkip 2- serializeList (data_PutImage x)- putSkip (requiredPadding (size x))- size x- = 3 + size (format_PutImage x) + size (drawable_PutImage x) +- size (gc_PutImage x)- + size (width_PutImage x)- + size (height_PutImage x)- + size (dst_x_PutImage x)- + size (dst_y_PutImage x)- + size (left_pad_PutImage x)- + size (depth_PutImage x)- + 2- + sum (map size (data_PutImage x))- -data GetImage = MkGetImage{format_GetImage :: CARD8,- drawable_GetImage :: DRAWABLE, x_GetImage :: INT16,- y_GetImage :: INT16, width_GetImage :: CARD16,- height_GetImage :: CARD16, plane_mask_GetImage :: CARD32}- deriving (Show, Typeable)- -instance Serialize GetImage where- serialize x- = do putWord8 73- serialize (format_GetImage x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_GetImage x)- serialize (x_GetImage x)- serialize (y_GetImage x)- serialize (width_GetImage x)- serialize (height_GetImage x)- serialize (plane_mask_GetImage x)- putSkip (requiredPadding (size x))- size x- = 3 + size (format_GetImage x) + size (drawable_GetImage x) +- size (x_GetImage x)- + size (y_GetImage x)- + size (width_GetImage x)- + size (height_GetImage x)- + size (plane_mask_GetImage x)- -data GetImageReply = MkGetImageReply{depth_GetImageReply :: CARD8,- visual_GetImageReply :: VISUALID, data_GetImageReply :: [BYTE]}- deriving (Show, Typeable)- -instance Deserialize GetImageReply where- deserialize- = do skip 1- depth <- deserialize- skip 2- length <- deserialize- visual <- deserialize- skip 20- data_ <- deserializeList (fromIntegral (fromIntegral (length * 4)))- let _ = isCard32 length- return (MkGetImageReply depth visual data_)- -data PolyText8 = MkPolyText8{drawable_PolyText8 :: DRAWABLE,- gc_PolyText8 :: GCONTEXT, x_PolyText8 :: INT16,- y_PolyText8 :: INT16, items_PolyText8 :: [BYTE]}- deriving (Show, Typeable)- -instance Serialize PolyText8 where- serialize x- = do putWord8 74- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_PolyText8 x)- serialize (gc_PolyText8 x)- serialize (x_PolyText8 x)- serialize (y_PolyText8 x)- serializeList (items_PolyText8 x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (drawable_PolyText8 x) + size (gc_PolyText8 x) +- size (x_PolyText8 x)- + size (y_PolyText8 x)- + sum (map size (items_PolyText8 x))- -data PolyText16 = MkPolyText16{drawable_PolyText16 :: DRAWABLE,- gc_PolyText16 :: GCONTEXT, x_PolyText16 :: INT16,- y_PolyText16 :: INT16, items_PolyText16 :: [BYTE]}- deriving (Show, Typeable)- -instance Serialize PolyText16 where- serialize x- = do putWord8 75- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_PolyText16 x)- serialize (gc_PolyText16 x)- serialize (x_PolyText16 x)- serialize (y_PolyText16 x)- serializeList (items_PolyText16 x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (drawable_PolyText16 x) + size (gc_PolyText16 x) +- size (x_PolyText16 x)- + size (y_PolyText16 x)- + sum (map size (items_PolyText16 x))- -data ImageText8 = MkImageText8{string_len_ImageText8 :: BYTE,- drawable_ImageText8 :: DRAWABLE, gc_ImageText8 :: GCONTEXT,- x_ImageText8 :: INT16, y_ImageText8 :: INT16,- string_ImageText8 :: [CChar]}- deriving (Show, Typeable)- -instance Serialize ImageText8 where- serialize x- = do putWord8 76- serialize (string_len_ImageText8 x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_ImageText8 x)- serialize (gc_ImageText8 x)- serialize (x_ImageText8 x)- serialize (y_ImageText8 x)- serializeList (string_ImageText8 x)- putSkip (requiredPadding (size x))- size x- = 3 + size (string_len_ImageText8 x) + size (drawable_ImageText8 x)- + size (gc_ImageText8 x)- + size (x_ImageText8 x)- + size (y_ImageText8 x)- + sum (map size (string_ImageText8 x))- -data ImageText16 = MkImageText16{string_len_ImageText16 :: BYTE,- drawable_ImageText16 :: DRAWABLE, gc_ImageText16 :: GCONTEXT,- x_ImageText16 :: INT16, y_ImageText16 :: INT16,- string_ImageText16 :: [CHAR2B]}- deriving (Show, Typeable)- -instance Serialize ImageText16 where- serialize x- = do putWord8 77- serialize (string_len_ImageText16 x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_ImageText16 x)- serialize (gc_ImageText16 x)- serialize (x_ImageText16 x)- serialize (y_ImageText16 x)- serializeList (string_ImageText16 x)- putSkip (requiredPadding (size x))- size x- = 3 + size (string_len_ImageText16 x) +- size (drawable_ImageText16 x)- + size (gc_ImageText16 x)- + size (x_ImageText16 x)- + size (y_ImageText16 x)- + sum (map size (string_ImageText16 x))- -data ColormapAlloc = ColormapAllocNone- | ColormapAllocAll- -instance SimpleEnum ColormapAlloc where- toValue ColormapAllocNone{} = 0- toValue ColormapAllocAll{} = 1- fromValue 0 = ColormapAllocNone- fromValue 1 = ColormapAllocAll- -data CreateColormap = MkCreateColormap{alloc_CreateColormap ::- BYTE,- mid_CreateColormap :: COLORMAP,- window_CreateColormap :: WINDOW,- visual_CreateColormap :: VISUALID}- deriving (Show, Typeable)- -instance Serialize CreateColormap where- serialize x- = do putWord8 78- serialize (alloc_CreateColormap x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (mid_CreateColormap x)- serialize (window_CreateColormap x)- serialize (visual_CreateColormap x)- putSkip (requiredPadding (size x))- size x- = 3 + size (alloc_CreateColormap x) + size (mid_CreateColormap x) +- size (window_CreateColormap x)- + size (visual_CreateColormap x)- -data FreeColormap = MkFreeColormap{cmap_FreeColormap :: COLORMAP}- deriving (Show, Typeable)- -instance Serialize FreeColormap where- serialize x- = do putWord8 79- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cmap_FreeColormap x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (cmap_FreeColormap x)- -data CopyColormapAndFree = MkCopyColormapAndFree{mid_CopyColormapAndFree- :: COLORMAP,- src_cmap_CopyColormapAndFree :: COLORMAP}- deriving (Show, Typeable)- -instance Serialize CopyColormapAndFree where- serialize x- = do putWord8 80- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (mid_CopyColormapAndFree x)- serialize (src_cmap_CopyColormapAndFree x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (mid_CopyColormapAndFree x) +- size (src_cmap_CopyColormapAndFree x)- -data InstallColormap = MkInstallColormap{cmap_InstallColormap ::- COLORMAP}- deriving (Show, Typeable)- -instance Serialize InstallColormap where- serialize x- = do putWord8 81- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cmap_InstallColormap x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (cmap_InstallColormap x)- -data UninstallColormap = MkUninstallColormap{cmap_UninstallColormap- :: COLORMAP}- deriving (Show, Typeable)- -instance Serialize UninstallColormap where- serialize x- = do putWord8 82- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cmap_UninstallColormap x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (cmap_UninstallColormap x)- -data ListInstalledColormaps = MkListInstalledColormaps{window_ListInstalledColormaps- :: WINDOW}- deriving (Show, Typeable)- -instance Serialize ListInstalledColormaps where- serialize x- = do putWord8 83- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_ListInstalledColormaps x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (window_ListInstalledColormaps x)- -data ListInstalledColormapsReply = MkListInstalledColormapsReply{cmaps_len_ListInstalledColormapsReply- :: CARD16,- cmaps_ListInstalledColormapsReply- :: [COLORMAP]}- deriving (Show, Typeable)- -instance Deserialize ListInstalledColormapsReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- cmaps_len <- deserialize- skip 22- cmaps <- deserializeList (fromIntegral cmaps_len)- let _ = isCard32 length- return (MkListInstalledColormapsReply cmaps_len cmaps)- -data AllocColor = MkAllocColor{cmap_AllocColor :: COLORMAP,- red_AllocColor :: CARD16, green_AllocColor :: CARD16,- blue_AllocColor :: CARD16}- deriving (Show, Typeable)- -instance Serialize AllocColor where- serialize x- = do putWord8 84- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cmap_AllocColor x)- serialize (red_AllocColor x)- serialize (green_AllocColor x)- serialize (blue_AllocColor x)- putSkip 2- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (cmap_AllocColor x) + size (red_AllocColor x) +- size (green_AllocColor x)- + size (blue_AllocColor x)- + 2- -data AllocColorReply = MkAllocColorReply{red_AllocColorReply ::- CARD16,- green_AllocColorReply :: CARD16,- blue_AllocColorReply :: CARD16,- pixel_AllocColorReply :: CARD32}- deriving (Show, Typeable)- -instance Deserialize AllocColorReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- red <- deserialize- green <- deserialize- blue <- deserialize- skip 2- pixel <- deserialize- let _ = isCard32 length- return (MkAllocColorReply red green blue pixel)- -data AllocNamedColor = MkAllocNamedColor{cmap_AllocNamedColor ::- COLORMAP,- name_len_AllocNamedColor :: CARD16,- name_AllocNamedColor :: [CChar]}- deriving (Show, Typeable)- -instance Serialize AllocNamedColor where- serialize x- = do putWord8 85- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cmap_AllocNamedColor x)- serialize (name_len_AllocNamedColor x)- putSkip 2- serializeList (name_AllocNamedColor x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (cmap_AllocNamedColor x) +- size (name_len_AllocNamedColor x)- + 2- + sum (map size (name_AllocNamedColor x))- -data AllocNamedColorReply = MkAllocNamedColorReply{pixel_AllocNamedColorReply- :: CARD32,- exact_red_AllocNamedColorReply :: CARD16,- exact_green_AllocNamedColorReply :: CARD16,- exact_blue_AllocNamedColorReply :: CARD16,- visual_red_AllocNamedColorReply :: CARD16,- visual_green_AllocNamedColorReply :: CARD16,- visual_blue_AllocNamedColorReply :: CARD16}- deriving (Show, Typeable)- -instance Deserialize AllocNamedColorReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- pixel <- deserialize- exact_red <- deserialize- exact_green <- deserialize- exact_blue <- deserialize- visual_red <- deserialize- visual_green <- deserialize- visual_blue <- deserialize- let _ = isCard32 length- return- (MkAllocNamedColorReply pixel exact_red exact_green exact_blue- visual_red- visual_green- visual_blue)- -data AllocColorCells = MkAllocColorCells{contiguous_AllocColorCells- :: BOOL,- cmap_AllocColorCells :: COLORMAP,- colors_AllocColorCells :: CARD16,- planes_AllocColorCells :: CARD16}- deriving (Show, Typeable)- -instance Serialize AllocColorCells where- serialize x- = do putWord8 86- serialize (contiguous_AllocColorCells x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cmap_AllocColorCells x)- serialize (colors_AllocColorCells x)- serialize (planes_AllocColorCells x)- putSkip (requiredPadding (size x))- size x- = 3 + size (contiguous_AllocColorCells x) +- size (cmap_AllocColorCells x)- + size (colors_AllocColorCells x)- + size (planes_AllocColorCells x)- -data AllocColorCellsReply = MkAllocColorCellsReply{pixels_len_AllocColorCellsReply- :: CARD16,- masks_len_AllocColorCellsReply :: CARD16,- pixels_AllocColorCellsReply :: [CARD32],- masks_AllocColorCellsReply :: [CARD32]}- deriving (Show, Typeable)- -instance Deserialize AllocColorCellsReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- pixels_len <- deserialize- masks_len <- deserialize- skip 20- pixels <- deserializeList (fromIntegral pixels_len)- masks <- deserializeList (fromIntegral masks_len)- let _ = isCard32 length- return (MkAllocColorCellsReply pixels_len masks_len pixels masks)- -data AllocColorPlanes = MkAllocColorPlanes{contiguous_AllocColorPlanes- :: BOOL,- cmap_AllocColorPlanes :: COLORMAP,- colors_AllocColorPlanes :: CARD16,- reds_AllocColorPlanes :: CARD16,- greens_AllocColorPlanes :: CARD16,- blues_AllocColorPlanes :: CARD16}- deriving (Show, Typeable)- -instance Serialize AllocColorPlanes where- serialize x- = do putWord8 87- serialize (contiguous_AllocColorPlanes x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cmap_AllocColorPlanes x)- serialize (colors_AllocColorPlanes x)- serialize (reds_AllocColorPlanes x)- serialize (greens_AllocColorPlanes x)- serialize (blues_AllocColorPlanes x)- putSkip (requiredPadding (size x))- size x- = 3 + size (contiguous_AllocColorPlanes x) +- size (cmap_AllocColorPlanes x)- + size (colors_AllocColorPlanes x)- + size (reds_AllocColorPlanes x)- + size (greens_AllocColorPlanes x)- + size (blues_AllocColorPlanes x)- -data AllocColorPlanesReply = MkAllocColorPlanesReply{pixels_len_AllocColorPlanesReply- :: CARD16,- red_mask_AllocColorPlanesReply :: CARD32,- green_mask_AllocColorPlanesReply :: CARD32,- blue_mask_AllocColorPlanesReply :: CARD32,- pixels_AllocColorPlanesReply :: [CARD32]}- deriving (Show, Typeable)- -instance Deserialize AllocColorPlanesReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- pixels_len <- deserialize- skip 2- red_mask <- deserialize- green_mask <- deserialize- blue_mask <- deserialize- skip 8- pixels <- deserializeList (fromIntegral pixels_len)- let _ = isCard32 length- return- (MkAllocColorPlanesReply pixels_len red_mask green_mask blue_mask- pixels)- -data FreeColors = MkFreeColors{cmap_FreeColors :: COLORMAP,- plane_mask_FreeColors :: CARD32, pixels_FreeColors :: [CARD32]}- deriving (Show, Typeable)- -instance Serialize FreeColors where- serialize x- = do putWord8 88- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cmap_FreeColors x)- serialize (plane_mask_FreeColors x)- serializeList (pixels_FreeColors x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (cmap_FreeColors x) + size (plane_mask_FreeColors x)- + sum (map size (pixels_FreeColors x))- -data ColorFlag = ColorFlagRed- | ColorFlagGreen- | ColorFlagBlue- -instance BitEnum ColorFlag where- toBit ColorFlagRed{} = 0- toBit ColorFlagGreen{} = 1- toBit ColorFlagBlue{} = 2- fromBit 0 = ColorFlagRed- fromBit 1 = ColorFlagGreen- fromBit 2 = ColorFlagBlue- -data COLORITEM = MkCOLORITEM{pixel_COLORITEM :: CARD32,- red_COLORITEM :: CARD16, green_COLORITEM :: CARD16,- blue_COLORITEM :: CARD16, flags_COLORITEM :: BYTE}- deriving (Show, Typeable)- -instance Serialize COLORITEM where- serialize x- = do serialize (pixel_COLORITEM x)- serialize (red_COLORITEM x)- serialize (green_COLORITEM x)- serialize (blue_COLORITEM x)- serialize (flags_COLORITEM x)- putSkip 1- size x- = size (pixel_COLORITEM x) + size (red_COLORITEM x) +- size (green_COLORITEM x)- + size (blue_COLORITEM x)- + size (flags_COLORITEM x)- + 1- -instance Deserialize COLORITEM where- deserialize- = do pixel <- deserialize- red <- deserialize- green <- deserialize- blue <- deserialize- flags <- deserialize- skip 1- return (MkCOLORITEM pixel red green blue flags)- -data StoreColors = MkStoreColors{cmap_StoreColors :: COLORMAP,- items_StoreColors :: [COLORITEM]}- deriving (Show, Typeable)- -instance Serialize StoreColors where- serialize x- = do putWord8 89- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cmap_StoreColors x)- serializeList (items_StoreColors x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (cmap_StoreColors x) +- sum (map size (items_StoreColors x))- -data StoreNamedColor = MkStoreNamedColor{flags_StoreNamedColor ::- CARD8,- cmap_StoreNamedColor :: COLORMAP,- pixel_StoreNamedColor :: CARD32,- name_len_StoreNamedColor :: CARD16,- name_StoreNamedColor :: [CChar]}- deriving (Show, Typeable)- -instance Serialize StoreNamedColor where- serialize x- = do putWord8 90- serialize (flags_StoreNamedColor x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cmap_StoreNamedColor x)- serialize (pixel_StoreNamedColor x)- serialize (name_len_StoreNamedColor x)- putSkip 2- serializeList (name_StoreNamedColor x)- putSkip (requiredPadding (size x))- size x- = 3 + size (flags_StoreNamedColor x) +- size (cmap_StoreNamedColor x)- + size (pixel_StoreNamedColor x)- + size (name_len_StoreNamedColor x)- + 2- + sum (map size (name_StoreNamedColor x))- -data RGB = MkRGB{red_RGB :: CARD16, green_RGB :: CARD16,- blue_RGB :: CARD16}- deriving (Show, Typeable)- -instance Serialize RGB where- serialize x- = do serialize (red_RGB x)- serialize (green_RGB x)- serialize (blue_RGB x)- putSkip 2- size x- = size (red_RGB x) + size (green_RGB x) + size (blue_RGB x) + 2- -instance Deserialize RGB where- deserialize- = do red <- deserialize- green <- deserialize- blue <- deserialize- skip 2- return (MkRGB red green blue)- -data QueryColors = MkQueryColors{cmap_QueryColors :: COLORMAP,- pixels_QueryColors :: [CARD32]}- deriving (Show, Typeable)- -instance Serialize QueryColors where- serialize x- = do putWord8 91- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cmap_QueryColors x)- serializeList (pixels_QueryColors x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (cmap_QueryColors x) +- sum (map size (pixels_QueryColors x))- -data QueryColorsReply = MkQueryColorsReply{colors_len_QueryColorsReply- :: CARD16,- colors_QueryColorsReply :: [RGB]}- deriving (Show, Typeable)- -instance Deserialize QueryColorsReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- colors_len <- deserialize- skip 22- colors <- deserializeList (fromIntegral colors_len)- let _ = isCard32 length- return (MkQueryColorsReply colors_len colors)- -data LookupColor = MkLookupColor{cmap_LookupColor :: COLORMAP,- name_len_LookupColor :: CARD16, name_LookupColor :: [CChar]}- deriving (Show, Typeable)- -instance Serialize LookupColor where- serialize x- = do putWord8 92- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cmap_LookupColor x)- serialize (name_len_LookupColor x)- putSkip 2- serializeList (name_LookupColor x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (cmap_LookupColor x) + size (name_len_LookupColor x)- + 2- + sum (map size (name_LookupColor x))- -data LookupColorReply = MkLookupColorReply{exact_red_LookupColorReply- :: CARD16,- exact_green_LookupColorReply :: CARD16,- exact_blue_LookupColorReply :: CARD16,- visual_red_LookupColorReply :: CARD16,- visual_green_LookupColorReply :: CARD16,- visual_blue_LookupColorReply :: CARD16}- deriving (Show, Typeable)- -instance Deserialize LookupColorReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- exact_red <- deserialize- exact_green <- deserialize- exact_blue <- deserialize- visual_red <- deserialize- visual_green <- deserialize- visual_blue <- deserialize- let _ = isCard32 length- return- (MkLookupColorReply exact_red exact_green exact_blue visual_red- visual_green- visual_blue)- -data CreateCursor = MkCreateCursor{cid_CreateCursor :: CURSOR,- source_CreateCursor :: PIXMAP, mask_CreateCursor :: PIXMAP,- fore_red_CreateCursor :: CARD16,- fore_green_CreateCursor :: CARD16,- fore_blue_CreateCursor :: CARD16,- back_red_CreateCursor :: CARD16,- back_green_CreateCursor :: CARD16,- back_blue_CreateCursor :: CARD16, x_CreateCursor :: CARD16,- y_CreateCursor :: CARD16}- deriving (Show, Typeable)- -instance Serialize CreateCursor where- serialize x- = do putWord8 93- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cid_CreateCursor x)- serialize (source_CreateCursor x)- serialize (mask_CreateCursor x)- serialize (fore_red_CreateCursor x)- serialize (fore_green_CreateCursor x)- serialize (fore_blue_CreateCursor x)- serialize (back_red_CreateCursor x)- serialize (back_green_CreateCursor x)- serialize (back_blue_CreateCursor x)- serialize (x_CreateCursor x)- serialize (y_CreateCursor x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (cid_CreateCursor x) + size (source_CreateCursor x)- + size (mask_CreateCursor x)- + size (fore_red_CreateCursor x)- + size (fore_green_CreateCursor x)- + size (fore_blue_CreateCursor x)- + size (back_red_CreateCursor x)- + size (back_green_CreateCursor x)- + size (back_blue_CreateCursor x)- + size (x_CreateCursor x)- + size (y_CreateCursor x)- -data CreateGlyphCursor = MkCreateGlyphCursor{cid_CreateGlyphCursor- :: CURSOR,- source_font_CreateGlyphCursor :: FONT,- mask_font_CreateGlyphCursor :: FONT,- source_char_CreateGlyphCursor :: CARD16,- mask_char_CreateGlyphCursor :: CARD16,- fore_red_CreateGlyphCursor :: CARD16,- fore_green_CreateGlyphCursor :: CARD16,- fore_blue_CreateGlyphCursor :: CARD16,- back_red_CreateGlyphCursor :: CARD16,- back_green_CreateGlyphCursor :: CARD16,- back_blue_CreateGlyphCursor :: CARD16}- deriving (Show, Typeable)- -instance Serialize CreateGlyphCursor where- serialize x- = do putWord8 94- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cid_CreateGlyphCursor x)- serialize (source_font_CreateGlyphCursor x)- serialize (mask_font_CreateGlyphCursor x)- serialize (source_char_CreateGlyphCursor x)- serialize (mask_char_CreateGlyphCursor x)- serialize (fore_red_CreateGlyphCursor x)- serialize (fore_green_CreateGlyphCursor x)- serialize (fore_blue_CreateGlyphCursor x)- serialize (back_red_CreateGlyphCursor x)- serialize (back_green_CreateGlyphCursor x)- serialize (back_blue_CreateGlyphCursor x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (cid_CreateGlyphCursor x) +- size (source_font_CreateGlyphCursor x)- + size (mask_font_CreateGlyphCursor x)- + size (source_char_CreateGlyphCursor x)- + size (mask_char_CreateGlyphCursor x)- + size (fore_red_CreateGlyphCursor x)- + size (fore_green_CreateGlyphCursor x)- + size (fore_blue_CreateGlyphCursor x)- + size (back_red_CreateGlyphCursor x)- + size (back_green_CreateGlyphCursor x)- + size (back_blue_CreateGlyphCursor x)- -data FreeCursor = MkFreeCursor{cursor_FreeCursor :: CURSOR}- deriving (Show, Typeable)- -instance Serialize FreeCursor where- serialize x- = do putWord8 95- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cursor_FreeCursor x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (cursor_FreeCursor x)- -data RecolorCursor = MkRecolorCursor{cursor_RecolorCursor ::- CURSOR,- fore_red_RecolorCursor :: CARD16,- fore_green_RecolorCursor :: CARD16,- fore_blue_RecolorCursor :: CARD16,- back_red_RecolorCursor :: CARD16,- back_green_RecolorCursor :: CARD16,- back_blue_RecolorCursor :: CARD16}- deriving (Show, Typeable)- -instance Serialize RecolorCursor where- serialize x- = do putWord8 96- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (cursor_RecolorCursor x)- serialize (fore_red_RecolorCursor x)- serialize (fore_green_RecolorCursor x)- serialize (fore_blue_RecolorCursor x)- serialize (back_red_RecolorCursor x)- serialize (back_green_RecolorCursor x)- serialize (back_blue_RecolorCursor x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (cursor_RecolorCursor x) +- size (fore_red_RecolorCursor x)- + size (fore_green_RecolorCursor x)- + size (fore_blue_RecolorCursor x)- + size (back_red_RecolorCursor x)- + size (back_green_RecolorCursor x)- + size (back_blue_RecolorCursor x)- -data QueryShapeOf = QueryShapeOfLargestCursor- | QueryShapeOfFastestTile- | QueryShapeOfFastestStipple- -instance SimpleEnum QueryShapeOf where- toValue QueryShapeOfLargestCursor{} = 0- toValue QueryShapeOfFastestTile{} = 1- toValue QueryShapeOfFastestStipple{} = 2- fromValue 0 = QueryShapeOfLargestCursor- fromValue 1 = QueryShapeOfFastestTile- fromValue 2 = QueryShapeOfFastestStipple- -data QueryBestSize = MkQueryBestSize{class_QueryBestSize :: CARD8,- drawable_QueryBestSize :: DRAWABLE,- width_QueryBestSize :: CARD16, height_QueryBestSize :: CARD16}- deriving (Show, Typeable)- -instance Serialize QueryBestSize where- serialize x- = do putWord8 97- serialize (class_QueryBestSize x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (drawable_QueryBestSize x)- serialize (width_QueryBestSize x)- serialize (height_QueryBestSize x)- putSkip (requiredPadding (size x))- size x- = 3 + size (class_QueryBestSize x) +- size (drawable_QueryBestSize x)- + size (width_QueryBestSize x)- + size (height_QueryBestSize x)- -data QueryBestSizeReply = MkQueryBestSizeReply{width_QueryBestSizeReply- :: CARD16,- height_QueryBestSizeReply :: CARD16}- deriving (Show, Typeable)- -instance Deserialize QueryBestSizeReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- width <- deserialize- height <- deserialize- let _ = isCard32 length- return (MkQueryBestSizeReply width height)- -data QueryExtension = MkQueryExtension{name_len_QueryExtension ::- CARD16,- name_QueryExtension :: [CChar]}- deriving (Show, Typeable)- -instance Serialize QueryExtension where- serialize x- = do putWord8 98- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (name_len_QueryExtension x)- putSkip 2- serializeList (name_QueryExtension x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (name_len_QueryExtension x) + 2 +- sum (map size (name_QueryExtension x))- -data QueryExtensionReply = MkQueryExtensionReply{present_QueryExtensionReply- :: BOOL,- major_opcode_QueryExtensionReply :: CARD8,- first_event_QueryExtensionReply :: CARD8,- first_error_QueryExtensionReply :: CARD8}- deriving (Show, Typeable)- -instance Deserialize QueryExtensionReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- present <- deserialize- major_opcode <- deserialize- first_event <- deserialize- first_error <- deserialize- let _ = isCard32 length- return- (MkQueryExtensionReply present major_opcode first_event- first_error)- -data ListExtensions = MkListExtensions{}- deriving (Show, Typeable)- -instance Serialize ListExtensions where- serialize x- = do putWord8 99- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- putSkip (requiredPadding (size x))- size x = 4- -data ListExtensionsReply = MkListExtensionsReply{names_len_ListExtensionsReply- :: CARD8,- names_ListExtensionsReply :: [STR]}- deriving (Show, Typeable)- -instance Deserialize ListExtensionsReply where- deserialize- = do skip 1- names_len <- deserialize- skip 2- length <- deserialize- skip 24- names <- deserializeList (fromIntegral names_len)- let _ = isCard32 length- return (MkListExtensionsReply names_len names)- -data ChangeKeyboardMapping = MkChangeKeyboardMapping{keycode_count_ChangeKeyboardMapping- :: CARD8,- first_keycode_ChangeKeyboardMapping :: KEYCODE,- keysyms_per_keycode_ChangeKeyboardMapping ::- CARD8,- keysyms_ChangeKeyboardMapping :: [KEYSYM]}- deriving (Show, Typeable)- -instance Serialize ChangeKeyboardMapping where- serialize x- = do putWord8 100- serialize (keycode_count_ChangeKeyboardMapping x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (first_keycode_ChangeKeyboardMapping x)- serialize (keysyms_per_keycode_ChangeKeyboardMapping x)- serializeList (keysyms_ChangeKeyboardMapping x)- putSkip (requiredPadding (size x))- size x- = 3 + size (keycode_count_ChangeKeyboardMapping x) +- size (first_keycode_ChangeKeyboardMapping x)- + size (keysyms_per_keycode_ChangeKeyboardMapping x)- + sum (map size (keysyms_ChangeKeyboardMapping x))- -data GetKeyboardMapping = MkGetKeyboardMapping{first_keycode_GetKeyboardMapping- :: KEYCODE,- count_GetKeyboardMapping :: CARD8}- deriving (Show, Typeable)- -instance Serialize GetKeyboardMapping where- serialize x- = do putWord8 101- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (first_keycode_GetKeyboardMapping x)- serialize (count_GetKeyboardMapping x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (first_keycode_GetKeyboardMapping x) +- size (count_GetKeyboardMapping x)- -data GetKeyboardMappingReply = MkGetKeyboardMappingReply{keysyms_per_keycode_GetKeyboardMappingReply- :: BYTE,- keysyms_GetKeyboardMappingReply ::- [KEYSYM]}- deriving (Show, Typeable)- -instance Deserialize GetKeyboardMappingReply where- deserialize- = do skip 1- keysyms_per_keycode <- deserialize- skip 2- length <- deserialize- skip 24- keysyms <- deserializeList (fromIntegral length)- let _ = isCard32 length- return (MkGetKeyboardMappingReply keysyms_per_keycode keysyms)- -data KB = KBKeyClickPercent- | KBBellPercent- | KBBellPitch- | KBBellDuration- | KBLed- | KBLedMode- | KBKey- | KBAutoRepeatMode- -instance BitEnum KB where- toBit KBKeyClickPercent{} = 0- toBit KBBellPercent{} = 1- toBit KBBellPitch{} = 2- toBit KBBellDuration{} = 3- toBit KBLed{} = 4- toBit KBLedMode{} = 5- toBit KBKey{} = 6- toBit KBAutoRepeatMode{} = 7- fromBit 0 = KBKeyClickPercent- fromBit 1 = KBBellPercent- fromBit 2 = KBBellPitch- fromBit 3 = KBBellDuration- fromBit 4 = KBLed- fromBit 5 = KBLedMode- fromBit 6 = KBKey- fromBit 7 = KBAutoRepeatMode- -data LedMode = LedModeOff- | LedModeOn- -instance SimpleEnum LedMode where- toValue LedModeOff{} = 0- toValue LedModeOn{} = 1- fromValue 0 = LedModeOff- fromValue 1 = LedModeOn- -data AutoRepeatMode = AutoRepeatModeOff- | AutoRepeatModeOn- | AutoRepeatModeDefault- -instance SimpleEnum AutoRepeatMode where- toValue AutoRepeatModeOff{} = 0- toValue AutoRepeatModeOn{} = 1- toValue AutoRepeatModeDefault{} = 2- fromValue 0 = AutoRepeatModeOff- fromValue 1 = AutoRepeatModeOn- fromValue 2 = AutoRepeatModeDefault- -data ChangeKeyboardControl = MkChangeKeyboardControl{value_ChangeKeyboardControl- :: ValueParam CARD32}- deriving (Show, Typeable)- -instance Serialize ChangeKeyboardControl where- serialize x- = do putWord8 102- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (value_ChangeKeyboardControl x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (value_ChangeKeyboardControl x)- -data GetKeyboardControl = MkGetKeyboardControl{}- deriving (Show, Typeable)- -instance Serialize GetKeyboardControl where- serialize x- = do putWord8 103- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- putSkip (requiredPadding (size x))- size x = 4- -data GetKeyboardControlReply = MkGetKeyboardControlReply{global_auto_repeat_GetKeyboardControlReply- :: BYTE,- led_mask_GetKeyboardControlReply :: CARD32,- key_click_percent_GetKeyboardControlReply- :: CARD8,- bell_percent_GetKeyboardControlReply ::- CARD8,- bell_pitch_GetKeyboardControlReply ::- CARD16,- bell_duration_GetKeyboardControlReply ::- CARD16,- auto_repeats_GetKeyboardControlReply ::- [CARD8]}- deriving (Show, Typeable)- -instance Deserialize GetKeyboardControlReply where- deserialize- = do skip 1- global_auto_repeat <- deserialize- skip 2- length <- deserialize- led_mask <- deserialize- key_click_percent <- deserialize- bell_percent <- deserialize- bell_pitch <- deserialize- bell_duration <- deserialize- skip 2- auto_repeats <- deserializeList (fromIntegral 32)- let _ = isCard32 length- return- (MkGetKeyboardControlReply global_auto_repeat led_mask- key_click_percent- bell_percent- bell_pitch- bell_duration- auto_repeats)- -data Bell = MkBell{percent_Bell :: INT8}- deriving (Show, Typeable)- -instance Serialize Bell where- serialize x- = do putWord8 104- serialize (percent_Bell x)- serialize (convertBytesToRequestSize (size x) :: INT16)- putSkip (requiredPadding (size x))- size x = 3 + size (percent_Bell x)- -data ChangePointerControl = MkChangePointerControl{acceleration_numerator_ChangePointerControl- :: INT16,- acceleration_denominator_ChangePointerControl ::- INT16,- threshold_ChangePointerControl :: INT16,- do_acceleration_ChangePointerControl :: BOOL,- do_threshold_ChangePointerControl :: BOOL}- deriving (Show, Typeable)- -instance Serialize ChangePointerControl where- serialize x- = do putWord8 105- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (acceleration_numerator_ChangePointerControl x)- serialize (acceleration_denominator_ChangePointerControl x)- serialize (threshold_ChangePointerControl x)- serialize (do_acceleration_ChangePointerControl x)- serialize (do_threshold_ChangePointerControl x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (acceleration_numerator_ChangePointerControl x) +- size (acceleration_denominator_ChangePointerControl x)- + size (threshold_ChangePointerControl x)- + size (do_acceleration_ChangePointerControl x)- + size (do_threshold_ChangePointerControl x)- -data GetPointerControl = MkGetPointerControl{}- deriving (Show, Typeable)- -instance Serialize GetPointerControl where- serialize x- = do putWord8 106- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- putSkip (requiredPadding (size x))- size x = 4- -data GetPointerControlReply = MkGetPointerControlReply{acceleration_numerator_GetPointerControlReply- :: CARD16,- acceleration_denominator_GetPointerControlReply- :: CARD16,- threshold_GetPointerControlReply :: CARD16}- deriving (Show, Typeable)- -instance Deserialize GetPointerControlReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- acceleration_numerator <- deserialize- acceleration_denominator <- deserialize- threshold <- deserialize- skip 18- let _ = isCard32 length- return- (MkGetPointerControlReply acceleration_numerator- acceleration_denominator- threshold)- -data Blanking = BlankingNotPreferred- | BlankingPreferred- | BlankingDefault- -instance SimpleEnum Blanking where- toValue BlankingNotPreferred{} = 0- toValue BlankingPreferred{} = 1- toValue BlankingDefault{} = 2- fromValue 0 = BlankingNotPreferred- fromValue 1 = BlankingPreferred- fromValue 2 = BlankingDefault- -data Exposures = ExposuresNotAllowed- | ExposuresAllowed- | ExposuresDefault- -instance SimpleEnum Exposures where- toValue ExposuresNotAllowed{} = 0- toValue ExposuresAllowed{} = 1- toValue ExposuresDefault{} = 2- fromValue 0 = ExposuresNotAllowed- fromValue 1 = ExposuresAllowed- fromValue 2 = ExposuresDefault- -data SetScreenSaver = MkSetScreenSaver{timeout_SetScreenSaver ::- INT16,- interval_SetScreenSaver :: INT16,- prefer_blanking_SetScreenSaver :: CARD8,- allow_exposures_SetScreenSaver :: CARD8}- deriving (Show, Typeable)- -instance Serialize SetScreenSaver where- serialize x- = do putWord8 107- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (timeout_SetScreenSaver x)- serialize (interval_SetScreenSaver x)- serialize (prefer_blanking_SetScreenSaver x)- serialize (allow_exposures_SetScreenSaver x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (timeout_SetScreenSaver x) +- size (interval_SetScreenSaver x)- + size (prefer_blanking_SetScreenSaver x)- + size (allow_exposures_SetScreenSaver x)- -data GetScreenSaver = MkGetScreenSaver{}- deriving (Show, Typeable)- -instance Serialize GetScreenSaver where- serialize x- = do putWord8 108- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- putSkip (requiredPadding (size x))- size x = 4- -data GetScreenSaverReply = MkGetScreenSaverReply{timeout_GetScreenSaverReply- :: CARD16,- interval_GetScreenSaverReply :: CARD16,- prefer_blanking_GetScreenSaverReply :: BYTE,- allow_exposures_GetScreenSaverReply :: BYTE}- deriving (Show, Typeable)- -instance Deserialize GetScreenSaverReply where- deserialize- = do skip 1- skip 1- skip 2- length <- deserialize- timeout <- deserialize- interval <- deserialize- prefer_blanking <- deserialize- allow_exposures <- deserialize- skip 18- let _ = isCard32 length- return- (MkGetScreenSaverReply timeout interval prefer_blanking- allow_exposures)- -data HostMode = HostModeInsert- | HostModeDelete- -instance SimpleEnum HostMode where- toValue HostModeInsert{} = 0- toValue HostModeDelete{} = 1- fromValue 0 = HostModeInsert- fromValue 1 = HostModeDelete- -data Family = FamilyInternet- | FamilyDECnet- | FamilyChaos- | FamilyServerInterpreted- | FamilyInternet6- -instance SimpleEnum Family where- toValue FamilyInternet{} = 0- toValue FamilyDECnet{} = 1- toValue FamilyChaos{} = 2- toValue FamilyServerInterpreted{} = 5- toValue FamilyInternet6{} = 6- fromValue 0 = FamilyInternet- fromValue 1 = FamilyDECnet- fromValue 2 = FamilyChaos- fromValue 5 = FamilyServerInterpreted- fromValue 6 = FamilyInternet6- -data ChangeHosts = MkChangeHosts{mode_ChangeHosts :: CARD8,- family_ChangeHosts :: CARD8, address_len_ChangeHosts :: CARD16,- address_ChangeHosts :: [CChar]}- deriving (Show, Typeable)- -instance Serialize ChangeHosts where- serialize x- = do putWord8 109- serialize (mode_ChangeHosts x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (family_ChangeHosts x)- putSkip 1- serialize (address_len_ChangeHosts x)- serializeList (address_ChangeHosts x)- putSkip (requiredPadding (size x))- size x- = 3 + size (mode_ChangeHosts x) + size (family_ChangeHosts x) + 1 +- size (address_len_ChangeHosts x)- + sum (map size (address_ChangeHosts x))- -data HOST = MkHOST{family_HOST :: CARD8,- address_len_HOST :: CARD16, address_HOST :: [BYTE]}- deriving (Show, Typeable)- -instance Serialize HOST where- serialize x- = do serialize (family_HOST x)- putSkip 1- serialize (address_len_HOST x)- serializeList (address_HOST x)- size x- = size (family_HOST x) + 1 + size (address_len_HOST x) +- sum (map size (address_HOST x))- -instance Deserialize HOST where- deserialize- = do family <- deserialize- skip 1- address_len <- deserialize- address <- deserializeList (fromIntegral address_len)- return (MkHOST family address_len address)- -data ListHosts = MkListHosts{}- deriving (Show, Typeable)- -instance Serialize ListHosts where- serialize x- = do putWord8 110- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- putSkip (requiredPadding (size x))- size x = 4- -data ListHostsReply = MkListHostsReply{mode_ListHostsReply :: BYTE,- hosts_len_ListHostsReply :: CARD16,- hosts_ListHostsReply :: [HOST]}- deriving (Show, Typeable)- -instance Deserialize ListHostsReply where- deserialize- = do skip 1- mode <- deserialize- skip 2- length <- deserialize- hosts_len <- deserialize- skip 22- hosts <- deserializeList (fromIntegral hosts_len)- let _ = isCard32 length- return (MkListHostsReply mode hosts_len hosts)- -data AccessControl = AccessControlDisable- | AccessControlEnable- -instance SimpleEnum AccessControl where- toValue AccessControlDisable{} = 0- toValue AccessControlEnable{} = 1- fromValue 0 = AccessControlDisable- fromValue 1 = AccessControlEnable- -data SetAccessControl = MkSetAccessControl{mode_SetAccessControl ::- CARD8}- deriving (Show, Typeable)- -instance Serialize SetAccessControl where- serialize x- = do putWord8 111- serialize (mode_SetAccessControl x)- serialize (convertBytesToRequestSize (size x) :: INT16)- putSkip (requiredPadding (size x))- size x = 3 + size (mode_SetAccessControl x)- -data CloseDown = CloseDownDestroyAll- | CloseDownRetainPermanent- | CloseDownRetainTemporary- -instance SimpleEnum CloseDown where- toValue CloseDownDestroyAll{} = 0- toValue CloseDownRetainPermanent{} = 1- toValue CloseDownRetainTemporary{} = 2- fromValue 0 = CloseDownDestroyAll- fromValue 1 = CloseDownRetainPermanent- fromValue 2 = CloseDownRetainTemporary- -data SetCloseDownMode = MkSetCloseDownMode{mode_SetCloseDownMode ::- CARD8}- deriving (Show, Typeable)- -instance Serialize SetCloseDownMode where- serialize x- = do putWord8 112- serialize (mode_SetCloseDownMode x)- serialize (convertBytesToRequestSize (size x) :: INT16)- putSkip (requiredPadding (size x))- size x = 3 + size (mode_SetCloseDownMode x)- -data Kill = KillAllTemporary- -instance SimpleEnum Kill where- toValue KillAllTemporary{} = 0- fromValue 0 = KillAllTemporary- -data KillClient = MkKillClient{resource_KillClient :: CARD32}- deriving (Show, Typeable)- -instance Serialize KillClient where- serialize x- = do putWord8 113- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (resource_KillClient x)- putSkip (requiredPadding (size x))- size x = 3 + 1 + size (resource_KillClient x)- -data RotateProperties = MkRotateProperties{window_RotateProperties- :: WINDOW,- atoms_len_RotateProperties :: CARD16,- delta_RotateProperties :: INT16,- atoms_RotateProperties :: [ATOM]}- deriving (Show, Typeable)- -instance Serialize RotateProperties where- serialize x- = do putWord8 114- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- serialize (window_RotateProperties x)- serialize (atoms_len_RotateProperties x)- serialize (delta_RotateProperties x)- serializeList (atoms_RotateProperties x)- putSkip (requiredPadding (size x))- size x- = 3 + 1 + size (window_RotateProperties x) +- size (atoms_len_RotateProperties x)- + size (delta_RotateProperties x)- + sum (map size (atoms_RotateProperties x))- -data ScreenSaver = ScreenSaverReset- | ScreenSaverActive- -instance SimpleEnum ScreenSaver where- toValue ScreenSaverReset{} = 0- toValue ScreenSaverActive{} = 1- fromValue 0 = ScreenSaverReset- fromValue 1 = ScreenSaverActive- -data ForceScreenSaver = MkForceScreenSaver{mode_ForceScreenSaver ::- CARD8}- deriving (Show, Typeable)- -instance Serialize ForceScreenSaver where- serialize x- = do putWord8 115- serialize (mode_ForceScreenSaver x)- serialize (convertBytesToRequestSize (size x) :: INT16)- putSkip (requiredPadding (size x))- size x = 3 + size (mode_ForceScreenSaver x)- -data MappingStatus = MappingStatusSuccess- | MappingStatusBusy- | MappingStatusFailure- -instance SimpleEnum MappingStatus where- toValue MappingStatusSuccess{} = 0- toValue MappingStatusBusy{} = 1- toValue MappingStatusFailure{} = 2- fromValue 0 = MappingStatusSuccess- fromValue 1 = MappingStatusBusy- fromValue 2 = MappingStatusFailure- -data SetPointerMapping = MkSetPointerMapping{map_len_SetPointerMapping- :: CARD8,- map_SetPointerMapping :: [CARD8]}- deriving (Show, Typeable)- -instance Serialize SetPointerMapping where- serialize x- = do putWord8 116- serialize (map_len_SetPointerMapping x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serializeList (map_SetPointerMapping x)- putSkip (requiredPadding (size x))- size x- = 3 + size (map_len_SetPointerMapping x) +- sum (map size (map_SetPointerMapping x))- -data SetPointerMappingReply = MkSetPointerMappingReply{status_SetPointerMappingReply- :: BYTE}- deriving (Show, Typeable)- -instance Deserialize SetPointerMappingReply where- deserialize- = do skip 1- status <- deserialize- skip 2- length <- deserialize- let _ = isCard32 length- return (MkSetPointerMappingReply status)- -data GetPointerMapping = MkGetPointerMapping{}- deriving (Show, Typeable)- -instance Serialize GetPointerMapping where- serialize x- = do putWord8 117- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- putSkip (requiredPadding (size x))- size x = 4- -data GetPointerMappingReply = MkGetPointerMappingReply{map_len_GetPointerMappingReply- :: CARD8,- map_GetPointerMappingReply :: [CARD8]}- deriving (Show, Typeable)- -instance Deserialize GetPointerMappingReply where- deserialize- = do skip 1- map_len <- deserialize- skip 2- length <- deserialize- skip 24- map <- deserializeList (fromIntegral map_len)- let _ = isCard32 length- return (MkGetPointerMappingReply map_len map)- -data MapIndex = MapIndexShift- | MapIndexLock- | MapIndexControl- | MapIndex1- | MapIndex2- | MapIndex3- | MapIndex4- | MapIndex5- -instance SimpleEnum MapIndex where- toValue MapIndexShift{} = 0- toValue MapIndexLock{} = 1- toValue MapIndexControl{} = 2- toValue MapIndex1{} = 3- toValue MapIndex2{} = 4- toValue MapIndex3{} = 5- toValue MapIndex4{} = 6- toValue MapIndex5{} = 7- fromValue 0 = MapIndexShift- fromValue 1 = MapIndexLock- fromValue 2 = MapIndexControl- fromValue 3 = MapIndex1- fromValue 4 = MapIndex2- fromValue 5 = MapIndex3- fromValue 6 = MapIndex4- fromValue 7 = MapIndex5- -data SetModifierMapping = MkSetModifierMapping{keycodes_per_modifier_SetModifierMapping- :: CARD8,- keycodes_SetModifierMapping :: [KEYCODE]}- deriving (Show, Typeable)- -instance Serialize SetModifierMapping where- serialize x- = do putWord8 118- serialize (keycodes_per_modifier_SetModifierMapping x)- serialize (convertBytesToRequestSize (size x) :: INT16)- serializeList (keycodes_SetModifierMapping x)- putSkip (requiredPadding (size x))- size x- = 3 + size (keycodes_per_modifier_SetModifierMapping x) +- sum (map size (keycodes_SetModifierMapping x))- -data SetModifierMappingReply = MkSetModifierMappingReply{status_SetModifierMappingReply- :: BYTE}- deriving (Show, Typeable)- -instance Deserialize SetModifierMappingReply where- deserialize- = do skip 1- status <- deserialize- skip 2- length <- deserialize- let _ = isCard32 length- return (MkSetModifierMappingReply status)- -data GetModifierMapping = MkGetModifierMapping{}- deriving (Show, Typeable)- -instance Serialize GetModifierMapping where- serialize x- = do putWord8 119- putSkip 1- serialize (convertBytesToRequestSize (size x) :: INT16)- putSkip (requiredPadding (size x))- size x = 4- -data GetModifierMappingReply = MkGetModifierMappingReply{keycodes_per_modifier_GetModifierMappingReply- :: CARD8,+import Data.Int+import Foreign.C.Types+import Data.Bits+import Data.Binary.Put+import Data.Binary.Get+import Data.Typeable+import Control.Monad+import Control.Exception+import Data.List+import Graphics.XHB.Shared hiding (Event, Error)+import qualified Graphics.XHB.Shared+ +deserializeError :: Word8 -> Maybe (Get SomeError)+deserializeError 1+ = return (liftM toError (deserialize :: Get Request))+deserializeError 2+ = return (liftM toError (deserialize :: Get Value))+deserializeError 3+ = return (liftM toError (deserialize :: Get Window))+deserializeError 4+ = return (liftM toError (deserialize :: Get Pixmap))+deserializeError 5+ = return (liftM toError (deserialize :: Get Atom))+deserializeError 6+ = return (liftM toError (deserialize :: Get Cursor))+deserializeError 7+ = return (liftM toError (deserialize :: Get Font))+deserializeError 8+ = return (liftM toError (deserialize :: Get Match))+deserializeError 9+ = return (liftM toError (deserialize :: Get Drawable))+deserializeError 10+ = return (liftM toError (deserialize :: Get Access))+deserializeError 11+ = return (liftM toError (deserialize :: Get Alloc))+deserializeError 12+ = return (liftM toError (deserialize :: Get Colormap))+deserializeError 13+ = return (liftM toError (deserialize :: Get GContext))+deserializeError 14+ = return (liftM toError (deserialize :: Get IDChoice))+deserializeError 15+ = return (liftM toError (deserialize :: Get Name))+deserializeError 16+ = return (liftM toError (deserialize :: Get Length))+deserializeError 17+ = return (liftM toError (deserialize :: Get Implementation))+deserializeError _ = Nothing+ +deserializeEvent :: Word8 -> Maybe (Get SomeEvent)+deserializeEvent 2+ = return (liftM toEvent (deserialize :: Get KeyPress))+deserializeEvent 3+ = return (liftM toEvent (deserialize :: Get KeyRelease))+deserializeEvent 4+ = return (liftM toEvent (deserialize :: Get ButtonPress))+deserializeEvent 5+ = return (liftM toEvent (deserialize :: Get ButtonRelease))+deserializeEvent 6+ = return (liftM toEvent (deserialize :: Get MotionNotify))+deserializeEvent 7+ = return (liftM toEvent (deserialize :: Get EnterNotify))+deserializeEvent 8+ = return (liftM toEvent (deserialize :: Get LeaveNotify))+deserializeEvent 9+ = return (liftM toEvent (deserialize :: Get FocusIn))+deserializeEvent 10+ = return (liftM toEvent (deserialize :: Get FocusOut))+deserializeEvent 11+ = return (liftM toEvent (deserialize :: Get KeymapNotify))+deserializeEvent 12+ = return (liftM toEvent (deserialize :: Get Expose))+deserializeEvent 13+ = return (liftM toEvent (deserialize :: Get GraphicsExposure))+deserializeEvent 14+ = return (liftM toEvent (deserialize :: Get NoExposure))+deserializeEvent 15+ = return (liftM toEvent (deserialize :: Get VisibilityNotify))+deserializeEvent 16+ = return (liftM toEvent (deserialize :: Get CreateNotify))+deserializeEvent 17+ = return (liftM toEvent (deserialize :: Get DestroyNotify))+deserializeEvent 18+ = return (liftM toEvent (deserialize :: Get UnmapNotify))+deserializeEvent 19+ = return (liftM toEvent (deserialize :: Get MapNotify))+deserializeEvent 20+ = return (liftM toEvent (deserialize :: Get MapRequest))+deserializeEvent 21+ = return (liftM toEvent (deserialize :: Get ReparentNotify))+deserializeEvent 22+ = return (liftM toEvent (deserialize :: Get ConfigureNotify))+deserializeEvent 23+ = return (liftM toEvent (deserialize :: Get ConfigureRequest))+deserializeEvent 24+ = return (liftM toEvent (deserialize :: Get GravityNotify))+deserializeEvent 25+ = return (liftM toEvent (deserialize :: Get ResizeRequest))+deserializeEvent 26+ = return (liftM toEvent (deserialize :: Get CirculateNotify))+deserializeEvent 27+ = return (liftM toEvent (deserialize :: Get CirculateRequest))+deserializeEvent 28+ = return (liftM toEvent (deserialize :: Get PropertyNotify))+deserializeEvent 29+ = return (liftM toEvent (deserialize :: Get SelectionClear))+deserializeEvent 30+ = return (liftM toEvent (deserialize :: Get SelectionRequest))+deserializeEvent 31+ = return (liftM toEvent (deserialize :: Get SelectionNotify))+deserializeEvent 32+ = return (liftM toEvent (deserialize :: Get ColormapNotify))+deserializeEvent 33+ = return (liftM toEvent (deserialize :: Get ClientMessage))+deserializeEvent 34+ = return (liftM toEvent (deserialize :: Get MappingNotify))+deserializeEvent _ = Nothing+ +data CHAR2B = MkCHAR2B{byte1_CHAR2B :: Word8,+ byte2_CHAR2B :: Word8}+ deriving (Show, Typeable)+ +instance Serialize CHAR2B where+ serialize x+ = do serialize (byte1_CHAR2B x)+ serialize (byte2_CHAR2B x)+ size x = size (byte1_CHAR2B x) + size (byte2_CHAR2B x)+ +instance Deserialize CHAR2B where+ deserialize+ = do byte1 <- deserialize+ byte2 <- deserialize+ return (MkCHAR2B byte1 byte2)+ +newtype WINDOW = MkWINDOW Xid+ deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype PIXMAP = MkPIXMAP Xid+ deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype CURSOR = MkCURSOR Xid+ deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype FONT = MkFONT Xid+ deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype GCONTEXT = MkGCONTEXT Xid+ deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype COLORMAP = MkCOLORMAP Xid+ deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype ATOM = MkATOM Xid+ deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype DRAWABLE = MkDRAWABLE Xid+ deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype FONTABLE = MkFONTABLE Xid+ deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +type VISUALID = Word32+ +type TIMESTAMP = Word32+ +type KEYSYM = Word32+ +type KEYCODE = Word8+ +type BUTTON = Word8+ +data POINT = MkPOINT{x_POINT :: Int16, y_POINT :: Int16}+ deriving (Show, Typeable)+ +instance Serialize POINT where+ serialize x+ = do serialize (x_POINT x)+ serialize (y_POINT x)+ size x = size (x_POINT x) + size (y_POINT x)+ +instance Deserialize POINT where+ deserialize+ = do x <- deserialize+ y <- deserialize+ return (MkPOINT x y)+ +data RECTANGLE = MkRECTANGLE{x_RECTANGLE :: Int16,+ y_RECTANGLE :: Int16, width_RECTANGLE :: Word16,+ height_RECTANGLE :: Word16}+ deriving (Show, Typeable)+ +instance Serialize RECTANGLE where+ serialize x+ = do serialize (x_RECTANGLE x)+ serialize (y_RECTANGLE x)+ serialize (width_RECTANGLE x)+ serialize (height_RECTANGLE x)+ size x+ = size (x_RECTANGLE x) + size (y_RECTANGLE x) ++ size (width_RECTANGLE x)+ + size (height_RECTANGLE x)+ +instance Deserialize RECTANGLE where+ deserialize+ = do x <- deserialize+ y <- deserialize+ width <- deserialize+ height <- deserialize+ return (MkRECTANGLE x y width height)+ +data ARC = MkARC{x_ARC :: Int16, y_ARC :: Int16,+ width_ARC :: Word16, height_ARC :: Word16, angle1_ARC :: Int16,+ angle2_ARC :: Int16}+ deriving (Show, Typeable)+ +instance Serialize ARC where+ serialize x+ = do serialize (x_ARC x)+ serialize (y_ARC x)+ serialize (width_ARC x)+ serialize (height_ARC x)+ serialize (angle1_ARC x)+ serialize (angle2_ARC x)+ size x+ = size (x_ARC x) + size (y_ARC x) + size (width_ARC x) ++ size (height_ARC x)+ + size (angle1_ARC x)+ + size (angle2_ARC x)+ +instance Deserialize ARC where+ deserialize+ = do x <- deserialize+ y <- deserialize+ width <- deserialize+ height <- deserialize+ angle1 <- deserialize+ angle2 <- deserialize+ return (MkARC x y width height angle1 angle2)+ +data FORMAT = MkFORMAT{depth_FORMAT :: Word8,+ bits_per_pixel_FORMAT :: Word8, scanline_pad_FORMAT :: Word8}+ deriving (Show, Typeable)+ +instance Serialize FORMAT where+ serialize x+ = do serialize (depth_FORMAT x)+ serialize (bits_per_pixel_FORMAT x)+ serialize (scanline_pad_FORMAT x)+ putSkip 5+ size x+ = size (depth_FORMAT x) + size (bits_per_pixel_FORMAT x) ++ size (scanline_pad_FORMAT x)+ + 5+ +instance Deserialize FORMAT where+ deserialize+ = do depth <- deserialize+ bits_per_pixel <- deserialize+ scanline_pad <- deserialize+ skip 5+ return (MkFORMAT depth bits_per_pixel scanline_pad)+ +data VisualClass = VisualClassStaticGray+ | VisualClassGrayScale+ | VisualClassStaticColor+ | VisualClassPseudoColor+ | VisualClassTrueColor+ | VisualClassDirectColor+ +instance SimpleEnum VisualClass where+ toValue VisualClassStaticGray{} = 0+ toValue VisualClassGrayScale{} = 1+ toValue VisualClassStaticColor{} = 2+ toValue VisualClassPseudoColor{} = 3+ toValue VisualClassTrueColor{} = 4+ toValue VisualClassDirectColor{} = 5+ fromValue 0 = VisualClassStaticGray+ fromValue 1 = VisualClassGrayScale+ fromValue 2 = VisualClassStaticColor+ fromValue 3 = VisualClassPseudoColor+ fromValue 4 = VisualClassTrueColor+ fromValue 5 = VisualClassDirectColor+ +data VISUALTYPE = MkVISUALTYPE{visual_id_VISUALTYPE :: VISUALID,+ class_VISUALTYPE :: Word8, bits_per_rgb_value_VISUALTYPE :: Word8,+ colormap_entries_VISUALTYPE :: Word16,+ red_mask_VISUALTYPE :: Word32, green_mask_VISUALTYPE :: Word32,+ blue_mask_VISUALTYPE :: Word32}+ deriving (Show, Typeable)+ +instance Serialize VISUALTYPE where+ serialize x+ = do serialize (visual_id_VISUALTYPE x)+ serialize (class_VISUALTYPE x)+ serialize (bits_per_rgb_value_VISUALTYPE x)+ serialize (colormap_entries_VISUALTYPE x)+ serialize (red_mask_VISUALTYPE x)+ serialize (green_mask_VISUALTYPE x)+ serialize (blue_mask_VISUALTYPE x)+ putSkip 4+ size x+ = size (visual_id_VISUALTYPE x) + size (class_VISUALTYPE x) ++ size (bits_per_rgb_value_VISUALTYPE x)+ + size (colormap_entries_VISUALTYPE x)+ + size (red_mask_VISUALTYPE x)+ + size (green_mask_VISUALTYPE x)+ + size (blue_mask_VISUALTYPE x)+ + 4+ +instance Deserialize VISUALTYPE where+ deserialize+ = do visual_id <- deserialize+ class_ <- deserialize+ bits_per_rgb_value <- deserialize+ colormap_entries <- deserialize+ red_mask <- deserialize+ green_mask <- deserialize+ blue_mask <- deserialize+ skip 4+ return+ (MkVISUALTYPE visual_id class_ bits_per_rgb_value colormap_entries+ red_mask+ green_mask+ blue_mask)+ +data DEPTH = MkDEPTH{depth_DEPTH :: Word8,+ visuals_len_DEPTH :: Word16, visuals_DEPTH :: [VISUALTYPE]}+ deriving (Show, Typeable)+ +instance Serialize DEPTH where+ serialize x+ = do serialize (depth_DEPTH x)+ putSkip 1+ serialize (visuals_len_DEPTH x)+ putSkip 4+ serializeList (visuals_DEPTH x)+ size x+ = size (depth_DEPTH x) + 1 + size (visuals_len_DEPTH x) + 4 ++ sum (map size (visuals_DEPTH x))+ +instance Deserialize DEPTH where+ deserialize+ = do depth <- deserialize+ skip 1+ visuals_len <- deserialize+ skip 4+ visuals <- deserializeList (fromIntegral visuals_len)+ return (MkDEPTH depth visuals_len visuals)+ +data SCREEN = MkSCREEN{root_SCREEN :: WINDOW,+ default_colormap_SCREEN :: COLORMAP, white_pixel_SCREEN :: Word32,+ black_pixel_SCREEN :: Word32, current_input_masks_SCREEN :: Word32,+ width_in_pixels_SCREEN :: Word16,+ height_in_pixels_SCREEN :: Word16,+ width_in_millimeters_SCREEN :: Word16,+ height_in_millimeters_SCREEN :: Word16,+ min_installed_maps_SCREEN :: Word16,+ max_installed_maps_SCREEN :: Word16,+ root_visual_SCREEN :: VISUALID, backing_stores_SCREEN :: Word8,+ save_unders_SCREEN :: Bool, root_depth_SCREEN :: Word8,+ allowed_depths_len_SCREEN :: Word8,+ allowed_depths_SCREEN :: [DEPTH]}+ deriving (Show, Typeable)+ +instance Serialize SCREEN where+ serialize x+ = do serialize (root_SCREEN x)+ serialize (default_colormap_SCREEN x)+ serialize (white_pixel_SCREEN x)+ serialize (black_pixel_SCREEN x)+ serialize (current_input_masks_SCREEN x)+ serialize (width_in_pixels_SCREEN x)+ serialize (height_in_pixels_SCREEN x)+ serialize (width_in_millimeters_SCREEN x)+ serialize (height_in_millimeters_SCREEN x)+ serialize (min_installed_maps_SCREEN x)+ serialize (max_installed_maps_SCREEN x)+ serialize (root_visual_SCREEN x)+ serialize (backing_stores_SCREEN x)+ serialize (save_unders_SCREEN x)+ serialize (root_depth_SCREEN x)+ serialize (allowed_depths_len_SCREEN x)+ serializeList (allowed_depths_SCREEN x)+ size x+ = size (root_SCREEN x) + size (default_colormap_SCREEN x) ++ size (white_pixel_SCREEN x)+ + size (black_pixel_SCREEN x)+ + size (current_input_masks_SCREEN x)+ + size (width_in_pixels_SCREEN x)+ + size (height_in_pixels_SCREEN x)+ + size (width_in_millimeters_SCREEN x)+ + size (height_in_millimeters_SCREEN x)+ + size (min_installed_maps_SCREEN x)+ + size (max_installed_maps_SCREEN x)+ + size (root_visual_SCREEN x)+ + size (backing_stores_SCREEN x)+ + size (save_unders_SCREEN x)+ + size (root_depth_SCREEN x)+ + size (allowed_depths_len_SCREEN x)+ + sum (map size (allowed_depths_SCREEN x))+ +instance Deserialize SCREEN where+ deserialize+ = do root <- deserialize+ default_colormap <- deserialize+ white_pixel <- deserialize+ black_pixel <- deserialize+ current_input_masks <- deserialize+ width_in_pixels <- deserialize+ height_in_pixels <- deserialize+ width_in_millimeters <- deserialize+ height_in_millimeters <- deserialize+ min_installed_maps <- deserialize+ max_installed_maps <- deserialize+ root_visual <- deserialize+ backing_stores <- deserialize+ save_unders <- deserialize+ root_depth <- deserialize+ allowed_depths_len <- deserialize+ allowed_depths <- deserializeList (fromIntegral allowed_depths_len)+ return+ (MkSCREEN root default_colormap white_pixel black_pixel+ current_input_masks+ width_in_pixels+ height_in_pixels+ width_in_millimeters+ height_in_millimeters+ min_installed_maps+ max_installed_maps+ root_visual+ backing_stores+ save_unders+ root_depth+ allowed_depths_len+ allowed_depths)+ +data SetupRequest = MkSetupRequest{byte_order_SetupRequest ::+ Word8,+ protocol_major_version_SetupRequest :: Word16,+ protocol_minor_version_SetupRequest :: Word16,+ authorization_protocol_name_len_SetupRequest :: Word16,+ authorization_protocol_data_len_SetupRequest :: Word16,+ authorization_protocol_name_SetupRequest :: [CChar],+ authorization_protocol_data_SetupRequest :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize SetupRequest where+ serialize x+ = do serialize (byte_order_SetupRequest x)+ putSkip 1+ serialize (protocol_major_version_SetupRequest x)+ serialize (protocol_minor_version_SetupRequest x)+ serialize (authorization_protocol_name_len_SetupRequest x)+ serialize (authorization_protocol_data_len_SetupRequest x)+ putSkip 2+ serializeList (authorization_protocol_name_SetupRequest x)+ serializeList (authorization_protocol_data_SetupRequest x)+ size x+ = size (byte_order_SetupRequest x) + 1 ++ size (protocol_major_version_SetupRequest x)+ + size (protocol_minor_version_SetupRequest x)+ + size (authorization_protocol_name_len_SetupRequest x)+ + size (authorization_protocol_data_len_SetupRequest x)+ + 2+ + sum (map size (authorization_protocol_name_SetupRequest x))+ + sum (map size (authorization_protocol_data_SetupRequest x))+ +instance Deserialize SetupRequest where+ deserialize+ = do byte_order <- deserialize+ skip 1+ protocol_major_version <- deserialize+ protocol_minor_version <- deserialize+ authorization_protocol_name_len <- deserialize+ authorization_protocol_data_len <- deserialize+ skip 2+ authorization_protocol_name <- deserializeList+ (fromIntegral authorization_protocol_name_len)+ authorization_protocol_data <- deserializeList+ (fromIntegral authorization_protocol_data_len)+ return+ (MkSetupRequest byte_order protocol_major_version+ protocol_minor_version+ authorization_protocol_name_len+ authorization_protocol_data_len+ authorization_protocol_name+ authorization_protocol_data)+ +data SetupFailed = MkSetupFailed{status_SetupFailed :: Word8,+ reason_len_SetupFailed :: Word8,+ protocol_major_version_SetupFailed :: Word16,+ protocol_minor_version_SetupFailed :: Word16,+ length_SetupFailed :: Word16, reason_SetupFailed :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize SetupFailed where+ serialize x+ = do serialize (status_SetupFailed x)+ serialize (reason_len_SetupFailed x)+ serialize (protocol_major_version_SetupFailed x)+ serialize (protocol_minor_version_SetupFailed x)+ serialize (length_SetupFailed x)+ serializeList (reason_SetupFailed x)+ size x+ = size (status_SetupFailed x) + size (reason_len_SetupFailed x) ++ size (protocol_major_version_SetupFailed x)+ + size (protocol_minor_version_SetupFailed x)+ + size (length_SetupFailed x)+ + sum (map size (reason_SetupFailed x))+ +instance Deserialize SetupFailed where+ deserialize+ = do status <- deserialize+ reason_len <- deserialize+ protocol_major_version <- deserialize+ protocol_minor_version <- deserialize+ length <- deserialize+ reason <- deserializeList (fromIntegral reason_len)+ return+ (MkSetupFailed status reason_len protocol_major_version+ protocol_minor_version+ length+ reason)+ +data SetupAuthenticate = MkSetupAuthenticate{status_SetupAuthenticate+ :: Word8,+ length_SetupAuthenticate :: Word16,+ reason_SetupAuthenticate :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize SetupAuthenticate where+ serialize x+ = do serialize (status_SetupAuthenticate x)+ putSkip 5+ serialize (length_SetupAuthenticate x)+ serializeList (reason_SetupAuthenticate x)+ size x+ = size (status_SetupAuthenticate x) + 5 ++ size (length_SetupAuthenticate x)+ + sum (map size (reason_SetupAuthenticate x))+ +instance Deserialize SetupAuthenticate where+ deserialize+ = do status <- deserialize+ skip 5+ length <- deserialize+ reason <- deserializeList+ (fromIntegral (fromIntegral (length * 4)))+ return (MkSetupAuthenticate status length reason)+ +data ImageOrder = ImageOrderLSBFirst+ | ImageOrderMSBFirst+ +instance SimpleEnum ImageOrder where+ toValue ImageOrderLSBFirst{} = 0+ toValue ImageOrderMSBFirst{} = 1+ fromValue 0 = ImageOrderLSBFirst+ fromValue 1 = ImageOrderMSBFirst+ +data Setup = MkSetup{status_Setup :: Word8,+ protocol_major_version_Setup :: Word16,+ protocol_minor_version_Setup :: Word16, length_Setup :: Word16,+ release_number_Setup :: Word32, resource_id_base_Setup :: Word32,+ resource_id_mask_Setup :: Word32,+ motion_buffer_size_Setup :: Word32, vendor_len_Setup :: Word16,+ maximum_request_length_Setup :: Word16, roots_len_Setup :: Word8,+ pixmap_formats_len_Setup :: Word8, image_byte_order_Setup :: Word8,+ bitmap_format_bit_order_Setup :: Word8,+ bitmap_format_scanline_unit_Setup :: Word8,+ bitmap_format_scanline_pad_Setup :: Word8,+ min_keycode_Setup :: KEYCODE, max_keycode_Setup :: KEYCODE,+ vendor_Setup :: [CChar], pixmap_formats_Setup :: [FORMAT],+ roots_Setup :: [SCREEN]}+ deriving (Show, Typeable)+ +instance Serialize Setup where+ serialize x+ = do serialize (status_Setup x)+ putSkip 1+ serialize (protocol_major_version_Setup x)+ serialize (protocol_minor_version_Setup x)+ serialize (length_Setup x)+ serialize (release_number_Setup x)+ serialize (resource_id_base_Setup x)+ serialize (resource_id_mask_Setup x)+ serialize (motion_buffer_size_Setup x)+ serialize (vendor_len_Setup x)+ serialize (maximum_request_length_Setup x)+ serialize (roots_len_Setup x)+ serialize (pixmap_formats_len_Setup x)+ serialize (image_byte_order_Setup x)+ serialize (bitmap_format_bit_order_Setup x)+ serialize (bitmap_format_scanline_unit_Setup x)+ serialize (bitmap_format_scanline_pad_Setup x)+ serialize (min_keycode_Setup x)+ serialize (max_keycode_Setup x)+ putSkip 4+ serializeList (vendor_Setup x)+ serializeList (pixmap_formats_Setup x)+ serializeList (roots_Setup x)+ size x+ = size (status_Setup x) + 1 + size (protocol_major_version_Setup x)+ + size (protocol_minor_version_Setup x)+ + size (length_Setup x)+ + size (release_number_Setup x)+ + size (resource_id_base_Setup x)+ + size (resource_id_mask_Setup x)+ + size (motion_buffer_size_Setup x)+ + size (vendor_len_Setup x)+ + size (maximum_request_length_Setup x)+ + size (roots_len_Setup x)+ + size (pixmap_formats_len_Setup x)+ + size (image_byte_order_Setup x)+ + size (bitmap_format_bit_order_Setup x)+ + size (bitmap_format_scanline_unit_Setup x)+ + size (bitmap_format_scanline_pad_Setup x)+ + size (min_keycode_Setup x)+ + size (max_keycode_Setup x)+ + 4+ + sum (map size (vendor_Setup x))+ + sum (map size (pixmap_formats_Setup x))+ + sum (map size (roots_Setup x))+ +instance Deserialize Setup where+ deserialize+ = do status <- deserialize+ skip 1+ protocol_major_version <- deserialize+ protocol_minor_version <- deserialize+ length <- deserialize+ release_number <- deserialize+ resource_id_base <- deserialize+ resource_id_mask <- deserialize+ motion_buffer_size <- deserialize+ vendor_len <- deserialize+ maximum_request_length <- deserialize+ roots_len <- deserialize+ pixmap_formats_len <- deserialize+ image_byte_order <- deserialize+ bitmap_format_bit_order <- deserialize+ bitmap_format_scanline_unit <- deserialize+ bitmap_format_scanline_pad <- deserialize+ min_keycode <- deserialize+ max_keycode <- deserialize+ skip 4+ vendor <- deserializeList (fromIntegral vendor_len)+ pixmap_formats <- deserializeList (fromIntegral pixmap_formats_len)+ roots <- deserializeList (fromIntegral roots_len)+ return+ (MkSetup status protocol_major_version protocol_minor_version+ length+ release_number+ resource_id_base+ resource_id_mask+ motion_buffer_size+ vendor_len+ maximum_request_length+ roots_len+ pixmap_formats_len+ image_byte_order+ bitmap_format_bit_order+ bitmap_format_scanline_unit+ bitmap_format_scanline_pad+ min_keycode+ max_keycode+ vendor+ pixmap_formats+ roots)+ +data ModMask = ModMaskShift+ | ModMaskLock+ | ModMaskControl+ | ModMask1+ | ModMask2+ | ModMask3+ | ModMask4+ | ModMask5+ +instance BitEnum ModMask where+ toBit ModMaskShift{} = 0+ toBit ModMaskLock{} = 1+ toBit ModMaskControl{} = 2+ toBit ModMask1{} = 3+ toBit ModMask2{} = 4+ toBit ModMask3{} = 5+ toBit ModMask4{} = 6+ toBit ModMask5{} = 7+ fromBit 0 = ModMaskShift+ fromBit 1 = ModMaskLock+ fromBit 2 = ModMaskControl+ fromBit 3 = ModMask1+ fromBit 4 = ModMask2+ fromBit 5 = ModMask3+ fromBit 6 = ModMask4+ fromBit 7 = ModMask5+ +data KeyPress = MkKeyPress{detail_KeyPress :: KEYCODE,+ time_KeyPress :: TIMESTAMP, root_KeyPress :: WINDOW,+ event_KeyPress :: WINDOW, child_KeyPress :: WINDOW,+ root_x_KeyPress :: Int16, root_y_KeyPress :: Int16,+ event_x_KeyPress :: Int16, event_y_KeyPress :: Int16,+ state_KeyPress :: Word16, same_screen_KeyPress :: Bool}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event KeyPress+ +instance Deserialize KeyPress where+ deserialize+ = do skip 1+ detail <- deserialize+ skip 2+ time <- deserialize+ root <- deserialize+ event <- deserialize+ child <- deserialize+ root_x <- deserialize+ root_y <- deserialize+ event_x <- deserialize+ event_y <- deserialize+ state <- deserialize+ same_screen <- deserialize+ skip 1+ return+ (MkKeyPress detail time root event child root_x root_y event_x+ event_y+ state+ same_screen)+ +data KeyRelease = MkKeyRelease{detail_KeyRelease :: KEYCODE,+ time_KeyRelease :: TIMESTAMP, root_KeyRelease :: WINDOW,+ event_KeyRelease :: WINDOW, child_KeyRelease :: WINDOW,+ root_x_KeyRelease :: Int16, root_y_KeyRelease :: Int16,+ event_x_KeyRelease :: Int16, event_y_KeyRelease :: Int16,+ state_KeyRelease :: Word16, same_screen_KeyRelease :: Bool}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event KeyRelease+ +instance Deserialize KeyRelease where+ deserialize+ = do skip 1+ detail <- deserialize+ skip 2+ time <- deserialize+ root <- deserialize+ event <- deserialize+ child <- deserialize+ root_x <- deserialize+ root_y <- deserialize+ event_x <- deserialize+ event_y <- deserialize+ state <- deserialize+ same_screen <- deserialize+ skip 1+ return+ (MkKeyRelease detail time root event child root_x root_y event_x+ event_y+ state+ same_screen)+ +data ButtonMask = ButtonMask1+ | ButtonMask2+ | ButtonMask3+ | ButtonMask4+ | ButtonMask5+ | ButtonMaskAny+ +instance BitEnum ButtonMask where+ toBit ButtonMask1{} = 8+ toBit ButtonMask2{} = 9+ toBit ButtonMask3{} = 10+ toBit ButtonMask4{} = 11+ toBit ButtonMask5{} = 12+ toBit ButtonMaskAny{} = 15+ fromBit 8 = ButtonMask1+ fromBit 9 = ButtonMask2+ fromBit 10 = ButtonMask3+ fromBit 11 = ButtonMask4+ fromBit 12 = ButtonMask5+ fromBit 15 = ButtonMaskAny+ +data ButtonPress = MkButtonPress{detail_ButtonPress :: BUTTON,+ time_ButtonPress :: TIMESTAMP, root_ButtonPress :: WINDOW,+ event_ButtonPress :: WINDOW, child_ButtonPress :: WINDOW,+ root_x_ButtonPress :: Int16, root_y_ButtonPress :: Int16,+ event_x_ButtonPress :: Int16, event_y_ButtonPress :: Int16,+ state_ButtonPress :: Word16, same_screen_ButtonPress :: Bool}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event ButtonPress+ +instance Deserialize ButtonPress where+ deserialize+ = do skip 1+ detail <- deserialize+ skip 2+ time <- deserialize+ root <- deserialize+ event <- deserialize+ child <- deserialize+ root_x <- deserialize+ root_y <- deserialize+ event_x <- deserialize+ event_y <- deserialize+ state <- deserialize+ same_screen <- deserialize+ skip 1+ return+ (MkButtonPress detail time root event child root_x root_y event_x+ event_y+ state+ same_screen)+ +data ButtonRelease = MkButtonRelease{detail_ButtonRelease ::+ BUTTON,+ time_ButtonRelease :: TIMESTAMP, root_ButtonRelease :: WINDOW,+ event_ButtonRelease :: WINDOW, child_ButtonRelease :: WINDOW,+ root_x_ButtonRelease :: Int16, root_y_ButtonRelease :: Int16,+ event_x_ButtonRelease :: Int16, event_y_ButtonRelease :: Int16,+ state_ButtonRelease :: Word16,+ same_screen_ButtonRelease :: Bool}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event ButtonRelease+ +instance Deserialize ButtonRelease where+ deserialize+ = do skip 1+ detail <- deserialize+ skip 2+ time <- deserialize+ root <- deserialize+ event <- deserialize+ child <- deserialize+ root_x <- deserialize+ root_y <- deserialize+ event_x <- deserialize+ event_y <- deserialize+ state <- deserialize+ same_screen <- deserialize+ skip 1+ return+ (MkButtonRelease detail time root event child root_x root_y event_x+ event_y+ state+ same_screen)+ +data Motion = MotionNormal+ | MotionHint+ +instance SimpleEnum Motion where+ toValue MotionNormal{} = 0+ toValue MotionHint{} = 1+ fromValue 0 = MotionNormal+ fromValue 1 = MotionHint+ +data MotionNotify = MkMotionNotify{detail_MotionNotify :: Word8,+ time_MotionNotify :: TIMESTAMP, root_MotionNotify :: WINDOW,+ event_MotionNotify :: WINDOW, child_MotionNotify :: WINDOW,+ root_x_MotionNotify :: Int16, root_y_MotionNotify :: Int16,+ event_x_MotionNotify :: Int16, event_y_MotionNotify :: Int16,+ state_MotionNotify :: Word16, same_screen_MotionNotify :: Bool}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event MotionNotify+ +instance Deserialize MotionNotify where+ deserialize+ = do skip 1+ detail <- deserialize+ skip 2+ time <- deserialize+ root <- deserialize+ event <- deserialize+ child <- deserialize+ root_x <- deserialize+ root_y <- deserialize+ event_x <- deserialize+ event_y <- deserialize+ state <- deserialize+ same_screen <- deserialize+ skip 1+ return+ (MkMotionNotify detail time root event child root_x root_y event_x+ event_y+ state+ same_screen)+ +data NotifyDetail = NotifyDetailAncestor+ | NotifyDetailVirtual+ | NotifyDetailInferior+ | NotifyDetailNonlinear+ | NotifyDetailNonlinearVirtual+ | NotifyDetailPointer+ | NotifyDetailPointerRoot+ | NotifyDetailNone+ +instance SimpleEnum NotifyDetail where+ toValue NotifyDetailAncestor{} = 0+ toValue NotifyDetailVirtual{} = 1+ toValue NotifyDetailInferior{} = 2+ toValue NotifyDetailNonlinear{} = 3+ toValue NotifyDetailNonlinearVirtual{} = 4+ toValue NotifyDetailPointer{} = 5+ toValue NotifyDetailPointerRoot{} = 6+ toValue NotifyDetailNone{} = 7+ fromValue 0 = NotifyDetailAncestor+ fromValue 1 = NotifyDetailVirtual+ fromValue 2 = NotifyDetailInferior+ fromValue 3 = NotifyDetailNonlinear+ fromValue 4 = NotifyDetailNonlinearVirtual+ fromValue 5 = NotifyDetailPointer+ fromValue 6 = NotifyDetailPointerRoot+ fromValue 7 = NotifyDetailNone+ +data NotifyMode = NotifyModeNormal+ | NotifyModeGrab+ | NotifyModeUngrab+ | NotifyModeWhileGrabbed+ +instance SimpleEnum NotifyMode where+ toValue NotifyModeNormal{} = 0+ toValue NotifyModeGrab{} = 1+ toValue NotifyModeUngrab{} = 2+ toValue NotifyModeWhileGrabbed{} = 3+ fromValue 0 = NotifyModeNormal+ fromValue 1 = NotifyModeGrab+ fromValue 2 = NotifyModeUngrab+ fromValue 3 = NotifyModeWhileGrabbed+ +data EnterNotify = MkEnterNotify{detail_EnterNotify :: Word8,+ time_EnterNotify :: TIMESTAMP, root_EnterNotify :: WINDOW,+ event_EnterNotify :: WINDOW, child_EnterNotify :: WINDOW,+ root_x_EnterNotify :: Int16, root_y_EnterNotify :: Int16,+ event_x_EnterNotify :: Int16, event_y_EnterNotify :: Int16,+ state_EnterNotify :: Word16, mode_EnterNotify :: Word8,+ same_screen_focus_EnterNotify :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event EnterNotify+ +instance Deserialize EnterNotify where+ deserialize+ = do skip 1+ detail <- deserialize+ skip 2+ time <- deserialize+ root <- deserialize+ event <- deserialize+ child <- deserialize+ root_x <- deserialize+ root_y <- deserialize+ event_x <- deserialize+ event_y <- deserialize+ state <- deserialize+ mode <- deserialize+ same_screen_focus <- deserialize+ return+ (MkEnterNotify detail time root event child root_x root_y event_x+ event_y+ state+ mode+ same_screen_focus)+ +data LeaveNotify = MkLeaveNotify{detail_LeaveNotify :: Word8,+ time_LeaveNotify :: TIMESTAMP, root_LeaveNotify :: WINDOW,+ event_LeaveNotify :: WINDOW, child_LeaveNotify :: WINDOW,+ root_x_LeaveNotify :: Int16, root_y_LeaveNotify :: Int16,+ event_x_LeaveNotify :: Int16, event_y_LeaveNotify :: Int16,+ state_LeaveNotify :: Word16, mode_LeaveNotify :: Word8,+ same_screen_focus_LeaveNotify :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event LeaveNotify+ +instance Deserialize LeaveNotify where+ deserialize+ = do skip 1+ detail <- deserialize+ skip 2+ time <- deserialize+ root <- deserialize+ event <- deserialize+ child <- deserialize+ root_x <- deserialize+ root_y <- deserialize+ event_x <- deserialize+ event_y <- deserialize+ state <- deserialize+ mode <- deserialize+ same_screen_focus <- deserialize+ return+ (MkLeaveNotify detail time root event child root_x root_y event_x+ event_y+ state+ mode+ same_screen_focus)+ +data FocusIn = MkFocusIn{detail_FocusIn :: Word8,+ event_FocusIn :: WINDOW, mode_FocusIn :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event FocusIn+ +instance Deserialize FocusIn where+ deserialize+ = do skip 1+ detail <- deserialize+ skip 2+ event <- deserialize+ mode <- deserialize+ skip 3+ return (MkFocusIn detail event mode)+ +data FocusOut = MkFocusOut{detail_FocusOut :: Word8,+ event_FocusOut :: WINDOW, mode_FocusOut :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event FocusOut+ +instance Deserialize FocusOut where+ deserialize+ = do skip 1+ detail <- deserialize+ skip 2+ event <- deserialize+ mode <- deserialize+ skip 3+ return (MkFocusOut detail event mode)+ +data KeymapNotify = MkKeymapNotify{keys_KeymapNotify :: [Word8]}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event KeymapNotify+ +instance Deserialize KeymapNotify where+ deserialize+ = do skip 1+ keys <- deserializeList (fromIntegral 31)+ return (MkKeymapNotify keys)+ +data Expose = MkExpose{window_Expose :: WINDOW, x_Expose :: Word16,+ y_Expose :: Word16, width_Expose :: Word16,+ height_Expose :: Word16, count_Expose :: Word16}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event Expose+ +instance Deserialize Expose where+ deserialize+ = do skip 1+ skip 1+ skip 2+ window <- deserialize+ x <- deserialize+ y <- deserialize+ width <- deserialize+ height <- deserialize+ count <- deserialize+ skip 2+ return (MkExpose window x y width height count)+ +data GraphicsExposure = MkGraphicsExposure{drawable_GraphicsExposure+ :: DRAWABLE,+ x_GraphicsExposure :: Word16,+ y_GraphicsExposure :: Word16,+ width_GraphicsExposure :: Word16,+ height_GraphicsExposure :: Word16,+ minor_opcode_GraphicsExposure :: Word16,+ count_GraphicsExposure :: Word16,+ major_opcode_GraphicsExposure :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event GraphicsExposure+ +instance Deserialize GraphicsExposure where+ deserialize+ = do skip 1+ skip 1+ skip 2+ drawable <- deserialize+ x <- deserialize+ y <- deserialize+ width <- deserialize+ height <- deserialize+ minor_opcode <- deserialize+ count <- deserialize+ major_opcode <- deserialize+ skip 3+ return+ (MkGraphicsExposure drawable x y width height minor_opcode count+ major_opcode)+ +data NoExposure = MkNoExposure{drawable_NoExposure :: DRAWABLE,+ minor_opcode_NoExposure :: Word16,+ major_opcode_NoExposure :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event NoExposure+ +instance Deserialize NoExposure where+ deserialize+ = do skip 1+ skip 1+ skip 2+ drawable <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkNoExposure drawable minor_opcode major_opcode)+ +data Visibility = VisibilityUnobscured+ | VisibilityPartiallyObscured+ | VisibilityFullyObscured+ +instance SimpleEnum Visibility where+ toValue VisibilityUnobscured{} = 0+ toValue VisibilityPartiallyObscured{} = 1+ toValue VisibilityFullyObscured{} = 2+ fromValue 0 = VisibilityUnobscured+ fromValue 1 = VisibilityPartiallyObscured+ fromValue 2 = VisibilityFullyObscured+ +data VisibilityNotify = MkVisibilityNotify{window_VisibilityNotify+ :: WINDOW,+ state_VisibilityNotify :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event VisibilityNotify+ +instance Deserialize VisibilityNotify where+ deserialize+ = do skip 1+ skip 1+ skip 2+ window <- deserialize+ state <- deserialize+ skip 3+ return (MkVisibilityNotify window state)+ +data CreateNotify = MkCreateNotify{parent_CreateNotify :: WINDOW,+ window_CreateNotify :: WINDOW, x_CreateNotify :: Int16,+ y_CreateNotify :: Int16, width_CreateNotify :: Word16,+ height_CreateNotify :: Word16,+ border_width_CreateNotify :: Word16,+ override_redirect_CreateNotify :: Bool}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event CreateNotify+ +instance Deserialize CreateNotify where+ deserialize+ = do skip 1+ skip 1+ skip 2+ parent <- deserialize+ window <- deserialize+ x <- deserialize+ y <- deserialize+ width <- deserialize+ height <- deserialize+ border_width <- deserialize+ override_redirect <- deserialize+ skip 1+ return+ (MkCreateNotify parent window x y width height border_width+ override_redirect)+ +data DestroyNotify = MkDestroyNotify{event_DestroyNotify :: WINDOW,+ window_DestroyNotify :: WINDOW}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event DestroyNotify+ +instance Deserialize DestroyNotify where+ deserialize+ = do skip 1+ skip 1+ skip 2+ event <- deserialize+ window <- deserialize+ return (MkDestroyNotify event window)+ +data UnmapNotify = MkUnmapNotify{event_UnmapNotify :: WINDOW,+ window_UnmapNotify :: WINDOW, from_configure_UnmapNotify :: Bool}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event UnmapNotify+ +instance Deserialize UnmapNotify where+ deserialize+ = do skip 1+ skip 1+ skip 2+ event <- deserialize+ window <- deserialize+ from_configure <- deserialize+ skip 3+ return (MkUnmapNotify event window from_configure)+ +data MapNotify = MkMapNotify{event_MapNotify :: WINDOW,+ window_MapNotify :: WINDOW, override_redirect_MapNotify :: Bool}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event MapNotify+ +instance Deserialize MapNotify where+ deserialize+ = do skip 1+ skip 1+ skip 2+ event <- deserialize+ window <- deserialize+ override_redirect <- deserialize+ skip 3+ return (MkMapNotify event window override_redirect)+ +data MapRequest = MkMapRequest{parent_MapRequest :: WINDOW,+ window_MapRequest :: WINDOW}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event MapRequest+ +instance Deserialize MapRequest where+ deserialize+ = do skip 1+ skip 1+ skip 2+ parent <- deserialize+ window <- deserialize+ return (MkMapRequest parent window)+ +data ReparentNotify = MkReparentNotify{event_ReparentNotify ::+ WINDOW,+ window_ReparentNotify :: WINDOW,+ parent_ReparentNotify :: WINDOW, x_ReparentNotify :: Int16,+ y_ReparentNotify :: Int16,+ override_redirect_ReparentNotify :: Bool}+ deriving (Show, Typeable)++ +data ClientMessageData = ClientData8 [Word8] -- ^length 20+ | ClientData16 [Word16] -- ^length 10+ | ClientData32 [Word32] -- ^length 5+ deriving (Show, Typeable)++ +data ClientMessageDataType = CDType8+ | CDType16+ | CDType32+ +clientMessageDataType :: ClientMessageData -> ClientMessageDataType+clientMessageDataType ClientData8{} = CDType8+clientMessageDataType ClientData16{} = CDType16+clientMessageDataType ClientData32{} = CDType32+ +instance Serialize ClientMessageData where+ serialize (ClientData8 xs) = assert (length xs == 20) $+ serializeList xs+ serialize (ClientData16 xs) = assert (length xs == 10) $+ serializeList xs+ serialize (ClientData32 xs) = assert (length xs == 5) $+ serializeList xs+ size cd = assert+ (case cd of+ ClientData8 xs -> length xs == 20+ ClientData16 xs -> length xs == 10+ ClientData32 xs -> length xs == 5)+ 20++deserializeClientData :: ClientMessageDataType -> Get ClientMessageData+deserializeClientData CDType8+ = ClientData8 `liftM` deserializeList 20+deserializeClientData CDType16+ = ClientData16 `liftM` deserializeList 10+deserializeClientData CDType32+ = ClientData32 `liftM` deserializeList 5+ +clientDataFormatToType :: Word8 -> ClientMessageDataType+clientDataFormatToType 8 = CDType8+clientDataFormatToType 16 = CDType16+clientDataFormatToType 32 = CDType32+clientDataFormatToType _ = CDType8 -- should we throw an error here?++ +instance Graphics.XHB.Shared.Event ReparentNotify+ +instance Deserialize ReparentNotify where+ deserialize+ = do skip 1+ skip 1+ skip 2+ event <- deserialize+ window <- deserialize+ parent <- deserialize+ x <- deserialize+ y <- deserialize+ override_redirect <- deserialize+ skip 3+ return (MkReparentNotify event window parent x y override_redirect)+ +data ConfigureNotify = MkConfigureNotify{event_ConfigureNotify ::+ WINDOW,+ window_ConfigureNotify :: WINDOW,+ above_sibling_ConfigureNotify :: WINDOW,+ x_ConfigureNotify :: Int16, y_ConfigureNotify :: Int16,+ width_ConfigureNotify :: Word16,+ height_ConfigureNotify :: Word16,+ border_width_ConfigureNotify :: Word16,+ override_redirect_ConfigureNotify :: Bool}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event ConfigureNotify+ +instance Deserialize ConfigureNotify where+ deserialize+ = do skip 1+ skip 1+ skip 2+ event <- deserialize+ window <- deserialize+ above_sibling <- deserialize+ x <- deserialize+ y <- deserialize+ width <- deserialize+ height <- deserialize+ border_width <- deserialize+ override_redirect <- deserialize+ skip 1+ return+ (MkConfigureNotify event window above_sibling x y width height+ border_width+ override_redirect)+ +data ConfigureRequest = MkConfigureRequest{stack_mode_ConfigureRequest+ :: Word8,+ parent_ConfigureRequest :: WINDOW,+ window_ConfigureRequest :: WINDOW,+ sibling_ConfigureRequest :: WINDOW,+ x_ConfigureRequest :: Int16, y_ConfigureRequest :: Int16,+ width_ConfigureRequest :: Word16,+ height_ConfigureRequest :: Word16,+ border_width_ConfigureRequest :: Word16,+ value_mask_ConfigureRequest :: Word16}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event ConfigureRequest+ +instance Deserialize ConfigureRequest where+ deserialize+ = do skip 1+ stack_mode <- deserialize+ skip 2+ parent <- deserialize+ window <- deserialize+ sibling <- deserialize+ x <- deserialize+ y <- deserialize+ width <- deserialize+ height <- deserialize+ border_width <- deserialize+ value_mask <- deserialize+ return+ (MkConfigureRequest stack_mode parent window sibling x y width+ height+ border_width+ value_mask)+ +data GravityNotify = MkGravityNotify{event_GravityNotify :: WINDOW,+ window_GravityNotify :: WINDOW, x_GravityNotify :: Int16,+ y_GravityNotify :: Int16}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event GravityNotify+ +instance Deserialize GravityNotify where+ deserialize+ = do skip 1+ skip 1+ skip 2+ event <- deserialize+ window <- deserialize+ x <- deserialize+ y <- deserialize+ return (MkGravityNotify event window x y)+ +data ResizeRequest = MkResizeRequest{window_ResizeRequest ::+ WINDOW,+ width_ResizeRequest :: Word16, height_ResizeRequest :: Word16}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event ResizeRequest+ +instance Deserialize ResizeRequest where+ deserialize+ = do skip 1+ skip 1+ skip 2+ window <- deserialize+ width <- deserialize+ height <- deserialize+ return (MkResizeRequest window width height)+ +data Place = PlaceOnTop+ | PlaceOnBottom+ +instance SimpleEnum Place where+ toValue PlaceOnTop{} = 0+ toValue PlaceOnBottom{} = 1+ fromValue 0 = PlaceOnTop+ fromValue 1 = PlaceOnBottom+ +data CirculateNotify = MkCirculateNotify{event_CirculateNotify ::+ WINDOW,+ window_CirculateNotify :: WINDOW,+ place_CirculateNotify :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event CirculateNotify+ +instance Deserialize CirculateNotify where+ deserialize+ = do skip 1+ skip 1+ skip 2+ event <- deserialize+ window <- deserialize+ skip 4+ place <- deserialize+ skip 3+ return (MkCirculateNotify event window place)+ +data CirculateRequest = MkCirculateRequest{event_CirculateRequest+ :: WINDOW,+ window_CirculateRequest :: WINDOW,+ place_CirculateRequest :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event CirculateRequest+ +instance Deserialize CirculateRequest where+ deserialize+ = do skip 1+ skip 1+ skip 2+ event <- deserialize+ window <- deserialize+ skip 4+ place <- deserialize+ skip 3+ return (MkCirculateRequest event window place)+ +data Property = PropertyNewValue+ | PropertyDelete+ +instance SimpleEnum Property where+ toValue PropertyNewValue{} = 0+ toValue PropertyDelete{} = 1+ fromValue 0 = PropertyNewValue+ fromValue 1 = PropertyDelete+ +data PropertyNotify = MkPropertyNotify{window_PropertyNotify ::+ WINDOW,+ atom_PropertyNotify :: ATOM,+ time_PropertyNotify :: TIMESTAMP,+ state_PropertyNotify :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event PropertyNotify+ +instance Deserialize PropertyNotify where+ deserialize+ = do skip 1+ skip 1+ skip 2+ window <- deserialize+ atom <- deserialize+ time <- deserialize+ state <- deserialize+ skip 3+ return (MkPropertyNotify window atom time state)+ +data SelectionClear = MkSelectionClear{time_SelectionClear ::+ TIMESTAMP,+ owner_SelectionClear :: WINDOW,+ selection_SelectionClear :: ATOM}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event SelectionClear+ +instance Deserialize SelectionClear where+ deserialize+ = do skip 1+ skip 1+ skip 2+ time <- deserialize+ owner <- deserialize+ selection <- deserialize+ return (MkSelectionClear time owner selection)+ +data SelectionRequest = MkSelectionRequest{time_SelectionRequest ::+ TIMESTAMP,+ owner_SelectionRequest :: WINDOW,+ requestor_SelectionRequest :: WINDOW,+ selection_SelectionRequest :: ATOM,+ target_SelectionRequest :: ATOM,+ property_SelectionRequest :: ATOM}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event SelectionRequest+ +instance Deserialize SelectionRequest where+ deserialize+ = do skip 1+ skip 1+ skip 2+ time <- deserialize+ owner <- deserialize+ requestor <- deserialize+ selection <- deserialize+ target <- deserialize+ property <- deserialize+ return+ (MkSelectionRequest time owner requestor selection target property)+ +data SelectionNotify = MkSelectionNotify{time_SelectionNotify ::+ TIMESTAMP,+ requestor_SelectionNotify :: WINDOW,+ selection_SelectionNotify :: ATOM,+ target_SelectionNotify :: ATOM,+ property_SelectionNotify :: ATOM}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event SelectionNotify+ +instance Deserialize SelectionNotify where+ deserialize+ = do skip 1+ skip 1+ skip 2+ time <- deserialize+ requestor <- deserialize+ selection <- deserialize+ target <- deserialize+ property <- deserialize+ return (MkSelectionNotify time requestor selection target property)+ +data ColormapState = ColormapStateUninstalled+ | ColormapStateInstalled+ +instance SimpleEnum ColormapState where+ toValue ColormapStateUninstalled{} = 0+ toValue ColormapStateInstalled{} = 1+ fromValue 0 = ColormapStateUninstalled+ fromValue 1 = ColormapStateInstalled+ +data ColormapNotify = MkColormapNotify{window_ColormapNotify ::+ WINDOW,+ colormap_ColormapNotify :: COLORMAP,+ new_ColormapNotify :: Bool, state_ColormapNotify :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event ColormapNotify+ +instance Deserialize ColormapNotify where+ deserialize+ = do skip 1+ skip 1+ skip 2+ window <- deserialize+ colormap <- deserialize+ new <- deserialize+ state <- deserialize+ skip 2+ return (MkColormapNotify window colormap new state)+ +data ClientMessage = MkClientMessage{format_ClientMessage :: Word8,+ window_ClientMessage :: WINDOW, type_ClientMessage :: ATOM,+ data_ClientMessage :: ClientMessageData}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event ClientMessage+ +instance Deserialize ClientMessage where+ deserialize+ = do skip 1+ format <- deserialize+ skip 2+ window <- deserialize+ type_ <- deserialize+ data_ <- deserializeClientData (clientDataFormatToType format)+ return (MkClientMessage format window type_ data_)+ +data Mapping = MappingModifier+ | MappingKeyboard+ | MappingPointer+ +instance SimpleEnum Mapping where+ toValue MappingModifier{} = 0+ toValue MappingKeyboard{} = 1+ toValue MappingPointer{} = 2+ fromValue 0 = MappingModifier+ fromValue 1 = MappingKeyboard+ fromValue 2 = MappingPointer+ +data MappingNotify = MkMappingNotify{request_MappingNotify ::+ Word8,+ first_keycode_MappingNotify :: KEYCODE,+ count_MappingNotify :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event MappingNotify+ +instance Deserialize MappingNotify where+ deserialize+ = do skip 1+ skip 1+ skip 2+ request <- deserialize+ first_keycode <- deserialize+ count <- deserialize+ skip 1+ return (MkMappingNotify request first_keycode count)+ +data Request = MkRequest{bad_value_Request :: Word32,+ minor_opcode_Request :: Word16, major_opcode_Request :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Request+ +instance Deserialize Request where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkRequest bad_value minor_opcode major_opcode)+ +data Value = MkValue{bad_value_Value :: Word32,+ minor_opcode_Value :: Word16, major_opcode_Value :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Value+ +instance Deserialize Value where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkValue bad_value minor_opcode major_opcode)+ +data Window = MkWindow{bad_value_Window :: Word32,+ minor_opcode_Window :: Word16, major_opcode_Window :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Window+ +instance Deserialize Window where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkWindow bad_value minor_opcode major_opcode)+ +data Pixmap = MkPixmap{bad_value_Pixmap :: Word32,+ minor_opcode_Pixmap :: Word16, major_opcode_Pixmap :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Pixmap+ +instance Deserialize Pixmap where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkPixmap bad_value minor_opcode major_opcode)+ +data Atom = MkAtom{bad_value_Atom :: Word32,+ minor_opcode_Atom :: Word16, major_opcode_Atom :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Atom+ +instance Deserialize Atom where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkAtom bad_value minor_opcode major_opcode)+ +data Cursor = MkCursor{bad_value_Cursor :: Word32,+ minor_opcode_Cursor :: Word16, major_opcode_Cursor :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Cursor+ +instance Deserialize Cursor where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkCursor bad_value minor_opcode major_opcode)+ +data Font = MkFont{bad_value_Font :: Word32,+ minor_opcode_Font :: Word16, major_opcode_Font :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Font+ +instance Deserialize Font where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkFont bad_value minor_opcode major_opcode)+ +data Match = MkMatch{bad_value_Match :: Word32,+ minor_opcode_Match :: Word16, major_opcode_Match :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Match+ +instance Deserialize Match where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkMatch bad_value minor_opcode major_opcode)+ +data Drawable = MkDrawable{bad_value_Drawable :: Word32,+ minor_opcode_Drawable :: Word16, major_opcode_Drawable :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Drawable+ +instance Deserialize Drawable where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkDrawable bad_value minor_opcode major_opcode)+ +data Access = MkAccess{bad_value_Access :: Word32,+ minor_opcode_Access :: Word16, major_opcode_Access :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Access+ +instance Deserialize Access where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkAccess bad_value minor_opcode major_opcode)+ +data Alloc = MkAlloc{bad_value_Alloc :: Word32,+ minor_opcode_Alloc :: Word16, major_opcode_Alloc :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Alloc+ +instance Deserialize Alloc where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkAlloc bad_value minor_opcode major_opcode)+ +data Colormap = MkColormap{bad_value_Colormap :: Word32,+ minor_opcode_Colormap :: Word16, major_opcode_Colormap :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Colormap+ +instance Deserialize Colormap where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkColormap bad_value minor_opcode major_opcode)+ +data GContext = MkGContext{bad_value_GContext :: Word32,+ minor_opcode_GContext :: Word16, major_opcode_GContext :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error GContext+ +instance Deserialize GContext where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkGContext bad_value minor_opcode major_opcode)+ +data IDChoice = MkIDChoice{bad_value_IDChoice :: Word32,+ minor_opcode_IDChoice :: Word16, major_opcode_IDChoice :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error IDChoice+ +instance Deserialize IDChoice where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkIDChoice bad_value minor_opcode major_opcode)+ +data Name = MkName{bad_value_Name :: Word32,+ minor_opcode_Name :: Word16, major_opcode_Name :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Name+ +instance Deserialize Name where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkName bad_value minor_opcode major_opcode)+ +data Length = MkLength{bad_value_Length :: Word32,+ minor_opcode_Length :: Word16, major_opcode_Length :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Length+ +instance Deserialize Length where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkLength bad_value minor_opcode major_opcode)+ +data Implementation = MkImplementation{bad_value_Implementation ::+ Word32,+ minor_opcode_Implementation :: Word16,+ major_opcode_Implementation :: Word8}+ deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Implementation+ +instance Deserialize Implementation where+ deserialize+ = do skip 4+ bad_value <- deserialize+ minor_opcode <- deserialize+ major_opcode <- deserialize+ skip 1+ return (MkImplementation bad_value minor_opcode major_opcode)+ +data WindowClass = WindowClassCopyFromParent+ | WindowClassInputOutput+ | WindowClassInputOnly+ +instance SimpleEnum WindowClass where+ toValue WindowClassCopyFromParent{} = 0+ toValue WindowClassInputOutput{} = 1+ toValue WindowClassInputOnly{} = 2+ fromValue 0 = WindowClassCopyFromParent+ fromValue 1 = WindowClassInputOutput+ fromValue 2 = WindowClassInputOnly+ +data CW = CWBackPixmap+ | CWBackPixel+ | CWBorderPixmap+ | CWBorderPixel+ | CWBitGravity+ | CWWinGravity+ | CWBackingStore+ | CWBackingPlanes+ | CWBackingPixel+ | CWOverrideRedirect+ | CWSaveUnder+ | CWEventMask+ | CWDontPropagate+ | CWColormap+ | CWCursor+ +instance BitEnum CW where+ toBit CWBackPixmap{} = 0+ toBit CWBackPixel{} = 1+ toBit CWBorderPixmap{} = 2+ toBit CWBorderPixel{} = 3+ toBit CWBitGravity{} = 4+ toBit CWWinGravity{} = 5+ toBit CWBackingStore{} = 6+ toBit CWBackingPlanes{} = 7+ toBit CWBackingPixel{} = 8+ toBit CWOverrideRedirect{} = 9+ toBit CWSaveUnder{} = 10+ toBit CWEventMask{} = 11+ toBit CWDontPropagate{} = 12+ toBit CWColormap{} = 13+ toBit CWCursor{} = 14+ fromBit 0 = CWBackPixmap+ fromBit 1 = CWBackPixel+ fromBit 2 = CWBorderPixmap+ fromBit 3 = CWBorderPixel+ fromBit 4 = CWBitGravity+ fromBit 5 = CWWinGravity+ fromBit 6 = CWBackingStore+ fromBit 7 = CWBackingPlanes+ fromBit 8 = CWBackingPixel+ fromBit 9 = CWOverrideRedirect+ fromBit 10 = CWSaveUnder+ fromBit 11 = CWEventMask+ fromBit 12 = CWDontPropagate+ fromBit 13 = CWColormap+ fromBit 14 = CWCursor+ +data BackPixmap = BackPixmapNone+ | BackPixmapParentRelative+ +instance SimpleEnum BackPixmap where+ toValue BackPixmapNone{} = 0+ toValue BackPixmapParentRelative{} = 1+ fromValue 0 = BackPixmapNone+ fromValue 1 = BackPixmapParentRelative+ +data Gravity = GravityBitForget+ | GravityWinUnmap+ | GravityNorthWest+ | GravityNorth+ | GravityNorthEast+ | GravityWest+ | GravityCenter+ | GravityEast+ | GravitySouthWest+ | GravitySouth+ | GravitySouthEast+ | GravityStatic+ +instance SimpleEnum Gravity where+ toValue GravityBitForget{} = 0+ toValue GravityWinUnmap{} = 0+ toValue GravityNorthWest{} = 1+ toValue GravityNorth{} = 2+ toValue GravityNorthEast{} = 3+ toValue GravityWest{} = 4+ toValue GravityCenter{} = 5+ toValue GravityEast{} = 6+ toValue GravitySouthWest{} = 7+ toValue GravitySouth{} = 8+ toValue GravitySouthEast{} = 9+ toValue GravityStatic{} = 10+ fromValue 0 = GravityBitForget+ fromValue 0 = GravityWinUnmap+ fromValue 1 = GravityNorthWest+ fromValue 2 = GravityNorth+ fromValue 3 = GravityNorthEast+ fromValue 4 = GravityWest+ fromValue 5 = GravityCenter+ fromValue 6 = GravityEast+ fromValue 7 = GravitySouthWest+ fromValue 8 = GravitySouth+ fromValue 9 = GravitySouthEast+ fromValue 10 = GravityStatic+ +data BackingStore = BackingStoreNotUseful+ | BackingStoreWhenMapped+ | BackingStoreAlways+ +instance SimpleEnum BackingStore where+ toValue BackingStoreNotUseful{} = 0+ toValue BackingStoreWhenMapped{} = 1+ toValue BackingStoreAlways{} = 2+ fromValue 0 = BackingStoreNotUseful+ fromValue 1 = BackingStoreWhenMapped+ fromValue 2 = BackingStoreAlways+ +data EventMask = EventMaskKeyPress+ | EventMaskKeyRelease+ | EventMaskButtonPress+ | EventMaskButtonRelease+ | EventMaskEnterWindow+ | EventMaskLeaveWindow+ | EventMaskPointerMotion+ | EventMaskPointerMotionHint+ | EventMaskButton1Motion+ | EventMaskButton2Motion+ | EventMaskButton3Motion+ | EventMaskButton4Motion+ | EventMaskButton5Motion+ | EventMaskButtonMotion+ | EventMaskKeymapState+ | EventMaskExposure+ | EventMaskVisibilityChange+ | EventMaskStructureNotify+ | EventMaskResizeRedirect+ | EventMaskSubstructureNotify+ | EventMaskSubstructureRedirect+ | EventMaskFocusChange+ | EventMaskPropertyChange+ | EventMaskColorMapChange+ | EventMaskOwnerGrabButton+ +instance BitEnum EventMask where+ toBit EventMaskKeyPress{} = 0+ toBit EventMaskKeyRelease{} = 1+ toBit EventMaskButtonPress{} = 2+ toBit EventMaskButtonRelease{} = 3+ toBit EventMaskEnterWindow{} = 4+ toBit EventMaskLeaveWindow{} = 5+ toBit EventMaskPointerMotion{} = 6+ toBit EventMaskPointerMotionHint{} = 7+ toBit EventMaskButton1Motion{} = 8+ toBit EventMaskButton2Motion{} = 9+ toBit EventMaskButton3Motion{} = 10+ toBit EventMaskButton4Motion{} = 11+ toBit EventMaskButton5Motion{} = 12+ toBit EventMaskButtonMotion{} = 13+ toBit EventMaskKeymapState{} = 14+ toBit EventMaskExposure{} = 15+ toBit EventMaskVisibilityChange{} = 16+ toBit EventMaskStructureNotify{} = 17+ toBit EventMaskResizeRedirect{} = 18+ toBit EventMaskSubstructureNotify{} = 19+ toBit EventMaskSubstructureRedirect{} = 20+ toBit EventMaskFocusChange{} = 21+ toBit EventMaskPropertyChange{} = 22+ toBit EventMaskColorMapChange{} = 23+ toBit EventMaskOwnerGrabButton{} = 24+ fromBit 0 = EventMaskKeyPress+ fromBit 1 = EventMaskKeyRelease+ fromBit 2 = EventMaskButtonPress+ fromBit 3 = EventMaskButtonRelease+ fromBit 4 = EventMaskEnterWindow+ fromBit 5 = EventMaskLeaveWindow+ fromBit 6 = EventMaskPointerMotion+ fromBit 7 = EventMaskPointerMotionHint+ fromBit 8 = EventMaskButton1Motion+ fromBit 9 = EventMaskButton2Motion+ fromBit 10 = EventMaskButton3Motion+ fromBit 11 = EventMaskButton4Motion+ fromBit 12 = EventMaskButton5Motion+ fromBit 13 = EventMaskButtonMotion+ fromBit 14 = EventMaskKeymapState+ fromBit 15 = EventMaskExposure+ fromBit 16 = EventMaskVisibilityChange+ fromBit 17 = EventMaskStructureNotify+ fromBit 18 = EventMaskResizeRedirect+ fromBit 19 = EventMaskSubstructureNotify+ fromBit 20 = EventMaskSubstructureRedirect+ fromBit 21 = EventMaskFocusChange+ fromBit 22 = EventMaskPropertyChange+ fromBit 23 = EventMaskColorMapChange+ fromBit 24 = EventMaskOwnerGrabButton+ +data CreateWindow = MkCreateWindow{depth_CreateWindow :: Word8,+ wid_CreateWindow :: WINDOW, parent_CreateWindow :: WINDOW,+ x_CreateWindow :: Int16, y_CreateWindow :: Int16,+ width_CreateWindow :: Word16, height_CreateWindow :: Word16,+ border_width_CreateWindow :: Word16,+ class_CreateWindow :: Word16, visual_CreateWindow :: VISUALID,+ value_CreateWindow :: ValueParam Word32}+ deriving (Show, Typeable)+ +instance Serialize CreateWindow where+ serialize x+ = do putWord8 1+ serialize (depth_CreateWindow x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (wid_CreateWindow x)+ serialize (parent_CreateWindow x)+ serialize (x_CreateWindow x)+ serialize (y_CreateWindow x)+ serialize (width_CreateWindow x)+ serialize (height_CreateWindow x)+ serialize (border_width_CreateWindow x)+ serialize (class_CreateWindow x)+ serialize (visual_CreateWindow x)+ serialize (value_CreateWindow x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (depth_CreateWindow x) + size (wid_CreateWindow x) ++ size (parent_CreateWindow x)+ + size (x_CreateWindow x)+ + size (y_CreateWindow x)+ + size (width_CreateWindow x)+ + size (height_CreateWindow x)+ + size (border_width_CreateWindow x)+ + size (class_CreateWindow x)+ + size (visual_CreateWindow x)+ + size (value_CreateWindow x)+ +data ChangeWindowAttributes = MkChangeWindowAttributes{window_ChangeWindowAttributes+ :: WINDOW,+ value_ChangeWindowAttributes ::+ ValueParam Word32}+ deriving (Show, Typeable)+ +instance Serialize ChangeWindowAttributes where+ serialize x+ = do putWord8 2+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_ChangeWindowAttributes x)+ serialize (value_ChangeWindowAttributes x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (window_ChangeWindowAttributes x) ++ size (value_ChangeWindowAttributes x)+ +data MapState = MapStateUnmapped+ | MapStateUnviewable+ | MapStateViewable+ +instance SimpleEnum MapState where+ toValue MapStateUnmapped{} = 0+ toValue MapStateUnviewable{} = 1+ toValue MapStateViewable{} = 2+ fromValue 0 = MapStateUnmapped+ fromValue 1 = MapStateUnviewable+ fromValue 2 = MapStateViewable+ +data GetWindowAttributes = MkGetWindowAttributes{window_GetWindowAttributes+ :: WINDOW}+ deriving (Show, Typeable)+ +instance Serialize GetWindowAttributes where+ serialize x+ = do putWord8 3+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_GetWindowAttributes x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (window_GetWindowAttributes x)+ +data GetWindowAttributesReply = MkGetWindowAttributesReply{backing_store_GetWindowAttributesReply+ :: Word8,+ visual_GetWindowAttributesReply ::+ VISUALID,+ class_GetWindowAttributesReply :: Word16,+ bit_gravity_GetWindowAttributesReply ::+ Word8,+ win_gravity_GetWindowAttributesReply ::+ Word8,+ backing_planes_GetWindowAttributesReply+ :: Word32,+ backing_pixel_GetWindowAttributesReply ::+ Word32,+ save_under_GetWindowAttributesReply ::+ Bool,+ map_is_installed_GetWindowAttributesReply+ :: Bool,+ map_state_GetWindowAttributesReply ::+ Word8,+ override_redirect_GetWindowAttributesReply+ :: Bool,+ colormap_GetWindowAttributesReply ::+ COLORMAP,+ all_event_masks_GetWindowAttributesReply+ :: Word32,+ your_event_mask_GetWindowAttributesReply+ :: Word32,+ do_not_propagate_mask_GetWindowAttributesReply+ :: Word16}+ deriving (Show, Typeable)+ +instance Deserialize GetWindowAttributesReply where+ deserialize+ = do skip 1+ backing_store <- deserialize+ skip 2+ length <- deserialize+ visual <- deserialize+ class_ <- deserialize+ bit_gravity <- deserialize+ win_gravity <- deserialize+ backing_planes <- deserialize+ backing_pixel <- deserialize+ save_under <- deserialize+ map_is_installed <- deserialize+ map_state <- deserialize+ override_redirect <- deserialize+ colormap <- deserialize+ all_event_masks <- deserialize+ your_event_mask <- deserialize+ do_not_propagate_mask <- deserialize+ skip 2+ let _ = isCard32 length+ return+ (MkGetWindowAttributesReply backing_store visual class_ bit_gravity+ win_gravity+ backing_planes+ backing_pixel+ save_under+ map_is_installed+ map_state+ override_redirect+ colormap+ all_event_masks+ your_event_mask+ do_not_propagate_mask)+ +data DestroyWindow = MkDestroyWindow{window_DestroyWindow ::+ WINDOW}+ deriving (Show, Typeable)+ +instance Serialize DestroyWindow where+ serialize x+ = do putWord8 4+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_DestroyWindow x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (window_DestroyWindow x)+ +data DestroySubwindows = MkDestroySubwindows{window_DestroySubwindows+ :: WINDOW}+ deriving (Show, Typeable)+ +instance Serialize DestroySubwindows where+ serialize x+ = do putWord8 5+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_DestroySubwindows x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (window_DestroySubwindows x)+ +data SetMode = SetModeInsert+ | SetModeDelete+ +instance SimpleEnum SetMode where+ toValue SetModeInsert{} = 0+ toValue SetModeDelete{} = 1+ fromValue 0 = SetModeInsert+ fromValue 1 = SetModeDelete+ +data ChangeSaveSet = MkChangeSaveSet{mode_ChangeSaveSet :: Word8,+ window_ChangeSaveSet :: WINDOW}+ deriving (Show, Typeable)+ +instance Serialize ChangeSaveSet where+ serialize x+ = do putWord8 6+ serialize (mode_ChangeSaveSet x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_ChangeSaveSet x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (mode_ChangeSaveSet x) + size (window_ChangeSaveSet x)+ +data ReparentWindow = MkReparentWindow{window_ReparentWindow ::+ WINDOW,+ parent_ReparentWindow :: WINDOW, x_ReparentWindow :: Int16,+ y_ReparentWindow :: Int16}+ deriving (Show, Typeable)+ +instance Serialize ReparentWindow where+ serialize x+ = do putWord8 7+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_ReparentWindow x)+ serialize (parent_ReparentWindow x)+ serialize (x_ReparentWindow x)+ serialize (y_ReparentWindow x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (window_ReparentWindow x) ++ size (parent_ReparentWindow x)+ + size (x_ReparentWindow x)+ + size (y_ReparentWindow x)+ +data MapWindow = MkMapWindow{window_MapWindow :: WINDOW}+ deriving (Show, Typeable)+ +instance Serialize MapWindow where+ serialize x+ = do putWord8 8+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_MapWindow x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (window_MapWindow x)+ +data MapSubwindows = MkMapSubwindows{window_MapSubwindows ::+ WINDOW}+ deriving (Show, Typeable)+ +instance Serialize MapSubwindows where+ serialize x+ = do putWord8 9+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_MapSubwindows x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (window_MapSubwindows x)+ +data UnmapWindow = MkUnmapWindow{window_UnmapWindow :: WINDOW}+ deriving (Show, Typeable)+ +instance Serialize UnmapWindow where+ serialize x+ = do putWord8 10+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_UnmapWindow x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (window_UnmapWindow x)+ +data UnmapSubwindows = MkUnmapSubwindows{window_UnmapSubwindows ::+ WINDOW}+ deriving (Show, Typeable)+ +instance Serialize UnmapSubwindows where+ serialize x+ = do putWord8 11+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_UnmapSubwindows x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (window_UnmapSubwindows x)+ +data ConfigWindow = ConfigWindowX+ | ConfigWindowY+ | ConfigWindowWidth+ | ConfigWindowHeight+ | ConfigWindowBorderWidth+ | ConfigWindowSibling+ | ConfigWindowStackMode+ +instance BitEnum ConfigWindow where+ toBit ConfigWindowX{} = 0+ toBit ConfigWindowY{} = 1+ toBit ConfigWindowWidth{} = 2+ toBit ConfigWindowHeight{} = 3+ toBit ConfigWindowBorderWidth{} = 4+ toBit ConfigWindowSibling{} = 5+ toBit ConfigWindowStackMode{} = 6+ fromBit 0 = ConfigWindowX+ fromBit 1 = ConfigWindowY+ fromBit 2 = ConfigWindowWidth+ fromBit 3 = ConfigWindowHeight+ fromBit 4 = ConfigWindowBorderWidth+ fromBit 5 = ConfigWindowSibling+ fromBit 6 = ConfigWindowStackMode+ +data StackMode = StackModeAbove+ | StackModeBelow+ | StackModeTopIf+ | StackModeBottomIf+ | StackModeOpposite+ +instance SimpleEnum StackMode where+ toValue StackModeAbove{} = 0+ toValue StackModeBelow{} = 1+ toValue StackModeTopIf{} = 2+ toValue StackModeBottomIf{} = 3+ toValue StackModeOpposite{} = 4+ fromValue 0 = StackModeAbove+ fromValue 1 = StackModeBelow+ fromValue 2 = StackModeTopIf+ fromValue 3 = StackModeBottomIf+ fromValue 4 = StackModeOpposite+ +data ConfigureWindow = MkConfigureWindow{window_ConfigureWindow ::+ WINDOW,+ value_ConfigureWindow :: ValueParam Word16}+ deriving (Show, Typeable)+ +instance Serialize ConfigureWindow where+ serialize x+ = do putWord8 12+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_ConfigureWindow x)+ serializeValueParam 2 (value_ConfigureWindow x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (window_ConfigureWindow x) ++ size (value_ConfigureWindow x)+ + 2+ +data Circulate = CirculateRaiseLowest+ | CirculateLowerHighest+ +instance SimpleEnum Circulate where+ toValue CirculateRaiseLowest{} = 0+ toValue CirculateLowerHighest{} = 1+ fromValue 0 = CirculateRaiseLowest+ fromValue 1 = CirculateLowerHighest+ +data CirculateWindow = MkCirculateWindow{direction_CirculateWindow+ :: Word8,+ window_CirculateWindow :: WINDOW}+ deriving (Show, Typeable)+ +instance Serialize CirculateWindow where+ serialize x+ = do putWord8 13+ serialize (direction_CirculateWindow x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_CirculateWindow x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (direction_CirculateWindow x) ++ size (window_CirculateWindow x)+ +data GetGeometry = MkGetGeometry{drawable_GetGeometry :: DRAWABLE}+ deriving (Show, Typeable)+ +instance Serialize GetGeometry where+ serialize x+ = do putWord8 14+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_GetGeometry x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (drawable_GetGeometry x)+ +data GetGeometryReply = MkGetGeometryReply{depth_GetGeometryReply+ :: Word8,+ root_GetGeometryReply :: WINDOW,+ x_GetGeometryReply :: Int16, y_GetGeometryReply :: Int16,+ width_GetGeometryReply :: Word16,+ height_GetGeometryReply :: Word16,+ border_width_GetGeometryReply :: Word16}+ deriving (Show, Typeable)+ +instance Deserialize GetGeometryReply where+ deserialize+ = do skip 1+ depth <- deserialize+ skip 2+ length <- deserialize+ root <- deserialize+ x <- deserialize+ y <- deserialize+ width <- deserialize+ height <- deserialize+ border_width <- deserialize+ skip 2+ let _ = isCard32 length+ return+ (MkGetGeometryReply depth root x y width height border_width)+ +data QueryTree = MkQueryTree{window_QueryTree :: WINDOW}+ deriving (Show, Typeable)+ +instance Serialize QueryTree where+ serialize x+ = do putWord8 15+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_QueryTree x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (window_QueryTree x)+ +data QueryTreeReply = MkQueryTreeReply{root_QueryTreeReply ::+ WINDOW,+ parent_QueryTreeReply :: WINDOW,+ children_len_QueryTreeReply :: Word16,+ children_QueryTreeReply :: [WINDOW]}+ deriving (Show, Typeable)+ +instance Deserialize QueryTreeReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ root <- deserialize+ parent <- deserialize+ children_len <- deserialize+ skip 14+ children <- deserializeList (fromIntegral children_len)+ let _ = isCard32 length+ return (MkQueryTreeReply root parent children_len children)+ +data InternAtom = MkInternAtom{only_if_exists_InternAtom :: Bool,+ name_len_InternAtom :: Word16, name_InternAtom :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize InternAtom where+ serialize x+ = do putWord8 16+ serialize (only_if_exists_InternAtom x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (name_len_InternAtom x)+ putSkip 2+ serializeList (name_InternAtom x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (only_if_exists_InternAtom x) ++ size (name_len_InternAtom x)+ + 2+ + sum (map size (name_InternAtom x))+ +data InternAtomReply = MkInternAtomReply{atom_InternAtomReply ::+ ATOM}+ deriving (Show, Typeable)+ +instance Deserialize InternAtomReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ atom <- deserialize+ let _ = isCard32 length+ return (MkInternAtomReply atom)+ +data GetAtomName = MkGetAtomName{atom_GetAtomName :: ATOM}+ deriving (Show, Typeable)+ +instance Serialize GetAtomName where+ serialize x+ = do putWord8 17+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (atom_GetAtomName x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (atom_GetAtomName x)+ +data GetAtomNameReply = MkGetAtomNameReply{name_len_GetAtomNameReply+ :: Word16,+ name_GetAtomNameReply :: [CChar]}+ deriving (Show, Typeable)+ +instance Deserialize GetAtomNameReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ name_len <- deserialize+ skip 22+ name <- deserializeList (fromIntegral name_len)+ let _ = isCard32 length+ return (MkGetAtomNameReply name_len name)+ +data PropMode = PropModeReplace+ | PropModePrepend+ | PropModeAppend+ +instance SimpleEnum PropMode where+ toValue PropModeReplace{} = 0+ toValue PropModePrepend{} = 1+ toValue PropModeAppend{} = 2+ fromValue 0 = PropModeReplace+ fromValue 1 = PropModePrepend+ fromValue 2 = PropModeAppend+ +data ChangeProperty = MkChangeProperty{mode_ChangeProperty ::+ Word8,+ window_ChangeProperty :: WINDOW,+ property_ChangeProperty :: ATOM, type_ChangeProperty :: ATOM,+ format_ChangeProperty :: Word8,+ data_len_ChangeProperty :: Word32,+ data_ChangeProperty :: [Word8]}+ deriving (Show, Typeable)+ +instance Serialize ChangeProperty where+ serialize x+ = do putWord8 18+ serialize (mode_ChangeProperty x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_ChangeProperty x)+ serialize (property_ChangeProperty x)+ serialize (type_ChangeProperty x)+ serialize (format_ChangeProperty x)+ putSkip 3+ serialize (data_len_ChangeProperty x)+ serializeList (data_ChangeProperty x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (mode_ChangeProperty x) + size (window_ChangeProperty x)+ + size (property_ChangeProperty x)+ + size (type_ChangeProperty x)+ + size (format_ChangeProperty x)+ + 3+ + size (data_len_ChangeProperty x)+ + sum (map size (data_ChangeProperty x))+ +data DeleteProperty = MkDeleteProperty{window_DeleteProperty ::+ WINDOW,+ property_DeleteProperty :: ATOM}+ deriving (Show, Typeable)+ +instance Serialize DeleteProperty where+ serialize x+ = do putWord8 19+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_DeleteProperty x)+ serialize (property_DeleteProperty x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (window_DeleteProperty x) ++ size (property_DeleteProperty x)+ +data GetPropertyType = GetPropertyTypeAny+ +instance SimpleEnum GetPropertyType where+ toValue GetPropertyTypeAny{} = 0+ fromValue 0 = GetPropertyTypeAny+ +data GetProperty = MkGetProperty{delete_GetProperty :: Bool,+ window_GetProperty :: WINDOW, property_GetProperty :: ATOM,+ type_GetProperty :: ATOM, long_offset_GetProperty :: Word32,+ long_length_GetProperty :: Word32}+ deriving (Show, Typeable)+ +instance Serialize GetProperty where+ serialize x+ = do putWord8 20+ serialize (delete_GetProperty x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_GetProperty x)+ serialize (property_GetProperty x)+ serialize (type_GetProperty x)+ serialize (long_offset_GetProperty x)+ serialize (long_length_GetProperty x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (delete_GetProperty x) + size (window_GetProperty x) ++ size (property_GetProperty x)+ + size (type_GetProperty x)+ + size (long_offset_GetProperty x)+ + size (long_length_GetProperty x)+ +data GetPropertyReply = MkGetPropertyReply{format_GetPropertyReply+ :: Word8,+ type_GetPropertyReply :: ATOM,+ bytes_after_GetPropertyReply :: Word32,+ value_len_GetPropertyReply :: Word32,+ value_GetPropertyReply :: [Word8]}+ deriving (Show, Typeable)+ +instance Deserialize GetPropertyReply where+ deserialize+ = do skip 1+ format <- deserialize+ skip 2+ length <- deserialize+ type_ <- deserialize+ bytes_after <- deserialize+ value_len <- deserialize+ skip 12+ value <- deserializeList (fromIntegral value_len)+ let _ = isCard32 length+ return+ (MkGetPropertyReply format type_ bytes_after value_len value)+ +data ListProperties = MkListProperties{window_ListProperties ::+ WINDOW}+ deriving (Show, Typeable)+ +instance Serialize ListProperties where+ serialize x+ = do putWord8 21+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_ListProperties x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (window_ListProperties x)+ +data ListPropertiesReply = MkListPropertiesReply{atoms_len_ListPropertiesReply+ :: Word16,+ atoms_ListPropertiesReply :: [ATOM]}+ deriving (Show, Typeable)+ +instance Deserialize ListPropertiesReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ atoms_len <- deserialize+ skip 22+ atoms <- deserializeList (fromIntegral atoms_len)+ let _ = isCard32 length+ return (MkListPropertiesReply atoms_len atoms)+ +data SetSelectionOwner = MkSetSelectionOwner{owner_SetSelectionOwner+ :: WINDOW,+ selection_SetSelectionOwner :: ATOM,+ time_SetSelectionOwner :: TIMESTAMP}+ deriving (Show, Typeable)+ +instance Serialize SetSelectionOwner where+ serialize x+ = do putWord8 22+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (owner_SetSelectionOwner x)+ serialize (selection_SetSelectionOwner x)+ serialize (time_SetSelectionOwner x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (owner_SetSelectionOwner x) ++ size (selection_SetSelectionOwner x)+ + size (time_SetSelectionOwner x)+ +data GetSelectionOwner = MkGetSelectionOwner{selection_GetSelectionOwner+ :: ATOM}+ deriving (Show, Typeable)+ +instance Serialize GetSelectionOwner where+ serialize x+ = do putWord8 23+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (selection_GetSelectionOwner x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (selection_GetSelectionOwner x)+ +data GetSelectionOwnerReply = MkGetSelectionOwnerReply{owner_GetSelectionOwnerReply+ :: WINDOW}+ deriving (Show, Typeable)+ +instance Deserialize GetSelectionOwnerReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ owner <- deserialize+ let _ = isCard32 length+ return (MkGetSelectionOwnerReply owner)+ +data ConvertSelection = MkConvertSelection{requestor_ConvertSelection+ :: WINDOW,+ selection_ConvertSelection :: ATOM,+ target_ConvertSelection :: ATOM,+ property_ConvertSelection :: ATOM,+ time_ConvertSelection :: TIMESTAMP}+ deriving (Show, Typeable)+ +instance Serialize ConvertSelection where+ serialize x+ = do putWord8 24+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (requestor_ConvertSelection x)+ serialize (selection_ConvertSelection x)+ serialize (target_ConvertSelection x)+ serialize (property_ConvertSelection x)+ serialize (time_ConvertSelection x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (requestor_ConvertSelection x) ++ size (selection_ConvertSelection x)+ + size (target_ConvertSelection x)+ + size (property_ConvertSelection x)+ + size (time_ConvertSelection x)+ +data SendEventDest = SendEventDestPointerWindow+ | SendEventDestItemFocus+ +instance SimpleEnum SendEventDest where+ toValue SendEventDestPointerWindow{} = 0+ toValue SendEventDestItemFocus{} = 1+ fromValue 0 = SendEventDestPointerWindow+ fromValue 1 = SendEventDestItemFocus+ +data SendEvent = MkSendEvent{propagate_SendEvent :: Bool,+ destination_SendEvent :: WINDOW, event_mask_SendEvent :: Word32,+ event_SendEvent :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize SendEvent where+ serialize x+ = do putWord8 25+ serialize (propagate_SendEvent x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (destination_SendEvent x)+ serialize (event_mask_SendEvent x)+ serializeList (event_SendEvent x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (propagate_SendEvent x) + size (destination_SendEvent x)+ + size (event_mask_SendEvent x)+ + sum (map size (event_SendEvent x))+ +data GrabMode = GrabModeSync+ | GrabModeAsync+ +instance SimpleEnum GrabMode where+ toValue GrabModeSync{} = 0+ toValue GrabModeAsync{} = 1+ fromValue 0 = GrabModeSync+ fromValue 1 = GrabModeAsync+ +data GrabStatus = GrabStatusSuccess+ | GrabStatusAlreadyGrabbed+ | GrabStatusInvalidTime+ | GrabStatusNotViewable+ | GrabStatusFrozen+ +instance SimpleEnum GrabStatus where+ toValue GrabStatusSuccess{} = 0+ toValue GrabStatusAlreadyGrabbed{} = 1+ toValue GrabStatusInvalidTime{} = 2+ toValue GrabStatusNotViewable{} = 3+ toValue GrabStatusFrozen{} = 4+ fromValue 0 = GrabStatusSuccess+ fromValue 1 = GrabStatusAlreadyGrabbed+ fromValue 2 = GrabStatusInvalidTime+ fromValue 3 = GrabStatusNotViewable+ fromValue 4 = GrabStatusFrozen+ +data GrabPointer = MkGrabPointer{owner_events_GrabPointer :: Bool,+ grab_window_GrabPointer :: WINDOW,+ event_mask_GrabPointer :: Word16,+ pointer_mode_GrabPointer :: Word8,+ keyboard_mode_GrabPointer :: Word8,+ confine_to_GrabPointer :: WINDOW, cursor_GrabPointer :: CURSOR,+ time_GrabPointer :: TIMESTAMP}+ deriving (Show, Typeable)+ +instance Serialize GrabPointer where+ serialize x+ = do putWord8 26+ serialize (owner_events_GrabPointer x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (grab_window_GrabPointer x)+ serialize (event_mask_GrabPointer x)+ serialize (pointer_mode_GrabPointer x)+ serialize (keyboard_mode_GrabPointer x)+ serialize (confine_to_GrabPointer x)+ serialize (cursor_GrabPointer x)+ serialize (time_GrabPointer x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (owner_events_GrabPointer x) ++ size (grab_window_GrabPointer x)+ + size (event_mask_GrabPointer x)+ + size (pointer_mode_GrabPointer x)+ + size (keyboard_mode_GrabPointer x)+ + size (confine_to_GrabPointer x)+ + size (cursor_GrabPointer x)+ + size (time_GrabPointer x)+ +data GrabPointerReply = MkGrabPointerReply{status_GrabPointerReply+ :: Word8}+ deriving (Show, Typeable)+ +instance Deserialize GrabPointerReply where+ deserialize+ = do skip 1+ status <- deserialize+ skip 2+ length <- deserialize+ let _ = isCard32 length+ return (MkGrabPointerReply status)+ +data UngrabPointer = MkUngrabPointer{time_UngrabPointer ::+ TIMESTAMP}+ deriving (Show, Typeable)+ +instance Serialize UngrabPointer where+ serialize x+ = do putWord8 27+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (time_UngrabPointer x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (time_UngrabPointer x)+ +data ButtonIndex = ButtonIndexAny+ | ButtonIndex1+ | ButtonIndex2+ | ButtonIndex3+ | ButtonIndex4+ | ButtonIndex5+ +instance SimpleEnum ButtonIndex where+ toValue ButtonIndexAny{} = 0+ toValue ButtonIndex1{} = 1+ toValue ButtonIndex2{} = 2+ toValue ButtonIndex3{} = 3+ toValue ButtonIndex4{} = 4+ toValue ButtonIndex5{} = 5+ fromValue 0 = ButtonIndexAny+ fromValue 1 = ButtonIndex1+ fromValue 2 = ButtonIndex2+ fromValue 3 = ButtonIndex3+ fromValue 4 = ButtonIndex4+ fromValue 5 = ButtonIndex5+ +data GrabButton = MkGrabButton{owner_events_GrabButton :: Bool,+ grab_window_GrabButton :: WINDOW, event_mask_GrabButton :: Word16,+ pointer_mode_GrabButton :: Word8,+ keyboard_mode_GrabButton :: Word8, confine_to_GrabButton :: WINDOW,+ cursor_GrabButton :: CURSOR, button_GrabButton :: Word8,+ modifiers_GrabButton :: Word16}+ deriving (Show, Typeable)+ +instance Serialize GrabButton where+ serialize x+ = do putWord8 28+ serialize (owner_events_GrabButton x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (grab_window_GrabButton x)+ serialize (event_mask_GrabButton x)+ serialize (pointer_mode_GrabButton x)+ serialize (keyboard_mode_GrabButton x)+ serialize (confine_to_GrabButton x)+ serialize (cursor_GrabButton x)+ serialize (button_GrabButton x)+ putSkip 1+ serialize (modifiers_GrabButton x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (owner_events_GrabButton x) ++ size (grab_window_GrabButton x)+ + size (event_mask_GrabButton x)+ + size (pointer_mode_GrabButton x)+ + size (keyboard_mode_GrabButton x)+ + size (confine_to_GrabButton x)+ + size (cursor_GrabButton x)+ + size (button_GrabButton x)+ + 1+ + size (modifiers_GrabButton x)+ +data UngrabButton = MkUngrabButton{button_UngrabButton :: Word8,+ grab_window_UngrabButton :: WINDOW,+ modifiers_UngrabButton :: Word16}+ deriving (Show, Typeable)+ +instance Serialize UngrabButton where+ serialize x+ = do putWord8 29+ serialize (button_UngrabButton x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (grab_window_UngrabButton x)+ serialize (modifiers_UngrabButton x)+ putSkip 2+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (button_UngrabButton x) ++ size (grab_window_UngrabButton x)+ + size (modifiers_UngrabButton x)+ + 2+ +data ChangeActivePointerGrab = MkChangeActivePointerGrab{cursor_ChangeActivePointerGrab+ :: CURSOR,+ time_ChangeActivePointerGrab :: TIMESTAMP,+ event_mask_ChangeActivePointerGrab ::+ Word16}+ deriving (Show, Typeable)+ +instance Serialize ChangeActivePointerGrab where+ serialize x+ = do putWord8 30+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cursor_ChangeActivePointerGrab x)+ serialize (time_ChangeActivePointerGrab x)+ serialize (event_mask_ChangeActivePointerGrab x)+ putSkip 2+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (cursor_ChangeActivePointerGrab x) ++ size (time_ChangeActivePointerGrab x)+ + size (event_mask_ChangeActivePointerGrab x)+ + 2+ +data GrabKeyboard = MkGrabKeyboard{owner_events_GrabKeyboard ::+ Bool,+ grab_window_GrabKeyboard :: WINDOW,+ time_GrabKeyboard :: TIMESTAMP,+ pointer_mode_GrabKeyboard :: Word8,+ keyboard_mode_GrabKeyboard :: Word8}+ deriving (Show, Typeable)+ +instance Serialize GrabKeyboard where+ serialize x+ = do putWord8 31+ serialize (owner_events_GrabKeyboard x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (grab_window_GrabKeyboard x)+ serialize (time_GrabKeyboard x)+ serialize (pointer_mode_GrabKeyboard x)+ serialize (keyboard_mode_GrabKeyboard x)+ putSkip 2+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (owner_events_GrabKeyboard x) ++ size (grab_window_GrabKeyboard x)+ + size (time_GrabKeyboard x)+ + size (pointer_mode_GrabKeyboard x)+ + size (keyboard_mode_GrabKeyboard x)+ + 2+ +data GrabKeyboardReply = MkGrabKeyboardReply{status_GrabKeyboardReply+ :: Word8}+ deriving (Show, Typeable)+ +instance Deserialize GrabKeyboardReply where+ deserialize+ = do skip 1+ status <- deserialize+ skip 2+ length <- deserialize+ let _ = isCard32 length+ return (MkGrabKeyboardReply status)+ +data UngrabKeyboard = MkUngrabKeyboard{time_UngrabKeyboard ::+ TIMESTAMP}+ deriving (Show, Typeable)+ +instance Serialize UngrabKeyboard where+ serialize x+ = do putWord8 32+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (time_UngrabKeyboard x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (time_UngrabKeyboard x)+ +data Grab = GrabAny+ +instance SimpleEnum Grab where+ toValue GrabAny{} = 0+ fromValue 0 = GrabAny+ +data GrabKey = MkGrabKey{owner_events_GrabKey :: Bool,+ grab_window_GrabKey :: WINDOW, modifiers_GrabKey :: Word16,+ key_GrabKey :: KEYCODE, pointer_mode_GrabKey :: Word8,+ keyboard_mode_GrabKey :: Word8}+ deriving (Show, Typeable)+ +instance Serialize GrabKey where+ serialize x+ = do putWord8 33+ serialize (owner_events_GrabKey x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (grab_window_GrabKey x)+ serialize (modifiers_GrabKey x)+ serialize (key_GrabKey x)+ serialize (pointer_mode_GrabKey x)+ serialize (keyboard_mode_GrabKey x)+ putSkip 3+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (owner_events_GrabKey x) + size (grab_window_GrabKey x)+ + size (modifiers_GrabKey x)+ + size (key_GrabKey x)+ + size (pointer_mode_GrabKey x)+ + size (keyboard_mode_GrabKey x)+ + 3+ +data UngrabKey = MkUngrabKey{key_UngrabKey :: KEYCODE,+ grab_window_UngrabKey :: WINDOW, modifiers_UngrabKey :: Word16}+ deriving (Show, Typeable)+ +instance Serialize UngrabKey where+ serialize x+ = do putWord8 34+ serialize (key_UngrabKey x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (grab_window_UngrabKey x)+ serialize (modifiers_UngrabKey x)+ putSkip 2+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (key_UngrabKey x) + size (grab_window_UngrabKey x) ++ size (modifiers_UngrabKey x)+ + 2+ +data Allow = AllowAsyncPointer+ | AllowSyncPointer+ | AllowReplayPointer+ | AllowAsyncKeyboard+ | AllowSyncKeyboard+ | AllowReplayKeyboard+ | AllowAsyncBoth+ | AllowSyncBoth+ +instance SimpleEnum Allow where+ toValue AllowAsyncPointer{} = 0+ toValue AllowSyncPointer{} = 1+ toValue AllowReplayPointer{} = 2+ toValue AllowAsyncKeyboard{} = 3+ toValue AllowSyncKeyboard{} = 4+ toValue AllowReplayKeyboard{} = 5+ toValue AllowAsyncBoth{} = 6+ toValue AllowSyncBoth{} = 7+ fromValue 0 = AllowAsyncPointer+ fromValue 1 = AllowSyncPointer+ fromValue 2 = AllowReplayPointer+ fromValue 3 = AllowAsyncKeyboard+ fromValue 4 = AllowSyncKeyboard+ fromValue 5 = AllowReplayKeyboard+ fromValue 6 = AllowAsyncBoth+ fromValue 7 = AllowSyncBoth+ +data AllowEvents = MkAllowEvents{mode_AllowEvents :: Word8,+ time_AllowEvents :: TIMESTAMP}+ deriving (Show, Typeable)+ +instance Serialize AllowEvents where+ serialize x+ = do putWord8 35+ serialize (mode_AllowEvents x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (time_AllowEvents x)+ putSkip (requiredPadding (size x))+ size x = 3 + size (mode_AllowEvents x) + size (time_AllowEvents x)+ +data QueryPointer = MkQueryPointer{window_QueryPointer :: WINDOW}+ deriving (Show, Typeable)+ +instance Serialize QueryPointer where+ serialize x+ = do putWord8 38+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_QueryPointer x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (window_QueryPointer x)+ +data QueryPointerReply = MkQueryPointerReply{same_screen_QueryPointerReply+ :: Bool,+ root_QueryPointerReply :: WINDOW,+ child_QueryPointerReply :: WINDOW,+ root_x_QueryPointerReply :: Int16,+ root_y_QueryPointerReply :: Int16,+ win_x_QueryPointerReply :: Int16,+ win_y_QueryPointerReply :: Int16,+ mask_QueryPointerReply :: Word16}+ deriving (Show, Typeable)+ +instance Deserialize QueryPointerReply where+ deserialize+ = do skip 1+ same_screen <- deserialize+ skip 2+ length <- deserialize+ root <- deserialize+ child <- deserialize+ root_x <- deserialize+ root_y <- deserialize+ win_x <- deserialize+ win_y <- deserialize+ mask <- deserialize+ skip 2+ let _ = isCard32 length+ return+ (MkQueryPointerReply same_screen root child root_x root_y win_x+ win_y+ mask)+ +data TIMECOORD = MkTIMECOORD{time_TIMECOORD :: TIMESTAMP,+ x_TIMECOORD :: Int16, y_TIMECOORD :: Int16}+ deriving (Show, Typeable)+ +instance Serialize TIMECOORD where+ serialize x+ = do serialize (time_TIMECOORD x)+ serialize (x_TIMECOORD x)+ serialize (y_TIMECOORD x)+ size x+ = size (time_TIMECOORD x) + size (x_TIMECOORD x) ++ size (y_TIMECOORD x)+ +instance Deserialize TIMECOORD where+ deserialize+ = do time <- deserialize+ x <- deserialize+ y <- deserialize+ return (MkTIMECOORD time x y)+ +data GetMotionEvents = MkGetMotionEvents{window_GetMotionEvents ::+ WINDOW,+ start_GetMotionEvents :: TIMESTAMP,+ stop_GetMotionEvents :: TIMESTAMP}+ deriving (Show, Typeable)+ +instance Serialize GetMotionEvents where+ serialize x+ = do putWord8 39+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_GetMotionEvents x)+ serialize (start_GetMotionEvents x)+ serialize (stop_GetMotionEvents x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (window_GetMotionEvents x) ++ size (start_GetMotionEvents x)+ + size (stop_GetMotionEvents x)+ +data GetMotionEventsReply = MkGetMotionEventsReply{events_len_GetMotionEventsReply+ :: Word32,+ events_GetMotionEventsReply :: [TIMECOORD]}+ deriving (Show, Typeable)+ +instance Deserialize GetMotionEventsReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ events_len <- deserialize+ skip 20+ events <- deserializeList (fromIntegral events_len)+ let _ = isCard32 length+ return (MkGetMotionEventsReply events_len events)+ +data TranslateCoordinates = MkTranslateCoordinates{src_window_TranslateCoordinates+ :: WINDOW,+ dst_window_TranslateCoordinates :: WINDOW,+ src_x_TranslateCoordinates :: Int16,+ src_y_TranslateCoordinates :: Int16}+ deriving (Show, Typeable)+ +instance Serialize TranslateCoordinates where+ serialize x+ = do putWord8 40+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (src_window_TranslateCoordinates x)+ serialize (dst_window_TranslateCoordinates x)+ serialize (src_x_TranslateCoordinates x)+ serialize (src_y_TranslateCoordinates x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (src_window_TranslateCoordinates x) ++ size (dst_window_TranslateCoordinates x)+ + size (src_x_TranslateCoordinates x)+ + size (src_y_TranslateCoordinates x)+ +data TranslateCoordinatesReply = MkTranslateCoordinatesReply{same_screen_TranslateCoordinatesReply+ :: Bool,+ child_TranslateCoordinatesReply ::+ WINDOW,+ dst_x_TranslateCoordinatesReply ::+ Word16,+ dst_y_TranslateCoordinatesReply ::+ Word16}+ deriving (Show, Typeable)+ +instance Deserialize TranslateCoordinatesReply where+ deserialize+ = do skip 1+ same_screen <- deserialize+ skip 2+ length <- deserialize+ child <- deserialize+ dst_x <- deserialize+ dst_y <- deserialize+ let _ = isCard32 length+ return (MkTranslateCoordinatesReply same_screen child dst_x dst_y)+ +data WarpPointer = MkWarpPointer{src_window_WarpPointer :: WINDOW,+ dst_window_WarpPointer :: WINDOW, src_x_WarpPointer :: Int16,+ src_y_WarpPointer :: Int16, src_width_WarpPointer :: Word16,+ src_height_WarpPointer :: Word16, dst_x_WarpPointer :: Int16,+ dst_y_WarpPointer :: Int16}+ deriving (Show, Typeable)+ +instance Serialize WarpPointer where+ serialize x+ = do putWord8 41+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (src_window_WarpPointer x)+ serialize (dst_window_WarpPointer x)+ serialize (src_x_WarpPointer x)+ serialize (src_y_WarpPointer x)+ serialize (src_width_WarpPointer x)+ serialize (src_height_WarpPointer x)+ serialize (dst_x_WarpPointer x)+ serialize (dst_y_WarpPointer x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (src_window_WarpPointer x) ++ size (dst_window_WarpPointer x)+ + size (src_x_WarpPointer x)+ + size (src_y_WarpPointer x)+ + size (src_width_WarpPointer x)+ + size (src_height_WarpPointer x)+ + size (dst_x_WarpPointer x)+ + size (dst_y_WarpPointer x)+ +data InputFocus = InputFocusNone+ | InputFocusPointerRoot+ | InputFocusParent+ +instance SimpleEnum InputFocus where+ toValue InputFocusNone{} = 0+ toValue InputFocusPointerRoot{} = 1+ toValue InputFocusParent{} = 2+ fromValue 0 = InputFocusNone+ fromValue 1 = InputFocusPointerRoot+ fromValue 2 = InputFocusParent+ +data SetInputFocus = MkSetInputFocus{revert_to_SetInputFocus ::+ Word8,+ focus_SetInputFocus :: WINDOW, time_SetInputFocus :: TIMESTAMP}+ deriving (Show, Typeable)+ +instance Serialize SetInputFocus where+ serialize x+ = do putWord8 42+ serialize (revert_to_SetInputFocus x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (focus_SetInputFocus x)+ serialize (time_SetInputFocus x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (revert_to_SetInputFocus x) ++ size (focus_SetInputFocus x)+ + size (time_SetInputFocus x)+ +data GetInputFocus = MkGetInputFocus{}+ deriving (Show, Typeable)+ +instance Serialize GetInputFocus where+ serialize x+ = do putWord8 43+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ putSkip (requiredPadding (size x))+ size x = 4+ +data GetInputFocusReply = MkGetInputFocusReply{revert_to_GetInputFocusReply+ :: Word8,+ focus_GetInputFocusReply :: WINDOW}+ deriving (Show, Typeable)+ +instance Deserialize GetInputFocusReply where+ deserialize+ = do skip 1+ revert_to <- deserialize+ skip 2+ length <- deserialize+ focus <- deserialize+ let _ = isCard32 length+ return (MkGetInputFocusReply revert_to focus)+ +data QueryKeymap = MkQueryKeymap{}+ deriving (Show, Typeable)+ +instance Serialize QueryKeymap where+ serialize x+ = do putWord8 44+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ putSkip (requiredPadding (size x))+ size x = 4+ +data QueryKeymapReply = MkQueryKeymapReply{keys_QueryKeymapReply ::+ [Word8]}+ deriving (Show, Typeable)+ +instance Deserialize QueryKeymapReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ keys <- deserializeList (fromIntegral 32)+ let _ = isCard32 length+ return (MkQueryKeymapReply keys)+ +data OpenFont = MkOpenFont{fid_OpenFont :: FONT,+ name_len_OpenFont :: Word16, name_OpenFont :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize OpenFont where+ serialize x+ = do putWord8 45+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (fid_OpenFont x)+ serialize (name_len_OpenFont x)+ putSkip 2+ serializeList (name_OpenFont x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (fid_OpenFont x) + size (name_len_OpenFont x) + 2 ++ sum (map size (name_OpenFont x))+ +data CloseFont = MkCloseFont{font_CloseFont :: FONT}+ deriving (Show, Typeable)+ +instance Serialize CloseFont where+ serialize x+ = do putWord8 46+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (font_CloseFont x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (font_CloseFont x)+ +data FontDraw = FontDrawLeftToRight+ | FontDrawRightToLeft+ +instance SimpleEnum FontDraw where+ toValue FontDrawLeftToRight{} = 0+ toValue FontDrawRightToLeft{} = 1+ fromValue 0 = FontDrawLeftToRight+ fromValue 1 = FontDrawRightToLeft+ +data FONTPROP = MkFONTPROP{name_FONTPROP :: ATOM,+ value_FONTPROP :: Word32}+ deriving (Show, Typeable)+ +instance Serialize FONTPROP where+ serialize x+ = do serialize (name_FONTPROP x)+ serialize (value_FONTPROP x)+ size x = size (name_FONTPROP x) + size (value_FONTPROP x)+ +instance Deserialize FONTPROP where+ deserialize+ = do name <- deserialize+ value <- deserialize+ return (MkFONTPROP name value)+ +data CHARINFO = MkCHARINFO{left_side_bearing_CHARINFO :: Int16,+ right_side_bearing_CHARINFO :: Int16,+ character_width_CHARINFO :: Int16, ascent_CHARINFO :: Int16,+ descent_CHARINFO :: Int16, attributes_CHARINFO :: Word16}+ deriving (Show, Typeable)+ +instance Serialize CHARINFO where+ serialize x+ = do serialize (left_side_bearing_CHARINFO x)+ serialize (right_side_bearing_CHARINFO x)+ serialize (character_width_CHARINFO x)+ serialize (ascent_CHARINFO x)+ serialize (descent_CHARINFO x)+ serialize (attributes_CHARINFO x)+ size x+ = size (left_side_bearing_CHARINFO x) ++ size (right_side_bearing_CHARINFO x)+ + size (character_width_CHARINFO x)+ + size (ascent_CHARINFO x)+ + size (descent_CHARINFO x)+ + size (attributes_CHARINFO x)+ +instance Deserialize CHARINFO where+ deserialize+ = do left_side_bearing <- deserialize+ right_side_bearing <- deserialize+ character_width <- deserialize+ ascent <- deserialize+ descent <- deserialize+ attributes <- deserialize+ return+ (MkCHARINFO left_side_bearing right_side_bearing character_width+ ascent+ descent+ attributes)+ +data QueryFont = MkQueryFont{font_QueryFont :: FONTABLE}+ deriving (Show, Typeable)+ +instance Serialize QueryFont where+ serialize x+ = do putWord8 47+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (font_QueryFont x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (font_QueryFont x)+ +data QueryFontReply = MkQueryFontReply{min_bounds_QueryFontReply ::+ CHARINFO,+ max_bounds_QueryFontReply :: CHARINFO,+ min_char_or_byte2_QueryFontReply :: Word16,+ max_char_or_byte2_QueryFontReply :: Word16,+ default_char_QueryFontReply :: Word16,+ properties_len_QueryFontReply :: Word16,+ draw_direction_QueryFontReply :: Word8,+ min_byte1_QueryFontReply :: Word8,+ max_byte1_QueryFontReply :: Word8,+ all_chars_exist_QueryFontReply :: Bool,+ font_ascent_QueryFontReply :: Int16,+ font_descent_QueryFontReply :: Int16,+ char_infos_len_QueryFontReply :: Word32,+ properties_QueryFontReply :: [FONTPROP],+ char_infos_QueryFontReply :: [CHARINFO]}+ deriving (Show, Typeable)+ +instance Deserialize QueryFontReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ min_bounds <- deserialize+ skip 4+ max_bounds <- deserialize+ skip 4+ min_char_or_byte2 <- deserialize+ max_char_or_byte2 <- deserialize+ default_char <- deserialize+ properties_len <- deserialize+ draw_direction <- deserialize+ min_byte1 <- deserialize+ max_byte1 <- deserialize+ all_chars_exist <- deserialize+ font_ascent <- deserialize+ font_descent <- deserialize+ char_infos_len <- deserialize+ properties <- deserializeList (fromIntegral properties_len)+ char_infos <- deserializeList (fromIntegral char_infos_len)+ let _ = isCard32 length+ return+ (MkQueryFontReply min_bounds max_bounds min_char_or_byte2+ max_char_or_byte2+ default_char+ properties_len+ draw_direction+ min_byte1+ max_byte1+ all_chars_exist+ font_ascent+ font_descent+ char_infos_len+ properties+ char_infos)+ +data QueryTextExtents = MkQueryTextExtents{font_QueryTextExtents ::+ FONTABLE,+ string_QueryTextExtents :: [CHAR2B]}+ deriving (Show, Typeable)+ +odd_length_QueryTextExtents :: QueryTextExtents -> Bool+odd_length_QueryTextExtents x+ = wordToBool (string_len_QueryTextExtents x .&. 1)++string_len_QueryTextExtents :: QueryTextExtents -> Word8+string_len_QueryTextExtents x = genericLength $ string_QueryTextExtents x+ +instance Serialize QueryTextExtents where+ serialize x+ = do putWord8 48+ serialize (odd_length_QueryTextExtents x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (font_QueryTextExtents x)+ serializeList (string_QueryTextExtents x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (odd_length_QueryTextExtents x) ++ size (font_QueryTextExtents x)+ + sum (map size (string_QueryTextExtents x))+ +data QueryTextExtentsReply = MkQueryTextExtentsReply{draw_direction_QueryTextExtentsReply+ :: Word8,+ font_ascent_QueryTextExtentsReply :: Int16,+ font_descent_QueryTextExtentsReply :: Int16,+ overall_ascent_QueryTextExtentsReply :: Int16,+ overall_descent_QueryTextExtentsReply :: Int16,+ overall_width_QueryTextExtentsReply :: Int32,+ overall_left_QueryTextExtentsReply :: Int32,+ overall_right_QueryTextExtentsReply :: Int32}+ deriving (Show, Typeable)+ +instance Deserialize QueryTextExtentsReply where+ deserialize+ = do skip 1+ draw_direction <- deserialize+ skip 2+ length <- deserialize+ font_ascent <- deserialize+ font_descent <- deserialize+ overall_ascent <- deserialize+ overall_descent <- deserialize+ overall_width <- deserialize+ overall_left <- deserialize+ overall_right <- deserialize+ let _ = isCard32 length+ return+ (MkQueryTextExtentsReply draw_direction font_ascent font_descent+ overall_ascent+ overall_descent+ overall_width+ overall_left+ overall_right)+ +data STR = MkSTR{name_len_STR :: Word8, name_STR :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize STR where+ serialize x+ = do serialize (name_len_STR x)+ serializeList (name_STR x)+ size x = size (name_len_STR x) + sum (map size (name_STR x))+ +instance Deserialize STR where+ deserialize+ = do name_len <- deserialize+ name <- deserializeList (fromIntegral name_len)+ return (MkSTR name_len name)+ +data ListFonts = MkListFonts{max_names_ListFonts :: Word16,+ pattern_len_ListFonts :: Word16, pattern_ListFonts :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize ListFonts where+ serialize x+ = do putWord8 49+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (max_names_ListFonts x)+ serialize (pattern_len_ListFonts x)+ serializeList (pattern_ListFonts x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (max_names_ListFonts x) ++ size (pattern_len_ListFonts x)+ + sum (map size (pattern_ListFonts x))+ +data ListFontsReply = MkListFontsReply{names_len_ListFontsReply ::+ Word16,+ names_ListFontsReply :: [STR]}+ deriving (Show, Typeable)+ +instance Deserialize ListFontsReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ names_len <- deserialize+ skip 22+ names <- deserializeList (fromIntegral names_len)+ let _ = isCard32 length+ return (MkListFontsReply names_len names)+ +data ListFontsWithInfo = MkListFontsWithInfo{max_names_ListFontsWithInfo+ :: Word16,+ pattern_len_ListFontsWithInfo :: Word16,+ pattern_ListFontsWithInfo :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize ListFontsWithInfo where+ serialize x+ = do putWord8 50+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (max_names_ListFontsWithInfo x)+ serialize (pattern_len_ListFontsWithInfo x)+ serializeList (pattern_ListFontsWithInfo x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (max_names_ListFontsWithInfo x) ++ size (pattern_len_ListFontsWithInfo x)+ + sum (map size (pattern_ListFontsWithInfo x))+ +data ListFontsWithInfoReply = MkListFontsWithInfoReply{name_len_ListFontsWithInfoReply+ :: Word8,+ min_bounds_ListFontsWithInfoReply ::+ CHARINFO,+ max_bounds_ListFontsWithInfoReply ::+ CHARINFO,+ min_char_or_byte2_ListFontsWithInfoReply ::+ Word16,+ max_char_or_byte2_ListFontsWithInfoReply ::+ Word16,+ default_char_ListFontsWithInfoReply ::+ Word16,+ properties_len_ListFontsWithInfoReply ::+ Word16,+ draw_direction_ListFontsWithInfoReply ::+ Word8,+ min_byte1_ListFontsWithInfoReply :: Word8,+ max_byte1_ListFontsWithInfoReply :: Word8,+ all_chars_exist_ListFontsWithInfoReply ::+ Bool,+ font_ascent_ListFontsWithInfoReply :: Int16,+ font_descent_ListFontsWithInfoReply :: Int16,+ replies_hint_ListFontsWithInfoReply ::+ Word32,+ properties_ListFontsWithInfoReply ::+ [FONTPROP],+ name_ListFontsWithInfoReply :: [CChar]}+ deriving (Show, Typeable)+ +instance Deserialize ListFontsWithInfoReply where+ deserialize+ = do skip 1+ name_len <- deserialize+ skip 2+ length <- deserialize+ min_bounds <- deserialize+ skip 4+ max_bounds <- deserialize+ skip 4+ min_char_or_byte2 <- deserialize+ max_char_or_byte2 <- deserialize+ default_char <- deserialize+ properties_len <- deserialize+ draw_direction <- deserialize+ min_byte1 <- deserialize+ max_byte1 <- deserialize+ all_chars_exist <- deserialize+ font_ascent <- deserialize+ font_descent <- deserialize+ replies_hint <- deserialize+ properties <- deserializeList (fromIntegral properties_len)+ name <- deserializeList (fromIntegral name_len)+ let _ = isCard32 length+ return+ (MkListFontsWithInfoReply name_len min_bounds max_bounds+ min_char_or_byte2+ max_char_or_byte2+ default_char+ properties_len+ draw_direction+ min_byte1+ max_byte1+ all_chars_exist+ font_ascent+ font_descent+ replies_hint+ properties+ name)+ +data SetFontPath = MkSetFontPath{font_qty_SetFontPath :: Word16,+ path_SetFontPath :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize SetFontPath where+ serialize x+ = do putWord8 51+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (font_qty_SetFontPath x)+ serializeList (path_SetFontPath x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (font_qty_SetFontPath x) ++ sum (map size (path_SetFontPath x))+ +data GetFontPath = MkGetFontPath{}+ deriving (Show, Typeable)+ +instance Serialize GetFontPath where+ serialize x+ = do putWord8 52+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ putSkip (requiredPadding (size x))+ size x = 4+ +data GetFontPathReply = MkGetFontPathReply{path_len_GetFontPathReply+ :: Word16,+ path_GetFontPathReply :: [STR]}+ deriving (Show, Typeable)+ +instance Deserialize GetFontPathReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ path_len <- deserialize+ skip 22+ path <- deserializeList (fromIntegral path_len)+ let _ = isCard32 length+ return (MkGetFontPathReply path_len path)+ +data CreatePixmap = MkCreatePixmap{depth_CreatePixmap :: Word8,+ pid_CreatePixmap :: PIXMAP, drawable_CreatePixmap :: DRAWABLE,+ width_CreatePixmap :: Word16, height_CreatePixmap :: Word16}+ deriving (Show, Typeable)+ +instance Serialize CreatePixmap where+ serialize x+ = do putWord8 53+ serialize (depth_CreatePixmap x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (pid_CreatePixmap x)+ serialize (drawable_CreatePixmap x)+ serialize (width_CreatePixmap x)+ serialize (height_CreatePixmap x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (depth_CreatePixmap x) + size (pid_CreatePixmap x) ++ size (drawable_CreatePixmap x)+ + size (width_CreatePixmap x)+ + size (height_CreatePixmap x)+ +data FreePixmap = MkFreePixmap{pixmap_FreePixmap :: PIXMAP}+ deriving (Show, Typeable)+ +instance Serialize FreePixmap where+ serialize x+ = do putWord8 54+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (pixmap_FreePixmap x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (pixmap_FreePixmap x)+ +data GC = GCFunction+ | GCPlaneMask+ | GCForeground+ | GCBackground+ | GCLineWidth+ | GCLineStyle+ | GCCapStyle+ | GCJoinStyle+ | GCFillStyle+ | GCFillRule+ | GCTile+ | GCStipple+ | GCTileStippleOriginX+ | GCTileStippleOriginY+ | GCFont+ | GCSubwindowMode+ | GCGraphicsExposures+ | GCClipOriginX+ | GCClipOriginY+ | GCClipMask+ | GCDashOffset+ | GCDashList+ | GCArcMode+ +instance BitEnum GC where+ toBit GCFunction{} = 0+ toBit GCPlaneMask{} = 1+ toBit GCForeground{} = 2+ toBit GCBackground{} = 3+ toBit GCLineWidth{} = 4+ toBit GCLineStyle{} = 5+ toBit GCCapStyle{} = 6+ toBit GCJoinStyle{} = 7+ toBit GCFillStyle{} = 8+ toBit GCFillRule{} = 9+ toBit GCTile{} = 10+ toBit GCStipple{} = 11+ toBit GCTileStippleOriginX{} = 12+ toBit GCTileStippleOriginY{} = 13+ toBit GCFont{} = 14+ toBit GCSubwindowMode{} = 15+ toBit GCGraphicsExposures{} = 16+ toBit GCClipOriginX{} = 17+ toBit GCClipOriginY{} = 18+ toBit GCClipMask{} = 19+ toBit GCDashOffset{} = 20+ toBit GCDashList{} = 21+ toBit GCArcMode{} = 22+ fromBit 0 = GCFunction+ fromBit 1 = GCPlaneMask+ fromBit 2 = GCForeground+ fromBit 3 = GCBackground+ fromBit 4 = GCLineWidth+ fromBit 5 = GCLineStyle+ fromBit 6 = GCCapStyle+ fromBit 7 = GCJoinStyle+ fromBit 8 = GCFillStyle+ fromBit 9 = GCFillRule+ fromBit 10 = GCTile+ fromBit 11 = GCStipple+ fromBit 12 = GCTileStippleOriginX+ fromBit 13 = GCTileStippleOriginY+ fromBit 14 = GCFont+ fromBit 15 = GCSubwindowMode+ fromBit 16 = GCGraphicsExposures+ fromBit 17 = GCClipOriginX+ fromBit 18 = GCClipOriginY+ fromBit 19 = GCClipMask+ fromBit 20 = GCDashOffset+ fromBit 21 = GCDashList+ fromBit 22 = GCArcMode+ +data GX = GXclear+ | GXand+ | GXandReverse+ | GXcopy+ | GXandInverted+ | GXnoop+ | GXxor+ | GXor+ | GXnor+ | GXequiv+ | GXinvert+ | GXorReverse+ | GXcopyInverted+ | GXorInverted+ | GXnand+ | GXset+ +instance SimpleEnum GX where+ toValue GXclear{} = 0+ toValue GXand{} = 1+ toValue GXandReverse{} = 2+ toValue GXcopy{} = 3+ toValue GXandInverted{} = 4+ toValue GXnoop{} = 5+ toValue GXxor{} = 6+ toValue GXor{} = 7+ toValue GXnor{} = 8+ toValue GXequiv{} = 9+ toValue GXinvert{} = 10+ toValue GXorReverse{} = 11+ toValue GXcopyInverted{} = 12+ toValue GXorInverted{} = 13+ toValue GXnand{} = 14+ toValue GXset{} = 15+ fromValue 0 = GXclear+ fromValue 1 = GXand+ fromValue 2 = GXandReverse+ fromValue 3 = GXcopy+ fromValue 4 = GXandInverted+ fromValue 5 = GXnoop+ fromValue 6 = GXxor+ fromValue 7 = GXor+ fromValue 8 = GXnor+ fromValue 9 = GXequiv+ fromValue 10 = GXinvert+ fromValue 11 = GXorReverse+ fromValue 12 = GXcopyInverted+ fromValue 13 = GXorInverted+ fromValue 14 = GXnand+ fromValue 15 = GXset+ +data LineStyle = LineStyleSolid+ | LineStyleOnOffDash+ | LineStyleDoubleDash+ +instance SimpleEnum LineStyle where+ toValue LineStyleSolid{} = 0+ toValue LineStyleOnOffDash{} = 1+ toValue LineStyleDoubleDash{} = 2+ fromValue 0 = LineStyleSolid+ fromValue 1 = LineStyleOnOffDash+ fromValue 2 = LineStyleDoubleDash+ +data CapStyle = CapStyleNotLast+ | CapStyleButt+ | CapStyleRound+ | CapStyleProjecting+ +instance SimpleEnum CapStyle where+ toValue CapStyleNotLast{} = 0+ toValue CapStyleButt{} = 1+ toValue CapStyleRound{} = 2+ toValue CapStyleProjecting{} = 3+ fromValue 0 = CapStyleNotLast+ fromValue 1 = CapStyleButt+ fromValue 2 = CapStyleRound+ fromValue 3 = CapStyleProjecting+ +data JoinStyle = JoinStyleMitre+ | JoinStyleRound+ | JoinStyleBevel+ +instance SimpleEnum JoinStyle where+ toValue JoinStyleMitre{} = 0+ toValue JoinStyleRound{} = 1+ toValue JoinStyleBevel{} = 2+ fromValue 0 = JoinStyleMitre+ fromValue 1 = JoinStyleRound+ fromValue 2 = JoinStyleBevel+ +data FillStyle = FillStyleSolid+ | FillStyleTiled+ | FillStyleStippled+ | FillStyleOpaqueStippled+ +instance SimpleEnum FillStyle where+ toValue FillStyleSolid{} = 0+ toValue FillStyleTiled{} = 1+ toValue FillStyleStippled{} = 2+ toValue FillStyleOpaqueStippled{} = 3+ fromValue 0 = FillStyleSolid+ fromValue 1 = FillStyleTiled+ fromValue 2 = FillStyleStippled+ fromValue 3 = FillStyleOpaqueStippled+ +data FillRule = FillRuleEvenOdd+ | FillRuleWinding+ +instance SimpleEnum FillRule where+ toValue FillRuleEvenOdd{} = 0+ toValue FillRuleWinding{} = 1+ fromValue 0 = FillRuleEvenOdd+ fromValue 1 = FillRuleWinding+ +data SubwindowMode = SubwindowModeClipByChildren+ | SubwindowModeIncludeInferiors+ +instance SimpleEnum SubwindowMode where+ toValue SubwindowModeClipByChildren{} = 0+ toValue SubwindowModeIncludeInferiors{} = 1+ fromValue 0 = SubwindowModeClipByChildren+ fromValue 1 = SubwindowModeIncludeInferiors+ +data ArcMode = ArcModeChord+ | ArcModePieSlice+ +instance SimpleEnum ArcMode where+ toValue ArcModeChord{} = 0+ toValue ArcModePieSlice{} = 1+ fromValue 0 = ArcModeChord+ fromValue 1 = ArcModePieSlice+ +data CreateGC = MkCreateGC{cid_CreateGC :: GCONTEXT,+ drawable_CreateGC :: DRAWABLE, value_CreateGC :: ValueParam Word32}+ deriving (Show, Typeable)+ +instance Serialize CreateGC where+ serialize x+ = do putWord8 55+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cid_CreateGC x)+ serialize (drawable_CreateGC x)+ serialize (value_CreateGC x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (cid_CreateGC x) + size (drawable_CreateGC x) ++ size (value_CreateGC x)+ +data ChangeGC = MkChangeGC{gc_ChangeGC :: GCONTEXT,+ value_ChangeGC :: ValueParam Word32}+ deriving (Show, Typeable)+ +instance Serialize ChangeGC where+ serialize x+ = do putWord8 56+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (gc_ChangeGC x)+ serialize (value_ChangeGC x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (gc_ChangeGC x) + size (value_ChangeGC x)+ +data CopyGC = MkCopyGC{src_gc_CopyGC :: GCONTEXT,+ dst_gc_CopyGC :: GCONTEXT, value_mask_CopyGC :: Word32}+ deriving (Show, Typeable)+ +instance Serialize CopyGC where+ serialize x+ = do putWord8 57+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (src_gc_CopyGC x)+ serialize (dst_gc_CopyGC x)+ serialize (value_mask_CopyGC x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (src_gc_CopyGC x) + size (dst_gc_CopyGC x) ++ size (value_mask_CopyGC x)+ +data SetDashes = MkSetDashes{gc_SetDashes :: GCONTEXT,+ dash_offset_SetDashes :: Word16, dashes_len_SetDashes :: Word16,+ dashes_SetDashes :: [Word8]}+ deriving (Show, Typeable)+ +instance Serialize SetDashes where+ serialize x+ = do putWord8 58+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (gc_SetDashes x)+ serialize (dash_offset_SetDashes x)+ serialize (dashes_len_SetDashes x)+ serializeList (dashes_SetDashes x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (gc_SetDashes x) + size (dash_offset_SetDashes x) ++ size (dashes_len_SetDashes x)+ + sum (map size (dashes_SetDashes x))+ +data ClipOrdering = ClipOrderingUnsorted+ | ClipOrderingYSorted+ | ClipOrderingYXSorted+ | ClipOrderingYXBanded+ +instance SimpleEnum ClipOrdering where+ toValue ClipOrderingUnsorted{} = 0+ toValue ClipOrderingYSorted{} = 1+ toValue ClipOrderingYXSorted{} = 2+ toValue ClipOrderingYXBanded{} = 3+ fromValue 0 = ClipOrderingUnsorted+ fromValue 1 = ClipOrderingYSorted+ fromValue 2 = ClipOrderingYXSorted+ fromValue 3 = ClipOrderingYXBanded+ +data SetClipRectangles = MkSetClipRectangles{ordering_SetClipRectangles+ :: Word8,+ gc_SetClipRectangles :: GCONTEXT,+ clip_x_origin_SetClipRectangles :: Int16,+ clip_y_origin_SetClipRectangles :: Int16,+ rectangles_SetClipRectangles :: [RECTANGLE]}+ deriving (Show, Typeable)+ +instance Serialize SetClipRectangles where+ serialize x+ = do putWord8 59+ serialize (ordering_SetClipRectangles x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (gc_SetClipRectangles x)+ serialize (clip_x_origin_SetClipRectangles x)+ serialize (clip_y_origin_SetClipRectangles x)+ serializeList (rectangles_SetClipRectangles x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (ordering_SetClipRectangles x) ++ size (gc_SetClipRectangles x)+ + size (clip_x_origin_SetClipRectangles x)+ + size (clip_y_origin_SetClipRectangles x)+ + sum (map size (rectangles_SetClipRectangles x))+ +data FreeGC = MkFreeGC{gc_FreeGC :: GCONTEXT}+ deriving (Show, Typeable)+ +instance Serialize FreeGC where+ serialize x+ = do putWord8 60+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (gc_FreeGC x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (gc_FreeGC x)+ +data ClearArea = MkClearArea{exposures_ClearArea :: Bool,+ window_ClearArea :: WINDOW, x_ClearArea :: Int16,+ y_ClearArea :: Int16, width_ClearArea :: Word16,+ height_ClearArea :: Word16}+ deriving (Show, Typeable)+ +instance Serialize ClearArea where+ serialize x+ = do putWord8 61+ serialize (exposures_ClearArea x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_ClearArea x)+ serialize (x_ClearArea x)+ serialize (y_ClearArea x)+ serialize (width_ClearArea x)+ serialize (height_ClearArea x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (exposures_ClearArea x) + size (window_ClearArea x) ++ size (x_ClearArea x)+ + size (y_ClearArea x)+ + size (width_ClearArea x)+ + size (height_ClearArea x)+ +data CopyArea = MkCopyArea{src_drawable_CopyArea :: DRAWABLE,+ dst_drawable_CopyArea :: DRAWABLE, gc_CopyArea :: GCONTEXT,+ src_x_CopyArea :: Int16, src_y_CopyArea :: Int16,+ dst_x_CopyArea :: Int16, dst_y_CopyArea :: Int16,+ width_CopyArea :: Word16, height_CopyArea :: Word16}+ deriving (Show, Typeable)+ +instance Serialize CopyArea where+ serialize x+ = do putWord8 62+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (src_drawable_CopyArea x)+ serialize (dst_drawable_CopyArea x)+ serialize (gc_CopyArea x)+ serialize (src_x_CopyArea x)+ serialize (src_y_CopyArea x)+ serialize (dst_x_CopyArea x)+ serialize (dst_y_CopyArea x)+ serialize (width_CopyArea x)+ serialize (height_CopyArea x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (src_drawable_CopyArea x) ++ size (dst_drawable_CopyArea x)+ + size (gc_CopyArea x)+ + size (src_x_CopyArea x)+ + size (src_y_CopyArea x)+ + size (dst_x_CopyArea x)+ + size (dst_y_CopyArea x)+ + size (width_CopyArea x)+ + size (height_CopyArea x)+ +data CopyPlane = MkCopyPlane{src_drawable_CopyPlane :: DRAWABLE,+ dst_drawable_CopyPlane :: DRAWABLE, gc_CopyPlane :: GCONTEXT,+ src_x_CopyPlane :: Int16, src_y_CopyPlane :: Int16,+ dst_x_CopyPlane :: Int16, dst_y_CopyPlane :: Int16,+ width_CopyPlane :: Word16, height_CopyPlane :: Word16,+ bit_plane_CopyPlane :: Word32}+ deriving (Show, Typeable)+ +instance Serialize CopyPlane where+ serialize x+ = do putWord8 63+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (src_drawable_CopyPlane x)+ serialize (dst_drawable_CopyPlane x)+ serialize (gc_CopyPlane x)+ serialize (src_x_CopyPlane x)+ serialize (src_y_CopyPlane x)+ serialize (dst_x_CopyPlane x)+ serialize (dst_y_CopyPlane x)+ serialize (width_CopyPlane x)+ serialize (height_CopyPlane x)+ serialize (bit_plane_CopyPlane x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (src_drawable_CopyPlane x) ++ size (dst_drawable_CopyPlane x)+ + size (gc_CopyPlane x)+ + size (src_x_CopyPlane x)+ + size (src_y_CopyPlane x)+ + size (dst_x_CopyPlane x)+ + size (dst_y_CopyPlane x)+ + size (width_CopyPlane x)+ + size (height_CopyPlane x)+ + size (bit_plane_CopyPlane x)+ +data CoordMode = CoordModeOrigin+ | CoordModePrevious+ +instance SimpleEnum CoordMode where+ toValue CoordModeOrigin{} = 0+ toValue CoordModePrevious{} = 1+ fromValue 0 = CoordModeOrigin+ fromValue 1 = CoordModePrevious+ +data PolyPoint = MkPolyPoint{coordinate_mode_PolyPoint :: Word8,+ drawable_PolyPoint :: DRAWABLE, gc_PolyPoint :: GCONTEXT,+ points_PolyPoint :: [POINT]}+ deriving (Show, Typeable)+ +instance Serialize PolyPoint where+ serialize x+ = do putWord8 64+ serialize (coordinate_mode_PolyPoint x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_PolyPoint x)+ serialize (gc_PolyPoint x)+ serializeList (points_PolyPoint x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (coordinate_mode_PolyPoint x) ++ size (drawable_PolyPoint x)+ + size (gc_PolyPoint x)+ + sum (map size (points_PolyPoint x))+ +data PolyLine = MkPolyLine{coordinate_mode_PolyLine :: Word8,+ drawable_PolyLine :: DRAWABLE, gc_PolyLine :: GCONTEXT,+ points_PolyLine :: [POINT]}+ deriving (Show, Typeable)+ +instance Serialize PolyLine where+ serialize x+ = do putWord8 65+ serialize (coordinate_mode_PolyLine x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_PolyLine x)+ serialize (gc_PolyLine x)+ serializeList (points_PolyLine x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (coordinate_mode_PolyLine x) ++ size (drawable_PolyLine x)+ + size (gc_PolyLine x)+ + sum (map size (points_PolyLine x))+ +data SEGMENT = MkSEGMENT{x1_SEGMENT :: Int16, y1_SEGMENT :: Int16,+ x2_SEGMENT :: Int16, y2_SEGMENT :: Int16}+ deriving (Show, Typeable)+ +instance Serialize SEGMENT where+ serialize x+ = do serialize (x1_SEGMENT x)+ serialize (y1_SEGMENT x)+ serialize (x2_SEGMENT x)+ serialize (y2_SEGMENT x)+ size x+ = size (x1_SEGMENT x) + size (y1_SEGMENT x) + size (x2_SEGMENT x) ++ size (y2_SEGMENT x)+ +instance Deserialize SEGMENT where+ deserialize+ = do x1 <- deserialize+ y1 <- deserialize+ x2 <- deserialize+ y2 <- deserialize+ return (MkSEGMENT x1 y1 x2 y2)+ +data PolySegment = MkPolySegment{drawable_PolySegment :: DRAWABLE,+ gc_PolySegment :: GCONTEXT, segments_PolySegment :: [SEGMENT]}+ deriving (Show, Typeable)+ +instance Serialize PolySegment where+ serialize x+ = do putWord8 66+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_PolySegment x)+ serialize (gc_PolySegment x)+ serializeList (segments_PolySegment x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (drawable_PolySegment x) + size (gc_PolySegment x) ++ sum (map size (segments_PolySegment x))+ +data PolyRectangle = MkPolyRectangle{drawable_PolyRectangle ::+ DRAWABLE,+ gc_PolyRectangle :: GCONTEXT,+ rectangles_PolyRectangle :: [RECTANGLE]}+ deriving (Show, Typeable)+ +instance Serialize PolyRectangle where+ serialize x+ = do putWord8 67+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_PolyRectangle x)+ serialize (gc_PolyRectangle x)+ serializeList (rectangles_PolyRectangle x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (drawable_PolyRectangle x) ++ size (gc_PolyRectangle x)+ + sum (map size (rectangles_PolyRectangle x))+ +data PolyArc = MkPolyArc{drawable_PolyArc :: DRAWABLE,+ gc_PolyArc :: GCONTEXT, arcs_PolyArc :: [ARC]}+ deriving (Show, Typeable)+ +instance Serialize PolyArc where+ serialize x+ = do putWord8 68+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_PolyArc x)+ serialize (gc_PolyArc x)+ serializeList (arcs_PolyArc x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (drawable_PolyArc x) + size (gc_PolyArc x) ++ sum (map size (arcs_PolyArc x))+ +data PolyShape = PolyShapeComplex+ | PolyShapeNonconvex+ | PolyShapeConvex+ +instance SimpleEnum PolyShape where+ toValue PolyShapeComplex{} = 0+ toValue PolyShapeNonconvex{} = 1+ toValue PolyShapeConvex{} = 2+ fromValue 0 = PolyShapeComplex+ fromValue 1 = PolyShapeNonconvex+ fromValue 2 = PolyShapeConvex+ +data FillPoly = MkFillPoly{drawable_FillPoly :: DRAWABLE,+ gc_FillPoly :: GCONTEXT, shape_FillPoly :: Word8,+ coordinate_mode_FillPoly :: Word8, points_FillPoly :: [POINT]}+ deriving (Show, Typeable)+ +instance Serialize FillPoly where+ serialize x+ = do putWord8 69+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_FillPoly x)+ serialize (gc_FillPoly x)+ serialize (shape_FillPoly x)+ serialize (coordinate_mode_FillPoly x)+ putSkip 2+ serializeList (points_FillPoly x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (drawable_FillPoly x) + size (gc_FillPoly x) ++ size (shape_FillPoly x)+ + size (coordinate_mode_FillPoly x)+ + 2+ + sum (map size (points_FillPoly x))+ +data PolyFillRectangle = MkPolyFillRectangle{drawable_PolyFillRectangle+ :: DRAWABLE,+ gc_PolyFillRectangle :: GCONTEXT,+ rectangles_PolyFillRectangle :: [RECTANGLE]}+ deriving (Show, Typeable)+ +instance Serialize PolyFillRectangle where+ serialize x+ = do putWord8 70+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_PolyFillRectangle x)+ serialize (gc_PolyFillRectangle x)+ serializeList (rectangles_PolyFillRectangle x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (drawable_PolyFillRectangle x) ++ size (gc_PolyFillRectangle x)+ + sum (map size (rectangles_PolyFillRectangle x))+ +data PolyFillArc = MkPolyFillArc{drawable_PolyFillArc :: DRAWABLE,+ gc_PolyFillArc :: GCONTEXT, arcs_PolyFillArc :: [ARC]}+ deriving (Show, Typeable)+ +instance Serialize PolyFillArc where+ serialize x+ = do putWord8 71+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_PolyFillArc x)+ serialize (gc_PolyFillArc x)+ serializeList (arcs_PolyFillArc x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (drawable_PolyFillArc x) + size (gc_PolyFillArc x) ++ sum (map size (arcs_PolyFillArc x))+ +data ImageFormat = ImageFormatXYBitmap+ | ImageFormatXYPixmap+ | ImageFormatZPixmap+ +instance SimpleEnum ImageFormat where+ toValue ImageFormatXYBitmap{} = 0+ toValue ImageFormatXYPixmap{} = 1+ toValue ImageFormatZPixmap{} = 2+ fromValue 0 = ImageFormatXYBitmap+ fromValue 1 = ImageFormatXYPixmap+ fromValue 2 = ImageFormatZPixmap+ +data PutImage = MkPutImage{format_PutImage :: Word8,+ drawable_PutImage :: DRAWABLE, gc_PutImage :: GCONTEXT,+ width_PutImage :: Word16, height_PutImage :: Word16,+ dst_x_PutImage :: Int16, dst_y_PutImage :: Int16,+ left_pad_PutImage :: Word8, depth_PutImage :: Word8,+ data_PutImage :: [Word8]}+ deriving (Show, Typeable)+ +instance Serialize PutImage where+ serialize x+ = do putWord8 72+ serialize (format_PutImage x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_PutImage x)+ serialize (gc_PutImage x)+ serialize (width_PutImage x)+ serialize (height_PutImage x)+ serialize (dst_x_PutImage x)+ serialize (dst_y_PutImage x)+ serialize (left_pad_PutImage x)+ serialize (depth_PutImage x)+ putSkip 2+ serializeList (data_PutImage x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (format_PutImage x) + size (drawable_PutImage x) ++ size (gc_PutImage x)+ + size (width_PutImage x)+ + size (height_PutImage x)+ + size (dst_x_PutImage x)+ + size (dst_y_PutImage x)+ + size (left_pad_PutImage x)+ + size (depth_PutImage x)+ + 2+ + sum (map size (data_PutImage x))+ +data GetImage = MkGetImage{format_GetImage :: Word8,+ drawable_GetImage :: DRAWABLE, x_GetImage :: Int16,+ y_GetImage :: Int16, width_GetImage :: Word16,+ height_GetImage :: Word16, plane_mask_GetImage :: Word32}+ deriving (Show, Typeable)+ +instance Serialize GetImage where+ serialize x+ = do putWord8 73+ serialize (format_GetImage x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_GetImage x)+ serialize (x_GetImage x)+ serialize (y_GetImage x)+ serialize (width_GetImage x)+ serialize (height_GetImage x)+ serialize (plane_mask_GetImage x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (format_GetImage x) + size (drawable_GetImage x) ++ size (x_GetImage x)+ + size (y_GetImage x)+ + size (width_GetImage x)+ + size (height_GetImage x)+ + size (plane_mask_GetImage x)+ +data GetImageReply = MkGetImageReply{depth_GetImageReply :: Word8,+ visual_GetImageReply :: VISUALID,+ data_GetImageReply :: [Word8]}+ deriving (Show, Typeable)+ +instance Deserialize GetImageReply where+ deserialize+ = do skip 1+ depth <- deserialize+ skip 2+ length <- deserialize+ visual <- deserialize+ skip 20+ data_ <- deserializeList (fromIntegral (fromIntegral (length * 4)))+ let _ = isCard32 length+ return (MkGetImageReply depth visual data_)+ +data PolyText8 = MkPolyText8{drawable_PolyText8 :: DRAWABLE,+ gc_PolyText8 :: GCONTEXT, x_PolyText8 :: Int16,+ y_PolyText8 :: Int16, items_PolyText8 :: [Word8]}+ deriving (Show, Typeable)+ +instance Serialize PolyText8 where+ serialize x+ = do putWord8 74+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_PolyText8 x)+ serialize (gc_PolyText8 x)+ serialize (x_PolyText8 x)+ serialize (y_PolyText8 x)+ serializeList (items_PolyText8 x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (drawable_PolyText8 x) + size (gc_PolyText8 x) ++ size (x_PolyText8 x)+ + size (y_PolyText8 x)+ + sum (map size (items_PolyText8 x))+ +data PolyText16 = MkPolyText16{drawable_PolyText16 :: DRAWABLE,+ gc_PolyText16 :: GCONTEXT, x_PolyText16 :: Int16,+ y_PolyText16 :: Int16, items_PolyText16 :: [Word8]}+ deriving (Show, Typeable)+ +instance Serialize PolyText16 where+ serialize x+ = do putWord8 75+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_PolyText16 x)+ serialize (gc_PolyText16 x)+ serialize (x_PolyText16 x)+ serialize (y_PolyText16 x)+ serializeList (items_PolyText16 x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (drawable_PolyText16 x) + size (gc_PolyText16 x) ++ size (x_PolyText16 x)+ + size (y_PolyText16 x)+ + sum (map size (items_PolyText16 x))+ +data ImageText8 = MkImageText8{string_len_ImageText8 :: Word8,+ drawable_ImageText8 :: DRAWABLE, gc_ImageText8 :: GCONTEXT,+ x_ImageText8 :: Int16, y_ImageText8 :: Int16,+ string_ImageText8 :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize ImageText8 where+ serialize x+ = do putWord8 76+ serialize (string_len_ImageText8 x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_ImageText8 x)+ serialize (gc_ImageText8 x)+ serialize (x_ImageText8 x)+ serialize (y_ImageText8 x)+ serializeList (string_ImageText8 x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (string_len_ImageText8 x) + size (drawable_ImageText8 x)+ + size (gc_ImageText8 x)+ + size (x_ImageText8 x)+ + size (y_ImageText8 x)+ + sum (map size (string_ImageText8 x))+ +data ImageText16 = MkImageText16{string_len_ImageText16 :: Word8,+ drawable_ImageText16 :: DRAWABLE, gc_ImageText16 :: GCONTEXT,+ x_ImageText16 :: Int16, y_ImageText16 :: Int16,+ string_ImageText16 :: [CHAR2B]}+ deriving (Show, Typeable)+ +instance Serialize ImageText16 where+ serialize x+ = do putWord8 77+ serialize (string_len_ImageText16 x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_ImageText16 x)+ serialize (gc_ImageText16 x)+ serialize (x_ImageText16 x)+ serialize (y_ImageText16 x)+ serializeList (string_ImageText16 x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (string_len_ImageText16 x) ++ size (drawable_ImageText16 x)+ + size (gc_ImageText16 x)+ + size (x_ImageText16 x)+ + size (y_ImageText16 x)+ + sum (map size (string_ImageText16 x))+ +data ColormapAlloc = ColormapAllocNone+ | ColormapAllocAll+ +instance SimpleEnum ColormapAlloc where+ toValue ColormapAllocNone{} = 0+ toValue ColormapAllocAll{} = 1+ fromValue 0 = ColormapAllocNone+ fromValue 1 = ColormapAllocAll+ +data CreateColormap = MkCreateColormap{alloc_CreateColormap ::+ Word8,+ mid_CreateColormap :: COLORMAP,+ window_CreateColormap :: WINDOW,+ visual_CreateColormap :: VISUALID}+ deriving (Show, Typeable)+ +instance Serialize CreateColormap where+ serialize x+ = do putWord8 78+ serialize (alloc_CreateColormap x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (mid_CreateColormap x)+ serialize (window_CreateColormap x)+ serialize (visual_CreateColormap x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (alloc_CreateColormap x) + size (mid_CreateColormap x) ++ size (window_CreateColormap x)+ + size (visual_CreateColormap x)+ +data FreeColormap = MkFreeColormap{cmap_FreeColormap :: COLORMAP}+ deriving (Show, Typeable)+ +instance Serialize FreeColormap where+ serialize x+ = do putWord8 79+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cmap_FreeColormap x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (cmap_FreeColormap x)+ +data CopyColormapAndFree = MkCopyColormapAndFree{mid_CopyColormapAndFree+ :: COLORMAP,+ src_cmap_CopyColormapAndFree :: COLORMAP}+ deriving (Show, Typeable)+ +instance Serialize CopyColormapAndFree where+ serialize x+ = do putWord8 80+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (mid_CopyColormapAndFree x)+ serialize (src_cmap_CopyColormapAndFree x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (mid_CopyColormapAndFree x) ++ size (src_cmap_CopyColormapAndFree x)+ +data InstallColormap = MkInstallColormap{cmap_InstallColormap ::+ COLORMAP}+ deriving (Show, Typeable)+ +instance Serialize InstallColormap where+ serialize x+ = do putWord8 81+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cmap_InstallColormap x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (cmap_InstallColormap x)+ +data UninstallColormap = MkUninstallColormap{cmap_UninstallColormap+ :: COLORMAP}+ deriving (Show, Typeable)+ +instance Serialize UninstallColormap where+ serialize x+ = do putWord8 82+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cmap_UninstallColormap x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (cmap_UninstallColormap x)+ +data ListInstalledColormaps = MkListInstalledColormaps{window_ListInstalledColormaps+ :: WINDOW}+ deriving (Show, Typeable)+ +instance Serialize ListInstalledColormaps where+ serialize x+ = do putWord8 83+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_ListInstalledColormaps x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (window_ListInstalledColormaps x)+ +data ListInstalledColormapsReply = MkListInstalledColormapsReply{cmaps_len_ListInstalledColormapsReply+ :: Word16,+ cmaps_ListInstalledColormapsReply+ :: [COLORMAP]}+ deriving (Show, Typeable)+ +instance Deserialize ListInstalledColormapsReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ cmaps_len <- deserialize+ skip 22+ cmaps <- deserializeList (fromIntegral cmaps_len)+ let _ = isCard32 length+ return (MkListInstalledColormapsReply cmaps_len cmaps)+ +data AllocColor = MkAllocColor{cmap_AllocColor :: COLORMAP,+ red_AllocColor :: Word16, green_AllocColor :: Word16,+ blue_AllocColor :: Word16}+ deriving (Show, Typeable)+ +instance Serialize AllocColor where+ serialize x+ = do putWord8 84+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cmap_AllocColor x)+ serialize (red_AllocColor x)+ serialize (green_AllocColor x)+ serialize (blue_AllocColor x)+ putSkip 2+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (cmap_AllocColor x) + size (red_AllocColor x) ++ size (green_AllocColor x)+ + size (blue_AllocColor x)+ + 2+ +data AllocColorReply = MkAllocColorReply{red_AllocColorReply ::+ Word16,+ green_AllocColorReply :: Word16,+ blue_AllocColorReply :: Word16,+ pixel_AllocColorReply :: Word32}+ deriving (Show, Typeable)+ +instance Deserialize AllocColorReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ red <- deserialize+ green <- deserialize+ blue <- deserialize+ skip 2+ pixel <- deserialize+ let _ = isCard32 length+ return (MkAllocColorReply red green blue pixel)+ +data AllocNamedColor = MkAllocNamedColor{cmap_AllocNamedColor ::+ COLORMAP,+ name_len_AllocNamedColor :: Word16,+ name_AllocNamedColor :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize AllocNamedColor where+ serialize x+ = do putWord8 85+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cmap_AllocNamedColor x)+ serialize (name_len_AllocNamedColor x)+ putSkip 2+ serializeList (name_AllocNamedColor x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (cmap_AllocNamedColor x) ++ size (name_len_AllocNamedColor x)+ + 2+ + sum (map size (name_AllocNamedColor x))+ +data AllocNamedColorReply = MkAllocNamedColorReply{pixel_AllocNamedColorReply+ :: Word32,+ exact_red_AllocNamedColorReply :: Word16,+ exact_green_AllocNamedColorReply :: Word16,+ exact_blue_AllocNamedColorReply :: Word16,+ visual_red_AllocNamedColorReply :: Word16,+ visual_green_AllocNamedColorReply :: Word16,+ visual_blue_AllocNamedColorReply :: Word16}+ deriving (Show, Typeable)+ +instance Deserialize AllocNamedColorReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ pixel <- deserialize+ exact_red <- deserialize+ exact_green <- deserialize+ exact_blue <- deserialize+ visual_red <- deserialize+ visual_green <- deserialize+ visual_blue <- deserialize+ let _ = isCard32 length+ return+ (MkAllocNamedColorReply pixel exact_red exact_green exact_blue+ visual_red+ visual_green+ visual_blue)+ +data AllocColorCells = MkAllocColorCells{contiguous_AllocColorCells+ :: Bool,+ cmap_AllocColorCells :: COLORMAP,+ colors_AllocColorCells :: Word16,+ planes_AllocColorCells :: Word16}+ deriving (Show, Typeable)+ +instance Serialize AllocColorCells where+ serialize x+ = do putWord8 86+ serialize (contiguous_AllocColorCells x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cmap_AllocColorCells x)+ serialize (colors_AllocColorCells x)+ serialize (planes_AllocColorCells x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (contiguous_AllocColorCells x) ++ size (cmap_AllocColorCells x)+ + size (colors_AllocColorCells x)+ + size (planes_AllocColorCells x)+ +data AllocColorCellsReply = MkAllocColorCellsReply{pixels_len_AllocColorCellsReply+ :: Word16,+ masks_len_AllocColorCellsReply :: Word16,+ pixels_AllocColorCellsReply :: [Word32],+ masks_AllocColorCellsReply :: [Word32]}+ deriving (Show, Typeable)+ +instance Deserialize AllocColorCellsReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ pixels_len <- deserialize+ masks_len <- deserialize+ skip 20+ pixels <- deserializeList (fromIntegral pixels_len)+ masks <- deserializeList (fromIntegral masks_len)+ let _ = isCard32 length+ return (MkAllocColorCellsReply pixels_len masks_len pixels masks)+ +data AllocColorPlanes = MkAllocColorPlanes{contiguous_AllocColorPlanes+ :: Bool,+ cmap_AllocColorPlanes :: COLORMAP,+ colors_AllocColorPlanes :: Word16,+ reds_AllocColorPlanes :: Word16,+ greens_AllocColorPlanes :: Word16,+ blues_AllocColorPlanes :: Word16}+ deriving (Show, Typeable)+ +instance Serialize AllocColorPlanes where+ serialize x+ = do putWord8 87+ serialize (contiguous_AllocColorPlanes x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cmap_AllocColorPlanes x)+ serialize (colors_AllocColorPlanes x)+ serialize (reds_AllocColorPlanes x)+ serialize (greens_AllocColorPlanes x)+ serialize (blues_AllocColorPlanes x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (contiguous_AllocColorPlanes x) ++ size (cmap_AllocColorPlanes x)+ + size (colors_AllocColorPlanes x)+ + size (reds_AllocColorPlanes x)+ + size (greens_AllocColorPlanes x)+ + size (blues_AllocColorPlanes x)+ +data AllocColorPlanesReply = MkAllocColorPlanesReply{pixels_len_AllocColorPlanesReply+ :: Word16,+ red_mask_AllocColorPlanesReply :: Word32,+ green_mask_AllocColorPlanesReply :: Word32,+ blue_mask_AllocColorPlanesReply :: Word32,+ pixels_AllocColorPlanesReply :: [Word32]}+ deriving (Show, Typeable)+ +instance Deserialize AllocColorPlanesReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ pixels_len <- deserialize+ skip 2+ red_mask <- deserialize+ green_mask <- deserialize+ blue_mask <- deserialize+ skip 8+ pixels <- deserializeList (fromIntegral pixels_len)+ let _ = isCard32 length+ return+ (MkAllocColorPlanesReply pixels_len red_mask green_mask blue_mask+ pixels)+ +data FreeColors = MkFreeColors{cmap_FreeColors :: COLORMAP,+ plane_mask_FreeColors :: Word32, pixels_FreeColors :: [Word32]}+ deriving (Show, Typeable)+ +instance Serialize FreeColors where+ serialize x+ = do putWord8 88+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cmap_FreeColors x)+ serialize (plane_mask_FreeColors x)+ serializeList (pixels_FreeColors x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (cmap_FreeColors x) + size (plane_mask_FreeColors x)+ + sum (map size (pixels_FreeColors x))+ +data ColorFlag = ColorFlagRed+ | ColorFlagGreen+ | ColorFlagBlue+ +instance BitEnum ColorFlag where+ toBit ColorFlagRed{} = 0+ toBit ColorFlagGreen{} = 1+ toBit ColorFlagBlue{} = 2+ fromBit 0 = ColorFlagRed+ fromBit 1 = ColorFlagGreen+ fromBit 2 = ColorFlagBlue+ +data COLORITEM = MkCOLORITEM{pixel_COLORITEM :: Word32,+ red_COLORITEM :: Word16, green_COLORITEM :: Word16,+ blue_COLORITEM :: Word16, flags_COLORITEM :: Word8}+ deriving (Show, Typeable)+ +instance Serialize COLORITEM where+ serialize x+ = do serialize (pixel_COLORITEM x)+ serialize (red_COLORITEM x)+ serialize (green_COLORITEM x)+ serialize (blue_COLORITEM x)+ serialize (flags_COLORITEM x)+ putSkip 1+ size x+ = size (pixel_COLORITEM x) + size (red_COLORITEM x) ++ size (green_COLORITEM x)+ + size (blue_COLORITEM x)+ + size (flags_COLORITEM x)+ + 1+ +instance Deserialize COLORITEM where+ deserialize+ = do pixel <- deserialize+ red <- deserialize+ green <- deserialize+ blue <- deserialize+ flags <- deserialize+ skip 1+ return (MkCOLORITEM pixel red green blue flags)+ +data StoreColors = MkStoreColors{cmap_StoreColors :: COLORMAP,+ items_StoreColors :: [COLORITEM]}+ deriving (Show, Typeable)+ +instance Serialize StoreColors where+ serialize x+ = do putWord8 89+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cmap_StoreColors x)+ serializeList (items_StoreColors x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (cmap_StoreColors x) ++ sum (map size (items_StoreColors x))+ +data StoreNamedColor = MkStoreNamedColor{flags_StoreNamedColor ::+ Word8,+ cmap_StoreNamedColor :: COLORMAP,+ pixel_StoreNamedColor :: Word32,+ name_len_StoreNamedColor :: Word16,+ name_StoreNamedColor :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize StoreNamedColor where+ serialize x+ = do putWord8 90+ serialize (flags_StoreNamedColor x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cmap_StoreNamedColor x)+ serialize (pixel_StoreNamedColor x)+ serialize (name_len_StoreNamedColor x)+ putSkip 2+ serializeList (name_StoreNamedColor x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (flags_StoreNamedColor x) ++ size (cmap_StoreNamedColor x)+ + size (pixel_StoreNamedColor x)+ + size (name_len_StoreNamedColor x)+ + 2+ + sum (map size (name_StoreNamedColor x))+ +data RGB = MkRGB{red_RGB :: Word16, green_RGB :: Word16,+ blue_RGB :: Word16}+ deriving (Show, Typeable)+ +instance Serialize RGB where+ serialize x+ = do serialize (red_RGB x)+ serialize (green_RGB x)+ serialize (blue_RGB x)+ putSkip 2+ size x+ = size (red_RGB x) + size (green_RGB x) + size (blue_RGB x) + 2+ +instance Deserialize RGB where+ deserialize+ = do red <- deserialize+ green <- deserialize+ blue <- deserialize+ skip 2+ return (MkRGB red green blue)+ +data QueryColors = MkQueryColors{cmap_QueryColors :: COLORMAP,+ pixels_QueryColors :: [Word32]}+ deriving (Show, Typeable)+ +instance Serialize QueryColors where+ serialize x+ = do putWord8 91+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cmap_QueryColors x)+ serializeList (pixels_QueryColors x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (cmap_QueryColors x) ++ sum (map size (pixels_QueryColors x))+ +data QueryColorsReply = MkQueryColorsReply{colors_len_QueryColorsReply+ :: Word16,+ colors_QueryColorsReply :: [RGB]}+ deriving (Show, Typeable)+ +instance Deserialize QueryColorsReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ colors_len <- deserialize+ skip 22+ colors <- deserializeList (fromIntegral colors_len)+ let _ = isCard32 length+ return (MkQueryColorsReply colors_len colors)+ +data LookupColor = MkLookupColor{cmap_LookupColor :: COLORMAP,+ name_len_LookupColor :: Word16, name_LookupColor :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize LookupColor where+ serialize x+ = do putWord8 92+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cmap_LookupColor x)+ serialize (name_len_LookupColor x)+ putSkip 2+ serializeList (name_LookupColor x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (cmap_LookupColor x) + size (name_len_LookupColor x)+ + 2+ + sum (map size (name_LookupColor x))+ +data LookupColorReply = MkLookupColorReply{exact_red_LookupColorReply+ :: Word16,+ exact_green_LookupColorReply :: Word16,+ exact_blue_LookupColorReply :: Word16,+ visual_red_LookupColorReply :: Word16,+ visual_green_LookupColorReply :: Word16,+ visual_blue_LookupColorReply :: Word16}+ deriving (Show, Typeable)+ +instance Deserialize LookupColorReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ exact_red <- deserialize+ exact_green <- deserialize+ exact_blue <- deserialize+ visual_red <- deserialize+ visual_green <- deserialize+ visual_blue <- deserialize+ let _ = isCard32 length+ return+ (MkLookupColorReply exact_red exact_green exact_blue visual_red+ visual_green+ visual_blue)+ +data CreateCursor = MkCreateCursor{cid_CreateCursor :: CURSOR,+ source_CreateCursor :: PIXMAP, mask_CreateCursor :: PIXMAP,+ fore_red_CreateCursor :: Word16,+ fore_green_CreateCursor :: Word16,+ fore_blue_CreateCursor :: Word16,+ back_red_CreateCursor :: Word16,+ back_green_CreateCursor :: Word16,+ back_blue_CreateCursor :: Word16, x_CreateCursor :: Word16,+ y_CreateCursor :: Word16}+ deriving (Show, Typeable)+ +instance Serialize CreateCursor where+ serialize x+ = do putWord8 93+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cid_CreateCursor x)+ serialize (source_CreateCursor x)+ serialize (mask_CreateCursor x)+ serialize (fore_red_CreateCursor x)+ serialize (fore_green_CreateCursor x)+ serialize (fore_blue_CreateCursor x)+ serialize (back_red_CreateCursor x)+ serialize (back_green_CreateCursor x)+ serialize (back_blue_CreateCursor x)+ serialize (x_CreateCursor x)+ serialize (y_CreateCursor x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (cid_CreateCursor x) + size (source_CreateCursor x)+ + size (mask_CreateCursor x)+ + size (fore_red_CreateCursor x)+ + size (fore_green_CreateCursor x)+ + size (fore_blue_CreateCursor x)+ + size (back_red_CreateCursor x)+ + size (back_green_CreateCursor x)+ + size (back_blue_CreateCursor x)+ + size (x_CreateCursor x)+ + size (y_CreateCursor x)+ +data CreateGlyphCursor = MkCreateGlyphCursor{cid_CreateGlyphCursor+ :: CURSOR,+ source_font_CreateGlyphCursor :: FONT,+ mask_font_CreateGlyphCursor :: FONT,+ source_char_CreateGlyphCursor :: Word16,+ mask_char_CreateGlyphCursor :: Word16,+ fore_red_CreateGlyphCursor :: Word16,+ fore_green_CreateGlyphCursor :: Word16,+ fore_blue_CreateGlyphCursor :: Word16,+ back_red_CreateGlyphCursor :: Word16,+ back_green_CreateGlyphCursor :: Word16,+ back_blue_CreateGlyphCursor :: Word16}+ deriving (Show, Typeable)+ +instance Serialize CreateGlyphCursor where+ serialize x+ = do putWord8 94+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cid_CreateGlyphCursor x)+ serialize (source_font_CreateGlyphCursor x)+ serialize (mask_font_CreateGlyphCursor x)+ serialize (source_char_CreateGlyphCursor x)+ serialize (mask_char_CreateGlyphCursor x)+ serialize (fore_red_CreateGlyphCursor x)+ serialize (fore_green_CreateGlyphCursor x)+ serialize (fore_blue_CreateGlyphCursor x)+ serialize (back_red_CreateGlyphCursor x)+ serialize (back_green_CreateGlyphCursor x)+ serialize (back_blue_CreateGlyphCursor x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (cid_CreateGlyphCursor x) ++ size (source_font_CreateGlyphCursor x)+ + size (mask_font_CreateGlyphCursor x)+ + size (source_char_CreateGlyphCursor x)+ + size (mask_char_CreateGlyphCursor x)+ + size (fore_red_CreateGlyphCursor x)+ + size (fore_green_CreateGlyphCursor x)+ + size (fore_blue_CreateGlyphCursor x)+ + size (back_red_CreateGlyphCursor x)+ + size (back_green_CreateGlyphCursor x)+ + size (back_blue_CreateGlyphCursor x)+ +data FreeCursor = MkFreeCursor{cursor_FreeCursor :: CURSOR}+ deriving (Show, Typeable)+ +instance Serialize FreeCursor where+ serialize x+ = do putWord8 95+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cursor_FreeCursor x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (cursor_FreeCursor x)+ +data RecolorCursor = MkRecolorCursor{cursor_RecolorCursor ::+ CURSOR,+ fore_red_RecolorCursor :: Word16,+ fore_green_RecolorCursor :: Word16,+ fore_blue_RecolorCursor :: Word16,+ back_red_RecolorCursor :: Word16,+ back_green_RecolorCursor :: Word16,+ back_blue_RecolorCursor :: Word16}+ deriving (Show, Typeable)+ +instance Serialize RecolorCursor where+ serialize x+ = do putWord8 96+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (cursor_RecolorCursor x)+ serialize (fore_red_RecolorCursor x)+ serialize (fore_green_RecolorCursor x)+ serialize (fore_blue_RecolorCursor x)+ serialize (back_red_RecolorCursor x)+ serialize (back_green_RecolorCursor x)+ serialize (back_blue_RecolorCursor x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (cursor_RecolorCursor x) ++ size (fore_red_RecolorCursor x)+ + size (fore_green_RecolorCursor x)+ + size (fore_blue_RecolorCursor x)+ + size (back_red_RecolorCursor x)+ + size (back_green_RecolorCursor x)+ + size (back_blue_RecolorCursor x)+ +data QueryShapeOf = QueryShapeOfLargestCursor+ | QueryShapeOfFastestTile+ | QueryShapeOfFastestStipple+ +instance SimpleEnum QueryShapeOf where+ toValue QueryShapeOfLargestCursor{} = 0+ toValue QueryShapeOfFastestTile{} = 1+ toValue QueryShapeOfFastestStipple{} = 2+ fromValue 0 = QueryShapeOfLargestCursor+ fromValue 1 = QueryShapeOfFastestTile+ fromValue 2 = QueryShapeOfFastestStipple+ +data QueryBestSize = MkQueryBestSize{class_QueryBestSize :: Word8,+ drawable_QueryBestSize :: DRAWABLE,+ width_QueryBestSize :: Word16, height_QueryBestSize :: Word16}+ deriving (Show, Typeable)+ +instance Serialize QueryBestSize where+ serialize x+ = do putWord8 97+ serialize (class_QueryBestSize x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (drawable_QueryBestSize x)+ serialize (width_QueryBestSize x)+ serialize (height_QueryBestSize x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (class_QueryBestSize x) ++ size (drawable_QueryBestSize x)+ + size (width_QueryBestSize x)+ + size (height_QueryBestSize x)+ +data QueryBestSizeReply = MkQueryBestSizeReply{width_QueryBestSizeReply+ :: Word16,+ height_QueryBestSizeReply :: Word16}+ deriving (Show, Typeable)+ +instance Deserialize QueryBestSizeReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ width <- deserialize+ height <- deserialize+ let _ = isCard32 length+ return (MkQueryBestSizeReply width height)+ +data QueryExtension = MkQueryExtension{name_len_QueryExtension ::+ Word16,+ name_QueryExtension :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize QueryExtension where+ serialize x+ = do putWord8 98+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (name_len_QueryExtension x)+ putSkip 2+ serializeList (name_QueryExtension x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (name_len_QueryExtension x) + 2 ++ sum (map size (name_QueryExtension x))+ +data QueryExtensionReply = MkQueryExtensionReply{present_QueryExtensionReply+ :: Bool,+ major_opcode_QueryExtensionReply :: Word8,+ first_event_QueryExtensionReply :: Word8,+ first_error_QueryExtensionReply :: Word8}+ deriving (Show, Typeable)+ +instance Deserialize QueryExtensionReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ present <- deserialize+ major_opcode <- deserialize+ first_event <- deserialize+ first_error <- deserialize+ let _ = isCard32 length+ return+ (MkQueryExtensionReply present major_opcode first_event+ first_error)+ +data ListExtensions = MkListExtensions{}+ deriving (Show, Typeable)+ +instance Serialize ListExtensions where+ serialize x+ = do putWord8 99+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ putSkip (requiredPadding (size x))+ size x = 4+ +data ListExtensionsReply = MkListExtensionsReply{names_len_ListExtensionsReply+ :: Word8,+ names_ListExtensionsReply :: [STR]}+ deriving (Show, Typeable)+ +instance Deserialize ListExtensionsReply where+ deserialize+ = do skip 1+ names_len <- deserialize+ skip 2+ length <- deserialize+ skip 24+ names <- deserializeList (fromIntegral names_len)+ let _ = isCard32 length+ return (MkListExtensionsReply names_len names)+ +data ChangeKeyboardMapping = MkChangeKeyboardMapping{keycode_count_ChangeKeyboardMapping+ :: Word8,+ first_keycode_ChangeKeyboardMapping :: KEYCODE,+ keysyms_per_keycode_ChangeKeyboardMapping ::+ Word8,+ keysyms_ChangeKeyboardMapping :: [KEYSYM]}+ deriving (Show, Typeable)+ +instance Serialize ChangeKeyboardMapping where+ serialize x+ = do putWord8 100+ serialize (keycode_count_ChangeKeyboardMapping x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (first_keycode_ChangeKeyboardMapping x)+ serialize (keysyms_per_keycode_ChangeKeyboardMapping x)+ serializeList (keysyms_ChangeKeyboardMapping x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (keycode_count_ChangeKeyboardMapping x) ++ size (first_keycode_ChangeKeyboardMapping x)+ + size (keysyms_per_keycode_ChangeKeyboardMapping x)+ + sum (map size (keysyms_ChangeKeyboardMapping x))+ +data GetKeyboardMapping = MkGetKeyboardMapping{first_keycode_GetKeyboardMapping+ :: KEYCODE,+ count_GetKeyboardMapping :: Word8}+ deriving (Show, Typeable)+ +instance Serialize GetKeyboardMapping where+ serialize x+ = do putWord8 101+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (first_keycode_GetKeyboardMapping x)+ serialize (count_GetKeyboardMapping x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (first_keycode_GetKeyboardMapping x) ++ size (count_GetKeyboardMapping x)+ +data GetKeyboardMappingReply = MkGetKeyboardMappingReply{keysyms_per_keycode_GetKeyboardMappingReply+ :: Word8,+ keysyms_GetKeyboardMappingReply ::+ [KEYSYM]}+ deriving (Show, Typeable)+ +instance Deserialize GetKeyboardMappingReply where+ deserialize+ = do skip 1+ keysyms_per_keycode <- deserialize+ skip 2+ length <- deserialize+ skip 24+ keysyms <- deserializeList (fromIntegral length)+ let _ = isCard32 length+ return (MkGetKeyboardMappingReply keysyms_per_keycode keysyms)+ +data KB = KBKeyClickPercent+ | KBBellPercent+ | KBBellPitch+ | KBBellDuration+ | KBLed+ | KBLedMode+ | KBKey+ | KBAutoRepeatMode+ +instance BitEnum KB where+ toBit KBKeyClickPercent{} = 0+ toBit KBBellPercent{} = 1+ toBit KBBellPitch{} = 2+ toBit KBBellDuration{} = 3+ toBit KBLed{} = 4+ toBit KBLedMode{} = 5+ toBit KBKey{} = 6+ toBit KBAutoRepeatMode{} = 7+ fromBit 0 = KBKeyClickPercent+ fromBit 1 = KBBellPercent+ fromBit 2 = KBBellPitch+ fromBit 3 = KBBellDuration+ fromBit 4 = KBLed+ fromBit 5 = KBLedMode+ fromBit 6 = KBKey+ fromBit 7 = KBAutoRepeatMode+ +data LedMode = LedModeOff+ | LedModeOn+ +instance SimpleEnum LedMode where+ toValue LedModeOff{} = 0+ toValue LedModeOn{} = 1+ fromValue 0 = LedModeOff+ fromValue 1 = LedModeOn+ +data AutoRepeatMode = AutoRepeatModeOff+ | AutoRepeatModeOn+ | AutoRepeatModeDefault+ +instance SimpleEnum AutoRepeatMode where+ toValue AutoRepeatModeOff{} = 0+ toValue AutoRepeatModeOn{} = 1+ toValue AutoRepeatModeDefault{} = 2+ fromValue 0 = AutoRepeatModeOff+ fromValue 1 = AutoRepeatModeOn+ fromValue 2 = AutoRepeatModeDefault+ +data ChangeKeyboardControl = MkChangeKeyboardControl{value_ChangeKeyboardControl+ :: ValueParam Word32}+ deriving (Show, Typeable)+ +instance Serialize ChangeKeyboardControl where+ serialize x+ = do putWord8 102+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (value_ChangeKeyboardControl x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (value_ChangeKeyboardControl x)+ +data GetKeyboardControl = MkGetKeyboardControl{}+ deriving (Show, Typeable)+ +instance Serialize GetKeyboardControl where+ serialize x+ = do putWord8 103+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ putSkip (requiredPadding (size x))+ size x = 4+ +data GetKeyboardControlReply = MkGetKeyboardControlReply{global_auto_repeat_GetKeyboardControlReply+ :: Word8,+ led_mask_GetKeyboardControlReply :: Word32,+ key_click_percent_GetKeyboardControlReply+ :: Word8,+ bell_percent_GetKeyboardControlReply ::+ Word8,+ bell_pitch_GetKeyboardControlReply ::+ Word16,+ bell_duration_GetKeyboardControlReply ::+ Word16,+ auto_repeats_GetKeyboardControlReply ::+ [Word8]}+ deriving (Show, Typeable)+ +instance Deserialize GetKeyboardControlReply where+ deserialize+ = do skip 1+ global_auto_repeat <- deserialize+ skip 2+ length <- deserialize+ led_mask <- deserialize+ key_click_percent <- deserialize+ bell_percent <- deserialize+ bell_pitch <- deserialize+ bell_duration <- deserialize+ skip 2+ auto_repeats <- deserializeList (fromIntegral 32)+ let _ = isCard32 length+ return+ (MkGetKeyboardControlReply global_auto_repeat led_mask+ key_click_percent+ bell_percent+ bell_pitch+ bell_duration+ auto_repeats)+ +data Bell = MkBell{percent_Bell :: Int8}+ deriving (Show, Typeable)+ +instance Serialize Bell where+ serialize x+ = do putWord8 104+ serialize (percent_Bell x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ putSkip (requiredPadding (size x))+ size x = 3 + size (percent_Bell x)+ +data ChangePointerControl = MkChangePointerControl{acceleration_numerator_ChangePointerControl+ :: Int16,+ acceleration_denominator_ChangePointerControl ::+ Int16,+ threshold_ChangePointerControl :: Int16,+ do_acceleration_ChangePointerControl :: Bool,+ do_threshold_ChangePointerControl :: Bool}+ deriving (Show, Typeable)+ +instance Serialize ChangePointerControl where+ serialize x+ = do putWord8 105+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (acceleration_numerator_ChangePointerControl x)+ serialize (acceleration_denominator_ChangePointerControl x)+ serialize (threshold_ChangePointerControl x)+ serialize (do_acceleration_ChangePointerControl x)+ serialize (do_threshold_ChangePointerControl x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (acceleration_numerator_ChangePointerControl x) ++ size (acceleration_denominator_ChangePointerControl x)+ + size (threshold_ChangePointerControl x)+ + size (do_acceleration_ChangePointerControl x)+ + size (do_threshold_ChangePointerControl x)+ +data GetPointerControl = MkGetPointerControl{}+ deriving (Show, Typeable)+ +instance Serialize GetPointerControl where+ serialize x+ = do putWord8 106+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ putSkip (requiredPadding (size x))+ size x = 4+ +data GetPointerControlReply = MkGetPointerControlReply{acceleration_numerator_GetPointerControlReply+ :: Word16,+ acceleration_denominator_GetPointerControlReply+ :: Word16,+ threshold_GetPointerControlReply :: Word16}+ deriving (Show, Typeable)+ +instance Deserialize GetPointerControlReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ acceleration_numerator <- deserialize+ acceleration_denominator <- deserialize+ threshold <- deserialize+ skip 18+ let _ = isCard32 length+ return+ (MkGetPointerControlReply acceleration_numerator+ acceleration_denominator+ threshold)+ +data Blanking = BlankingNotPreferred+ | BlankingPreferred+ | BlankingDefault+ +instance SimpleEnum Blanking where+ toValue BlankingNotPreferred{} = 0+ toValue BlankingPreferred{} = 1+ toValue BlankingDefault{} = 2+ fromValue 0 = BlankingNotPreferred+ fromValue 1 = BlankingPreferred+ fromValue 2 = BlankingDefault+ +data Exposures = ExposuresNotAllowed+ | ExposuresAllowed+ | ExposuresDefault+ +instance SimpleEnum Exposures where+ toValue ExposuresNotAllowed{} = 0+ toValue ExposuresAllowed{} = 1+ toValue ExposuresDefault{} = 2+ fromValue 0 = ExposuresNotAllowed+ fromValue 1 = ExposuresAllowed+ fromValue 2 = ExposuresDefault+ +data SetScreenSaver = MkSetScreenSaver{timeout_SetScreenSaver ::+ Int16,+ interval_SetScreenSaver :: Int16,+ prefer_blanking_SetScreenSaver :: Word8,+ allow_exposures_SetScreenSaver :: Word8}+ deriving (Show, Typeable)+ +instance Serialize SetScreenSaver where+ serialize x+ = do putWord8 107+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (timeout_SetScreenSaver x)+ serialize (interval_SetScreenSaver x)+ serialize (prefer_blanking_SetScreenSaver x)+ serialize (allow_exposures_SetScreenSaver x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (timeout_SetScreenSaver x) ++ size (interval_SetScreenSaver x)+ + size (prefer_blanking_SetScreenSaver x)+ + size (allow_exposures_SetScreenSaver x)+ +data GetScreenSaver = MkGetScreenSaver{}+ deriving (Show, Typeable)+ +instance Serialize GetScreenSaver where+ serialize x+ = do putWord8 108+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ putSkip (requiredPadding (size x))+ size x = 4+ +data GetScreenSaverReply = MkGetScreenSaverReply{timeout_GetScreenSaverReply+ :: Word16,+ interval_GetScreenSaverReply :: Word16,+ prefer_blanking_GetScreenSaverReply :: Word8,+ allow_exposures_GetScreenSaverReply :: Word8}+ deriving (Show, Typeable)+ +instance Deserialize GetScreenSaverReply where+ deserialize+ = do skip 1+ skip 1+ skip 2+ length <- deserialize+ timeout <- deserialize+ interval <- deserialize+ prefer_blanking <- deserialize+ allow_exposures <- deserialize+ skip 18+ let _ = isCard32 length+ return+ (MkGetScreenSaverReply timeout interval prefer_blanking+ allow_exposures)+ +data HostMode = HostModeInsert+ | HostModeDelete+ +instance SimpleEnum HostMode where+ toValue HostModeInsert{} = 0+ toValue HostModeDelete{} = 1+ fromValue 0 = HostModeInsert+ fromValue 1 = HostModeDelete+ +data Family = FamilyInternet+ | FamilyDECnet+ | FamilyChaos+ | FamilyServerInterpreted+ | FamilyInternet6+ +instance SimpleEnum Family where+ toValue FamilyInternet{} = 0+ toValue FamilyDECnet{} = 1+ toValue FamilyChaos{} = 2+ toValue FamilyServerInterpreted{} = 5+ toValue FamilyInternet6{} = 6+ fromValue 0 = FamilyInternet+ fromValue 1 = FamilyDECnet+ fromValue 2 = FamilyChaos+ fromValue 5 = FamilyServerInterpreted+ fromValue 6 = FamilyInternet6+ +data ChangeHosts = MkChangeHosts{mode_ChangeHosts :: Word8,+ family_ChangeHosts :: Word8, address_len_ChangeHosts :: Word16,+ address_ChangeHosts :: [CChar]}+ deriving (Show, Typeable)+ +instance Serialize ChangeHosts where+ serialize x+ = do putWord8 109+ serialize (mode_ChangeHosts x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (family_ChangeHosts x)+ putSkip 1+ serialize (address_len_ChangeHosts x)+ serializeList (address_ChangeHosts x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (mode_ChangeHosts x) + size (family_ChangeHosts x) + 1 ++ size (address_len_ChangeHosts x)+ + sum (map size (address_ChangeHosts x))+ +data HOST = MkHOST{family_HOST :: Word8,+ address_len_HOST :: Word16, address_HOST :: [Word8]}+ deriving (Show, Typeable)+ +instance Serialize HOST where+ serialize x+ = do serialize (family_HOST x)+ putSkip 1+ serialize (address_len_HOST x)+ serializeList (address_HOST x)+ size x+ = size (family_HOST x) + 1 + size (address_len_HOST x) ++ sum (map size (address_HOST x))+ +instance Deserialize HOST where+ deserialize+ = do family <- deserialize+ skip 1+ address_len <- deserialize+ address <- deserializeList (fromIntegral address_len)+ return (MkHOST family address_len address)+ +data ListHosts = MkListHosts{}+ deriving (Show, Typeable)+ +instance Serialize ListHosts where+ serialize x+ = do putWord8 110+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ putSkip (requiredPadding (size x))+ size x = 4+ +data ListHostsReply = MkListHostsReply{mode_ListHostsReply ::+ Word8,+ hosts_len_ListHostsReply :: Word16,+ hosts_ListHostsReply :: [HOST]}+ deriving (Show, Typeable)+ +instance Deserialize ListHostsReply where+ deserialize+ = do skip 1+ mode <- deserialize+ skip 2+ length <- deserialize+ hosts_len <- deserialize+ skip 22+ hosts <- deserializeList (fromIntegral hosts_len)+ let _ = isCard32 length+ return (MkListHostsReply mode hosts_len hosts)+ +data AccessControl = AccessControlDisable+ | AccessControlEnable+ +instance SimpleEnum AccessControl where+ toValue AccessControlDisable{} = 0+ toValue AccessControlEnable{} = 1+ fromValue 0 = AccessControlDisable+ fromValue 1 = AccessControlEnable+ +data SetAccessControl = MkSetAccessControl{mode_SetAccessControl ::+ Word8}+ deriving (Show, Typeable)+ +instance Serialize SetAccessControl where+ serialize x+ = do putWord8 111+ serialize (mode_SetAccessControl x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ putSkip (requiredPadding (size x))+ size x = 3 + size (mode_SetAccessControl x)+ +data CloseDown = CloseDownDestroyAll+ | CloseDownRetainPermanent+ | CloseDownRetainTemporary+ +instance SimpleEnum CloseDown where+ toValue CloseDownDestroyAll{} = 0+ toValue CloseDownRetainPermanent{} = 1+ toValue CloseDownRetainTemporary{} = 2+ fromValue 0 = CloseDownDestroyAll+ fromValue 1 = CloseDownRetainPermanent+ fromValue 2 = CloseDownRetainTemporary+ +data SetCloseDownMode = MkSetCloseDownMode{mode_SetCloseDownMode ::+ Word8}+ deriving (Show, Typeable)+ +instance Serialize SetCloseDownMode where+ serialize x+ = do putWord8 112+ serialize (mode_SetCloseDownMode x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ putSkip (requiredPadding (size x))+ size x = 3 + size (mode_SetCloseDownMode x)+ +data Kill = KillAllTemporary+ +instance SimpleEnum Kill where+ toValue KillAllTemporary{} = 0+ fromValue 0 = KillAllTemporary+ +data KillClient = MkKillClient{resource_KillClient :: Word32}+ deriving (Show, Typeable)+ +instance Serialize KillClient where+ serialize x+ = do putWord8 113+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (resource_KillClient x)+ putSkip (requiredPadding (size x))+ size x = 3 + 1 + size (resource_KillClient x)+ +data RotateProperties = MkRotateProperties{window_RotateProperties+ :: WINDOW,+ atoms_len_RotateProperties :: Word16,+ delta_RotateProperties :: Int16,+ atoms_RotateProperties :: [ATOM]}+ deriving (Show, Typeable)+ +instance Serialize RotateProperties where+ serialize x+ = do putWord8 114+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serialize (window_RotateProperties x)+ serialize (atoms_len_RotateProperties x)+ serialize (delta_RotateProperties x)+ serializeList (atoms_RotateProperties x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + 1 + size (window_RotateProperties x) ++ size (atoms_len_RotateProperties x)+ + size (delta_RotateProperties x)+ + sum (map size (atoms_RotateProperties x))+ +data ScreenSaver = ScreenSaverReset+ | ScreenSaverActive+ +instance SimpleEnum ScreenSaver where+ toValue ScreenSaverReset{} = 0+ toValue ScreenSaverActive{} = 1+ fromValue 0 = ScreenSaverReset+ fromValue 1 = ScreenSaverActive+ +data ForceScreenSaver = MkForceScreenSaver{mode_ForceScreenSaver ::+ Word8}+ deriving (Show, Typeable)+ +instance Serialize ForceScreenSaver where+ serialize x+ = do putWord8 115+ serialize (mode_ForceScreenSaver x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ putSkip (requiredPadding (size x))+ size x = 3 + size (mode_ForceScreenSaver x)+ +data MappingStatus = MappingStatusSuccess+ | MappingStatusBusy+ | MappingStatusFailure+ +instance SimpleEnum MappingStatus where+ toValue MappingStatusSuccess{} = 0+ toValue MappingStatusBusy{} = 1+ toValue MappingStatusFailure{} = 2+ fromValue 0 = MappingStatusSuccess+ fromValue 1 = MappingStatusBusy+ fromValue 2 = MappingStatusFailure+ +data SetPointerMapping = MkSetPointerMapping{map_len_SetPointerMapping+ :: Word8,+ map_SetPointerMapping :: [Word8]}+ deriving (Show, Typeable)+ +instance Serialize SetPointerMapping where+ serialize x+ = do putWord8 116+ serialize (map_len_SetPointerMapping x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serializeList (map_SetPointerMapping x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (map_len_SetPointerMapping x) ++ sum (map size (map_SetPointerMapping x))+ +data SetPointerMappingReply = MkSetPointerMappingReply{status_SetPointerMappingReply+ :: Word8}+ deriving (Show, Typeable)+ +instance Deserialize SetPointerMappingReply where+ deserialize+ = do skip 1+ status <- deserialize+ skip 2+ length <- deserialize+ let _ = isCard32 length+ return (MkSetPointerMappingReply status)+ +data GetPointerMapping = MkGetPointerMapping{}+ deriving (Show, Typeable)+ +instance Serialize GetPointerMapping where+ serialize x+ = do putWord8 117+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ putSkip (requiredPadding (size x))+ size x = 4+ +data GetPointerMappingReply = MkGetPointerMappingReply{map_len_GetPointerMappingReply+ :: Word8,+ map_GetPointerMappingReply :: [Word8]}+ deriving (Show, Typeable)+ +instance Deserialize GetPointerMappingReply where+ deserialize+ = do skip 1+ map_len <- deserialize+ skip 2+ length <- deserialize+ skip 24+ map <- deserializeList (fromIntegral map_len)+ let _ = isCard32 length+ return (MkGetPointerMappingReply map_len map)+ +data MapIndex = MapIndexShift+ | MapIndexLock+ | MapIndexControl+ | MapIndex1+ | MapIndex2+ | MapIndex3+ | MapIndex4+ | MapIndex5+ +instance SimpleEnum MapIndex where+ toValue MapIndexShift{} = 0+ toValue MapIndexLock{} = 1+ toValue MapIndexControl{} = 2+ toValue MapIndex1{} = 3+ toValue MapIndex2{} = 4+ toValue MapIndex3{} = 5+ toValue MapIndex4{} = 6+ toValue MapIndex5{} = 7+ fromValue 0 = MapIndexShift+ fromValue 1 = MapIndexLock+ fromValue 2 = MapIndexControl+ fromValue 3 = MapIndex1+ fromValue 4 = MapIndex2+ fromValue 5 = MapIndex3+ fromValue 6 = MapIndex4+ fromValue 7 = MapIndex5+ +data SetModifierMapping = MkSetModifierMapping{keycodes_per_modifier_SetModifierMapping+ :: Word8,+ keycodes_SetModifierMapping :: [KEYCODE]}+ deriving (Show, Typeable)+ +instance Serialize SetModifierMapping where+ serialize x+ = do putWord8 118+ serialize (keycodes_per_modifier_SetModifierMapping x)+ serialize (convertBytesToRequestSize (size x) :: Int16)+ serializeList (keycodes_SetModifierMapping x)+ putSkip (requiredPadding (size x))+ size x+ = 3 + size (keycodes_per_modifier_SetModifierMapping x) ++ sum (map size (keycodes_SetModifierMapping x))+ +data SetModifierMappingReply = MkSetModifierMappingReply{status_SetModifierMappingReply+ :: Word8}+ deriving (Show, Typeable)+ +instance Deserialize SetModifierMappingReply where+ deserialize+ = do skip 1+ status <- deserialize+ skip 2+ length <- deserialize+ let _ = isCard32 length+ return (MkSetModifierMappingReply status)+ +data GetModifierMapping = MkGetModifierMapping{}+ deriving (Show, Typeable)+ +instance Serialize GetModifierMapping where+ serialize x+ = do putWord8 119+ putSkip 1+ serialize (convertBytesToRequestSize (size x) :: Int16)+ putSkip (requiredPadding (size x))+ size x = 4+ +data GetModifierMappingReply = MkGetModifierMappingReply{keycodes_per_modifier_GetModifierMappingReply+ :: Word8, keycodes_GetModifierMappingReply :: [KEYCODE]} deriving (Show, Typeable)
patched/Graphics/XHB/Gen/Xv.hs view
@@ -12,6 +12,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -30,44 +33,45 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt QueryExtensionReply) queryExtension c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryExtension putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryAdaptors :: Graphics.XHB.Connection.Types.Connection -> WINDOW -> IO (Receipt QueryAdaptorsReply) queryAdaptors c window- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryAdaptors window putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryEncodings :: Graphics.XHB.Connection.Types.Connection -> PORT -> IO (Receipt QueryEncodingsReply) queryEncodings c port- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryEncodings port putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt grabPort :: Graphics.XHB.Connection.Types.Connection ->- PORT -> TIMESTAMP -> IO (Receipt GrabPortReply)+ PORT -> TIMESTAMP -> IO (Receipt Word8) grabPort c port time- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (result_GrabPortReply `fmap` deserialize)) let req = MkGrabPort port time putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt ungrabPort ::@@ -118,7 +122,7 @@ selectVideoNotify :: Graphics.XHB.Connection.Types.Connection ->- DRAWABLE -> BOOL -> IO ()+ DRAWABLE -> Bool -> IO () selectVideoNotify c drawable onoff = do let req = MkSelectVideoNotify drawable onoff putAction <- serializeExtensionRequest c req@@ -126,7 +130,7 @@ sendRequest c chunk selectPortNotify ::- Graphics.XHB.Connection.Types.Connection -> PORT -> BOOL -> IO ()+ Graphics.XHB.Connection.Types.Connection -> PORT -> Bool -> IO () selectPortNotify c port onoff = do let req = MkSelectPortNotify port onoff putAction <- serializeExtensionRequest c req@@ -137,10 +141,10 @@ Graphics.XHB.Connection.Types.Connection -> QueryBestSize -> IO (Receipt QueryBestSizeReply) queryBestSize c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt setPortAttribute ::@@ -153,45 +157,46 @@ getPortAttribute :: Graphics.XHB.Connection.Types.Connection ->- PORT -> ATOM -> IO (Receipt GetPortAttributeReply)+ PORT -> ATOM -> IO (Receipt Int32) getPortAttribute c port attribute- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (value_GetPortAttributeReply `fmap` deserialize)) let req = MkGetPortAttribute port attribute putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryPortAttributes :: Graphics.XHB.Connection.Types.Connection -> PORT -> IO (Receipt QueryPortAttributesReply) queryPortAttributes c port- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryPortAttributes port putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt listImageFormats :: Graphics.XHB.Connection.Types.Connection -> PORT -> IO (Receipt ListImageFormatsReply) listImageFormats c port- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkListImageFormats port putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt queryImageAttributes :: Graphics.XHB.Connection.Types.Connection -> QueryImageAttributes -> IO (Receipt QueryImageAttributesReply) queryImageAttributes c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt putImage ::
patched/Graphics/XHB/Gen/Xv/Types.hs view
@@ -18,6 +18,7 @@ where import Prelude hiding (Rational) import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -98,8 +99,8 @@ fromBit 0 = AttributeFlagGettable fromBit 1 = AttributeFlagSettable -data Rational = MkRational{numerator_Rational :: INT32,- denominator_Rational :: INT32}+data Rational = MkRational{numerator_Rational :: Int32,+ denominator_Rational :: Int32} deriving (Show, Typeable) instance Serialize Rational where@@ -116,7 +117,7 @@ return (MkRational numerator denominator) data Format = MkFormat{visual_Format :: VISUALID,- depth_Format :: CARD8}+ depth_Format :: Word8} deriving (Show, Typeable) instance Serialize Format where@@ -134,8 +135,8 @@ return (MkFormat visual depth) data AdaptorInfo = MkAdaptorInfo{base_id_AdaptorInfo :: PORT,- name_size_AdaptorInfo :: CARD16, num_ports_AdaptorInfo :: CARD16,- num_formats_AdaptorInfo :: CARD16, type_AdaptorInfo :: CARD8,+ name_size_AdaptorInfo :: Word16, num_ports_AdaptorInfo :: Word16,+ num_formats_AdaptorInfo :: Word16, type_AdaptorInfo :: Word8, name_AdaptorInfo :: [CChar], formats_AdaptorInfo :: [Format]} deriving (Show, Typeable) @@ -174,8 +175,8 @@ data EncodingInfo = MkEncodingInfo{encoding_EncodingInfo :: ENCODING,- name_size_EncodingInfo :: CARD16, width_EncodingInfo :: CARD16,- height_EncodingInfo :: CARD16, rate_EncodingInfo :: Rational,+ name_size_EncodingInfo :: Word16, width_EncodingInfo :: Word16,+ height_EncodingInfo :: Word16, rate_EncodingInfo :: Rational, name_EncodingInfo :: [CChar]} deriving (Show, Typeable) @@ -207,10 +208,10 @@ name <- deserializeList (fromIntegral name_size) return (MkEncodingInfo encoding name_size width height rate name) -data Image = MkImage{id_Image :: CARD32, width_Image :: CARD16,- height_Image :: CARD16, data_size_Image :: CARD32,- num_planes_Image :: CARD32, pitches_Image :: [CARD32],- offsets_Image :: [CARD32], data_Image :: [CARD8]}+data Image = MkImage{id_Image :: Word32, width_Image :: Word16,+ height_Image :: Word16, data_size_Image :: Word32,+ num_planes_Image :: Word32, pitches_Image :: [Word32],+ offsets_Image :: [Word32], data_Image :: [Word8]} deriving (Show, Typeable) instance Serialize Image where@@ -245,9 +246,9 @@ (MkImage id width height data_size num_planes pitches offsets data_) -data AttributeInfo = MkAttributeInfo{flags_AttributeInfo :: CARD32,- min_AttributeInfo :: INT32, max_AttributeInfo :: INT32,- size_AttributeInfo :: CARD32, name_AttributeInfo :: [CChar]}+data AttributeInfo = MkAttributeInfo{flags_AttributeInfo :: Word32,+ min_AttributeInfo :: Int32, max_AttributeInfo :: Int32,+ size_AttributeInfo :: Word32, name_AttributeInfo :: [CChar]} deriving (Show, Typeable) instance Serialize AttributeInfo where@@ -273,28 +274,28 @@ return (MkAttributeInfo flags min max size name) data ImageFormatInfo = MkImageFormatInfo{id_ImageFormatInfo ::- CARD32,- type_ImageFormatInfo :: CARD8,- byte_order_ImageFormatInfo :: CARD8,- guid_ImageFormatInfo :: [CARD8],- bpp_ImageFormatInfo :: CARD8,- num_planes_ImageFormatInfo :: CARD8,- depth_ImageFormatInfo :: CARD8,- red_mask_ImageFormatInfo :: CARD32,- green_mask_ImageFormatInfo :: CARD32,- blue_mask_ImageFormatInfo :: CARD32,- format_ImageFormatInfo :: CARD8,- y_sample_bits_ImageFormatInfo :: CARD32,- u_sample_bits_ImageFormatInfo :: CARD32,- v_sample_bits_ImageFormatInfo :: CARD32,- vhorz_y_period_ImageFormatInfo :: CARD32,- vhorz_u_period_ImageFormatInfo :: CARD32,- vhorz_v_period_ImageFormatInfo :: CARD32,- vvert_y_period_ImageFormatInfo :: CARD32,- vvert_u_period_ImageFormatInfo :: CARD32,- vvert_v_period_ImageFormatInfo :: CARD32,- vcomp_order_ImageFormatInfo :: [CARD8],- vscanline_order_ImageFormatInfo :: CARD8}+ Word32,+ type_ImageFormatInfo :: Word8,+ byte_order_ImageFormatInfo :: Word8,+ guid_ImageFormatInfo :: [Word8],+ bpp_ImageFormatInfo :: Word8,+ num_planes_ImageFormatInfo :: Word8,+ depth_ImageFormatInfo :: Word8,+ red_mask_ImageFormatInfo :: Word32,+ green_mask_ImageFormatInfo :: Word32,+ blue_mask_ImageFormatInfo :: Word32,+ format_ImageFormatInfo :: Word8,+ y_sample_bits_ImageFormatInfo :: Word32,+ u_sample_bits_ImageFormatInfo :: Word32,+ v_sample_bits_ImageFormatInfo :: Word32,+ vhorz_y_period_ImageFormatInfo :: Word32,+ vhorz_u_period_ImageFormatInfo :: Word32,+ vhorz_v_period_ImageFormatInfo :: Word32,+ vvert_y_period_ImageFormatInfo :: Word32,+ vvert_u_period_ImageFormatInfo :: Word32,+ vvert_v_period_ImageFormatInfo :: Word32,+ vcomp_order_ImageFormatInfo :: [Word8],+ vscanline_order_ImageFormatInfo :: Word8} deriving (Show, Typeable) instance Serialize ImageFormatInfo where@@ -401,7 +402,7 @@ vcomp_order vscanline_order) -data VideoNotify = MkVideoNotify{reason_VideoNotify :: BYTE,+data VideoNotify = MkVideoNotify{reason_VideoNotify :: Word8, time_VideoNotify :: TIMESTAMP, drawable_VideoNotify :: DRAWABLE, port_VideoNotify :: PORT} deriving (Show, Typeable)@@ -420,7 +421,7 @@ data PortNotify = MkPortNotify{time_PortNotify :: TIMESTAMP, port_PortNotify :: PORT, attribute_PortNotify :: ATOM,- value_PortNotify :: INT32}+ value_PortNotify :: Int32} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event PortNotify@@ -445,12 +446,12 @@ = do putWord8 extOpCode putWord8 0 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data QueryExtensionReply = MkQueryExtensionReply{major_QueryExtensionReply- :: CARD16,- minor_QueryExtensionReply :: CARD16}+ :: Word16,+ minor_QueryExtensionReply :: Word16} deriving (Show, Typeable) instance Deserialize QueryExtensionReply where@@ -474,12 +475,12 @@ = do putWord8 extOpCode putWord8 1 let size__ = 4 + size (window_QueryAdaptors x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (window_QueryAdaptors x) putSkip (requiredPadding size__) data QueryAdaptorsReply = MkQueryAdaptorsReply{num_adaptors_QueryAdaptorsReply- :: CARD16,+ :: Word16, info_QueryAdaptorsReply :: [AdaptorInfo]} deriving (Show, Typeable) @@ -504,12 +505,12 @@ = do putWord8 extOpCode putWord8 2 let size__ = 4 + size (port_QueryEncodings x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_QueryEncodings x) putSkip (requiredPadding size__) data QueryEncodingsReply = MkQueryEncodingsReply{num_encodings_QueryEncodingsReply- :: CARD16,+ :: Word16, info_QueryEncodingsReply :: [EncodingInfo]} deriving (Show, Typeable) @@ -535,12 +536,12 @@ = do putWord8 extOpCode putWord8 3 let size__ = 4 + size (port_GrabPort x) + size (time_GrabPort x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_GrabPort x) serialize (time_GrabPort x) putSkip (requiredPadding size__) -data GrabPortReply = MkGrabPortReply{result_GrabPortReply :: BYTE}+data GrabPortReply = MkGrabPortReply{result_GrabPortReply :: Word8} deriving (Show, Typeable) instance Deserialize GrabPortReply where@@ -563,17 +564,17 @@ putWord8 4 let size__ = 4 + size (port_UngrabPort x) + size (time_UngrabPort x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_UngrabPort x) serialize (time_UngrabPort x) putSkip (requiredPadding size__) data PutVideo = MkPutVideo{port_PutVideo :: PORT, drawable_PutVideo :: DRAWABLE, gc_PutVideo :: GCONTEXT,- vid_x_PutVideo :: INT16, vid_y_PutVideo :: INT16,- vid_w_PutVideo :: CARD16, vid_h_PutVideo :: CARD16,- drw_x_PutVideo :: INT16, drw_y_PutVideo :: INT16,- drw_w_PutVideo :: CARD16, drw_h_PutVideo :: CARD16}+ vid_x_PutVideo :: Int16, vid_y_PutVideo :: Int16,+ vid_w_PutVideo :: Word16, vid_h_PutVideo :: Word16,+ drw_x_PutVideo :: Int16, drw_y_PutVideo :: Int16,+ drw_w_PutVideo :: Word16, drw_h_PutVideo :: Word16} deriving (Show, Typeable) instance ExtensionRequest PutVideo where@@ -592,7 +593,7 @@ + size (drw_y_PutVideo x) + size (drw_w_PutVideo x) + size (drw_h_PutVideo x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_PutVideo x) serialize (drawable_PutVideo x) serialize (gc_PutVideo x)@@ -608,10 +609,10 @@ data PutStill = MkPutStill{port_PutStill :: PORT, drawable_PutStill :: DRAWABLE, gc_PutStill :: GCONTEXT,- vid_x_PutStill :: INT16, vid_y_PutStill :: INT16,- vid_w_PutStill :: CARD16, vid_h_PutStill :: CARD16,- drw_x_PutStill :: INT16, drw_y_PutStill :: INT16,- drw_w_PutStill :: CARD16, drw_h_PutStill :: CARD16}+ vid_x_PutStill :: Int16, vid_y_PutStill :: Int16,+ vid_w_PutStill :: Word16, vid_h_PutStill :: Word16,+ drw_x_PutStill :: Int16, drw_y_PutStill :: Int16,+ drw_w_PutStill :: Word16, drw_h_PutStill :: Word16} deriving (Show, Typeable) instance ExtensionRequest PutStill where@@ -630,7 +631,7 @@ + size (drw_y_PutStill x) + size (drw_w_PutStill x) + size (drw_h_PutStill x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_PutStill x) serialize (drawable_PutStill x) serialize (gc_PutStill x)@@ -646,10 +647,10 @@ data GetVideo = MkGetVideo{port_GetVideo :: PORT, drawable_GetVideo :: DRAWABLE, gc_GetVideo :: GCONTEXT,- vid_x_GetVideo :: INT16, vid_y_GetVideo :: INT16,- vid_w_GetVideo :: CARD16, vid_h_GetVideo :: CARD16,- drw_x_GetVideo :: INT16, drw_y_GetVideo :: INT16,- drw_w_GetVideo :: CARD16, drw_h_GetVideo :: CARD16}+ vid_x_GetVideo :: Int16, vid_y_GetVideo :: Int16,+ vid_w_GetVideo :: Word16, vid_h_GetVideo :: Word16,+ drw_x_GetVideo :: Int16, drw_y_GetVideo :: Int16,+ drw_w_GetVideo :: Word16, drw_h_GetVideo :: Word16} deriving (Show, Typeable) instance ExtensionRequest GetVideo where@@ -668,7 +669,7 @@ + size (drw_y_GetVideo x) + size (drw_w_GetVideo x) + size (drw_h_GetVideo x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_GetVideo x) serialize (drawable_GetVideo x) serialize (gc_GetVideo x)@@ -684,10 +685,10 @@ data GetStill = MkGetStill{port_GetStill :: PORT, drawable_GetStill :: DRAWABLE, gc_GetStill :: GCONTEXT,- vid_x_GetStill :: INT16, vid_y_GetStill :: INT16,- vid_w_GetStill :: CARD16, vid_h_GetStill :: CARD16,- drw_x_GetStill :: INT16, drw_y_GetStill :: INT16,- drw_w_GetStill :: CARD16, drw_h_GetStill :: CARD16}+ vid_x_GetStill :: Int16, vid_y_GetStill :: Int16,+ vid_w_GetStill :: Word16, vid_h_GetStill :: Word16,+ drw_x_GetStill :: Int16, drw_y_GetStill :: Int16,+ drw_w_GetStill :: Word16, drw_h_GetStill :: Word16} deriving (Show, Typeable) instance ExtensionRequest GetStill where@@ -706,7 +707,7 @@ + size (drw_y_GetStill x) + size (drw_w_GetStill x) + size (drw_h_GetStill x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_GetStill x) serialize (drawable_GetStill x) serialize (gc_GetStill x)@@ -731,14 +732,14 @@ putWord8 9 let size__ = 4 + size (port_StopVideo x) + size (drawable_StopVideo x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_StopVideo x) serialize (drawable_StopVideo x) putSkip (requiredPadding size__) data SelectVideoNotify = MkSelectVideoNotify{drawable_SelectVideoNotify :: DRAWABLE,- onoff_SelectVideoNotify :: BOOL}+ onoff_SelectVideoNotify :: Bool} deriving (Show, Typeable) instance ExtensionRequest SelectVideoNotify where@@ -750,7 +751,7 @@ = 4 + size (drawable_SelectVideoNotify x) + size (onoff_SelectVideoNotify x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (drawable_SelectVideoNotify x) serialize (onoff_SelectVideoNotify x) putSkip 3@@ -758,7 +759,7 @@ data SelectPortNotify = MkSelectPortNotify{port_SelectPortNotify :: PORT,- onoff_SelectPortNotify :: BOOL}+ onoff_SelectPortNotify :: Bool} deriving (Show, Typeable) instance ExtensionRequest SelectPortNotify where@@ -770,16 +771,16 @@ = 4 + size (port_SelectPortNotify x) + size (onoff_SelectPortNotify x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_SelectPortNotify x) serialize (onoff_SelectPortNotify x) putSkip 3 putSkip (requiredPadding size__) data QueryBestSize = MkQueryBestSize{port_QueryBestSize :: PORT,- vid_w_QueryBestSize :: CARD16, vid_h_QueryBestSize :: CARD16,- drw_w_QueryBestSize :: CARD16, drw_h_QueryBestSize :: CARD16,- motion_QueryBestSize :: BOOL}+ vid_w_QueryBestSize :: Word16, vid_h_QueryBestSize :: Word16,+ drw_w_QueryBestSize :: Word16, drw_h_QueryBestSize :: Word16,+ motion_QueryBestSize :: Bool} deriving (Show, Typeable) instance ExtensionRequest QueryBestSize where@@ -794,7 +795,7 @@ + size (drw_h_QueryBestSize x) + size (motion_QueryBestSize x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_QueryBestSize x) serialize (vid_w_QueryBestSize x) serialize (vid_h_QueryBestSize x)@@ -805,8 +806,8 @@ putSkip (requiredPadding size__) data QueryBestSizeReply = MkQueryBestSizeReply{actual_width_QueryBestSizeReply- :: CARD16,- actual_height_QueryBestSizeReply :: CARD16}+ :: Word16,+ actual_height_QueryBestSizeReply :: Word16} deriving (Show, Typeable) instance Deserialize QueryBestSizeReply where@@ -823,7 +824,7 @@ data SetPortAttribute = MkSetPortAttribute{port_SetPortAttribute :: PORT, attribute_SetPortAttribute :: ATOM,- value_SetPortAttribute :: INT32}+ value_SetPortAttribute :: Int32} deriving (Show, Typeable) instance ExtensionRequest SetPortAttribute where@@ -835,7 +836,7 @@ = 4 + size (port_SetPortAttribute x) + size (attribute_SetPortAttribute x) + size (value_SetPortAttribute x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_SetPortAttribute x) serialize (attribute_SetPortAttribute x) serialize (value_SetPortAttribute x)@@ -854,13 +855,13 @@ let size__ = 4 + size (port_GetPortAttribute x) + size (attribute_GetPortAttribute x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_GetPortAttribute x) serialize (attribute_GetPortAttribute x) putSkip (requiredPadding size__) data GetPortAttributeReply = MkGetPortAttributeReply{value_GetPortAttributeReply- :: INT32}+ :: Int32} deriving (Show, Typeable) instance Deserialize GetPortAttributeReply where@@ -883,14 +884,14 @@ = do putWord8 extOpCode putWord8 15 let size__ = 4 + size (port_QueryPortAttributes x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_QueryPortAttributes x) putSkip (requiredPadding size__) data QueryPortAttributesReply = MkQueryPortAttributesReply{num_attributes_QueryPortAttributesReply- :: CARD32,+ :: Word32, text_size_QueryPortAttributesReply ::- CARD32,+ Word32, attributes_QueryPortAttributesReply :: [AttributeInfo]} deriving (Show, Typeable)@@ -919,12 +920,12 @@ = do putWord8 extOpCode putWord8 16 let size__ = 4 + size (port_ListImageFormats x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_ListImageFormats x) putSkip (requiredPadding size__) data ListImageFormatsReply = MkListImageFormatsReply{num_formats_ListImageFormatsReply- :: CARD32,+ :: Word32, format_ListImageFormatsReply :: [ImageFormatInfo]} deriving (Show, Typeable)@@ -943,9 +944,9 @@ data QueryImageAttributes = MkQueryImageAttributes{port_QueryImageAttributes :: PORT,- id_QueryImageAttributes :: CARD32,- width_QueryImageAttributes :: CARD16,- height_QueryImageAttributes :: CARD16}+ id_QueryImageAttributes :: Word32,+ width_QueryImageAttributes :: Word16,+ height_QueryImageAttributes :: Word16} deriving (Show, Typeable) instance ExtensionRequest QueryImageAttributes where@@ -958,7 +959,7 @@ size (id_QueryImageAttributes x) + size (width_QueryImageAttributes x) + size (height_QueryImageAttributes x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_QueryImageAttributes x) serialize (id_QueryImageAttributes x) serialize (width_QueryImageAttributes x)@@ -966,17 +967,17 @@ putSkip (requiredPadding size__) data QueryImageAttributesReply = MkQueryImageAttributesReply{num_planes_QueryImageAttributesReply- :: CARD32,+ :: Word32, data_size_QueryImageAttributesReply ::- CARD32,+ Word32, width_QueryImageAttributesReply ::- CARD16,+ Word16, height_QueryImageAttributesReply ::- CARD16,+ Word16, pitches_QueryImageAttributesReply ::- [CARD32],+ [Word32], offsets_QueryImageAttributesReply ::- [CARD32]}+ [Word32]} deriving (Show, Typeable) instance Deserialize QueryImageAttributesReply where@@ -1000,12 +1001,12 @@ data PutImage = MkPutImage{port_PutImage :: PORT, drawable_PutImage :: DRAWABLE, gc_PutImage :: GCONTEXT,- id_PutImage :: CARD32, src_x_PutImage :: INT16,- src_y_PutImage :: INT16, src_w_PutImage :: CARD16,- src_h_PutImage :: CARD16, drw_x_PutImage :: INT16,- drw_y_PutImage :: INT16, drw_w_PutImage :: CARD16,- drw_h_PutImage :: CARD16, width_PutImage :: CARD16,- height_PutImage :: CARD16, data_PutImage :: [CARD8]}+ id_PutImage :: Word32, src_x_PutImage :: Int16,+ src_y_PutImage :: Int16, src_w_PutImage :: Word16,+ src_h_PutImage :: Word16, drw_x_PutImage :: Int16,+ drw_y_PutImage :: Int16, drw_w_PutImage :: Word16,+ drw_h_PutImage :: Word16, width_PutImage :: Word16,+ height_PutImage :: Word16, data_PutImage :: [Word8]} deriving (Show, Typeable) instance ExtensionRequest PutImage where@@ -1028,7 +1029,7 @@ + size (width_PutImage x) + size (height_PutImage x) + sum (map size (data_PutImage x))- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_PutImage x) serialize (drawable_PutImage x) serialize (gc_PutImage x)@@ -1048,13 +1049,13 @@ data ShmPutImage = MkShmPutImage{port_ShmPutImage :: PORT, drawable_ShmPutImage :: DRAWABLE, gc_ShmPutImage :: GCONTEXT,- shmseg_ShmPutImage :: SEG, id_ShmPutImage :: CARD32,- offset_ShmPutImage :: CARD32, src_x_ShmPutImage :: INT16,- src_y_ShmPutImage :: INT16, src_w_ShmPutImage :: CARD16,- src_h_ShmPutImage :: CARD16, drw_x_ShmPutImage :: INT16,- drw_y_ShmPutImage :: INT16, drw_w_ShmPutImage :: CARD16,- drw_h_ShmPutImage :: CARD16, width_ShmPutImage :: CARD16,- height_ShmPutImage :: CARD16, send_event_ShmPutImage :: CARD8}+ shmseg_ShmPutImage :: SEG, id_ShmPutImage :: Word32,+ offset_ShmPutImage :: Word32, src_x_ShmPutImage :: Int16,+ src_y_ShmPutImage :: Int16, src_w_ShmPutImage :: Word16,+ src_h_ShmPutImage :: Word16, drw_x_ShmPutImage :: Int16,+ drw_y_ShmPutImage :: Int16, drw_w_ShmPutImage :: Word16,+ drw_h_ShmPutImage :: Word16, width_ShmPutImage :: Word16,+ height_ShmPutImage :: Word16, send_event_ShmPutImage :: Word8} deriving (Show, Typeable) instance ExtensionRequest ShmPutImage where@@ -1080,7 +1081,7 @@ + size (height_ShmPutImage x) + size (send_event_ShmPutImage x) + 3- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_ShmPutImage x) serialize (drawable_ShmPutImage x) serialize (gc_ShmPutImage x)
patched/Graphics/XHB/Gen/XvMC.hs view
@@ -10,6 +10,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xv.Types@@ -23,32 +26,32 @@ Graphics.XHB.Connection.Types.Connection -> IO (Receipt QueryVersionReply) queryVersion c- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkQueryVersion putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt listSurfaceTypes :: Graphics.XHB.Connection.Types.Connection -> PORT -> IO (Receipt ListSurfaceTypesReply) listSurfaceTypes c port_id- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkListSurfaceTypes port_id putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt createContext :: Graphics.XHB.Connection.Types.Connection -> CreateContext -> IO (Receipt CreateContextReply) createContext c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt destroyContext ::@@ -61,13 +64,14 @@ createSurface :: Graphics.XHB.Connection.Types.Connection ->- SURFACE -> CONTEXT -> IO (Receipt CreateSurfaceReply)+ SURFACE -> CONTEXT -> IO (Receipt [Word32]) createSurface c surface_id context_id- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newEmptyReceipt+ (runGet (priv_data_CreateSurfaceReply `fmap` deserialize)) let req = MkCreateSurface surface_id context_id putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt destroySurface ::@@ -82,10 +86,10 @@ Graphics.XHB.Connection.Types.Connection -> CreateSubpicture -> IO (Receipt CreateSubpictureReply) createSubpicture c req- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt destroySubpicture ::@@ -100,9 +104,9 @@ Graphics.XHB.Connection.Types.Connection -> PORT -> SURFACE -> IO (Receipt ListSubpictureTypesReply) listSubpictureTypes c port_id surface_id- = do receipt <- newEmptyReceiptIO+ = do (receipt, rReceipt) <- newDeserReceipt let req = MkListSubpictureTypes port_id surface_id putAction <- serializeExtensionRequest c req let chunk = runPut putAction- sendRequestWithReply c chunk receipt+ sendRequestWithReply c chunk rReceipt return receipt
patched/Graphics/XHB/Gen/XvMC/Types.hs view
@@ -8,6 +8,7 @@ ListSubpictureTypes(..), ListSubpictureTypesReply(..)) where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -38,11 +39,11 @@ deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike) data SurfaceInfo = MkSurfaceInfo{id_SurfaceInfo :: SURFACE,- chroma_format_SurfaceInfo :: CARD16, pad0_SurfaceInfo :: CARD16,- max_width_SurfaceInfo :: CARD16, max_height_SurfaceInfo :: CARD16,- subpicture_max_width_SurfaceInfo :: CARD16,- subpicture_max_height_SurfaceInfo :: CARD16,- mc_type_SurfaceInfo :: CARD32, flags_SurfaceInfo :: CARD32}+ chroma_format_SurfaceInfo :: Word16, pad0_SurfaceInfo :: Word16,+ max_width_SurfaceInfo :: Word16, max_height_SurfaceInfo :: Word16,+ subpicture_max_width_SurfaceInfo :: Word16,+ subpicture_max_height_SurfaceInfo :: Word16,+ mc_type_SurfaceInfo :: Word32, flags_SurfaceInfo :: Word32} deriving (Show, Typeable) instance Serialize SurfaceInfo where@@ -93,12 +94,12 @@ = do putWord8 extOpCode putWord8 0 let size__ = 4- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{major_QueryVersionReply- :: CARD32,- minor_QueryVersionReply :: CARD32}+ :: Word32,+ minor_QueryVersionReply :: Word32} deriving (Show, Typeable) instance Deserialize QueryVersionReply where@@ -122,12 +123,12 @@ = do putWord8 extOpCode putWord8 1 let size__ = 4 + size (port_id_ListSurfaceTypes x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_id_ListSurfaceTypes x) putSkip (requiredPadding size__) data ListSurfaceTypesReply = MkListSurfaceTypesReply{num_ListSurfaceTypesReply- :: CARD32,+ :: Word32, surfaces_ListSurfaceTypesReply :: [SurfaceInfo]} deriving (Show, Typeable)@@ -148,8 +149,8 @@ CONTEXT, port_id_CreateContext :: PORT, surface_id_CreateContext :: SURFACE,- width_CreateContext :: CARD16, height_CreateContext :: CARD16,- flags_CreateContext :: CARD32}+ width_CreateContext :: Word16, height_CreateContext :: Word16,+ flags_CreateContext :: Word32} deriving (Show, Typeable) instance ExtensionRequest CreateContext where@@ -164,7 +165,7 @@ + size (width_CreateContext x) + size (height_CreateContext x) + size (flags_CreateContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_id_CreateContext x) serialize (port_id_CreateContext x) serialize (surface_id_CreateContext x)@@ -174,10 +175,10 @@ putSkip (requiredPadding size__) data CreateContextReply = MkCreateContextReply{width_actual_CreateContextReply- :: CARD16,- height_actual_CreateContextReply :: CARD16,- flags_return_CreateContextReply :: CARD32,- priv_data_CreateContextReply :: [CARD32]}+ :: Word16,+ height_actual_CreateContextReply :: Word16,+ flags_return_CreateContextReply :: Word32,+ priv_data_CreateContextReply :: [Word32]} deriving (Show, Typeable) instance Deserialize CreateContextReply where@@ -206,7 +207,7 @@ = do putWord8 extOpCode putWord8 3 let size__ = 4 + size (context_id_DestroyContext x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (context_id_DestroyContext x) putSkip (requiredPadding size__) @@ -223,13 +224,13 @@ let size__ = 4 + size (surface_id_CreateSurface x) + size (context_id_CreateSurface x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (surface_id_CreateSurface x) serialize (context_id_CreateSurface x) putSkip (requiredPadding size__) data CreateSurfaceReply = MkCreateSurfaceReply{priv_data_CreateSurfaceReply- :: [CARD32]}+ :: [Word32]} deriving (Show, Typeable) instance Deserialize CreateSurfaceReply where@@ -253,16 +254,16 @@ = do putWord8 extOpCode putWord8 5 let size__ = 4 + size (surface_id_DestroySurface x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (surface_id_DestroySurface x) putSkip (requiredPadding size__) data CreateSubpicture = MkCreateSubpicture{subpicture_id_CreateSubpicture :: SUBPICTURE, context_CreateSubpicture :: CONTEXT,- xvimage_id_CreateSubpicture :: CARD32,- width_CreateSubpicture :: CARD16,- height_CreateSubpicture :: CARD16}+ xvimage_id_CreateSubpicture :: Word32,+ width_CreateSubpicture :: Word16,+ height_CreateSubpicture :: Word16} deriving (Show, Typeable) instance ExtensionRequest CreateSubpicture where@@ -276,7 +277,7 @@ + size (xvimage_id_CreateSubpicture x) + size (width_CreateSubpicture x) + size (height_CreateSubpicture x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (subpicture_id_CreateSubpicture x) serialize (context_CreateSubpicture x) serialize (xvimage_id_CreateSubpicture x)@@ -285,14 +286,14 @@ putSkip (requiredPadding size__) data CreateSubpictureReply = MkCreateSubpictureReply{width_actual_CreateSubpictureReply- :: CARD16,- height_actual_CreateSubpictureReply :: CARD16,+ :: Word16,+ height_actual_CreateSubpictureReply :: Word16, num_palette_entries_CreateSubpictureReply ::- CARD16,- entry_bytes_CreateSubpictureReply :: CARD16,+ Word16,+ entry_bytes_CreateSubpictureReply :: Word16, component_order_CreateSubpictureReply ::- [CARD8],- priv_data_CreateSubpictureReply :: [CARD32]}+ [Word8],+ priv_data_CreateSubpictureReply :: [Word32]} deriving (Show, Typeable) instance Deserialize CreateSubpictureReply where@@ -326,7 +327,7 @@ = do putWord8 extOpCode putWord8 7 let size__ = 4 + size (subpicture_id_DestroySubpicture x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (subpicture_id_DestroySubpicture x) putSkip (requiredPadding size__) @@ -343,13 +344,13 @@ let size__ = 4 + size (port_id_ListSubpictureTypes x) + size (surface_id_ListSubpictureTypes x)- serialize (convertBytesToRequestSize size__ :: INT16)+ serialize (convertBytesToRequestSize size__ :: Int16) serialize (port_id_ListSubpictureTypes x) serialize (surface_id_ListSubpictureTypes x) putSkip (requiredPadding size__) data ListSubpictureTypesReply = MkListSubpictureTypesReply{num_ListSubpictureTypesReply- :: CARD32,+ :: Word32, types_ListSubpictureTypesReply :: [ImageFormatInfo]} deriving (Show, Typeable)
xhb.cabal view
@@ -1,5 +1,5 @@ Name: xhb-Version: 0.0.2009.1.6+Version: 0.1.2009.2.8 Cabal-Version: >= 1.2.3 Synopsis: X Haskell Bindings Description: