{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson and Iñaki García Etxebarria
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- Event for the movement of the pointer across different actors
-- 
-- /Since: 0.2/

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.Clutter.Structs.CrossingEvent
    ( 

-- * Exported types
    CrossingEvent(..)                       ,
    newZeroCrossingEvent                    ,


 -- * Methods

#if defined(ENABLE_OVERLOADING)
    ResolveCrossingEventMethod              ,
#endif



 -- * Properties


-- ** device #attr:device#
-- | the device that originated the event. If you want the physical
-- device the event originated from, use 'GI.Clutter.Unions.Event.eventGetSourceDevice'

    clearCrossingEventDevice                ,
#if defined(ENABLE_OVERLOADING)
    crossingEvent_device                    ,
#endif
    getCrossingEventDevice                  ,
    setCrossingEventDevice                  ,


-- ** flags #attr:flags#
-- | event flags

#if defined(ENABLE_OVERLOADING)
    crossingEvent_flags                     ,
#endif
    getCrossingEventFlags                   ,
    setCrossingEventFlags                   ,


-- ** related #attr:related#
-- | actor related to the crossing

    clearCrossingEventRelated               ,
#if defined(ENABLE_OVERLOADING)
    crossingEvent_related                   ,
#endif
    getCrossingEventRelated                 ,
    setCrossingEventRelated                 ,


-- ** source #attr:source#
-- | event source actor

    clearCrossingEventSource                ,
#if defined(ENABLE_OVERLOADING)
    crossingEvent_source                    ,
#endif
    getCrossingEventSource                  ,
    setCrossingEventSource                  ,


-- ** stage #attr:stage#
-- | event source stage

    clearCrossingEventStage                 ,
#if defined(ENABLE_OVERLOADING)
    crossingEvent_stage                     ,
#endif
    getCrossingEventStage                   ,
    setCrossingEventStage                   ,


-- ** time #attr:time#
-- | event time

#if defined(ENABLE_OVERLOADING)
    crossingEvent_time                      ,
#endif
    getCrossingEventTime                    ,
    setCrossingEventTime                    ,


-- ** type #attr:type#
-- | event type

#if defined(ENABLE_OVERLOADING)
    crossingEvent_type                      ,
#endif
    getCrossingEventType                    ,
    setCrossingEventType                    ,


-- ** x #attr:x#
-- | event X coordinate

#if defined(ENABLE_OVERLOADING)
    crossingEvent_x                         ,
#endif
    getCrossingEventX                       ,
    setCrossingEventX                       ,


-- ** y #attr:y#
-- | event Y coordinate

#if defined(ENABLE_OVERLOADING)
    crossingEvent_y                         ,
#endif
    getCrossingEventY                       ,
    setCrossingEventY                       ,




    ) 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.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.Clutter.Enums as Clutter.Enums
import {-# SOURCE #-} qualified GI.Clutter.Flags as Clutter.Flags
import {-# SOURCE #-} qualified GI.Clutter.Objects.Actor as Clutter.Actor
import {-# SOURCE #-} qualified GI.Clutter.Objects.InputDevice as Clutter.InputDevice
import {-# SOURCE #-} qualified GI.Clutter.Objects.Stage as Clutter.Stage

-- | Memory-managed wrapper type.
newtype CrossingEvent = CrossingEvent (SP.ManagedPtr CrossingEvent)
    deriving (CrossingEvent -> CrossingEvent -> Bool
(CrossingEvent -> CrossingEvent -> Bool)
-> (CrossingEvent -> CrossingEvent -> Bool) -> Eq CrossingEvent
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CrossingEvent -> CrossingEvent -> Bool
== :: CrossingEvent -> CrossingEvent -> Bool
$c/= :: CrossingEvent -> CrossingEvent -> Bool
/= :: CrossingEvent -> CrossingEvent -> Bool
Eq)

instance SP.ManagedPtrNewtype CrossingEvent where
    toManagedPtr :: CrossingEvent -> ManagedPtr CrossingEvent
toManagedPtr (CrossingEvent ManagedPtr CrossingEvent
p) = ManagedPtr CrossingEvent
p

instance BoxedPtr CrossingEvent where
    boxedPtrCopy :: CrossingEvent -> IO CrossingEvent
boxedPtrCopy = \CrossingEvent
p -> CrossingEvent
-> (Ptr CrossingEvent -> IO CrossingEvent) -> IO CrossingEvent
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CrossingEvent
p (Int -> Ptr CrossingEvent -> IO (Ptr CrossingEvent)
forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
56 (Ptr CrossingEvent -> IO (Ptr CrossingEvent))
-> (Ptr CrossingEvent -> IO CrossingEvent)
-> Ptr CrossingEvent
-> IO CrossingEvent
forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> (ManagedPtr CrossingEvent -> CrossingEvent)
-> Ptr CrossingEvent -> IO CrossingEvent
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.wrapPtr ManagedPtr CrossingEvent -> CrossingEvent
CrossingEvent)
    boxedPtrFree :: CrossingEvent -> IO ()
boxedPtrFree = \CrossingEvent
x -> CrossingEvent -> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr CrossingEvent
x Ptr CrossingEvent -> IO ()
forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr CrossingEvent where
    boxedPtrCalloc :: IO (Ptr CrossingEvent)
boxedPtrCalloc = Int -> IO (Ptr CrossingEvent)
forall a. Int -> IO (Ptr a)
callocBytes Int
56


-- | Construct a `CrossingEvent` struct initialized to zero.
newZeroCrossingEvent :: MonadIO m => m CrossingEvent
newZeroCrossingEvent :: forall (m :: * -> *). MonadIO m => m CrossingEvent
newZeroCrossingEvent = IO CrossingEvent -> m CrossingEvent
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CrossingEvent -> m CrossingEvent)
-> IO CrossingEvent -> m CrossingEvent
forall a b. (a -> b) -> a -> b
$ IO (Ptr CrossingEvent)
forall a. CallocPtr a => IO (Ptr a)
boxedPtrCalloc IO (Ptr CrossingEvent)
-> (Ptr CrossingEvent -> IO CrossingEvent) -> IO CrossingEvent
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr CrossingEvent -> CrossingEvent)
-> Ptr CrossingEvent -> IO CrossingEvent
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr CrossingEvent -> CrossingEvent
CrossingEvent

instance tag ~ 'AttrSet => Constructible CrossingEvent tag where
    new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr CrossingEvent -> CrossingEvent)
-> [AttrOp CrossingEvent tag] -> m CrossingEvent
new ManagedPtr CrossingEvent -> CrossingEvent
_ [AttrOp CrossingEvent tag]
attrs = do
        CrossingEvent
o <- m CrossingEvent
forall (m :: * -> *). MonadIO m => m CrossingEvent
newZeroCrossingEvent
        CrossingEvent -> [AttrOp CrossingEvent 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set CrossingEvent
o [AttrOp CrossingEvent tag]
[AttrOp CrossingEvent 'AttrSet]
attrs
        CrossingEvent -> m CrossingEvent
forall a. a -> m a
forall (m :: * -> *) a. Monad m => a -> m a
return CrossingEvent
o


-- | Get the value of the “@type@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' crossingEvent #type
-- @
getCrossingEventType :: MonadIO m => CrossingEvent -> m Clutter.Enums.EventType
getCrossingEventType :: forall (m :: * -> *). MonadIO m => CrossingEvent -> m EventType
getCrossingEventType CrossingEvent
s = IO EventType -> m EventType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EventType -> m EventType) -> IO EventType -> m EventType
forall a b. (a -> b) -> a -> b
$ CrossingEvent
-> (Ptr CrossingEvent -> IO EventType) -> IO EventType
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO EventType) -> IO EventType)
-> (Ptr CrossingEvent -> IO EventType) -> IO EventType
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    CUInt
val <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO CUInt
    let val' :: EventType
val' = (Int -> EventType
forall a. Enum a => Int -> a
toEnum (Int -> EventType) -> (CUInt -> Int) -> CUInt -> EventType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
val
    EventType -> IO EventType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return EventType
val'

-- | Set the value of the “@type@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' crossingEvent [ #type 'Data.GI.Base.Attributes.:=' value ]
-- @
setCrossingEventType :: MonadIO m => CrossingEvent -> Clutter.Enums.EventType -> m ()
setCrossingEventType :: forall (m :: * -> *).
MonadIO m =>
CrossingEvent -> EventType -> m ()
setCrossingEventType CrossingEvent
s EventType
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO ()) -> IO ())
-> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    let val' :: CUInt
val' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (EventType -> Int) -> EventType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EventType -> Int
forall a. Enum a => a -> Int
fromEnum) EventType
val
    Ptr CUInt -> CUInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CUInt
