module GI.WebKit.Objects.DOMTextTrack
(
DOMTextTrack(..) ,
IsDOMTextTrack ,
toDOMTextTrack ,
noDOMTextTrack ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackAddCueMethodInfo ,
#endif
dOMTextTrackAddCue ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackDispatchEventMethodInfo ,
#endif
dOMTextTrackDispatchEvent ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackGetActiveCuesMethodInfo ,
#endif
dOMTextTrackGetActiveCues ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackGetCuesMethodInfo ,
#endif
dOMTextTrackGetCues ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackGetIdMethodInfo ,
#endif
dOMTextTrackGetId ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackGetKindMethodInfo ,
#endif
dOMTextTrackGetKind ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackGetLabelMethodInfo ,
#endif
dOMTextTrackGetLabel ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackGetLanguageMethodInfo ,
#endif
dOMTextTrackGetLanguage ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackGetModeMethodInfo ,
#endif
dOMTextTrackGetMode ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackRemoveCueMethodInfo ,
#endif
dOMTextTrackRemoveCue ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackSetModeMethodInfo ,
#endif
dOMTextTrackSetMode ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackActiveCuesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
dOMTextTrackActiveCues ,
#endif
getDOMTextTrackActiveCues ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackCuesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
dOMTextTrackCues ,
#endif
getDOMTextTrackCues ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackIdPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
dOMTextTrackId ,
#endif
getDOMTextTrackId ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackKindPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
dOMTextTrackKind ,
#endif
getDOMTextTrackKind ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackLabelPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
dOMTextTrackLabel ,
#endif
getDOMTextTrackLabel ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackLanguagePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
dOMTextTrackLanguage ,
#endif
getDOMTextTrackLanguage ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
DOMTextTrackModePropertyInfo ,
#endif
constructDOMTextTrackMode ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
dOMTextTrackMode ,
#endif
getDOMTextTrackMode ,
setDOMTextTrackMode ,
) 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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.WebKit.Interfaces.DOMEventTarget as WebKit.DOMEventTarget
import qualified GI.WebKit.Objects.DOMEvent as WebKit.DOMEvent
import qualified GI.WebKit.Objects.DOMObject as WebKit.DOMObject
import qualified GI.WebKit.Objects.DOMTextTrackCue as WebKit.DOMTextTrackCue
import qualified GI.WebKit.Objects.DOMTextTrackCueList as WebKit.DOMTextTrackCueList
newtype DOMTextTrack = DOMTextTrack (ManagedPtr DOMTextTrack)
foreign import ccall "webkit_dom_text_track_get_type"
c_webkit_dom_text_track_get_type :: IO GType
instance GObject DOMTextTrack where
gobjectType _ = c_webkit_dom_text_track_get_type
class GObject o => IsDOMTextTrack o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DOMTextTrack a) =>
IsDOMTextTrack a
#endif
instance IsDOMTextTrack DOMTextTrack
instance WebKit.DOMObject.IsDOMObject DOMTextTrack
instance GObject.Object.IsObject DOMTextTrack
instance WebKit.DOMEventTarget.IsDOMEventTarget DOMTextTrack
toDOMTextTrack :: (MonadIO m, IsDOMTextTrack o) => o -> m DOMTextTrack
toDOMTextTrack = liftIO . unsafeCastTo DOMTextTrack
noDOMTextTrack :: Maybe DOMTextTrack
noDOMTextTrack = Nothing
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type family ResolveDOMTextTrackMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMTextTrackMethod "addCue" o = DOMTextTrackAddCueMethodInfo
ResolveDOMTextTrackMethod "addEventListener" o = WebKit.DOMEventTarget.DOMEventTargetAddEventListenerMethodInfo
ResolveDOMTextTrackMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMTextTrackMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMTextTrackMethod "dispatchEvent" o = DOMTextTrackDispatchEventMethodInfo
ResolveDOMTextTrackMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMTextTrackMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMTextTrackMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMTextTrackMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMTextTrackMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMTextTrackMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMTextTrackMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMTextTrackMethod "removeCue" o = DOMTextTrackRemoveCueMethodInfo
ResolveDOMTextTrackMethod "removeEventListener" o = WebKit.DOMEventTarget.DOMEventTargetRemoveEventListenerMethodInfo
ResolveDOMTextTrackMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDOMTextTrackMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveDOMTextTrackMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMTextTrackMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMTextTrackMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMTextTrackMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMTextTrackMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMTextTrackMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMTextTrackMethod "getActiveCues" o = DOMTextTrackGetActiveCuesMethodInfo
ResolveDOMTextTrackMethod "getCues" o = DOMTextTrackGetCuesMethodInfo
ResolveDOMTextTrackMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMTextTrackMethod "getId" o = DOMTextTrackGetIdMethodInfo
ResolveDOMTextTrackMethod "getKind" o = DOMTextTrackGetKindMethodInfo
ResolveDOMTextTrackMethod "getLabel" o = DOMTextTrackGetLabelMethodInfo
ResolveDOMTextTrackMethod "getLanguage" o = DOMTextTrackGetLanguageMethodInfo
ResolveDOMTextTrackMethod "getMode" o = DOMTextTrackGetModeMethodInfo
ResolveDOMTextTrackMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMTextTrackMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMTextTrackMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMTextTrackMethod "setMode" o = DOMTextTrackSetModeMethodInfo
ResolveDOMTextTrackMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMTextTrackMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMTextTrackMethod t DOMTextTrack, O.MethodInfo info DOMTextTrack p) => O.IsLabelProxy t (DOMTextTrack -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMTextTrackMethod t DOMTextTrack, O.MethodInfo info DOMTextTrack p) => O.IsLabel t (DOMTextTrack -> 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
#endif
getDOMTextTrackActiveCues :: (MonadIO m, IsDOMTextTrack o) => o -> m (Maybe WebKit.DOMTextTrackCueList.DOMTextTrackCueList)
getDOMTextTrackActiveCues obj = liftIO $ getObjectPropertyObject obj "active-cues" WebKit.DOMTextTrackCueList.DOMTextTrackCueList
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackActiveCuesPropertyInfo
instance AttrInfo DOMTextTrackActiveCuesPropertyInfo where
type AttrAllowedOps DOMTextTrackActiveCuesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMTextTrackActiveCuesPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTextTrackActiveCuesPropertyInfo = IsDOMTextTrack
type AttrGetType DOMTextTrackActiveCuesPropertyInfo = (Maybe WebKit.DOMTextTrackCueList.DOMTextTrackCueList)
type AttrLabel DOMTextTrackActiveCuesPropertyInfo = "active-cues"
type AttrOrigin DOMTextTrackActiveCuesPropertyInfo = DOMTextTrack
attrGet _ = getDOMTextTrackActiveCues
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMTextTrackCues :: (MonadIO m, IsDOMTextTrack o) => o -> m (Maybe WebKit.DOMTextTrackCueList.DOMTextTrackCueList)
getDOMTextTrackCues obj = liftIO $ getObjectPropertyObject obj "cues" WebKit.DOMTextTrackCueList.DOMTextTrackCueList
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackCuesPropertyInfo
instance AttrInfo DOMTextTrackCuesPropertyInfo where
type AttrAllowedOps DOMTextTrackCuesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMTextTrackCuesPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTextTrackCuesPropertyInfo = IsDOMTextTrack
type AttrGetType DOMTextTrackCuesPropertyInfo = (Maybe WebKit.DOMTextTrackCueList.DOMTextTrackCueList)
type AttrLabel DOMTextTrackCuesPropertyInfo = "cues"
type AttrOrigin DOMTextTrackCuesPropertyInfo = DOMTextTrack
attrGet _ = getDOMTextTrackCues
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMTextTrackId :: (MonadIO m, IsDOMTextTrack o) => o -> m (Maybe T.Text)
getDOMTextTrackId obj = liftIO $ getObjectPropertyString obj "id"
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackIdPropertyInfo
instance AttrInfo DOMTextTrackIdPropertyInfo where
type AttrAllowedOps DOMTextTrackIdPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMTextTrackIdPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTextTrackIdPropertyInfo = IsDOMTextTrack
type AttrGetType DOMTextTrackIdPropertyInfo = (Maybe T.Text)
type AttrLabel DOMTextTrackIdPropertyInfo = "id"
type AttrOrigin DOMTextTrackIdPropertyInfo = DOMTextTrack
attrGet _ = getDOMTextTrackId
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMTextTrackKind :: (MonadIO m, IsDOMTextTrack o) => o -> m (Maybe T.Text)
getDOMTextTrackKind obj = liftIO $ getObjectPropertyString obj "kind"
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackKindPropertyInfo
instance AttrInfo DOMTextTrackKindPropertyInfo where
type AttrAllowedOps DOMTextTrackKindPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMTextTrackKindPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTextTrackKindPropertyInfo = IsDOMTextTrack
type AttrGetType DOMTextTrackKindPropertyInfo = (Maybe T.Text)
type AttrLabel DOMTextTrackKindPropertyInfo = "kind"
type AttrOrigin DOMTextTrackKindPropertyInfo = DOMTextTrack
attrGet _ = getDOMTextTrackKind
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMTextTrackLabel :: (MonadIO m, IsDOMTextTrack o) => o -> m (Maybe T.Text)
getDOMTextTrackLabel obj = liftIO $ getObjectPropertyString obj "label"
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackLabelPropertyInfo
instance AttrInfo DOMTextTrackLabelPropertyInfo where
type AttrAllowedOps DOMTextTrackLabelPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMTextTrackLabelPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTextTrackLabelPropertyInfo = IsDOMTextTrack
type AttrGetType DOMTextTrackLabelPropertyInfo = (Maybe T.Text)
type AttrLabel DOMTextTrackLabelPropertyInfo = "label"
type AttrOrigin DOMTextTrackLabelPropertyInfo = DOMTextTrack
attrGet _ = getDOMTextTrackLabel
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMTextTrackLanguage :: (MonadIO m, IsDOMTextTrack o) => o -> m (Maybe T.Text)
getDOMTextTrackLanguage obj = liftIO $ getObjectPropertyString obj "language"
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackLanguagePropertyInfo
instance AttrInfo DOMTextTrackLanguagePropertyInfo where
type AttrAllowedOps DOMTextTrackLanguagePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMTextTrackLanguagePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTextTrackLanguagePropertyInfo = IsDOMTextTrack
type AttrGetType DOMTextTrackLanguagePropertyInfo = (Maybe T.Text)
type AttrLabel DOMTextTrackLanguagePropertyInfo = "language"
type AttrOrigin DOMTextTrackLanguagePropertyInfo = DOMTextTrack
attrGet _ = getDOMTextTrackLanguage
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMTextTrackMode :: (MonadIO m, IsDOMTextTrack o) => o -> m (Maybe T.Text)
getDOMTextTrackMode obj = liftIO $ getObjectPropertyString obj "mode"
setDOMTextTrackMode :: (MonadIO m, IsDOMTextTrack o) => o -> T.Text -> m ()
setDOMTextTrackMode obj val = liftIO $ setObjectPropertyString obj "mode" (Just val)
constructDOMTextTrackMode :: (IsDOMTextTrack o) => T.Text -> IO (GValueConstruct o)
constructDOMTextTrackMode val = constructObjectPropertyString "mode" (Just val)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackModePropertyInfo
instance AttrInfo DOMTextTrackModePropertyInfo where
type AttrAllowedOps DOMTextTrackModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMTextTrackModePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMTextTrackModePropertyInfo = IsDOMTextTrack
type AttrGetType DOMTextTrackModePropertyInfo = (Maybe T.Text)
type AttrLabel DOMTextTrackModePropertyInfo = "mode"
type AttrOrigin DOMTextTrackModePropertyInfo = DOMTextTrack
attrGet _ = getDOMTextTrackMode
attrSet _ = setDOMTextTrackMode
attrConstruct _ = constructDOMTextTrackMode
attrClear _ = undefined
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
instance O.HasAttributeList DOMTextTrack
type instance O.AttributeList DOMTextTrack = DOMTextTrackAttributeList
type DOMTextTrackAttributeList = ('[ '("activeCues", DOMTextTrackActiveCuesPropertyInfo), '("coreObject", WebKit.DOMObject.DOMObjectCoreObjectPropertyInfo), '("cues", DOMTextTrackCuesPropertyInfo), '("id", DOMTextTrackIdPropertyInfo), '("kind", DOMTextTrackKindPropertyInfo), '("label", DOMTextTrackLabelPropertyInfo), '("language", DOMTextTrackLanguagePropertyInfo), '("mode", DOMTextTrackModePropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
dOMTextTrackActiveCues :: AttrLabelProxy "activeCues"
dOMTextTrackActiveCues = AttrLabelProxy
dOMTextTrackCues :: AttrLabelProxy "cues"
dOMTextTrackCues = AttrLabelProxy
dOMTextTrackId :: AttrLabelProxy "id"
dOMTextTrackId = AttrLabelProxy
dOMTextTrackKind :: AttrLabelProxy "kind"
dOMTextTrackKind = AttrLabelProxy
dOMTextTrackLabel :: AttrLabelProxy "label"
dOMTextTrackLabel = AttrLabelProxy
dOMTextTrackLanguage :: AttrLabelProxy "language"
dOMTextTrackLanguage = AttrLabelProxy
dOMTextTrackMode :: AttrLabelProxy "mode"
dOMTextTrackMode = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type instance O.SignalList DOMTextTrack = DOMTextTrackSignalList
type DOMTextTrackSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_text_track_add_cue" webkit_dom_text_track_add_cue ::
Ptr DOMTextTrack ->
Ptr WebKit.DOMTextTrackCue.DOMTextTrackCue ->
IO ()
dOMTextTrackAddCue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTextTrack a, WebKit.DOMTextTrackCue.IsDOMTextTrackCue b) =>
a
-> b
-> m ()
dOMTextTrackAddCue self cue = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
cue' <- unsafeManagedPtrCastPtr cue
webkit_dom_text_track_add_cue self' cue'
touchManagedPtr self
touchManagedPtr cue
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackAddCueMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMTextTrack a, WebKit.DOMTextTrackCue.IsDOMTextTrackCue b) => O.MethodInfo DOMTextTrackAddCueMethodInfo a signature where
overloadedMethod _ = dOMTextTrackAddCue
#endif
foreign import ccall "webkit_dom_text_track_dispatch_event" webkit_dom_text_track_dispatch_event ::
Ptr DOMTextTrack ->
Ptr WebKit.DOMEvent.DOMEvent ->
Ptr (Ptr GError) ->
IO CInt
dOMTextTrackDispatchEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTextTrack a, WebKit.DOMEvent.IsDOMEvent b) =>
a
-> b
-> m ()
dOMTextTrackDispatchEvent self evt = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
evt' <- unsafeManagedPtrCastPtr evt
onException (do
_ <- propagateGError $ webkit_dom_text_track_dispatch_event self' evt'
touchManagedPtr self
touchManagedPtr evt
return ()
) (do
return ()
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackDispatchEventMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMTextTrack a, WebKit.DOMEvent.IsDOMEvent b) => O.MethodInfo DOMTextTrackDispatchEventMethodInfo a signature where
overloadedMethod _ = dOMTextTrackDispatchEvent
#endif
foreign import ccall "webkit_dom_text_track_get_active_cues" webkit_dom_text_track_get_active_cues ::
Ptr DOMTextTrack ->
IO (Ptr WebKit.DOMTextTrackCueList.DOMTextTrackCueList)
dOMTextTrackGetActiveCues ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTextTrack a) =>
a
-> m WebKit.DOMTextTrackCueList.DOMTextTrackCueList
dOMTextTrackGetActiveCues self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_text_track_get_active_cues self'
checkUnexpectedReturnNULL "dOMTextTrackGetActiveCues" result
result' <- (wrapObject WebKit.DOMTextTrackCueList.DOMTextTrackCueList) result
touchManagedPtr self
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackGetActiveCuesMethodInfo
instance (signature ~ (m WebKit.DOMTextTrackCueList.DOMTextTrackCueList), MonadIO m, IsDOMTextTrack a) => O.MethodInfo DOMTextTrackGetActiveCuesMethodInfo a signature where
overloadedMethod _ = dOMTextTrackGetActiveCues
#endif
foreign import ccall "webkit_dom_text_track_get_cues" webkit_dom_text_track_get_cues ::
Ptr DOMTextTrack ->
IO (Ptr WebKit.DOMTextTrackCueList.DOMTextTrackCueList)
dOMTextTrackGetCues ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTextTrack a) =>
a
-> m WebKit.DOMTextTrackCueList.DOMTextTrackCueList
dOMTextTrackGetCues self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_text_track_get_cues self'
checkUnexpectedReturnNULL "dOMTextTrackGetCues" result
result' <- (wrapObject WebKit.DOMTextTrackCueList.DOMTextTrackCueList) result
touchManagedPtr self
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackGetCuesMethodInfo
instance (signature ~ (m WebKit.DOMTextTrackCueList.DOMTextTrackCueList), MonadIO m, IsDOMTextTrack a) => O.MethodInfo DOMTextTrackGetCuesMethodInfo a signature where
overloadedMethod _ = dOMTextTrackGetCues
#endif
foreign import ccall "webkit_dom_text_track_get_id" webkit_dom_text_track_get_id ::
Ptr DOMTextTrack ->
IO CString
dOMTextTrackGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTextTrack a) =>
a
-> m T.Text
dOMTextTrackGetId self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_text_track_get_id self'
checkUnexpectedReturnNULL "dOMTextTrackGetId" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackGetIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMTextTrack a) => O.MethodInfo DOMTextTrackGetIdMethodInfo a signature where
overloadedMethod _ = dOMTextTrackGetId
#endif
foreign import ccall "webkit_dom_text_track_get_kind" webkit_dom_text_track_get_kind ::
Ptr DOMTextTrack ->
IO CString
dOMTextTrackGetKind ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTextTrack a) =>
a
-> m T.Text
dOMTextTrackGetKind self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_text_track_get_kind self'
checkUnexpectedReturnNULL "dOMTextTrackGetKind" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackGetKindMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMTextTrack a) => O.MethodInfo DOMTextTrackGetKindMethodInfo a signature where
overloadedMethod _ = dOMTextTrackGetKind
#endif
foreign import ccall "webkit_dom_text_track_get_label" webkit_dom_text_track_get_label ::
Ptr DOMTextTrack ->
IO CString
dOMTextTrackGetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTextTrack a) =>
a
-> m T.Text
dOMTextTrackGetLabel self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_text_track_get_label self'
checkUnexpectedReturnNULL "dOMTextTrackGetLabel" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackGetLabelMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMTextTrack a) => O.MethodInfo DOMTextTrackGetLabelMethodInfo a signature where
overloadedMethod _ = dOMTextTrackGetLabel
#endif
foreign import ccall "webkit_dom_text_track_get_language" webkit_dom_text_track_get_language ::
Ptr DOMTextTrack ->
IO CString
dOMTextTrackGetLanguage ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTextTrack a) =>
a
-> m T.Text
dOMTextTrackGetLanguage self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_text_track_get_language self'
checkUnexpectedReturnNULL "dOMTextTrackGetLanguage" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackGetLanguageMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMTextTrack a) => O.MethodInfo DOMTextTrackGetLanguageMethodInfo a signature where
overloadedMethod _ = dOMTextTrackGetLanguage
#endif
foreign import ccall "webkit_dom_text_track_get_mode" webkit_dom_text_track_get_mode ::
Ptr DOMTextTrack ->
IO CString
dOMTextTrackGetMode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTextTrack a) =>
a
-> m T.Text
dOMTextTrackGetMode self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_text_track_get_mode self'
checkUnexpectedReturnNULL "dOMTextTrackGetMode" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackGetModeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMTextTrack a) => O.MethodInfo DOMTextTrackGetModeMethodInfo a signature where
overloadedMethod _ = dOMTextTrackGetMode
#endif
foreign import ccall "webkit_dom_text_track_remove_cue" webkit_dom_text_track_remove_cue ::
Ptr DOMTextTrack ->
Ptr WebKit.DOMTextTrackCue.DOMTextTrackCue ->
Ptr (Ptr GError) ->
IO ()
dOMTextTrackRemoveCue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTextTrack a, WebKit.DOMTextTrackCue.IsDOMTextTrackCue b) =>
a
-> b
-> m ()
dOMTextTrackRemoveCue self cue = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
cue' <- unsafeManagedPtrCastPtr cue
onException (do
propagateGError $ webkit_dom_text_track_remove_cue self' cue'
touchManagedPtr self
touchManagedPtr cue
return ()
) (do
return ()
)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackRemoveCueMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMTextTrack a, WebKit.DOMTextTrackCue.IsDOMTextTrackCue b) => O.MethodInfo DOMTextTrackRemoveCueMethodInfo a signature where
overloadedMethod _ = dOMTextTrackRemoveCue
#endif
foreign import ccall "webkit_dom_text_track_set_mode" webkit_dom_text_track_set_mode ::
Ptr DOMTextTrack ->
CString ->
IO ()
dOMTextTrackSetMode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTextTrack a) =>
a
-> T.Text
-> m ()
dOMTextTrackSetMode self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
value' <- textToCString value
webkit_dom_text_track_set_mode self' value'
touchManagedPtr self
freeMem value'
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data DOMTextTrackSetModeMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMTextTrack a) => O.MethodInfo DOMTextTrackSetModeMethodInfo a signature where
overloadedMethod _ = dOMTextTrackSetMode
#endif