module GI.Gdk.Structs.EventKey
(
EventKey(..) ,
newZeroEventKey ,
noEventKey ,
eventKey_group ,
getEventKeyGroup ,
setEventKeyGroup ,
eventKey_hardwareKeycode ,
getEventKeyHardwareKeycode ,
setEventKeyHardwareKeycode ,
eventKey_isModifier ,
getEventKeyIsModifier ,
setEventKeyIsModifier ,
eventKey_keyval ,
getEventKeyKeyval ,
setEventKeyKeyval ,
eventKey_length ,
getEventKeyLength ,
setEventKeyLength ,
eventKey_sendEvent ,
getEventKeySendEvent ,
setEventKeySendEvent ,
eventKey_state ,
getEventKeyState ,
setEventKeyState ,
clearEventKeyString ,
eventKey_string ,
getEventKeyString ,
setEventKeyString ,
eventKey_time ,
getEventKeyTime ,
setEventKeyTime ,
eventKey_type ,
getEventKeyType ,
setEventKeyType ,
clearEventKeyWindow ,
eventKey_window ,
getEventKeyWindow ,
setEventKeyWindow ,
) 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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.Gdk.Enums as Gdk.Enums
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Objects.Window as Gdk.Window
newtype EventKey = EventKey (ManagedPtr EventKey)
instance WrappedPtr EventKey where
wrappedPtrCalloc = callocBytes 56
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 56 >=> wrapPtr EventKey)
wrappedPtrFree = Just ptr_to_g_free
newZeroEventKey :: MonadIO m => m EventKey
newZeroEventKey = liftIO $ wrappedPtrCalloc >>= wrapPtr EventKey
instance tag ~ 'AttrSet => Constructible EventKey tag where
new _ attrs = do
o <- newZeroEventKey
GI.Attributes.set o attrs
return o
noEventKey :: Maybe EventKey
noEventKey = Nothing
getEventKeyType :: MonadIO m => EventKey -> m Gdk.Enums.EventType
getEventKeyType s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
setEventKeyType :: MonadIO m => EventKey -> Gdk.Enums.EventType -> m ()
setEventKeyType s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 0) (val' :: CUInt)
data EventKeyTypeFieldInfo
instance AttrInfo EventKeyTypeFieldInfo where
type AttrAllowedOps EventKeyTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventKeyTypeFieldInfo = (~) Gdk.Enums.EventType
type AttrBaseTypeConstraint EventKeyTypeFieldInfo = (~) EventKey
type AttrGetType EventKeyTypeFieldInfo = Gdk.Enums.EventType
type AttrLabel EventKeyTypeFieldInfo = "type"
type AttrOrigin EventKeyTypeFieldInfo = EventKey
attrGet _ = getEventKeyType
attrSet _ = setEventKeyType
attrConstruct = undefined
attrClear _ = undefined
eventKey_type :: AttrLabelProxy "type"
eventKey_type = AttrLabelProxy
getEventKeyWindow :: MonadIO m => EventKey -> m (Maybe Gdk.Window.Window)
getEventKeyWindow s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO (Ptr Gdk.Window.Window)
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- (newObject Gdk.Window.Window) val'
return val''
return result
setEventKeyWindow :: MonadIO m => EventKey -> Ptr Gdk.Window.Window -> m ()
setEventKeyWindow s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Ptr Gdk.Window.Window)
clearEventKeyWindow :: MonadIO m => EventKey -> m ()
clearEventKeyWindow s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: Ptr Gdk.Window.Window)
data EventKeyWindowFieldInfo
instance AttrInfo EventKeyWindowFieldInfo where
type AttrAllowedOps EventKeyWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventKeyWindowFieldInfo = (~) (Ptr Gdk.Window.Window)
type AttrBaseTypeConstraint EventKeyWindowFieldInfo = (~) EventKey
type AttrGetType EventKeyWindowFieldInfo = Maybe Gdk.Window.Window
type AttrLabel EventKeyWindowFieldInfo = "window"
type AttrOrigin EventKeyWindowFieldInfo = EventKey
attrGet _ = getEventKeyWindow
attrSet _ = setEventKeyWindow
attrConstruct = undefined
attrClear _ = clearEventKeyWindow
eventKey_window :: AttrLabelProxy "window"
eventKey_window = AttrLabelProxy
getEventKeySendEvent :: MonadIO m => EventKey -> m Int8
getEventKeySendEvent s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Int8
return val
setEventKeySendEvent :: MonadIO m => EventKey -> Int8 -> m ()
setEventKeySendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: Int8)
data EventKeySendEventFieldInfo
instance AttrInfo EventKeySendEventFieldInfo where
type AttrAllowedOps EventKeySendEventFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventKeySendEventFieldInfo = (~) Int8
type AttrBaseTypeConstraint EventKeySendEventFieldInfo = (~) EventKey
type AttrGetType EventKeySendEventFieldInfo = Int8
type AttrLabel EventKeySendEventFieldInfo = "send_event"
type AttrOrigin EventKeySendEventFieldInfo = EventKey
attrGet _ = getEventKeySendEvent
attrSet _ = setEventKeySendEvent
attrConstruct = undefined
attrClear _ = undefined
eventKey_sendEvent :: AttrLabelProxy "sendEvent"
eventKey_sendEvent = AttrLabelProxy
getEventKeyTime :: MonadIO m => EventKey -> m Word32
getEventKeyTime s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Word32
return val
setEventKeyTime :: MonadIO m => EventKey -> Word32 -> m ()
setEventKeyTime s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (val :: Word32)
data EventKeyTimeFieldInfo
instance AttrInfo EventKeyTimeFieldInfo where
type AttrAllowedOps EventKeyTimeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventKeyTimeFieldInfo = (~) Word32
type AttrBaseTypeConstraint EventKeyTimeFieldInfo = (~) EventKey
type AttrGetType EventKeyTimeFieldInfo = Word32
type AttrLabel EventKeyTimeFieldInfo = "time"
type AttrOrigin EventKeyTimeFieldInfo = EventKey
attrGet _ = getEventKeyTime
attrSet _ = setEventKeyTime
attrConstruct = undefined
attrClear _ = undefined
eventKey_time :: AttrLabelProxy "time"
eventKey_time = AttrLabelProxy
getEventKeyState :: MonadIO m => EventKey -> m [Gdk.Flags.ModifierType]
getEventKeyState s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CUInt
let val' = wordToGFlags val
return val'
setEventKeyState :: MonadIO m => EventKey -> [Gdk.Flags.ModifierType] -> m ()
setEventKeyState s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = gflagsToWord val
poke (ptr `plusPtr` 24) (val' :: CUInt)
data EventKeyStateFieldInfo
instance AttrInfo EventKeyStateFieldInfo where
type AttrAllowedOps EventKeyStateFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventKeyStateFieldInfo = (~) [Gdk.Flags.ModifierType]
type AttrBaseTypeConstraint EventKeyStateFieldInfo = (~) EventKey
type AttrGetType EventKeyStateFieldInfo = [Gdk.Flags.ModifierType]
type AttrLabel EventKeyStateFieldInfo = "state"
type AttrOrigin EventKeyStateFieldInfo = EventKey
attrGet _ = getEventKeyState
attrSet _ = setEventKeyState
attrConstruct = undefined
attrClear _ = undefined
eventKey_state :: AttrLabelProxy "state"
eventKey_state = AttrLabelProxy
getEventKeyKeyval :: MonadIO m => EventKey -> m Word32
getEventKeyKeyval s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 28) :: IO Word32
return val
setEventKeyKeyval :: MonadIO m => EventKey -> Word32 -> m ()
setEventKeyKeyval s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 28) (val :: Word32)
data EventKeyKeyvalFieldInfo
instance AttrInfo EventKeyKeyvalFieldInfo where
type AttrAllowedOps EventKeyKeyvalFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventKeyKeyvalFieldInfo = (~) Word32
type AttrBaseTypeConstraint EventKeyKeyvalFieldInfo = (~) EventKey
type AttrGetType EventKeyKeyvalFieldInfo = Word32
type AttrLabel EventKeyKeyvalFieldInfo = "keyval"
type AttrOrigin EventKeyKeyvalFieldInfo = EventKey
attrGet _ = getEventKeyKeyval
attrSet _ = setEventKeyKeyval
attrConstruct = undefined
attrClear _ = undefined
eventKey_keyval :: AttrLabelProxy "keyval"
eventKey_keyval = AttrLabelProxy
getEventKeyLength :: MonadIO m => EventKey -> m Int32
getEventKeyLength s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO Int32
return val
setEventKeyLength :: MonadIO m => EventKey -> Int32 -> m ()
setEventKeyLength s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (val :: Int32)
data EventKeyLengthFieldInfo
instance AttrInfo EventKeyLengthFieldInfo where
type AttrAllowedOps EventKeyLengthFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventKeyLengthFieldInfo = (~) Int32
type AttrBaseTypeConstraint EventKeyLengthFieldInfo = (~) EventKey
type AttrGetType EventKeyLengthFieldInfo = Int32
type AttrLabel EventKeyLengthFieldInfo = "length"
type AttrOrigin EventKeyLengthFieldInfo = EventKey
attrGet _ = getEventKeyLength
attrSet _ = setEventKeyLength
attrConstruct = undefined
attrClear _ = undefined
eventKey_length :: AttrLabelProxy "length"
eventKey_length = AttrLabelProxy
getEventKeyString :: MonadIO m => EventKey -> m (Maybe T.Text)
getEventKeyString s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setEventKeyString :: MonadIO m => EventKey -> CString -> m ()
setEventKeyString s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 40) (val :: CString)
clearEventKeyString :: MonadIO m => EventKey -> m ()
clearEventKeyString s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 40) (FP.nullPtr :: CString)
data EventKeyStringFieldInfo
instance AttrInfo EventKeyStringFieldInfo where
type AttrAllowedOps EventKeyStringFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventKeyStringFieldInfo = (~) CString
type AttrBaseTypeConstraint EventKeyStringFieldInfo = (~) EventKey
type AttrGetType EventKeyStringFieldInfo = Maybe T.Text
type AttrLabel EventKeyStringFieldInfo = "string"
type AttrOrigin EventKeyStringFieldInfo = EventKey
attrGet _ = getEventKeyString
attrSet _ = setEventKeyString
attrConstruct = undefined
attrClear _ = clearEventKeyString
eventKey_string :: AttrLabelProxy "string"
eventKey_string = AttrLabelProxy
getEventKeyHardwareKeycode :: MonadIO m => EventKey -> m Word16
getEventKeyHardwareKeycode s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO Word16
return val
setEventKeyHardwareKeycode :: MonadIO m => EventKey -> Word16 -> m ()
setEventKeyHardwareKeycode s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 48) (val :: Word16)
data EventKeyHardwareKeycodeFieldInfo
instance AttrInfo EventKeyHardwareKeycodeFieldInfo where
type AttrAllowedOps EventKeyHardwareKeycodeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventKeyHardwareKeycodeFieldInfo = (~) Word16
type AttrBaseTypeConstraint EventKeyHardwareKeycodeFieldInfo = (~) EventKey
type AttrGetType EventKeyHardwareKeycodeFieldInfo = Word16
type AttrLabel EventKeyHardwareKeycodeFieldInfo = "hardware_keycode"
type AttrOrigin EventKeyHardwareKeycodeFieldInfo = EventKey
attrGet _ = getEventKeyHardwareKeycode
attrSet _ = setEventKeyHardwareKeycode
attrConstruct = undefined
attrClear _ = undefined
eventKey_hardwareKeycode :: AttrLabelProxy "hardwareKeycode"
eventKey_hardwareKeycode = AttrLabelProxy
getEventKeyGroup :: MonadIO m => EventKey -> m Word8
getEventKeyGroup s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 50) :: IO Word8
return val
setEventKeyGroup :: MonadIO m => EventKey -> Word8 -> m ()
setEventKeyGroup s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 50) (val :: Word8)
data EventKeyGroupFieldInfo
instance AttrInfo EventKeyGroupFieldInfo where
type AttrAllowedOps EventKeyGroupFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventKeyGroupFieldInfo = (~) Word8
type AttrBaseTypeConstraint EventKeyGroupFieldInfo = (~) EventKey
type AttrGetType EventKeyGroupFieldInfo = Word8
type AttrLabel EventKeyGroupFieldInfo = "group"
type AttrOrigin EventKeyGroupFieldInfo = EventKey
attrGet _ = getEventKeyGroup
attrSet _ = setEventKeyGroup
attrConstruct = undefined
attrClear _ = undefined
eventKey_group :: AttrLabelProxy "group"
eventKey_group = AttrLabelProxy
getEventKeyIsModifier :: MonadIO m => EventKey -> m Word32
getEventKeyIsModifier s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 52) :: IO Word32
return val
setEventKeyIsModifier :: MonadIO m => EventKey -> Word32 -> m ()
setEventKeyIsModifier s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 52) (val :: Word32)
data EventKeyIsModifierFieldInfo
instance AttrInfo EventKeyIsModifierFieldInfo where
type AttrAllowedOps EventKeyIsModifierFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventKeyIsModifierFieldInfo = (~) Word32
type AttrBaseTypeConstraint EventKeyIsModifierFieldInfo = (~) EventKey
type AttrGetType EventKeyIsModifierFieldInfo = Word32
type AttrLabel EventKeyIsModifierFieldInfo = "is_modifier"
type AttrOrigin EventKeyIsModifierFieldInfo = EventKey
attrGet _ = getEventKeyIsModifier
attrSet _ = setEventKeyIsModifier
attrConstruct = undefined
attrClear _ = undefined
eventKey_isModifier :: AttrLabelProxy "isModifier"
eventKey_isModifier = AttrLabelProxy
instance O.HasAttributeList EventKey
type instance O.AttributeList EventKey = EventKeyAttributeList
type EventKeyAttributeList = ('[ '("type", EventKeyTypeFieldInfo), '("window", EventKeyWindowFieldInfo), '("sendEvent", EventKeySendEventFieldInfo), '("time", EventKeyTimeFieldInfo), '("state", EventKeyStateFieldInfo), '("keyval", EventKeyKeyvalFieldInfo), '("length", EventKeyLengthFieldInfo), '("string", EventKeyStringFieldInfo), '("hardwareKeycode", EventKeyHardwareKeycodeFieldInfo), '("group", EventKeyGroupFieldInfo), '("isModifier", EventKeyIsModifierFieldInfo)] :: [(Symbol, *)])
type family ResolveEventKeyMethod (t :: Symbol) (o :: *) :: * where
ResolveEventKeyMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventKeyMethod t EventKey, O.MethodInfo info EventKey p) => O.IsLabelProxy t (EventKey -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveEventKeyMethod t EventKey, O.MethodInfo info EventKey p) => O.IsLabel t (EventKey -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif