module GI.WebKit.Objects.DOMVideoTrackList
(
DOMVideoTrackList(..) ,
DOMVideoTrackListK ,
toDOMVideoTrackList ,
noDOMVideoTrackList ,
dOMVideoTrackListDispatchEvent ,
dOMVideoTrackListGetLength ,
dOMVideoTrackListGetTrackById ,
dOMVideoTrackListItem ,
DOMVideoTrackListLengthPropertyInfo ,
getDOMVideoTrackListLength ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
newtype DOMVideoTrackList = DOMVideoTrackList (ForeignPtr DOMVideoTrackList)
foreign import ccall "webkit_dom_video_track_list_get_type"
c_webkit_dom_video_track_list_get_type :: IO GType
type instance ParentTypes DOMVideoTrackList = DOMVideoTrackListParentTypes
type DOMVideoTrackListParentTypes = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMVideoTrackList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_video_track_list_get_type
class GObject o => DOMVideoTrackListK o
instance (GObject o, IsDescendantOf DOMVideoTrackList o) => DOMVideoTrackListK o
toDOMVideoTrackList :: DOMVideoTrackListK o => o -> IO DOMVideoTrackList
toDOMVideoTrackList = unsafeCastTo DOMVideoTrackList
noDOMVideoTrackList :: Maybe DOMVideoTrackList
noDOMVideoTrackList = Nothing
getDOMVideoTrackListLength :: (MonadIO m, DOMVideoTrackListK o) => o -> m Word64
getDOMVideoTrackListLength obj = liftIO $ getObjectPropertyUInt64 obj "length"
data DOMVideoTrackListLengthPropertyInfo
instance AttrInfo DOMVideoTrackListLengthPropertyInfo where
type AttrAllowedOps DOMVideoTrackListLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMVideoTrackListLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMVideoTrackListLengthPropertyInfo = DOMVideoTrackListK
type AttrGetType DOMVideoTrackListLengthPropertyInfo = Word64
type AttrLabel DOMVideoTrackListLengthPropertyInfo = "DOMVideoTrackList::length"
attrGet _ = getDOMVideoTrackListLength
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMVideoTrackList = DOMVideoTrackListAttributeList
type DOMVideoTrackListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMVideoTrackListLengthPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMVideoTrackList = DOMVideoTrackListSignalList
type DOMVideoTrackListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_video_track_list_dispatch_event" webkit_dom_video_track_list_dispatch_event ::
Ptr DOMVideoTrackList ->
Ptr DOMEvent ->
Ptr (Ptr GError) ->
IO CInt
dOMVideoTrackListDispatchEvent ::
(MonadIO m, DOMVideoTrackListK a, DOMEventK b) =>
a ->
b ->
m ()
dOMVideoTrackListDispatchEvent _obj evt = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let evt' = unsafeManagedPtrCastPtr evt
onException (do
_ <- propagateGError $ webkit_dom_video_track_list_dispatch_event _obj' evt'
touchManagedPtr _obj
touchManagedPtr evt
return ()
) (do
return ()
)
foreign import ccall "webkit_dom_video_track_list_get_length" webkit_dom_video_track_list_get_length ::
Ptr DOMVideoTrackList ->
IO Word64
dOMVideoTrackListGetLength ::
(MonadIO m, DOMVideoTrackListK a) =>
a ->
m Word64
dOMVideoTrackListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_list_get_length _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_video_track_list_get_track_by_id" webkit_dom_video_track_list_get_track_by_id ::
Ptr DOMVideoTrackList ->
CString ->
IO (Ptr DOMVideoTrack)
dOMVideoTrackListGetTrackById ::
(MonadIO m, DOMVideoTrackListK a) =>
a ->
T.Text ->
m DOMVideoTrack
dOMVideoTrackListGetTrackById _obj id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
id' <- textToCString id
result <- webkit_dom_video_track_list_get_track_by_id _obj' id'
checkUnexpectedReturnNULL "webkit_dom_video_track_list_get_track_by_id" result
result' <- (wrapObject DOMVideoTrack) result
touchManagedPtr _obj
freeMem id'
return result'
foreign import ccall "webkit_dom_video_track_list_item" webkit_dom_video_track_list_item ::
Ptr DOMVideoTrackList ->
Word64 ->
IO (Ptr DOMVideoTrack)
dOMVideoTrackListItem ::
(MonadIO m, DOMVideoTrackListK a) =>
a ->
Word64 ->
m DOMVideoTrack
dOMVideoTrackListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_list_item _obj' index
checkUnexpectedReturnNULL "webkit_dom_video_track_list_item" result
result' <- (wrapObject DOMVideoTrack) result
touchManagedPtr _obj
return result'