gi-webkit-0.2.4.14: GI/WebKit/Objects/DOMAudioTrackList.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.DOMAudioTrackList
(
-- * Exported types
DOMAudioTrackList(..) ,
DOMAudioTrackListK ,
toDOMAudioTrackList ,
noDOMAudioTrackList ,
-- * Methods
-- ** dOMAudioTrackListDispatchEvent
DOMAudioTrackListDispatchEventMethodInfo,
dOMAudioTrackListDispatchEvent ,
-- ** dOMAudioTrackListGetLength
DOMAudioTrackListGetLengthMethodInfo ,
dOMAudioTrackListGetLength ,
-- ** dOMAudioTrackListGetTrackById
DOMAudioTrackListGetTrackByIdMethodInfo ,
dOMAudioTrackListGetTrackById ,
-- ** dOMAudioTrackListItem
DOMAudioTrackListItemMethodInfo ,
dOMAudioTrackListItem ,
-- * Properties
-- ** Length
DOMAudioTrackListLengthPropertyInfo ,
dOMAudioTrackListLength ,
getDOMAudioTrackListLength ,
) 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 DOMAudioTrackList = DOMAudioTrackList (ForeignPtr DOMAudioTrackList)
foreign import ccall "webkit_dom_audio_track_list_get_type"
c_webkit_dom_audio_track_list_get_type :: IO GType
type instance ParentTypes DOMAudioTrackList = DOMAudioTrackListParentTypes
type DOMAudioTrackListParentTypes = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMAudioTrackList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_audio_track_list_get_type
class GObject o => DOMAudioTrackListK o
instance (GObject o, IsDescendantOf DOMAudioTrackList o) => DOMAudioTrackListK o
toDOMAudioTrackList :: DOMAudioTrackListK o => o -> IO DOMAudioTrackList
toDOMAudioTrackList = unsafeCastTo DOMAudioTrackList
noDOMAudioTrackList :: Maybe DOMAudioTrackList
noDOMAudioTrackList = Nothing
type family ResolveDOMAudioTrackListMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMAudioTrackListMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo
ResolveDOMAudioTrackListMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveDOMAudioTrackListMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveDOMAudioTrackListMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveDOMAudioTrackListMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveDOMAudioTrackListMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveDOMAudioTrackListMethod "item" o = DOMAudioTrackListItemMethodInfo
ResolveDOMAudioTrackListMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveDOMAudioTrackListMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveDOMAudioTrackListMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveDOMAudioTrackListMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveDOMAudioTrackListMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo
ResolveDOMAudioTrackListMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveDOMAudioTrackListMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveDOMAudioTrackListMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveDOMAudioTrackListMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveDOMAudioTrackListMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveDOMAudioTrackListMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveDOMAudioTrackListMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveDOMAudioTrackListMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
ResolveDOMAudioTrackListMethod "getData" o = GObject.ObjectGetDataMethodInfo
ResolveDOMAudioTrackListMethod "getLength" o = DOMAudioTrackListGetLengthMethodInfo
ResolveDOMAudioTrackListMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
ResolveDOMAudioTrackListMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
ResolveDOMAudioTrackListMethod "getTrackById" o = DOMAudioTrackListGetTrackByIdMethodInfo
ResolveDOMAudioTrackListMethod "setData" o = GObject.ObjectSetDataMethodInfo
ResolveDOMAudioTrackListMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveDOMAudioTrackListMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveDOMAudioTrackListMethod t DOMAudioTrackList, MethodInfo info DOMAudioTrackList p) => IsLabelProxy t (DOMAudioTrackList -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMAudioTrackListMethod t DOMAudioTrackList, MethodInfo info DOMAudioTrackList p) => IsLabel t (DOMAudioTrackList -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- VVV Prop "length"
-- Type: TBasicType TULong
-- Flags: [PropertyReadable]
-- Nullable: (Just False,Nothing)
getDOMAudioTrackListLength :: (MonadIO m, DOMAudioTrackListK o) => o -> m CULong
getDOMAudioTrackListLength obj = liftIO $ getObjectPropertyULong obj "length"
data DOMAudioTrackListLengthPropertyInfo
instance AttrInfo DOMAudioTrackListLengthPropertyInfo where
type AttrAllowedOps DOMAudioTrackListLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMAudioTrackListLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMAudioTrackListLengthPropertyInfo = DOMAudioTrackListK
type AttrGetType DOMAudioTrackListLengthPropertyInfo = CULong
type AttrLabel DOMAudioTrackListLengthPropertyInfo = "length"
attrGet _ = getDOMAudioTrackListLength
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
type instance AttributeList DOMAudioTrackList = DOMAudioTrackListAttributeList
type DOMAudioTrackListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMAudioTrackListLengthPropertyInfo)] :: [(Symbol, *)])
dOMAudioTrackListLength :: AttrLabelProxy "length"
dOMAudioTrackListLength = AttrLabelProxy
type instance SignalList DOMAudioTrackList = DOMAudioTrackListSignalList
type DOMAudioTrackListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method DOMAudioTrackList::dispatch_event
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", 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_audio_track_list_dispatch_event" webkit_dom_audio_track_list_dispatch_event ::
Ptr DOMAudioTrackList -> -- _obj : TInterface "WebKit" "DOMAudioTrackList"
Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent"
Ptr (Ptr GError) -> -- error
IO CInt
{-# DEPRECATED dOMAudioTrackListDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-}
dOMAudioTrackListDispatchEvent ::
(MonadIO m, DOMAudioTrackListK a, DOMEventK b) =>
a -- _obj
-> b -- evt
-> m () -- result
dOMAudioTrackListDispatchEvent _obj evt = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let evt' = unsafeManagedPtrCastPtr evt
onException (do
_ <- propagateGError $ webkit_dom_audio_track_list_dispatch_event _obj' evt'
touchManagedPtr _obj
touchManagedPtr evt
return ()
) (do
return ()
)
data DOMAudioTrackListDispatchEventMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, DOMAudioTrackListK a, DOMEventK b) => MethodInfo DOMAudioTrackListDispatchEventMethodInfo a signature where
overloadedMethod _ = dOMAudioTrackListDispatchEvent
-- method DOMAudioTrackList::get_length
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", 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_audio_track_list_get_length" webkit_dom_audio_track_list_get_length ::
Ptr DOMAudioTrackList -> -- _obj : TInterface "WebKit" "DOMAudioTrackList"
IO CULong
dOMAudioTrackListGetLength ::
(MonadIO m, DOMAudioTrackListK a) =>
a -- _obj
-> m CULong -- result
dOMAudioTrackListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_audio_track_list_get_length _obj'
touchManagedPtr _obj
return result
data DOMAudioTrackListGetLengthMethodInfo
instance (signature ~ (m CULong), MonadIO m, DOMAudioTrackListK a) => MethodInfo DOMAudioTrackListGetLengthMethodInfo a signature where
overloadedMethod _ = dOMAudioTrackListGetLength
-- method DOMAudioTrackList::get_track_by_id
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", 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" "DOMAudioTrack")
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_audio_track_list_get_track_by_id" webkit_dom_audio_track_list_get_track_by_id ::
Ptr DOMAudioTrackList -> -- _obj : TInterface "WebKit" "DOMAudioTrackList"
CString -> -- id : TBasicType TUTF8
IO (Ptr DOMAudioTrack)
dOMAudioTrackListGetTrackById ::
(MonadIO m, DOMAudioTrackListK a) =>
a -- _obj
-> T.Text -- id
-> m DOMAudioTrack -- result
dOMAudioTrackListGetTrackById _obj id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
id' <- textToCString id
result <- webkit_dom_audio_track_list_get_track_by_id _obj' id'
checkUnexpectedReturnNULL "webkit_dom_audio_track_list_get_track_by_id" result
result' <- (wrapObject DOMAudioTrack) result
touchManagedPtr _obj
freeMem id'
return result'
data DOMAudioTrackListGetTrackByIdMethodInfo
instance (signature ~ (T.Text -> m DOMAudioTrack), MonadIO m, DOMAudioTrackListK a) => MethodInfo DOMAudioTrackListGetTrackByIdMethodInfo a signature where
overloadedMethod _ = dOMAudioTrackListGetTrackById
-- method DOMAudioTrackList::item
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMAudioTrackList", 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" "DOMAudioTrack")
-- throws : False
-- Skip return : False
foreign import ccall "webkit_dom_audio_track_list_item" webkit_dom_audio_track_list_item ::
Ptr DOMAudioTrackList -> -- _obj : TInterface "WebKit" "DOMAudioTrackList"
CULong -> -- index : TBasicType TULong
IO (Ptr DOMAudioTrack)
dOMAudioTrackListItem ::
(MonadIO m, DOMAudioTrackListK a) =>
a -- _obj
-> CULong -- index
-> m DOMAudioTrack -- result
dOMAudioTrackListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_audio_track_list_item _obj' index
checkUnexpectedReturnNULL "webkit_dom_audio_track_list_item" result
result' <- (wrapObject DOMAudioTrack) result
touchManagedPtr _obj
return result'
data DOMAudioTrackListItemMethodInfo
instance (signature ~ (CULong -> m DOMAudioTrack), MonadIO m, DOMAudioTrackListK a) => MethodInfo DOMAudioTrackListItemMethodInfo a signature where
overloadedMethod _ = dOMAudioTrackListItem