{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GES.Objects.TestClip
(
TestClip(..) ,
IsTestClip ,
toTestClip ,
#if defined(ENABLE_OVERLOADING)
ResolveTestClipMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TestClipGetFrequencyMethodInfo ,
#endif
testClipGetFrequency ,
#if defined(ENABLE_OVERLOADING)
TestClipGetVolumeMethodInfo ,
#endif
testClipGetVolume ,
#if defined(ENABLE_OVERLOADING)
TestClipGetVpatternMethodInfo ,
#endif
testClipGetVpattern ,
#if defined(ENABLE_OVERLOADING)
TestClipIsMutedMethodInfo ,
#endif
testClipIsMuted ,
testClipNew ,
testClipNewForNick ,
#if defined(ENABLE_OVERLOADING)
TestClipSetFrequencyMethodInfo ,
#endif
testClipSetFrequency ,
#if defined(ENABLE_OVERLOADING)
TestClipSetMuteMethodInfo ,
#endif
testClipSetMute ,
#if defined(ENABLE_OVERLOADING)
TestClipSetVolumeMethodInfo ,
#endif
testClipSetVolume ,
#if defined(ENABLE_OVERLOADING)
TestClipSetVpatternMethodInfo ,
#endif
testClipSetVpattern ,
#if defined(ENABLE_OVERLOADING)
TestClipFreqPropertyInfo ,
#endif
constructTestClipFreq ,
getTestClipFreq ,
setTestClipFreq ,
#if defined(ENABLE_OVERLOADING)
testClipFreq ,
#endif
#if defined(ENABLE_OVERLOADING)
TestClipMutePropertyInfo ,
#endif
constructTestClipMute ,
getTestClipMute ,
setTestClipMute ,
#if defined(ENABLE_OVERLOADING)
testClipMute ,
#endif
#if defined(ENABLE_OVERLOADING)
TestClipVolumePropertyInfo ,
#endif
constructTestClipVolume ,
getTestClipVolume ,
setTestClipVolume ,
#if defined(ENABLE_OVERLOADING)
testClipVolume ,
#endif
#if defined(ENABLE_OVERLOADING)
TestClipVpatternPropertyInfo ,
#endif
constructTestClipVpattern ,
getTestClipVpattern ,
setTestClipVpattern ,
#if defined(ENABLE_OVERLOADING)
testClipVpattern ,
#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.Clip as GES.Clip
import {-# SOURCE #-} qualified GI.GES.Objects.Container as GES.Container
import {-# SOURCE #-} qualified GI.GES.Objects.SourceClip as GES.SourceClip
import {-# SOURCE #-} qualified GI.GES.Objects.TimelineElement as GES.TimelineElement
import qualified GI.GObject.Objects.Object as GObject.Object
newtype TestClip = TestClip (SP.ManagedPtr TestClip)
deriving (TestClip -> TestClip -> Bool
(TestClip -> TestClip -> Bool)
-> (TestClip -> TestClip -> Bool) -> Eq TestClip
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TestClip -> TestClip -> Bool
== :: TestClip -> TestClip -> Bool
$c/= :: TestClip -> TestClip -> Bool
/= :: TestClip -> TestClip -> Bool
Eq)
instance SP.ManagedPtrNewtype TestClip where
toManagedPtr :: TestClip -> ManagedPtr TestClip
toManagedPtr (TestClip ManagedPtr TestClip
p) = ManagedPtr TestClip
p
foreign import ccall "ges_test_clip_get_type"
c_ges_test_clip_get_type :: IO B.Types.GType
instance B.Types.TypedObject TestClip where
glibType :: IO GType
glibType = IO GType
c_ges_test_clip_get_type
instance B.Types.GObject TestClip
class (SP.GObject o, O.IsDescendantOf TestClip o) => IsTestClip o
instance (SP.GObject o, O.IsDescendantOf TestClip o) => IsTestClip o
instance O.HasParentTypes TestClip
type instance O.ParentTypes TestClip = '[GES.SourceClip.SourceClip, GES.Clip.Clip, GES.Container.Container, GES.TimelineElement.TimelineElement, GObject.Object.Object, GES.Extractable.Extractable, GES.MetaContainer.MetaContainer]
toTestClip :: (MIO.MonadIO m, IsTestClip o) => o -> m TestClip
toTestClip :: forall (m :: * -> *) o.
(MonadIO m, IsTestClip o) =>
o -> m TestClip
toTestClip = IO TestClip -> m TestClip
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TestClip -> m TestClip)
-> (o -> IO TestClip) -> o -> m TestClip
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr TestClip -> TestClip) -> o -> IO TestClip
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr TestClip -> TestClip
TestClip
instance B.GValue.IsGValue (Maybe TestClip) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ges_test_clip_get_type
gvalueSet_ :: Ptr GValue -> Maybe TestClip -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TestClip
P.Nothing = Ptr GValue -> Ptr TestClip -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr TestClip
forall a. Ptr a
FP.nullPtr :: FP.Ptr TestClip)
gvalueSet_ Ptr GValue
gv (P.Just TestClip
obj) = TestClip -> (Ptr TestClip -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TestClip
obj (Ptr GValue -> Ptr TestClip -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TestClip)
gvalueGet_ Ptr GValue
gv = do
Ptr TestClip
ptr <- Ptr GValue -> IO (Ptr TestClip)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr TestClip)
if Ptr TestClip
ptr Ptr TestClip -> Ptr TestClip -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr TestClip
forall a. Ptr a
FP.nullPtr
then TestClip -> Maybe TestClip
forall a. a -> Maybe a
P.Just (TestClip -> Maybe TestClip) -> IO TestClip -> IO (Maybe TestClip)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr TestClip -> TestClip) -> Ptr TestClip -> IO TestClip
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr TestClip -> TestClip
TestClip Ptr TestClip
ptr
else Maybe TestClip -> IO (Maybe TestClip)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TestClip
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTestClipMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveTestClipMethod "add" o = GES.Container.ContainerAddMethodInfo
ResolveTestClipMethod "addAsset" o = GES.Clip.ClipAddAssetMethodInfo
ResolveTestClipMethod "addChildProperty" o = GES.TimelineElement.TimelineElementAddChildPropertyMethodInfo
ResolveTestClipMethod "addChildToTrack" o = GES.Clip.ClipAddChildToTrackMethodInfo
ResolveTestClipMethod "addMetasFromString" o = GES.MetaContainer.MetaContainerAddMetasFromStringMethodInfo
ResolveTestClipMethod "addTopEffect" o = GES.Clip.ClipAddTopEffectMethodInfo
ResolveTestClipMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTestClipMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTestClipMethod "checkMetaRegistered" o = GES.MetaContainer.MetaContainerCheckMetaRegisteredMethodInfo
ResolveTestClipMethod "copy" o = GES.TimelineElement.TimelineElementCopyMethodInfo
ResolveTestClipMethod "edit" o = GES.Container.ContainerEditMethodInfo
ResolveTestClipMethod "editFull" o = GES.TimelineElement.TimelineElementEditFullMethodInfo
ResolveTestClipMethod "findTrackElement" o = GES.Clip.ClipFindTrackElementMethodInfo
ResolveTestClipMethod "findTrackElements" o = GES.Clip.ClipFindTrackElementsMethodInfo
ResolveTestClipMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTestClipMethod "foreach" o = GES.MetaContainer.MetaContainerForeachMethodInfo
ResolveTestClipMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTestClipMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTestClipMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTestClipMethod "isMuted" o = TestClipIsMutedMethodInfo
ResolveTestClipMethod "listChildrenProperties" o = GES.TimelineElement.TimelineElementListChildrenPropertiesMethodInfo
ResolveTestClipMethod "lookupChild" o = GES.TimelineElement.TimelineElementLookupChildMethodInfo
ResolveTestClipMethod "metasToString" o = GES.MetaContainer.MetaContainerMetasToStringMethodInfo
ResolveTestClipMethod "moveToLayer" o = GES.Clip.ClipMoveToLayerMethodInfo
ResolveTestClipMethod "moveToLayerFull" o = GES.Clip.ClipMoveToLayerFullMethodInfo
ResolveTestClipMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTestClipMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTestClipMethod "paste" o = GES.TimelineElement.TimelineElementPasteMethodInfo
ResolveTestClipMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTestClipMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTestClipMethod "registerMeta" o = GES.MetaContainer.MetaContainerRegisterMetaMethodInfo
ResolveTestClipMethod "registerMetaBoolean" o = GES.MetaContainer.MetaContainerRegisterMetaBooleanMethodInfo
ResolveTestClipMethod "registerMetaDate" o = GES.MetaContainer.MetaContainerRegisterMetaDateMethodInfo
ResolveTestClipMethod "registerMetaDateTime" o = GES.MetaContainer.MetaContainerRegisterMetaDateTimeMethodInfo
ResolveTestClipMethod "registerMetaDouble" o = GES.MetaContainer.MetaContainerRegisterMetaDoubleMethodInfo
ResolveTestClipMethod "registerMetaFloat" o = GES.MetaContainer.MetaContainerRegisterMetaFloatMethodInfo
ResolveTestClipMethod "registerMetaInt" o = GES.MetaContainer.MetaContainerRegisterMetaIntMethodInfo
ResolveTestClipMethod "registerMetaInt64" o = GES.MetaContainer.MetaContainerRegisterMetaInt64MethodInfo
ResolveTestClipMethod "registerMetaString" o = GES.MetaContainer.MetaContainerRegisterMetaStringMethodInfo
ResolveTestClipMethod "registerMetaUint" o = GES.MetaContainer.MetaContainerRegisterMetaUintMethodInfo
ResolveTestClipMethod "registerMetaUint64" o = GES.MetaContainer.MetaContainerRegisterMetaUint64MethodInfo
ResolveTestClipMethod "registerStaticMeta" o = GES.MetaContainer.MetaContainerRegisterStaticMetaMethodInfo
ResolveTestClipMethod "remove" o = GES.Container.ContainerRemoveMethodInfo
ResolveTestClipMethod "removeChildProperty" o = GES.TimelineElement.TimelineElementRemoveChildPropertyMethodInfo
ResolveTestClipMethod "removeTopEffect" o = GES.Clip.ClipRemoveTopEffectMethodInfo
ResolveTestClipMethod "ripple" o = GES.TimelineElement.TimelineElementRippleMethodInfo
ResolveTestClipMethod "rippleEnd" o = GES.TimelineElement.TimelineElementRippleEndMethodInfo
ResolveTestClipMethod "rollEnd" o = GES.TimelineElement.TimelineElementRollEndMethodInfo
ResolveTestClipMethod "rollStart" o = GES.TimelineElement.TimelineElementRollStartMethodInfo
ResolveTestClipMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTestClipMethod "split" o = GES.Clip.ClipSplitMethodInfo
ResolveTestClipMethod "splitFull" o = GES.Clip.ClipSplitFullMethodInfo
ResolveTestClipMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTestClipMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTestClipMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTestClipMethod "trim" o = GES.TimelineElement.TimelineElementTrimMethodInfo
ResolveTestClipMethod "ungroup" o = GES.Container.ContainerUngroupMethodInfo
ResolveTestClipMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTestClipMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTestClipMethod "getAsset" o = GES.Extractable.ExtractableGetAssetMethodInfo
ResolveTestClipMethod "getBoolean" o = GES.MetaContainer.MetaContainerGetBooleanMethodInfo
ResolveTestClipMethod "getChildProperty" o = GES.TimelineElement.TimelineElementGetChildPropertyMethodInfo
ResolveTestClipMethod "getChildPropertyByPspec" o = GES.TimelineElement.TimelineElementGetChildPropertyByPspecMethodInfo
ResolveTestClipMethod "getChildren" o = GES.Container.ContainerGetChildrenMethodInfo
ResolveTestClipMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTestClipMethod "getDate" o = GES.MetaContainer.MetaContainerGetDateMethodInfo
ResolveTestClipMethod "getDateTime" o = GES.MetaContainer.MetaContainerGetDateTimeMethodInfo
ResolveTestClipMethod "getDouble" o = GES.MetaContainer.MetaContainerGetDoubleMethodInfo
ResolveTestClipMethod "getDuration" o = GES.TimelineElement.TimelineElementGetDurationMethodInfo
ResolveTestClipMethod "getDurationLimit" o = GES.Clip.ClipGetDurationLimitMethodInfo
ResolveTestClipMethod "getFloat" o = GES.MetaContainer.MetaContainerGetFloatMethodInfo
ResolveTestClipMethod "getFrequency" o = TestClipGetFrequencyMethodInfo
ResolveTestClipMethod "getId" o = GES.Extractable.ExtractableGetIdMethodInfo
ResolveTestClipMethod "getInpoint" o = GES.TimelineElement.TimelineElementGetInpointMethodInfo
ResolveTestClipMethod "getInt" o = GES.MetaContainer.MetaContainerGetIntMethodInfo
ResolveTestClipMethod "getInt64" o = GES.MetaContainer.MetaContainerGetInt64MethodInfo
ResolveTestClipMethod "getInternalTimeFromTimelineTime" o = GES.Clip.ClipGetInternalTimeFromTimelineTimeMethodInfo
ResolveTestClipMethod "getLayer" o = GES.Clip.ClipGetLayerMethodInfo
ResolveTestClipMethod "getLayerPriority" o = GES.TimelineElement.TimelineElementGetLayerPriorityMethodInfo
ResolveTestClipMethod "getMarkerList" o = GES.MetaContainer.MetaContainerGetMarkerListMethodInfo
ResolveTestClipMethod "getMaxDuration" o = GES.TimelineElement.TimelineElementGetMaxDurationMethodInfo
ResolveTestClipMethod "getMeta" o = GES.MetaContainer.MetaContainerGetMetaMethodInfo
ResolveTestClipMethod "getName" o = GES.TimelineElement.TimelineElementGetNameMethodInfo
ResolveTestClipMethod "getNaturalFramerate" o = GES.TimelineElement.TimelineElementGetNaturalFramerateMethodInfo
ResolveTestClipMethod "getParent" o = GES.TimelineElement.TimelineElementGetParentMethodInfo
ResolveTestClipMethod "getPriority" o = GES.TimelineElement.TimelineElementGetPriorityMethodInfo
ResolveTestClipMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTestClipMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTestClipMethod "getStart" o = GES.TimelineElement.TimelineElementGetStartMethodInfo
ResolveTestClipMethod "getString" o = GES.MetaContainer.MetaContainerGetStringMethodInfo
ResolveTestClipMethod "getSupportedFormats" o = GES.Clip.ClipGetSupportedFormatsMethodInfo
ResolveTestClipMethod "getTimeline" o = GES.TimelineElement.TimelineElementGetTimelineMethodInfo
ResolveTestClipMethod "getTimelineTimeFromInternalTime" o = GES.Clip.ClipGetTimelineTimeFromInternalTimeMethodInfo
ResolveTestClipMethod "getTimelineTimeFromSourceFrame" o = GES.Clip.ClipGetTimelineTimeFromSourceFrameMethodInfo
ResolveTestClipMethod "getTopEffectIndex" o = GES.Clip.ClipGetTopEffectIndexMethodInfo
ResolveTestClipMethod "getTopEffectPosition" o = GES.Clip.ClipGetTopEffectPositionMethodInfo
ResolveTestClipMethod "getTopEffects" o = GES.Clip.ClipGetTopEffectsMethodInfo
ResolveTestClipMethod "getToplevelParent" o = GES.TimelineElement.TimelineElementGetToplevelParentMethodInfo
ResolveTestClipMethod "getTrackTypes" o = GES.TimelineElement.TimelineElementGetTrackTypesMethodInfo
ResolveTestClipMethod "getUint" o = GES.MetaContainer.MetaContainerGetUintMethodInfo
ResolveTestClipMethod "getUint64" o = GES.MetaContainer.MetaContainerGetUint64MethodInfo
ResolveTestClipMethod "getVolume" o = TestClipGetVolumeMethodInfo
ResolveTestClipMethod "getVpattern" o = TestClipGetVpatternMethodInfo
ResolveTestClipMethod "setAsset" o = GES.Extractable.ExtractableSetAssetMethodInfo
ResolveTestClipMethod "setBoolean" o = GES.MetaContainer.MetaContainerSetBooleanMethodInfo
ResolveTestClipMethod "setChildProperty" o = GES.TimelineElement.TimelineElementSetChildPropertyMethodInfo
ResolveTestClipMethod "setChildPropertyByPspec" o = GES.TimelineElement.TimelineElementSetChildPropertyByPspecMethodInfo
ResolveTestClipMethod "setChildPropertyFull" o = GES.TimelineElement.TimelineElementSetChildPropertyFullMethodInfo
ResolveTestClipMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTestClipMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTestClipMethod "setDate" o = GES.MetaContainer.MetaContainerSetDateMethodInfo
ResolveTestClipMethod "setDateTime" o = GES.MetaContainer.MetaContainerSetDateTimeMethodInfo
ResolveTestClipMethod "setDouble" o = GES.MetaContainer.MetaContainerSetDoubleMethodInfo
ResolveTestClipMethod "setDuration" o = GES.TimelineElement.TimelineElementSetDurationMethodInfo
ResolveTestClipMethod "setFloat" o = GES.MetaContainer.MetaContainerSetFloatMethodInfo
ResolveTestClipMethod "setFrequency" o = TestClipSetFrequencyMethodInfo
ResolveTestClipMethod "setInpoint" o = GES.TimelineElement.TimelineElementSetInpointMethodInfo
ResolveTestClipMethod "setInt" o = GES.MetaContainer.MetaContainerSetIntMethodInfo
ResolveTestClipMethod "setInt64" o = GES.MetaContainer.MetaContainerSetInt64MethodInfo
ResolveTestClipMethod "setMarkerList" o = GES.MetaContainer.MetaContainerSetMarkerListMethodInfo
ResolveTestClipMethod "setMaxDuration" o = GES.TimelineElement.TimelineElementSetMaxDurationMethodInfo
ResolveTestClipMethod "setMeta" o = GES.MetaContainer.MetaContainerSetMetaMethodInfo
ResolveTestClipMethod "setMute" o = TestClipSetMuteMethodInfo
ResolveTestClipMethod "setName" o = GES.TimelineElement.TimelineElementSetNameMethodInfo
ResolveTestClipMethod "setParent" o = GES.TimelineElement.TimelineElementSetParentMethodInfo
ResolveTestClipMethod "setPriority" o = GES.TimelineElement.TimelineElementSetPriorityMethodInfo
ResolveTestClipMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTestClipMethod "setStart" o = GES.TimelineElement.TimelineElementSetStartMethodInfo
ResolveTestClipMethod "setString" o = GES.MetaContainer.MetaContainerSetStringMethodInfo
ResolveTestClipMethod "setSupportedFormats" o = GES.Clip.ClipSetSupportedFormatsMethodInfo
ResolveTestClipMethod "setTimeline" o = GES.TimelineElement.TimelineElementSetTimelineMethodInfo
ResolveTestClipMethod "setTopEffectIndex" o = GES.Clip.ClipSetTopEffectIndexMethodInfo
ResolveTestClipMethod "setTopEffectIndexFull" o = GES.Clip.ClipSetTopEffectIndexFullMethodInfo
ResolveTestClipMethod "setTopEffectPriority" o = GES.Clip.ClipSetTopEffectPriorityMethodInfo
ResolveTestClipMethod "setUint" o = GES.MetaContainer.MetaContainerSetUintMethodInfo
ResolveTestClipMethod "setUint64" o = GES.MetaContainer.MetaContainerSetUint64MethodInfo
ResolveTestClipMethod "setVolume" o = TestClipSetVolumeMethodInfo
ResolveTestClipMethod "setVpattern" o = TestClipSetVpatternMethodInfo
ResolveTestClipMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTestClipMethod t TestClip, O.OverloadedMethod info TestClip p) => OL.IsLabel t (TestClip -> 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 ~ ResolveTestClipMethod t TestClip, O.OverloadedMethod info TestClip p, R.HasField t TestClip p) => R.HasField t TestClip p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTestClipMethod t TestClip, O.OverloadedMethodInfo info TestClip) => OL.IsLabel t (O.MethodProxy info TestClip) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getTestClipFreq :: (MonadIO m, IsTestClip o) => o -> m Double
getTestClipFreq :: forall (m :: * -> *) o. (MonadIO m, IsTestClip o) => o -> m Double
getTestClipFreq 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
"freq"
setTestClipFreq :: (MonadIO m, IsTestClip o) => o -> Double -> m ()
setTestClipFreq :: forall (m :: * -> *) o.
(MonadIO m, IsTestClip o) =>
o -> Double -> m ()
setTestClipFreq 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
"freq" Double
val
constructTestClipFreq :: (IsTestClip o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructTestClipFreq :: forall o (m :: * -> *).
(IsTestClip o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructTestClipFreq 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
"freq" Double
val
#if defined(ENABLE_OVERLOADING)
data TestClipFreqPropertyInfo
instance AttrInfo TestClipFreqPropertyInfo where
type AttrAllowedOps TestClipFreqPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TestClipFreqPropertyInfo = IsTestClip
type AttrSetTypeConstraint TestClipFreqPropertyInfo = (~) Double
type AttrTransferTypeConstraint TestClipFreqPropertyInfo = (~) Double
type AttrTransferType TestClipFreqPropertyInfo = Double
type AttrGetType TestClipFreqPropertyInfo = Double
type AttrLabel TestClipFreqPropertyInfo = "freq"
type AttrOrigin TestClipFreqPropertyInfo = TestClip
attrGet = getTestClipFreq
attrSet = setTestClipFreq
attrTransfer _ v = do
return v
attrConstruct = constructTestClipFreq
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TestClip.freq"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-TestClip.html#g:attr:freq"
})
#endif
getTestClipMute :: (MonadIO m, IsTestClip o) => o -> m Bool
getTestClipMute :: forall (m :: * -> *) o. (MonadIO m, IsTestClip o) => o -> m Bool
getTestClipMute 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
"mute"
setTestClipMute :: (MonadIO m, IsTestClip o) => o -> Bool -> m ()
setTestClipMute :: forall (m :: * -> *) o.
(MonadIO m, IsTestClip o) =>
o -> Bool -> m ()
setTestClipMute 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
"mute" Bool
val
constructTestClipMute :: (IsTestClip o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTestClipMute :: forall o (m :: * -> *).
(IsTestClip o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTestClipMute 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
"mute" Bool
val
#if defined(ENABLE_OVERLOADING)
data TestClipMutePropertyInfo
instance AttrInfo TestClipMutePropertyInfo where
type AttrAllowedOps TestClipMutePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TestClipMutePropertyInfo = IsTestClip
type AttrSetTypeConstraint TestClipMutePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TestClipMutePropertyInfo = (~) Bool
type AttrTransferType TestClipMutePropertyInfo = Bool
type AttrGetType TestClipMutePropertyInfo = Bool
type AttrLabel TestClipMutePropertyInfo = "mute"
type AttrOrigin TestClipMutePropertyInfo = TestClip
attrGet = getTestClipMute
attrSet = setTestClipMute
attrTransfer _ v = do
return v
attrConstruct = constructTestClipMute
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TestClip.mute"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-TestClip.html#g:attr:mute"
})
#endif
getTestClipVolume :: (MonadIO m, IsTestClip o) => o -> m Double
getTestClipVolume :: forall (m :: * -> *) o. (MonadIO m, IsTestClip o) => o -> m Double
getTestClipVolume 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
"volume"
setTestClipVolume :: (MonadIO m, IsTestClip o) => o -> Double -> m ()
setTestClipVolume :: forall (m :: * -> *) o.
(MonadIO m, IsTestClip o) =>
o -> Double -> m ()
setTestClipVolume 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
"volume" Double
val
constructTestClipVolume :: (IsTestClip o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructTestClipVolume :: forall o (m :: * -> *).
(IsTestClip o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructTestClipVolume 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
"volume" Double
val
#if defined(ENABLE_OVERLOADING)
data TestClipVolumePropertyInfo
instance AttrInfo TestClipVolumePropertyInfo where
type AttrAllowedOps TestClipVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TestClipVolumePropertyInfo = IsTestClip
type AttrSetTypeConstraint TestClipVolumePropertyInfo = (~) Double
type AttrTransferTypeConstraint TestClipVolumePropertyInfo = (~) Double
type AttrTransferType TestClipVolumePropertyInfo = Double
type AttrGetType TestClipVolumePropertyInfo = Double
type AttrLabel TestClipVolumePropertyInfo = "volume"
type AttrOrigin TestClipVolumePropertyInfo = TestClip
attrGet = getTestClipVolume
attrSet = setTestClipVolume
attrTransfer _ v = do
return v
attrConstruct = constructTestClipVolume
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TestClip.volume"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-TestClip.html#g:attr:volume"
})
#endif
getTestClipVpattern :: (MonadIO m, IsTestClip o) => o -> m GES.Enums.VideoTestPattern
getTestClipVpattern :: forall (m :: * -> *) o.
(MonadIO m, IsTestClip o) =>
o -> m VideoTestPattern
getTestClipVpattern o
obj = IO VideoTestPattern -> m VideoTestPattern
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO VideoTestPattern -> m VideoTestPattern)
-> IO VideoTestPattern -> m VideoTestPattern
forall a b. (a -> b) -> a -> b
$ o -> String -> IO VideoTestPattern
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"vpattern"
setTestClipVpattern :: (MonadIO m, IsTestClip o) => o -> GES.Enums.VideoTestPattern -> m ()
setTestClipVpattern :: forall (m :: * -> *) o.
(MonadIO m, IsTestClip o) =>
o -> VideoTestPattern -> m ()
setTestClipVpattern o
obj VideoTestPattern
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 -> VideoTestPattern -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"vpattern" VideoTestPattern
val
constructTestClipVpattern :: (IsTestClip o, MIO.MonadIO m) => GES.Enums.VideoTestPattern -> m (GValueConstruct o)
constructTestClipVpattern :: forall o (m :: * -> *).
(IsTestClip o, MonadIO m) =>
VideoTestPattern -> m (GValueConstruct o)
constructTestClipVpattern VideoTestPattern
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 -> VideoTestPattern -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"vpattern" VideoTestPattern
val
#if defined(ENABLE_OVERLOADING)
data TestClipVpatternPropertyInfo
instance AttrInfo TestClipVpatternPropertyInfo where
type AttrAllowedOps TestClipVpatternPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TestClipVpatternPropertyInfo = IsTestClip
type AttrSetTypeConstraint TestClipVpatternPropertyInfo = (~) GES.Enums.VideoTestPattern
type AttrTransferTypeConstraint TestClipVpatternPropertyInfo = (~) GES.Enums.VideoTestPattern
type AttrTransferType TestClipVpatternPropertyInfo = GES.Enums.VideoTestPattern
type AttrGetType TestClipVpatternPropertyInfo = GES.Enums.VideoTestPattern
type AttrLabel TestClipVpatternPropertyInfo = "vpattern"
type AttrOrigin TestClipVpatternPropertyInfo = TestClip
attrGet = getTestClipVpattern
attrSet = setTestClipVpattern
attrTransfer _ v = do
return v
attrConstruct = constructTestClipVpattern
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TestClip.vpattern"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-TestClip.html#g:attr:vpattern"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TestClip
type instance O.AttributeList TestClip = TestClipAttributeList
type TestClipAttributeList = ('[ '("duration", GES.TimelineElement.TimelineElementDurationPropertyInfo), '("durationLimit", GES.Clip.ClipDurationLimitPropertyInfo), '("freq", TestClipFreqPropertyInfo), '("height", GES.Container.ContainerHeightPropertyInfo), '("inPoint", GES.TimelineElement.TimelineElementInPointPropertyInfo), '("layer", GES.Clip.ClipLayerPropertyInfo), '("maxDuration", GES.TimelineElement.TimelineElementMaxDurationPropertyInfo), '("mute", TestClipMutePropertyInfo), '("name", GES.TimelineElement.TimelineElementNamePropertyInfo), '("parent", GES.TimelineElement.TimelineElementParentPropertyInfo), '("priority", GES.TimelineElement.TimelineElementPriorityPropertyInfo), '("serialize", GES.TimelineElement.TimelineElementSerializePropertyInfo), '("start", GES.TimelineElement.TimelineElementStartPropertyInfo), '("supportedFormats", GES.Clip.ClipSupportedFormatsPropertyInfo), '("timeline", GES.TimelineElement.TimelineElementTimelinePropertyInfo), '("volume", TestClipVolumePropertyInfo), '("vpattern", TestClipVpatternPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
testClipFreq :: AttrLabelProxy "freq"
testClipFreq = AttrLabelProxy
testClipMute :: AttrLabelProxy "mute"
testClipMute = AttrLabelProxy
testClipVolume :: AttrLabelProxy "volume"
testClipVolume = AttrLabelProxy
testClipVpattern :: AttrLabelProxy "vpattern"
testClipVpattern = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList TestClip = TestClipSignalList
type TestClipSignalList = ('[ '("childAdded", GES.Container.ContainerChildAddedSignalInfo), '("childPropertyAdded", GES.TimelineElement.TimelineElementChildPropertyAddedSignalInfo), '("childPropertyRemoved", GES.TimelineElement.TimelineElementChildPropertyRemovedSignalInfo), '("childRemoved", GES.Container.ContainerChildRemovedSignalInfo), '("deepNotify", GES.TimelineElement.TimelineElementDeepNotifySignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("notifyMeta", GES.MetaContainer.MetaContainerNotifyMetaSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "ges_test_clip_new" ges_test_clip_new ::
IO (Ptr TestClip)
testClipNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m (Maybe TestClip)
testClipNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m (Maybe TestClip)
testClipNew = IO (Maybe TestClip) -> m (Maybe TestClip)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TestClip) -> m (Maybe TestClip))
-> IO (Maybe TestClip) -> m (Maybe TestClip)
forall a b. (a -> b) -> a -> b
$ do
Ptr TestClip
result <- IO (Ptr TestClip)
ges_test_clip_new
Maybe TestClip
maybeResult <- Ptr TestClip
-> (Ptr TestClip -> IO TestClip) -> IO (Maybe TestClip)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TestClip
result ((Ptr TestClip -> IO TestClip) -> IO (Maybe TestClip))
-> (Ptr TestClip -> IO TestClip) -> IO (Maybe TestClip)
forall a b. (a -> b) -> a -> b
$ \Ptr TestClip
result' -> do
TestClip
result'' <- ((ManagedPtr TestClip -> TestClip) -> Ptr TestClip -> IO TestClip
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TestClip -> TestClip
TestClip) Ptr TestClip
result'
TestClip -> IO TestClip
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TestClip
result''
Maybe TestClip -> IO (Maybe TestClip)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TestClip
maybeResult
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ges_test_clip_new_for_nick" ges_test_clip_new_for_nick ::
CString ->
IO (Ptr TestClip)
testClipNewForNick ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m (Maybe TestClip)
testClipNewForNick :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> m (Maybe TestClip)
testClipNewForNick Text
nick = IO (Maybe TestClip) -> m (Maybe TestClip)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TestClip) -> m (Maybe TestClip))
-> IO (Maybe TestClip) -> m (Maybe TestClip)
forall a b. (a -> b) -> a -> b
$ do
CString
nick' <- Text -> IO CString
textToCString Text
nick
Ptr TestClip
result <- CString -> IO (Ptr TestClip)
ges_test_clip_new_for_nick CString
nick'
Maybe TestClip
maybeResult <- Ptr TestClip
-> (Ptr TestClip -> IO TestClip) -> IO (Maybe TestClip)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TestClip
result ((Ptr TestClip -> IO TestClip) -> IO (Maybe TestClip))
-> (Ptr TestClip -> IO TestClip) -> IO (Maybe TestClip)
forall a b. (a -> b) -> a -> b
$ \Ptr TestClip
result' -> do
TestClip
result'' <- ((ManagedPtr TestClip -> TestClip) -> Ptr TestClip -> IO TestClip
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TestClip -> TestClip
TestClip) Ptr TestClip
result'
TestClip -> IO TestClip
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TestClip
result''
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
nick'
Maybe TestClip -> IO (Maybe TestClip)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TestClip
maybeResult
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ges_test_clip_get_frequency" ges_test_clip_get_frequency ::
Ptr TestClip ->
IO CDouble
testClipGetFrequency ::
(B.CallStack.HasCallStack, MonadIO m, IsTestClip a) =>
a
-> m Double
testClipGetFrequency :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTestClip a) =>
a -> m Double
testClipGetFrequency 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 TestClip
self' <- a -> IO (Ptr TestClip)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr TestClip -> IO CDouble
ges_test_clip_get_frequency Ptr TestClip
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 TestClipGetFrequencyMethodInfo
instance (signature ~ (m Double), MonadIO m, IsTestClip a) => O.OverloadedMethod TestClipGetFrequencyMethodInfo a signature where
overloadedMethod = testClipGetFrequency
instance O.OverloadedMethodInfo TestClipGetFrequencyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TestClip.testClipGetFrequency",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-TestClip.html#v:testClipGetFrequency"
})
#endif
foreign import ccall "ges_test_clip_get_volume" ges_test_clip_get_volume ::
Ptr TestClip ->
IO CDouble
testClipGetVolume ::
(B.CallStack.HasCallStack, MonadIO m, IsTestClip a) =>
a
-> m Double
testClipGetVolume :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTestClip a) =>
a -> m Double
testClipGetVolume 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 TestClip
self' <- a -> IO (Ptr TestClip)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr TestClip -> IO CDouble
ges_test_clip_get_volume Ptr TestClip
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 TestClipGetVolumeMethodInfo
instance (signature ~ (m Double), MonadIO m, IsTestClip a) => O.OverloadedMethod TestClipGetVolumeMethodInfo a signature where
overloadedMethod = testClipGetVolume
instance O.OverloadedMethodInfo TestClipGetVolumeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TestClip.testClipGetVolume",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-TestClip.html#v:testClipGetVolume"
})
#endif
foreign import ccall "ges_test_clip_get_vpattern" ges_test_clip_get_vpattern ::
Ptr TestClip ->
IO CUInt
testClipGetVpattern ::
(B.CallStack.HasCallStack, MonadIO m, IsTestClip a) =>
a
-> m GES.Enums.VideoTestPattern
testClipGetVpattern :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTestClip a) =>
a -> m VideoTestPattern
testClipGetVpattern a
self = 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 TestClip
self' <- a -> IO (Ptr TestClip)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr TestClip -> IO CUInt
ges_test_clip_get_vpattern Ptr TestClip
self'
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
self
VideoTestPattern -> IO VideoTestPattern
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return VideoTestPattern
result'
#if defined(ENABLE_OVERLOADING)
data TestClipGetVpatternMethodInfo
instance (signature ~ (m GES.Enums.VideoTestPattern), MonadIO m, IsTestClip a) => O.OverloadedMethod TestClipGetVpatternMethodInfo a signature where
overloadedMethod = testClipGetVpattern
instance O.OverloadedMethodInfo TestClipGetVpatternMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TestClip.testClipGetVpattern",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-TestClip.html#v:testClipGetVpattern"
})
#endif
foreign import ccall "ges_test_clip_is_muted" ges_test_clip_is_muted ::
Ptr TestClip ->
IO CInt
testClipIsMuted ::
(B.CallStack.HasCallStack, MonadIO m, IsTestClip a) =>
a
-> m Bool
testClipIsMuted :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTestClip a) =>
a -> m Bool
testClipIsMuted 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 TestClip
self' <- a -> IO (Ptr TestClip)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TestClip -> IO CInt
ges_test_clip_is_muted Ptr TestClip
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 TestClipIsMutedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTestClip a) => O.OverloadedMethod TestClipIsMutedMethodInfo a signature where
overloadedMethod = testClipIsMuted
instance O.OverloadedMethodInfo TestClipIsMutedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TestClip.testClipIsMuted",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-TestClip.html#v:testClipIsMuted"
})
#endif
foreign import ccall "ges_test_clip_set_frequency" ges_test_clip_set_frequency ::
Ptr TestClip ->
CDouble ->
IO ()
testClipSetFrequency ::
(B.CallStack.HasCallStack, MonadIO m, IsTestClip a) =>
a
-> Double
-> m ()
testClipSetFrequency :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTestClip a) =>
a -> Double -> m ()
testClipSetFrequency a
self Double
freq = 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 TestClip
self' <- a -> IO (Ptr TestClip)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let freq' :: CDouble
freq' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
freq
Ptr TestClip -> CDouble -> IO ()
ges_test_clip_set_frequency Ptr TestClip
self' CDouble
freq'
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 TestClipSetFrequencyMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsTestClip a) => O.OverloadedMethod TestClipSetFrequencyMethodInfo a signature where
overloadedMethod = testClipSetFrequency
instance O.OverloadedMethodInfo TestClipSetFrequencyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TestClip.testClipSetFrequency",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-TestClip.html#v:testClipSetFrequency"
})
#endif
foreign import ccall "ges_test_clip_set_mute" ges_test_clip_set_mute ::
Ptr TestClip ->
CInt ->
IO ()
testClipSetMute ::
(B.CallStack.HasCallStack, MonadIO m, IsTestClip a) =>
a
-> Bool
-> m ()
testClipSetMute :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTestClip a) =>
a -> Bool -> m ()
testClipSetMute a
self Bool
mute = 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 TestClip
self' <- a -> IO (Ptr TestClip)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let mute' :: CInt
mute' = (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
mute
Ptr TestClip -> CInt -> IO ()
ges_test_clip_set_mute Ptr TestClip
self' CInt
mute'
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 TestClipSetMuteMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTestClip a) => O.OverloadedMethod TestClipSetMuteMethodInfo a signature where
overloadedMethod = testClipSetMute
instance O.OverloadedMethodInfo TestClipSetMuteMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TestClip.testClipSetMute",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-TestClip.html#v:testClipSetMute"
})
#endif
foreign import ccall "ges_test_clip_set_volume" ges_test_clip_set_volume ::
Ptr TestClip ->
CDouble ->
IO ()
testClipSetVolume ::
(B.CallStack.HasCallStack, MonadIO m, IsTestClip a) =>
a
-> Double
-> m ()
testClipSetVolume :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTestClip a) =>
a -> Double -> m ()
testClipSetVolume a
self Double
volume = 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 TestClip
self' <- a -> IO (Ptr TestClip)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let volume' :: CDouble
volume' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
volume
Ptr TestClip -> CDouble -> IO ()
ges_test_clip_set_volume Ptr TestClip
self' CDouble
volume'
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 TestClipSetVolumeMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsTestClip a) => O.OverloadedMethod TestClipSetVolumeMethodInfo a signature where
overloadedMethod = testClipSetVolume
instance O.OverloadedMethodInfo TestClipSetVolumeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TestClip.testClipSetVolume",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-TestClip.html#v:testClipSetVolume"
})
#endif
foreign import ccall "ges_test_clip_set_vpattern" ges_test_clip_set_vpattern ::
Ptr TestClip ->
CUInt ->
IO ()
testClipSetVpattern ::
(B.CallStack.HasCallStack, MonadIO m, IsTestClip a) =>
a
-> GES.Enums.VideoTestPattern
-> m ()
testClipSetVpattern :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTestClip a) =>
a -> VideoTestPattern -> m ()
testClipSetVpattern a
self VideoTestPattern
vpattern = 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 TestClip
self' <- a -> IO (Ptr TestClip)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let vpattern' :: CUInt
vpattern' = (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
vpattern
Ptr TestClip -> CUInt -> IO ()
ges_test_clip_set_vpattern Ptr TestClip
self' CUInt
vpattern'
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 TestClipSetVpatternMethodInfo
instance (signature ~ (GES.Enums.VideoTestPattern -> m ()), MonadIO m, IsTestClip a) => O.OverloadedMethod TestClipSetVpatternMethodInfo a signature where
overloadedMethod = testClipSetVpattern
instance O.OverloadedMethodInfo TestClipSetVpatternMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TestClip.testClipSetVpattern",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.4/docs/GI-GES-Objects-TestClip.html#v:testClipSetVpattern"
})
#endif