{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GES.Objects.VideoTransition
(
VideoTransition(..) ,
IsVideoTransition ,
toVideoTransition ,
#if defined(ENABLE_OVERLOADING)
ResolveVideoTransitionMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
VideoTransitionGetBorderMethodInfo ,
#endif
videoTransitionGetBorder ,
#if defined(ENABLE_OVERLOADING)
VideoTransitionGetTransitionTypeMethodInfo,
#endif
videoTransitionGetTransitionType ,
#if defined(ENABLE_OVERLOADING)
VideoTransitionIsInvertedMethodInfo ,
#endif
videoTransitionIsInverted ,
videoTransitionNew ,
#if defined(ENABLE_OVERLOADING)
VideoTransitionSetBorderMethodInfo ,
#endif
videoTransitionSetBorder ,
#if defined(ENABLE_OVERLOADING)
VideoTransitionSetInvertedMethodInfo ,
#endif
videoTransitionSetInverted ,
#if defined(ENABLE_OVERLOADING)
VideoTransitionSetTransitionTypeMethodInfo,
#endif
videoTransitionSetTransitionType ,
#if defined(ENABLE_OVERLOADING)
VideoTransitionBorderPropertyInfo ,
#endif
constructVideoTransitionBorder ,
getVideoTransitionBorder ,
setVideoTransitionBorder ,
#if defined(ENABLE_OVERLOADING)
videoTransitionBorder ,
#endif
#if defined(ENABLE_OVERLOADING)
VideoTransitionInvertPropertyInfo ,
#endif
constructVideoTransitionInvert ,
getVideoTransitionInvert ,
setVideoTransitionInvert ,
#if defined(ENABLE_OVERLOADING)
videoTransitionInvert ,
#endif
#if defined(ENABLE_OVERLOADING)
VideoTransitionTransitionTypePropertyInfo,
#endif
constructVideoTransitionTransitionType ,
getVideoTransitionTransitionType ,
setVideoTransitionTransitionType ,
#if defined(ENABLE_OVERLOADING)
videoTransitionTransitionType ,
#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.GES.Enums as GES.Enums
import {-# SOURCE #-} qualified GI.GES.Interfaces.Extractable as GES.Extractable
import {-# SOURCE #-} qualified GI.GES.Interfaces.MetaContainer as GES.MetaContainer
import {-# SOURCE #-} qualified GI.GES.Objects.Operation as GES.Operation
import {-# SOURCE #-} qualified GI.GES.Objects.TimelineElement as GES.TimelineElement
import {-# SOURCE #-} qualified GI.GES.Objects.TrackElement as GES.TrackElement
import {-# SOURCE #-} qualified GI.GES.Objects.Transition as GES.Transition
import qualified GI.GObject.Objects.Object as GObject.Object
newtype VideoTransition = VideoTransition (SP.ManagedPtr VideoTransition)
deriving (VideoTransition -> VideoTransition -> Bool
(VideoTransition -> VideoTransition -> Bool)
-> (VideoTransition -> VideoTransition -> Bool)
-> Eq VideoTransition
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: VideoTransition -> VideoTransition -> Bool
== :: VideoTransition -> VideoTransition -> Bool
$c/= :: VideoTransition -> VideoTransition -> Bool
/= :: VideoTransition -> VideoTransition -> Bool
Eq)
instance SP.ManagedPtrNewtype VideoTransition where
toManagedPtr :: VideoTransition -> ManagedPtr VideoTransition
toManagedPtr (VideoTransition ManagedPtr VideoTransition
p) = ManagedPtr VideoTransition
p
foreign import ccall "ges_video_transition_get_type"
c_ges_video_transition_get_type :: IO B.Types.GType
instance B.Types.TypedObject VideoTransition where
glibType :: IO GType
glibType = IO GType
c_ges_video_transition_get_type
instance B.Types.GObject VideoTransition
class (SP.GObject o, O.IsDescendantOf VideoTransition o) => IsVideoTransition o
instance (SP.GObject o, O.IsDescendantOf VideoTransition o) => IsVideoTransition o
instance O.HasParentTypes VideoTransition
type instance O.ParentTypes VideoTransition = '[GES.Transition.Transition, GES.Operation.Operation, GES.TrackElement.TrackElement, GES.TimelineElement.TimelineElement, GObject.Object.Object, GES.Extractable.Extractable, GES.MetaContainer.MetaContainer]
toVideoTransition :: (MIO.MonadIO m, IsVideoTransition o) => o -> m VideoTransition
toVideoTransition :: forall (m :: * -> *) o.
(MonadIO m, IsVideoTransition o) =>
o -> m VideoTransition
toVideoTransition = IO VideoTransition -> m VideoTransition
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO VideoTransition -> m VideoTransition)
-> (o -> IO VideoTransition) -> o -> m VideoTransition
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr VideoTransition -> VideoTransition)
-> o -> IO VideoTransition
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr VideoTransition -> VideoTransition
VideoTransition
instance B.GValue.IsGValue (Maybe VideoTransition) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ges_video_transition_get_type
gvalueSet_ :: Ptr GValue -> Maybe VideoTransition -> IO ()
gvalueSet_ Ptr GValue
gv Maybe VideoTransition
P.Nothing = Ptr GValue -> Ptr VideoTransition -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr VideoTransition
forall a. Ptr a
FP.nullPtr :: FP.Ptr VideoTransition)
gvalueSet_ Ptr GValue
gv (P.Just VideoTransition
obj) = VideoTransition -> (Ptr VideoTransition -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr VideoTransition
obj (Ptr GValue -> Ptr VideoTransition -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe VideoTransition)
gvalueGet_ Ptr GValue
gv = do
Ptr VideoTransition
ptr <- Ptr GValue -> IO (Ptr VideoTransition)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr VideoTransition)
if Ptr VideoTransition
ptr Ptr VideoTransition -> Ptr VideoTransition -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr VideoTransition
forall a. Ptr a
FP.nullPtr
then VideoTransition -> Maybe VideoTransition
forall a. a -> Maybe a
P.Just (VideoTransition -> Maybe VideoTransition)
-> IO VideoTransition -> IO (Maybe VideoTransition)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr VideoTransition -> VideoTransition)
-> Ptr VideoTransition -> IO VideoTransition
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr VideoTransition -> VideoTransition
VideoTransition Ptr VideoTransition
ptr
else Maybe VideoTransition -> IO (Maybe VideoTransition)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe VideoTransition
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveVideoTransitionMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveVideoTransitionMethod "addChildProperty" o = GES.TimelineElement.TimelineElementAddChildPropertyMethodInfo
ResolveVideoTransitionMethod "addChildrenProps" o = GES.TrackElement.TrackElementAddChildrenPropsMethodInfo
ResolveVideoTransitionMethod "addMetasFromString" o = GES.MetaContainer.MetaContainerAddMetasFromStringMethodInfo
ResolveVideoTransitionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveVideoTransitionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveVideoTransitionMethod "checkMetaRegistered" o = GES.MetaContainer.MetaContainerCheckMetaRegisteredMethodInfo
ResolveVideoTransitionMethod "clampControlSource" o = GES.TrackElement.TrackElementClampControlSourceMethodInfo
ResolveVideoTransitionMethod "copy" o = GES.TimelineElement.TimelineElementCopyMethodInfo
ResolveVideoTransitionMethod "edit" o = GES.TrackElement.TrackElementEditMethodInfo
ResolveVideoTransitionMethod "editFull" o = GES.TimelineElement.TimelineElementEditFullMethodInfo
ResolveVideoTransitionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveVideoTransitionMethod "foreach" o = GES.MetaContainer.MetaContainerForeachMethodInfo
ResolveVideoTransitionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveVideoTransitionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveVideoTransitionMethod "hasInternalSource" o = GES.TrackElement.TrackElementHasInternalSourceMethodInfo
ResolveVideoTransitionMethod "isActive" o = GES.TrackElement.TrackElementIsActiveMethodInfo
ResolveVideoTransitionMethod "isCore" o = GES.TrackElement.TrackElementIsCoreMethodInfo
ResolveVideoTransitionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveVideoTransitionMethod "isInverted" o = VideoTransitionIsInvertedMethodInfo
ResolveVideoTransitionMethod "listChildrenProperties" o = GES.TrackElement.TrackElementListChildrenPropertiesMethodInfo
ResolveVideoTransitionMethod "lookupChild" o = GES.TrackElement.TrackElementLookupChildMethodInfo
ResolveVideoTransitionMethod "metasToString" o = GES.MetaContainer.MetaContainerMetasToStringMethodInfo
ResolveVideoTransitionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveVideoTransitionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveVideoTransitionMethod "paste" o = GES.TimelineElement.TimelineElementPasteMethodInfo
ResolveVideoTransitionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveVideoTransitionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveVideoTransitionMethod "registerMeta" o = GES.MetaContainer.MetaContainerRegisterMetaMethodInfo
ResolveVideoTransitionMethod "registerMetaBoolean" o = GES.MetaContainer.MetaContainerRegisterMetaBooleanMethodInfo
ResolveVideoTransitionMethod "registerMetaDate" o = GES.MetaContainer.MetaContainerRegisterMetaDateMethodInfo
ResolveVideoTransitionMethod "registerMetaDateTime" o = GES.MetaContainer.MetaContainerRegisterMetaDateTimeMethodInfo
ResolveVideoTransitionMethod "registerMetaDouble" o = GES.MetaContainer.MetaContainerRegisterMetaDoubleMethodInfo
ResolveVideoTransitionMethod "registerMetaFloat" o = GES.MetaContainer.MetaContainerRegisterMetaFloatMethodInfo
ResolveVideoTransitionMethod "registerMetaInt" o = GES.MetaContainer.MetaContainerRegisterMetaIntMethodInfo
ResolveVideoTransitionMethod "registerMetaInt64" o = GES.MetaContainer.MetaContainerRegisterMetaInt64MethodInfo
ResolveVideoTransitionMethod "registerMetaString" o = GES.MetaContainer.MetaContainerRegisterMetaStringMethodInfo
ResolveVideoTransitionMethod "registerMetaUint" o = GES.MetaContainer.MetaContainerRegisterMetaUintMethodInfo
ResolveVideoTransitionMethod "registerMetaUint64" o = GES.MetaContainer.MetaContainerRegisterMetaUint64MethodInfo
ResolveVideoTransitionMethod "registerStaticMeta" o = GES.MetaContainer.MetaContainerRegisterStaticMetaMethodInfo
ResolveVideoTransitionMethod "removeChildProperty" o = GES.TimelineElement.TimelineElementRemoveChildPropertyMethodInfo
ResolveVideoTransitionMethod "removeControlBinding" o = GES.TrackElement.TrackElementRemoveControlBindingMethodInfo
ResolveVideoTransitionMethod "ripple" o = GES.TimelineElement.TimelineElementRippleMethodInfo
ResolveVideoTransitionMethod "rippleEnd" o = GES.TimelineElement.TimelineElementRippleEndMethodInfo
ResolveVideoTransitionMethod "rollEnd" o = GES.TimelineElement.TimelineElementRollEndMethodInfo
ResolveVideoTransitionMethod "rollStart" o = GES.TimelineElement.TimelineElementRollStartMethodInfo
ResolveVideoTransitionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveVideoTransitionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveVideoTransitionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveVideoTransitionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveVideoTransitionMethod "trim" o = GES.TimelineElement.TimelineElementTrimMethodInfo
ResolveVideoTransitionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveVideoTransitionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveVideoTransitionMethod "getAllControlBindings" o = GES.TrackElement.TrackElementGetAllControlBindingsMethodInfo
ResolveVideoTransitionMethod "getAsset" o = GES.Extractable.ExtractableGetAssetMethodInfo
ResolveVideoTransitionMethod "getAutoClampControlSources" o = GES.TrackElement.TrackElementGetAutoClampControlSourcesMethodInfo
ResolveVideoTransitionMethod "getBoolean" o = GES.MetaContainer.MetaContainerGetBooleanMethodInfo
ResolveVideoTransitionMethod "getBorder" o = VideoTransitionGetBorderMethodInfo
ResolveVideoTransitionMethod "getChildProperty" o = GES.TimelineElement.TimelineElementGetChildPropertyMethodInfo
ResolveVideoTransitionMethod "getChildPropertyByPspec" o = GES.TimelineElement.TimelineElementGetChildPropertyByPspecMethodInfo
ResolveVideoTransitionMethod "getControlBinding" o = GES.TrackElement.TrackElementGetControlBindingMethodInfo
ResolveVideoTransitionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveVideoTransitionMethod "getDate" o = GES.MetaContainer.MetaContainerGetDateMethodInfo
ResolveVideoTransitionMethod "getDateTime" o = GES.MetaContainer.MetaContainerGetDateTimeMethodInfo
ResolveVideoTransitionMethod "getDouble" o = GES.MetaContainer.MetaContainerGetDoubleMethodInfo
ResolveVideoTransitionMethod "getDuration" o = GES.TimelineElement.TimelineElementGetDurationMethodInfo
ResolveVideoTransitionMethod "getElement" o = GES.TrackElement.TrackElementGetElementMethodInfo
ResolveVideoTransitionMethod "getFloat" o = GES.MetaContainer.MetaContainerGetFloatMethodInfo
ResolveVideoTransitionMethod "getGnlobject" o = GES.TrackElement.TrackElementGetGnlobjectMethodInfo
ResolveVideoTransitionMethod "getId" o = GES.Extractable.ExtractableGetIdMethodInfo
ResolveVideoTransitionMethod "getInpoint" o = GES.TimelineElement.TimelineElementGetInpointMethodInfo
ResolveVideoTransitionMethod "getInt" o = GES.MetaContainer.MetaContainerGetIntMethodInfo
ResolveVideoTransitionMethod "getInt64" o = GES.MetaContainer.MetaContainerGetInt64MethodInfo
ResolveVideoTransitionMethod "getLayerPriority" o = GES.TimelineElement.TimelineElementGetLayerPriorityMethodInfo
ResolveVideoTransitionMethod "getMarkerList" o = GES.MetaContainer.MetaContainerGetMarkerListMethodInfo
ResolveVideoTransitionMethod "getMaxDuration" o = GES.TimelineElement.TimelineElementGetMaxDurationMethodInfo
ResolveVideoTransitionMethod "getMeta" o = GES.MetaContainer.MetaContainerGetMetaMethodInfo
ResolveVideoTransitionMethod "getName" o = GES.TimelineElement.TimelineElementGetNameMethodInfo
ResolveVideoTransitionMethod "getNaturalFramerate" o = GES.TimelineElement.TimelineElementGetNaturalFramerateMethodInfo
ResolveVideoTransitionMethod "getNleobject" o = GES.TrackElement.TrackElementGetNleobjectMethodInfo
ResolveVideoTransitionMethod "getParent" o = GES.TimelineElement.TimelineElementGetParentMethodInfo
ResolveVideoTransitionMethod "getPriority" o = GES.TimelineElement.TimelineElementGetPriorityMethodInfo
ResolveVideoTransitionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveVideoTransitionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveVideoTransitionMethod "getStart" o = GES.TimelineElement.TimelineElementGetStartMethodInfo
ResolveVideoTransitionMethod "getString" o = GES.MetaContainer.MetaContainerGetStringMethodInfo
ResolveVideoTransitionMethod "getTimeline" o = GES.TimelineElement.TimelineElementGetTimelineMethodInfo
ResolveVideoTransitionMethod "getToplevelParent" o = GES.TimelineElement.TimelineElementGetToplevelParentMethodInfo
ResolveVideoTransitionMethod "getTrack" o = GES.TrackElement.TrackElementGetTrackMethodInfo
ResolveVideoTransitionMethod "getTrackType" o = GES.TrackElement.TrackElementGetTrackTypeMethodInfo
ResolveVideoTransitionMethod "getTrackTypes" o = GES.TimelineElement.TimelineElementGetTrackTypesMethodInfo
ResolveVideoTransitionMethod "getTransitionType" o = VideoTransitionGetTransitionTypeMethodInfo
ResolveVideoTransitionMethod "getUint" o = GES.MetaContainer.MetaContainerGetUintMethodInfo
ResolveVideoTransitionMethod "getUint64" o = GES.MetaContainer.MetaContainerGetUint64MethodInfo
ResolveVideoTransitionMethod "setActive" o = GES.TrackElement.TrackElementSetActiveMethodInfo
ResolveVideoTransitionMethod "setAsset" o = GES.Extractable.ExtractableSetAssetMethodInfo
ResolveVideoTransitionMethod "setAutoClampControlSources" o = GES.TrackElement.TrackElementSetAutoClampControlSourcesMethodInfo
ResolveVideoTransitionMethod "setBoolean" o = GES.MetaContainer.MetaContainerSetBooleanMethodInfo
ResolveVideoTransitionMethod "setBorder" o = VideoTransitionSetBorderMethodInfo
ResolveVideoTransitionMethod "setChildProperty" o = GES.TimelineElement.TimelineElementSetChildPropertyMethodInfo
ResolveVideoTransitionMethod "setChildPropertyByPspec" o = GES.TimelineElement.TimelineElementSetChildPropertyByPspecMethodInfo
ResolveVideoTransitionMethod "setChildPropertyFull" o = GES.TimelineElement.TimelineElementSetChildPropertyFullMethodInfo
ResolveVideoTransitionMethod "setControlSource" o = GES.TrackElement.TrackElementSetControlSourceMethodInfo
ResolveVideoTransitionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveVideoTransitionMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveVideoTransitionMethod "setDate" o = GES.MetaContainer.MetaContainerSetDateMethodInfo
ResolveVideoTransitionMethod "setDateTime" o = GES.MetaContainer.MetaContainerSetDateTimeMethodInfo
ResolveVideoTransitionMethod "setDouble" o = GES.MetaContainer.MetaContainerSetDoubleMethodInfo
ResolveVideoTransitionMethod "setDuration" o = GES.TimelineElement.TimelineElementSetDurationMethodInfo
ResolveVideoTransitionMethod "setFloat" o = GES.MetaContainer.MetaContainerSetFloatMethodInfo
ResolveVideoTransitionMethod "setHasInternalSource" o = GES.TrackElement.TrackElementSetHasInternalSourceMethodInfo
ResolveVideoTransitionMethod "setInpoint" o = GES.TimelineElement.TimelineElementSetInpointMethodInfo
ResolveVideoTransitionMethod "setInt" o = GES.MetaContainer.MetaContainerSetIntMethodInfo
ResolveVideoTransitionMethod "setInt64" o = GES.MetaContainer.MetaContainerSetInt64MethodInfo
ResolveVideoTransitionMethod "setInverted" o = VideoTransitionSetInvertedMethodInfo
ResolveVideoTransitionMethod "setMarkerList" o = GES.MetaContainer.MetaContainerSetMarkerListMethodInfo
ResolveVideoTransitionMethod "setMaxDuration" o = GES.TimelineElement.TimelineElementSetMaxDurationMethodInfo
ResolveVideoTransitionMethod "setMeta" o = GES.MetaContainer.MetaContainerSetMetaMethodInfo
ResolveVideoTransitionMethod "setName" o = GES.TimelineElement.TimelineElementSetNameMethodInfo
ResolveVideoTransitionMethod "setParent" o = GES.TimelineElement.TimelineElementSetParentMethodInfo
ResolveVideoTransitionMethod "setPriority" o = GES.TimelineElement.TimelineElementSetPriorityMethodInfo
ResolveVideoTransitionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveVideoTransitionMethod "setStart" o = GES.TimelineElement.TimelineElementSetStartMethodInfo
ResolveVideoTransitionMethod "setString" o = GES.MetaContainer.MetaContainerSetStringMethodInfo
ResolveVideoTransitionMethod "setTimeline" o = GES.TimelineElement.TimelineElementSetTimelineMethodInfo
ResolveVideoTransitionMethod "setTrackType" o = GES.TrackElement.TrackElementSetTrackTypeMethodInfo
ResolveVideoTransitionMethod "setTransitionType" o = VideoTransitionSetTransitionTypeMethodInfo
ResolveVideoTransitionMethod "setUint" o = GES.MetaContainer.MetaContainerSetUintMethodInfo
ResolveVideoTransitionMethod "setUint64" o = GES.MetaContainer.MetaContainerSetUint64MethodInfo
ResolveVideoTransitionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveVideoTransitionMethod t VideoTransition, O.OverloadedMethod info VideoTransition p) => OL.IsLabel t (VideoTransition -> 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 ~ ResolveVideoTransitionMethod t VideoTransition, O.OverloadedMethod info VideoTransition p, R.HasField t VideoTransition p) => R.HasField t VideoTransition p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveVideoTransitionMethod t VideoTransition, O.OverloadedMethodInfo info VideoTransition) => OL.IsLabel t (O.MethodProxy info VideoTransition) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getVideoTransitionBorder :: (MonadIO m, IsVideoTransition o) => o -> m Word32
getVideoTransitionBorder :: forall (m :: * -> *) o.
(MonadIO m, IsVideoTransition o) =>
o -> m Word32
getVideoTransitionBorder 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
"border"
setVideoTransitionBorder :: (MonadIO m, IsVideoTransition o) => o -> Word32 -> m ()
setVideoTransitionBorder :: forall (m :: * -> *) o.
(MonadIO m, IsVideoTransition o) =>
o -> Word32 -> m ()
setVideoTransitionBorder 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
"border" Word32
val
constructVideoTransitionBorder :: (IsVideoTransition o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructVideoTransitionBorder :: forall o (m :: * -> *).
(IsVideoTransition o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructVideoTransitionBorder 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
"border" Word32
val
#if defined(ENABLE_OVERLOADING)
data VideoTransitionBorderPropertyInfo
instance AttrInfo VideoTransitionBorderPropertyInfo where
type AttrAllowedOps VideoTransitionBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint VideoTransitionBorderPropertyInfo = IsVideoTransition
type AttrSetTypeConstraint VideoTransitionBorderPropertyInfo = (~) Word32
type AttrTransferTypeConstraint VideoTransitionBorderPropertyInfo = (~) Word32
type AttrTransferType VideoTransitionBorderPropertyInfo = Word32
type AttrGetType VideoTransitionBorderPropertyInfo = Word32
type AttrLabel VideoTransitionBorderPropertyInfo = "border"
type AttrOrigin VideoTransitionBorderPropertyInfo = VideoTransition
attrGet = getVideoTransitionBorder
attrSet = setVideoTransitionBorder
attrTransfer _ v = do
return v
attrConstruct = constructVideoTransitionBorder
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.VideoTransition.border"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-VideoTransition.html#g:attr:border"
})
#endif
getVideoTransitionInvert :: (MonadIO m, IsVideoTransition o) => o -> m Bool
getVideoTransitionInvert :: forall (m :: * -> *) o.
(MonadIO m, IsVideoTransition o) =>
o -> m Bool
getVideoTransitionInvert 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
"invert"
setVideoTransitionInvert :: (MonadIO m, IsVideoTransition o) => o -> Bool -> m ()
setVideoTransitionInvert :: forall (m :: * -> *) o.
(MonadIO m, IsVideoTransition o) =>
o -> Bool -> m ()
setVideoTransitionInvert 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
"invert" Bool
val
constructVideoTransitionInvert :: (IsVideoTransition o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructVideoTransitionInvert :: forall o (m :: * -> *).
(IsVideoTransition o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructVideoTransitionInvert 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
"invert" Bool
val
#if defined(ENABLE_OVERLOADING)
data VideoTransitionInvertPropertyInfo
instance AttrInfo VideoTransitionInvertPropertyInfo where
type AttrAllowedOps VideoTransitionInvertPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint VideoTransitionInvertPropertyInfo = IsVideoTransition
type AttrSetTypeConstraint VideoTransitionInvertPropertyInfo = (~) Bool
type AttrTransferTypeConstraint VideoTransitionInvertPropertyInfo = (~) Bool
type AttrTransferType VideoTransitionInvertPropertyInfo = Bool
type AttrGetType VideoTransitionInvertPropertyInfo = Bool
type AttrLabel VideoTransitionInvertPropertyInfo = "invert"
type AttrOrigin VideoTransitionInvertPropertyInfo = VideoTransition
attrGet = getVideoTransitionInvert
attrSet = setVideoTransitionInvert
attrTransfer _ v = do
return v
attrConstruct = constructVideoTransitionInvert
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.VideoTransition.invert"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-VideoTransition.html#g:attr:invert"
})
#endif
getVideoTransitionTransitionType :: (MonadIO m, IsVideoTransition o) => o -> m GES.Enums.VideoStandardTransitionType
getVideoTransitionTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsVideoTransition o) =>
o -> m VideoStandardTransitionType
getVideoTransitionTransitionType o
obj = IO VideoStandardTransitionType -> m VideoStandardTransitionType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO VideoStandardTransitionType -> m VideoStandardTransitionType)
-> IO VideoStandardTransitionType -> m VideoStandardTransitionType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO VideoStandardTransitionType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"transition-type"
setVideoTransitionTransitionType :: (MonadIO m, IsVideoTransition o) => o -> GES.Enums.VideoStandardTransitionType -> m ()
setVideoTransitionTransitionType :: forall (m :: * -> *) o.
(MonadIO m, IsVideoTransition o) =>
o -> VideoStandardTransitionType -> m ()
setVideoTransitionTransitionType o
obj VideoStandardTransitionType
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 -> VideoStandardTransitionType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"transition-type" VideoStandardTransitionType
val
constructVideoTransitionTransitionType :: (IsVideoTransition o, MIO.MonadIO m) => GES.Enums.VideoStandardTransitionType -> m (GValueConstruct o)
constructVideoTransitionTransitionType :: forall o (m :: * -> *).
(IsVideoTransition o, MonadIO m) =>
VideoStandardTransitionType -> m (GValueConstruct o)
constructVideoTransitionTransitionType VideoStandardTransitionType
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 -> VideoStandardTransitionType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"transition-type" VideoStandardTransitionType
val
#if defined(ENABLE_OVERLOADING)
data VideoTransitionTransitionTypePropertyInfo
instance AttrInfo VideoTransitionTransitionTypePropertyInfo where
type AttrAllowedOps VideoTransitionTransitionTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint VideoTransitionTransitionTypePropertyInfo = IsVideoTransition
type AttrSetTypeConstraint VideoTransitionTransitionTypePropertyInfo = (~) GES.Enums.VideoStandardTransitionType
type AttrTransferTypeConstraint VideoTransitionTransitionTypePropertyInfo = (~) GES.Enums.VideoStandardTransitionType
type AttrTransferType VideoTransitionTransitionTypePropertyInfo = GES.Enums.VideoStandardTransitionType
type AttrGetType VideoTransitionTransitionTypePropertyInfo = GES.Enums.VideoStandardTransitionType
type AttrLabel VideoTransitionTransitionTypePropertyInfo = "transition-type"
type AttrOrigin VideoTransitionTransitionTypePropertyInfo = VideoTransition
attrGet = getVideoTransitionTransitionType
attrSet = setVideoTransitionTransitionType
attrTransfer _ v = do
return v
attrConstruct = constructVideoTransitionTransitionType
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.VideoTransition.transitionType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-VideoTransition.html#g:attr:transitionType"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList VideoTransition
type instance O.AttributeList VideoTransition = VideoTransitionAttributeList
type VideoTransitionAttributeList = ('[ '("active", GES.TrackElement.TrackElementActivePropertyInfo), '("autoClampControlSources", GES.TrackElement.TrackElementAutoClampControlSourcesPropertyInfo), '("border", VideoTransitionBorderPropertyInfo), '("duration", GES.TimelineElement.TimelineElementDurationPropertyInfo), '("hasInternalSource", GES.TrackElement.TrackElementHasInternalSourcePropertyInfo), '("inPoint", GES.TimelineElement.TimelineElementInPointPropertyInfo), '("invert", VideoTransitionInvertPropertyInfo), '("maxDuration", GES.TimelineElement.TimelineElementMaxDurationPropertyInfo), '("name", GES.TimelineElement.TimelineElementNamePropertyInfo), '("parent", GES.TimelineElement.TimelineElementParentPropertyInfo), '("priority", GES.TimelineElement.TimelineElementPriorityPropertyInfo), '("serialize", GES.TimelineElement.TimelineElementSerializePropertyInfo), '("start", GES.TimelineElement.TimelineElementStartPropertyInfo), '("timeline", GES.TimelineElement.TimelineElementTimelinePropertyInfo), '("track", GES.TrackElement.TrackElementTrackPropertyInfo), '("trackType", GES.TrackElement.TrackElementTrackTypePropertyInfo), '("transitionType", VideoTransitionTransitionTypePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
videoTransitionBorder :: AttrLabelProxy "border"
videoTransitionBorder = AttrLabelProxy
videoTransitionInvert :: AttrLabelProxy "invert"
videoTransitionInvert = AttrLabelProxy
videoTransitionTransitionType :: AttrLabelProxy "transitionType"
videoTransitionTransitionType = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList VideoTransition = VideoTransitionSignalList
type VideoTransitionSignalList = ('[ '("childPropertyAdded", GES.TimelineElement.TimelineElementChildPropertyAddedSignalInfo), '("childPropertyRemoved", GES.TimelineElement.TimelineElementChildPropertyRemovedSignalInfo), '("controlBindingAdded", GES.TrackElement.TrackElementControlBindingAddedSignalInfo), '("controlBindingRemoved", GES.TrackElement.TrackElementControlBindingRemovedSignalInfo), '("deepNotify", GES.TimelineElement.TimelineElementDeepNotifySignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("notifyMeta", GES.MetaContainer.MetaContainerNotifyMetaSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "ges_video_transition_new" ges_video_transition_new ::
IO (Ptr VideoTransition)
videoTransitionNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m VideoTransition
videoTransitionNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m VideoTransition
videoTransitionNew = IO VideoTransition -> m VideoTransition
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoTransition -> m VideoTransition)
-> IO VideoTransition -> m VideoTransition
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoTransition
result <- IO (Ptr VideoTransition)
ges_video_transition_new
Text -> Ptr VideoTransition -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"videoTransitionNew" Ptr VideoTransition
result
VideoTransition
result' <- ((ManagedPtr VideoTransition -> VideoTransition)
-> Ptr VideoTransition -> IO VideoTransition
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr VideoTransition -> VideoTransition
VideoTransition) Ptr VideoTransition
result
VideoTransition -> IO VideoTransition
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return VideoTransition
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ges_video_transition_get_border" ges_video_transition_get_border ::
Ptr VideoTransition ->
IO Int32
{-# DEPRECATED videoTransitionGetBorder ["(Since version 1.20)","Use ges_timeline_element_get_child_property instead."] #-}
videoTransitionGetBorder ::
(B.CallStack.HasCallStack, MonadIO m, IsVideoTransition a) =>
a
-> m Int32
videoTransitionGetBorder :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsVideoTransition a) =>
a -> m Int32
videoTransitionGetBorder a
self = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoTransition
self' <- a -> IO (Ptr VideoTransition)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr VideoTransition -> IO Int32
ges_video_transition_get_border Ptr VideoTransition
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data VideoTransitionGetBorderMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsVideoTransition a) => O.OverloadedMethod VideoTransitionGetBorderMethodInfo a signature where
overloadedMethod = videoTransitionGetBorder
instance O.OverloadedMethodInfo VideoTransitionGetBorderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.VideoTransition.videoTransitionGetBorder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-VideoTransition.html#v:videoTransitionGetBorder"
})
#endif
foreign import ccall "ges_video_transition_get_transition_type" ges_video_transition_get_transition_type ::
Ptr VideoTransition ->
IO CUInt
videoTransitionGetTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsVideoTransition a) =>
a
-> m GES.Enums.VideoStandardTransitionType
videoTransitionGetTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsVideoTransition a) =>
a -> m VideoStandardTransitionType
videoTransitionGetTransitionType a
trans = IO VideoStandardTransitionType -> m VideoStandardTransitionType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoStandardTransitionType -> m VideoStandardTransitionType)
-> IO VideoStandardTransitionType -> m VideoStandardTransitionType
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoTransition
trans' <- a -> IO (Ptr VideoTransition)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
trans
CUInt
result <- Ptr VideoTransition -> IO CUInt
ges_video_transition_get_transition_type Ptr VideoTransition
trans'
let result' :: VideoStandardTransitionType
result' = (Int -> VideoStandardTransitionType
forall a. Enum a => Int -> a
toEnum (Int -> VideoStandardTransitionType)
-> (CUInt -> Int) -> CUInt -> VideoStandardTransitionType
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
trans
VideoStandardTransitionType -> IO VideoStandardTransitionType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return VideoStandardTransitionType
result'
#if defined(ENABLE_OVERLOADING)
data VideoTransitionGetTransitionTypeMethodInfo
instance (signature ~ (m GES.Enums.VideoStandardTransitionType), MonadIO m, IsVideoTransition a) => O.OverloadedMethod VideoTransitionGetTransitionTypeMethodInfo a signature where
overloadedMethod = videoTransitionGetTransitionType
instance O.OverloadedMethodInfo VideoTransitionGetTransitionTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.VideoTransition.videoTransitionGetTransitionType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-VideoTransition.html#v:videoTransitionGetTransitionType"
})
#endif
foreign import ccall "ges_video_transition_is_inverted" ges_video_transition_is_inverted ::
Ptr VideoTransition ->
IO CInt
{-# DEPRECATED videoTransitionIsInverted ["(Since version 1.20)","Use ges_timeline_element_get_child_property instead."] #-}
videoTransitionIsInverted ::
(B.CallStack.HasCallStack, MonadIO m, IsVideoTransition a) =>
a
-> m Bool
videoTransitionIsInverted :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsVideoTransition a) =>
a -> m Bool
videoTransitionIsInverted 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 VideoTransition
self' <- a -> IO (Ptr VideoTransition)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr VideoTransition -> IO CInt
ges_video_transition_is_inverted Ptr VideoTransition
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 VideoTransitionIsInvertedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsVideoTransition a) => O.OverloadedMethod VideoTransitionIsInvertedMethodInfo a signature where
overloadedMethod = videoTransitionIsInverted
instance O.OverloadedMethodInfo VideoTransitionIsInvertedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.VideoTransition.videoTransitionIsInverted",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-VideoTransition.html#v:videoTransitionIsInverted"
})
#endif
foreign import ccall "ges_video_transition_set_border" ges_video_transition_set_border ::
Ptr VideoTransition ->
Word32 ->
IO ()
{-# DEPRECATED videoTransitionSetBorder ["(Since version 1.20)","Use ges_timeline_element_set_child_property instead."] #-}
videoTransitionSetBorder ::
(B.CallStack.HasCallStack, MonadIO m, IsVideoTransition a) =>
a
-> Word32
-> m ()
videoTransitionSetBorder :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsVideoTransition a) =>
a -> Word32 -> m ()
videoTransitionSetBorder a
self Word32
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 VideoTransition
self' <- a -> IO (Ptr VideoTransition)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr VideoTransition -> Word32 -> IO ()
ges_video_transition_set_border Ptr VideoTransition
self' Word32
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 VideoTransitionSetBorderMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsVideoTransition a) => O.OverloadedMethod VideoTransitionSetBorderMethodInfo a signature where
overloadedMethod = videoTransitionSetBorder
instance O.OverloadedMethodInfo VideoTransitionSetBorderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.VideoTransition.videoTransitionSetBorder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-VideoTransition.html#v:videoTransitionSetBorder"
})
#endif
foreign import ccall "ges_video_transition_set_inverted" ges_video_transition_set_inverted ::
Ptr VideoTransition ->
CInt ->
IO ()
{-# DEPRECATED videoTransitionSetInverted ["(Since version 1.20)","Use ges_timeline_element_set_child_property instead."] #-}
videoTransitionSetInverted ::
(B.CallStack.HasCallStack, MonadIO m, IsVideoTransition a) =>
a
-> Bool
-> m ()
videoTransitionSetInverted :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsVideoTransition a) =>
a -> Bool -> m ()
videoTransitionSetInverted a
self Bool
inverted = 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 VideoTransition
self' <- a -> IO (Ptr VideoTransition)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let inverted' :: CInt
inverted' = (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
inverted
Ptr VideoTransition -> CInt -> IO ()
ges_video_transition_set_inverted Ptr VideoTransition
self' CInt
inverted'
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 VideoTransitionSetInvertedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsVideoTransition a) => O.OverloadedMethod VideoTransitionSetInvertedMethodInfo a signature where
overloadedMethod = videoTransitionSetInverted
instance O.OverloadedMethodInfo VideoTransitionSetInvertedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.VideoTransition.videoTransitionSetInverted",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-VideoTransition.html#v:videoTransitionSetInverted"
})
#endif
foreign import ccall "ges_video_transition_set_transition_type" ges_video_transition_set_transition_type ::
Ptr VideoTransition ->
CUInt ->
IO CInt
videoTransitionSetTransitionType ::
(B.CallStack.HasCallStack, MonadIO m, IsVideoTransition a) =>
a
-> GES.Enums.VideoStandardTransitionType
-> m Bool
videoTransitionSetTransitionType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsVideoTransition a) =>
a -> VideoStandardTransitionType -> m Bool
videoTransitionSetTransitionType a
self VideoStandardTransitionType
type_ = 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 VideoTransition
self' <- a -> IO (Ptr VideoTransition)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let type_' :: CUInt
type_' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (VideoStandardTransitionType -> Int)
-> VideoStandardTransitionType
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. VideoStandardTransitionType -> Int
forall a. Enum a => a -> Int
fromEnum) VideoStandardTransitionType
type_
CInt
result <- Ptr VideoTransition -> CUInt -> IO CInt
ges_video_transition_set_transition_type Ptr VideoTransition
self' CUInt
type_'
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 VideoTransitionSetTransitionTypeMethodInfo
instance (signature ~ (GES.Enums.VideoStandardTransitionType -> m Bool), MonadIO m, IsVideoTransition a) => O.OverloadedMethod VideoTransitionSetTransitionTypeMethodInfo a signature where
overloadedMethod = videoTransitionSetTransitionType
instance O.OverloadedMethodInfo VideoTransitionSetTransitionTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.VideoTransition.videoTransitionSetTransitionType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-VideoTransition.html#v:videoTransitionSetTransitionType"
})
#endif