{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GES.Objects.TitleSource
(
TitleSource(..) ,
IsTitleSource ,
toTitleSource ,
#if defined(ENABLE_OVERLOADING)
ResolveTitleSourceMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TitleSourceGetBackgroundColorMethodInfo ,
#endif
titleSourceGetBackgroundColor ,
#if defined(ENABLE_OVERLOADING)
TitleSourceGetFontDescMethodInfo ,
#endif
titleSourceGetFontDesc ,
#if defined(ENABLE_OVERLOADING)
TitleSourceGetHalignmentMethodInfo ,
#endif
titleSourceGetHalignment ,
#if defined(ENABLE_OVERLOADING)
TitleSourceGetTextMethodInfo ,
#endif
titleSourceGetText ,
#if defined(ENABLE_OVERLOADING)
TitleSourceGetTextColorMethodInfo ,
#endif
titleSourceGetTextColor ,
#if defined(ENABLE_OVERLOADING)
TitleSourceGetValignmentMethodInfo ,
#endif
titleSourceGetValignment ,
#if defined(ENABLE_OVERLOADING)
TitleSourceGetXposMethodInfo ,
#endif
titleSourceGetXpos ,
#if defined(ENABLE_OVERLOADING)
TitleSourceGetYposMethodInfo ,
#endif
titleSourceGetYpos ,
#if defined(ENABLE_OVERLOADING)
TitleSourceSetBackgroundColorMethodInfo ,
#endif
titleSourceSetBackgroundColor ,
#if defined(ENABLE_OVERLOADING)
TitleSourceSetFontDescMethodInfo ,
#endif
titleSourceSetFontDesc ,
#if defined(ENABLE_OVERLOADING)
TitleSourceSetHalignmentMethodInfo ,
#endif
titleSourceSetHalignment ,
#if defined(ENABLE_OVERLOADING)
TitleSourceSetTextMethodInfo ,
#endif
titleSourceSetText ,
#if defined(ENABLE_OVERLOADING)
TitleSourceSetTextColorMethodInfo ,
#endif
titleSourceSetTextColor ,
#if defined(ENABLE_OVERLOADING)
TitleSourceSetValignmentMethodInfo ,
#endif
titleSourceSetValignment ,
#if defined(ENABLE_OVERLOADING)
TitleSourceSetXposMethodInfo ,
#endif
titleSourceSetXpos ,
#if defined(ENABLE_OVERLOADING)
TitleSourceSetYposMethodInfo ,
#endif
titleSourceSetYpos ,
) 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.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 TitleSource = TitleSource (SP.ManagedPtr TitleSource)
deriving (TitleSource -> TitleSource -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TitleSource -> TitleSource -> Bool
$c/= :: TitleSource -> TitleSource -> Bool
== :: TitleSource -> TitleSource -> Bool
$c== :: TitleSource -> TitleSource -> Bool
Eq)
instance SP.ManagedPtrNewtype TitleSource where
toManagedPtr :: TitleSource -> ManagedPtr TitleSource
toManagedPtr (TitleSource ManagedPtr TitleSource
p) = ManagedPtr TitleSource
p
foreign import ccall "ges_title_source_get_type"
c_ges_title_source_get_type :: IO B.Types.GType
instance B.Types.TypedObject TitleSource where
glibType :: IO GType
glibType = IO GType
c_ges_title_source_get_type
instance B.Types.GObject TitleSource
class (SP.GObject o, O.IsDescendantOf TitleSource o) => IsTitleSource o
instance (SP.GObject o, O.IsDescendantOf TitleSource o) => IsTitleSource o
instance O.HasParentTypes TitleSource
type instance O.ParentTypes TitleSource = '[GES.VideoSource.VideoSource, GES.Source.Source, GES.TrackElement.TrackElement, GES.TimelineElement.TimelineElement, GObject.Object.Object, GES.Extractable.Extractable, GES.MetaContainer.MetaContainer]
toTitleSource :: (MIO.MonadIO m, IsTitleSource o) => o -> m TitleSource
toTitleSource :: forall (m :: * -> *) o.
(MonadIO m, IsTitleSource o) =>
o -> m TitleSource
toTitleSource = 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 TitleSource -> TitleSource
TitleSource
instance B.GValue.IsGValue (Maybe TitleSource) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ges_title_source_get_type
gvalueSet_ :: Ptr GValue -> Maybe TitleSource -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TitleSource
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 TitleSource)
gvalueSet_ Ptr GValue
gv (P.Just TitleSource
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TitleSource
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TitleSource)
gvalueGet_ Ptr GValue
gv = do
Ptr TitleSource
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr TitleSource)
if Ptr TitleSource
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 TitleSource -> TitleSource
TitleSource Ptr TitleSource
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTitleSourceMethod (t :: Symbol) (o :: *) :: * where
ResolveTitleSourceMethod "addChildProperty" o = GES.TimelineElement.TimelineElementAddChildPropertyMethodInfo
ResolveTitleSourceMethod "addChildrenProps" o = GES.TrackElement.TrackElementAddChildrenPropsMethodInfo
ResolveTitleSourceMethod "addMetasFromString" o = GES.MetaContainer.MetaContainerAddMetasFromStringMethodInfo
ResolveTitleSourceMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTitleSourceMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTitleSourceMethod "checkMetaRegistered" o = GES.MetaContainer.MetaContainerCheckMetaRegisteredMethodInfo
ResolveTitleSourceMethod "clampControlSource" o = GES.TrackElement.TrackElementClampControlSourceMethodInfo
ResolveTitleSourceMethod "copy" o = GES.TimelineElement.TimelineElementCopyMethodInfo
ResolveTitleSourceMethod "edit" o = GES.TrackElement.TrackElementEditMethodInfo
ResolveTitleSourceMethod "editFull" o = GES.TimelineElement.TimelineElementEditFullMethodInfo
ResolveTitleSourceMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTitleSourceMethod "foreach" o = GES.MetaContainer.MetaContainerForeachMethodInfo
ResolveTitleSourceMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTitleSourceMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTitleSourceMethod "hasInternalSource" o = GES.TrackElement.TrackElementHasInternalSourceMethodInfo
ResolveTitleSourceMethod "isActive" o = GES.TrackElement.TrackElementIsActiveMethodInfo
ResolveTitleSourceMethod "isCore" o = GES.TrackElement.TrackElementIsCoreMethodInfo
ResolveTitleSourceMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTitleSourceMethod "listChildrenProperties" o = GES.TrackElement.TrackElementListChildrenPropertiesMethodInfo
ResolveTitleSourceMethod "lookupChild" o = GES.TrackElement.TrackElementLookupChildMethodInfo
ResolveTitleSourceMethod "metasToString" o = GES.MetaContainer.MetaContainerMetasToStringMethodInfo
ResolveTitleSourceMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTitleSourceMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTitleSourceMethod "paste" o = GES.TimelineElement.TimelineElementPasteMethodInfo
ResolveTitleSourceMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTitleSourceMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTitleSourceMethod "registerMeta" o = GES.MetaContainer.MetaContainerRegisterMetaMethodInfo
ResolveTitleSourceMethod "registerMetaBoolean" o = GES.MetaContainer.MetaContainerRegisterMetaBooleanMethodInfo
ResolveTitleSourceMethod "registerMetaDate" o = GES.MetaContainer.MetaContainerRegisterMetaDateMethodInfo
ResolveTitleSourceMethod "registerMetaDateTime" o = GES.MetaContainer.MetaContainerRegisterMetaDateTimeMethodInfo
ResolveTitleSourceMethod "registerMetaDouble" o = GES.MetaContainer.MetaContainerRegisterMetaDoubleMethodInfo
ResolveTitleSourceMethod "registerMetaFloat" o = GES.MetaContainer.MetaContainerRegisterMetaFloatMethodInfo
ResolveTitleSourceMethod "registerMetaInt" o = GES.MetaContainer.MetaContainerRegisterMetaIntMethodInfo
ResolveTitleSourceMethod "registerMetaInt64" o = GES.MetaContainer.MetaContainerRegisterMetaInt64MethodInfo
ResolveTitleSourceMethod "registerMetaString" o = GES.MetaContainer.MetaContainerRegisterMetaStringMethodInfo
ResolveTitleSourceMethod "registerMetaUint" o = GES.MetaContainer.MetaContainerRegisterMetaUintMethodInfo
ResolveTitleSourceMethod "registerMetaUint64" o = GES.MetaContainer.MetaContainerRegisterMetaUint64MethodInfo
ResolveTitleSourceMethod "registerStaticMeta" o = GES.MetaContainer.MetaContainerRegisterStaticMetaMethodInfo
ResolveTitleSourceMethod "removeChildProperty" o = GES.TimelineElement.TimelineElementRemoveChildPropertyMethodInfo
ResolveTitleSourceMethod "removeControlBinding" o = GES.TrackElement.TrackElementRemoveControlBindingMethodInfo
ResolveTitleSourceMethod "ripple" o = GES.TimelineElement.TimelineElementRippleMethodInfo
ResolveTitleSourceMethod "rippleEnd" o = GES.TimelineElement.TimelineElementRippleEndMethodInfo
ResolveTitleSourceMethod "rollEnd" o = GES.TimelineElement.TimelineElementRollEndMethodInfo
ResolveTitleSourceMethod "rollStart" o = GES.TimelineElement.TimelineElementRollStartMethodInfo
ResolveTitleSourceMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTitleSourceMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTitleSourceMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTitleSourceMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTitleSourceMethod "trim" o = GES.TimelineElement.TimelineElementTrimMethodInfo
ResolveTitleSourceMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTitleSourceMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTitleSourceMethod "getAllControlBindings" o = GES.TrackElement.TrackElementGetAllControlBindingsMethodInfo
ResolveTitleSourceMethod "getAsset" o = GES.Extractable.ExtractableGetAssetMethodInfo
ResolveTitleSourceMethod "getAutoClampControlSources" o = GES.TrackElement.TrackElementGetAutoClampControlSourcesMethodInfo
ResolveTitleSourceMethod "getBackgroundColor" o = TitleSourceGetBackgroundColorMethodInfo
ResolveTitleSourceMethod "getBoolean" o = GES.MetaContainer.MetaContainerGetBooleanMethodInfo
ResolveTitleSourceMethod "getChildProperty" o = GES.TimelineElement.TimelineElementGetChildPropertyMethodInfo
ResolveTitleSourceMethod "getChildPropertyByPspec" o = GES.TimelineElement.TimelineElementGetChildPropertyByPspecMethodInfo
ResolveTitleSourceMethod "getControlBinding" o = GES.TrackElement.TrackElementGetControlBindingMethodInfo
ResolveTitleSourceMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTitleSourceMethod "getDate" o = GES.MetaContainer.MetaContainerGetDateMethodInfo
ResolveTitleSourceMethod "getDateTime" o = GES.MetaContainer.MetaContainerGetDateTimeMethodInfo
ResolveTitleSourceMethod "getDouble" o = GES.MetaContainer.MetaContainerGetDoubleMethodInfo
ResolveTitleSourceMethod "getDuration" o = GES.TimelineElement.TimelineElementGetDurationMethodInfo
ResolveTitleSourceMethod "getElement" o = GES.TrackElement.TrackElementGetElementMethodInfo
ResolveTitleSourceMethod "getFloat" o = GES.MetaContainer.MetaContainerGetFloatMethodInfo
ResolveTitleSourceMethod "getFontDesc" o = TitleSourceGetFontDescMethodInfo
ResolveTitleSourceMethod "getGnlobject" o = GES.TrackElement.TrackElementGetGnlobjectMethodInfo
ResolveTitleSourceMethod "getHalignment" o = TitleSourceGetHalignmentMethodInfo
ResolveTitleSourceMethod "getId" o = GES.Extractable.ExtractableGetIdMethodInfo
ResolveTitleSourceMethod "getInpoint" o = GES.TimelineElement.TimelineElementGetInpointMethodInfo
ResolveTitleSourceMethod "getInt" o = GES.MetaContainer.MetaContainerGetIntMethodInfo
ResolveTitleSourceMethod "getInt64" o = GES.MetaContainer.MetaContainerGetInt64MethodInfo
ResolveTitleSourceMethod "getLayerPriority" o = GES.TimelineElement.TimelineElementGetLayerPriorityMethodInfo
ResolveTitleSourceMethod "getMarkerList" o = GES.MetaContainer.MetaContainerGetMarkerListMethodInfo
ResolveTitleSourceMethod "getMaxDuration" o = GES.TimelineElement.TimelineElementGetMaxDurationMethodInfo
ResolveTitleSourceMethod "getMeta" o = GES.MetaContainer.MetaContainerGetMetaMethodInfo
ResolveTitleSourceMethod "getName" o = GES.TimelineElement.TimelineElementGetNameMethodInfo
ResolveTitleSourceMethod "getNaturalFramerate" o = GES.TimelineElement.TimelineElementGetNaturalFramerateMethodInfo
ResolveTitleSourceMethod "getNaturalSize" o = GES.VideoSource.VideoSourceGetNaturalSizeMethodInfo
ResolveTitleSourceMethod "getNleobject" o = GES.TrackElement.TrackElementGetNleobjectMethodInfo
ResolveTitleSourceMethod "getParent" o = GES.TimelineElement.TimelineElementGetParentMethodInfo
ResolveTitleSourceMethod "getPriority" o = GES.TimelineElement.TimelineElementGetPriorityMethodInfo
ResolveTitleSourceMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTitleSourceMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTitleSourceMethod "getStart" o = GES.TimelineElement.TimelineElementGetStartMethodInfo
ResolveTitleSourceMethod "getString" o = GES.MetaContainer.MetaContainerGetStringMethodInfo
ResolveTitleSourceMethod "getText" o = TitleSourceGetTextMethodInfo
ResolveTitleSourceMethod "getTextColor" o = TitleSourceGetTextColorMethodInfo
ResolveTitleSourceMethod "getTimeline" o = GES.TimelineElement.TimelineElementGetTimelineMethodInfo
ResolveTitleSourceMethod "getToplevelParent" o = GES.TimelineElement.TimelineElementGetToplevelParentMethodInfo
ResolveTitleSourceMethod "getTrack" o = GES.TrackElement.TrackElementGetTrackMethodInfo
ResolveTitleSourceMethod "getTrackType" o = GES.TrackElement.TrackElementGetTrackTypeMethodInfo
ResolveTitleSourceMethod "getTrackTypes" o = GES.TimelineElement.TimelineElementGetTrackTypesMethodInfo
ResolveTitleSourceMethod "getUint" o = GES.MetaContainer.MetaContainerGetUintMethodInfo
ResolveTitleSourceMethod "getUint64" o = GES.MetaContainer.MetaContainerGetUint64MethodInfo
ResolveTitleSourceMethod "getValignment" o = TitleSourceGetValignmentMethodInfo
ResolveTitleSourceMethod "getXpos" o = TitleSourceGetXposMethodInfo
ResolveTitleSourceMethod "getYpos" o = TitleSourceGetYposMethodInfo
ResolveTitleSourceMethod "setActive" o = GES.TrackElement.TrackElementSetActiveMethodInfo
ResolveTitleSourceMethod "setAsset" o = GES.Extractable.ExtractableSetAssetMethodInfo
ResolveTitleSourceMethod "setAutoClampControlSources" o = GES.TrackElement.TrackElementSetAutoClampControlSourcesMethodInfo
ResolveTitleSourceMethod "setBackgroundColor" o = TitleSourceSetBackgroundColorMethodInfo
ResolveTitleSourceMethod "setBoolean" o = GES.MetaContainer.MetaContainerSetBooleanMethodInfo
ResolveTitleSourceMethod "setChildProperty" o = GES.TimelineElement.TimelineElementSetChildPropertyMethodInfo
ResolveTitleSourceMethod "setChildPropertyByPspec" o = GES.TimelineElement.TimelineElementSetChildPropertyByPspecMethodInfo
ResolveTitleSourceMethod "setChildPropertyFull" o = GES.TimelineElement.TimelineElementSetChildPropertyFullMethodInfo
ResolveTitleSourceMethod "setControlSource" o = GES.TrackElement.TrackElementSetControlSourceMethodInfo
ResolveTitleSourceMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTitleSourceMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTitleSourceMethod "setDate" o = GES.MetaContainer.MetaContainerSetDateMethodInfo
ResolveTitleSourceMethod "setDateTime" o = GES.MetaContainer.MetaContainerSetDateTimeMethodInfo
ResolveTitleSourceMethod "setDouble" o = GES.MetaContainer.MetaContainerSetDoubleMethodInfo
ResolveTitleSourceMethod "setDuration" o = GES.TimelineElement.TimelineElementSetDurationMethodInfo
ResolveTitleSourceMethod "setFloat" o = GES.MetaContainer.MetaContainerSetFloatMethodInfo
ResolveTitleSourceMethod "setFontDesc" o = TitleSourceSetFontDescMethodInfo
ResolveTitleSourceMethod "setHalignment" o = TitleSourceSetHalignmentMethodInfo
ResolveTitleSourceMethod "setHasInternalSource" o = GES.TrackElement.TrackElementSetHasInternalSourceMethodInfo
ResolveTitleSourceMethod "setInpoint" o = GES.TimelineElement.TimelineElementSetInpointMethodInfo
ResolveTitleSourceMethod "setInt" o = GES.MetaContainer.MetaContainerSetIntMethodInfo
ResolveTitleSourceMethod "setInt64" o = GES.MetaContainer.MetaContainerSetInt64MethodInfo
ResolveTitleSourceMethod "setMarkerList" o = GES.MetaContainer.MetaContainerSetMarkerListMethodInfo
ResolveTitleSourceMethod "setMaxDuration" o = GES.TimelineElement.TimelineElementSetMaxDurationMethodInfo
ResolveTitleSourceMethod "setMeta" o = GES.MetaContainer.MetaContainerSetMetaMethodInfo
ResolveTitleSourceMethod "setName" o = GES.TimelineElement.TimelineElementSetNameMethodInfo
ResolveTitleSourceMethod "setParent" o = GES.TimelineElement.TimelineElementSetParentMethodInfo
ResolveTitleSourceMethod "setPriority" o = GES.TimelineElement.TimelineElementSetPriorityMethodInfo
ResolveTitleSourceMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTitleSourceMethod "setStart" o = GES.TimelineElement.TimelineElementSetStartMethodInfo
ResolveTitleSourceMethod "setString" o = GES.MetaContainer.MetaContainerSetStringMethodInfo
ResolveTitleSourceMethod "setText" o = TitleSourceSetTextMethodInfo
ResolveTitleSourceMethod "setTextColor" o = TitleSourceSetTextColorMethodInfo
ResolveTitleSourceMethod "setTimeline" o = GES.TimelineElement.TimelineElementSetTimelineMethodInfo
ResolveTitleSourceMethod "setTrackType" o = GES.TrackElement.TrackElementSetTrackTypeMethodInfo
ResolveTitleSourceMethod "setUint" o = GES.MetaContainer.MetaContainerSetUintMethodInfo
ResolveTitleSourceMethod "setUint64" o = GES.MetaContainer.MetaContainerSetUint64MethodInfo
ResolveTitleSourceMethod "setValignment" o = TitleSourceSetValignmentMethodInfo
ResolveTitleSourceMethod "setXpos" o = TitleSourceSetXposMethodInfo
ResolveTitleSourceMethod "setYpos" o = TitleSourceSetYposMethodInfo
ResolveTitleSourceMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTitleSourceMethod t TitleSource, O.OverloadedMethod info TitleSource p) => OL.IsLabel t (TitleSource -> 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 ~ ResolveTitleSourceMethod t TitleSource, O.OverloadedMethod info TitleSource p, R.HasField t TitleSource p) => R.HasField t TitleSource p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTitleSourceMethod t TitleSource, O.OverloadedMethodInfo info TitleSource) => OL.IsLabel t (O.MethodProxy info TitleSource) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TitleSource
type instance O.AttributeList TitleSource = TitleSourceAttributeList
type TitleSourceAttributeList = ('[ '("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, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList TitleSource = TitleSourceSignalList
type TitleSourceSignalList = ('[ '("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, *)])
#endif
foreign import ccall "ges_title_source_get_background_color" ges_title_source_get_background_color ::
Ptr TitleSource ->
IO Word32
titleSourceGetBackgroundColor ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> m Word32
titleSourceGetBackgroundColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> m Word32
titleSourceGetBackgroundColor a
source = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
source' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
source
Word32
result <- Ptr TitleSource -> IO Word32
ges_title_source_get_background_color Ptr TitleSource
source'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
source
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data TitleSourceGetBackgroundColorMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceGetBackgroundColorMethodInfo a signature where
overloadedMethod = titleSourceGetBackgroundColor
instance O.OverloadedMethodInfo TitleSourceGetBackgroundColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceGetBackgroundColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceGetBackgroundColor"
})
#endif
foreign import ccall "ges_title_source_get_font_desc" ges_title_source_get_font_desc ::
Ptr TitleSource ->
IO CString
{-# DEPRECATED titleSourceGetFontDesc ["(Since version 1.16)","Use ges_timeline_element_get_child_property instead","(this actually returns a newly allocated string)"] #-}
titleSourceGetFontDesc ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> m T.Text
titleSourceGetFontDesc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> m Text
titleSourceGetFontDesc a
source = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
source' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
source
CString
result <- Ptr TitleSource -> IO CString
ges_title_source_get_font_desc Ptr TitleSource
source'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"titleSourceGetFontDesc" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. Ptr a -> IO ()
freeMem CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
source
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TitleSourceGetFontDescMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceGetFontDescMethodInfo a signature where
overloadedMethod = titleSourceGetFontDesc
instance O.OverloadedMethodInfo TitleSourceGetFontDescMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceGetFontDesc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceGetFontDesc"
})
#endif
foreign import ccall "ges_title_source_get_halignment" ges_title_source_get_halignment ::
Ptr TitleSource ->
IO CUInt
titleSourceGetHalignment ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> m GES.Enums.TextHAlign
titleSourceGetHalignment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> m TextHAlign
titleSourceGetHalignment a
source = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
source' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
source
CUInt
result <- Ptr TitleSource -> IO CUInt
ges_title_source_get_halignment Ptr TitleSource
source'
let result' :: TextHAlign
result' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
source
forall (m :: * -> *) a. Monad m => a -> m a
return TextHAlign
result'
#if defined(ENABLE_OVERLOADING)
data TitleSourceGetHalignmentMethodInfo
instance (signature ~ (m GES.Enums.TextHAlign), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceGetHalignmentMethodInfo a signature where
overloadedMethod = titleSourceGetHalignment
instance O.OverloadedMethodInfo TitleSourceGetHalignmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceGetHalignment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceGetHalignment"
})
#endif
foreign import ccall "ges_title_source_get_text" ges_title_source_get_text ::
Ptr TitleSource ->
IO CString
{-# DEPRECATED titleSourceGetText ["(Since version 1.16)","Use ges_timeline_element_get_child_property instead","(this actually returns a newly allocated string)"] #-}
titleSourceGetText ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> m T.Text
titleSourceGetText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> m Text
titleSourceGetText a
source = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
source' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
source
CString
result <- Ptr TitleSource -> IO CString
ges_title_source_get_text Ptr TitleSource
source'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"titleSourceGetText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. Ptr a -> IO ()
freeMem CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
source
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TitleSourceGetTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceGetTextMethodInfo a signature where
overloadedMethod = titleSourceGetText
instance O.OverloadedMethodInfo TitleSourceGetTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceGetText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceGetText"
})
#endif
foreign import ccall "ges_title_source_get_text_color" ges_title_source_get_text_color ::
Ptr TitleSource ->
IO Word32
titleSourceGetTextColor ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> m Word32
titleSourceGetTextColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> m Word32
titleSourceGetTextColor a
source = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
source' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
source
Word32
result <- Ptr TitleSource -> IO Word32
ges_title_source_get_text_color Ptr TitleSource
source'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
source
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data TitleSourceGetTextColorMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceGetTextColorMethodInfo a signature where
overloadedMethod = titleSourceGetTextColor
instance O.OverloadedMethodInfo TitleSourceGetTextColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceGetTextColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceGetTextColor"
})
#endif
foreign import ccall "ges_title_source_get_valignment" ges_title_source_get_valignment ::
Ptr TitleSource ->
IO CUInt
titleSourceGetValignment ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> m GES.Enums.TextVAlign
titleSourceGetValignment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> m TextVAlign
titleSourceGetValignment a
source = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
source' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
source
CUInt
result <- Ptr TitleSource -> IO CUInt
ges_title_source_get_valignment Ptr TitleSource
source'
let result' :: TextVAlign
result' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
source
forall (m :: * -> *) a. Monad m => a -> m a
return TextVAlign
result'
#if defined(ENABLE_OVERLOADING)
data TitleSourceGetValignmentMethodInfo
instance (signature ~ (m GES.Enums.TextVAlign), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceGetValignmentMethodInfo a signature where
overloadedMethod = titleSourceGetValignment
instance O.OverloadedMethodInfo TitleSourceGetValignmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceGetValignment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceGetValignment"
})
#endif
foreign import ccall "ges_title_source_get_xpos" ges_title_source_get_xpos ::
Ptr TitleSource ->
IO CDouble
titleSourceGetXpos ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> m Double
titleSourceGetXpos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> m Double
titleSourceGetXpos a
source = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
source' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
source
CDouble
result <- Ptr TitleSource -> IO CDouble
ges_title_source_get_xpos Ptr TitleSource
source'
let result' :: Double
result' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
source
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data TitleSourceGetXposMethodInfo
instance (signature ~ (m Double), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceGetXposMethodInfo a signature where
overloadedMethod = titleSourceGetXpos
instance O.OverloadedMethodInfo TitleSourceGetXposMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceGetXpos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceGetXpos"
})
#endif
foreign import ccall "ges_title_source_get_ypos" ges_title_source_get_ypos ::
Ptr TitleSource ->
IO CDouble
titleSourceGetYpos ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> m Double
titleSourceGetYpos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> m Double
titleSourceGetYpos a
source = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
source' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
source
CDouble
result <- Ptr TitleSource -> IO CDouble
ges_title_source_get_ypos Ptr TitleSource
source'
let result' :: Double
result' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
source
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data TitleSourceGetYposMethodInfo
instance (signature ~ (m Double), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceGetYposMethodInfo a signature where
overloadedMethod = titleSourceGetYpos
instance O.OverloadedMethodInfo TitleSourceGetYposMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceGetYpos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceGetYpos"
})
#endif
foreign import ccall "ges_title_source_set_background_color" ges_title_source_set_background_color ::
Ptr TitleSource ->
Word32 ->
IO ()
titleSourceSetBackgroundColor ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> Word32
-> m ()
titleSourceSetBackgroundColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> Word32 -> m ()
titleSourceSetBackgroundColor a
self Word32
color = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TitleSource -> Word32 -> IO ()
ges_title_source_set_background_color Ptr TitleSource
self' Word32
color
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TitleSourceSetBackgroundColorMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceSetBackgroundColorMethodInfo a signature where
overloadedMethod = titleSourceSetBackgroundColor
instance O.OverloadedMethodInfo TitleSourceSetBackgroundColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceSetBackgroundColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceSetBackgroundColor"
})
#endif
foreign import ccall "ges_title_source_set_font_desc" ges_title_source_set_font_desc ::
Ptr TitleSource ->
CString ->
IO ()
titleSourceSetFontDesc ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> T.Text
-> m ()
titleSourceSetFontDesc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> Text -> m ()
titleSourceSetFontDesc a
self Text
fontDesc = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
fontDesc' <- Text -> IO CString
textToCString Text
fontDesc
Ptr TitleSource -> CString -> IO ()
ges_title_source_set_font_desc Ptr TitleSource
self' CString
fontDesc'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall a. Ptr a -> IO ()
freeMem CString
fontDesc'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TitleSourceSetFontDescMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceSetFontDescMethodInfo a signature where
overloadedMethod = titleSourceSetFontDesc
instance O.OverloadedMethodInfo TitleSourceSetFontDescMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceSetFontDesc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceSetFontDesc"
})
#endif
foreign import ccall "ges_title_source_set_halignment" ges_title_source_set_halignment ::
Ptr TitleSource ->
CUInt ->
IO ()
titleSourceSetHalignment ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> GES.Enums.TextHAlign
-> m ()
titleSourceSetHalignment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> TextHAlign -> m ()
titleSourceSetHalignment a
self TextHAlign
halign = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let halign' :: CUInt
halign' = (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) TextHAlign
halign
Ptr TitleSource -> CUInt -> IO ()
ges_title_source_set_halignment Ptr TitleSource
self' CUInt
halign'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TitleSourceSetHalignmentMethodInfo
instance (signature ~ (GES.Enums.TextHAlign -> m ()), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceSetHalignmentMethodInfo a signature where
overloadedMethod = titleSourceSetHalignment
instance O.OverloadedMethodInfo TitleSourceSetHalignmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceSetHalignment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceSetHalignment"
})
#endif
foreign import ccall "ges_title_source_set_text" ges_title_source_set_text ::
Ptr TitleSource ->
CString ->
IO ()
{-# DEPRECATED titleSourceSetText ["use ges_track_element_get\\/set_children_properties on the","GESTrackElement instead"] #-}
titleSourceSetText ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> T.Text
-> m ()
titleSourceSetText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> Text -> m ()
titleSourceSetText a
self Text
text = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr TitleSource -> CString -> IO ()
ges_title_source_set_text Ptr TitleSource
self' CString
text'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall a. Ptr a -> IO ()
freeMem CString
text'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TitleSourceSetTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceSetTextMethodInfo a signature where
overloadedMethod = titleSourceSetText
instance O.OverloadedMethodInfo TitleSourceSetTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceSetText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceSetText"
})
#endif
foreign import ccall "ges_title_source_set_text_color" ges_title_source_set_text_color ::
Ptr TitleSource ->
Word32 ->
IO ()
titleSourceSetTextColor ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> Word32
-> m ()
titleSourceSetTextColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> Word32 -> m ()
titleSourceSetTextColor a
self Word32
color = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TitleSource -> Word32 -> IO ()
ges_title_source_set_text_color Ptr TitleSource
self' Word32
color
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TitleSourceSetTextColorMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceSetTextColorMethodInfo a signature where
overloadedMethod = titleSourceSetTextColor
instance O.OverloadedMethodInfo TitleSourceSetTextColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceSetTextColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceSetTextColor"
})
#endif
foreign import ccall "ges_title_source_set_valignment" ges_title_source_set_valignment ::
Ptr TitleSource ->
CUInt ->
IO ()
titleSourceSetValignment ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> GES.Enums.TextVAlign
-> m ()
titleSourceSetValignment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> TextVAlign -> m ()
titleSourceSetValignment a
self TextVAlign
valign = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let valign' :: CUInt
valign' = (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) TextVAlign
valign
Ptr TitleSource -> CUInt -> IO ()
ges_title_source_set_valignment Ptr TitleSource
self' CUInt
valign'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TitleSourceSetValignmentMethodInfo
instance (signature ~ (GES.Enums.TextVAlign -> m ()), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceSetValignmentMethodInfo a signature where
overloadedMethod = titleSourceSetValignment
instance O.OverloadedMethodInfo TitleSourceSetValignmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceSetValignment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceSetValignment"
})
#endif
foreign import ccall "ges_title_source_set_xpos" ges_title_source_set_xpos ::
Ptr TitleSource ->
CDouble ->
IO ()
titleSourceSetXpos ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> Double
-> m ()
titleSourceSetXpos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> Double -> m ()
titleSourceSetXpos a
self Double
position = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let position' :: CDouble
position' = forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
position
Ptr TitleSource -> CDouble -> IO ()
ges_title_source_set_xpos Ptr TitleSource
self' CDouble
position'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TitleSourceSetXposMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceSetXposMethodInfo a signature where
overloadedMethod = titleSourceSetXpos
instance O.OverloadedMethodInfo TitleSourceSetXposMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceSetXpos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceSetXpos"
})
#endif
foreign import ccall "ges_title_source_set_ypos" ges_title_source_set_ypos ::
Ptr TitleSource ->
CDouble ->
IO ()
titleSourceSetYpos ::
(B.CallStack.HasCallStack, MonadIO m, IsTitleSource a) =>
a
-> Double
-> m ()
titleSourceSetYpos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTitleSource a) =>
a -> Double -> m ()
titleSourceSetYpos a
self Double
position = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TitleSource
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let position' :: CDouble
position' = forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
position
Ptr TitleSource -> CDouble -> IO ()
ges_title_source_set_ypos Ptr TitleSource
self' CDouble
position'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TitleSourceSetYposMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsTitleSource a) => O.OverloadedMethod TitleSourceSetYposMethodInfo a signature where
overloadedMethod = titleSourceSetYpos
instance O.OverloadedMethodInfo TitleSourceSetYposMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GES.Objects.TitleSource.titleSourceSetYpos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ges-1.0.1/docs/GI-GES-Objects-TitleSource.html#v:titleSourceSetYpos"
})
#endif