val' :: CUInt)

#if defined(ENABLE_OVERLOADING)
data CrossingEventTypeFieldInfo
instance AttrInfo CrossingEventTypeFieldInfo where
    type AttrBaseTypeConstraint CrossingEventTypeFieldInfo = (~) CrossingEvent
    type AttrAllowedOps CrossingEventTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint CrossingEventTypeFieldInfo = (~) Clutter.Enums.EventType
    type AttrTransferTypeConstraint CrossingEventTypeFieldInfo = (~)Clutter.Enums.EventType
    type AttrTransferType CrossingEventTypeFieldInfo = Clutter.Enums.EventType
    type AttrGetType CrossingEventTypeFieldInfo = Clutter.Enums.EventType
    type AttrLabel CrossingEventTypeFieldInfo = "type"
    type AttrOrigin CrossingEventTypeFieldInfo = CrossingEvent
    attrGet = getCrossingEventType
    attrSet = setCrossingEventType
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Clutter.Structs.CrossingEvent.type"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:type"
        })

crossingEvent_type :: AttrLabelProxy "type"
crossingEvent_type = AttrLabelProxy

#endif


-- | Get the value of the “@time@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' crossingEvent #time
-- @
getCrossingEventTime :: MonadIO m => CrossingEvent -> m Word32
getCrossingEventTime :: forall (m :: * -> *). MonadIO m => CrossingEvent -> m Word32
getCrossingEventTime CrossingEvent
s = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO Word32) -> IO Word32)
-> (Ptr CrossingEvent -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) :: IO Word32
    Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val

