{- | 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.DOMTextTrackList ( -- * Exported types DOMTextTrackList(..) , DOMTextTrackListK , toDOMTextTrackList , noDOMTextTrackList , -- * Methods -- ** dOMTextTrackListDispatchEvent DOMTextTrackListDispatchEventMethodInfo , dOMTextTrackListDispatchEvent , -- ** dOMTextTrackListGetLength DOMTextTrackListGetLengthMethodInfo , dOMTextTrackListGetLength , -- ** dOMTextTrackListGetTrackById DOMTextTrackListGetTrackByIdMethodInfo , dOMTextTrackListGetTrackById , -- ** dOMTextTrackListItem DOMTextTrackListItemMethodInfo , dOMTextTrackListItem , -- * Properties -- ** Length DOMTextTrackListLengthPropertyInfo , dOMTextTrackListLength , getDOMTextTrackListLength , ) 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 DOMTextTrackList = DOMTextTrackList (ForeignPtr DOMTextTrackList) foreign import ccall "webkit_dom_text_track_list_get_type" c_webkit_dom_text_track_list_get_type :: IO GType type instance ParentTypes DOMTextTrackList = DOMTextTrackListParentTypes type DOMTextTrackListParentTypes = '[DOMObject, GObject.Object, DOMEventTarget] instance GObject DOMTextTrackList where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_webkit_dom_text_track_list_get_type class GObject o => DOMTextTrackListK o instance (GObject o, IsDescendantOf DOMTextTrackList o) => DOMTextTrackListK o toDOMTextTrackList :: DOMTextTrackListK o => o -> IO DOMTextTrackList toDOMTextTrackList = unsafeCastTo DOMTextTrackList noDOMTextTrackList :: Maybe DOMTextTrackList noDOMTextTrackList = Nothing type family ResolveDOMTextTrackListMethod (t :: Symbol) (o :: *) :: * where ResolveDOMTextTrackListMethod "addEventListener" o = DOMEventTargetAddEventListenerMethodInfo ResolveDOMTextTrackListMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo ResolveDOMTextTrackListMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo ResolveDOMTextTrackListMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo ResolveDOMTextTrackListMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo ResolveDOMTextTrackListMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo ResolveDOMTextTrackListMethod "item" o = DOMTextTrackListItemMethodInfo ResolveDOMTextTrackListMethod "notify" o = GObject.ObjectNotifyMethodInfo ResolveDOMTextTrackListMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo ResolveDOMTextTrackListMethod "ref" o = GObject.ObjectRefMethodInfo ResolveDOMTextTrackListMethod "refSink" o = GObject.ObjectRefSinkMethodInfo ResolveDOMTextTrackListMethod "removeEventListener" o = DOMEventTargetRemoveEventListenerMethodInfo ResolveDOMTextTrackListMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo ResolveDOMTextTrackListMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo ResolveDOMTextTrackListMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo ResolveDOMTextTrackListMethod "stealData" o = GObject.ObjectStealDataMethodInfo ResolveDOMTextTrackListMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo ResolveDOMTextTrackListMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo ResolveDOMTextTrackListMethod "unref" o = GObject.ObjectUnrefMethodInfo ResolveDOMTextTrackListMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo ResolveDOMTextTrackListMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveDOMTextTrackListMethod "getLength" o = DOMTextTrackListGetLengthMethodInfo ResolveDOMTextTrackListMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo ResolveDOMTextTrackListMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo ResolveDOMTextTrackListMethod "getTrackById" o = DOMTextTrackListGetTrackByIdMethodInfo ResolveDOMTextTrackListMethod "setData" o = GObject.ObjectSetDataMethodInfo ResolveDOMTextTrackListMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo ResolveDOMTextTrackListMethod l o = MethodResolutionFailed l o instance (info ~ ResolveDOMTextTrackListMethod t DOMTextTrackList, MethodInfo info DOMTextTrackList p) => IsLabelProxy t (DOMTextTrackList -> p) where fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) #if MIN_VERSION_base(4,9,0) instance (info ~ ResolveDOMTextTrackListMethod t DOMTextTrackList, MethodInfo info DOMTextTrackList p) => IsLabel t (DOMTextTrackList -> p) where fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) #endif -- VVV Prop "length" -- Type: TBasicType TULong -- Flags: [PropertyReadable] -- Nullable: (Just False,Nothing) getDOMTextTrackListLength :: (MonadIO m, DOMTextTrackListK o) => o -> m CULong getDOMTextTrackListLength obj = liftIO $ getObjectPropertyULong obj "length" data DOMTextTrackListLengthPropertyInfo instance AttrInfo DOMTextTrackListLengthPropertyInfo where type AttrAllowedOps DOMTextTrackListLengthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMTextTrackListLengthPropertyInfo = (~) () type AttrBaseTypeConstraint DOMTextTrackListLengthPropertyInfo = DOMTextTrackListK type AttrGetType DOMTextTrackListLengthPropertyInfo = CULong type AttrLabel DOMTextTrackListLengthPropertyInfo = "length" attrGet _ = getDOMTextTrackListLength attrSet _ = undefined attrConstruct _ = undefined attrClear _ = undefined type instance AttributeList DOMTextTrackList = DOMTextTrackListAttributeList type DOMTextTrackListAttributeList = ('[ '("coreObject", DOMObjectCoreObjectPropertyInfo), '("length", DOMTextTrackListLengthPropertyInfo)] :: [(Symbol, *)]) dOMTextTrackListLength :: AttrLabelProxy "length" dOMTextTrackListLength = AttrLabelProxy type instance SignalList DOMTextTrackList = DOMTextTrackListSignalList type DOMTextTrackListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DOMTextTrackList::dispatch_event -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", 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_text_track_list_dispatch_event" webkit_dom_text_track_list_dispatch_event :: Ptr DOMTextTrackList -> -- _obj : TInterface "WebKit" "DOMTextTrackList" Ptr DOMEvent -> -- evt : TInterface "WebKit" "DOMEvent" Ptr (Ptr GError) -> -- error IO CInt {-# DEPRECATED dOMTextTrackListDispatchEvent ["(Since version 2.4)","Use webkit_dom_event_target_dispatch_event() instead."]#-} dOMTextTrackListDispatchEvent :: (MonadIO m, DOMTextTrackListK a, DOMEventK b) => a -- _obj -> b -- evt -> m () -- result dOMTextTrackListDispatchEvent _obj evt = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let evt' = unsafeManagedPtrCastPtr evt onException (do _ <- propagateGError $ webkit_dom_text_track_list_dispatch_event _obj' evt' touchManagedPtr _obj touchManagedPtr evt return () ) (do return () ) data DOMTextTrackListDispatchEventMethodInfo instance (signature ~ (b -> m ()), MonadIO m, DOMTextTrackListK a, DOMEventK b) => MethodInfo DOMTextTrackListDispatchEventMethodInfo a signature where overloadedMethod _ = dOMTextTrackListDispatchEvent -- method DOMTextTrackList::get_length -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", 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_text_track_list_get_length" webkit_dom_text_track_list_get_length :: Ptr DOMTextTrackList -> -- _obj : TInterface "WebKit" "DOMTextTrackList" IO CULong dOMTextTrackListGetLength :: (MonadIO m, DOMTextTrackListK a) => a -- _obj -> m CULong -- result dOMTextTrackListGetLength _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_text_track_list_get_length _obj' touchManagedPtr _obj return result data DOMTextTrackListGetLengthMethodInfo instance (signature ~ (m CULong), MonadIO m, DOMTextTrackListK a) => MethodInfo DOMTextTrackListGetLengthMethodInfo a signature where overloadedMethod _ = dOMTextTrackListGetLength -- method DOMTextTrackList::get_track_by_id -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", 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" "DOMTextTrack") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_text_track_list_get_track_by_id" webkit_dom_text_track_list_get_track_by_id :: Ptr DOMTextTrackList -> -- _obj : TInterface "WebKit" "DOMTextTrackList" CString -> -- id : TBasicType TUTF8 IO (Ptr DOMTextTrack) dOMTextTrackListGetTrackById :: (MonadIO m, DOMTextTrackListK a) => a -- _obj -> T.Text -- id -> m DOMTextTrack -- result dOMTextTrackListGetTrackById _obj id = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj id' <- textToCString id result <- webkit_dom_text_track_list_get_track_by_id _obj' id' checkUnexpectedReturnNULL "webkit_dom_text_track_list_get_track_by_id" result result' <- (wrapObject DOMTextTrack) result touchManagedPtr _obj freeMem id' return result' data DOMTextTrackListGetTrackByIdMethodInfo instance (signature ~ (T.Text -> m DOMTextTrack), MonadIO m, DOMTextTrackListK a) => MethodInfo DOMTextTrackListGetTrackByIdMethodInfo a signature where overloadedMethod _ = dOMTextTrackListGetTrackById -- method DOMTextTrackList::item -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "WebKit" "DOMTextTrackList", 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" "DOMTextTrack") -- throws : False -- Skip return : False foreign import ccall "webkit_dom_text_track_list_item" webkit_dom_text_track_list_item :: Ptr DOMTextTrackList -> -- _obj : TInterface "WebKit" "DOMTextTrackList" CULong -> -- index : TBasicType TULong IO (Ptr DOMTextTrack) dOMTextTrackListItem :: (MonadIO m, DOMTextTrackListK a) => a -- _obj -> CULong -- index -> m DOMTextTrack -- result dOMTextTrackListItem _obj index = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_text_track_list_item _obj' index checkUnexpectedReturnNULL "webkit_dom_text_track_list_item" result result' <- (wrapObject DOMTextTrack) result touchManagedPtr _obj return result' data DOMTextTrackListItemMethodInfo instance (signature ~ (CULong -> m DOMTextTrack), MonadIO m, DOMTextTrackListK a) => MethodInfo DOMTextTrackListItemMethodInfo a signature where overloadedMethod _ = dOMTextTrackListItem