{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Clutter.Objects.TransitionGroup
(
TransitionGroup(..) ,
IsTransitionGroup ,
toTransitionGroup ,
#if defined(ENABLE_OVERLOADING)
ResolveTransitionGroupMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TransitionGroupAddTransitionMethodInfo ,
#endif
transitionGroupAddTransition ,
transitionGroupNew ,
#if defined(ENABLE_OVERLOADING)
TransitionGroupRemoveAllMethodInfo ,
#endif
transitionGroupRemoveAll ,
#if defined(ENABLE_OVERLOADING)
TransitionGroupRemoveTransitionMethodInfo,
#endif
transitionGroupRemoveTransition ,
) 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.Interfaces.Scriptable as Clutter.Scriptable
import {-# SOURCE #-} qualified GI.Clutter.Objects.Timeline as Clutter.Timeline
import {-# SOURCE #-} qualified GI.Clutter.Objects.Transition as Clutter.Transition
import qualified GI.GObject.Objects.Object as GObject.Object
newtype TransitionGroup = TransitionGroup (SP.ManagedPtr TransitionGroup)
deriving (TransitionGroup -> TransitionGroup -> Bool
(TransitionGroup -> TransitionGroup -> Bool)
-> (TransitionGroup -> TransitionGroup -> Bool)
-> Eq TransitionGroup
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TransitionGroup -> TransitionGroup -> Bool
== :: TransitionGroup -> TransitionGroup -> Bool
$c/= :: TransitionGroup -> TransitionGroup -> Bool
/= :: TransitionGroup -> TransitionGroup -> Bool
Eq)
instance SP.ManagedPtrNewtype TransitionGroup where
toManagedPtr :: TransitionGroup -> ManagedPtr TransitionGroup
toManagedPtr (TransitionGroup ManagedPtr TransitionGroup
p) = ManagedPtr TransitionGroup
p
foreign import ccall "clutter_transition_group_get_type"
c_clutter_transition_group_get_type :: IO B.Types.GType
instance B.Types.TypedObject TransitionGroup where
glibType :: IO GType
glibType = IO GType
c_clutter_transition_group_get_type
instance B.Types.GObject TransitionGroup
class (SP.GObject o, O.IsDescendantOf TransitionGroup o) => IsTransitionGroup o
instance (SP.GObject o, O.IsDescendantOf TransitionGroup o) => IsTransitionGroup o
instance O.HasParentTypes TransitionGroup
type instance O.ParentTypes TransitionGroup = '[Clutter.Transition.Transition, Clutter.Timeline.Timeline, GObject.Object.Object, Clutter.Scriptable.Scriptable]
toTransitionGroup :: (MIO.MonadIO m, IsTransitionGroup o) => o -> m TransitionGroup
toTransitionGroup :: forall (m :: * -> *) o.
(MonadIO m, IsTransitionGroup o) =>
o -> m TransitionGroup
toTransitionGroup = IO TransitionGroup -> m TransitionGroup
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TransitionGroup -> m TransitionGroup)
-> (o -> IO TransitionGroup) -> o -> m TransitionGroup
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr TransitionGroup -> TransitionGroup)
-> o -> IO TransitionGroup
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr TransitionGroup -> TransitionGroup
TransitionGroup
instance B.GValue.IsGValue (Maybe TransitionGroup) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_clutter_transition_group_get_type
gvalueSet_ :: Ptr GValue -> Maybe TransitionGroup -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TransitionGroup
P.Nothing = Ptr GValue -> Ptr TransitionGroup -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr TransitionGroup
forall a. Ptr a
FP.nullPtr :: FP.Ptr TransitionGroup)
gvalueSet_ Ptr GValue
gv (P.Just TransitionGroup
obj) = TransitionGroup -> (Ptr TransitionGroup -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TransitionGroup
obj (Ptr GValue -> Ptr TransitionGroup -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TransitionGroup)
gvalueGet_ Ptr GValue
gv = do
Ptr TransitionGroup
ptr <- Ptr GValue -> IO (Ptr TransitionGroup)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr TransitionGroup)
if Ptr TransitionGroup
ptr Ptr TransitionGroup -> Ptr TransitionGroup -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr TransitionGroup
forall a. Ptr a
FP.nullPtr
then TransitionGroup -> Maybe TransitionGroup
forall a. a -> Maybe a
P.Just (TransitionGroup -> Maybe TransitionGroup)
-> IO TransitionGroup -> IO (Maybe TransitionGroup)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr TransitionGroup -> TransitionGroup)
-> Ptr TransitionGroup -> IO TransitionGroup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr TransitionGroup -> TransitionGroup
TransitionGroup Ptr TransitionGroup
ptr
else Maybe TransitionGroup -> IO (Maybe TransitionGroup)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TransitionGroup
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTransitionGroupMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveTransitionGroupMethod "addMarker" o = Clutter.Timeline.TimelineAddMarkerMethodInfo
ResolveTransitionGroupMethod "addMarkerAtTime" o = Clutter.Timeline.TimelineAddMarkerAtTimeMethodInfo
ResolveTransitionGroupMethod "addTransition" o = TransitionGroupAddTransitionMethodInfo
ResolveTransitionGroupMethod "advance" o = Clutter.Timeline.TimelineAdvanceMethodInfo
ResolveTransitionGroupMethod "advanceToMarker" o = Clutter.Timeline.TimelineAdvanceToMarkerMethodInfo
ResolveTransitionGroupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTransitionGroupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTransitionGroupMethod "clone" o = Clutter.Timeline.TimelineCloneMethodInfo
ResolveTransitionGroupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTransitionGroupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTransitionGroupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTransitionGroupMethod "hasMarker" o = Clutter.Timeline.TimelineHasMarkerMethodInfo
ResolveTransitionGroupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTransitionGroupMethod "isPlaying" o = Clutter.Timeline.TimelineIsPlayingMethodInfo
ResolveTransitionGroupMethod "listMarkers" o = Clutter.Timeline.TimelineListMarkersMethodInfo
ResolveTransitionGroupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTransitionGroupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTransitionGroupMethod "parseCustomNode" o = Clutter.Scriptable.ScriptableParseCustomNodeMethodInfo
ResolveTransitionGroupMethod "pause" o = Clutter.Timeline.TimelinePauseMethodInfo
ResolveTransitionGroupMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTransitionGroupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTransitionGroupMethod "removeAll" o = TransitionGroupRemoveAllMethodInfo
ResolveTransitionGroupMethod "removeMarker" o = Clutter.Timeline.TimelineRemoveMarkerMethodInfo
ResolveTransitionGroupMethod "removeTransition" o = TransitionGroupRemoveTransitionMethodInfo
ResolveTransitionGroupMethod "rewind" o = Clutter.Timeline.TimelineRewindMethodInfo
ResolveTransitionGroupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTransitionGroupMethod "skip" o = Clutter.Timeline.TimelineSkipMethodInfo
ResolveTransitionGroupMethod "start" o = Clutter.Timeline.TimelineStartMethodInfo
ResolveTransitionGroupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTransitionGroupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTransitionGroupMethod "stop" o = Clutter.Timeline.TimelineStopMethodInfo
ResolveTransitionGroupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTransitionGroupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTransitionGroupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTransitionGroupMethod "getAnimatable" o = Clutter.Transition.TransitionGetAnimatableMethodInfo
ResolveTransitionGroupMethod "getAutoReverse" o = Clutter.Timeline.TimelineGetAutoReverseMethodInfo
ResolveTransitionGroupMethod "getCubicBezierProgress" o = Clutter.Timeline.TimelineGetCubicBezierProgressMethodInfo
ResolveTransitionGroupMethod "getCurrentRepeat" o = Clutter.Timeline.TimelineGetCurrentRepeatMethodInfo
ResolveTransitionGroupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTransitionGroupMethod "getDelay" o = Clutter.Timeline.TimelineGetDelayMethodInfo
ResolveTransitionGroupMethod "getDelta" o = Clutter.Timeline.TimelineGetDeltaMethodInfo
ResolveTransitionGroupMethod "getDirection" o = Clutter.Timeline.TimelineGetDirectionMethodInfo
ResolveTransitionGroupMethod "getDuration" o = Clutter.Timeline.TimelineGetDurationMethodInfo
ResolveTransitionGroupMethod "getDurationHint" o = Clutter.Timeline.TimelineGetDurationHintMethodInfo
ResolveTransitionGroupMethod "getElapsedTime" o = Clutter.Timeline.TimelineGetElapsedTimeMethodInfo
ResolveTransitionGroupMethod "getId" o = Clutter.Scriptable.ScriptableGetIdMethodInfo
ResolveTransitionGroupMethod "getInterval" o = Clutter.Transition.TransitionGetIntervalMethodInfo
ResolveTransitionGroupMethod "getLoop" o = Clutter.Timeline.TimelineGetLoopMethodInfo
ResolveTransitionGroupMethod "getProgress" o = Clutter.Timeline.TimelineGetProgressMethodInfo
ResolveTransitionGroupMethod "getProgressMode" o = Clutter.Timeline.TimelineGetProgressModeMethodInfo
ResolveTransitionGroupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTransitionGroupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTransitionGroupMethod "getRemoveOnComplete" o = Clutter.Transition.TransitionGetRemoveOnCompleteMethodInfo
ResolveTransitionGroupMethod "getRepeatCount" o = Clutter.Timeline.TimelineGetRepeatCountMethodInfo
ResolveTransitionGroupMethod "getStepProgress" o = Clutter.Timeline.TimelineGetStepProgressMethodInfo
ResolveTransitionGroupMethod "setAnimatable" o = Clutter.Transition.TransitionSetAnimatableMethodInfo
ResolveTransitionGroupMethod "setAutoReverse" o = Clutter.Timeline.TimelineSetAutoReverseMethodInfo
ResolveTransitionGroupMethod "setCubicBezierProgress" o = Clutter.Timeline.TimelineSetCubicBezierProgressMethodInfo
ResolveTransitionGroupMethod "setCustomProperty" o = Clutter.Scriptable.ScriptableSetCustomPropertyMethodInfo
ResolveTransitionGroupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTransitionGroupMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTransitionGroupMethod "setDelay" o = Clutter.Timeline.TimelineSetDelayMethodInfo
ResolveTransitionGroupMethod "setDirection" o = Clutter.Timeline.TimelineSetDirectionMethodInfo
ResolveTransitionGroupMethod "setDuration" o = Clutter.Timeline.TimelineSetDurationMethodInfo
ResolveTransitionGroupMethod "setFrom" o = Clutter.Transition.TransitionSetFromMethodInfo
ResolveTransitionGroupMethod "setId" o = Clutter.Scriptable.ScriptableSetIdMethodInfo
ResolveTransitionGroupMethod "setInterval" o = Clutter.Transition.TransitionSetIntervalMethodInfo
ResolveTransitionGroupMethod "setLoop" o = Clutter.Timeline.TimelineSetLoopMethodInfo
ResolveTransitionGroupMethod "setProgressFunc" o = Clutter.Timeline.TimelineSetProgressFuncMethodInfo
ResolveTransitionGroupMethod "setProgressMode" o = Clutter.Timeline.TimelineSetProgressModeMethodInfo
ResolveTransitionGroupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTransitionGroupMethod "setRemoveOnComplete" o = Clutter.Transition.TransitionSetRemoveOnCompleteMethodInfo
ResolveTransitionGroupMethod "setRepeatCount" o = Clutter.Timeline.TimelineSetRepeatCountMethodInfo
ResolveTransitionGroupMethod "setStepProgress" o = Clutter.Timeline.TimelineSetStepProgressMethodInfo
ResolveTransitionGroupMethod "setTo" o = Clutter.Transition.TransitionSetToMethodInfo
ResolveTransitionGroupMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTransitionGroupMethod t TransitionGroup, O.OverloadedMethod info TransitionGroup p) => OL.IsLabel t (TransitionGroup -> 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 ~ ResolveTransitionGroupMethod t TransitionGroup, O.OverloadedMethod info TransitionGroup p, R.HasField t TransitionGroup p) => R.HasField t TransitionGroup p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTransitionGroupMethod t TransitionGroup, O.OverloadedMethodInfo info TransitionGroup) => OL.IsLabel t (O.MethodProxy info TransitionGroup) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TransitionGroup
type instance O.AttributeList TransitionGroup = TransitionGroupAttributeList
type TransitionGroupAttributeList = ('[ '("animatable", Clutter.Transition.TransitionAnimatablePropertyInfo), '("autoReverse", Clutter.Timeline.TimelineAutoReversePropertyInfo), '("delay", Clutter.Timeline.TimelineDelayPropertyInfo), '("direction", Clutter.Timeline.TimelineDirectionPropertyInfo), '("duration", Clutter.Timeline.TimelineDurationPropertyInfo), '("interval", Clutter.Transition.TransitionIntervalPropertyInfo), '("loop", Clutter.Timeline.TimelineLoopPropertyInfo), '("progressMode", Clutter.Timeline.TimelineProgressModePropertyInfo), '("removeOnComplete", Clutter.Transition.TransitionRemoveOnCompletePropertyInfo), '("repeatCount", Clutter.Timeline.TimelineRepeatCountPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList TransitionGroup = TransitionGroupSignalList
type TransitionGroupSignalList = ('[ '("completed", Clutter.Timeline.TimelineCompletedSignalInfo), '("markerReached", Clutter.Timeline.TimelineMarkerReachedSignalInfo), '("newFrame", Clutter.Timeline.TimelineNewFrameSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("paused", Clutter.Timeline.TimelinePausedSignalInfo), '("started", Clutter.Timeline.TimelineStartedSignalInfo), '("stopped", Clutter.Timeline.TimelineStoppedSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "clutter_transition_group_new" clutter_transition_group_new ::
IO (Ptr TransitionGroup)
transitionGroupNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m TransitionGroup
transitionGroupNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m TransitionGroup
transitionGroupNew = IO TransitionGroup -> m TransitionGroup
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TransitionGroup -> m TransitionGroup)
-> IO TransitionGroup -> m TransitionGroup
forall a b. (a -> b) -> a -> b
$ do
Ptr TransitionGroup
result <- IO (Ptr TransitionGroup)
clutter_transition_group_new
Text -> Ptr TransitionGroup -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"transitionGroupNew" Ptr TransitionGroup
result
TransitionGroup
result' <- ((ManagedPtr TransitionGroup -> TransitionGroup)
-> Ptr TransitionGroup -> IO TransitionGroup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr TransitionGroup -> TransitionGroup
TransitionGroup) Ptr TransitionGroup
result
TransitionGroup -> IO TransitionGroup
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TransitionGroup
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "clutter_transition_group_add_transition" clutter_transition_group_add_transition ::
Ptr TransitionGroup ->
Ptr Clutter.Transition.Transition ->
IO ()
transitionGroupAddTransition ::
(B.CallStack.HasCallStack, MonadIO m, IsTransitionGroup a, Clutter.Transition.IsTransition b) =>
a
-> b
-> m ()
transitionGroupAddTransition :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTransitionGroup a, IsTransition b) =>
a -> b -> m ()
transitionGroupAddTransition a
group b
transition = 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
$ do
Ptr TransitionGroup
group' <- a -> IO (Ptr TransitionGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
group
Ptr Transition
transition' <- b -> IO (Ptr Transition)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
transition
Ptr TransitionGroup -> Ptr Transition -> IO ()
clutter_transition_group_add_transition Ptr TransitionGroup
group' Ptr Transition
transition'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
group
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
transition
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TransitionGroupAddTransitionMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTransitionGroup a, Clutter.Transition.IsTransition b) => O.OverloadedMethod TransitionGroupAddTransitionMethodInfo a signature where
overloadedMethod = transitionGroupAddTransition
instance O.OverloadedMethodInfo TransitionGroupAddTransitionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TransitionGroup.transitionGroupAddTransition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-TransitionGroup.html#v:transitionGroupAddTransition"
})
#endif
foreign import ccall "clutter_transition_group_remove_all" clutter_transition_group_remove_all ::
Ptr TransitionGroup ->
IO ()
transitionGroupRemoveAll ::
(B.CallStack.HasCallStack, MonadIO m, IsTransitionGroup a) =>
a
-> m ()
transitionGroupRemoveAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTransitionGroup a) =>
a -> m ()
transitionGroupRemoveAll a
group = 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
$ do
Ptr TransitionGroup
group' <- a -> IO (Ptr TransitionGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
group
Ptr TransitionGroup -> IO ()
clutter_transition_group_remove_all Ptr TransitionGroup
group'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
group
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TransitionGroupRemoveAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTransitionGroup a) => O.OverloadedMethod TransitionGroupRemoveAllMethodInfo a signature where
overloadedMethod = transitionGroupRemoveAll
instance O.OverloadedMethodInfo TransitionGroupRemoveAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TransitionGroup.transitionGroupRemoveAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-TransitionGroup.html#v:transitionGroupRemoveAll"
})
#endif
foreign import ccall "clutter_transition_group_remove_transition" clutter_transition_group_remove_transition ::
Ptr TransitionGroup ->
Ptr Clutter.Transition.Transition ->
IO ()
transitionGroupRemoveTransition ::
(B.CallStack.HasCallStack, MonadIO m, IsTransitionGroup a, Clutter.Transition.IsTransition b) =>
a
-> b
-> m ()
transitionGroupRemoveTransition :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTransitionGroup a, IsTransition b) =>
a -> b -> m ()
transitionGroupRemoveTransition a
group b
transition = 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
$ do
Ptr TransitionGroup
group' <- a -> IO (Ptr TransitionGroup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
group
Ptr Transition
transition' <- b -> IO (Ptr Transition)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
transition
Ptr TransitionGroup -> Ptr Transition -> IO ()
clutter_transition_group_remove_transition Ptr TransitionGroup
group' Ptr Transition
transition'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
group
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
transition
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TransitionGroupRemoveTransitionMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTransitionGroup a, Clutter.Transition.IsTransition b) => O.OverloadedMethod TransitionGroupRemoveTransitionMethodInfo a signature where
overloadedMethod = transitionGroupRemoveTransition
instance O.OverloadedMethodInfo TransitionGroupRemoveTransitionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TransitionGroup.transitionGroupRemoveTransition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-TransitionGroup.html#v:transitionGroupRemoveTransition"
})
#endif