-- | Set the value of the “@time@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' crossingEvent [ #time 'Data.GI.Base.Attributes.:=' value ]
-- @
setCrossingEventTime :: MonadIO m => CrossingEvent -> Word32 -> m ()
setCrossingEventTime :: forall (m :: * -> *). MonadIO m => CrossingEvent -> Word32 -> m ()
setCrossingEventTime CrossingEvent
s Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO ()) -> IO ())
-> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data CrossingEventTimeFieldInfo
instance AttrInfo CrossingEventTimeFieldInfo where
    type AttrBaseTypeConstraint CrossingEventTimeFieldInfo = (~) CrossingEvent
    type AttrAllowedOps CrossingEventTimeFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint CrossingEventTimeFieldInfo = (~) Word32
    type AttrTransferTypeConstraint CrossingEventTimeFieldInfo = (~)Word32
    type AttrTransferType CrossingEventTimeFieldInfo = Word32
    type AttrGetType CrossingEventTimeFieldInfo = Word32
    type AttrLabel CrossingEventTimeFieldInfo = "time"
    type AttrOrigin CrossingEventTimeFieldInfo = CrossingEvent
    attrGet = getCrossingEventTime
    attrSet = setCrossingEventTime
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Clutter.Structs.CrossingEvent.time"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:time"
        })

crossingEvent_time :: AttrLabelProxy "time"
crossingEvent_time = AttrLabelProxy

#endif


-- | Get the value of the “@flags@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' crossingEvent #flags
-- @
getCrossingEventFlags :: MonadIO m => CrossingEvent -> m [Clutter.Flags.EventFlags]
getCrossingEventFlags :: forall (m :: * -> *). MonadIO m => CrossingEvent -> m [EventFlags]
getCrossingEventFlags CrossingEvent
s = IO [EventFlags] -> m [EventFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [EventFlags] -> m [EventFlags])
-> IO [EventFlags] -> m [EventFlags]
forall a b. (a -> b) -> a -> b
$ CrossingEvent
-> (Ptr CrossingEvent -> IO [EventFlags]) -> IO [EventFlags]
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO [EventFlags]) -> IO [EventFlags])
-> (Ptr CrossingEvent -> IO [EventFlags]) -> IO [EventFlags]
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    CUInt
val <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: IO CUInt
    let val' :: [EventFlags]
val' = CUInt -> [EventFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
val
    [EventFlags] -> IO [EventFlags]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [EventFlags]
val'

-- | Set the value of the “@flags@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' crossingEvent [ #flags 'Data.GI.Base.Attributes.:=' value ]
-- @
setCrossingEventFlags :: MonadIO m => CrossingEvent -> [Clutter.Flags.EventFlags] -> m ()
setCrossingEventFlags :: forall (m :: * -> *).
MonadIO m =>
CrossingEvent -> [EventFlags] -> m ()
setCrossingEventFlags CrossingEvent
s [EventFlags]
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO ()) -> IO ())
-> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    let val' :: CUInt
val' = [EventFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [EventFlags]
val
    Ptr CUInt -> CUInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (CUInt
val' :: CUInt)

#if defined(ENABLE_OVERLOADING)
data CrossingEventFlagsFieldInfo
instance AttrInfo CrossingEventFlagsFieldInfo where
    type AttrBaseTypeConstraint CrossingEventFlagsFieldInfo = (~) CrossingEvent
    type AttrAllowedOps CrossingEventFlagsFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint CrossingEventFlagsFieldInfo = (~) [Clutter.Flags.EventFlags]
    type AttrTransferTypeConstraint CrossingEventFlagsFieldInfo = (~)[Clutter.Flags.EventFlags]
    type AttrTransferType CrossingEventFlagsFieldInfo = [Clutter.Flags.EventFlags]
    type AttrGetType CrossingEventFlagsFieldInfo = [Clutter.Flags.EventFlags]
    type AttrLabel CrossingEventFlagsFieldInfo = "flags"
    type AttrOrigin CrossingEventFlagsFieldInfo = CrossingEvent
    attrGet = getCrossingEventFlags
    attrSet = setCrossingEventFlags
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Clutter.Structs.CrossingEvent.flags"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:flags"
        })

