module GI.WebKit.Objects.DOMAudioTrack
(
DOMAudioTrack(..) ,
DOMAudioTrackK ,
toDOMAudioTrack ,
noDOMAudioTrack ,
dOMAudioTrackGetEnabled ,
dOMAudioTrackGetId ,
dOMAudioTrackGetKind ,
dOMAudioTrackGetLabel ,
dOMAudioTrackGetLanguage ,
dOMAudioTrackSetEnabled ,
DOMAudioTrackEnabledPropertyInfo ,
constructDOMAudioTrackEnabled ,
getDOMAudioTrackEnabled ,
setDOMAudioTrackEnabled ,
DOMAudioTrackIdPropertyInfo ,
getDOMAudioTrackId ,
DOMAudioTrackKindPropertyInfo ,
getDOMAudioTrackKind ,
DOMAudioTrackLabelPropertyInfo ,
getDOMAudioTrackLabel ,
DOMAudioTrackLanguagePropertyInfo ,
getDOMAudioTrackLanguage ,
) 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 DOMAudioTrack = DOMAudioTrack (ForeignPtr DOMAudioTrack)
foreign import ccall "webkit_dom_audio_track_get_type"
c_webkit_dom_audio_track_get_type :: IO GType
type instance ParentTypes DOMAudioTrack = DOMAudioTrackParentTypes
type DOMAudioTrackParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMAudioTrack where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_audio_track_get_type
class GObject o => DOMAudioTrackK o
instance (GObject o, IsDescendantOf DOMAudioTrack o) => DOMAudioTrackK o
toDOMAudioTrack :: DOMAudioTrackK o => o -> IO DOMAudioTrack
toDOMAudioTrack = unsafeCastTo DOMAudioTrack
noDOMAudioTrack :: Maybe DOMAudioTrack
noDOMAudioTrack = Nothing
getDOMAudioTrackEnabled :: (MonadIO m, DOMAudioTrackK o) => o -> m Bool
getDOMAudioTrackEnabled obj = liftIO $ getObjectPropertyBool obj "enabled"
setDOMAudioTrackEnabled :: (MonadIO m, DOMAudioTrackK o) => o -> Bool -> m ()
setDOMAudioTrackEnabled obj val = liftIO $ setObjectPropertyBool obj "enabled" val
constructDOMAudioTrackEnabled :: Bool -> IO ([Char], GValue)
constructDOMAudioTrackEnabled val = constructObjectPropertyBool "enabled" val
data DOMAudioTrackEnabledPropertyInfo
instance AttrInfo DOMAudioTrackEnabledPropertyInfo where
type AttrAllowedOps DOMAudioTrackEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMAudioTrackEnabledPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMAudioTrackEnabledPropertyInfo = DOMAudioTrackK
type AttrGetType DOMAudioTrackEnabledPropertyInfo = Bool
type AttrLabel DOMAudioTrackEnabledPropertyInfo = "DOMAudioTrack::enabled"
attrGet _ = getDOMAudioTrackEnabled
attrSet _ = setDOMAudioTrackEnabled
attrConstruct _ = constructDOMAudioTrackEnabled
getDOMAudioTrackId :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text
getDOMAudioTrackId obj = liftIO $ getObjectPropertyString obj "id"
data DOMAudioTrackIdPropertyInfo
instance AttrInfo DOMAudioTrackIdPropertyInfo where
type AttrAllowedOps DOMAudioTrackIdPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMAudioTrackIdPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMAudioTrackIdPropertyInfo = DOMAudioTrackK
type AttrGetType DOMAudioTrackIdPropertyInfo = T.Text
type AttrLabel DOMAudioTrackIdPropertyInfo = "DOMAudioTrack::id"
attrGet _ = getDOMAudioTrackId
attrSet _ = undefined
attrConstruct _ = undefined
getDOMAudioTrackKind :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text
getDOMAudioTrackKind obj = liftIO $ getObjectPropertyString obj "kind"
data DOMAudioTrackKindPropertyInfo
instance AttrInfo DOMAudioTrackKindPropertyInfo where
type AttrAllowedOps DOMAudioTrackKindPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMAudioTrackKindPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMAudioTrackKindPropertyInfo = DOMAudioTrackK
type AttrGetType DOMAudioTrackKindPropertyInfo = T.Text
type AttrLabel DOMAudioTrackKindPropertyInfo = "DOMAudioTrack::kind"
attrGet _ = getDOMAudioTrackKind
attrSet _ = undefined
attrConstruct _ = undefined
getDOMAudioTrackLabel :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text
getDOMAudioTrackLabel obj = liftIO $ getObjectPropertyString obj "label"
data DOMAudioTrackLabelPropertyInfo
instance AttrInfo DOMAudioTrackLabelPropertyInfo where
type AttrAllowedOps DOMAudioTrackLabelPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMAudioTrackLabelPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMAudioTrackLabelPropertyInfo = DOMAudioTrackK
type AttrGetType DOMAudioTrackLabelPropertyInfo = T.Text
type AttrLabel DOMAudioTrackLabelPropertyInfo = "DOMAudioTrack::label"
attrGet _ = getDOMAudioTrackLabel
attrSet _ = undefined
attrConstruct _ = undefined
getDOMAudioTrackLanguage :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text
getDOMAudioTrackLanguage obj = liftIO $ getObjectPropertyString obj "language"
data DOMAudioTrackLanguagePropertyInfo
instance AttrInfo DOMAudioTrackLanguagePropertyInfo where
type AttrAllowedOps DOMAudioTrackLanguagePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMAudioTrackLanguagePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMAudioTrackLanguagePropertyInfo = DOMAudioTrackK
type AttrGetType DOMAudioTrackLanguagePropertyInfo = T.Text
type AttrLabel DOMAudioTrackLanguagePropertyInfo = "DOMAudioTrack::language"
attrGet _ = getDOMAudioTrackLanguage
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMAudioTrack = DOMAudioTrackAttributeList
type DOMAudioTrackAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("enabled", DOMAudioTrackEnabledPropertyInfo), '("id", DOMAudioTrackIdPropertyInfo), '("kind", DOMAudioTrackKindPropertyInfo), '("label", DOMAudioTrackLabelPropertyInfo), '("language", DOMAudioTrackLanguagePropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMAudioTrack = DOMAudioTrackSignalList
type DOMAudioTrackSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_audio_track_get_enabled" webkit_dom_audio_track_get_enabled ::
Ptr DOMAudioTrack ->
IO CInt
dOMAudioTrackGetEnabled ::
(MonadIO m, DOMAudioTrackK a) =>
a ->
m Bool
dOMAudioTrackGetEnabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_audio_track_get_enabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_audio_track_get_id" webkit_dom_audio_track_get_id ::
Ptr DOMAudioTrack ->
IO CString
dOMAudioTrackGetId ::
(MonadIO m, DOMAudioTrackK a) =>
a ->
m T.Text
dOMAudioTrackGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_audio_track_get_id _obj'
checkUnexpectedReturnNULL "webkit_dom_audio_track_get_id" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_audio_track_get_kind" webkit_dom_audio_track_get_kind ::
Ptr DOMAudioTrack ->
IO CString
dOMAudioTrackGetKind ::
(MonadIO m, DOMAudioTrackK a) =>
a ->
m T.Text
dOMAudioTrackGetKind _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_audio_track_get_kind _obj'
checkUnexpectedReturnNULL "webkit_dom_audio_track_get_kind" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_audio_track_get_label" webkit_dom_audio_track_get_label ::
Ptr DOMAudioTrack ->
IO CString
dOMAudioTrackGetLabel ::
(MonadIO m, DOMAudioTrackK a) =>
a ->
m T.Text
dOMAudioTrackGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_audio_track_get_label _obj'
checkUnexpectedReturnNULL "webkit_dom_audio_track_get_label" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_audio_track_get_language" webkit_dom_audio_track_get_language ::
Ptr DOMAudioTrack ->
IO CString
dOMAudioTrackGetLanguage ::
(MonadIO m, DOMAudioTrackK a) =>
a ->
m T.Text
dOMAudioTrackGetLanguage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_audio_track_get_language _obj'
checkUnexpectedReturnNULL "webkit_dom_audio_track_get_language" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_audio_track_set_enabled" webkit_dom_audio_track_set_enabled ::
Ptr DOMAudioTrack ->
CInt ->
IO ()
dOMAudioTrackSetEnabled ::
(MonadIO m, DOMAudioTrackK a) =>
a ->
Bool ->
m ()
dOMAudioTrackSetEnabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_audio_track_set_enabled _obj' value'
touchManagedPtr _obj
return ()