#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Gst.Objects.PadTemplate
(
PadTemplate(..) ,
IsPadTemplate ,
toPadTemplate ,
noPadTemplate ,
#if ENABLE_OVERLOADING
PadTemplateGetCapsMethodInfo ,
#endif
padTemplateGetCaps ,
padTemplateNew ,
padTemplateNewFromStaticPadTemplateWithGtype,
padTemplateNewWithGtype ,
#if ENABLE_OVERLOADING
PadTemplatePadCreatedMethodInfo ,
#endif
padTemplatePadCreated ,
#if ENABLE_OVERLOADING
PadTemplateCapsPropertyInfo ,
#endif
constructPadTemplateCaps ,
getPadTemplateCaps ,
#if ENABLE_OVERLOADING
padTemplateCaps ,
#endif
#if ENABLE_OVERLOADING
PadTemplateDirectionPropertyInfo ,
#endif
constructPadTemplateDirection ,
getPadTemplateDirection ,
#if ENABLE_OVERLOADING
padTemplateDirection ,
#endif
#if ENABLE_OVERLOADING
PadTemplateGtypePropertyInfo ,
#endif
constructPadTemplateGtype ,
getPadTemplateGtype ,
#if ENABLE_OVERLOADING
padTemplateGtype ,
#endif
#if ENABLE_OVERLOADING
PadTemplateNameTemplatePropertyInfo ,
#endif
constructPadTemplateNameTemplate ,
getPadTemplateNameTemplate ,
#if ENABLE_OVERLOADING
padTemplateNameTemplate ,
#endif
#if ENABLE_OVERLOADING
PadTemplatePresencePropertyInfo ,
#endif
constructPadTemplatePresence ,
getPadTemplatePresence ,
#if ENABLE_OVERLOADING
padTemplatePresence ,
#endif
C_PadTemplatePadCreatedCallback ,
PadTemplatePadCreatedCallback ,
#if ENABLE_OVERLOADING
PadTemplatePadCreatedSignalInfo ,
#endif
afterPadTemplatePadCreated ,
genClosure_PadTemplatePadCreated ,
mk_PadTemplatePadCreatedCallback ,
noPadTemplatePadCreatedCallback ,
onPadTemplatePadCreated ,
wrap_PadTemplatePadCreatedCallback ,
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
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.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 GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gst.Enums as Gst.Enums
import {-# SOURCE #-} qualified GI.Gst.Objects.Object as Gst.Object
import {-# SOURCE #-} qualified GI.Gst.Objects.Pad as Gst.Pad
import {-# SOURCE #-} qualified GI.Gst.Structs.Caps as Gst.Caps
import {-# SOURCE #-} qualified GI.Gst.Structs.StaticPadTemplate as Gst.StaticPadTemplate
newtype PadTemplate = PadTemplate (ManagedPtr PadTemplate)
foreign import ccall "gst_pad_template_get_type"
c_gst_pad_template_get_type :: IO GType
instance GObject PadTemplate where
gobjectType = c_gst_pad_template_get_type
class (GObject o, O.IsDescendantOf PadTemplate o) => IsPadTemplate o
instance (GObject o, O.IsDescendantOf PadTemplate o) => IsPadTemplate o
instance O.HasParentTypes PadTemplate
type instance O.ParentTypes PadTemplate = '[Gst.Object.Object, GObject.Object.Object]
toPadTemplate :: (MonadIO m, IsPadTemplate o) => o -> m PadTemplate
toPadTemplate = liftIO . unsafeCastTo PadTemplate
noPadTemplate :: Maybe PadTemplate
noPadTemplate = Nothing
#if ENABLE_OVERLOADING
type family ResolvePadTemplateMethod (t :: Symbol) (o :: *) :: * where
ResolvePadTemplateMethod "addControlBinding" o = Gst.Object.ObjectAddControlBindingMethodInfo
ResolvePadTemplateMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePadTemplateMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePadTemplateMethod "defaultError" o = Gst.Object.ObjectDefaultErrorMethodInfo
ResolvePadTemplateMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePadTemplateMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePadTemplateMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePadTemplateMethod "hasActiveControlBindings" o = Gst.Object.ObjectHasActiveControlBindingsMethodInfo
ResolvePadTemplateMethod "hasAncestor" o = Gst.Object.ObjectHasAncestorMethodInfo
ResolvePadTemplateMethod "hasAsAncestor" o = Gst.Object.ObjectHasAsAncestorMethodInfo
ResolvePadTemplateMethod "hasAsParent" o = Gst.Object.ObjectHasAsParentMethodInfo
ResolvePadTemplateMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePadTemplateMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePadTemplateMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePadTemplateMethod "padCreated" o = PadTemplatePadCreatedMethodInfo
ResolvePadTemplateMethod "ref" o = Gst.Object.ObjectRefMethodInfo
ResolvePadTemplateMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePadTemplateMethod "removeControlBinding" o = Gst.Object.ObjectRemoveControlBindingMethodInfo
ResolvePadTemplateMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePadTemplateMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePadTemplateMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePadTemplateMethod "suggestNextSync" o = Gst.Object.ObjectSuggestNextSyncMethodInfo
ResolvePadTemplateMethod "syncValues" o = Gst.Object.ObjectSyncValuesMethodInfo
ResolvePadTemplateMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePadTemplateMethod "unparent" o = Gst.Object.ObjectUnparentMethodInfo
ResolvePadTemplateMethod "unref" o = Gst.Object.ObjectUnrefMethodInfo
ResolvePadTemplateMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePadTemplateMethod "getCaps" o = PadTemplateGetCapsMethodInfo
ResolvePadTemplateMethod "getControlBinding" o = Gst.Object.ObjectGetControlBindingMethodInfo
ResolvePadTemplateMethod "getControlRate" o = Gst.Object.ObjectGetControlRateMethodInfo
ResolvePadTemplateMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePadTemplateMethod "getGValueArray" o = Gst.Object.ObjectGetGValueArrayMethodInfo
ResolvePadTemplateMethod "getName" o = Gst.Object.ObjectGetNameMethodInfo
ResolvePadTemplateMethod "getParent" o = Gst.Object.ObjectGetParentMethodInfo
ResolvePadTemplateMethod "getPathString" o = Gst.Object.ObjectGetPathStringMethodInfo
ResolvePadTemplateMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePadTemplateMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePadTemplateMethod "getValue" o = Gst.Object.ObjectGetValueMethodInfo
ResolvePadTemplateMethod "setControlBindingDisabled" o = Gst.Object.ObjectSetControlBindingDisabledMethodInfo
ResolvePadTemplateMethod "setControlBindingsDisabled" o = Gst.Object.ObjectSetControlBindingsDisabledMethodInfo
ResolvePadTemplateMethod "setControlRate" o = Gst.Object.ObjectSetControlRateMethodInfo
ResolvePadTemplateMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePadTemplateMethod "setName" o = Gst.Object.ObjectSetNameMethodInfo
ResolvePadTemplateMethod "setParent" o = Gst.Object.ObjectSetParentMethodInfo
ResolvePadTemplateMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePadTemplateMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePadTemplateMethod t PadTemplate, O.MethodInfo info PadTemplate p) => OL.IsLabel t (PadTemplate -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
type PadTemplatePadCreatedCallback =
Gst.Pad.Pad
-> IO ()
noPadTemplatePadCreatedCallback :: Maybe PadTemplatePadCreatedCallback
noPadTemplatePadCreatedCallback = Nothing
type C_PadTemplatePadCreatedCallback =
Ptr () ->
Ptr Gst.Pad.Pad ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PadTemplatePadCreatedCallback :: C_PadTemplatePadCreatedCallback -> IO (FunPtr C_PadTemplatePadCreatedCallback)
genClosure_PadTemplatePadCreated :: MonadIO m => PadTemplatePadCreatedCallback -> m (GClosure C_PadTemplatePadCreatedCallback)
genClosure_PadTemplatePadCreated cb = liftIO $ do
let cb' = wrap_PadTemplatePadCreatedCallback cb
mk_PadTemplatePadCreatedCallback cb' >>= B.GClosure.newGClosure
wrap_PadTemplatePadCreatedCallback ::
PadTemplatePadCreatedCallback ->
C_PadTemplatePadCreatedCallback
wrap_PadTemplatePadCreatedCallback _cb _ pad _ = do
pad' <- (newObject Gst.Pad.Pad) pad
_cb pad'
onPadTemplatePadCreated :: (IsPadTemplate a, MonadIO m) => a -> PadTemplatePadCreatedCallback -> m SignalHandlerId
onPadTemplatePadCreated obj cb = liftIO $ do
let cb' = wrap_PadTemplatePadCreatedCallback cb
cb'' <- mk_PadTemplatePadCreatedCallback cb'
connectSignalFunPtr obj "pad-created" cb'' SignalConnectBefore
afterPadTemplatePadCreated :: (IsPadTemplate a, MonadIO m) => a -> PadTemplatePadCreatedCallback -> m SignalHandlerId
afterPadTemplatePadCreated obj cb = liftIO $ do
let cb' = wrap_PadTemplatePadCreatedCallback cb
cb'' <- mk_PadTemplatePadCreatedCallback cb'
connectSignalFunPtr obj "pad-created" cb'' SignalConnectAfter
getPadTemplateCaps :: (MonadIO m, IsPadTemplate o) => o -> m (Maybe Gst.Caps.Caps)
getPadTemplateCaps obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "caps" Gst.Caps.Caps
constructPadTemplateCaps :: (IsPadTemplate o) => Gst.Caps.Caps -> IO (GValueConstruct o)
constructPadTemplateCaps val = B.Properties.constructObjectPropertyBoxed "caps" (Just val)
#if ENABLE_OVERLOADING
data PadTemplateCapsPropertyInfo
instance AttrInfo PadTemplateCapsPropertyInfo where
type AttrAllowedOps PadTemplateCapsPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PadTemplateCapsPropertyInfo = (~) Gst.Caps.Caps
type AttrBaseTypeConstraint PadTemplateCapsPropertyInfo = IsPadTemplate
type AttrGetType PadTemplateCapsPropertyInfo = (Maybe Gst.Caps.Caps)
type AttrLabel PadTemplateCapsPropertyInfo = "caps"
type AttrOrigin PadTemplateCapsPropertyInfo = PadTemplate
attrGet _ = getPadTemplateCaps
attrSet _ = undefined
attrConstruct _ = constructPadTemplateCaps
attrClear _ = undefined
#endif
getPadTemplateDirection :: (MonadIO m, IsPadTemplate o) => o -> m Gst.Enums.PadDirection
getPadTemplateDirection obj = liftIO $ B.Properties.getObjectPropertyEnum obj "direction"
constructPadTemplateDirection :: (IsPadTemplate o) => Gst.Enums.PadDirection -> IO (GValueConstruct o)
constructPadTemplateDirection val = B.Properties.constructObjectPropertyEnum "direction" val
#if ENABLE_OVERLOADING
data PadTemplateDirectionPropertyInfo
instance AttrInfo PadTemplateDirectionPropertyInfo where
type AttrAllowedOps PadTemplateDirectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PadTemplateDirectionPropertyInfo = (~) Gst.Enums.PadDirection
type AttrBaseTypeConstraint PadTemplateDirectionPropertyInfo = IsPadTemplate
type AttrGetType PadTemplateDirectionPropertyInfo = Gst.Enums.PadDirection
type AttrLabel PadTemplateDirectionPropertyInfo = "direction"
type AttrOrigin PadTemplateDirectionPropertyInfo = PadTemplate
attrGet _ = getPadTemplateDirection
attrSet _ = undefined
attrConstruct _ = constructPadTemplateDirection
attrClear _ = undefined
#endif
getPadTemplateGtype :: (MonadIO m, IsPadTemplate o) => o -> m GType
getPadTemplateGtype obj = liftIO $ B.Properties.getObjectPropertyGType obj "gtype"
constructPadTemplateGtype :: (IsPadTemplate o) => GType -> IO (GValueConstruct o)
constructPadTemplateGtype val = B.Properties.constructObjectPropertyGType "gtype" val
#if ENABLE_OVERLOADING
data PadTemplateGtypePropertyInfo
instance AttrInfo PadTemplateGtypePropertyInfo where
type AttrAllowedOps PadTemplateGtypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PadTemplateGtypePropertyInfo = (~) GType
type AttrBaseTypeConstraint PadTemplateGtypePropertyInfo = IsPadTemplate
type AttrGetType PadTemplateGtypePropertyInfo = GType
type AttrLabel PadTemplateGtypePropertyInfo = "gtype"
type AttrOrigin PadTemplateGtypePropertyInfo = PadTemplate
attrGet _ = getPadTemplateGtype
attrSet _ = undefined
attrConstruct _ = constructPadTemplateGtype
attrClear _ = undefined
#endif
getPadTemplateNameTemplate :: (MonadIO m, IsPadTemplate o) => o -> m (Maybe T.Text)
getPadTemplateNameTemplate obj = liftIO $ B.Properties.getObjectPropertyString obj "name-template"
constructPadTemplateNameTemplate :: (IsPadTemplate o) => T.Text -> IO (GValueConstruct o)
constructPadTemplateNameTemplate val = B.Properties.constructObjectPropertyString "name-template" (Just val)
#if ENABLE_OVERLOADING
data PadTemplateNameTemplatePropertyInfo
instance AttrInfo PadTemplateNameTemplatePropertyInfo where
type AttrAllowedOps PadTemplateNameTemplatePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PadTemplateNameTemplatePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint PadTemplateNameTemplatePropertyInfo = IsPadTemplate
type AttrGetType PadTemplateNameTemplatePropertyInfo = (Maybe T.Text)
type AttrLabel PadTemplateNameTemplatePropertyInfo = "name-template"
type AttrOrigin PadTemplateNameTemplatePropertyInfo = PadTemplate
attrGet _ = getPadTemplateNameTemplate
attrSet _ = undefined
attrConstruct _ = constructPadTemplateNameTemplate
attrClear _ = undefined
#endif
getPadTemplatePresence :: (MonadIO m, IsPadTemplate o) => o -> m Gst.Enums.PadPresence
getPadTemplatePresence obj = liftIO $ B.Properties.getObjectPropertyEnum obj "presence"
constructPadTemplatePresence :: (IsPadTemplate o) => Gst.Enums.PadPresence -> IO (GValueConstruct o)
constructPadTemplatePresence val = B.Properties.constructObjectPropertyEnum "presence" val
#if ENABLE_OVERLOADING
data PadTemplatePresencePropertyInfo
instance AttrInfo PadTemplatePresencePropertyInfo where
type AttrAllowedOps PadTemplatePresencePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PadTemplatePresencePropertyInfo = (~) Gst.Enums.PadPresence
type AttrBaseTypeConstraint PadTemplatePresencePropertyInfo = IsPadTemplate
type AttrGetType PadTemplatePresencePropertyInfo = Gst.Enums.PadPresence
type AttrLabel PadTemplatePresencePropertyInfo = "presence"
type AttrOrigin PadTemplatePresencePropertyInfo = PadTemplate
attrGet _ = getPadTemplatePresence
attrSet _ = undefined
attrConstruct _ = constructPadTemplatePresence
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList PadTemplate
type instance O.AttributeList PadTemplate = PadTemplateAttributeList
type PadTemplateAttributeList = ('[ '("caps", PadTemplateCapsPropertyInfo), '("direction", PadTemplateDirectionPropertyInfo), '("gtype", PadTemplateGtypePropertyInfo), '("name", Gst.Object.ObjectNamePropertyInfo), '("nameTemplate", PadTemplateNameTemplatePropertyInfo), '("parent", Gst.Object.ObjectParentPropertyInfo), '("presence", PadTemplatePresencePropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
padTemplateCaps :: AttrLabelProxy "caps"
padTemplateCaps = AttrLabelProxy
padTemplateDirection :: AttrLabelProxy "direction"
padTemplateDirection = AttrLabelProxy
padTemplateGtype :: AttrLabelProxy "gtype"
padTemplateGtype = AttrLabelProxy
padTemplateNameTemplate :: AttrLabelProxy "nameTemplate"
padTemplateNameTemplate = AttrLabelProxy
padTemplatePresence :: AttrLabelProxy "presence"
padTemplatePresence = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
data PadTemplatePadCreatedSignalInfo
instance SignalInfo PadTemplatePadCreatedSignalInfo where
type HaskellCallbackType PadTemplatePadCreatedSignalInfo = PadTemplatePadCreatedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_PadTemplatePadCreatedCallback cb
cb'' <- mk_PadTemplatePadCreatedCallback cb'
connectSignalFunPtr obj "pad-created" cb'' connectMode
type instance O.SignalList PadTemplate = PadTemplateSignalList
type PadTemplateSignalList = ('[ '("deepNotify", Gst.Object.ObjectDeepNotifySignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("padCreated", PadTemplatePadCreatedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gst_pad_template_new" gst_pad_template_new ::
CString ->
CUInt ->
CUInt ->
Ptr Gst.Caps.Caps ->
IO (Ptr PadTemplate)
padTemplateNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> Gst.Enums.PadDirection
-> Gst.Enums.PadPresence
-> Gst.Caps.Caps
-> m (Maybe PadTemplate)
padTemplateNew nameTemplate direction presence caps = liftIO $ do
nameTemplate' <- textToCString nameTemplate
let direction' = (fromIntegral . fromEnum) direction
let presence' = (fromIntegral . fromEnum) presence
caps' <- unsafeManagedPtrGetPtr caps
result <- gst_pad_template_new nameTemplate' direction' presence' caps'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject PadTemplate) result'
return result''
touchManagedPtr caps
freeMem nameTemplate'
return maybeResult
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gst_pad_template_new_from_static_pad_template_with_gtype" gst_pad_template_new_from_static_pad_template_with_gtype ::
Ptr Gst.StaticPadTemplate.StaticPadTemplate ->
CGType ->
IO (Ptr PadTemplate)
padTemplateNewFromStaticPadTemplateWithGtype ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gst.StaticPadTemplate.StaticPadTemplate
-> GType
-> m (Maybe PadTemplate)
padTemplateNewFromStaticPadTemplateWithGtype padTemplate padType = liftIO $ do
padTemplate' <- unsafeManagedPtrGetPtr padTemplate
let padType' = gtypeToCGType padType
result <- gst_pad_template_new_from_static_pad_template_with_gtype padTemplate' padType'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject PadTemplate) result'
return result''
touchManagedPtr padTemplate
return maybeResult
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gst_pad_template_new_with_gtype" gst_pad_template_new_with_gtype ::
CString ->
CUInt ->
CUInt ->
Ptr Gst.Caps.Caps ->
CGType ->
IO (Ptr PadTemplate)
padTemplateNewWithGtype ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> Gst.Enums.PadDirection
-> Gst.Enums.PadPresence
-> Gst.Caps.Caps
-> GType
-> m (Maybe PadTemplate)
padTemplateNewWithGtype nameTemplate direction presence caps padType = liftIO $ do
nameTemplate' <- textToCString nameTemplate
let direction' = (fromIntegral . fromEnum) direction
let presence' = (fromIntegral . fromEnum) presence
caps' <- unsafeManagedPtrGetPtr caps
let padType' = gtypeToCGType padType
result <- gst_pad_template_new_with_gtype nameTemplate' direction' presence' caps' padType'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject PadTemplate) result'
return result''
touchManagedPtr caps
freeMem nameTemplate'
return maybeResult
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gst_pad_template_get_caps" gst_pad_template_get_caps ::
Ptr PadTemplate ->
IO (Ptr Gst.Caps.Caps)
padTemplateGetCaps ::
(B.CallStack.HasCallStack, MonadIO m, IsPadTemplate a) =>
a
-> m Gst.Caps.Caps
padTemplateGetCaps templ = liftIO $ do
templ' <- unsafeManagedPtrCastPtr templ
result <- gst_pad_template_get_caps templ'
checkUnexpectedReturnNULL "padTemplateGetCaps" result
result' <- (wrapBoxed Gst.Caps.Caps) result
touchManagedPtr templ
return result'
#if ENABLE_OVERLOADING
data PadTemplateGetCapsMethodInfo
instance (signature ~ (m Gst.Caps.Caps), MonadIO m, IsPadTemplate a) => O.MethodInfo PadTemplateGetCapsMethodInfo a signature where
overloadedMethod _ = padTemplateGetCaps
#endif
foreign import ccall "gst_pad_template_pad_created" gst_pad_template_pad_created ::
Ptr PadTemplate ->
Ptr Gst.Pad.Pad ->
IO ()
padTemplatePadCreated ::
(B.CallStack.HasCallStack, MonadIO m, IsPadTemplate a, Gst.Pad.IsPad b) =>
a
-> b
-> m ()
padTemplatePadCreated templ pad = liftIO $ do
templ' <- unsafeManagedPtrCastPtr templ
pad' <- unsafeManagedPtrCastPtr pad
gst_pad_template_pad_created templ' pad'
touchManagedPtr templ
touchManagedPtr pad
return ()
#if ENABLE_OVERLOADING
data PadTemplatePadCreatedMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsPadTemplate a, Gst.Pad.IsPad b) => O.MethodInfo PadTemplatePadCreatedMethodInfo a signature where
overloadedMethod _ = padTemplatePadCreated
#endif