crossingEvent_flags :: AttrLabelProxy "flags"
crossingEvent_flags = AttrLabelProxy

#endif


-- | Get the value of the “@stage@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' crossingEvent #stage
-- @
getCrossingEventStage :: MonadIO m => CrossingEvent -> m (Maybe Clutter.Stage.Stage)
getCrossingEventStage :: forall (m :: * -> *). MonadIO m => CrossingEvent -> m (Maybe Stage)
getCrossingEventStage CrossingEvent
s = IO (Maybe Stage) -> m (Maybe Stage)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Stage) -> m (Maybe Stage))
-> IO (Maybe Stage) -> m (Maybe Stage)
forall a b. (a -> b) -> a -> b
$ CrossingEvent
-> (Ptr CrossingEvent -> IO (Maybe Stage)) -> IO (Maybe Stage)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO (Maybe Stage)) -> IO (Maybe Stage))
-> (Ptr CrossingEvent -> IO (Maybe Stage)) -> IO (Maybe Stage)
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    Ptr Stage
val <- Ptr (Ptr Stage) -> IO (Ptr Stage)
forall a. Storable a => Ptr a -> IO a
peek (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr (Ptr Stage)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO (Ptr Clutter.Stage.Stage)
    Maybe Stage
result <- Ptr Stage -> (Ptr Stage -> IO Stage) -> IO (Maybe Stage)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr Stage
val ((Ptr Stage -> IO Stage) -> IO (Maybe Stage))
-> (Ptr Stage -> IO Stage) -> IO (Maybe Stage)
forall a b. (a -> b) -> a -> b
$ \Ptr Stage
val' -> do
        Stage
val'' <- ((ManagedPtr Stage -> Stage) -> Ptr Stage -> IO Stage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Stage -> Stage
Clutter.Stage.Stage) Ptr Stage
val'
        Stage -> IO Stage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Stage
val''
    Maybe Stage -> IO (Maybe Stage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Stage
result

-- | Set the value of the “@stage@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' crossingEvent [ #stage 'Data.GI.Base.Attributes.:=' value ]
-- @
setCrossingEventStage :: MonadIO m => CrossingEvent -> Ptr Clutter.Stage.Stage -> m ()
setCrossingEventStage :: forall (m :: * -> *).
MonadIO m =>
CrossingEvent -> Ptr Stage -> m ()
setCrossingEventStage CrossingEvent
s Ptr Stage
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO ()) -> IO ())
-> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    Ptr (Ptr Stage) -> Ptr Stage -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr (Ptr Stage)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (Ptr Stage
val :: Ptr Clutter.Stage.Stage)

-- | Set the value of the “@stage@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #stage
-- @
clearCrossingEventStage :: MonadIO m => CrossingEvent -> m ()
clearCrossingEventStage :: forall (m :: * -> *). MonadIO m => CrossingEvent -> m ()
clearCrossingEventStage CrossingEvent
s = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO ()) -> IO ())
-> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    Ptr (Ptr Stage) -> Ptr Stage -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr (Ptr Stage)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (Ptr Stage
forall a. Ptr a
FP.nullPtr :: Ptr Clutter.Stage.Stage)

#if defined(ENABLE_OVERLOADING)
data CrossingEventStageFieldInfo
instance AttrInfo CrossingEventStageFieldInfo where
    type AttrBaseTypeConstraint CrossingEventStageFieldInfo = (~) CrossingEvent
    type AttrAllowedOps CrossingEventStageFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint CrossingEventStageFieldInfo = (~) (Ptr Clutter.Stage.Stage)
    type AttrTransferTypeConstraint CrossingEventStageFieldInfo = (~)(Ptr Clutter.Stage.Stage)
    type AttrTransferType CrossingEventStageFieldInfo = (Ptr Clutter.Stage.Stage)
    type AttrGetType CrossingEventStageFieldInfo = Maybe Clutter.Stage.Stage
    type AttrLabel CrossingEventStageFieldInfo = "stage"
    type AttrOrigin CrossingEventStageFieldInfo = CrossingEvent
    attrGet = getCrossingEventStage
    attrSet = setCrossingEventStage
    attrConstruct = undefined
    attrClear = clearCrossingEventStage
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Clutter.Structs.CrossingEvent.stage"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:stage"
        })

crossingEvent_stage :: AttrLabelProxy "stage"
crossingEvent_stage = AttrLabelProxy

#endif


