{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GES.Objects.UriClip
(
UriClip(..) ,
IsUriClip ,
toUriClip ,
#if defined(ENABLE_OVERLOADING)
ResolveUriClipMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
UriClipGetUriMethodInfo ,
#endif
uriClipGetUri ,
#if defined(ENABLE_OVERLOADING)
UriClipIsImageMethodInfo ,
#endif
uriClipIsImage ,
#if defined(ENABLE_OVERLOADING)
UriClipIsMutedMethodInfo ,
#endif
uriClipIsMuted ,
uriClipNew ,
#if defined(ENABLE_OVERLOADING)
UriClipSetIsImageMethodInfo ,
#endif
uriClipSetIsImage ,
#if defined(ENABLE_OVERLOADING)
UriClipSetMuteMethodInfo ,
#endif
uriClipSetMute ,
#if defined(ENABLE_OVERLOADING)
UriClipIsImagePropertyInfo ,
#endif
constructUriClipIsImage ,
getUriClipIsImage ,
setUriClipIsImage ,
#if defined(ENABLE_OVERLOADING)
UriClipMutePropertyInfo ,
#endif
constructUriClipMute ,
getUriClipMute ,
setUriClipMute ,
#if defined(ENABLE_OVERLOADING)
uriClipMute ,
#endif
#if defined(ENABLE_OVERLOADING)
UriClipSupportedFormatsPropertyInfo ,
#endif
constructUriClipSupportedFormats ,
getUriClipSupportedFormats ,
setUriClipSupportedFormats ,
#if defined(ENABLE_OVERLOADING)
uriClipSupportedFormats ,
#endif
#if defined(ENABLE_OVERLOADING)
UriClipUriPropertyInfo ,
#endif
constructUriClipUri ,
getUriClipUri ,
#if defined(ENABLE_OVERLOADING)
uriClipUri ,
#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.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.Flags as GES.Flags
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 UriClip = UriClip (SP.ManagedPtr UriClip)
deriving (UriClip -> UriClip -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UriClip -> UriClip -> Bool
$c/= :: UriClip -> UriClip -> Bool
== :: UriClip -> UriClip -> Bool
$c== :: UriClip -> UriClip -> Bool
Eq)
instance SP.ManagedPtrNewtype UriClip where
toManagedPtr :: UriClip -> ManagedPtr UriClip
toManagedPtr (UriClip ManagedPtr UriClip
p) = ManagedPtr UriClip
p
foreign import ccall "ges_uri_clip_get_type"
c_ges_uri_clip_get_type :: IO B.Types.GType
instance B.Types.TypedObject UriClip where
glibType :: IO GType
glibType = IO GType
c_ges_uri_clip_get_type
instance B.Types.GObject UriClip
class (SP.GObject o, O.IsDescendantOf UriClip o) => IsUriClip o
instance (SP.GObject o, O.IsDescendantOf UriClip o) => IsUriClip o
instance O.HasParentTypes UriClip
type instance O.ParentTypes UriClip = '[GES.SourceClip.SourceClip, GES.Clip.Clip, GES.Container.Container, GES.TimelineElement.TimelineElement, GObject.Object.Object, GES.Extractable.Extractable, GES.MetaContainer.MetaContainer]
toUriClip :: (MIO.MonadIO m, IsUriClip o) => o -> m UriClip
toUriClip :: forall (m :: * -> *) o. (MonadIO m, IsUriClip o) => o -> m UriClip
toUriClip = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr UriClip -> UriClip
UriClip
instance B.GValue.IsGValue (Maybe UriClip) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ges_uri_clip_get_type
gvalueSet_ :: Ptr GValue -> Maybe UriClip -> IO ()
gvalueSet_ Ptr GValue
gv Maybe UriClip
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr UriClip)
gvalueSet_ Ptr GValue
gv (P.Just UriClip
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr UriClip
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe UriClip)
gvalueGet_ Ptr GValue
gv = do
Ptr UriClip
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr UriClip)
if Ptr UriClip
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr UriClip -> UriClip
UriClip Ptr UriClip
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveUriClipMethod (t :: Symbol) (o :: *) :: * where
ResolveUriClipMethod "add" o = GES.Container.ContainerAddMethodInfo
ResolveUriClipMethod "addAsset" o = GES.Clip.ClipAddAssetMethodInfo
ResolveUriClipMethod "addChildProperty" o = GES.TimelineElement.TimelineElementAddChildPropertyMethodInfo
ResolveUriClipMethod "addChildToTrack" o = GES.Clip.ClipAddChildToTrackMethodInfo
ResolveUriClipMethod "addMetasFromString" o = GES.MetaContainer.MetaContainerAddMetasFromStringMethodInfo
ResolveUriClipMethod "addTopEffect" o = GES.Clip.ClipAddTopEffectMethodInfo
ResolveUriClipMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveUriClipMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveUriClipMethod "checkMetaRegistered" o = GES.MetaContainer.MetaContainerCheckMetaRegisteredMethodInfo
ResolveUriClipMethod "copy" o = GES.TimelineElement.TimelineElementCopyMethodInfo
ResolveUriClipMethod "edit" o = GES.Container.ContainerEditMethodInfo
ResolveUriClipMethod "editFull" o = GES.TimelineElement.TimelineElementEditFullMethodInfo
ResolveUriClipMethod "findTrackElement" o = GES.Clip.ClipFindTrackElementMethodInfo
ResolveUriClipMethod "findTrackElements" o = GES.Clip.ClipFindTrackElementsMethodInfo
ResolveUriClipMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveUriClipMethod "foreach" o = GES.MetaContainer.MetaContainerForeachMethodInfo
ResolveUriClipMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveUriClipMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveUriClipMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveUriClipMethod "isImage" o = UriClipIsImageMethodInfo
ResolveUriClipMethod "isMuted" o = UriClipIsMutedMethodInfo
ResolveUriClipMethod "listChildrenProperties" o = GES.TimelineElement.TimelineElementListChildrenPropertiesMethodInfo
ResolveUriClipMethod "lookupChild" o = GES.TimelineElement.TimelineElementLookupChildMethodInfo
ResolveUriClipMethod "metasToString" o = GES.MetaContainer.MetaContainerMetasToStringMethodInfo
ResolveUriClipMethod "moveToLayer" o = GES.Clip.ClipMoveToLayerMethodInfo
ResolveUriClipMethod "moveToLayerFull" o = GES.Clip.ClipMoveToLayerFullMethodInfo
ResolveUriClipMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveUriClipMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveUriClipMethod "paste" o = GES.TimelineElement.TimelineElementPasteMethodInfo
ResolveUriClipMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveUriClipMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveUriClipMethod "registerMeta" o = GES.MetaContainer.MetaContainerRegisterMetaMethodInfo
ResolveUriClipMethod "registerMetaBoolean" o = GES.MetaContainer.MetaContainerRegisterMetaBooleanMethodInfo
ResolveUriClipMethod "registerMetaDate" o = GES.MetaContainer.MetaContainerRegisterMetaDateMethodInfo
ResolveUriClipMethod "registerMetaDateTime" o = GES.MetaContainer.MetaContainerRegisterMetaDateTimeMethodInfo
ResolveUriClipMethod "registerMetaDouble" o = GES.MetaContainer.MetaContainerRegisterMetaDoubleMethodInfo
ResolveUriClipMethod "registerMetaFloat" o = GES.MetaContainer.MetaContainerRegisterMetaFloatMethodInfo
ResolveUriClipMethod "registerMetaInt" o = GES.MetaContainer.MetaContainerRegisterMetaIntMethodInfo
ResolveUriClipMethod "registerMetaInt64" o = GES.MetaContainer.MetaContainerRegisterMetaInt64MethodInfo
ResolveUriClipMethod "registerMetaString" o = GES.MetaContainer.MetaContainerRegisterMetaStringMethodInfo
ResolveUriClipMethod "registerMetaUint" o = GES.MetaContainer.MetaContainerRegisterMetaUintMethodInfo
ResolveUriClipMethod "registerMetaUint64" o = GES.MetaContainer.MetaContainerRegisterMetaUint64MethodInfo
ResolveUriClipMethod "registerStaticMeta" o = GES.MetaContainer.MetaContainerRegisterStaticMetaMethodInfo
ResolveUriClipMethod "remove" o = GES.Container.ContainerRemoveMethodInfo
ResolveUriClipMethod "removeChildProperty" o = GES.TimelineElement.TimelineElementRemoveChildPropertyMethodInfo
ResolveUriClipMethod "removeTopEffect" o = GES.Clip.ClipRemoveTopEffectMethodInfo
ResolveUriClipMethod "ripple" o = GES.TimelineElement.TimelineElementRippleMethodInfo
ResolveUriClipMethod "rippleEnd" o = GES.TimelineElement.TimelineElementRippleEndMethodInfo
ResolveUriClipMethod "rollEnd" o = GES.TimelineElement.TimelineElementRollEndMethodInfo
ResolveUriClipMethod "rollStart" o = GES.TimelineElement.TimelineElementRollStartMethodInfo
ResolveUriClipMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveUriClipMethod "split" o = GES.Clip.ClipSplitMethodInfo
ResolveUriClipMethod "splitFull" o = GES.Clip.ClipSplitFullMethodInfo
ResolveUriClipMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveUriClipMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveUriClipMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveUriClipMethod "trim" o = GES.TimelineElement.TimelineElementTrimMethodInfo
ResolveUriClipMethod "ungroup" o = GES.Container.ContainerUngroupMethodInfo
ResolveUriClipMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveUriClipMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveUriClipMethod "getAsset" o = GES.Extractable.ExtractableGetAssetMethodInfo
ResolveUriClipMethod "getBoolean" o = GES.MetaContainer.MetaContainerGetBooleanMethodInfo
ResolveUriClipMethod "getChildProperty" o = GES.TimelineElement.TimelineElementGetChildPropertyMethodInfo
ResolveUriClipMethod "getChildPropertyByPspec" o = GES.TimelineElement.TimelineElementGetChildPropertyByPspecMethodInfo
ResolveUriClipMethod "getChildren" o = GES.Container.ContainerGetChildrenMethodInfo
ResolveUriClipMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveUriClipMethod "getDate" o = GES.MetaContainer.MetaContainerGetDateMethodInfo
ResolveUriClipMethod "getDateTime" o = GES.MetaContainer.MetaContainerGetDateTimeMethodInfo
ResolveUriClipMethod "getDouble" o = GES.MetaContainer.MetaContainerGetDoubleMethodInfo
ResolveUriClipMethod "getDuration" o = GES.TimelineElement.TimelineElementGetDurationMethodInfo
ResolveUriClipMethod "getDurationLimit" o = GES.Clip.ClipGetDurationLimitMethodInfo
ResolveUriClipMethod "getFloat" o = GES.MetaContainer.MetaContainerGetFloatMethodInfo
ResolveUriClipMethod "getId" o = GES.Extractable.ExtractableGetIdMethodInfo
ResolveUriClipMethod "getInpoint" o = GES.TimelineElement.TimelineElementGetInpointMethodInfo
ResolveUriClipMethod "getInt" o = GES.MetaContainer.MetaContainerGetIntMethodInfo
ResolveUriClipMethod "getInt64" o = GES.MetaContainer.MetaContainerGetInt64MethodInfo
ResolveUriClipMethod "getInternalTimeFromTimelineTime" o = GES.Clip.ClipGetInternalTimeFromTimelineTimeMethodInfo
ResolveUriClipMethod "getLayer" o = GES.Clip.ClipGetLayerMethodInfo
ResolveUriClipMethod "getLayerPriority" o = GES.TimelineElement.TimelineElementGetLayerPriorityMethodInfo
ResolveUriClipMethod "getMarkerList" o = GES.MetaContainer.MetaContainerGetMarkerListMethodInfo
ResolveUriClipMethod "getMaxDuration" o = GES.TimelineElement.TimelineElementGetMaxDurationMethodInfo
ResolveUriClipMethod "getMeta" o = GES.MetaContainer.MetaContainerGetMetaMethodInfo
ResolveUriClipMethod "getName" o = GES.TimelineElement.TimelineElementGetNameMethodInfo
ResolveUriClipMethod "getNaturalFramerate" o = GES.TimelineElement.TimelineElementGetNaturalFramerateMethodInfo
ResolveUriClipMethod "getParent" o = GES.TimelineElement.TimelineElementGetParentMethodInfo
ResolveUriClipMethod "getPriority" o = GES.TimelineElement.TimelineElementGetPriorityMethodInfo
ResolveUriClipMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveUriClipMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveUriClipMethod "getStart" o = GES.TimelineElement.TimelineElementGetStartMethodInfo
ResolveUriClipMethod "getString" o = GES.MetaContainer.MetaContainerGetStringMethodInfo
ResolveUriClipMethod "getSupportedFormats" o = GES.Clip.ClipGetSupportedFormatsMethodInfo
ResolveUriClipMethod "getTimeline" o = GES.TimelineElement.TimelineElementGetTimelineMethodInfo
ResolveUriClipMethod "getTimelineTimeFromInternalTime" o = GES.Clip.ClipGetTimelineTimeFromInternalTimeMethodInfo
ResolveUriClipMethod "getTimelineTimeFromSourceFrame" o = GES.Clip.ClipGetTimelineTimeFromSourceFrameMethodInfo
ResolveUriClipMethod "getTopEffectIndex" o = GES.Clip.ClipGetTopEffectIndexMethodInfo
ResolveUriClipMethod "getTopEffectPosition" o = GES.Clip.ClipGetTopEffectPositionMethodInfo
ResolveUriClipMethod "getTopEffects" o = GES.Clip.ClipGetTopEffectsMethodInfo
ResolveUriClipMethod "getToplevelParent" o = GES.TimelineElement.TimelineElementGetToplevelParentMethodInfo
ResolveUriClipMethod "getTrackTypes" o = GES.TimelineElement.TimelineElementGetTrackTypesMethodInfo
ResolveUriClipMethod "getUint" o = GES.MetaContainer.MetaContainerGetUintMethodInfo
ResolveUriClipMethod "getUint64" o = GES.MetaContainer.MetaContainerGetUint64MethodInfo
ResolveUriClipMethod "getUri" o = UriClipGetUriMethodInfo
ResolveUriClipMethod "setAsset" o = GES.Extractable.ExtractableSetAssetMethodInfo
ResolveUriClipMethod "setBoolean" o = GES.MetaContainer.MetaContainerSetBooleanMethodInfo
ResolveUriClipMethod "setChildProperty" o = GES.TimelineElement.TimelineElementSetChildPropertyMethodInfo
ResolveUriClipMethod "setChildPropertyByPspec" o = GES.TimelineElement.TimelineElementSetChildPropertyByPspecMethodInfo
ResolveUriClipMethod "setChildPropertyFull" o = GES.TimelineElement.TimelineElementSetChildPropertyFullMethodInfo
ResolveUriClipMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveUriClipMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveUriClipMethod "setDate" o = GES.MetaContainer.MetaContainerSetDateMethodInfo
ResolveUriClipMethod "setDateTime" o = GES.MetaContainer.MetaContainerSetDateTimeMethodInfo
ResolveUriClipMethod "setDouble" o = GES.MetaContainer.MetaContainerSetDoubleMethodInfo
ResolveUriClipMethod "setDuration" o = GES.TimelineElement.TimelineElementSetDurationMethodInfo
ResolveUriClipMethod "setFloat" o = GES.MetaContainer.MetaContainerSetFloatMethodInfo
ResolveUriClipMethod "setInpoint" o = GES.TimelineElement.TimelineElementSetInpointMethodInfo
ResolveUriClipMethod "setInt" o = GES.MetaContainer.MetaContainerSetIntMethodInfo
ResolveUriClipMethod "setInt64" o = GES.MetaContainer.MetaContainerSetInt64MethodInfo
ResolveUriClipMethod "setIsImage" o = UriClipSetIsImageMethodInfo
ResolveUriClipMethod "setMarkerList" o = GES.MetaContainer.MetaContainerSetMarkerListMethodInfo
ResolveUriClipMethod "setMaxDuration" o = GES.TimelineElement.TimelineElementSetMaxDurationMethodInfo
ResolveUriClipMethod "setMeta" o = GES.MetaContainer.MetaContainerSetMetaMethodInfo
ResolveUriClipMethod "setMute" o = UriClipSetMuteMethodInfo
ResolveUriClipMethod "setName" o = GES.TimelineElement.TimelineElementSetNameMethodInfo
ResolveUriClipMethod "setParent" o = GES.TimelineElement.TimelineElementSetParentMethodInfo
ResolveUriClipMethod "setPriority" o = GES.TimelineElement.TimelineElementSetPriorityMethodInfo
ResolveUriClipMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveUriClipMethod "setStart" o = GES.TimelineElement.TimelineElementSetStartMethodInfo
ResolveUriClipMethod "setString" o = GES.MetaContainer.MetaContainerSetStringMethodInfo
ResolveUriClipMethod "setSupportedFormats" o = GES.Clip.ClipSetSupportedFormatsMethodInfo
ResolveUriClipMethod "setTimeline" o = GES.TimelineElement.TimelineElementSetTimelineMethodInfo
ResolveUriClipMethod "setTopEffectIndex" o = GES.Clip.ClipSetTopEffectIndexMethodInfo
ResolveUriClipMethod "setTopEffectIndexFull" o = GES.Clip.ClipSetTopEffectIndexFullMethodInfo
ResolveUriClipMethod "setTopEffectPriority" o = GES.Clip.ClipSetTopEffectPriorityMethodInfo
ResolveUriClipMethod "setUint" o = GES.MetaContainer.MetaContainerSetUintMethodInfo
ResolveUriClipMethod "setUint64" o = GES.MetaContainer.MetaContainerSetUint64MethodInfo
ResolveUriClipMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveUriClipMethod t UriClip, O.OverloadedMethod info UriClip p) => OL.IsLabel t (UriClip -> 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 ~ ResolveUriClipMethod t UriClip, O.OverloadedMethod info UriClip p, R.HasField t UriClip p) => R.HasField t UriClip p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveUriClipMethod t UriClip, O.OverloadedMethodInfo info UriClip) => OL.IsLabel t (O.MethodProxy info UriClip) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getUriClipIsImage :: (MonadIO m, IsUriClip o) => o -> m Bool
getUriClipIsImage :: forall (m :: * -> *) o. (MonadIO m, IsUriClip o) => o -> m Bool
getUriClipIsImage o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"is-image"
setUriClipIsImage :: (MonadIO m, IsUriClip o) => o -> Bool -> m ()
setUriClipIsImage :: forall (m :: * -> *) o.
(MonadIO m, IsUriClip o) =>
o -> Bool -> m ()
setUriClipIsImage o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"is-image" Bool
val
constructUriClipIsImage :: (IsUriClip o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructUriClipIsImage :: forall o (m :: * -> *).
(IsUriClip o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructUriClipIsImage Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"is-image" Bool
val
#if defined(ENABLE_OVERLOADING)
data UriClipIsImagePropertyInfo
instance AttrInfo UriClipIsImagePropertyInfo where
type AttrAllowedOps UriClipIsImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint UriClipIsImagePropertyInfo = IsUriClip
type AttrSetTypeConstraint UriClipIsImagePropertyInfo = (~) Bool
type AttrTransferTypeConstraint UriClipIsImagePropertyInfo = (~) Bool
type AttrTransferType UriClipIsImagePropertyInfo = Bool
type AttrGetType UriClipIsImagePropertyInfo = Bool
type AttrLabel UriClipIsImagePropertyInfo = "is-image"
type AttrOrigin UriClipIsImagePropertyInfo = UriClip
attrGet = getUriClipIsImage
attrSet = setUriClipIsImage
attrTransfer _ v = do
return v
attrConstruct = constructUriClipIsImage
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.UriClip.isImage"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-UriClip.html#g:attr:isImage"
})
#endif
getUriClipMute :: (MonadIO m, IsUriClip o) => o -> m Bool
getUriClipMute :: forall (m :: * -> *) o. (MonadIO m, IsUriClip o) => o -> m Bool
getUriClipMute o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"mute"
setUriClipMute :: (MonadIO m, IsUriClip o) => o -> Bool -> m ()
setUriClipMute :: forall (m :: * -> *) o.
(MonadIO m, IsUriClip o) =>
o -> Bool -> m ()
setUriClipMute o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"mute" Bool
val
constructUriClipMute :: (IsUriClip o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructUriClipMute :: forall o (m :: * -> *).
(IsUriClip o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructUriClipMute Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"mute" Bool
val
#if defined(ENABLE_OVERLOADING)
data UriClipMutePropertyInfo
instance AttrInfo UriClipMutePropertyInfo where
type AttrAllowedOps UriClipMutePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint UriClipMutePropertyInfo = IsUriClip
type AttrSetTypeConstraint UriClipMutePropertyInfo = (~) Bool
type AttrTransferTypeConstraint UriClipMutePropertyInfo = (~) Bool
type AttrTransferType UriClipMutePropertyInfo = Bool
type AttrGetType UriClipMutePropertyInfo = Bool
type AttrLabel UriClipMutePropertyInfo = "mute"
type AttrOrigin UriClipMutePropertyInfo = UriClip
attrGet = getUriClipMute
attrSet = setUriClipMute
attrTransfer _ v = do
return v
attrConstruct = constructUriClipMute
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.UriClip.mute"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-UriClip.html#g:attr:mute"
})
#endif
getUriClipSupportedFormats :: (MonadIO m, IsUriClip o) => o -> m [GES.Flags.TrackType]
getUriClipSupportedFormats :: forall (m :: * -> *) o.
(MonadIO m, IsUriClip o) =>
o -> m [TrackType]
getUriClipSupportedFormats o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"supported-formats"
setUriClipSupportedFormats :: (MonadIO m, IsUriClip o) => o -> [GES.Flags.TrackType] -> m ()
setUriClipSupportedFormats :: forall (m :: * -> *) o.
(MonadIO m, IsUriClip o) =>
o -> [TrackType] -> m ()
setUriClipSupportedFormats o
obj [TrackType]
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj String
"supported-formats" [TrackType]
val
constructUriClipSupportedFormats :: (IsUriClip o, MIO.MonadIO m) => [GES.Flags.TrackType] -> m (GValueConstruct o)
constructUriClipSupportedFormats :: forall o (m :: * -> *).
(IsUriClip o, MonadIO m) =>
[TrackType] -> m (GValueConstruct o)
constructUriClipSupportedFormats [TrackType]
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"supported-formats" [TrackType]
val
#if defined(ENABLE_OVERLOADING)
data UriClipSupportedFormatsPropertyInfo
instance AttrInfo UriClipSupportedFormatsPropertyInfo where
type AttrAllowedOps UriClipSupportedFormatsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint UriClipSupportedFormatsPropertyInfo = IsUriClip
type AttrSetTypeConstraint UriClipSupportedFormatsPropertyInfo = (~) [GES.Flags.TrackType]
type AttrTransferTypeConstraint UriClipSupportedFormatsPropertyInfo = (~) [GES.Flags.TrackType]
type AttrTransferType UriClipSupportedFormatsPropertyInfo = [GES.Flags.TrackType]
type AttrGetType UriClipSupportedFormatsPropertyInfo = [GES.Flags.TrackType]
type AttrLabel UriClipSupportedFormatsPropertyInfo = "supported-formats"
type AttrOrigin UriClipSupportedFormatsPropertyInfo = UriClip
attrGet = getUriClipSupportedFormats
attrSet = setUriClipSupportedFormats
attrTransfer _ v = do
return v
attrConstruct = constructUriClipSupportedFormats
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.UriClip.supportedFormats"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-UriClip.html#g:attr:supportedFormats"
})
#endif
getUriClipUri :: (MonadIO m, IsUriClip o) => o -> m T.Text
getUriClipUri :: forall (m :: * -> *) o. (MonadIO m, IsUriClip o) => o -> m Text
getUriClipUri o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getUriClipUri" forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"uri"
constructUriClipUri :: (IsUriClip o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructUriClipUri :: forall o (m :: * -> *).
(IsUriClip o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructUriClipUri Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"uri" (forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data UriClipUriPropertyInfo
instance AttrInfo UriClipUriPropertyInfo where
type AttrAllowedOps UriClipUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint UriClipUriPropertyInfo = IsUriClip
type AttrSetTypeConstraint UriClipUriPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint UriClipUriPropertyInfo = (~) T.Text
type AttrTransferType UriClipUriPropertyInfo = T.Text
type AttrGetType UriClipUriPropertyInfo = T.Text
type AttrLabel UriClipUriPropertyInfo = "uri"
type AttrOrigin UriClipUriPropertyInfo = UriClip
attrGet = getUriClipUri
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructUriClipUri
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.UriClip.uri"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-UriClip.html#g:attr:uri"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList UriClip
type instance O.AttributeList UriClip = UriClipAttributeList
type UriClipAttributeList = ('[ '("duration", GES.TimelineElement.TimelineElementDurationPropertyInfo), '("durationLimit", GES.Clip.ClipDurationLimitPropertyInfo), '("height", GES.Container.ContainerHeightPropertyInfo), '("inPoint", GES.TimelineElement.TimelineElementInPointPropertyInfo), '("isImage", UriClipIsImagePropertyInfo), '("layer", GES.Clip.ClipLayerPropertyInfo), '("maxDuration", GES.TimelineElement.TimelineElementMaxDurationPropertyInfo), '("mute", UriClipMutePropertyInfo), '("name", GES.TimelineElement.TimelineElementNamePropertyInfo), '("parent", GES.TimelineElement.TimelineElementParentPropertyInfo), '("priority", GES.TimelineElement.TimelineElementPriorityPropertyInfo), '("serialize", GES.TimelineElement.TimelineElementSerializePropertyInfo), '("start", GES.TimelineElement.TimelineElementStartPropertyInfo), '("supportedFormats", UriClipSupportedFormatsPropertyInfo), '("timeline", GES.TimelineElement.TimelineElementTimelinePropertyInfo), '("uri", UriClipUriPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
uriClipMute :: AttrLabelProxy "mute"
uriClipMute = AttrLabelProxy
uriClipSupportedFormats :: AttrLabelProxy "supportedFormats"
uriClipSupportedFormats = AttrLabelProxy
uriClipUri :: AttrLabelProxy "uri"
uriClipUri = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList UriClip = UriClipSignalList
type UriClipSignalList = ('[ '("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, *)])
#endif
foreign import ccall "ges_uri_clip_new" ges_uri_clip_new ::
CString ->
IO (Ptr UriClip)
uriClipNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m (Maybe UriClip)
uriClipNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> m (Maybe UriClip)
uriClipNew Text
uri = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
CString
uri' <- Text -> IO CString
textToCString Text
uri
Ptr UriClip
result <- CString -> IO (Ptr UriClip)
ges_uri_clip_new CString
uri'
Maybe UriClip
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr UriClip
result forall a b. (a -> b) -> a -> b
$ \Ptr UriClip
result' -> do
UriClip
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr UriClip -> UriClip
UriClip) Ptr UriClip
result'
forall (m :: * -> *) a. Monad m => a -> m a
return UriClip
result''
forall a. Ptr a -> IO ()
freeMem CString
uri'
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe UriClip
maybeResult
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ges_uri_clip_get_uri" ges_uri_clip_get_uri ::
Ptr UriClip ->
IO CString
uriClipGetUri ::
(B.CallStack.HasCallStack, MonadIO m, IsUriClip a) =>
a
-> m T.Text
uriClipGetUri :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUriClip a) =>
a -> m Text
uriClipGetUri a
self = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr UriClip
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr UriClip -> IO CString
ges_uri_clip_get_uri Ptr UriClip
self'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"uriClipGetUri" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data UriClipGetUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsUriClip a) => O.OverloadedMethod UriClipGetUriMethodInfo a signature where
overloadedMethod = uriClipGetUri
instance O.OverloadedMethodInfo UriClipGetUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.UriClip.uriClipGetUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-UriClip.html#v:uriClipGetUri"
})
#endif
foreign import ccall "ges_uri_clip_is_image" ges_uri_clip_is_image ::
Ptr UriClip ->
IO CInt
uriClipIsImage ::
(B.CallStack.HasCallStack, MonadIO m, IsUriClip a) =>
a
-> m Bool
uriClipIsImage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUriClip a) =>
a -> m Bool
uriClipIsImage a
self = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr UriClip
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr UriClip -> IO CInt
ges_uri_clip_is_image Ptr UriClip
self'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data UriClipIsImageMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsUriClip a) => O.OverloadedMethod UriClipIsImageMethodInfo a signature where
overloadedMethod = uriClipIsImage
instance O.OverloadedMethodInfo UriClipIsImageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.UriClip.uriClipIsImage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-UriClip.html#v:uriClipIsImage"
})
#endif
foreign import ccall "ges_uri_clip_is_muted" ges_uri_clip_is_muted ::
Ptr UriClip ->
IO CInt
uriClipIsMuted ::
(B.CallStack.HasCallStack, MonadIO m, IsUriClip a) =>
a
-> m Bool
uriClipIsMuted :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUriClip a) =>
a -> m Bool
uriClipIsMuted a
self = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr UriClip
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr UriClip -> IO CInt
ges_uri_clip_is_muted Ptr UriClip
self'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data UriClipIsMutedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsUriClip a) => O.OverloadedMethod UriClipIsMutedMethodInfo a signature where
overloadedMethod = uriClipIsMuted
instance O.OverloadedMethodInfo UriClipIsMutedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.UriClip.uriClipIsMuted",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-UriClip.html#v:uriClipIsMuted"
})
#endif
foreign import ccall "ges_uri_clip_set_is_image" ges_uri_clip_set_is_image ::
Ptr UriClip ->
CInt ->
IO ()
uriClipSetIsImage ::
(B.CallStack.HasCallStack, MonadIO m, IsUriClip a) =>
a
-> Bool
-> m ()
uriClipSetIsImage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUriClip a) =>
a -> Bool -> m ()
uriClipSetIsImage a
self Bool
isImage = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr UriClip
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let isImage' :: CInt
isImage' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Bool
isImage
Ptr UriClip -> CInt -> IO ()
ges_uri_clip_set_is_image Ptr UriClip
self' CInt
isImage'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UriClipSetIsImageMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsUriClip a) => O.OverloadedMethod UriClipSetIsImageMethodInfo a signature where
overloadedMethod = uriClipSetIsImage
instance O.OverloadedMethodInfo UriClipSetIsImageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.UriClip.uriClipSetIsImage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-UriClip.html#v:uriClipSetIsImage"
})
#endif
foreign import ccall "ges_uri_clip_set_mute" ges_uri_clip_set_mute ::
Ptr UriClip ->
CInt ->
IO ()
uriClipSetMute ::
(B.CallStack.HasCallStack, MonadIO m, IsUriClip a) =>
a
-> Bool
-> m ()
uriClipSetMute :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsUriClip a) =>
a -> Bool -> m ()
uriClipSetMute a
self Bool
mute = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr UriClip
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let mute' :: CInt
mute' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) Bool
mute
Ptr UriClip -> CInt -> IO ()
ges_uri_clip_set_mute Ptr UriClip
self' CInt
mute'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data UriClipSetMuteMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsUriClip a) => O.OverloadedMethod UriClipSetMuteMethodInfo a signature where
overloadedMethod = uriClipSetMute
instance O.OverloadedMethodInfo UriClipSetMuteMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.UriClip.uriClipSetMute",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-UriClip.html#v:uriClipSetMute"
})
#endif