{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GES.Objects.VideoTestSource
(
VideoTestSource(..) ,
IsVideoTestSource ,
toVideoTestSource ,
#if defined(ENABLE_OVERLOADING)
ResolveVideoTestSourceMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
VideoTestSourceGetPatternMethodInfo ,
#endif
videoTestSourceGetPattern ,
#if defined(ENABLE_OVERLOADING)
VideoTestSourceSetPatternMethodInfo ,
#endif
videoTestSourceSetPattern ,
) 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.Source as GES.Source
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.VideoSource as GES.VideoSource
import qualified GI.GObject.Objects.Object as GObject.Object
newtype VideoTestSource = VideoTestSource (SP.ManagedPtr VideoTestSource)
deriving (VideoTestSource -> VideoTestSource -> Bool
(VideoTestSource -> VideoTestSource -> Bool)
-> (VideoTestSource -> VideoTestSource -> Bool)
-> Eq VideoTestSource
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: VideoTestSource -> VideoTestSource -> Bool
== :: VideoTestSource -> VideoTestSource -> Bool
$c/= :: VideoTestSource -> VideoTestSource -> Bool
/= :: VideoTestSource -> VideoTestSource -> Bool
Eq)
instance SP.ManagedPtrNewtype VideoTestSource where
toManagedPtr :: VideoTestSource -> ManagedPtr VideoTestSource
toManagedPtr (VideoTestSource ManagedPtr VideoTestSource
p) = ManagedPtr VideoTestSource
p
foreign import ccall "ges_video_test_source_get_type"
c_ges_video_test_source_get_type :: IO B.Types.GType
instance B.Types.TypedObject VideoTestSource where
glibType :: IO GType
glibType = IO GType
c_ges_video_test_source_get_type
instance B.Types.GObject VideoTestSource
class (SP.GObject o, O.IsDescendantOf VideoTestSource o) => IsVideoTestSource o
instance (SP.GObject o, O.IsDescendantOf VideoTestSource o) => IsVideoTestSource o
instance O.HasParentTypes VideoTestSource
type instance O.ParentTypes VideoTestSource = '[GES.VideoSource.VideoSource, GES.Source.Source, GES.TrackElement.TrackElement, GES.TimelineElement.TimelineElement, GObject.Object.Object, GES.Extractable.Extractable, GES.MetaContainer.MetaContainer]
toVideoTestSource :: (MIO.MonadIO m, IsVideoTestSource o) => o -> m VideoTestSource
toVideoTestSource :: forall (m :: * -> *) o.
(MonadIO m, IsVideoTestSource o) =>
o -> m VideoTestSource
toVideoTestSource = IO VideoTestSource -> m VideoTestSource
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO VideoTestSource -> m VideoTestSource)
-> (o -> IO VideoTestSource) -> o -> m VideoTestSource
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr VideoTestSource -> VideoTestSource)
-> o -> IO VideoTestSource
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr VideoTestSource -> VideoTestSource
VideoTestSource
instance B.GValue.IsGValue (Maybe VideoTestSource) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ges_video_test_source_get_type
gvalueSet_ :: Ptr GValue -> Maybe VideoTestSource -> IO ()
gvalueSet_ Ptr GValue
gv Maybe VideoTestSource
P.Nothing = Ptr GValue -> Ptr VideoTestSource -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr VideoTestSource
forall a. Ptr a
FP.nullPtr :: FP.Ptr VideoTestSource)
gvalueSet_ Ptr GValue
gv (P.Just VideoTestSource
obj) = VideoTestSource -> (Ptr VideoTestSource -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr VideoTestSource
obj (Ptr GValue -> Ptr VideoTestSource -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe VideoTestSource)
gvalueGet_ Ptr GValue
gv = do
Ptr VideoTestSource
ptr <- Ptr GValue -> IO (Ptr VideoTestSource)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr VideoTestSource)
if Ptr VideoTestSource
ptr Ptr VideoTestSource -> Ptr VideoTestSource -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr VideoTestSource
forall a. Ptr a
FP.nullPtr
then VideoTestSource -> Maybe VideoTestSource
forall a. a -> Maybe a
P.Just (VideoTestSource -> Maybe VideoTestSource)
-> IO VideoTestSource -> IO (Maybe VideoTestSource)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr VideoTestSource -> VideoTestSource)
-> Ptr VideoTestSource -> IO VideoTestSource
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr VideoTestSource -> VideoTestSource
VideoTestSource Ptr VideoTestSource
ptr
else Maybe VideoTestSource -> IO (Maybe VideoTestSource)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe VideoTestSource
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveVideoTestSourceMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveVideoTestSourceMethod "addChildProperty" o = GES.TimelineElement.TimelineElementAddChildPropertyMethodInfo
ResolveVideoTestSourceMethod "addChildrenProps" o = GES.TrackElement.TrackElementAddChildrenPropsMethodInfo
ResolveVideoTestSourceMethod "addMetasFromString" o = GES.MetaContainer.MetaContainerAddMetasFromStringMethodInfo
ResolveVideoTestSourceMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveVideoTestSourceMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveVideoTestSourceMethod "checkMetaRegistered" o = GES.MetaContainer.MetaContainerCheckMetaRegisteredMethodInfo
ResolveVideoTestSourceMethod "clampControlSource" o = GES.TrackElement.TrackElementClampControlSourceMethodInfo
ResolveVideoTestSourceMethod "copy" o = GES.TimelineElement.TimelineElementCopyMethodInfo
ResolveVideoTestSourceMethod "edit" o = GES.TrackElement.TrackElementEditMethodInfo
ResolveVideoTestSourceMethod "editFull" o = GES.TimelineElement.TimelineElementEditFullMethodInfo
ResolveVideoTestSourceMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveVideoTestSourceMethod "foreach" o = GES.MetaContainer.MetaContainerForeachMethodInfo
ResolveVideoTestSourceMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveVideoTestSourceMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveVideoTestSourceMethod "hasInternalSource" o = GES.TrackElement.TrackElementHasInternalSourceMethodInfo
ResolveVideoTestSourceMethod "isActive" o = GES.TrackElement.TrackElementIsActiveMethodInfo
ResolveVideoTestSourceMethod "isCore" o = GES.TrackElement.TrackElementIsCoreMethodInfo
ResolveVideoTestSourceMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveVideoTestSourceMethod "listChildrenProperties" o = GES.TrackElement.TrackElementListChildrenPropertiesMethodInfo
ResolveVideoTestSourceMethod "lookupChild" o = GES.TrackElement.TrackElementLookupChildMethodInfo
ResolveVideoTestSourceMethod "metasToString" o = GES.MetaContainer.MetaContainerMetasToStringMethodInfo
ResolveVideoTestSourceMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveVideoTestSourceMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveVideoTestSourceMethod "paste" o = GES.TimelineElement.TimelineElementPasteMethodInfo
ResolveVideoTestSourceMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveVideoTestSourceMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveVideoTestSourceMethod "registerMeta" o = GES.MetaContainer.MetaContainerRegisterMetaMethodInfo
ResolveVideoTestSourceMethod "registerMetaBoolean" o = GES.MetaContainer.MetaContainerRegisterMetaBooleanMethodInfo
ResolveVideoTestSourceMethod "registerMetaDate" o = GES.MetaContainer.MetaContainerRegisterMetaDateMethodInfo
ResolveVideoTestSourceMethod "registerMetaDateTime" o = GES.MetaContainer.MetaContainerRegisterMetaDateTimeMethodInfo
ResolveVideoTestSourceMethod "registerMetaDouble" o = GES.MetaContainer.MetaContainerRegisterMetaDoubleMethodInfo
ResolveVideoTestSourceMethod "registerMetaFloat" o = GES.MetaContainer.MetaContainerRegisterMetaFloatMethodInfo
ResolveVideoTestSourceMethod "registerMetaInt" o = GES.MetaContainer.MetaContainerRegisterMetaIntMethodInfo
ResolveVideoTestSourceMethod "registerMetaInt64" o = GES.MetaContainer.MetaContainerRegisterMetaInt64MethodInfo
ResolveVideoTestSourceMethod "registerMetaString" o = GES.MetaContainer.MetaContainerRegisterMetaStringMethodInfo
ResolveVideoTestSourceMethod "registerMetaUint" o = GES.MetaContainer.MetaContainerRegisterMetaUintMethodInfo
ResolveVideoTestSourceMethod "registerMetaUint64" o = GES.MetaContainer.MetaContainerRegisterMetaUint64MethodInfo
ResolveVideoTestSourceMethod "registerStaticMeta" o = GES.MetaContainer.MetaContainerRegisterStaticMetaMethodInfo
ResolveVideoTestSourceMethod "removeChildProperty" o = GES.TimelineElement.TimelineElementRemoveChildPropertyMethodInfo
ResolveVideoTestSourceMethod "removeControlBinding" o = GES.TrackElement.TrackElementRemoveControlBindingMethodInfo
ResolveVideoTestSourceMethod "ripple" o = GES.TimelineElement.TimelineElementRippleMethodInfo
ResolveVideoTestSourceMethod "rippleEnd" o = GES.TimelineElement.TimelineElementRippleEndMethodInfo
ResolveVideoTestSourceMethod "rollEnd" o = GES.TimelineElement.TimelineElementRollEndMethodInfo
ResolveVideoTestSourceMethod "rollStart" o = GES.TimelineElement.TimelineElementRollStartMethodInfo
ResolveVideoTestSourceMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveVideoTestSourceMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveVideoTestSourceMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveVideoTestSourceMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveVideoTestSourceMethod "trim" o = GES.TimelineElement.TimelineElementTrimMethodInfo
ResolveVideoTestSourceMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveVideoTestSourceMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveVideoTestSourceMethod "getAllControlBindings" o = GES.TrackElement.TrackElementGetAllControlBindingsMethodInfo
ResolveVideoTestSourceMethod "getAsset" o = GES.Extractable.ExtractableGetAssetMethodInfo
ResolveVideoTestSourceMethod "getAutoClampControlSources" o = GES.TrackElement.TrackElementGetAutoClampControlSourcesMethodInfo
ResolveVideoTestSourceMethod "getBoolean" o = GES.MetaContainer.MetaContainerGetBooleanMethodInfo
ResolveVideoTestSourceMethod "getChildProperty" o = GES.TimelineElement.TimelineElementGetChildPropertyMethodInfo
ResolveVideoTestSourceMethod "getChildPropertyByPspec" o = GES.TimelineElement.TimelineElementGetChildPropertyByPspecMethodInfo
ResolveVideoTestSourceMethod "getControlBinding" o = GES.TrackElement.TrackElementGetControlBindingMethodInfo
ResolveVideoTestSourceMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveVideoTestSourceMethod "getDate" o = GES.MetaContainer.MetaContainerGetDateMethodInfo
ResolveVideoTestSourceMethod "getDateTime" o = GES.MetaContainer.MetaContainerGetDateTimeMethodInfo
ResolveVideoTestSourceMethod "getDouble" o = GES.MetaContainer.MetaContainerGetDoubleMethodInfo
ResolveVideoTestSourceMethod "getDuration" o = GES.TimelineElement.TimelineElementGetDurationMethodInfo
ResolveVideoTestSourceMethod "getElement" o = GES.TrackElement.TrackElementGetElementMethodInfo
ResolveVideoTestSourceMethod "getFloat" o = GES.MetaContainer.MetaContainerGetFloatMethodInfo
ResolveVideoTestSourceMethod "getGnlobject" o = GES.TrackElement.TrackElementGetGnlobjectMethodInfo
ResolveVideoTestSourceMethod "getId" o = GES.Extractable.ExtractableGetIdMethodInfo
ResolveVideoTestSourceMethod "getInpoint" o = GES.TimelineElement.TimelineElementGetInpointMethodInfo
ResolveVideoTestSourceMethod "getInt" o = GES.MetaContainer.MetaContainerGetIntMethodInfo
ResolveVideoTestSourceMethod "getInt64" o = GES.MetaContainer.MetaContainerGetInt64MethodInfo
ResolveVideoTestSourceMethod "getLayerPriority" o = GES.TimelineElement.TimelineElementGetLayerPriorityMethodInfo
ResolveVideoTestSourceMethod "getMarkerList" o = GES.MetaContainer.MetaContainerGetMarkerListMethodInfo
ResolveVideoTestSourceMethod "getMaxDuration" o = GES.TimelineElement.TimelineElementGetMaxDurationMethodInfo
ResolveVideoTestSourceMethod "getMeta" o = GES.MetaContainer.MetaContainerGetMetaMethodInfo
ResolveVideoTestSourceMethod "getName" o = GES.TimelineElement.TimelineElementGetNameMethodInfo
ResolveVideoTestSourceMethod "getNaturalFramerate" o = GES.TimelineElement.TimelineElementGetNaturalFramerateMethodInfo
ResolveVideoTestSourceMethod "getNaturalSize" o = GES.VideoSource.VideoSourceGetNaturalSizeMethodInfo
ResolveVideoTestSourceMethod "getNleobject" o = GES.TrackElement.TrackElementGetNleobjectMethodInfo
ResolveVideoTestSourceMethod "getParent" o = GES.TimelineElement.TimelineElementGetParentMethodInfo
ResolveVideoTestSourceMethod "getPattern" o = VideoTestSourceGetPatternMethodInfo
ResolveVideoTestSourceMethod "getPriority" o = GES.TimelineElement.TimelineElementGetPriorityMethodInfo
ResolveVideoTestSourceMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveVideoTestSourceMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveVideoTestSourceMethod "getStart" o = GES.TimelineElement.TimelineElementGetStartMethodInfo
ResolveVideoTestSourceMethod "getString" o = GES.MetaContainer.MetaContainerGetStringMethodInfo
ResolveVideoTestSourceMethod "getTimeline" o = GES.TimelineElement.TimelineElementGetTimelineMethodInfo
ResolveVideoTestSourceMethod "getToplevelParent" o = GES.TimelineElement.TimelineElementGetToplevelParentMethodInfo
ResolveVideoTestSourceMethod "getTrack" o = GES.TrackElement.TrackElementGetTrackMethodInfo
ResolveVideoTestSourceMethod "getTrackType" o = GES.TrackElement.TrackElementGetTrackTypeMethodInfo
ResolveVideoTestSourceMethod "getTrackTypes" o = GES.TimelineElement.TimelineElementGetTrackTypesMethodInfo
ResolveVideoTestSourceMethod "getUint" o = GES.MetaContainer.MetaContainerGetUintMethodInfo
ResolveVideoTestSourceMethod "getUint64" o = GES.MetaContainer.MetaContainerGetUint64MethodInfo
ResolveVideoTestSourceMethod "setActive" o = GES.TrackElement.TrackElementSetActiveMethodInfo
ResolveVideoTestSourceMethod "setAsset" o = GES.Extractable.ExtractableSetAssetMethodInfo
ResolveVideoTestSourceMethod "setAutoClampControlSources" o = GES.TrackElement.TrackElementSetAutoClampControlSourcesMethodInfo
ResolveVideoTestSourceMethod "setBoolean" o = GES.MetaContainer.MetaContainerSetBooleanMethodInfo
ResolveVideoTestSourceMethod "setChildProperty" o = GES.TimelineElement.TimelineElementSetChildPropertyMethodInfo
ResolveVideoTestSourceMethod "setChildPropertyByPspec" o = GES.TimelineElement.TimelineElementSetChildPropertyByPspecMethodInfo
ResolveVideoTestSourceMethod "setChildPropertyFull" o = GES.TimelineElement.TimelineElementSetChildPropertyFullMethodInfo
ResolveVideoTestSourceMethod "setControlSource" o = GES.TrackElement.TrackElementSetControlSourceMethodInfo
ResolveVideoTestSourceMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveVideoTestSourceMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveVideoTestSourceMethod "setDate" o = GES.MetaContainer.MetaContainerSetDateMethodInfo
ResolveVideoTestSourceMethod "setDateTime" o = GES.MetaContainer.MetaContainerSetDateTimeMethodInfo
ResolveVideoTestSourceMethod "setDouble" o = GES.MetaContainer.MetaContainerSetDoubleMethodInfo
ResolveVideoTestSourceMethod "setDuration" o = GES.TimelineElement.TimelineElementSetDurationMethodInfo
ResolveVideoTestSourceMethod "setFloat" o = GES.MetaContainer.MetaContainerSetFloatMethodInfo
ResolveVideoTestSourceMethod "setHasInternalSource" o = GES.TrackElement.TrackElementSetHasInternalSourceMethodInfo
ResolveVideoTestSourceMethod "setInpoint" o = GES.TimelineElement.TimelineElementSetInpointMethodInfo
ResolveVideoTestSourceMethod "setInt" o = GES.MetaContainer.MetaContainerSetIntMethodInfo
ResolveVideoTestSourceMethod "setInt64" o = GES.MetaContainer.MetaContainerSetInt64MethodInfo
ResolveVideoTestSourceMethod "setMarkerList" o = GES.MetaContainer.MetaContainerSetMarkerListMethodInfo
ResolveVideoTestSourceMethod "setMaxDuration" o = GES.TimelineElement.TimelineElementSetMaxDurationMethodInfo
ResolveVideoTestSourceMethod "setMeta" o = GES.MetaContainer.MetaContainerSetMetaMethodInfo
ResolveVideoTestSourceMethod "setName" o = GES.TimelineElement.TimelineElementSetNameMethodInfo
ResolveVideoTestSourceMethod "setParent" o = GES.TimelineElement.TimelineElementSetParentMethodInfo
ResolveVideoTestSourceMethod "setPattern" o = VideoTestSourceSetPatternMethodInfo
ResolveVideoTestSourceMethod "setPriority" o = GES.TimelineElement.TimelineElementSetPriorityMethodInfo
ResolveVideoTestSourceMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveVideoTestSourceMethod "setStart" o = GES.TimelineElement.TimelineElementSetStartMethodInfo
ResolveVideoTestSourceMethod "setString" o = GES.MetaContainer.MetaContainerSetStringMethodInfo
ResolveVideoTestSourceMethod "setTimeline" o = GES.TimelineElement.TimelineElementSetTimelineMethodInfo
ResolveVideoTestSourceMethod "setTrackType" o = GES.TrackElement.TrackElementSetTrackTypeMethodInfo
ResolveVideoTestSourceMethod "setUint" o = GES.MetaContainer.MetaContainerSetUintMethodInfo
ResolveVideoTestSourceMethod "setUint64" o = GES.MetaContainer.MetaContainerSetUint64MethodInfo
ResolveVideoTestSourceMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveVideoTestSourceMethod t VideoTestSource, O.OverloadedMethod info VideoTestSource p) => OL.IsLabel t (VideoTestSource -> 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 ~ ResolveVideoTestSourceMethod t VideoTestSource, O.OverloadedMethod info VideoTestSource p, R.HasField t VideoTestSource p) => R.HasField t VideoTestSource p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveVideoTestSourceMethod t VideoTestSource, O.OverloadedMethodInfo info VideoTestSource) => OL.IsLabel t (O.MethodProxy info VideoTestSource) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList VideoTestSource
type instance O.AttributeList VideoTestSource = VideoTestSourceAttributeList
type VideoTestSourceAttributeList = ('[ '("active", GES.TrackElement.TrackElementActivePropertyInfo), '("autoClampControlSources", GES.TrackElement.TrackElementAutoClampControlSourcesPropertyInfo), '("duration", GES.TimelineElement.TimelineElementDurationPropertyInfo), '("hasInternalSource", GES.TrackElement.TrackElementHasInternalSourcePropertyInfo), '("inPoint", GES.TimelineElement.TimelineElementInPointPropertyInfo), '("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)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList VideoTestSource = VideoTestSourceSignalList
type VideoTestSourceSignalList = ('[ '("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_test_source_get_pattern" ges_video_test_source_get_pattern ::
Ptr VideoTestSource ->
IO CUInt
videoTestSourceGetPattern ::
(B.CallStack.HasCallStack, MonadIO m, IsVideoTestSource a) =>
a
-> m GES.Enums.VideoTestPattern
videoTestSourceGetPattern :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsVideoTestSource a) =>
a -> m VideoTestPattern
videoTestSourceGetPattern a
source = IO VideoTestPattern -> m VideoTestPattern
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VideoTestPattern -> m VideoTestPattern)
-> IO VideoTestPattern -> m VideoTestPattern
forall a b. (a -> b) -> a -> b
$ do
Ptr VideoTestSource
source' <- a -> IO (Ptr VideoTestSource)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
source
CUInt
result <- Ptr VideoTestSource -> IO CUInt
ges_video_test_source_get_pattern Ptr VideoTestSource
source'
let result' :: VideoTestPattern
result' = (Int -> VideoTestPattern
forall a. Enum a => Int -> a
toEnum (Int -> VideoTestPattern)
-> (CUInt -> Int) -> CUInt -> VideoTestPattern
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
source
VideoTestPattern -> IO VideoTestPattern
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return VideoTestPattern
result'
#if defined(ENABLE_OVERLOADING)
data VideoTestSourceGetPatternMethodInfo
instance (signature ~ (m GES.Enums.VideoTestPattern), MonadIO m, IsVideoTestSource a) => O.OverloadedMethod VideoTestSourceGetPatternMethodInfo a signature where
overloadedMethod = videoTestSourceGetPattern
instance O.OverloadedMethodInfo VideoTestSourceGetPatternMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.VideoTestSource.videoTestSourceGetPattern",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-VideoTestSource.html#v:videoTestSourceGetPattern"
})
#endif
foreign import ccall "ges_video_test_source_set_pattern" ges_video_test_source_set_pattern ::
Ptr VideoTestSource ->
CUInt ->
IO ()
videoTestSourceSetPattern ::
(B.CallStack.HasCallStack, MonadIO m, IsVideoTestSource a) =>
a
-> GES.Enums.VideoTestPattern
-> m ()
videoTestSourceSetPattern :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsVideoTestSource a) =>
a -> VideoTestPattern -> m ()
videoTestSourceSetPattern a
self VideoTestPattern
pattern = 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 VideoTestSource
self' <- a -> IO (Ptr VideoTestSource)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let pattern' :: CUInt
pattern' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (VideoTestPattern -> Int) -> VideoTestPattern -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. VideoTestPattern -> Int
forall a. Enum a => a -> Int
fromEnum) VideoTestPattern
pattern
Ptr VideoTestSource -> CUInt -> IO ()
ges_video_test_source_set_pattern Ptr VideoTestSource
self' CUInt
pattern'
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 VideoTestSourceSetPatternMethodInfo
instance (signature ~ (GES.Enums.VideoTestPattern -> m ()), MonadIO m, IsVideoTestSource a) => O.OverloadedMethod VideoTestSourceSetPatternMethodInfo a signature where
overloadedMethod = videoTestSourceSetPattern
instance O.OverloadedMethodInfo VideoTestSourceSetPatternMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.VideoTestSource.videoTestSourceSetPattern",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-VideoTestSource.html#v:videoTestSourceSetPattern"
})
#endif