{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Atk.Structs.KeyEventStruct
(
KeyEventStruct(..) ,
newZeroKeyEventStruct ,
noKeyEventStruct ,
#if defined(ENABLE_OVERLOADING)
ResolveKeyEventStructMethod ,
#endif
getKeyEventStructKeycode ,
#if defined(ENABLE_OVERLOADING)
keyEventStruct_keycode ,
#endif
setKeyEventStructKeycode ,
getKeyEventStructKeyval ,
#if defined(ENABLE_OVERLOADING)
keyEventStruct_keyval ,
#endif
setKeyEventStructKeyval ,
getKeyEventStructLength ,
#if defined(ENABLE_OVERLOADING)
keyEventStruct_length ,
#endif
setKeyEventStructLength ,
getKeyEventStructState ,
#if defined(ENABLE_OVERLOADING)
keyEventStruct_state ,
#endif
setKeyEventStructState ,
clearKeyEventStructString ,
getKeyEventStructString ,
#if defined(ENABLE_OVERLOADING)
keyEventStruct_string ,
#endif
setKeyEventStructString ,
getKeyEventStructTimestamp ,
#if defined(ENABLE_OVERLOADING)
keyEventStruct_timestamp ,
#endif
setKeyEventStructTimestamp ,
getKeyEventStructType ,
#if defined(ENABLE_OVERLOADING)
keyEventStruct_type ,
#endif
setKeyEventStructType ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
newtype KeyEventStruct = KeyEventStruct (ManagedPtr KeyEventStruct)
deriving (Eq)
instance WrappedPtr KeyEventStruct where
wrappedPtrCalloc = callocBytes 28
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 28 >=> wrapPtr KeyEventStruct)
wrappedPtrFree = Just ptr_to_g_free
newZeroKeyEventStruct :: MonadIO m => m KeyEventStruct
newZeroKeyEventStruct = liftIO $ wrappedPtrCalloc >>= wrapPtr KeyEventStruct
instance tag ~ 'AttrSet => Constructible KeyEventStruct tag where
new _ attrs = do
o <- newZeroKeyEventStruct
GI.Attributes.set o attrs
return o
noKeyEventStruct :: Maybe KeyEventStruct
noKeyEventStruct = Nothing
getKeyEventStructType :: MonadIO m => KeyEventStruct -> m Int32
getKeyEventStructType s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Int32
return val
setKeyEventStructType :: MonadIO m => KeyEventStruct -> Int32 -> m ()
setKeyEventStructType s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: Int32)
#if defined(ENABLE_OVERLOADING)
data KeyEventStructTypeFieldInfo
instance AttrInfo KeyEventStructTypeFieldInfo where
type AttrBaseTypeConstraint KeyEventStructTypeFieldInfo = (~) KeyEventStruct
type AttrAllowedOps KeyEventStructTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint KeyEventStructTypeFieldInfo = (~) Int32
type AttrTransferTypeConstraint KeyEventStructTypeFieldInfo = (~)Int32
type AttrTransferType KeyEventStructTypeFieldInfo = Int32
type AttrGetType KeyEventStructTypeFieldInfo = Int32
type AttrLabel KeyEventStructTypeFieldInfo = "type"
type AttrOrigin KeyEventStructTypeFieldInfo = KeyEventStruct
attrGet = getKeyEventStructType
attrSet = setKeyEventStructType
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
keyEventStruct_type :: AttrLabelProxy "type"
keyEventStruct_type = AttrLabelProxy
#endif
getKeyEventStructState :: MonadIO m => KeyEventStruct -> m Word32
getKeyEventStructState s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO Word32
return val
setKeyEventStructState :: MonadIO m => KeyEventStruct -> Word32 -> m ()
setKeyEventStructState s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (val :: Word32)
#if defined(ENABLE_OVERLOADING)
data KeyEventStructStateFieldInfo
instance AttrInfo KeyEventStructStateFieldInfo where
type AttrBaseTypeConstraint KeyEventStructStateFieldInfo = (~) KeyEventStruct
type AttrAllowedOps KeyEventStructStateFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint KeyEventStructStateFieldInfo = (~) Word32
type AttrTransferTypeConstraint KeyEventStructStateFieldInfo = (~)Word32
type AttrTransferType KeyEventStructStateFieldInfo = Word32
type AttrGetType KeyEventStructStateFieldInfo = Word32
type AttrLabel KeyEventStructStateFieldInfo = "state"
type AttrOrigin KeyEventStructStateFieldInfo = KeyEventStruct
attrGet = getKeyEventStructState
attrSet = setKeyEventStructState
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
keyEventStruct_state :: AttrLabelProxy "state"
keyEventStruct_state = AttrLabelProxy
#endif
getKeyEventStructKeyval :: MonadIO m => KeyEventStruct -> m Word32
getKeyEventStructKeyval s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Word32
return val
setKeyEventStructKeyval :: MonadIO m => KeyEventStruct -> Word32 -> m ()
setKeyEventStructKeyval s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Word32)
#if defined(ENABLE_OVERLOADING)
data KeyEventStructKeyvalFieldInfo
instance AttrInfo KeyEventStructKeyvalFieldInfo where
type AttrBaseTypeConstraint KeyEventStructKeyvalFieldInfo = (~) KeyEventStruct
type AttrAllowedOps KeyEventStructKeyvalFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint KeyEventStructKeyvalFieldInfo = (~) Word32
type AttrTransferTypeConstraint KeyEventStructKeyvalFieldInfo = (~)Word32
type AttrTransferType KeyEventStructKeyvalFieldInfo = Word32
type AttrGetType KeyEventStructKeyvalFieldInfo = Word32
type AttrLabel KeyEventStructKeyvalFieldInfo = "keyval"
type AttrOrigin KeyEventStructKeyvalFieldInfo = KeyEventStruct
attrGet = getKeyEventStructKeyval
attrSet = setKeyEventStructKeyval
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
keyEventStruct_keyval :: AttrLabelProxy "keyval"
keyEventStruct_keyval = AttrLabelProxy
#endif
getKeyEventStructLength :: MonadIO m => KeyEventStruct -> m Int32
getKeyEventStructLength s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO Int32
return val
setKeyEventStructLength :: MonadIO m => KeyEventStruct -> Int32 -> m ()
setKeyEventStructLength s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 12) (val :: Int32)
#if defined(ENABLE_OVERLOADING)
data KeyEventStructLengthFieldInfo
instance AttrInfo KeyEventStructLengthFieldInfo where
type AttrBaseTypeConstraint KeyEventStructLengthFieldInfo = (~) KeyEventStruct
type AttrAllowedOps KeyEventStructLengthFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint KeyEventStructLengthFieldInfo = (~) Int32
type AttrTransferTypeConstraint KeyEventStructLengthFieldInfo = (~)Int32
type AttrTransferType KeyEventStructLengthFieldInfo = Int32
type AttrGetType KeyEventStructLengthFieldInfo = Int32
type AttrLabel KeyEventStructLengthFieldInfo = "length"
type AttrOrigin KeyEventStructLengthFieldInfo = KeyEventStruct
attrGet = getKeyEventStructLength
attrSet = setKeyEventStructLength
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
keyEventStruct_length :: AttrLabelProxy "length"
keyEventStruct_length = AttrLabelProxy
#endif
getKeyEventStructString :: MonadIO m => KeyEventStruct -> m (Maybe T.Text)
getKeyEventStructString s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setKeyEventStructString :: MonadIO m => KeyEventStruct -> CString -> m ()
setKeyEventStructString s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: CString)
clearKeyEventStructString :: MonadIO m => KeyEventStruct -> m ()
clearKeyEventStructString s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data KeyEventStructStringFieldInfo
instance AttrInfo KeyEventStructStringFieldInfo where
type AttrBaseTypeConstraint KeyEventStructStringFieldInfo = (~) KeyEventStruct
type AttrAllowedOps KeyEventStructStringFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint KeyEventStructStringFieldInfo = (~) CString
type AttrTransferTypeConstraint KeyEventStructStringFieldInfo = (~)CString
type AttrTransferType KeyEventStructStringFieldInfo = CString
type AttrGetType KeyEventStructStringFieldInfo = Maybe T.Text
type AttrLabel KeyEventStructStringFieldInfo = "string"
type AttrOrigin KeyEventStructStringFieldInfo = KeyEventStruct
attrGet = getKeyEventStructString
attrSet = setKeyEventStructString
attrConstruct = undefined
attrClear = clearKeyEventStructString
attrTransfer _ v = do
return v
keyEventStruct_string :: AttrLabelProxy "string"
keyEventStruct_string = AttrLabelProxy
#endif
getKeyEventStructKeycode :: MonadIO m => KeyEventStruct -> m Word16
getKeyEventStructKeycode s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Word16
return val
setKeyEventStructKeycode :: MonadIO m => KeyEventStruct -> Word16 -> m ()
setKeyEventStructKeycode s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (val :: Word16)
#if defined(ENABLE_OVERLOADING)
data KeyEventStructKeycodeFieldInfo
instance AttrInfo KeyEventStructKeycodeFieldInfo where
type AttrBaseTypeConstraint KeyEventStructKeycodeFieldInfo = (~) KeyEventStruct
type AttrAllowedOps KeyEventStructKeycodeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint KeyEventStructKeycodeFieldInfo = (~) Word16
type AttrTransferTypeConstraint KeyEventStructKeycodeFieldInfo = (~)Word16
type AttrTransferType KeyEventStructKeycodeFieldInfo = Word16
type AttrGetType KeyEventStructKeycodeFieldInfo = Word16
type AttrLabel KeyEventStructKeycodeFieldInfo = "keycode"
type AttrOrigin KeyEventStructKeycodeFieldInfo = KeyEventStruct
attrGet = getKeyEventStructKeycode
attrSet = setKeyEventStructKeycode
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
keyEventStruct_keycode :: AttrLabelProxy "keycode"
keyEventStruct_keycode = AttrLabelProxy
#endif
getKeyEventStructTimestamp :: MonadIO m => KeyEventStruct -> m Word32
getKeyEventStructTimestamp s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO Word32
return val
setKeyEventStructTimestamp :: MonadIO m => KeyEventStruct -> Word32 -> m ()
setKeyEventStructTimestamp s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (val :: Word32)
#if defined(ENABLE_OVERLOADING)
data KeyEventStructTimestampFieldInfo
instance AttrInfo KeyEventStructTimestampFieldInfo where
type AttrBaseTypeConstraint KeyEventStructTimestampFieldInfo = (~) KeyEventStruct
type AttrAllowedOps KeyEventStructTimestampFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint KeyEventStructTimestampFieldInfo = (~) Word32
type AttrTransferTypeConstraint KeyEventStructTimestampFieldInfo = (~)Word32
type AttrTransferType KeyEventStructTimestampFieldInfo = Word32
type AttrGetType KeyEventStructTimestampFieldInfo = Word32
type AttrLabel KeyEventStructTimestampFieldInfo = "timestamp"
type AttrOrigin KeyEventStructTimestampFieldInfo = KeyEventStruct
attrGet = getKeyEventStructTimestamp
attrSet = setKeyEventStructTimestamp
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
keyEventStruct_timestamp :: AttrLabelProxy "timestamp"
keyEventStruct_timestamp = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList KeyEventStruct
type instance O.AttributeList KeyEventStruct = KeyEventStructAttributeList
type KeyEventStructAttributeList = ('[ '("type", KeyEventStructTypeFieldInfo), '("state", KeyEventStructStateFieldInfo), '("keyval", KeyEventStructKeyvalFieldInfo), '("length", KeyEventStructLengthFieldInfo), '("string", KeyEventStructStringFieldInfo), '("keycode", KeyEventStructKeycodeFieldInfo), '("timestamp", KeyEventStructTimestampFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveKeyEventStructMethod (t :: Symbol) (o :: *) :: * where
ResolveKeyEventStructMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveKeyEventStructMethod t KeyEventStruct, O.MethodInfo info KeyEventStruct p) => OL.IsLabel t (KeyEventStruct -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif