{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Clutter.Structs.CrossingEvent
(
CrossingEvent(..) ,
newZeroCrossingEvent ,
#if defined(ENABLE_OVERLOADING)
ResolveCrossingEventMethod ,
#endif
clearCrossingEventDevice ,
#if defined(ENABLE_OVERLOADING)
crossingEvent_device ,
#endif
getCrossingEventDevice ,
setCrossingEventDevice ,
#if defined(ENABLE_OVERLOADING)
crossingEvent_flags ,
#endif
getCrossingEventFlags ,
setCrossingEventFlags ,
clearCrossingEventRelated ,
#if defined(ENABLE_OVERLOADING)
crossingEvent_related ,
#endif
getCrossingEventRelated ,
setCrossingEventRelated ,
clearCrossingEventSource ,
#if defined(ENABLE_OVERLOADING)
crossingEvent_source ,
#endif
getCrossingEventSource ,
setCrossingEventSource ,
clearCrossingEventStage ,
#if defined(ENABLE_OVERLOADING)
crossingEvent_stage ,
#endif
getCrossingEventStage ,
setCrossingEventStage ,
#if defined(ENABLE_OVERLOADING)
crossingEvent_time ,
#endif
getCrossingEventTime ,
setCrossingEventTime ,
#if defined(ENABLE_OVERLOADING)
crossingEvent_type ,
#endif
getCrossingEventType ,
setCrossingEventType ,
#if defined(ENABLE_OVERLOADING)
crossingEvent_x ,
#endif
getCrossingEventX ,
setCrossingEventX ,
#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.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.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
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
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
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'
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.5/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:type"
})
crossingEvent_type :: AttrLabelProxy "type"
crossingEvent_type = AttrLabelProxy
#endif
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
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.5/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:time"
})
crossingEvent_time :: AttrLabelProxy "time"
crossingEvent_time = AttrLabelProxy
#endif
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'
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.5/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:flags"
})
crossingEvent_flags :: AttrLabelProxy "flags"
crossingEvent_flags = AttrLabelProxy
#endif
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
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)
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.5/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:stage"
})
crossingEvent_stage :: AttrLabelProxy "stage"
crossingEvent_stage = AttrLabelProxy
#endif
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
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)
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.5/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:source"
})
crossingEvent_source :: AttrLabelProxy "source"
crossingEvent_source = AttrLabelProxy
#endif
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'
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.5/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:x"
})
crossingEvent_x :: AttrLabelProxy "x"
crossingEvent_x = AttrLabelProxy
#endif
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'
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.5/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:y"
})
crossingEvent_y :: AttrLabelProxy "y"
crossingEvent_y = AttrLabelProxy
#endif
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
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)
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.5/docs/GI-Clutter-Structs-CrossingEvent.html#g:attr:device"
})
crossingEvent_device :: AttrLabelProxy "device"
crossingEvent_device = AttrLabelProxy
#endif
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
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)
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.5/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, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveCrossingEventMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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