-- | Get the value of the “@source@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' crossingEvent #source
-- @
getCrossingEventSource :: MonadIO m => CrossingEvent -> m (Maybe Clutter.Actor.Actor)
getCrossingEventSource :: forall (m :: * -> *). MonadIO m => CrossingEvent -> m (Maybe Actor)
getCrossingEventSource CrossingEvent
s = IO (Maybe Actor) -> m (Maybe Actor)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Actor) -> m (Maybe Actor))
-> IO (Maybe Actor) -> m (Maybe Actor)
forall a b. (a -> b) -> a -> b
$ CrossingEvent
-> (Ptr CrossingEvent -> IO (Maybe Actor)) -> IO (Maybe Actor)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO (Maybe Actor)) -> IO (Maybe Actor))
-> (Ptr CrossingEvent -> IO (Maybe Actor)) -> IO (Maybe Actor)
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    Ptr Actor
val <- Ptr (Ptr Actor) -> IO (Ptr Actor)
forall a. Storable a => Ptr a -> IO a
peek (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr (Ptr Actor)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) :: IO (Ptr Clutter.Actor.Actor)
    Maybe Actor
result <- Ptr Actor -> (Ptr Actor -> IO Actor) -> IO (Maybe Actor)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr Actor
val ((Ptr Actor -> IO Actor) -> IO (Maybe Actor))
-> (Ptr Actor -> IO Actor) -> IO (Maybe Actor)
forall a b. (a -> b) -> a -> b
$ \Ptr Actor
val' -> do
        Actor
val'' <- ((ManagedPtr Actor -> Actor) -> Ptr Actor -> IO Actor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Actor -> Actor
Clutter.Actor.Actor) Ptr Actor
val'
        Actor -> IO Actor
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Actor
val''
    Maybe Actor -> IO (Maybe Actor)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Actor
result

-- | Set the value of the “@source@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' crossingEvent [ #source 'Data.GI.Base.Attributes.:=' value ]
-- @
setCrossingEventSource :: MonadIO m => CrossingEvent -> Ptr Clutter.Actor.Actor -> m ()
setCrossingEventSource :: forall (m :: * -> *).
MonadIO m =>
CrossingEvent -> Ptr Actor -> m ()
setCrossingEventSource CrossingEvent
s Ptr Actor
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO ()) -> IO ())
-> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    Ptr (Ptr Actor) -> Ptr Actor -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr (Ptr Actor)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (Ptr Actor
val :: Ptr Clutter.Actor.Actor)

-- | Set the value of the “@source@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #source
-- @
clearCrossingEventSource :: MonadIO m => CrossingEvent -> m ()
clearCrossingEventSource :: forall (m :: * -> *). MonadIO m => CrossingEvent -> m ()
clearCrossingEventSource CrossingEvent
s = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO ()) -> IO ())
-> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    Ptr (Ptr Actor) -> Ptr Actor -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr (Ptr Actor)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (Ptr Actor
forall a. Ptr a
FP.nullPtr :: Ptr Clutter.Actor.Actor)

#if defined(ENABLE_OVERLOADING)
data CrossingEventSourceFieldInfo
instance AttrInfo CrossingEventSourceFieldInfo where
    type AttrBaseTypeConstraint CrossingEventSourceFieldInfo = (~) CrossingEvent
    type AttrAllowedOps CrossingEventSourceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint CrossingEventSourceFieldInfo = (~) (Ptr Clutter.Actor.Actor)
    type AttrTransferTypeConstraint CrossingEventSourceFieldInfo = (~)(Ptr Clutter.Actor.Actor)
    type AttrTransferType CrossingEventSourceFieldInfo = (Ptr Clutter.Actor.Actor)
    type AttrGetType CrossingEventSourceFieldInfo = Maybe Clutter.Actor.Actor
    type AttrLabel CrossingEventSourceFieldInfo = "source"
    type AttrOrigin CrossingEventSourceFieldInfo = CrossingEvent
    attrGet = getCrossingEventSource
    attrSet = setCrossingEventSource
    attrConstruct = undefined
    attrClear = clearCrossingEventSource
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Clutter.Structs.CrossingEvent.source"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:source"
        })

crossingEvent_source :: AttrLabelProxy "source"
crossingEvent_source = AttrLabelProxy

#endif


-- | Get the value of the “@x@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' crossingEvent #x
-- @
getCrossingEventX :: MonadIO m => CrossingEvent -> m Float
getCrossingEventX :: forall (m :: * -> *). MonadIO m => CrossingEvent -> m Float
getCrossingEventX CrossingEvent
s = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO Float) -> IO Float
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO Float) -> IO Float)
-> (Ptr CrossingEvent -> IO Float) -> IO Float
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    CFloat
val <- Ptr CFloat -> IO CFloat
forall a. Storable a => Ptr a -> IO a
peek (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr CFloat
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) :: IO CFloat
    let val' :: Float
val' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
val
    Float -> IO Float
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Float
val'

