{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Clutter.Objects.Animation
(
Animation(..) ,
IsAnimation ,
toAnimation ,
#if defined(ENABLE_OVERLOADING)
ResolveAnimationMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
AnimationBindMethodInfo ,
#endif
animationBind ,
#if defined(ENABLE_OVERLOADING)
AnimationBindIntervalMethodInfo ,
#endif
animationBindInterval ,
#if defined(ENABLE_OVERLOADING)
AnimationCompletedMethodInfo ,
#endif
animationCompleted ,
#if defined(ENABLE_OVERLOADING)
AnimationGetAlphaMethodInfo ,
#endif
animationGetAlpha ,
#if defined(ENABLE_OVERLOADING)
AnimationGetDurationMethodInfo ,
#endif
animationGetDuration ,
#if defined(ENABLE_OVERLOADING)
AnimationGetIntervalMethodInfo ,
#endif
animationGetInterval ,
#if defined(ENABLE_OVERLOADING)
AnimationGetLoopMethodInfo ,
#endif
animationGetLoop ,
#if defined(ENABLE_OVERLOADING)
AnimationGetModeMethodInfo ,
#endif
animationGetMode ,
#if defined(ENABLE_OVERLOADING)
AnimationGetObjectMethodInfo ,
#endif
animationGetObject ,
#if defined(ENABLE_OVERLOADING)
AnimationGetTimelineMethodInfo ,
#endif
animationGetTimeline ,
#if defined(ENABLE_OVERLOADING)
AnimationHasPropertyMethodInfo ,
#endif
animationHasProperty ,
animationNew ,
#if defined(ENABLE_OVERLOADING)
AnimationSetAlphaMethodInfo ,
#endif
animationSetAlpha ,
#if defined(ENABLE_OVERLOADING)
AnimationSetDurationMethodInfo ,
#endif
animationSetDuration ,
#if defined(ENABLE_OVERLOADING)
AnimationSetLoopMethodInfo ,
#endif
animationSetLoop ,
#if defined(ENABLE_OVERLOADING)
AnimationSetModeMethodInfo ,
#endif
animationSetMode ,
#if defined(ENABLE_OVERLOADING)
AnimationSetObjectMethodInfo ,
#endif
animationSetObject ,
#if defined(ENABLE_OVERLOADING)
AnimationSetTimelineMethodInfo ,
#endif
animationSetTimeline ,
#if defined(ENABLE_OVERLOADING)
AnimationUnbindPropertyMethodInfo ,
#endif
animationUnbindProperty ,
#if defined(ENABLE_OVERLOADING)
AnimationUpdateMethodInfo ,
#endif
animationUpdate ,
#if defined(ENABLE_OVERLOADING)
AnimationUpdateIntervalMethodInfo ,
#endif
animationUpdateInterval ,
#if defined(ENABLE_OVERLOADING)
AnimationAlphaPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
animationAlpha ,
#endif
constructAnimationAlpha ,
getAnimationAlpha ,
setAnimationAlpha ,
#if defined(ENABLE_OVERLOADING)
AnimationDurationPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
animationDuration ,
#endif
constructAnimationDuration ,
getAnimationDuration ,
setAnimationDuration ,
#if defined(ENABLE_OVERLOADING)
AnimationLoopPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
animationLoop ,
#endif
constructAnimationLoop ,
getAnimationLoop ,
setAnimationLoop ,
#if defined(ENABLE_OVERLOADING)
AnimationModePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
animationMode ,
#endif
constructAnimationMode ,
getAnimationMode ,
setAnimationMode ,
#if defined(ENABLE_OVERLOADING)
AnimationObjectPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
animationObject ,
#endif
constructAnimationObject ,
getAnimationObject ,
setAnimationObject ,
#if defined(ENABLE_OVERLOADING)
AnimationTimelinePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
animationTimeline ,
#endif
clearAnimationTimeline ,
constructAnimationTimeline ,
getAnimationTimeline ,
setAnimationTimeline ,
AnimationCompletedCallback ,
#if defined(ENABLE_OVERLOADING)
AnimationCompletedSignalInfo ,
#endif
afterAnimationCompleted ,
onAnimationCompleted ,
AnimationStartedCallback ,
#if defined(ENABLE_OVERLOADING)
AnimationStartedSignalInfo ,
#endif
afterAnimationStarted ,
onAnimationStarted ,
) 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.Interfaces.Scriptable as Clutter.Scriptable
import {-# SOURCE #-} qualified GI.Clutter.Objects.Alpha as Clutter.Alpha
import {-# SOURCE #-} qualified GI.Clutter.Objects.Interval as Clutter.Interval
import {-# SOURCE #-} qualified GI.Clutter.Objects.Timeline as Clutter.Timeline
import qualified GI.GObject.Objects.Object as GObject.Object
newtype Animation = Animation (SP.ManagedPtr Animation)
deriving (Animation -> Animation -> Bool
(Animation -> Animation -> Bool)
-> (Animation -> Animation -> Bool) -> Eq Animation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Animation -> Animation -> Bool
== :: Animation -> Animation -> Bool
$c/= :: Animation -> Animation -> Bool
/= :: Animation -> Animation -> Bool
Eq)
instance SP.ManagedPtrNewtype Animation where
toManagedPtr :: Animation -> ManagedPtr Animation
toManagedPtr (Animation ManagedPtr Animation
p) = ManagedPtr Animation
p
foreign import ccall "clutter_animation_get_type"
c_clutter_animation_get_type :: IO B.Types.GType
instance B.Types.TypedObject Animation where
glibType :: IO GType
glibType = IO GType
c_clutter_animation_get_type
instance B.Types.GObject Animation
class (SP.GObject o, O.IsDescendantOf Animation o) => IsAnimation o
instance (SP.GObject o, O.IsDescendantOf Animation o) => IsAnimation o
instance O.HasParentTypes Animation
type instance O.ParentTypes Animation = '[GObject.Object.Object, Clutter.Scriptable.Scriptable]
toAnimation :: (MIO.MonadIO m, IsAnimation o) => o -> m Animation
toAnimation :: forall (m :: * -> *) o.
(MonadIO m, IsAnimation o) =>
o -> m Animation
toAnimation = IO Animation -> m Animation
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Animation -> m Animation)
-> (o -> IO Animation) -> o -> m Animation
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Animation -> Animation) -> o -> IO Animation
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Animation -> Animation
Animation
instance B.GValue.IsGValue (Maybe Animation) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_clutter_animation_get_type
gvalueSet_ :: Ptr GValue -> Maybe Animation -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Animation
P.Nothing = Ptr GValue -> Ptr Animation -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Animation
forall a. Ptr a
FP.nullPtr :: FP.Ptr Animation)
gvalueSet_ Ptr GValue
gv (P.Just Animation
obj) = Animation -> (Ptr Animation -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Animation
obj (Ptr GValue -> Ptr Animation -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Animation)
gvalueGet_ Ptr GValue
gv = do
Ptr Animation
ptr <- Ptr GValue -> IO (Ptr Animation)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Animation)
if Ptr Animation
ptr Ptr Animation -> Ptr Animation -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Animation
forall a. Ptr a
FP.nullPtr
then Animation -> Maybe Animation
forall a. a -> Maybe a
P.Just (Animation -> Maybe Animation)
-> IO Animation -> IO (Maybe Animation)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Animation -> Animation)
-> Ptr Animation -> IO Animation
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Animation -> Animation
Animation Ptr Animation
ptr
else Maybe Animation -> IO (Maybe Animation)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Animation
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveAnimationMethod (t :: Symbol) (o :: *) :: * where
ResolveAnimationMethod "bind" o = AnimationBindMethodInfo
ResolveAnimationMethod "bindInterval" o = AnimationBindIntervalMethodInfo
ResolveAnimationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAnimationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAnimationMethod "completed" o = AnimationCompletedMethodInfo
ResolveAnimationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAnimationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAnimationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAnimationMethod "hasProperty" o = AnimationHasPropertyMethodInfo
ResolveAnimationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAnimationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAnimationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAnimationMethod "parseCustomNode" o = Clutter.Scriptable.ScriptableParseCustomNodeMethodInfo
ResolveAnimationMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAnimationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAnimationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAnimationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAnimationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAnimationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAnimationMethod "unbindProperty" o = AnimationUnbindPropertyMethodInfo
ResolveAnimationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAnimationMethod "update" o = AnimationUpdateMethodInfo
ResolveAnimationMethod "updateInterval" o = AnimationUpdateIntervalMethodInfo
ResolveAnimationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAnimationMethod "getAlpha" o = AnimationGetAlphaMethodInfo
ResolveAnimationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAnimationMethod "getDuration" o = AnimationGetDurationMethodInfo
ResolveAnimationMethod "getId" o = Clutter.Scriptable.ScriptableGetIdMethodInfo
ResolveAnimationMethod "getInterval" o = AnimationGetIntervalMethodInfo
ResolveAnimationMethod "getLoop" o = AnimationGetLoopMethodInfo
ResolveAnimationMethod "getMode" o = AnimationGetModeMethodInfo
ResolveAnimationMethod "getObject" o = AnimationGetObjectMethodInfo
ResolveAnimationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAnimationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAnimationMethod "getTimeline" o = AnimationGetTimelineMethodInfo
ResolveAnimationMethod "setAlpha" o = AnimationSetAlphaMethodInfo
ResolveAnimationMethod "setCustomProperty" o = Clutter.Scriptable.ScriptableSetCustomPropertyMethodInfo
ResolveAnimationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAnimationMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAnimationMethod "setDuration" o = AnimationSetDurationMethodInfo
ResolveAnimationMethod "setId" o = Clutter.Scriptable.ScriptableSetIdMethodInfo
ResolveAnimationMethod "setLoop" o = AnimationSetLoopMethodInfo
ResolveAnimationMethod "setMode" o = AnimationSetModeMethodInfo
ResolveAnimationMethod "setObject" o = AnimationSetObjectMethodInfo
ResolveAnimationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAnimationMethod "setTimeline" o = AnimationSetTimelineMethodInfo
ResolveAnimationMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAnimationMethod t Animation, O.OverloadedMethod info Animation p) => OL.IsLabel t (Animation -> 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 ~ ResolveAnimationMethod t Animation, O.OverloadedMethod info Animation p, R.HasField t Animation p) => R.HasField t Animation p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveAnimationMethod t Animation, O.OverloadedMethodInfo info Animation) => OL.IsLabel t (O.MethodProxy info Animation) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
{-# DEPRECATED AnimationCompletedCallback ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
type AnimationCompletedCallback =
IO ()
type C_AnimationCompletedCallback =
Ptr Animation ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AnimationCompletedCallback :: C_AnimationCompletedCallback -> IO (FunPtr C_AnimationCompletedCallback)
wrap_AnimationCompletedCallback ::
GObject a => (a -> AnimationCompletedCallback) ->
C_AnimationCompletedCallback
wrap_AnimationCompletedCallback :: forall a. GObject a => (a -> IO ()) -> C_AnimationCompletedCallback
wrap_AnimationCompletedCallback a -> IO ()
gi'cb Ptr Animation
gi'selfPtr Ptr ()
_ = do
Ptr Animation -> (Animation -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Animation
gi'selfPtr ((Animation -> IO ()) -> IO ()) -> (Animation -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Animation
gi'self -> a -> IO ()
gi'cb (Animation -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Animation
gi'self)
onAnimationCompleted :: (IsAnimation a, MonadIO m) => a -> ((?self :: a) => AnimationCompletedCallback) -> m SignalHandlerId
onAnimationCompleted :: forall a (m :: * -> *).
(IsAnimation a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onAnimationCompleted a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AnimationCompletedCallback
wrapped' = (a -> IO ()) -> C_AnimationCompletedCallback
forall a. GObject a => (a -> IO ()) -> C_AnimationCompletedCallback
wrap_AnimationCompletedCallback a -> IO ()
wrapped
FunPtr C_AnimationCompletedCallback
wrapped'' <- C_AnimationCompletedCallback
-> IO (FunPtr C_AnimationCompletedCallback)
mk_AnimationCompletedCallback C_AnimationCompletedCallback
wrapped'
a
-> Text
-> FunPtr C_AnimationCompletedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"completed" FunPtr C_AnimationCompletedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAnimationCompleted :: (IsAnimation a, MonadIO m) => a -> ((?self :: a) => AnimationCompletedCallback) -> m SignalHandlerId
afterAnimationCompleted :: forall a (m :: * -> *).
(IsAnimation a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterAnimationCompleted a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AnimationCompletedCallback
wrapped' = (a -> IO ()) -> C_AnimationCompletedCallback
forall a. GObject a => (a -> IO ()) -> C_AnimationCompletedCallback
wrap_AnimationCompletedCallback a -> IO ()
wrapped
FunPtr C_AnimationCompletedCallback
wrapped'' <- C_AnimationCompletedCallback
-> IO (FunPtr C_AnimationCompletedCallback)
mk_AnimationCompletedCallback C_AnimationCompletedCallback
wrapped'
a
-> Text
-> FunPtr C_AnimationCompletedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"completed" FunPtr C_AnimationCompletedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AnimationCompletedSignalInfo
instance SignalInfo AnimationCompletedSignalInfo where
type HaskellCallbackType AnimationCompletedSignalInfo = AnimationCompletedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AnimationCompletedCallback cb
cb'' <- mk_AnimationCompletedCallback cb'
connectSignalFunPtr obj "completed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation::completed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#g:signal:completed"})
#endif
{-# DEPRECATED AnimationStartedCallback ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
type AnimationStartedCallback =
IO ()
type C_AnimationStartedCallback =
Ptr Animation ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AnimationStartedCallback :: C_AnimationStartedCallback -> IO (FunPtr C_AnimationStartedCallback)
wrap_AnimationStartedCallback ::
GObject a => (a -> AnimationStartedCallback) ->
C_AnimationStartedCallback
wrap_AnimationStartedCallback :: forall a. GObject a => (a -> IO ()) -> C_AnimationCompletedCallback
wrap_AnimationStartedCallback a -> IO ()
gi'cb Ptr Animation
gi'selfPtr Ptr ()
_ = do
Ptr Animation -> (Animation -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Animation
gi'selfPtr ((Animation -> IO ()) -> IO ()) -> (Animation -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Animation
gi'self -> a -> IO ()
gi'cb (Animation -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Animation
gi'self)
onAnimationStarted :: (IsAnimation a, MonadIO m) => a -> ((?self :: a) => AnimationStartedCallback) -> m SignalHandlerId
onAnimationStarted :: forall a (m :: * -> *).
(IsAnimation a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onAnimationStarted a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AnimationCompletedCallback
wrapped' = (a -> IO ()) -> C_AnimationCompletedCallback
forall a. GObject a => (a -> IO ()) -> C_AnimationCompletedCallback
wrap_AnimationStartedCallback a -> IO ()
wrapped
FunPtr C_AnimationCompletedCallback
wrapped'' <- C_AnimationCompletedCallback
-> IO (FunPtr C_AnimationCompletedCallback)
mk_AnimationStartedCallback C_AnimationCompletedCallback
wrapped'
a
-> Text
-> FunPtr C_AnimationCompletedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"started" FunPtr C_AnimationCompletedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAnimationStarted :: (IsAnimation a, MonadIO m) => a -> ((?self :: a) => AnimationStartedCallback) -> m SignalHandlerId
afterAnimationStarted :: forall a (m :: * -> *).
(IsAnimation a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterAnimationStarted a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AnimationCompletedCallback
wrapped' = (a -> IO ()) -> C_AnimationCompletedCallback
forall a. GObject a => (a -> IO ()) -> C_AnimationCompletedCallback
wrap_AnimationStartedCallback a -> IO ()
wrapped
FunPtr C_AnimationCompletedCallback
wrapped'' <- C_AnimationCompletedCallback
-> IO (FunPtr C_AnimationCompletedCallback)
mk_AnimationStartedCallback C_AnimationCompletedCallback
wrapped'
a
-> Text
-> FunPtr C_AnimationCompletedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"started" FunPtr C_AnimationCompletedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AnimationStartedSignalInfo
instance SignalInfo AnimationStartedSignalInfo where
type HaskellCallbackType AnimationStartedSignalInfo = AnimationStartedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AnimationStartedCallback cb
cb'' <- mk_AnimationStartedCallback cb'
connectSignalFunPtr obj "started" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation::started"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#g:signal:started"})
#endif
getAnimationAlpha :: (MonadIO m, IsAnimation o) => o -> m Clutter.Alpha.Alpha
getAnimationAlpha :: forall (m :: * -> *) o. (MonadIO m, IsAnimation o) => o -> m Alpha
getAnimationAlpha o
obj = IO Alpha -> m Alpha
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Alpha -> m Alpha) -> IO Alpha -> m Alpha
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Alpha) -> IO Alpha
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAnimationAlpha" (IO (Maybe Alpha) -> IO Alpha) -> IO (Maybe Alpha) -> IO Alpha
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Alpha -> Alpha) -> IO (Maybe Alpha)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"alpha" ManagedPtr Alpha -> Alpha
Clutter.Alpha.Alpha
setAnimationAlpha :: (MonadIO m, IsAnimation o, Clutter.Alpha.IsAlpha a) => o -> a -> m ()
setAnimationAlpha :: forall (m :: * -> *) o a.
(MonadIO m, IsAnimation o, IsAlpha a) =>
o -> a -> m ()
setAnimationAlpha o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"alpha" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructAnimationAlpha :: (IsAnimation o, MIO.MonadIO m, Clutter.Alpha.IsAlpha a) => a -> m (GValueConstruct o)
constructAnimationAlpha :: forall o (m :: * -> *) a.
(IsAnimation o, MonadIO m, IsAlpha a) =>
a -> m (GValueConstruct o)
constructAnimationAlpha a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"alpha" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data AnimationAlphaPropertyInfo
instance AttrInfo AnimationAlphaPropertyInfo where
type AttrAllowedOps AnimationAlphaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AnimationAlphaPropertyInfo = IsAnimation
type AttrSetTypeConstraint AnimationAlphaPropertyInfo = Clutter.Alpha.IsAlpha
type AttrTransferTypeConstraint AnimationAlphaPropertyInfo = Clutter.Alpha.IsAlpha
type AttrTransferType AnimationAlphaPropertyInfo = Clutter.Alpha.Alpha
type AttrGetType AnimationAlphaPropertyInfo = Clutter.Alpha.Alpha
type AttrLabel AnimationAlphaPropertyInfo = "alpha"
type AttrOrigin AnimationAlphaPropertyInfo = Animation
attrGet = getAnimationAlpha
attrSet = setAnimationAlpha
attrTransfer _ v = do
unsafeCastTo Clutter.Alpha.Alpha v
attrConstruct = constructAnimationAlpha
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.alpha"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#g:attr:alpha"
})
#endif
getAnimationDuration :: (MonadIO m, IsAnimation o) => o -> m Word32
getAnimationDuration :: forall (m :: * -> *) o. (MonadIO m, IsAnimation o) => o -> m Word32
getAnimationDuration o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"duration"
setAnimationDuration :: (MonadIO m, IsAnimation o) => o -> Word32 -> m ()
setAnimationDuration :: forall (m :: * -> *) o.
(MonadIO m, IsAnimation o) =>
o -> Word32 -> m ()
setAnimationDuration o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"duration" Word32
val
constructAnimationDuration :: (IsAnimation o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructAnimationDuration :: forall o (m :: * -> *).
(IsAnimation o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructAnimationDuration Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"duration" Word32
val
#if defined(ENABLE_OVERLOADING)
data AnimationDurationPropertyInfo
instance AttrInfo AnimationDurationPropertyInfo where
type AttrAllowedOps AnimationDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AnimationDurationPropertyInfo = IsAnimation
type AttrSetTypeConstraint AnimationDurationPropertyInfo = (~) Word32
type AttrTransferTypeConstraint AnimationDurationPropertyInfo = (~) Word32
type AttrTransferType AnimationDurationPropertyInfo = Word32
type AttrGetType AnimationDurationPropertyInfo = Word32
type AttrLabel AnimationDurationPropertyInfo = "duration"
type AttrOrigin AnimationDurationPropertyInfo = Animation
attrGet = getAnimationDuration
attrSet = setAnimationDuration
attrTransfer _ v = do
return v
attrConstruct = constructAnimationDuration
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.duration"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#g:attr:duration"
})
#endif
getAnimationLoop :: (MonadIO m, IsAnimation o) => o -> m Bool
getAnimationLoop :: forall (m :: * -> *) o. (MonadIO m, IsAnimation o) => o -> m Bool
getAnimationLoop o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"loop"
setAnimationLoop :: (MonadIO m, IsAnimation o) => o -> Bool -> m ()
setAnimationLoop :: forall (m :: * -> *) o.
(MonadIO m, IsAnimation o) =>
o -> Bool -> m ()
setAnimationLoop o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"loop" Bool
val
constructAnimationLoop :: (IsAnimation o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructAnimationLoop :: forall o (m :: * -> *).
(IsAnimation o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructAnimationLoop Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"loop" Bool
val
#if defined(ENABLE_OVERLOADING)
data AnimationLoopPropertyInfo
instance AttrInfo AnimationLoopPropertyInfo where
type AttrAllowedOps AnimationLoopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AnimationLoopPropertyInfo = IsAnimation
type AttrSetTypeConstraint AnimationLoopPropertyInfo = (~) Bool
type AttrTransferTypeConstraint AnimationLoopPropertyInfo = (~) Bool
type AttrTransferType AnimationLoopPropertyInfo = Bool
type AttrGetType AnimationLoopPropertyInfo = Bool
type AttrLabel AnimationLoopPropertyInfo = "loop"
type AttrOrigin AnimationLoopPropertyInfo = Animation
attrGet = getAnimationLoop
attrSet = setAnimationLoop
attrTransfer _ v = do
return v
attrConstruct = constructAnimationLoop
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.loop"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#g:attr:loop"
})
#endif
getAnimationMode :: (MonadIO m, IsAnimation o) => o -> m CULong
getAnimationMode :: forall (m :: * -> *) o.
(MonadIO m, IsAnimation o) =>
o -> m SignalHandlerId
getAnimationMode o
obj = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ o -> String -> IO SignalHandlerId
forall a. GObject a => a -> String -> IO SignalHandlerId
B.Properties.getObjectPropertyULong o
obj String
"mode"
setAnimationMode :: (MonadIO m, IsAnimation o) => o -> CULong -> m ()
setAnimationMode :: forall (m :: * -> *) o.
(MonadIO m, IsAnimation o) =>
o -> SignalHandlerId -> m ()
setAnimationMode o
obj SignalHandlerId
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> SignalHandlerId -> IO ()
forall a. GObject a => a -> String -> SignalHandlerId -> IO ()
B.Properties.setObjectPropertyULong o
obj String
"mode" SignalHandlerId
val
constructAnimationMode :: (IsAnimation o, MIO.MonadIO m) => CULong -> m (GValueConstruct o)
constructAnimationMode :: forall o (m :: * -> *).
(IsAnimation o, MonadIO m) =>
SignalHandlerId -> m (GValueConstruct o)
constructAnimationMode SignalHandlerId
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> SignalHandlerId -> IO (GValueConstruct o)
forall o. String -> SignalHandlerId -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyULong String
"mode" SignalHandlerId
val
#if defined(ENABLE_OVERLOADING)
data AnimationModePropertyInfo
instance AttrInfo AnimationModePropertyInfo where
type AttrAllowedOps AnimationModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AnimationModePropertyInfo = IsAnimation
type AttrSetTypeConstraint AnimationModePropertyInfo = (~) CULong
type AttrTransferTypeConstraint AnimationModePropertyInfo = (~) CULong
type AttrTransferType AnimationModePropertyInfo = CULong
type AttrGetType AnimationModePropertyInfo = CULong
type AttrLabel AnimationModePropertyInfo = "mode"
type AttrOrigin AnimationModePropertyInfo = Animation
attrGet = getAnimationMode
attrSet = setAnimationMode
attrTransfer _ v = do
return v
attrConstruct = constructAnimationMode
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.mode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#g:attr:mode"
})
#endif
getAnimationObject :: (MonadIO m, IsAnimation o) => o -> m GObject.Object.Object
getAnimationObject :: forall (m :: * -> *) o. (MonadIO m, IsAnimation o) => o -> m Object
getAnimationObject o
obj = IO Object -> m Object
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Object -> m Object) -> IO Object -> m Object
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Object) -> IO Object
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAnimationObject" (IO (Maybe Object) -> IO Object) -> IO (Maybe Object) -> IO Object
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Object -> Object) -> IO (Maybe Object)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"object" ManagedPtr Object -> Object
GObject.Object.Object
setAnimationObject :: (MonadIO m, IsAnimation o, GObject.Object.IsObject a) => o -> a -> m ()
setAnimationObject :: forall (m :: * -> *) o a.
(MonadIO m, IsAnimation o, IsObject a) =>
o -> a -> m ()
setAnimationObject o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"object" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructAnimationObject :: (IsAnimation o, MIO.MonadIO m, GObject.Object.IsObject a) => a -> m (GValueConstruct o)
constructAnimationObject :: forall o (m :: * -> *) a.
(IsAnimation o, MonadIO m, IsObject a) =>
a -> m (GValueConstruct o)
constructAnimationObject a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"object" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data AnimationObjectPropertyInfo
instance AttrInfo AnimationObjectPropertyInfo where
type AttrAllowedOps AnimationObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint AnimationObjectPropertyInfo = IsAnimation
type AttrSetTypeConstraint AnimationObjectPropertyInfo = GObject.Object.IsObject
type AttrTransferTypeConstraint AnimationObjectPropertyInfo = GObject.Object.IsObject
type AttrTransferType AnimationObjectPropertyInfo = GObject.Object.Object
type AttrGetType AnimationObjectPropertyInfo = GObject.Object.Object
type AttrLabel AnimationObjectPropertyInfo = "object"
type AttrOrigin AnimationObjectPropertyInfo = Animation
attrGet = getAnimationObject
attrSet = setAnimationObject
attrTransfer _ v = do
unsafeCastTo GObject.Object.Object v
attrConstruct = constructAnimationObject
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.object"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#g:attr:object"
})
#endif
getAnimationTimeline :: (MonadIO m, IsAnimation o) => o -> m Clutter.Timeline.Timeline
getAnimationTimeline :: forall (m :: * -> *) o.
(MonadIO m, IsAnimation o) =>
o -> m Timeline
getAnimationTimeline o
obj = IO Timeline -> m Timeline
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Timeline -> m Timeline) -> IO Timeline -> m Timeline
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Timeline) -> IO Timeline
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getAnimationTimeline" (IO (Maybe Timeline) -> IO Timeline)
-> IO (Maybe Timeline) -> IO Timeline
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Timeline -> Timeline)
-> IO (Maybe Timeline)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"timeline" ManagedPtr Timeline -> Timeline
Clutter.Timeline.Timeline
setAnimationTimeline :: (MonadIO m, IsAnimation o, Clutter.Timeline.IsTimeline a) => o -> a -> m ()
setAnimationTimeline :: forall (m :: * -> *) o a.
(MonadIO m, IsAnimation o, IsTimeline a) =>
o -> a -> m ()
setAnimationTimeline o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"timeline" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructAnimationTimeline :: (IsAnimation o, MIO.MonadIO m, Clutter.Timeline.IsTimeline a) => a -> m (GValueConstruct o)
constructAnimationTimeline :: forall o (m :: * -> *) a.
(IsAnimation o, MonadIO m, IsTimeline a) =>
a -> m (GValueConstruct o)
constructAnimationTimeline a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"timeline" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearAnimationTimeline :: (MonadIO m, IsAnimation o) => o -> m ()
clearAnimationTimeline :: forall (m :: * -> *) o. (MonadIO m, IsAnimation o) => o -> m ()
clearAnimationTimeline o
obj = 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
$ o -> String -> Maybe Timeline -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"timeline" (Maybe Timeline
forall a. Maybe a
Nothing :: Maybe Clutter.Timeline.Timeline)
#if defined(ENABLE_OVERLOADING)
data AnimationTimelinePropertyInfo
instance AttrInfo AnimationTimelinePropertyInfo where
type AttrAllowedOps AnimationTimelinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint AnimationTimelinePropertyInfo = IsAnimation
type AttrSetTypeConstraint AnimationTimelinePropertyInfo = Clutter.Timeline.IsTimeline
type AttrTransferTypeConstraint AnimationTimelinePropertyInfo = Clutter.Timeline.IsTimeline
type AttrTransferType AnimationTimelinePropertyInfo = Clutter.Timeline.Timeline
type AttrGetType AnimationTimelinePropertyInfo = Clutter.Timeline.Timeline
type AttrLabel AnimationTimelinePropertyInfo = "timeline"
type AttrOrigin AnimationTimelinePropertyInfo = Animation
attrGet = getAnimationTimeline
attrSet = setAnimationTimeline
attrTransfer _ v = do
unsafeCastTo Clutter.Timeline.Timeline v
attrConstruct = constructAnimationTimeline
attrClear = clearAnimationTimeline
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.timeline"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#g:attr:timeline"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Animation
type instance O.AttributeList Animation = AnimationAttributeList
type AnimationAttributeList = ('[ '("alpha", AnimationAlphaPropertyInfo), '("duration", AnimationDurationPropertyInfo), '("loop", AnimationLoopPropertyInfo), '("mode", AnimationModePropertyInfo), '("object", AnimationObjectPropertyInfo), '("timeline", AnimationTimelinePropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
animationAlpha :: AttrLabelProxy "alpha"
animationAlpha = AttrLabelProxy
animationDuration :: AttrLabelProxy "duration"
animationDuration = AttrLabelProxy
animationLoop :: AttrLabelProxy "loop"
animationLoop = AttrLabelProxy
animationMode :: AttrLabelProxy "mode"
animationMode = AttrLabelProxy
animationObject :: AttrLabelProxy "object"
animationObject = AttrLabelProxy
animationTimeline :: AttrLabelProxy "timeline"
animationTimeline = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Animation = AnimationSignalList
type AnimationSignalList = ('[ '("completed", AnimationCompletedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("started", AnimationStartedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "clutter_animation_new" clutter_animation_new ::
IO (Ptr Animation)
{-# DEPRECATED animationNew ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Animation
animationNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Animation
animationNew = IO Animation -> m Animation
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Animation -> m Animation) -> IO Animation -> m Animation
forall a b. (a -> b) -> a -> b
$ do
Ptr Animation
result <- IO (Ptr Animation)
clutter_animation_new
Text -> Ptr Animation -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"animationNew" Ptr Animation
result
Animation
result' <- ((ManagedPtr Animation -> Animation)
-> Ptr Animation -> IO Animation
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Animation -> Animation
Animation) Ptr Animation
result
Animation -> IO Animation
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Animation
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "clutter_animation_bind" clutter_animation_bind ::
Ptr Animation ->
CString ->
Ptr GValue ->
IO (Ptr Animation)
{-# DEPRECATED animationBind ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationBind ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> T.Text
-> GValue
-> m Animation
animationBind :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> Text -> GValue -> m Animation
animationBind a
animation Text
propertyName GValue
final = IO Animation -> m Animation
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Animation -> m Animation) -> IO Animation -> m Animation
forall a b. (a -> b) -> a -> b
$ do
Ptr Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr GValue
final' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
final
Ptr Animation
result <- Ptr Animation -> CString -> Ptr GValue -> IO (Ptr Animation)
clutter_animation_bind Ptr Animation
animation' CString
propertyName' Ptr GValue
final'
Text -> Ptr Animation -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"animationBind" Ptr Animation
result
Animation
result' <- ((ManagedPtr Animation -> Animation)
-> Ptr Animation -> IO Animation
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Animation -> Animation
Animation) Ptr Animation
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
final
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
Animation -> IO Animation
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Animation
result'
#if defined(ENABLE_OVERLOADING)
data AnimationBindMethodInfo
instance (signature ~ (T.Text -> GValue -> m Animation), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationBindMethodInfo a signature where
overloadedMethod = animationBind
instance O.OverloadedMethodInfo AnimationBindMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationBind",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationBind"
})
#endif
foreign import ccall "clutter_animation_bind_interval" clutter_animation_bind_interval ::
Ptr Animation ->
CString ->
Ptr Clutter.Interval.Interval ->
IO (Ptr Animation)
{-# DEPRECATED animationBindInterval ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationBindInterval ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a, Clutter.Interval.IsInterval b) =>
a
-> T.Text
-> b
-> m Animation
animationBindInterval :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAnimation a, IsInterval b) =>
a -> Text -> b -> m Animation
animationBindInterval a
animation Text
propertyName b
interval = IO Animation -> m Animation
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Animation -> m Animation) -> IO Animation -> m Animation
forall a b. (a -> b) -> a -> b
$ do
Ptr Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr Interval
interval' <- b -> IO (Ptr Interval)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject b
interval
Ptr Animation
result <- Ptr Animation -> CString -> Ptr Interval -> IO (Ptr Animation)
clutter_animation_bind_interval Ptr Animation
animation' CString
propertyName' Ptr Interval
interval'
Text -> Ptr Animation -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"animationBindInterval" Ptr Animation
result
Animation
result' <- ((ManagedPtr Animation -> Animation)
-> Ptr Animation -> IO Animation
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Animation -> Animation
Animation) Ptr Animation
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
interval
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
Animation -> IO Animation
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Animation
result'
#if defined(ENABLE_OVERLOADING)
data AnimationBindIntervalMethodInfo
instance (signature ~ (T.Text -> b -> m Animation), MonadIO m, IsAnimation a, Clutter.Interval.IsInterval b) => O.OverloadedMethod AnimationBindIntervalMethodInfo a signature where
overloadedMethod = animationBindInterval
instance O.OverloadedMethodInfo AnimationBindIntervalMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationBindInterval",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationBindInterval"
})
#endif
foreign import ccall "clutter_animation_completed" clutter_animation_completed ::
Ptr Animation ->
IO ()
{-# DEPRECATED animationCompleted ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationCompleted ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> m ()
animationCompleted :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> m ()
animationCompleted a
animation = 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 Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
Ptr Animation -> IO ()
clutter_animation_completed Ptr Animation
animation'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AnimationCompletedMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationCompletedMethodInfo a signature where
overloadedMethod = animationCompleted
instance O.OverloadedMethodInfo AnimationCompletedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationCompleted",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationCompleted"
})
#endif
foreign import ccall "clutter_animation_get_alpha" clutter_animation_get_alpha ::
Ptr Animation ->
IO (Ptr Clutter.Alpha.Alpha)
{-# DEPRECATED animationGetAlpha ["(Since version 1.10)","Use 'GI.Clutter.Objects.Animation.animationGetTimeline' and"," 'GI.Clutter.Objects.Timeline.timelineGetProgressMode' instead."] #-}
animationGetAlpha ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> m Clutter.Alpha.Alpha
animationGetAlpha :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> m Alpha
animationGetAlpha a
animation = IO Alpha -> m Alpha
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Alpha -> m Alpha) -> IO Alpha -> m Alpha
forall a b. (a -> b) -> a -> b
$ do
Ptr Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
Ptr Alpha
result <- Ptr Animation -> IO (Ptr Alpha)
clutter_animation_get_alpha Ptr Animation
animation'
Text -> Ptr Alpha -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"animationGetAlpha" Ptr Alpha
result
Alpha
result' <- ((ManagedPtr Alpha -> Alpha) -> Ptr Alpha -> IO Alpha
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Alpha -> Alpha
Clutter.Alpha.Alpha) Ptr Alpha
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
Alpha -> IO Alpha
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Alpha
result'
#if defined(ENABLE_OVERLOADING)
data AnimationGetAlphaMethodInfo
instance (signature ~ (m Clutter.Alpha.Alpha), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationGetAlphaMethodInfo a signature where
overloadedMethod = animationGetAlpha
instance O.OverloadedMethodInfo AnimationGetAlphaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationGetAlpha",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationGetAlpha"
})
#endif
foreign import ccall "clutter_animation_get_duration" clutter_animation_get_duration ::
Ptr Animation ->
IO Word32
{-# DEPRECATED animationGetDuration ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationGetDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> m Word32
animationGetDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> m Word32
animationGetDuration a
animation = 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
$ do
Ptr Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
Word32
result <- Ptr Animation -> IO Word32
clutter_animation_get_duration Ptr Animation
animation'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data AnimationGetDurationMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationGetDurationMethodInfo a signature where
overloadedMethod = animationGetDuration
instance O.OverloadedMethodInfo AnimationGetDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationGetDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationGetDuration"
})
#endif
foreign import ccall "clutter_animation_get_interval" clutter_animation_get_interval ::
Ptr Animation ->
CString ->
IO (Ptr Clutter.Interval.Interval)
{-# DEPRECATED animationGetInterval ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationGetInterval ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> T.Text
-> m Clutter.Interval.Interval
animationGetInterval :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> Text -> m Interval
animationGetInterval a
animation Text
propertyName = IO Interval -> m Interval
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Interval -> m Interval) -> IO Interval -> m Interval
forall a b. (a -> b) -> a -> b
$ do
Ptr Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr Interval
result <- Ptr Animation -> CString -> IO (Ptr Interval)
clutter_animation_get_interval Ptr Animation
animation' CString
propertyName'
Text -> Ptr Interval -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"animationGetInterval" Ptr Interval
result
Interval
result' <- ((ManagedPtr Interval -> Interval) -> Ptr Interval -> IO Interval
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Interval -> Interval
Clutter.Interval.Interval) Ptr Interval
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
Interval -> IO Interval
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Interval
result'
#if defined(ENABLE_OVERLOADING)
data AnimationGetIntervalMethodInfo
instance (signature ~ (T.Text -> m Clutter.Interval.Interval), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationGetIntervalMethodInfo a signature where
overloadedMethod = animationGetInterval
instance O.OverloadedMethodInfo AnimationGetIntervalMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationGetInterval",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationGetInterval"
})
#endif
foreign import ccall "clutter_animation_get_loop" clutter_animation_get_loop ::
Ptr Animation ->
IO CInt
{-# DEPRECATED animationGetLoop ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationGetLoop ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> m Bool
animationGetLoop :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> m Bool
animationGetLoop a
animation = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
CInt
result <- Ptr Animation -> IO CInt
clutter_animation_get_loop Ptr Animation
animation'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AnimationGetLoopMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationGetLoopMethodInfo a signature where
overloadedMethod = animationGetLoop
instance O.OverloadedMethodInfo AnimationGetLoopMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationGetLoop",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationGetLoop"
})
#endif
foreign import ccall "clutter_animation_get_mode" clutter_animation_get_mode ::
Ptr Animation ->
IO CULong
{-# DEPRECATED animationGetMode ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationGetMode ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> m CULong
animationGetMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> m SignalHandlerId
animationGetMode a
animation = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
Ptr Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
SignalHandlerId
result <- Ptr Animation -> IO SignalHandlerId
clutter_animation_get_mode Ptr Animation
animation'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
SignalHandlerId -> IO SignalHandlerId
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SignalHandlerId
result
#if defined(ENABLE_OVERLOADING)
data AnimationGetModeMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationGetModeMethodInfo a signature where
overloadedMethod = animationGetMode
instance O.OverloadedMethodInfo AnimationGetModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationGetMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationGetMode"
})
#endif
foreign import ccall "clutter_animation_get_object" clutter_animation_get_object ::
Ptr Animation ->
IO (Ptr GObject.Object.Object)
{-# DEPRECATED animationGetObject ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationGetObject ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> m GObject.Object.Object
animationGetObject :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> m Object
animationGetObject a
animation = IO Object -> m Object
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Object -> m Object) -> IO Object -> m Object
forall a b. (a -> b) -> a -> b
$ do
Ptr Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
Ptr Object
result <- Ptr Animation -> IO (Ptr Object)
clutter_animation_get_object Ptr Animation
animation'
Text -> Ptr Object -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"animationGetObject" Ptr Object
result
Object
result' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
Object -> IO Object
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result'
#if defined(ENABLE_OVERLOADING)
data AnimationGetObjectMethodInfo
instance (signature ~ (m GObject.Object.Object), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationGetObjectMethodInfo a signature where
overloadedMethod = animationGetObject
instance O.OverloadedMethodInfo AnimationGetObjectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationGetObject",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationGetObject"
})
#endif
foreign import ccall "clutter_animation_get_timeline" clutter_animation_get_timeline ::
Ptr Animation ->
IO (Ptr Clutter.Timeline.Timeline)
{-# DEPRECATED animationGetTimeline ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationGetTimeline ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> m Clutter.Timeline.Timeline
animationGetTimeline :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> m Timeline
animationGetTimeline a
animation = IO Timeline -> m Timeline
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Timeline -> m Timeline) -> IO Timeline -> m Timeline
forall a b. (a -> b) -> a -> b
$ do
Ptr Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
Ptr Timeline
result <- Ptr Animation -> IO (Ptr Timeline)
clutter_animation_get_timeline Ptr Animation
animation'
Text -> Ptr Timeline -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"animationGetTimeline" Ptr Timeline
result
Timeline
result' <- ((ManagedPtr Timeline -> Timeline) -> Ptr Timeline -> IO Timeline
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Timeline -> Timeline
Clutter.Timeline.Timeline) Ptr Timeline
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
Timeline -> IO Timeline
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Timeline
result'
#if defined(ENABLE_OVERLOADING)
data AnimationGetTimelineMethodInfo
instance (signature ~ (m Clutter.Timeline.Timeline), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationGetTimelineMethodInfo a signature where
overloadedMethod = animationGetTimeline
instance O.OverloadedMethodInfo AnimationGetTimelineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationGetTimeline",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationGetTimeline"
})
#endif
foreign import ccall "clutter_animation_has_property" clutter_animation_has_property ::
Ptr Animation ->
CString ->
IO CInt
{-# DEPRECATED animationHasProperty ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationHasProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> T.Text
-> m Bool
animationHasProperty :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> Text -> m Bool
animationHasProperty a
animation Text
propertyName = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
CInt
result <- Ptr Animation -> CString -> IO CInt
clutter_animation_has_property Ptr Animation
animation' CString
propertyName'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AnimationHasPropertyMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationHasPropertyMethodInfo a signature where
overloadedMethod = animationHasProperty
instance O.OverloadedMethodInfo AnimationHasPropertyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationHasProperty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationHasProperty"
})
#endif
foreign import ccall "clutter_animation_set_alpha" clutter_animation_set_alpha ::
Ptr Animation ->
Ptr Clutter.Alpha.Alpha ->
IO ()
{-# DEPRECATED animationSetAlpha ["(Since version 1.10)","Use 'GI.Clutter.Objects.Animation.animationGetTimeline' and"," 'GI.Clutter.Objects.Timeline.timelineSetProgressMode' instead."] #-}
animationSetAlpha ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a, Clutter.Alpha.IsAlpha b) =>
a
-> b
-> m ()
animationSetAlpha :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAnimation a, IsAlpha b) =>
a -> b -> m ()
animationSetAlpha a
animation b
alpha = 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 Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
Ptr Alpha
alpha' <- b -> IO (Ptr Alpha)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
alpha
Ptr Animation -> Ptr Alpha -> IO ()
clutter_animation_set_alpha Ptr Animation
animation' Ptr Alpha
alpha'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
alpha
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AnimationSetAlphaMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsAnimation a, Clutter.Alpha.IsAlpha b) => O.OverloadedMethod AnimationSetAlphaMethodInfo a signature where
overloadedMethod = animationSetAlpha
instance O.OverloadedMethodInfo AnimationSetAlphaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationSetAlpha",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationSetAlpha"
})
#endif
foreign import ccall "clutter_animation_set_duration" clutter_animation_set_duration ::
Ptr Animation ->
Word32 ->
IO ()
{-# DEPRECATED animationSetDuration ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationSetDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> Word32
-> m ()
animationSetDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> Word32 -> m ()
animationSetDuration a
animation Word32
msecs = 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 Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
Ptr Animation -> Word32 -> IO ()
clutter_animation_set_duration Ptr Animation
animation' Word32
msecs
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AnimationSetDurationMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationSetDurationMethodInfo a signature where
overloadedMethod = animationSetDuration
instance O.OverloadedMethodInfo AnimationSetDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationSetDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationSetDuration"
})
#endif
foreign import ccall "clutter_animation_set_loop" clutter_animation_set_loop ::
Ptr Animation ->
CInt ->
IO ()
{-# DEPRECATED animationSetLoop ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationSetLoop ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> Bool
-> m ()
animationSetLoop :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> Bool -> m ()
animationSetLoop a
animation Bool
loop = 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 Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
let loop' :: CInt
loop' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
loop
Ptr Animation -> CInt -> IO ()
clutter_animation_set_loop Ptr Animation
animation' CInt
loop'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AnimationSetLoopMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationSetLoopMethodInfo a signature where
overloadedMethod = animationSetLoop
instance O.OverloadedMethodInfo AnimationSetLoopMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationSetLoop",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationSetLoop"
})
#endif
foreign import ccall "clutter_animation_set_mode" clutter_animation_set_mode ::
Ptr Animation ->
CULong ->
IO ()
{-# DEPRECATED animationSetMode ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationSetMode ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> CULong
-> m ()
animationSetMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> SignalHandlerId -> m ()
animationSetMode a
animation SignalHandlerId
mode = 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 Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
Ptr Animation -> SignalHandlerId -> IO ()
clutter_animation_set_mode Ptr Animation
animation' SignalHandlerId
mode
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AnimationSetModeMethodInfo
instance (signature ~ (CULong -> m ()), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationSetModeMethodInfo a signature where
overloadedMethod = animationSetMode
instance O.OverloadedMethodInfo AnimationSetModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationSetMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationSetMode"
})
#endif
foreign import ccall "clutter_animation_set_object" clutter_animation_set_object ::
Ptr Animation ->
Ptr GObject.Object.Object ->
IO ()
{-# DEPRECATED animationSetObject ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationSetObject ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a, GObject.Object.IsObject b) =>
a
-> b
-> m ()
animationSetObject :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAnimation a, IsObject b) =>
a -> b -> m ()
animationSetObject a
animation b
object = 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 Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
Ptr Object
object' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
object
Ptr Animation -> Ptr Object -> IO ()
clutter_animation_set_object Ptr Animation
animation' Ptr Object
object'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
object
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AnimationSetObjectMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsAnimation a, GObject.Object.IsObject b) => O.OverloadedMethod AnimationSetObjectMethodInfo a signature where
overloadedMethod = animationSetObject
instance O.OverloadedMethodInfo AnimationSetObjectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationSetObject",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationSetObject"
})
#endif
foreign import ccall "clutter_animation_set_timeline" clutter_animation_set_timeline ::
Ptr Animation ->
Ptr Clutter.Timeline.Timeline ->
IO ()
{-# DEPRECATED animationSetTimeline ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationSetTimeline ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a, Clutter.Timeline.IsTimeline b) =>
a
-> Maybe (b)
-> m ()
animationSetTimeline :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAnimation a, IsTimeline b) =>
a -> Maybe b -> m ()
animationSetTimeline a
animation Maybe b
timeline = 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 Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
Ptr Timeline
maybeTimeline <- case Maybe b
timeline of
Maybe b
Nothing -> Ptr Timeline -> IO (Ptr Timeline)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Timeline
forall a. Ptr a
nullPtr
Just b
jTimeline -> do
Ptr Timeline
jTimeline' <- b -> IO (Ptr Timeline)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jTimeline
Ptr Timeline -> IO (Ptr Timeline)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Timeline
jTimeline'
Ptr Animation -> Ptr Timeline -> IO ()
clutter_animation_set_timeline Ptr Animation
animation' Ptr Timeline
maybeTimeline
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
timeline b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AnimationSetTimelineMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsAnimation a, Clutter.Timeline.IsTimeline b) => O.OverloadedMethod AnimationSetTimelineMethodInfo a signature where
overloadedMethod = animationSetTimeline
instance O.OverloadedMethodInfo AnimationSetTimelineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationSetTimeline",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationSetTimeline"
})
#endif
foreign import ccall "clutter_animation_unbind_property" clutter_animation_unbind_property ::
Ptr Animation ->
CString ->
IO ()
{-# DEPRECATED animationUnbindProperty ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationUnbindProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> T.Text
-> m ()
animationUnbindProperty :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> Text -> m ()
animationUnbindProperty a
animation Text
propertyName = 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 Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr Animation -> CString -> IO ()
clutter_animation_unbind_property Ptr Animation
animation' CString
propertyName'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AnimationUnbindPropertyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationUnbindPropertyMethodInfo a signature where
overloadedMethod = animationUnbindProperty
instance O.OverloadedMethodInfo AnimationUnbindPropertyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationUnbindProperty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationUnbindProperty"
})
#endif
foreign import ccall "clutter_animation_update" clutter_animation_update ::
Ptr Animation ->
CString ->
Ptr GValue ->
IO (Ptr Animation)
{-# DEPRECATED animationUpdate ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationUpdate ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a) =>
a
-> T.Text
-> GValue
-> m Animation
animationUpdate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnimation a) =>
a -> Text -> GValue -> m Animation
animationUpdate a
animation Text
propertyName GValue
final = IO Animation -> m Animation
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Animation -> m Animation) -> IO Animation -> m Animation
forall a b. (a -> b) -> a -> b
$ do
Ptr Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr GValue
final' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
final
Ptr Animation
result <- Ptr Animation -> CString -> Ptr GValue -> IO (Ptr Animation)
clutter_animation_update Ptr Animation
animation' CString
propertyName' Ptr GValue
final'
Text -> Ptr Animation -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"animationUpdate" Ptr Animation
result
Animation
result' <- ((ManagedPtr Animation -> Animation)
-> Ptr Animation -> IO Animation
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Animation -> Animation
Animation) Ptr Animation
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
final
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
Animation -> IO Animation
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Animation
result'
#if defined(ENABLE_OVERLOADING)
data AnimationUpdateMethodInfo
instance (signature ~ (T.Text -> GValue -> m Animation), MonadIO m, IsAnimation a) => O.OverloadedMethod AnimationUpdateMethodInfo a signature where
overloadedMethod = animationUpdate
instance O.OverloadedMethodInfo AnimationUpdateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationUpdate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationUpdate"
})
#endif
foreign import ccall "clutter_animation_update_interval" clutter_animation_update_interval ::
Ptr Animation ->
CString ->
Ptr Clutter.Interval.Interval ->
IO ()
{-# DEPRECATED animationUpdateInterval ["(Since version 1.12)","Use t'GI.Clutter.Objects.PropertyTransition.PropertyTransition' instead"] #-}
animationUpdateInterval ::
(B.CallStack.HasCallStack, MonadIO m, IsAnimation a, Clutter.Interval.IsInterval b) =>
a
-> T.Text
-> b
-> m ()
animationUpdateInterval :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsAnimation a, IsInterval b) =>
a -> Text -> b -> m ()
animationUpdateInterval a
animation Text
propertyName b
interval = 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 Animation
animation' <- a -> IO (Ptr Animation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
animation
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr Interval
interval' <- b -> IO (Ptr Interval)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
interval
Ptr Animation -> CString -> Ptr Interval -> IO ()
clutter_animation_update_interval Ptr Animation
animation' CString
propertyName' Ptr Interval
interval'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
animation
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
interval
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AnimationUpdateIntervalMethodInfo
instance (signature ~ (T.Text -> b -> m ()), MonadIO m, IsAnimation a, Clutter.Interval.IsInterval b) => O.OverloadedMethod AnimationUpdateIntervalMethodInfo a signature where
overloadedMethod = animationUpdateInterval
instance O.OverloadedMethodInfo AnimationUpdateIntervalMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.Animation.animationUpdateInterval",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-Animation.html#v:animationUpdateInterval"
})
#endif