gi-webkit-0.2.4.14: GI/WebKit/Objects/DOMVideoTrackList.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.WebKit.Objects.DOMVideoTrackList
(
-- * Exported types
DOMVideoTrackList(..) ,
DOMVideoTrackListK ,
toDOMVideoTrackList ,
noDOMVideoTrackList ,
-- * Methods
-- ** dOMVideoTrackListDispatchEvent
DOMVideoTrackListDispatchEventMethodInfo,
dOMVideoTrackListDispatchEvent ,
-- ** dOMVideoTrackListGetLength
DOMVideoTrackListGetLengthMethodInfo ,
dOMVideoTrackListGetLength ,
-- ** dOMVideoTrackListGetTrackById
DOMVideoTrackListGetTrackByIdMethodInfo ,
dOMVideoTrackListGetTrackById ,
-- ** dOMVideoTrackListItem
DOMVideoTrackListItemMethodInfo ,
dOMVideoTrackListItem ,
-- * Properties
-- ** Length
DOMVideoTrackListLengthPropertyInfo ,
dOMVideoTrackListLength ,
getDOMVideoTrackListLength ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.Attributes as GI.Attributes
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
type family ResolveDOMVideoTrackListMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMVideoTrackListMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo
ResolveDOMVideoTrackListMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveDOMVideoTrackListMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveDOMVideoTrackListMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveDOMVideoTrackListMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveDOMVideoTrackListMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveDOMVideoTrackListMethod "item" o = DOMVideoTrackListItemMethodInfo
ResolveDOMVideoTrackListMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveDOMVideoTrackListMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveDOMVideoTrackListMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveDOMVideoTrackListMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveDOMVideoTrackListMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo
ResolveDOMVideoTrackListMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveDOMVideoTrackListMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveDOMVideoTrackListMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveDOMVideoTrackListMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveDOMVideoTrackListMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveDOMVideoTrackListMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveDOMVideoTrackListMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveDOMVideoTrackListMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveDOMVideoTrackListMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveDOMVideoTrackListMethod "getLength" o = DOMVideoTrackListGetLengthMethodInfo
ResolveDOMVideoTrackListMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveDOMVideoTrackListMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveDOMVideoTrackListMethod "getTrackById" o = DOMVideoTrackListGetTrackByIdMethodInfo
ResolveDOMVideoTrackListMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveDOMVideoTrackListMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveDOMVideoTrackListMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveDOMVideoTrackListMethod t DOMVideoTrackList, MethodInfo info DOMVideoTrackList p) => IsLabelProxy t (DOMVideoTrackList -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMVideoTrackListMethod t DOMVideoTrackList, MethodInfo info DOMVideoTrackList p) => IsLabel t (DOMVideoTrackList -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- VVV Prop "length"
-- Type: TBasicType TULong
-- Flags: [PropertyReadable]
-- Nullable: (Just False,Nothing)
getDOMVideoTrackListLength :: (MonadIO m, DOMVideoTrackListK o) => o -> m CULong
getDOMVideoTrackListLength obj = liftIO $ getObjectPropertyULong obj "length"
data DOMVideoTrackListLengthPropertyInfo
instance AttrInfo DOMVideoTrackListLengthPropertyInfo where
type AttrAllowedOps DOMVideoTrackListLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMVideoTrackListLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMVideoTrackListLengthPropertyInfo = DOMVideoTrackListK
type AttrGetType DOMVideoTrackListLengthPropertyInfo = CULong
type AttrLabel DOMVideoTrackListLengthPropertyInfo = "length"
attrGet _ = getDOMVideoTrackListLength
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
type instance AttributeList DOMVideoTrackList = DOMVideoTrackListAttributeList
type DOMVideoTrackListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMVideoTrackListLengthPropertyInfo)] :: [(Symbol, *)])
dOMVideoTrackListLength :: AttrLabelProxy "length"
dOMVideoTrackListLength = AttrLabelProxy
type instance SignalList DOMVideoTrackList = DOMVideoTrackListSignalList
type DOMVideoTrackListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method DOMVideoTrackList::dispatch_event
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "evt", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TBoolean)
-- throws : True
-- Skip return : False
foreign import ccall "webkit_dom_video_track_list_dispatch_event" webkit_dom_video_track_list_dispatch_event ::
Ptr DOMVideoTrackList -> -- _obj : TInterface "WebKit" "DOMVideoTrackList"
Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent"
Ptr (Ptr GError) -> -- error
IO CInt
{-# DEPRECATED dOMVideoTrackListDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-}
dOMVideoTrackListDispatchEvent ::
(MonadIO m, DOMVideoTrackListK a, DOMEventK b) =>
a -- _obj
-> b -- evt
-> m () -- result
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 ()
)
data DOMVideoTrackListDispatchEventMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, DOMVideoTrackListK a, DOMEventK b) => MethodInfo DOMVideoTrackListDispatchEventMethodInfo a signature where
overloadedMethod _ = dOMVideoTrackListDispatchEvent
-- method DOMVideoTrackList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TULong)
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_video_track_list_get_length" webkit_dom_video_track_list_get_length ::
Ptr DOMVideoTrackList -> -- _obj : TInterface "WebKit" "DOMVideoTrackList"
IO CULong
dOMVideoTrackListGetLength ::
(MonadIO m, DOMVideoTrackListK a) =>
a -- _obj
-> m CULong -- result
dOMVideoTrackListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_list_get_length _obj'
touchManagedPtr _obj
return result
data DOMVideoTrackListGetLengthMethodInfo
instance (signature ~ (m CULong), MonadIO m, DOMVideoTrackListK a) => MethodInfo DOMVideoTrackListGetLengthMethodInfo a signature where
overloadedMethod _ = dOMVideoTrackListGetLength
-- method DOMVideoTrackList::get_track_by_id
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "WebKit" "DOMVideoTrack")
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_video_track_list_get_track_by_id" webkit_dom_video_track_list_get_track_by_id ::
Ptr DOMVideoTrackList -> -- _obj : TInterface "WebKit" "DOMVideoTrackList"
CString -> -- id : TBasicType TUTF8
IO (Ptr DOMVideoTrack)
dOMVideoTrackListGetTrackById ::
(MonadIO m, DOMVideoTrackListK a) =>
a -- _obj
-> T.Text -- id
-> m DOMVideoTrack -- result
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'
data DOMVideoTrackListGetTrackByIdMethodInfo
instance (signature ~ (T.Text -> m DOMVideoTrack), MonadIO m, DOMVideoTrackListK a) => MethodInfo DOMVideoTrackListGetTrackByIdMethodInfo a signature where
overloadedMethod _ = dOMVideoTrackListGetTrackById
-- method DOMVideoTrackList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMVideoTrackList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface "WebKit" "DOMVideoTrack")
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_video_track_list_item" webkit_dom_video_track_list_item ::
Ptr DOMVideoTrackList -> -- _obj : TInterface "WebKit" "DOMVideoTrackList"
CULong -> -- index : TBasicType TULong
IO (Ptr DOMVideoTrack)
dOMVideoTrackListItem ::
(MonadIO m, DOMVideoTrackListK a) =>
a -- _obj
-> CULong -- index
-> m DOMVideoTrack -- result
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'
data DOMVideoTrackListItemMethodInfo
instance (signature ~ (CULong -> m DOMVideoTrack), MonadIO m, DOMVideoTrackListK a) => MethodInfo DOMVideoTrackListItemMethodInfo a signature where
overloadedMethod _ = dOMVideoTrackListItem