{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Structs.EventProperty
(
EventProperty(..) ,
newZeroEventProperty ,
#if defined(ENABLE_OVERLOADING)
ResolveEventPropertyMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
eventProperty_atom ,
#endif
getEventPropertyAtom ,
#if defined(ENABLE_OVERLOADING)
eventProperty_sendEvent ,
#endif
getEventPropertySendEvent ,
setEventPropertySendEvent ,
#if defined(ENABLE_OVERLOADING)
eventProperty_state ,
#endif
getEventPropertyState ,
setEventPropertyState ,
#if defined(ENABLE_OVERLOADING)
eventProperty_time ,
#endif
getEventPropertyTime ,
setEventPropertyTime ,
#if defined(ENABLE_OVERLOADING)
eventProperty_type ,
#endif
getEventPropertyType ,
setEventPropertyType ,
clearEventPropertyWindow ,
#if defined(ENABLE_OVERLOADING)
eventProperty_window ,
#endif
getEventPropertyWindow ,
setEventPropertyWindow ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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 Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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
import qualified GHC.Records as R
import {-# SOURCE #-} qualified GI.Gdk.Enums as Gdk.Enums
import {-# SOURCE #-} qualified GI.Gdk.Objects.Window as Gdk.Window
import {-# SOURCE #-} qualified GI.Gdk.Structs.Atom as Gdk.Atom
newtype EventProperty = EventProperty (SP.ManagedPtr EventProperty)
deriving (EventProperty -> EventProperty -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EventProperty -> EventProperty -> Bool
$c/= :: EventProperty -> EventProperty -> Bool
== :: EventProperty -> EventProperty -> Bool
$c== :: EventProperty -> EventProperty -> Bool
Eq)
instance SP.ManagedPtrNewtype EventProperty where
toManagedPtr :: EventProperty -> ManagedPtr EventProperty
toManagedPtr (EventProperty ManagedPtr EventProperty
p) = ManagedPtr EventProperty
p
instance BoxedPtr EventProperty where
boxedPtrCopy :: EventProperty -> IO EventProperty
boxedPtrCopy = \EventProperty
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr EventProperty
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
24 forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.wrapPtr ManagedPtr EventProperty -> EventProperty
EventProperty)
boxedPtrFree :: EventProperty -> IO ()
boxedPtrFree = \EventProperty
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr EventProperty
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr EventProperty where
boxedPtrCalloc :: IO (Ptr EventProperty)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
24
newZeroEventProperty :: MonadIO m => m EventProperty
newZeroEventProperty :: forall (m :: * -> *). MonadIO m => m EventProperty
newZeroEventProperty = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. CallocPtr a => IO (Ptr a)
boxedPtrCalloc forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr EventProperty -> EventProperty
EventProperty
instance tag ~ 'AttrSet => Constructible EventProperty tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr EventProperty -> EventProperty)
-> [AttrOp EventProperty tag] -> m EventProperty
new ManagedPtr EventProperty -> EventProperty
_ [AttrOp EventProperty tag]
attrs = do
EventProperty
o <- forall (m :: * -> *). MonadIO m => m EventProperty
newZeroEventProperty
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set EventProperty
o [AttrOp EventProperty tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return EventProperty
o
getEventPropertyType :: MonadIO m => EventProperty -> m Gdk.Enums.EventType
getEventPropertyType :: forall (m :: * -> *). MonadIO m => EventProperty -> m EventType
getEventPropertyType EventProperty
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventProperty
s forall a b. (a -> b) -> a -> b
$ \Ptr EventProperty
ptr -> do
CInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventProperty
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO CInt
let val' :: EventType
val' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventType
val'
setEventPropertyType :: MonadIO m => EventProperty -> Gdk.Enums.EventType -> m ()
setEventPropertyType :: forall (m :: * -> *).
MonadIO m =>
EventProperty -> EventType -> m ()
setEventPropertyType EventProperty
s EventType
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventProperty
s forall a b. (a -> b) -> a -> b
$ \Ptr EventProperty
ptr -> do
let val' :: CInt
val' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) EventType
val
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventProperty
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CInt
val' :: CInt)
#if defined(ENABLE_OVERLOADING)
data EventPropertyTypeFieldInfo
instance AttrInfo EventPropertyTypeFieldInfo where
type AttrBaseTypeConstraint EventPropertyTypeFieldInfo = (~) EventProperty
type AttrAllowedOps EventPropertyTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPropertyTypeFieldInfo = (~) Gdk.Enums.EventType
type AttrTransferTypeConstraint EventPropertyTypeFieldInfo = (~)Gdk.Enums.EventType
type AttrTransferType EventPropertyTypeFieldInfo = Gdk.Enums.EventType
type AttrGetType EventPropertyTypeFieldInfo = Gdk.Enums.EventType
type AttrLabel EventPropertyTypeFieldInfo = "type"
type AttrOrigin EventPropertyTypeFieldInfo = EventProperty
attrGet = getEventPropertyType
attrSet = setEventPropertyType
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventProperty.type"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventProperty.html#g:attr:type"
})
eventProperty_type :: AttrLabelProxy "type"
eventProperty_type = AttrLabelProxy
#endif
getEventPropertyWindow :: MonadIO m => EventProperty -> m (Maybe Gdk.Window.Window)
getEventPropertyWindow :: forall (m :: * -> *).
MonadIO m =>
EventProperty -> m (Maybe Window)
getEventPropertyWindow EventProperty
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventProperty
s forall a b. (a -> b) -> a -> b
$ \Ptr EventProperty
ptr -> do
Ptr Window
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventProperty
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) :: IO (Ptr Gdk.Window.Window)
Maybe Window
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr Window
val forall a b. (a -> b) -> a -> b
$ \Ptr Window
val' -> do
Window
val'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gdk.Window.Window) Ptr Window
val'
forall (m :: * -> *) a. Monad m => a -> m a
return Window
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Window
result
setEventPropertyWindow :: MonadIO m => EventProperty -> Ptr Gdk.Window.Window -> m ()
setEventPropertyWindow :: forall (m :: * -> *).
MonadIO m =>
EventProperty -> Ptr Window -> m ()
setEventPropertyWindow EventProperty
s Ptr Window
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventProperty
s forall a b. (a -> b) -> a -> b
$ \Ptr EventProperty
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventProperty
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (Ptr Window
val :: Ptr Gdk.Window.Window)
clearEventPropertyWindow :: MonadIO m => EventProperty -> m ()
clearEventPropertyWindow :: forall (m :: * -> *). MonadIO m => EventProperty -> m ()
clearEventPropertyWindow EventProperty
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventProperty
s forall a b. (a -> b) -> a -> b
$ \Ptr EventProperty
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventProperty
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (forall a. Ptr a
FP.nullPtr :: Ptr Gdk.Window.Window)
#if defined(ENABLE_OVERLOADING)
data EventPropertyWindowFieldInfo
instance AttrInfo EventPropertyWindowFieldInfo where
type AttrBaseTypeConstraint EventPropertyWindowFieldInfo = (~) EventProperty
type AttrAllowedOps EventPropertyWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventPropertyWindowFieldInfo = (~) (Ptr Gdk.Window.Window)
type AttrTransferTypeConstraint EventPropertyWindowFieldInfo = (~)(Ptr Gdk.Window.Window)
type AttrTransferType EventPropertyWindowFieldInfo = (Ptr Gdk.Window.Window)
type AttrGetType EventPropertyWindowFieldInfo = Maybe Gdk.Window.Window
type AttrLabel EventPropertyWindowFieldInfo = "window"
type AttrOrigin EventPropertyWindowFieldInfo = EventProperty
attrGet = getEventPropertyWindow
attrSet = setEventPropertyWindow
attrConstruct = undefined
attrClear = clearEventPropertyWindow
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventProperty.window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventProperty.html#g:attr:window"
})
eventProperty_window :: AttrLabelProxy "window"
eventProperty_window = AttrLabelProxy
#endif
getEventPropertySendEvent :: MonadIO m => EventProperty -> m Int8
getEventPropertySendEvent :: forall (m :: * -> *). MonadIO m => EventProperty -> m Int8
getEventPropertySendEvent EventProperty
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventProperty
s forall a b. (a -> b) -> a -> b
$ \Ptr EventProperty
ptr -> do
Int8
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventProperty
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: IO Int8
forall (m :: * -> *) a. Monad m => a -> m a
return Int8
val
setEventPropertySendEvent :: MonadIO m => EventProperty -> Int8 -> m ()
setEventPropertySendEvent :: forall (m :: * -> *). MonadIO m => EventProperty -> Int8 -> m ()
setEventPropertySendEvent EventProperty
s Int8
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventProperty
s forall a b. (a -> b) -> a -> b
$ \Ptr EventProperty
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventProperty
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (Int8
val :: Int8)
#if defined(ENABLE_OVERLOADING)
data EventPropertySendEventFieldInfo
instance AttrInfo EventPropertySendEventFieldInfo where
type AttrBaseTypeConstraint EventPropertySendEventFieldInfo = (~) EventProperty
type AttrAllowedOps EventPropertySendEventFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPropertySendEventFieldInfo = (~) Int8
type AttrTransferTypeConstraint EventPropertySendEventFieldInfo = (~)Int8
type AttrTransferType EventPropertySendEventFieldInfo = Int8
type AttrGetType EventPropertySendEventFieldInfo = Int8
type AttrLabel EventPropertySendEventFieldInfo = "send_event"
type AttrOrigin EventPropertySendEventFieldInfo = EventProperty
attrGet = getEventPropertySendEvent
attrSet = setEventPropertySendEvent
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventProperty.sendEvent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventProperty.html#g:attr:sendEvent"
})
eventProperty_sendEvent :: AttrLabelProxy "sendEvent"
eventProperty_sendEvent = AttrLabelProxy
#endif
getEventPropertyAtom :: MonadIO m => EventProperty -> m Gdk.Atom.Atom
getEventPropertyAtom :: forall (m :: * -> *). MonadIO m => EventProperty -> m Atom
getEventPropertyAtom EventProperty
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventProperty
s forall a b. (a -> b) -> a -> b
$ \Ptr EventProperty
ptr -> do
let val :: Ptr Atom
val = Ptr EventProperty
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12 :: (Ptr Gdk.Atom.Atom)
Atom
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Atom -> Atom
Gdk.Atom.Atom) Ptr Atom
val
forall (m :: * -> *) a. Monad m => a -> m a
return Atom
val'
#if defined(ENABLE_OVERLOADING)
data EventPropertyAtomFieldInfo
instance AttrInfo EventPropertyAtomFieldInfo where
type AttrBaseTypeConstraint EventPropertyAtomFieldInfo = (~) EventProperty
type AttrAllowedOps EventPropertyAtomFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventPropertyAtomFieldInfo = (~) (Ptr Gdk.Atom.Atom)
type AttrTransferTypeConstraint EventPropertyAtomFieldInfo = (~)(Ptr Gdk.Atom.Atom)
type AttrTransferType EventPropertyAtomFieldInfo = (Ptr Gdk.Atom.Atom)
type AttrGetType EventPropertyAtomFieldInfo = Gdk.Atom.Atom
type AttrLabel EventPropertyAtomFieldInfo = "atom"
type AttrOrigin EventPropertyAtomFieldInfo = EventProperty
attrGet = getEventPropertyAtom
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventProperty.atom"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventProperty.html#g:attr:atom"
})
eventProperty_atom :: AttrLabelProxy "atom"
eventProperty_atom = AttrLabelProxy
#endif
getEventPropertyTime :: MonadIO m => EventProperty -> m Word32
getEventPropertyTime :: forall (m :: * -> *). MonadIO m => EventProperty -> m Word32
getEventPropertyTime EventProperty
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventProperty
s forall a b. (a -> b) -> a -> b
$ \Ptr EventProperty
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventProperty
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setEventPropertyTime :: MonadIO m => EventProperty -> Word32 -> m ()
setEventPropertyTime :: forall (m :: * -> *). MonadIO m => EventProperty -> Word32 -> m ()
setEventPropertyTime EventProperty
s Word32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventProperty
s forall a b. (a -> b) -> a -> b
$ \Ptr EventProperty
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventProperty
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data EventPropertyTimeFieldInfo
instance AttrInfo EventPropertyTimeFieldInfo where
type AttrBaseTypeConstraint EventPropertyTimeFieldInfo = (~) EventProperty
type AttrAllowedOps EventPropertyTimeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPropertyTimeFieldInfo = (~) Word32
type AttrTransferTypeConstraint EventPropertyTimeFieldInfo = (~)Word32
type AttrTransferType EventPropertyTimeFieldInfo = Word32
type AttrGetType EventPropertyTimeFieldInfo = Word32
type AttrLabel EventPropertyTimeFieldInfo = "time"
type AttrOrigin EventPropertyTimeFieldInfo = EventProperty
attrGet = getEventPropertyTime
attrSet = setEventPropertyTime
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventProperty.time"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventProperty.html#g:attr:time"
})
eventProperty_time :: AttrLabelProxy "time"
eventProperty_time = AttrLabelProxy
#endif
getEventPropertyState :: MonadIO m => EventProperty -> m Gdk.Enums.PropertyState
getEventPropertyState :: forall (m :: * -> *). MonadIO m => EventProperty -> m PropertyState
getEventPropertyState EventProperty
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventProperty
s forall a b. (a -> b) -> a -> b
$ \Ptr EventProperty
ptr -> do
CUInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventProperty
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20) :: IO CUInt
let val' :: PropertyState
val' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
val
forall (m :: * -> *) a. Monad m => a -> m a
return PropertyState
val'
setEventPropertyState :: MonadIO m => EventProperty -> Gdk.Enums.PropertyState -> m ()
setEventPropertyState :: forall (m :: * -> *).
MonadIO m =>
EventProperty -> PropertyState -> m ()
setEventPropertyState EventProperty
s PropertyState
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventProperty
s forall a b. (a -> b) -> a -> b
$ \Ptr EventProperty
ptr -> do
let val' :: CUInt
val' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) PropertyState
val
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventProperty
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data EventPropertyStateFieldInfo
instance AttrInfo EventPropertyStateFieldInfo where
type AttrBaseTypeConstraint EventPropertyStateFieldInfo = (~) EventProperty
type AttrAllowedOps EventPropertyStateFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPropertyStateFieldInfo = (~) Gdk.Enums.PropertyState
type AttrTransferTypeConstraint EventPropertyStateFieldInfo = (~)Gdk.Enums.PropertyState
type AttrTransferType EventPropertyStateFieldInfo = Gdk.Enums.PropertyState
type AttrGetType EventPropertyStateFieldInfo = Gdk.Enums.PropertyState
type AttrLabel EventPropertyStateFieldInfo = "state"
type AttrOrigin EventPropertyStateFieldInfo = EventProperty
attrGet = getEventPropertyState
attrSet = setEventPropertyState
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventProperty.state"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventProperty.html#g:attr:state"
})
eventProperty_state :: AttrLabelProxy "state"
eventProperty_state = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EventProperty
type instance O.AttributeList EventProperty = EventPropertyAttributeList
type EventPropertyAttributeList = ('[ '("type", EventPropertyTypeFieldInfo), '("window", EventPropertyWindowFieldInfo), '("sendEvent", EventPropertySendEventFieldInfo), '("atom", EventPropertyAtomFieldInfo), '("time", EventPropertyTimeFieldInfo), '("state", EventPropertyStateFieldInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEventPropertyMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveEventPropertyMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventPropertyMethod t EventProperty, O.OverloadedMethod info EventProperty p) => OL.IsLabel t (EventProperty -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveEventPropertyMethod t EventProperty, O.OverloadedMethod info EventProperty p, R.HasField t EventProperty p) => R.HasField t EventProperty p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveEventPropertyMethod t EventProperty, O.OverloadedMethodInfo info EventProperty) => OL.IsLabel t (O.MethodProxy info EventProperty) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif