module GI.Atk.Structs.KeyEventStruct
(
KeyEventStruct(..) ,
noKeyEventStruct ,
keyEventStructReadKeycode ,
keyEventStructReadKeyval ,
keyEventStructReadLength ,
keyEventStructReadState ,
keyEventStructReadString ,
keyEventStructReadTimestamp ,
keyEventStructReadType ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Atk.Types
import GI.Atk.Callbacks
newtype KeyEventStruct = KeyEventStruct (ForeignPtr KeyEventStruct)
noKeyEventStruct :: Maybe KeyEventStruct
noKeyEventStruct = Nothing
keyEventStructReadType :: KeyEventStruct -> IO Int32
keyEventStructReadType s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Int32
return val
keyEventStructReadState :: KeyEventStruct -> IO Word32
keyEventStructReadState s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO Word32
return val
keyEventStructReadKeyval :: KeyEventStruct -> IO Word32
keyEventStructReadKeyval s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Word32
return val
keyEventStructReadLength :: KeyEventStruct -> IO Int32
keyEventStructReadLength s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO Int32
return val
keyEventStructReadString :: KeyEventStruct -> IO T.Text
keyEventStructReadString s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
val' <- cstringToText val
return val'
keyEventStructReadKeycode :: KeyEventStruct -> IO Word16
keyEventStructReadKeycode s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO Word16
return val
keyEventStructReadTimestamp :: KeyEventStruct -> IO Word32
keyEventStructReadTimestamp s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 28) :: IO Word32
return val