{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.TimedAnimation
(
TimedAnimation(..) ,
IsTimedAnimation ,
toTimedAnimation ,
#if defined(ENABLE_OVERLOADING)
ResolveTimedAnimationMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TimedAnimationGetAlternateMethodInfo ,
#endif
timedAnimationGetAlternate ,
#if defined(ENABLE_OVERLOADING)
TimedAnimationGetDurationMethodInfo ,
#endif
timedAnimationGetDuration ,
#if defined(ENABLE_OVERLOADING)
TimedAnimationGetEasingMethodInfo ,
#endif
timedAnimationGetEasing ,
#if defined(ENABLE_OVERLOADING)
TimedAnimationGetRepeatCountMethodInfo ,
#endif
timedAnimationGetRepeatCount ,
#if defined(ENABLE_OVERLOADING)
TimedAnimationGetReverseMethodInfo ,
#endif
timedAnimationGetReverse ,
#if defined(ENABLE_OVERLOADING)
TimedAnimationGetValueFromMethodInfo ,
#endif
timedAnimationGetValueFrom ,
#if defined(ENABLE_OVERLOADING)
TimedAnimationGetValueToMethodInfo ,
#endif
timedAnimationGetValueTo ,
timedAnimationNew ,
#if defined(ENABLE_OVERLOADING)
TimedAnimationSetAlternateMethodInfo ,
#endif
timedAnimationSetAlternate ,
#if defined(ENABLE_OVERLOADING)
TimedAnimationSetDurationMethodInfo ,
#endif
timedAnimationSetDuration ,
#if defined(ENABLE_OVERLOADING)
TimedAnimationSetEasingMethodInfo ,
#endif
timedAnimationSetEasing ,
#if defined(ENABLE_OVERLOADING)
TimedAnimationSetRepeatCountMethodInfo ,
#endif
timedAnimationSetRepeatCount ,
#if defined(ENABLE_OVERLOADING)
TimedAnimationSetReverseMethodInfo ,
#endif
timedAnimationSetReverse ,
#if defined(ENABLE_OVERLOADING)
TimedAnimationSetValueFromMethodInfo ,
#endif
timedAnimationSetValueFrom ,
#if defined(ENABLE_OVERLOADING)
TimedAnimationSetValueToMethodInfo ,
#endif
timedAnimationSetValueTo ,
#if defined(ENABLE_OVERLOADING)
TimedAnimationAlternatePropertyInfo ,
#endif
constructTimedAnimationAlternate ,
getTimedAnimationAlternate ,
setTimedAnimationAlternate ,
#if defined(ENABLE_OVERLOADING)
timedAnimationAlternate ,
#endif
#if defined(ENABLE_OVERLOADING)
TimedAnimationDurationPropertyInfo ,
#endif
constructTimedAnimationDuration ,
getTimedAnimationDuration ,
setTimedAnimationDuration ,
#if defined(ENABLE_OVERLOADING)
timedAnimationDuration ,
#endif
#if defined(ENABLE_OVERLOADING)
TimedAnimationEasingPropertyInfo ,
#endif
constructTimedAnimationEasing ,
getTimedAnimationEasing ,
setTimedAnimationEasing ,
#if defined(ENABLE_OVERLOADING)
timedAnimationEasing ,
#endif
#if defined(ENABLE_OVERLOADING)
TimedAnimationRepeatCountPropertyInfo ,
#endif
constructTimedAnimationRepeatCount ,
getTimedAnimationRepeatCount ,
setTimedAnimationRepeatCount ,
#if defined(ENABLE_OVERLOADING)
timedAnimationRepeatCount ,
#endif
#if defined(ENABLE_OVERLOADING)
TimedAnimationReversePropertyInfo ,
#endif
constructTimedAnimationReverse ,
getTimedAnimationReverse ,
setTimedAnimationReverse ,
#if defined(ENABLE_OVERLOADING)
timedAnimationReverse ,
#endif
#if defined(ENABLE_OVERLOADING)
TimedAnimationValueFromPropertyInfo ,
#endif
constructTimedAnimationValueFrom ,
getTimedAnimationValueFrom ,
setTimedAnimationValueFrom ,
#if defined(ENABLE_OVERLOADING)
timedAnimationValueFrom ,
#endif
#if defined(ENABLE_OVERLOADING)
TimedAnimationValueToPropertyInfo ,
#endif
constructTimedAnimationValueTo ,
getTimedAnimationValueTo ,
setTimedAnimationValueTo ,
#if defined(ENABLE_OVERLOADING)
timedAnimationValueTo ,
#endif
) 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.Adw.Enums as Adw.Enums
import {-# SOURCE #-} qualified GI.Adw.Objects.Animation as Adw.Animation
import {-# SOURCE #-} qualified GI.Adw.Objects.AnimationTarget as Adw.AnimationTarget
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype TimedAnimation = TimedAnimation (SP.ManagedPtr TimedAnimation)
deriving (TimedAnimation -> TimedAnimation -> Bool
(TimedAnimation -> TimedAnimation -> Bool)
-> (TimedAnimation -> TimedAnimation -> Bool) -> Eq TimedAnimation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TimedAnimation -> TimedAnimation -> Bool
== :: TimedAnimation -> TimedAnimation -> Bool
$c/= :: TimedAnimation -> TimedAnimation -> Bool
/= :: TimedAnimation -> TimedAnimation -> Bool
Eq)
instance SP.ManagedPtrNewtype TimedAnimation where
toManagedPtr :: TimedAnimation -> ManagedPtr TimedAnimation
toManagedPtr (TimedAnimation ManagedPtr TimedAnimation
p) = ManagedPtr TimedAnimation
p
foreign import ccall "adw_timed_animation_get_type"
c_adw_timed_animation_get_type :: IO B.Types.GType
instance B.Types.TypedObject TimedAnimation where
glibType :: IO GType
glibType = IO GType
c_adw_timed_animation_get_type
instance B.Types.GObject TimedAnimation
class (SP.GObject o, O.IsDescendantOf TimedAnimation o) => IsTimedAnimation o
instance (SP.GObject o, O.IsDescendantOf TimedAnimation o) => IsTimedAnimation o
instance O.HasParentTypes TimedAnimation
type instance O.ParentTypes TimedAnimation = '[Adw.Animation.Animation, GObject.Object.Object]
toTimedAnimation :: (MIO.MonadIO m, IsTimedAnimation o) => o -> m TimedAnimation
toTimedAnimation :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> m TimedAnimation
toTimedAnimation = IO TimedAnimation -> m TimedAnimation
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TimedAnimation -> m TimedAnimation)
-> (o -> IO TimedAnimation) -> o -> m TimedAnimation
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr TimedAnimation -> TimedAnimation)
-> o -> IO TimedAnimation
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr TimedAnimation -> TimedAnimation
TimedAnimation
instance B.GValue.IsGValue (Maybe TimedAnimation) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_timed_animation_get_type
gvalueSet_ :: Ptr GValue -> Maybe TimedAnimation -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TimedAnimation
P.Nothing = Ptr GValue -> Ptr TimedAnimation -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr TimedAnimation
forall a. Ptr a
FP.nullPtr :: FP.Ptr TimedAnimation)
gvalueSet_ Ptr GValue
gv (P.Just TimedAnimation
obj) = TimedAnimation -> (Ptr TimedAnimation -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TimedAnimation
obj (Ptr GValue -> Ptr TimedAnimation -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TimedAnimation)
gvalueGet_ Ptr GValue
gv = do
Ptr TimedAnimation
ptr <- Ptr GValue -> IO (Ptr TimedAnimation)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr TimedAnimation)
if Ptr TimedAnimation
ptr Ptr TimedAnimation -> Ptr TimedAnimation -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr TimedAnimation
forall a. Ptr a
FP.nullPtr
then TimedAnimation -> Maybe TimedAnimation
forall a. a -> Maybe a
P.Just (TimedAnimation -> Maybe TimedAnimation)
-> IO TimedAnimation -> IO (Maybe TimedAnimation)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr TimedAnimation -> TimedAnimation)
-> Ptr TimedAnimation -> IO TimedAnimation
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr TimedAnimation -> TimedAnimation
TimedAnimation Ptr TimedAnimation
ptr
else Maybe TimedAnimation -> IO (Maybe TimedAnimation)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TimedAnimation
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTimedAnimationMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveTimedAnimationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTimedAnimationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTimedAnimationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTimedAnimationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTimedAnimationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTimedAnimationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTimedAnimationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTimedAnimationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTimedAnimationMethod "pause" o = Adw.Animation.AnimationPauseMethodInfo
ResolveTimedAnimationMethod "play" o = Adw.Animation.AnimationPlayMethodInfo
ResolveTimedAnimationMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTimedAnimationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTimedAnimationMethod "reset" o = Adw.Animation.AnimationResetMethodInfo
ResolveTimedAnimationMethod "resume" o = Adw.Animation.AnimationResumeMethodInfo
ResolveTimedAnimationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTimedAnimationMethod "skip" o = Adw.Animation.AnimationSkipMethodInfo
ResolveTimedAnimationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTimedAnimationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTimedAnimationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTimedAnimationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTimedAnimationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTimedAnimationMethod "getAlternate" o = TimedAnimationGetAlternateMethodInfo
ResolveTimedAnimationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTimedAnimationMethod "getDuration" o = TimedAnimationGetDurationMethodInfo
ResolveTimedAnimationMethod "getEasing" o = TimedAnimationGetEasingMethodInfo
ResolveTimedAnimationMethod "getFollowEnableAnimationsSetting" o = Adw.Animation.AnimationGetFollowEnableAnimationsSettingMethodInfo
ResolveTimedAnimationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTimedAnimationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTimedAnimationMethod "getRepeatCount" o = TimedAnimationGetRepeatCountMethodInfo
ResolveTimedAnimationMethod "getReverse" o = TimedAnimationGetReverseMethodInfo
ResolveTimedAnimationMethod "getState" o = Adw.Animation.AnimationGetStateMethodInfo
ResolveTimedAnimationMethod "getTarget" o = Adw.Animation.AnimationGetTargetMethodInfo
ResolveTimedAnimationMethod "getValue" o = Adw.Animation.AnimationGetValueMethodInfo
ResolveTimedAnimationMethod "getValueFrom" o = TimedAnimationGetValueFromMethodInfo
ResolveTimedAnimationMethod "getValueTo" o = TimedAnimationGetValueToMethodInfo
ResolveTimedAnimationMethod "getWidget" o = Adw.Animation.AnimationGetWidgetMethodInfo
ResolveTimedAnimationMethod "setAlternate" o = TimedAnimationSetAlternateMethodInfo
ResolveTimedAnimationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTimedAnimationMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTimedAnimationMethod "setDuration" o = TimedAnimationSetDurationMethodInfo
ResolveTimedAnimationMethod "setEasing" o = TimedAnimationSetEasingMethodInfo
ResolveTimedAnimationMethod "setFollowEnableAnimationsSetting" o = Adw.Animation.AnimationSetFollowEnableAnimationsSettingMethodInfo
ResolveTimedAnimationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTimedAnimationMethod "setRepeatCount" o = TimedAnimationSetRepeatCountMethodInfo
ResolveTimedAnimationMethod "setReverse" o = TimedAnimationSetReverseMethodInfo
ResolveTimedAnimationMethod "setTarget" o = Adw.Animation.AnimationSetTargetMethodInfo
ResolveTimedAnimationMethod "setValueFrom" o = TimedAnimationSetValueFromMethodInfo
ResolveTimedAnimationMethod "setValueTo" o = TimedAnimationSetValueToMethodInfo
ResolveTimedAnimationMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTimedAnimationMethod t TimedAnimation, O.OverloadedMethod info TimedAnimation p) => OL.IsLabel t (TimedAnimation -> 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 ~ ResolveTimedAnimationMethod t TimedAnimation, O.OverloadedMethod info TimedAnimation p, R.HasField t TimedAnimation p) => R.HasField t TimedAnimation p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTimedAnimationMethod t TimedAnimation, O.OverloadedMethodInfo info TimedAnimation) => OL.IsLabel t (O.MethodProxy info TimedAnimation) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getTimedAnimationAlternate :: (MonadIO m, IsTimedAnimation o) => o -> m Bool
getTimedAnimationAlternate :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> m Bool
getTimedAnimationAlternate 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
"alternate"
setTimedAnimationAlternate :: (MonadIO m, IsTimedAnimation o) => o -> Bool -> m ()
setTimedAnimationAlternate :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> Bool -> m ()
setTimedAnimationAlternate 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
"alternate" Bool
val
constructTimedAnimationAlternate :: (IsTimedAnimation o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTimedAnimationAlternate :: forall o (m :: * -> *).
(IsTimedAnimation o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTimedAnimationAlternate 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
"alternate" Bool
val
#if defined(ENABLE_OVERLOADING)
data TimedAnimationAlternatePropertyInfo
instance AttrInfo TimedAnimationAlternatePropertyInfo where
type AttrAllowedOps TimedAnimationAlternatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TimedAnimationAlternatePropertyInfo = IsTimedAnimation
type AttrSetTypeConstraint TimedAnimationAlternatePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TimedAnimationAlternatePropertyInfo = (~) Bool
type AttrTransferType TimedAnimationAlternatePropertyInfo = Bool
type AttrGetType TimedAnimationAlternatePropertyInfo = Bool
type AttrLabel TimedAnimationAlternatePropertyInfo = "alternate"
type AttrOrigin TimedAnimationAlternatePropertyInfo = TimedAnimation
attrGet = getTimedAnimationAlternate
attrSet = setTimedAnimationAlternate
attrTransfer _ v = do
return v
attrConstruct = constructTimedAnimationAlternate
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.alternate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#g:attr:alternate"
})
#endif
getTimedAnimationDuration :: (MonadIO m, IsTimedAnimation o) => o -> m Word32
getTimedAnimationDuration :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> m Word32
getTimedAnimationDuration 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"
setTimedAnimationDuration :: (MonadIO m, IsTimedAnimation o) => o -> Word32 -> m ()
setTimedAnimationDuration :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> Word32 -> m ()
setTimedAnimationDuration 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
constructTimedAnimationDuration :: (IsTimedAnimation o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructTimedAnimationDuration :: forall o (m :: * -> *).
(IsTimedAnimation o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructTimedAnimationDuration 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 TimedAnimationDurationPropertyInfo
instance AttrInfo TimedAnimationDurationPropertyInfo where
type AttrAllowedOps TimedAnimationDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TimedAnimationDurationPropertyInfo = IsTimedAnimation
type AttrSetTypeConstraint TimedAnimationDurationPropertyInfo = (~) Word32
type AttrTransferTypeConstraint TimedAnimationDurationPropertyInfo = (~) Word32
type AttrTransferType TimedAnimationDurationPropertyInfo = Word32
type AttrGetType TimedAnimationDurationPropertyInfo = Word32
type AttrLabel TimedAnimationDurationPropertyInfo = "duration"
type AttrOrigin TimedAnimationDurationPropertyInfo = TimedAnimation
attrGet = getTimedAnimationDuration
attrSet = setTimedAnimationDuration
attrTransfer _ v = do
return v
attrConstruct = constructTimedAnimationDuration
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.duration"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#g:attr:duration"
})
#endif
getTimedAnimationEasing :: (MonadIO m, IsTimedAnimation o) => o -> m Adw.Enums.Easing
getTimedAnimationEasing :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> m Easing
getTimedAnimationEasing o
obj = IO Easing -> m Easing
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Easing -> m Easing) -> IO Easing -> m Easing
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Easing
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"easing"
setTimedAnimationEasing :: (MonadIO m, IsTimedAnimation o) => o -> Adw.Enums.Easing -> m ()
setTimedAnimationEasing :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> Easing -> m ()
setTimedAnimationEasing o
obj Easing
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 -> Easing -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"easing" Easing
val
constructTimedAnimationEasing :: (IsTimedAnimation o, MIO.MonadIO m) => Adw.Enums.Easing -> m (GValueConstruct o)
constructTimedAnimationEasing :: forall o (m :: * -> *).
(IsTimedAnimation o, MonadIO m) =>
Easing -> m (GValueConstruct o)
constructTimedAnimationEasing Easing
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 -> Easing -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"easing" Easing
val
#if defined(ENABLE_OVERLOADING)
data TimedAnimationEasingPropertyInfo
instance AttrInfo TimedAnimationEasingPropertyInfo where
type AttrAllowedOps TimedAnimationEasingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TimedAnimationEasingPropertyInfo = IsTimedAnimation
type AttrSetTypeConstraint TimedAnimationEasingPropertyInfo = (~) Adw.Enums.Easing
type AttrTransferTypeConstraint TimedAnimationEasingPropertyInfo = (~) Adw.Enums.Easing
type AttrTransferType TimedAnimationEasingPropertyInfo = Adw.Enums.Easing
type AttrGetType TimedAnimationEasingPropertyInfo = Adw.Enums.Easing
type AttrLabel TimedAnimationEasingPropertyInfo = "easing"
type AttrOrigin TimedAnimationEasingPropertyInfo = TimedAnimation
attrGet = getTimedAnimationEasing
attrSet = setTimedAnimationEasing
attrTransfer _ v = do
return v
attrConstruct = constructTimedAnimationEasing
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.easing"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#g:attr:easing"
})
#endif
getTimedAnimationRepeatCount :: (MonadIO m, IsTimedAnimation o) => o -> m Word32
getTimedAnimationRepeatCount :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> m Word32
getTimedAnimationRepeatCount 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
"repeat-count"
setTimedAnimationRepeatCount :: (MonadIO m, IsTimedAnimation o) => o -> Word32 -> m ()
setTimedAnimationRepeatCount :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> Word32 -> m ()
setTimedAnimationRepeatCount 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
"repeat-count" Word32
val
constructTimedAnimationRepeatCount :: (IsTimedAnimation o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructTimedAnimationRepeatCount :: forall o (m :: * -> *).
(IsTimedAnimation o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructTimedAnimationRepeatCount 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
"repeat-count" Word32
val
#if defined(ENABLE_OVERLOADING)
data TimedAnimationRepeatCountPropertyInfo
instance AttrInfo TimedAnimationRepeatCountPropertyInfo where
type AttrAllowedOps TimedAnimationRepeatCountPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TimedAnimationRepeatCountPropertyInfo = IsTimedAnimation
type AttrSetTypeConstraint TimedAnimationRepeatCountPropertyInfo = (~) Word32
type AttrTransferTypeConstraint TimedAnimationRepeatCountPropertyInfo = (~) Word32
type AttrTransferType TimedAnimationRepeatCountPropertyInfo = Word32
type AttrGetType TimedAnimationRepeatCountPropertyInfo = Word32
type AttrLabel TimedAnimationRepeatCountPropertyInfo = "repeat-count"
type AttrOrigin TimedAnimationRepeatCountPropertyInfo = TimedAnimation
attrGet = getTimedAnimationRepeatCount
attrSet = setTimedAnimationRepeatCount
attrTransfer _ v = do
return v
attrConstruct = constructTimedAnimationRepeatCount
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.repeatCount"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#g:attr:repeatCount"
})
#endif
getTimedAnimationReverse :: (MonadIO m, IsTimedAnimation o) => o -> m Bool
getTimedAnimationReverse :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> m Bool
getTimedAnimationReverse 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
"reverse"
setTimedAnimationReverse :: (MonadIO m, IsTimedAnimation o) => o -> Bool -> m ()
setTimedAnimationReverse :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> Bool -> m ()
setTimedAnimationReverse 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
"reverse" Bool
val
constructTimedAnimationReverse :: (IsTimedAnimation o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTimedAnimationReverse :: forall o (m :: * -> *).
(IsTimedAnimation o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTimedAnimationReverse 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
"reverse" Bool
val
#if defined(ENABLE_OVERLOADING)
data TimedAnimationReversePropertyInfo
instance AttrInfo TimedAnimationReversePropertyInfo where
type AttrAllowedOps TimedAnimationReversePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TimedAnimationReversePropertyInfo = IsTimedAnimation
type AttrSetTypeConstraint TimedAnimationReversePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TimedAnimationReversePropertyInfo = (~) Bool
type AttrTransferType TimedAnimationReversePropertyInfo = Bool
type AttrGetType TimedAnimationReversePropertyInfo = Bool
type AttrLabel TimedAnimationReversePropertyInfo = "reverse"
type AttrOrigin TimedAnimationReversePropertyInfo = TimedAnimation
attrGet = getTimedAnimationReverse
attrSet = setTimedAnimationReverse
attrTransfer _ v = do
return v
attrConstruct = constructTimedAnimationReverse
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.reverse"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#g:attr:reverse"
})
#endif
getTimedAnimationValueFrom :: (MonadIO m, IsTimedAnimation o) => o -> m Double
getTimedAnimationValueFrom :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> m Double
getTimedAnimationValueFrom o
obj = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"value-from"
setTimedAnimationValueFrom :: (MonadIO m, IsTimedAnimation o) => o -> Double -> m ()
setTimedAnimationValueFrom :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> Double -> m ()
setTimedAnimationValueFrom o
obj Double
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 -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"value-from" Double
val
constructTimedAnimationValueFrom :: (IsTimedAnimation o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructTimedAnimationValueFrom :: forall o (m :: * -> *).
(IsTimedAnimation o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructTimedAnimationValueFrom Double
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 -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"value-from" Double
val
#if defined(ENABLE_OVERLOADING)
data TimedAnimationValueFromPropertyInfo
instance AttrInfo TimedAnimationValueFromPropertyInfo where
type AttrAllowedOps TimedAnimationValueFromPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TimedAnimationValueFromPropertyInfo = IsTimedAnimation
type AttrSetTypeConstraint TimedAnimationValueFromPropertyInfo = (~) Double
type AttrTransferTypeConstraint TimedAnimationValueFromPropertyInfo = (~) Double
type AttrTransferType TimedAnimationValueFromPropertyInfo = Double
type AttrGetType TimedAnimationValueFromPropertyInfo = Double
type AttrLabel TimedAnimationValueFromPropertyInfo = "value-from"
type AttrOrigin TimedAnimationValueFromPropertyInfo = TimedAnimation
attrGet = getTimedAnimationValueFrom
attrSet = setTimedAnimationValueFrom
attrTransfer _ v = do
return v
attrConstruct = constructTimedAnimationValueFrom
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.valueFrom"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#g:attr:valueFrom"
})
#endif
getTimedAnimationValueTo :: (MonadIO m, IsTimedAnimation o) => o -> m Double
getTimedAnimationValueTo :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> m Double
getTimedAnimationValueTo o
obj = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"value-to"
setTimedAnimationValueTo :: (MonadIO m, IsTimedAnimation o) => o -> Double -> m ()
setTimedAnimationValueTo :: forall (m :: * -> *) o.
(MonadIO m, IsTimedAnimation o) =>
o -> Double -> m ()
setTimedAnimationValueTo o
obj Double
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 -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"value-to" Double
val
constructTimedAnimationValueTo :: (IsTimedAnimation o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructTimedAnimationValueTo :: forall o (m :: * -> *).
(IsTimedAnimation o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructTimedAnimationValueTo Double
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 -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"value-to" Double
val
#if defined(ENABLE_OVERLOADING)
data TimedAnimationValueToPropertyInfo
instance AttrInfo TimedAnimationValueToPropertyInfo where
type AttrAllowedOps TimedAnimationValueToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TimedAnimationValueToPropertyInfo = IsTimedAnimation
type AttrSetTypeConstraint TimedAnimationValueToPropertyInfo = (~) Double
type AttrTransferTypeConstraint TimedAnimationValueToPropertyInfo = (~) Double
type AttrTransferType TimedAnimationValueToPropertyInfo = Double
type AttrGetType TimedAnimationValueToPropertyInfo = Double
type AttrLabel TimedAnimationValueToPropertyInfo = "value-to"
type AttrOrigin TimedAnimationValueToPropertyInfo = TimedAnimation
attrGet = getTimedAnimationValueTo
attrSet = setTimedAnimationValueTo
attrTransfer _ v = do
return v
attrConstruct = constructTimedAnimationValueTo
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.valueTo"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#g:attr:valueTo"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TimedAnimation
type instance O.AttributeList TimedAnimation = TimedAnimationAttributeList
type TimedAnimationAttributeList = ('[ '("alternate", TimedAnimationAlternatePropertyInfo), '("duration", TimedAnimationDurationPropertyInfo), '("easing", TimedAnimationEasingPropertyInfo), '("followEnableAnimationsSetting", Adw.Animation.AnimationFollowEnableAnimationsSettingPropertyInfo), '("repeatCount", TimedAnimationRepeatCountPropertyInfo), '("reverse", TimedAnimationReversePropertyInfo), '("state", Adw.Animation.AnimationStatePropertyInfo), '("target", Adw.Animation.AnimationTargetPropertyInfo), '("value", Adw.Animation.AnimationValuePropertyInfo), '("valueFrom", TimedAnimationValueFromPropertyInfo), '("valueTo", TimedAnimationValueToPropertyInfo), '("widget", Adw.Animation.AnimationWidgetPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
timedAnimationAlternate :: AttrLabelProxy "alternate"
timedAnimationAlternate = AttrLabelProxy
timedAnimationDuration :: AttrLabelProxy "duration"
timedAnimationDuration = AttrLabelProxy
timedAnimationEasing :: AttrLabelProxy "easing"
timedAnimationEasing = AttrLabelProxy
timedAnimationRepeatCount :: AttrLabelProxy "repeatCount"
timedAnimationRepeatCount = AttrLabelProxy
timedAnimationReverse :: AttrLabelProxy "reverse"
timedAnimationReverse = AttrLabelProxy
timedAnimationValueFrom :: AttrLabelProxy "valueFrom"
timedAnimationValueFrom = AttrLabelProxy
timedAnimationValueTo :: AttrLabelProxy "valueTo"
timedAnimationValueTo = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList TimedAnimation = TimedAnimationSignalList
type TimedAnimationSignalList = ('[ '("done", Adw.Animation.AnimationDoneSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "adw_timed_animation_new" adw_timed_animation_new ::
Ptr Gtk.Widget.Widget ->
CDouble ->
CDouble ->
Word32 ->
Ptr Adw.AnimationTarget.AnimationTarget ->
IO (Ptr TimedAnimation)
timedAnimationNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Adw.AnimationTarget.IsAnimationTarget b) =>
a
-> Double
-> Double
-> Word32
-> b
-> m TimedAnimation
timedAnimationNew :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWidget a, IsAnimationTarget b) =>
a -> Double -> Double -> Word32 -> b -> m TimedAnimation
timedAnimationNew a
widget Double
from Double
to Word32
duration b
target = IO TimedAnimation -> m TimedAnimation
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TimedAnimation -> m TimedAnimation)
-> IO TimedAnimation -> m TimedAnimation
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
widget' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
widget
let from' :: CDouble
from' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
from
let to' :: CDouble
to' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
to
Ptr AnimationTarget
target' <- b -> IO (Ptr AnimationTarget)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject b
target
Ptr TimedAnimation
result <- Ptr Widget
-> CDouble
-> CDouble
-> Word32
-> Ptr AnimationTarget
-> IO (Ptr TimedAnimation)
adw_timed_animation_new Ptr Widget
widget' CDouble
from' CDouble
to' Word32
duration Ptr AnimationTarget
target'
Text -> Ptr TimedAnimation -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"timedAnimationNew" Ptr TimedAnimation
result
TimedAnimation
result' <- ((ManagedPtr TimedAnimation -> TimedAnimation)
-> Ptr TimedAnimation -> IO TimedAnimation
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TimedAnimation -> TimedAnimation
TimedAnimation) Ptr TimedAnimation
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
widget
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
target
TimedAnimation -> IO TimedAnimation
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TimedAnimation
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_timed_animation_get_alternate" adw_timed_animation_get_alternate ::
Ptr TimedAnimation ->
IO CInt
timedAnimationGetAlternate ::
(B.CallStack.HasCallStack, MonadIO m, IsTimedAnimation a) =>
a
-> m Bool
timedAnimationGetAlternate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTimedAnimation a) =>
a -> m Bool
timedAnimationGetAlternate a
self = 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 TimedAnimation
self' <- a -> IO (Ptr TimedAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TimedAnimation -> IO CInt
adw_timed_animation_get_alternate Ptr TimedAnimation
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TimedAnimationGetAlternateMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTimedAnimation a) => O.OverloadedMethod TimedAnimationGetAlternateMethodInfo a signature where
overloadedMethod = timedAnimationGetAlternate
instance O.OverloadedMethodInfo TimedAnimationGetAlternateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.timedAnimationGetAlternate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#v:timedAnimationGetAlternate"
})
#endif
foreign import ccall "adw_timed_animation_get_duration" adw_timed_animation_get_duration ::
Ptr TimedAnimation ->
IO Word32
timedAnimationGetDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsTimedAnimation a) =>
a
-> m Word32
timedAnimationGetDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTimedAnimation a) =>
a -> m Word32
timedAnimationGetDuration a
self = 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 TimedAnimation
self' <- a -> IO (Ptr TimedAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr TimedAnimation -> IO Word32
adw_timed_animation_get_duration Ptr TimedAnimation
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data TimedAnimationGetDurationMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsTimedAnimation a) => O.OverloadedMethod TimedAnimationGetDurationMethodInfo a signature where
overloadedMethod = timedAnimationGetDuration
instance O.OverloadedMethodInfo TimedAnimationGetDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.timedAnimationGetDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#v:timedAnimationGetDuration"
})
#endif
foreign import ccall "adw_timed_animation_get_easing" adw_timed_animation_get_easing ::
Ptr TimedAnimation ->
IO CUInt
timedAnimationGetEasing ::
(B.CallStack.HasCallStack, MonadIO m, IsTimedAnimation a) =>
a
-> m Adw.Enums.Easing
timedAnimationGetEasing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTimedAnimation a) =>
a -> m Easing
timedAnimationGetEasing a
self = IO Easing -> m Easing
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Easing -> m Easing) -> IO Easing -> m Easing
forall a b. (a -> b) -> a -> b
$ do
Ptr TimedAnimation
self' <- a -> IO (Ptr TimedAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr TimedAnimation -> IO CUInt
adw_timed_animation_get_easing Ptr TimedAnimation
self'
let result' :: Easing
result' = (Int -> Easing
forall a. Enum a => Int -> a
toEnum (Int -> Easing) -> (CUInt -> Int) -> CUInt -> Easing
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Easing -> IO Easing
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Easing
result'
#if defined(ENABLE_OVERLOADING)
data TimedAnimationGetEasingMethodInfo
instance (signature ~ (m Adw.Enums.Easing), MonadIO m, IsTimedAnimation a) => O.OverloadedMethod TimedAnimationGetEasingMethodInfo a signature where
overloadedMethod = timedAnimationGetEasing
instance O.OverloadedMethodInfo TimedAnimationGetEasingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.timedAnimationGetEasing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#v:timedAnimationGetEasing"
})
#endif
foreign import ccall "adw_timed_animation_get_repeat_count" adw_timed_animation_get_repeat_count ::
Ptr TimedAnimation ->
IO Word32
timedAnimationGetRepeatCount ::
(B.CallStack.HasCallStack, MonadIO m, IsTimedAnimation a) =>
a
-> m Word32
timedAnimationGetRepeatCount :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTimedAnimation a) =>
a -> m Word32
timedAnimationGetRepeatCount a
self = 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 TimedAnimation
self' <- a -> IO (Ptr TimedAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr TimedAnimation -> IO Word32
adw_timed_animation_get_repeat_count Ptr TimedAnimation
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data TimedAnimationGetRepeatCountMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsTimedAnimation a) => O.OverloadedMethod TimedAnimationGetRepeatCountMethodInfo a signature where
overloadedMethod = timedAnimationGetRepeatCount
instance O.OverloadedMethodInfo TimedAnimationGetRepeatCountMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.timedAnimationGetRepeatCount",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#v:timedAnimationGetRepeatCount"
})
#endif
foreign import ccall "adw_timed_animation_get_reverse" adw_timed_animation_get_reverse ::
Ptr TimedAnimation ->
IO CInt
timedAnimationGetReverse ::
(B.CallStack.HasCallStack, MonadIO m, IsTimedAnimation a) =>
a
-> m Bool
timedAnimationGetReverse :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTimedAnimation a) =>
a -> m Bool
timedAnimationGetReverse a
self = 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 TimedAnimation
self' <- a -> IO (Ptr TimedAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TimedAnimation -> IO CInt
adw_timed_animation_get_reverse Ptr TimedAnimation
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TimedAnimationGetReverseMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTimedAnimation a) => O.OverloadedMethod TimedAnimationGetReverseMethodInfo a signature where
overloadedMethod = timedAnimationGetReverse
instance O.OverloadedMethodInfo TimedAnimationGetReverseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.timedAnimationGetReverse",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#v:timedAnimationGetReverse"
})
#endif
foreign import ccall "adw_timed_animation_get_value_from" adw_timed_animation_get_value_from ::
Ptr TimedAnimation ->
IO CDouble
timedAnimationGetValueFrom ::
(B.CallStack.HasCallStack, MonadIO m, IsTimedAnimation a) =>
a
-> m Double
timedAnimationGetValueFrom :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTimedAnimation a) =>
a -> m Double
timedAnimationGetValueFrom a
self = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr TimedAnimation
self' <- a -> IO (Ptr TimedAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr TimedAnimation -> IO CDouble
adw_timed_animation_get_value_from Ptr TimedAnimation
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data TimedAnimationGetValueFromMethodInfo
instance (signature ~ (m Double), MonadIO m, IsTimedAnimation a) => O.OverloadedMethod TimedAnimationGetValueFromMethodInfo a signature where
overloadedMethod = timedAnimationGetValueFrom
instance O.OverloadedMethodInfo TimedAnimationGetValueFromMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.timedAnimationGetValueFrom",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#v:timedAnimationGetValueFrom"
})
#endif
foreign import ccall "adw_timed_animation_get_value_to" adw_timed_animation_get_value_to ::
Ptr TimedAnimation ->
IO CDouble
timedAnimationGetValueTo ::
(B.CallStack.HasCallStack, MonadIO m, IsTimedAnimation a) =>
a
-> m Double
timedAnimationGetValueTo :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTimedAnimation a) =>
a -> m Double
timedAnimationGetValueTo a
self = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr TimedAnimation
self' <- a -> IO (Ptr TimedAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr TimedAnimation -> IO CDouble
adw_timed_animation_get_value_to Ptr TimedAnimation
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data TimedAnimationGetValueToMethodInfo
instance (signature ~ (m Double), MonadIO m, IsTimedAnimation a) => O.OverloadedMethod TimedAnimationGetValueToMethodInfo a signature where
overloadedMethod = timedAnimationGetValueTo
instance O.OverloadedMethodInfo TimedAnimationGetValueToMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.timedAnimationGetValueTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#v:timedAnimationGetValueTo"
})
#endif
foreign import ccall "adw_timed_animation_set_alternate" adw_timed_animation_set_alternate ::
Ptr TimedAnimation ->
CInt ->
IO ()
timedAnimationSetAlternate ::
(B.CallStack.HasCallStack, MonadIO m, IsTimedAnimation a) =>
a
-> Bool
-> m ()
timedAnimationSetAlternate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTimedAnimation a) =>
a -> Bool -> m ()
timedAnimationSetAlternate a
self Bool
alternate = 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 TimedAnimation
self' <- a -> IO (Ptr TimedAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let alternate' :: CInt
alternate' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
alternate
Ptr TimedAnimation -> CInt -> IO ()
adw_timed_animation_set_alternate Ptr TimedAnimation
self' CInt
alternate'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TimedAnimationSetAlternateMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTimedAnimation a) => O.OverloadedMethod TimedAnimationSetAlternateMethodInfo a signature where
overloadedMethod = timedAnimationSetAlternate
instance O.OverloadedMethodInfo TimedAnimationSetAlternateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.timedAnimationSetAlternate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#v:timedAnimationSetAlternate"
})
#endif
foreign import ccall "adw_timed_animation_set_duration" adw_timed_animation_set_duration ::
Ptr TimedAnimation ->
Word32 ->
IO ()
timedAnimationSetDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsTimedAnimation a) =>
a
-> Word32
-> m ()
timedAnimationSetDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTimedAnimation a) =>
a -> Word32 -> m ()
timedAnimationSetDuration a
self Word32
duration = 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 TimedAnimation
self' <- a -> IO (Ptr TimedAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TimedAnimation -> Word32 -> IO ()
adw_timed_animation_set_duration Ptr TimedAnimation
self' Word32
duration
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TimedAnimationSetDurationMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsTimedAnimation a) => O.OverloadedMethod TimedAnimationSetDurationMethodInfo a signature where
overloadedMethod = timedAnimationSetDuration
instance O.OverloadedMethodInfo TimedAnimationSetDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.timedAnimationSetDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#v:timedAnimationSetDuration"
})
#endif
foreign import ccall "adw_timed_animation_set_easing" adw_timed_animation_set_easing ::
Ptr TimedAnimation ->
CUInt ->
IO ()
timedAnimationSetEasing ::
(B.CallStack.HasCallStack, MonadIO m, IsTimedAnimation a) =>
a
-> Adw.Enums.Easing
-> m ()
timedAnimationSetEasing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTimedAnimation a) =>
a -> Easing -> m ()
timedAnimationSetEasing a
self Easing
easing = 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 TimedAnimation
self' <- a -> IO (Ptr TimedAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let easing' :: CUInt
easing' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Easing -> Int) -> Easing -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Easing -> Int
forall a. Enum a => a -> Int
fromEnum) Easing
easing
Ptr TimedAnimation -> CUInt -> IO ()
adw_timed_animation_set_easing Ptr TimedAnimation
self' CUInt
easing'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TimedAnimationSetEasingMethodInfo
instance (signature ~ (Adw.Enums.Easing -> m ()), MonadIO m, IsTimedAnimation a) => O.OverloadedMethod TimedAnimationSetEasingMethodInfo a signature where
overloadedMethod = timedAnimationSetEasing
instance O.OverloadedMethodInfo TimedAnimationSetEasingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.timedAnimationSetEasing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#v:timedAnimationSetEasing"
})
#endif
foreign import ccall "adw_timed_animation_set_repeat_count" adw_timed_animation_set_repeat_count ::
Ptr TimedAnimation ->
Word32 ->
IO ()
timedAnimationSetRepeatCount ::
(B.CallStack.HasCallStack, MonadIO m, IsTimedAnimation a) =>
a
-> Word32
-> m ()
timedAnimationSetRepeatCount :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTimedAnimation a) =>
a -> Word32 -> m ()
timedAnimationSetRepeatCount a
self Word32
repeatCount = 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 TimedAnimation
self' <- a -> IO (Ptr TimedAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TimedAnimation -> Word32 -> IO ()
adw_timed_animation_set_repeat_count Ptr TimedAnimation
self' Word32
repeatCount
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TimedAnimationSetRepeatCountMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsTimedAnimation a) => O.OverloadedMethod TimedAnimationSetRepeatCountMethodInfo a signature where
overloadedMethod = timedAnimationSetRepeatCount
instance O.OverloadedMethodInfo TimedAnimationSetRepeatCountMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.timedAnimationSetRepeatCount",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#v:timedAnimationSetRepeatCount"
})
#endif
foreign import ccall "adw_timed_animation_set_reverse" adw_timed_animation_set_reverse ::
Ptr TimedAnimation ->
CInt ->
IO ()
timedAnimationSetReverse ::
(B.CallStack.HasCallStack, MonadIO m, IsTimedAnimation a) =>
a
-> Bool
-> m ()
timedAnimationSetReverse :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTimedAnimation a) =>
a -> Bool -> m ()
timedAnimationSetReverse a
self Bool
reverse = 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 TimedAnimation
self' <- a -> IO (Ptr TimedAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let reverse' :: CInt
reverse' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
reverse
Ptr TimedAnimation -> CInt -> IO ()
adw_timed_animation_set_reverse Ptr TimedAnimation
self' CInt
reverse'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TimedAnimationSetReverseMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTimedAnimation a) => O.OverloadedMethod TimedAnimationSetReverseMethodInfo a signature where
overloadedMethod = timedAnimationSetReverse
instance O.OverloadedMethodInfo TimedAnimationSetReverseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.timedAnimationSetReverse",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#v:timedAnimationSetReverse"
})
#endif
foreign import ccall "adw_timed_animation_set_value_from" adw_timed_animation_set_value_from ::
Ptr TimedAnimation ->
CDouble ->
IO ()
timedAnimationSetValueFrom ::
(B.CallStack.HasCallStack, MonadIO m, IsTimedAnimation a) =>
a
-> Double
-> m ()
timedAnimationSetValueFrom :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTimedAnimation a) =>
a -> Double -> m ()
timedAnimationSetValueFrom a
self Double
value = 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 TimedAnimation
self' <- a -> IO (Ptr TimedAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
Ptr TimedAnimation -> CDouble -> IO ()
adw_timed_animation_set_value_from Ptr TimedAnimation
self' CDouble
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TimedAnimationSetValueFromMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsTimedAnimation a) => O.OverloadedMethod TimedAnimationSetValueFromMethodInfo a signature where
overloadedMethod = timedAnimationSetValueFrom
instance O.OverloadedMethodInfo TimedAnimationSetValueFromMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.timedAnimationSetValueFrom",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#v:timedAnimationSetValueFrom"
})
#endif
foreign import ccall "adw_timed_animation_set_value_to" adw_timed_animation_set_value_to ::
Ptr TimedAnimation ->
CDouble ->
IO ()
timedAnimationSetValueTo ::
(B.CallStack.HasCallStack, MonadIO m, IsTimedAnimation a) =>
a
-> Double
-> m ()
timedAnimationSetValueTo :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTimedAnimation a) =>
a -> Double -> m ()
timedAnimationSetValueTo a
self Double
value = 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 TimedAnimation
self' <- a -> IO (Ptr TimedAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
Ptr TimedAnimation -> CDouble -> IO ()
adw_timed_animation_set_value_to Ptr TimedAnimation
self' CDouble
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TimedAnimationSetValueToMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsTimedAnimation a) => O.OverloadedMethod TimedAnimationSetValueToMethodInfo a signature where
overloadedMethod = timedAnimationSetValueTo
instance O.OverloadedMethodInfo TimedAnimationSetValueToMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.TimedAnimation.timedAnimationSetValueTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-TimedAnimation.html#v:timedAnimationSetValueTo"
})
#endif