-- | Set the value of the “@x@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' crossingEvent [ #x 'Data.GI.Base.Attributes.:=' value ]
-- @
setCrossingEventX :: MonadIO m => CrossingEvent -> Float -> m ()
setCrossingEventX :: forall (m :: * -> *). MonadIO m => CrossingEvent -> Float -> m ()
setCrossingEventX CrossingEvent
s Float
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO ()) -> IO ())
-> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    let val' :: CFloat
val' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
val
    Ptr CFloat -> CFloat -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr CFloat
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (CFloat
val' :: CFloat)

#if defined(ENABLE_OVERLOADING)
data CrossingEventXFieldInfo
instance AttrInfo CrossingEventXFieldInfo where
    type AttrBaseTypeConstraint CrossingEventXFieldInfo = (~) CrossingEvent
    type AttrAllowedOps CrossingEventXFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint CrossingEventXFieldInfo = (~) Float
    type AttrTransferTypeConstraint CrossingEventXFieldInfo = (~)Float
    type AttrTransferType CrossingEventXFieldInfo = Float
    type AttrGetType CrossingEventXFieldInfo = Float
    type AttrLabel CrossingEventXFieldInfo = "x"
    type AttrOrigin CrossingEventXFieldInfo = CrossingEvent
    attrGet = getCrossingEventX
    attrSet = setCrossingEventX
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Clutter.Structs.CrossingEvent.x"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:x"
        })

crossingEvent_x :: AttrLabelProxy "x"
crossingEvent_x = AttrLabelProxy

#endif


-- | Get the value of the “@y@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' crossingEvent #y
-- @
getCrossingEventY :: MonadIO m => CrossingEvent -> m Float
getCrossingEventY :: forall (m :: * -> *). MonadIO m => CrossingEvent -> m Float
getCrossingEventY CrossingEvent
s = IO Float -> m Float
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO Float) -> IO Float
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO Float) -> IO Float)
-> (Ptr CrossingEvent -> IO Float) -> IO Float
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    CFloat
val <- Ptr CFloat -> IO CFloat
forall a. Storable a => Ptr a -> IO a
peek (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr CFloat
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36) :: IO CFloat
    let val' :: Float
val' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
val
    Float -> IO Float
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Float
val'

-- | Set the value of the “@y@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' crossingEvent [ #y 'Data.GI.Base.Attributes.:=' value ]
-- @
setCrossingEventY :: MonadIO m => CrossingEvent -> Float -> m ()
setCrossingEventY :: forall (m :: * -> *). MonadIO m => CrossingEvent -> Float -> m ()
setCrossingEventY CrossingEvent
s Float
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO ()) -> IO ())
-> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    let val' :: CFloat
val' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
val
    Ptr CFloat -> CFloat -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr CFloat
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36) (CFloat
val' :: CFloat)

#if defined(ENABLE_OVERLOADING)
data CrossingEventYFieldInfo
instance AttrInfo CrossingEventYFieldInfo where
    type AttrBaseTypeConstraint CrossingEventYFieldInfo = (~) CrossingEvent
    type AttrAllowedOps CrossingEventYFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint CrossingEventYFieldInfo = (~) Float
    type AttrTransferTypeConstraint CrossingEventYFieldInfo = (~)Float
    type AttrTransferType CrossingEventYFieldInfo = Float
    type AttrGetType CrossingEventYFieldInfo = Float
    type AttrLabel CrossingEventYFieldInfo = "y"
    type AttrOrigin CrossingEventYFieldInfo = CrossingEvent
    attrGet = getCrossingEventY
    attrSet = setCrossingEventY
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Clutter.Structs.CrossingEvent.y"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:y"
        })

crossingEvent_y :: AttrLabelProxy "y"
crossingEvent_y = AttrLabelProxy

#endif


-- | Get the value of the “@device@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' crossingEvent #device
-- @
getCrossingEventDevice :: MonadIO m => CrossingEvent -> m (Maybe Clutter.InputDevice.InputDevice)
getCrossingEventDevice :: forall (m :: * -> *).
MonadIO m =>
CrossingEvent -> m (Maybe InputDevice)
getCrossingEventDevice CrossingEvent
s = IO (Maybe InputDevice) -> m (Maybe InputDevice)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe InputDevice) -> m (Maybe InputDevice))
-> IO (Maybe InputDevice) -> m (Maybe InputDevice)
forall a b. (a -> b) -> a -> b
$ CrossingEvent
-> (Ptr CrossingEvent -> IO (Maybe InputDevice))
-> IO (Maybe InputDevice)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO (Maybe InputDevice))
 -> IO (Maybe InputDevice))
-> (Ptr CrossingEvent -> IO (Maybe InputDevice))
-> IO (Maybe InputDevice)
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    Ptr InputDevice
val <- Ptr (Ptr InputDevice) -> IO (Ptr InputDevice)
forall a. Storable a => Ptr a -> IO a
peek (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr (Ptr InputDevice)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) :: IO (Ptr Clutter.InputDevice.InputDevice)
    Maybe InputDevice
