module GI.WebKit.Objects.DOMVideoTrack
(
DOMVideoTrack(..) ,
DOMVideoTrackK ,
toDOMVideoTrack ,
noDOMVideoTrack ,
dOMVideoTrackGetId ,
dOMVideoTrackGetKind ,
dOMVideoTrackGetLabel ,
dOMVideoTrackGetLanguage ,
dOMVideoTrackGetSelected ,
dOMVideoTrackSetSelected ,
DOMVideoTrackIdPropertyInfo ,
getDOMVideoTrackId ,
DOMVideoTrackKindPropertyInfo ,
getDOMVideoTrackKind ,
DOMVideoTrackLabelPropertyInfo ,
getDOMVideoTrackLabel ,
DOMVideoTrackLanguagePropertyInfo ,
getDOMVideoTrackLanguage ,
DOMVideoTrackSelectedPropertyInfo ,
constructDOMVideoTrackSelected ,
getDOMVideoTrackSelected ,
setDOMVideoTrackSelected ,
) 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 DOMVideoTrack = DOMVideoTrack (ForeignPtr DOMVideoTrack)
foreign import ccall "webkit_dom_video_track_get_type"
c_webkit_dom_video_track_get_type :: IO GType
type instance ParentTypes DOMVideoTrack = DOMVideoTrackParentTypes
type DOMVideoTrackParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMVideoTrack where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_video_track_get_type
class GObject o => DOMVideoTrackK o
instance (GObject o, IsDescendantOf DOMVideoTrack o) => DOMVideoTrackK o
toDOMVideoTrack :: DOMVideoTrackK o => o -> IO DOMVideoTrack
toDOMVideoTrack = unsafeCastTo DOMVideoTrack
noDOMVideoTrack :: Maybe DOMVideoTrack
noDOMVideoTrack = Nothing
getDOMVideoTrackId :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text
getDOMVideoTrackId obj = liftIO $ getObjectPropertyString obj "id"
data DOMVideoTrackIdPropertyInfo
instance AttrInfo DOMVideoTrackIdPropertyInfo where
type AttrAllowedOps DOMVideoTrackIdPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMVideoTrackIdPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMVideoTrackIdPropertyInfo = DOMVideoTrackK
type AttrGetType DOMVideoTrackIdPropertyInfo = T.Text
type AttrLabel DOMVideoTrackIdPropertyInfo = "DOMVideoTrack::id"
attrGet _ = getDOMVideoTrackId
attrSet _ = undefined
attrConstruct _ = undefined
getDOMVideoTrackKind :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text
getDOMVideoTrackKind obj = liftIO $ getObjectPropertyString obj "kind"
data DOMVideoTrackKindPropertyInfo
instance AttrInfo DOMVideoTrackKindPropertyInfo where
type AttrAllowedOps DOMVideoTrackKindPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMVideoTrackKindPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMVideoTrackKindPropertyInfo = DOMVideoTrackK
type AttrGetType DOMVideoTrackKindPropertyInfo = T.Text
type AttrLabel DOMVideoTrackKindPropertyInfo = "DOMVideoTrack::kind"
attrGet _ = getDOMVideoTrackKind
attrSet _ = undefined
attrConstruct _ = undefined
getDOMVideoTrackLabel :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text
getDOMVideoTrackLabel obj = liftIO $ getObjectPropertyString obj "label"
data DOMVideoTrackLabelPropertyInfo
instance AttrInfo DOMVideoTrackLabelPropertyInfo where
type AttrAllowedOps DOMVideoTrackLabelPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMVideoTrackLabelPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMVideoTrackLabelPropertyInfo = DOMVideoTrackK
type AttrGetType DOMVideoTrackLabelPropertyInfo = T.Text
type AttrLabel DOMVideoTrackLabelPropertyInfo = "DOMVideoTrack::label"
attrGet _ = getDOMVideoTrackLabel
attrSet _ = undefined
attrConstruct _ = undefined
getDOMVideoTrackLanguage :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text
getDOMVideoTrackLanguage obj = liftIO $ getObjectPropertyString obj "language"
data DOMVideoTrackLanguagePropertyInfo
instance AttrInfo DOMVideoTrackLanguagePropertyInfo where
type AttrAllowedOps DOMVideoTrackLanguagePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMVideoTrackLanguagePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMVideoTrackLanguagePropertyInfo = DOMVideoTrackK
type AttrGetType DOMVideoTrackLanguagePropertyInfo = T.Text
type AttrLabel DOMVideoTrackLanguagePropertyInfo = "DOMVideoTrack::language"
attrGet _ = getDOMVideoTrackLanguage
attrSet _ = undefined
attrConstruct _ = undefined
getDOMVideoTrackSelected :: (MonadIO m, DOMVideoTrackK o) => o -> m Bool
getDOMVideoTrackSelected obj = liftIO $ getObjectPropertyBool obj "selected"
setDOMVideoTrackSelected :: (MonadIO m, DOMVideoTrackK o) => o -> Bool -> m ()
setDOMVideoTrackSelected obj val = liftIO $ setObjectPropertyBool obj "selected" val
constructDOMVideoTrackSelected :: Bool -> IO ([Char], GValue)
constructDOMVideoTrackSelected val = constructObjectPropertyBool "selected" val
data DOMVideoTrackSelectedPropertyInfo
instance AttrInfo DOMVideoTrackSelectedPropertyInfo where
type AttrAllowedOps DOMVideoTrackSelectedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMVideoTrackSelectedPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMVideoTrackSelectedPropertyInfo = DOMVideoTrackK
type AttrGetType DOMVideoTrackSelectedPropertyInfo = Bool
type AttrLabel DOMVideoTrackSelectedPropertyInfo = "DOMVideoTrack::selected"
attrGet _ = getDOMVideoTrackSelected
attrSet _ = setDOMVideoTrackSelected
attrConstruct _ = constructDOMVideoTrackSelected
type instance AttributeList DOMVideoTrack = DOMVideoTrackAttributeList
type DOMVideoTrackAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("id", DOMVideoTrackIdPropertyInfo), '("kind", DOMVideoTrackKindPropertyInfo), '("label", DOMVideoTrackLabelPropertyInfo), '("language", DOMVideoTrackLanguagePropertyInfo), '("selected", DOMVideoTrackSelectedPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMVideoTrack = DOMVideoTrackSignalList
type DOMVideoTrackSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_video_track_get_id" webkit_dom_video_track_get_id ::
Ptr DOMVideoTrack ->
IO CString
dOMVideoTrackGetId ::
(MonadIO m, DOMVideoTrackK a) =>
a ->
m T.Text
dOMVideoTrackGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_get_id _obj'
checkUnexpectedReturnNULL "webkit_dom_video_track_get_id" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_video_track_get_kind" webkit_dom_video_track_get_kind ::
Ptr DOMVideoTrack ->
IO CString
dOMVideoTrackGetKind ::
(MonadIO m, DOMVideoTrackK a) =>
a ->
m T.Text
dOMVideoTrackGetKind _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_get_kind _obj'
checkUnexpectedReturnNULL "webkit_dom_video_track_get_kind" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_video_track_get_label" webkit_dom_video_track_get_label ::
Ptr DOMVideoTrack ->
IO CString
dOMVideoTrackGetLabel ::
(MonadIO m, DOMVideoTrackK a) =>
a ->
m T.Text
dOMVideoTrackGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_get_label _obj'
checkUnexpectedReturnNULL "webkit_dom_video_track_get_label" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_video_track_get_language" webkit_dom_video_track_get_language ::
Ptr DOMVideoTrack ->
IO CString
dOMVideoTrackGetLanguage ::
(MonadIO m, DOMVideoTrackK a) =>
a ->
m T.Text
dOMVideoTrackGetLanguage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_get_language _obj'
checkUnexpectedReturnNULL "webkit_dom_video_track_get_language" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_video_track_get_selected" webkit_dom_video_track_get_selected ::
Ptr DOMVideoTrack ->
IO CInt
dOMVideoTrackGetSelected ::
(MonadIO m, DOMVideoTrackK a) =>
a ->
m Bool
dOMVideoTrackGetSelected _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_video_track_get_selected _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_video_track_set_selected" webkit_dom_video_track_set_selected ::
Ptr DOMVideoTrack ->
CInt ->
IO ()
dOMVideoTrackSetSelected ::
(MonadIO m, DOMVideoTrackK a) =>
a ->
Bool ->
m ()
dOMVideoTrackSetSelected _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_video_track_set_selected _obj' value'
touchManagedPtr _obj
return ()