result <- Ptr InputDevice
-> (Ptr InputDevice -> IO InputDevice) -> IO (Maybe InputDevice)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr InputDevice
val ((Ptr InputDevice -> IO InputDevice) -> IO (Maybe InputDevice))
-> (Ptr InputDevice -> IO InputDevice) -> IO (Maybe InputDevice)
forall a b. (a -> b) -> a -> b
$ \Ptr InputDevice
val' -> do
        InputDevice
val'' <- ((ManagedPtr InputDevice -> InputDevice)
-> Ptr InputDevice -> IO InputDevice
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr InputDevice -> InputDevice
Clutter.InputDevice.InputDevice) Ptr InputDevice
val'
        InputDevice -> IO InputDevice
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return InputDevice
val''
    Maybe InputDevice -> IO (Maybe InputDevice)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe InputDevice
result

-- | Set the value of the “@device@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' crossingEvent [ #device 'Data.GI.Base.Attributes.:=' value ]
-- @
setCrossingEventDevice :: MonadIO m => CrossingEvent -> Ptr Clutter.InputDevice.InputDevice -> m ()
setCrossingEventDevice :: forall (m :: * -> *).
MonadIO m =>
CrossingEvent -> Ptr InputDevice -> m ()
setCrossingEventDevice CrossingEvent
s Ptr InputDevice
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO ()) -> IO ())
-> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    Ptr (Ptr InputDevice) -> Ptr InputDevice -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr (Ptr InputDevice)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (Ptr InputDevice
val :: Ptr Clutter.InputDevice.InputDevice)

-- | Set the value of the “@device@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #device
-- @
clearCrossingEventDevice :: MonadIO m => CrossingEvent -> m ()
clearCrossingEventDevice :: forall (m :: * -> *). MonadIO m => CrossingEvent -> m ()
clearCrossingEventDevice CrossingEvent
s = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO ()) -> IO ())
-> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    Ptr (Ptr InputDevice) -> Ptr InputDevice -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr (Ptr InputDevice)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (Ptr InputDevice
forall a. Ptr a
FP.nullPtr :: Ptr Clutter.InputDevice.InputDevice)

#if defined(ENABLE_OVERLOADING)
data CrossingEventDeviceFieldInfo
instance AttrInfo CrossingEventDeviceFieldInfo where
    type AttrBaseTypeConstraint CrossingEventDeviceFieldInfo = (~) CrossingEvent
    type AttrAllowedOps CrossingEventDeviceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint CrossingEventDeviceFieldInfo = (~) (Ptr Clutter.InputDevice.InputDevice)
    type AttrTransferTypeConstraint CrossingEventDeviceFieldInfo = (~)(Ptr Clutter.InputDevice.InputDevice)
    type AttrTransferType CrossingEventDeviceFieldInfo = (Ptr Clutter.InputDevice.InputDevice)
    type AttrGetType CrossingEventDeviceFieldInfo = Maybe Clutter.InputDevice.InputDevice
    type AttrLabel CrossingEventDeviceFieldInfo = "device"
    type AttrOrigin CrossingEventDeviceFieldInfo = CrossingEvent
    attrGet = getCrossingEventDevice
    attrSet = setCrossingEventDevice
    attrConstruct = undefined
    attrClear = clearCrossingEventDevice
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Clutter.Structs.CrossingEvent.device"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:device"
        })

crossingEvent_device :: AttrLabelProxy "device"
crossingEvent_device = AttrLabelProxy

#endif


-- | Get the value of the “@related@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' crossingEvent #related
-- @
getCrossingEventRelated :: MonadIO m => CrossingEvent -> m (Maybe Clutter.Actor.Actor)
getCrossingEventRelated :: forall (m :: * -> *). MonadIO m => CrossingEvent -> m (Maybe Actor)
getCrossingEventRelated CrossingEvent
s = IO (Maybe Actor) -> m (Maybe Actor)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Actor) -> m (Maybe Actor))
-> IO (Maybe Actor) -> m (Maybe Actor)
forall a b. (a -> b) -> a -> b
$ CrossingEvent
-> (Ptr CrossingEvent -> IO (Maybe Actor)) -> IO (Maybe Actor)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO (Maybe Actor)) -> IO (Maybe Actor))
-> (Ptr CrossingEvent -> IO (Maybe Actor)) -> IO (Maybe Actor)
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    Ptr Actor
val <- Ptr (Ptr Actor) -> IO (Ptr Actor)
forall a. Storable a => Ptr a -> IO a
peek (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr (Ptr Actor)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) :: IO (Ptr Clutter.Actor.Actor)
    Maybe Actor
result <- Ptr Actor -> (Ptr Actor -> IO Actor) -> IO (Maybe Actor)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr Actor
val ((Ptr Actor -> IO Actor) -> IO (Maybe Actor))
-> (Ptr Actor -> IO Actor) -> IO (Maybe Actor)
forall a b. (a -> b) -> a -> b
$ \Ptr Actor
val' -> do
        Actor
val'' <- ((ManagedPtr Actor -> Actor) -> Ptr Actor -> IO Actor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Actor -> Actor
Clutter.Actor.Actor) Ptr Actor
val'
        Actor -> IO Actor
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Actor
val''
    Maybe Actor -> IO (Maybe Actor)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Actor
result

-- | Set the value of the “@related@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' crossingEvent [ #related 'Data.GI.Base.Attributes.:=' value ]
-- @
setCrossingEventRelated :: MonadIO m => CrossingEvent -> Ptr Clutter.Actor.Actor -> m ()
setCrossingEventRelated :: forall (m :: * -> *).
MonadIO m =>
CrossingEvent -> Ptr Actor -> m ()
setCrossingEventRelated CrossingEvent
s Ptr Actor
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO ()) -> IO ())
-> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    Ptr (Ptr Actor) -> Ptr Actor -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr (Ptr Actor)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (Ptr Actor
val :: Ptr Clutter.Actor.Actor)

-- | Set the value of the “@related@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #related
-- @
clearCrossingEventRelated :: MonadIO m => CrossingEvent -> m ()
clearCrossingEventRelated :: forall (m :: * -> *). MonadIO m => CrossingEvent -> m ()
clearCrossingEventRelated CrossingEvent
s = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CrossingEvent -> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CrossingEvent
s ((Ptr CrossingEvent -> IO ()) -> IO ())
-> (Ptr CrossingEvent -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CrossingEvent
ptr -> do
    Ptr (Ptr Actor) -> Ptr Actor -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CrossingEvent
ptr Ptr CrossingEvent -> Int -> Ptr (Ptr Actor)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (Ptr Actor
forall a. Ptr a
FP.nullPtr :: Ptr Clutter.Actor.Actor)

#if defined(ENABLE_OVERLOADING)
data CrossingEventRelatedFieldInfo
instance AttrInfo CrossingEventRelatedFieldInfo where
    type AttrBaseTypeConstraint CrossingEventRelatedFieldInfo = (~) CrossingEvent
    type AttrAllowedOps CrossingEventRelatedFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint CrossingEventRelatedFieldInfo = (~) (Ptr Clutter.Actor.Actor)
    type AttrTransferTypeConstraint CrossingEventRelatedFieldInfo = (~)(Ptr Clutter.Actor.Actor)
    type AttrTransferType CrossingEventRelatedFieldInfo = (Ptr Clutter.Actor.Actor)
    type AttrGetType CrossingEventRelatedFieldInfo = Maybe Clutter.Actor.Actor
    type AttrLabel CrossingEventRelatedFieldInfo = "related"
    type AttrOrigin CrossingEventRelatedFieldInfo = CrossingEvent
    attrGet = getCrossingEventRelated
    attrSet = setCrossingEventRelated
    attrConstruct = undefined
    attrClear = clearCrossingEventRelated
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Clutter.Structs.CrossingEvent.related"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:related"
        })

crossingEvent_related :: AttrLabelProxy "related"
crossingEvent_related = AttrLabelProxy

#endif



#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CrossingEvent
type instance O.AttributeList CrossingEvent = CrossingEventAttributeList
type CrossingEventAttributeList = ('[ '("type", CrossingEventTypeFieldInfo), '("time", CrossingEventTimeFieldInfo), '("flags", CrossingEventFlagsFieldInfo), '("stage", CrossingEventStageFieldInfo), '("source", CrossingEventSourceFieldInfo), '("x", CrossingEventXFieldInfo), '("y", CrossingEventYFieldInfo), '("device", CrossingEventDeviceFieldInfo), '("related", CrossingEventRelatedFieldInfo)] :: [(Symbol, *)])
#endif

#if defined(ENABLE_OVERLOADING)
type family ResolveCrossingEventMethod (t :: Symbol) (o :: *) :: * where
    ResolveCrossingEventMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveCrossingEventMethod t CrossingEvent, O.OverloadedMethod info CrossingEvent p) => OL.IsLabel t (CrossingEvent -> 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 ~ ResolveCrossingEventMethod t CrossingEvent, O.OverloadedMethod info CrossingEvent p, R.HasField t CrossingEvent p) => R.HasField t CrossingEvent p where
    getField = O.overloadedMethod @info

#endif

instance (info ~ ResolveCrossingEventMethod t CrossingEvent, O.OverloadedMethodInfo info CrossingEvent) => OL.IsLabel t (O.MethodProxy info CrossingEvent) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.MethodProxy
#else
    fromLabel _ = O.MethodProxy
#endif

#endif