module GI.WebKit.Objects.DOMHTMLMediaElement
(
DOMHTMLMediaElement(..) ,
DOMHTMLMediaElementK ,
toDOMHTMLMediaElement ,
noDOMHTMLMediaElement ,
dOMHTMLMediaElementAddTextTrack ,
dOMHTMLMediaElementCanPlayType ,
dOMHTMLMediaElementFastSeek ,
dOMHTMLMediaElementGetAudioTracks ,
dOMHTMLMediaElementGetAutoplay ,
dOMHTMLMediaElementGetBuffered ,
dOMHTMLMediaElementGetController ,
dOMHTMLMediaElementGetControls ,
dOMHTMLMediaElementGetCurrentSrc ,
dOMHTMLMediaElementGetCurrentTime ,
dOMHTMLMediaElementGetDefaultMuted ,
dOMHTMLMediaElementGetDefaultPlaybackRate,
dOMHTMLMediaElementGetDuration ,
dOMHTMLMediaElementGetEnded ,
dOMHTMLMediaElementGetError ,
dOMHTMLMediaElementGetInitialTime ,
dOMHTMLMediaElementGetLoop ,
dOMHTMLMediaElementGetMediaGroup ,
dOMHTMLMediaElementGetMuted ,
dOMHTMLMediaElementGetNetworkState ,
dOMHTMLMediaElementGetPaused ,
dOMHTMLMediaElementGetPlaybackRate ,
dOMHTMLMediaElementGetPlayed ,
dOMHTMLMediaElementGetPreload ,
dOMHTMLMediaElementGetReadyState ,
dOMHTMLMediaElementGetSeekable ,
dOMHTMLMediaElementGetSeeking ,
dOMHTMLMediaElementGetSrc ,
dOMHTMLMediaElementGetStartTime ,
dOMHTMLMediaElementGetTextTracks ,
dOMHTMLMediaElementGetVideoTracks ,
dOMHTMLMediaElementGetVolume ,
dOMHTMLMediaElementGetWebkitAudioDecodedByteCount,
dOMHTMLMediaElementGetWebkitClosedCaptionsVisible,
dOMHTMLMediaElementGetWebkitCurrentPlaybackTargetIsWireless,
dOMHTMLMediaElementGetWebkitHasClosedCaptions,
dOMHTMLMediaElementGetWebkitPreservesPitch,
dOMHTMLMediaElementGetWebkitVideoDecodedByteCount,
dOMHTMLMediaElementLoad ,
dOMHTMLMediaElementPause ,
dOMHTMLMediaElementPlay ,
dOMHTMLMediaElementSetAutoplay ,
dOMHTMLMediaElementSetControls ,
dOMHTMLMediaElementSetCurrentTime ,
dOMHTMLMediaElementSetDefaultMuted ,
dOMHTMLMediaElementSetDefaultPlaybackRate,
dOMHTMLMediaElementSetLoop ,
dOMHTMLMediaElementSetMediaGroup ,
dOMHTMLMediaElementSetMuted ,
dOMHTMLMediaElementSetPlaybackRate ,
dOMHTMLMediaElementSetPreload ,
dOMHTMLMediaElementSetSrc ,
dOMHTMLMediaElementSetVolume ,
dOMHTMLMediaElementSetWebkitClosedCaptionsVisible,
dOMHTMLMediaElementSetWebkitPreservesPitch,
dOMHTMLMediaElementWebkitShowPlaybackTargetPicker,
DOMHTMLMediaElementAudioTracksPropertyInfo,
getDOMHTMLMediaElementAudioTracks ,
DOMHTMLMediaElementAutoplayPropertyInfo ,
constructDOMHTMLMediaElementAutoplay ,
getDOMHTMLMediaElementAutoplay ,
setDOMHTMLMediaElementAutoplay ,
DOMHTMLMediaElementBufferedPropertyInfo ,
getDOMHTMLMediaElementBuffered ,
DOMHTMLMediaElementControllerPropertyInfo,
getDOMHTMLMediaElementController ,
DOMHTMLMediaElementControlsPropertyInfo ,
constructDOMHTMLMediaElementControls ,
getDOMHTMLMediaElementControls ,
setDOMHTMLMediaElementControls ,
DOMHTMLMediaElementCurrentSrcPropertyInfo,
getDOMHTMLMediaElementCurrentSrc ,
DOMHTMLMediaElementCurrentTimePropertyInfo,
constructDOMHTMLMediaElementCurrentTime ,
getDOMHTMLMediaElementCurrentTime ,
setDOMHTMLMediaElementCurrentTime ,
DOMHTMLMediaElementDefaultMutedPropertyInfo,
constructDOMHTMLMediaElementDefaultMuted,
getDOMHTMLMediaElementDefaultMuted ,
setDOMHTMLMediaElementDefaultMuted ,
DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo,
constructDOMHTMLMediaElementDefaultPlaybackRate,
getDOMHTMLMediaElementDefaultPlaybackRate,
setDOMHTMLMediaElementDefaultPlaybackRate,
DOMHTMLMediaElementDurationPropertyInfo ,
getDOMHTMLMediaElementDuration ,
DOMHTMLMediaElementEndedPropertyInfo ,
getDOMHTMLMediaElementEnded ,
DOMHTMLMediaElementErrorPropertyInfo ,
getDOMHTMLMediaElementError ,
DOMHTMLMediaElementLoopPropertyInfo ,
constructDOMHTMLMediaElementLoop ,
getDOMHTMLMediaElementLoop ,
setDOMHTMLMediaElementLoop ,
DOMHTMLMediaElementMediaGroupPropertyInfo,
constructDOMHTMLMediaElementMediaGroup ,
getDOMHTMLMediaElementMediaGroup ,
setDOMHTMLMediaElementMediaGroup ,
DOMHTMLMediaElementMutedPropertyInfo ,
constructDOMHTMLMediaElementMuted ,
getDOMHTMLMediaElementMuted ,
setDOMHTMLMediaElementMuted ,
DOMHTMLMediaElementNetworkStatePropertyInfo,
getDOMHTMLMediaElementNetworkState ,
DOMHTMLMediaElementPausedPropertyInfo ,
getDOMHTMLMediaElementPaused ,
DOMHTMLMediaElementPlaybackRatePropertyInfo,
constructDOMHTMLMediaElementPlaybackRate,
getDOMHTMLMediaElementPlaybackRate ,
setDOMHTMLMediaElementPlaybackRate ,
DOMHTMLMediaElementPlayedPropertyInfo ,
getDOMHTMLMediaElementPlayed ,
DOMHTMLMediaElementPreloadPropertyInfo ,
constructDOMHTMLMediaElementPreload ,
getDOMHTMLMediaElementPreload ,
setDOMHTMLMediaElementPreload ,
DOMHTMLMediaElementReadyStatePropertyInfo,
getDOMHTMLMediaElementReadyState ,
DOMHTMLMediaElementSeekablePropertyInfo ,
getDOMHTMLMediaElementSeekable ,
DOMHTMLMediaElementSeekingPropertyInfo ,
getDOMHTMLMediaElementSeeking ,
DOMHTMLMediaElementSrcPropertyInfo ,
constructDOMHTMLMediaElementSrc ,
getDOMHTMLMediaElementSrc ,
setDOMHTMLMediaElementSrc ,
DOMHTMLMediaElementTextTracksPropertyInfo,
getDOMHTMLMediaElementTextTracks ,
DOMHTMLMediaElementVideoTracksPropertyInfo,
getDOMHTMLMediaElementVideoTracks ,
DOMHTMLMediaElementVolumePropertyInfo ,
constructDOMHTMLMediaElementVolume ,
getDOMHTMLMediaElementVolume ,
setDOMHTMLMediaElementVolume ,
DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo,
getDOMHTMLMediaElementWebkitAudioDecodedByteCount,
DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo,
constructDOMHTMLMediaElementWebkitClosedCaptionsVisible,
getDOMHTMLMediaElementWebkitClosedCaptionsVisible,
setDOMHTMLMediaElementWebkitClosedCaptionsVisible,
DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo,
getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless,
DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo,
getDOMHTMLMediaElementWebkitHasClosedCaptions,
DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo,
constructDOMHTMLMediaElementWebkitPreservesPitch,
getDOMHTMLMediaElementWebkitPreservesPitch,
setDOMHTMLMediaElementWebkitPreservesPitch,
DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo,
getDOMHTMLMediaElementWebkitVideoDecodedByteCount,
) 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 DOMHTMLMediaElement = DOMHTMLMediaElement (ForeignPtr DOMHTMLMediaElement)
foreign import ccall "webkit_dom_html_media_element_get_type"
c_webkit_dom_html_media_element_get_type :: IO GType
type instance ParentTypes DOMHTMLMediaElement = DOMHTMLMediaElementParentTypes
type DOMHTMLMediaElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLMediaElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_media_element_get_type
class GObject o => DOMHTMLMediaElementK o
instance (GObject o, IsDescendantOf DOMHTMLMediaElement o) => DOMHTMLMediaElementK o
toDOMHTMLMediaElement :: DOMHTMLMediaElementK o => o -> IO DOMHTMLMediaElement
toDOMHTMLMediaElement = unsafeCastTo DOMHTMLMediaElement
noDOMHTMLMediaElement :: Maybe DOMHTMLMediaElement
noDOMHTMLMediaElement = Nothing
getDOMHTMLMediaElementAudioTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMAudioTrackList
getDOMHTMLMediaElementAudioTracks obj = liftIO $ getObjectPropertyObject obj "audio-tracks" DOMAudioTrackList
data DOMHTMLMediaElementAudioTracksPropertyInfo
instance AttrInfo DOMHTMLMediaElementAudioTracksPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementAudioTracksPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementAudioTracksPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementAudioTracksPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementAudioTracksPropertyInfo = DOMAudioTrackList
type AttrLabel DOMHTMLMediaElementAudioTracksPropertyInfo = "DOMHTMLMediaElement::audio-tracks"
attrGet _ = getDOMHTMLMediaElementAudioTracks
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementAutoplay :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool
getDOMHTMLMediaElementAutoplay obj = liftIO $ getObjectPropertyBool obj "autoplay"
setDOMHTMLMediaElementAutoplay :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m ()
setDOMHTMLMediaElementAutoplay obj val = liftIO $ setObjectPropertyBool obj "autoplay" val
constructDOMHTMLMediaElementAutoplay :: Bool -> IO ([Char], GValue)
constructDOMHTMLMediaElementAutoplay val = constructObjectPropertyBool "autoplay" val
data DOMHTMLMediaElementAutoplayPropertyInfo
instance AttrInfo DOMHTMLMediaElementAutoplayPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementAutoplayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementAutoplayPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMHTMLMediaElementAutoplayPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementAutoplayPropertyInfo = Bool
type AttrLabel DOMHTMLMediaElementAutoplayPropertyInfo = "DOMHTMLMediaElement::autoplay"
attrGet _ = getDOMHTMLMediaElementAutoplay
attrSet _ = setDOMHTMLMediaElementAutoplay
attrConstruct _ = constructDOMHTMLMediaElementAutoplay
getDOMHTMLMediaElementBuffered :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges
getDOMHTMLMediaElementBuffered obj = liftIO $ getObjectPropertyObject obj "buffered" DOMTimeRanges
data DOMHTMLMediaElementBufferedPropertyInfo
instance AttrInfo DOMHTMLMediaElementBufferedPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementBufferedPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementBufferedPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementBufferedPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementBufferedPropertyInfo = DOMTimeRanges
type AttrLabel DOMHTMLMediaElementBufferedPropertyInfo = "DOMHTMLMediaElement::buffered"
attrGet _ = getDOMHTMLMediaElementBuffered
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementController :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMMediaController
getDOMHTMLMediaElementController obj = liftIO $ getObjectPropertyObject obj "controller" DOMMediaController
data DOMHTMLMediaElementControllerPropertyInfo
instance AttrInfo DOMHTMLMediaElementControllerPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementControllerPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementControllerPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementControllerPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementControllerPropertyInfo = DOMMediaController
type AttrLabel DOMHTMLMediaElementControllerPropertyInfo = "DOMHTMLMediaElement::controller"
attrGet _ = getDOMHTMLMediaElementController
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementControls :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool
getDOMHTMLMediaElementControls obj = liftIO $ getObjectPropertyBool obj "controls"
setDOMHTMLMediaElementControls :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m ()
setDOMHTMLMediaElementControls obj val = liftIO $ setObjectPropertyBool obj "controls" val
constructDOMHTMLMediaElementControls :: Bool -> IO ([Char], GValue)
constructDOMHTMLMediaElementControls val = constructObjectPropertyBool "controls" val
data DOMHTMLMediaElementControlsPropertyInfo
instance AttrInfo DOMHTMLMediaElementControlsPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementControlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementControlsPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMHTMLMediaElementControlsPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementControlsPropertyInfo = Bool
type AttrLabel DOMHTMLMediaElementControlsPropertyInfo = "DOMHTMLMediaElement::controls"
attrGet _ = getDOMHTMLMediaElementControls
attrSet _ = setDOMHTMLMediaElementControls
attrConstruct _ = constructDOMHTMLMediaElementControls
getDOMHTMLMediaElementCurrentSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text
getDOMHTMLMediaElementCurrentSrc obj = liftIO $ getObjectPropertyString obj "current-src"
data DOMHTMLMediaElementCurrentSrcPropertyInfo
instance AttrInfo DOMHTMLMediaElementCurrentSrcPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementCurrentSrcPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementCurrentSrcPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementCurrentSrcPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementCurrentSrcPropertyInfo = T.Text
type AttrLabel DOMHTMLMediaElementCurrentSrcPropertyInfo = "DOMHTMLMediaElement::current-src"
attrGet _ = getDOMHTMLMediaElementCurrentSrc
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementCurrentTime :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double
getDOMHTMLMediaElementCurrentTime obj = liftIO $ getObjectPropertyDouble obj "current-time"
setDOMHTMLMediaElementCurrentTime :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m ()
setDOMHTMLMediaElementCurrentTime obj val = liftIO $ setObjectPropertyDouble obj "current-time" val
constructDOMHTMLMediaElementCurrentTime :: Double -> IO ([Char], GValue)
constructDOMHTMLMediaElementCurrentTime val = constructObjectPropertyDouble "current-time" val
data DOMHTMLMediaElementCurrentTimePropertyInfo
instance AttrInfo DOMHTMLMediaElementCurrentTimePropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementCurrentTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementCurrentTimePropertyInfo = (~) Double
type AttrBaseTypeConstraint DOMHTMLMediaElementCurrentTimePropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementCurrentTimePropertyInfo = Double
type AttrLabel DOMHTMLMediaElementCurrentTimePropertyInfo = "DOMHTMLMediaElement::current-time"
attrGet _ = getDOMHTMLMediaElementCurrentTime
attrSet _ = setDOMHTMLMediaElementCurrentTime
attrConstruct _ = constructDOMHTMLMediaElementCurrentTime
getDOMHTMLMediaElementDefaultMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool
getDOMHTMLMediaElementDefaultMuted obj = liftIO $ getObjectPropertyBool obj "default-muted"
setDOMHTMLMediaElementDefaultMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m ()
setDOMHTMLMediaElementDefaultMuted obj val = liftIO $ setObjectPropertyBool obj "default-muted" val
constructDOMHTMLMediaElementDefaultMuted :: Bool -> IO ([Char], GValue)
constructDOMHTMLMediaElementDefaultMuted val = constructObjectPropertyBool "default-muted" val
data DOMHTMLMediaElementDefaultMutedPropertyInfo
instance AttrInfo DOMHTMLMediaElementDefaultMutedPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementDefaultMutedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementDefaultMutedPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMHTMLMediaElementDefaultMutedPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementDefaultMutedPropertyInfo = Bool
type AttrLabel DOMHTMLMediaElementDefaultMutedPropertyInfo = "DOMHTMLMediaElement::default-muted"
attrGet _ = getDOMHTMLMediaElementDefaultMuted
attrSet _ = setDOMHTMLMediaElementDefaultMuted
attrConstruct _ = constructDOMHTMLMediaElementDefaultMuted
getDOMHTMLMediaElementDefaultPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double
getDOMHTMLMediaElementDefaultPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "default-playback-rate"
setDOMHTMLMediaElementDefaultPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m ()
setDOMHTMLMediaElementDefaultPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "default-playback-rate" val
constructDOMHTMLMediaElementDefaultPlaybackRate :: Double -> IO ([Char], GValue)
constructDOMHTMLMediaElementDefaultPlaybackRate val = constructObjectPropertyDouble "default-playback-rate" val
data DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo
instance AttrInfo DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = (~) Double
type AttrBaseTypeConstraint DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = Double
type AttrLabel DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = "DOMHTMLMediaElement::default-playback-rate"
attrGet _ = getDOMHTMLMediaElementDefaultPlaybackRate
attrSet _ = setDOMHTMLMediaElementDefaultPlaybackRate
attrConstruct _ = constructDOMHTMLMediaElementDefaultPlaybackRate
getDOMHTMLMediaElementDuration :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double
getDOMHTMLMediaElementDuration obj = liftIO $ getObjectPropertyDouble obj "duration"
data DOMHTMLMediaElementDurationPropertyInfo
instance AttrInfo DOMHTMLMediaElementDurationPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementDurationPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementDurationPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementDurationPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementDurationPropertyInfo = Double
type AttrLabel DOMHTMLMediaElementDurationPropertyInfo = "DOMHTMLMediaElement::duration"
attrGet _ = getDOMHTMLMediaElementDuration
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementEnded :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool
getDOMHTMLMediaElementEnded obj = liftIO $ getObjectPropertyBool obj "ended"
data DOMHTMLMediaElementEndedPropertyInfo
instance AttrInfo DOMHTMLMediaElementEndedPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementEndedPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementEndedPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementEndedPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementEndedPropertyInfo = Bool
type AttrLabel DOMHTMLMediaElementEndedPropertyInfo = "DOMHTMLMediaElement::ended"
attrGet _ = getDOMHTMLMediaElementEnded
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementError :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMMediaError
getDOMHTMLMediaElementError obj = liftIO $ getObjectPropertyObject obj "error" DOMMediaError
data DOMHTMLMediaElementErrorPropertyInfo
instance AttrInfo DOMHTMLMediaElementErrorPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementErrorPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementErrorPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementErrorPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementErrorPropertyInfo = DOMMediaError
type AttrLabel DOMHTMLMediaElementErrorPropertyInfo = "DOMHTMLMediaElement::error"
attrGet _ = getDOMHTMLMediaElementError
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementLoop :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool
getDOMHTMLMediaElementLoop obj = liftIO $ getObjectPropertyBool obj "loop"
setDOMHTMLMediaElementLoop :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m ()
setDOMHTMLMediaElementLoop obj val = liftIO $ setObjectPropertyBool obj "loop" val
constructDOMHTMLMediaElementLoop :: Bool -> IO ([Char], GValue)
constructDOMHTMLMediaElementLoop val = constructObjectPropertyBool "loop" val
data DOMHTMLMediaElementLoopPropertyInfo
instance AttrInfo DOMHTMLMediaElementLoopPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementLoopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementLoopPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMHTMLMediaElementLoopPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementLoopPropertyInfo = Bool
type AttrLabel DOMHTMLMediaElementLoopPropertyInfo = "DOMHTMLMediaElement::loop"
attrGet _ = getDOMHTMLMediaElementLoop
attrSet _ = setDOMHTMLMediaElementLoop
attrConstruct _ = constructDOMHTMLMediaElementLoop
getDOMHTMLMediaElementMediaGroup :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text
getDOMHTMLMediaElementMediaGroup obj = liftIO $ getObjectPropertyString obj "media-group"
setDOMHTMLMediaElementMediaGroup :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m ()
setDOMHTMLMediaElementMediaGroup obj val = liftIO $ setObjectPropertyString obj "media-group" val
constructDOMHTMLMediaElementMediaGroup :: T.Text -> IO ([Char], GValue)
constructDOMHTMLMediaElementMediaGroup val = constructObjectPropertyString "media-group" val
data DOMHTMLMediaElementMediaGroupPropertyInfo
instance AttrInfo DOMHTMLMediaElementMediaGroupPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementMediaGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementMediaGroupPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLMediaElementMediaGroupPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementMediaGroupPropertyInfo = T.Text
type AttrLabel DOMHTMLMediaElementMediaGroupPropertyInfo = "DOMHTMLMediaElement::media-group"
attrGet _ = getDOMHTMLMediaElementMediaGroup
attrSet _ = setDOMHTMLMediaElementMediaGroup
attrConstruct _ = constructDOMHTMLMediaElementMediaGroup
getDOMHTMLMediaElementMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool
getDOMHTMLMediaElementMuted obj = liftIO $ getObjectPropertyBool obj "muted"
setDOMHTMLMediaElementMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m ()
setDOMHTMLMediaElementMuted obj val = liftIO $ setObjectPropertyBool obj "muted" val
constructDOMHTMLMediaElementMuted :: Bool -> IO ([Char], GValue)
constructDOMHTMLMediaElementMuted val = constructObjectPropertyBool "muted" val
data DOMHTMLMediaElementMutedPropertyInfo
instance AttrInfo DOMHTMLMediaElementMutedPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementMutedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementMutedPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMHTMLMediaElementMutedPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementMutedPropertyInfo = Bool
type AttrLabel DOMHTMLMediaElementMutedPropertyInfo = "DOMHTMLMediaElement::muted"
attrGet _ = getDOMHTMLMediaElementMuted
attrSet _ = setDOMHTMLMediaElementMuted
attrConstruct _ = constructDOMHTMLMediaElementMuted
getDOMHTMLMediaElementNetworkState :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word32
getDOMHTMLMediaElementNetworkState obj = liftIO $ getObjectPropertyCUInt obj "network-state"
data DOMHTMLMediaElementNetworkStatePropertyInfo
instance AttrInfo DOMHTMLMediaElementNetworkStatePropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementNetworkStatePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementNetworkStatePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementNetworkStatePropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementNetworkStatePropertyInfo = Word32
type AttrLabel DOMHTMLMediaElementNetworkStatePropertyInfo = "DOMHTMLMediaElement::network-state"
attrGet _ = getDOMHTMLMediaElementNetworkState
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementPaused :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool
getDOMHTMLMediaElementPaused obj = liftIO $ getObjectPropertyBool obj "paused"
data DOMHTMLMediaElementPausedPropertyInfo
instance AttrInfo DOMHTMLMediaElementPausedPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementPausedPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementPausedPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementPausedPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementPausedPropertyInfo = Bool
type AttrLabel DOMHTMLMediaElementPausedPropertyInfo = "DOMHTMLMediaElement::paused"
attrGet _ = getDOMHTMLMediaElementPaused
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double
getDOMHTMLMediaElementPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "playback-rate"
setDOMHTMLMediaElementPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m ()
setDOMHTMLMediaElementPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "playback-rate" val
constructDOMHTMLMediaElementPlaybackRate :: Double -> IO ([Char], GValue)
constructDOMHTMLMediaElementPlaybackRate val = constructObjectPropertyDouble "playback-rate" val
data DOMHTMLMediaElementPlaybackRatePropertyInfo
instance AttrInfo DOMHTMLMediaElementPlaybackRatePropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementPlaybackRatePropertyInfo = (~) Double
type AttrBaseTypeConstraint DOMHTMLMediaElementPlaybackRatePropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementPlaybackRatePropertyInfo = Double
type AttrLabel DOMHTMLMediaElementPlaybackRatePropertyInfo = "DOMHTMLMediaElement::playback-rate"
attrGet _ = getDOMHTMLMediaElementPlaybackRate
attrSet _ = setDOMHTMLMediaElementPlaybackRate
attrConstruct _ = constructDOMHTMLMediaElementPlaybackRate
getDOMHTMLMediaElementPlayed :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges
getDOMHTMLMediaElementPlayed obj = liftIO $ getObjectPropertyObject obj "played" DOMTimeRanges
data DOMHTMLMediaElementPlayedPropertyInfo
instance AttrInfo DOMHTMLMediaElementPlayedPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementPlayedPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementPlayedPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementPlayedPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementPlayedPropertyInfo = DOMTimeRanges
type AttrLabel DOMHTMLMediaElementPlayedPropertyInfo = "DOMHTMLMediaElement::played"
attrGet _ = getDOMHTMLMediaElementPlayed
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementPreload :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text
getDOMHTMLMediaElementPreload obj = liftIO $ getObjectPropertyString obj "preload"
setDOMHTMLMediaElementPreload :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m ()
setDOMHTMLMediaElementPreload obj val = liftIO $ setObjectPropertyString obj "preload" val
constructDOMHTMLMediaElementPreload :: T.Text -> IO ([Char], GValue)
constructDOMHTMLMediaElementPreload val = constructObjectPropertyString "preload" val
data DOMHTMLMediaElementPreloadPropertyInfo
instance AttrInfo DOMHTMLMediaElementPreloadPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementPreloadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementPreloadPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLMediaElementPreloadPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementPreloadPropertyInfo = T.Text
type AttrLabel DOMHTMLMediaElementPreloadPropertyInfo = "DOMHTMLMediaElement::preload"
attrGet _ = getDOMHTMLMediaElementPreload
attrSet _ = setDOMHTMLMediaElementPreload
attrConstruct _ = constructDOMHTMLMediaElementPreload
getDOMHTMLMediaElementReadyState :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word32
getDOMHTMLMediaElementReadyState obj = liftIO $ getObjectPropertyCUInt obj "ready-state"
data DOMHTMLMediaElementReadyStatePropertyInfo
instance AttrInfo DOMHTMLMediaElementReadyStatePropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementReadyStatePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementReadyStatePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementReadyStatePropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementReadyStatePropertyInfo = Word32
type AttrLabel DOMHTMLMediaElementReadyStatePropertyInfo = "DOMHTMLMediaElement::ready-state"
attrGet _ = getDOMHTMLMediaElementReadyState
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementSeekable :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges
getDOMHTMLMediaElementSeekable obj = liftIO $ getObjectPropertyObject obj "seekable" DOMTimeRanges
data DOMHTMLMediaElementSeekablePropertyInfo
instance AttrInfo DOMHTMLMediaElementSeekablePropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementSeekablePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementSeekablePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementSeekablePropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementSeekablePropertyInfo = DOMTimeRanges
type AttrLabel DOMHTMLMediaElementSeekablePropertyInfo = "DOMHTMLMediaElement::seekable"
attrGet _ = getDOMHTMLMediaElementSeekable
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementSeeking :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool
getDOMHTMLMediaElementSeeking obj = liftIO $ getObjectPropertyBool obj "seeking"
data DOMHTMLMediaElementSeekingPropertyInfo
instance AttrInfo DOMHTMLMediaElementSeekingPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementSeekingPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementSeekingPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementSeekingPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementSeekingPropertyInfo = Bool
type AttrLabel DOMHTMLMediaElementSeekingPropertyInfo = "DOMHTMLMediaElement::seeking"
attrGet _ = getDOMHTMLMediaElementSeeking
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text
getDOMHTMLMediaElementSrc obj = liftIO $ getObjectPropertyString obj "src"
setDOMHTMLMediaElementSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m ()
setDOMHTMLMediaElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val
constructDOMHTMLMediaElementSrc :: T.Text -> IO ([Char], GValue)
constructDOMHTMLMediaElementSrc val = constructObjectPropertyString "src" val
data DOMHTMLMediaElementSrcPropertyInfo
instance AttrInfo DOMHTMLMediaElementSrcPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementSrcPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLMediaElementSrcPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementSrcPropertyInfo = T.Text
type AttrLabel DOMHTMLMediaElementSrcPropertyInfo = "DOMHTMLMediaElement::src"
attrGet _ = getDOMHTMLMediaElementSrc
attrSet _ = setDOMHTMLMediaElementSrc
attrConstruct _ = constructDOMHTMLMediaElementSrc
getDOMHTMLMediaElementTextTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTextTrackList
getDOMHTMLMediaElementTextTracks obj = liftIO $ getObjectPropertyObject obj "text-tracks" DOMTextTrackList
data DOMHTMLMediaElementTextTracksPropertyInfo
instance AttrInfo DOMHTMLMediaElementTextTracksPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementTextTracksPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementTextTracksPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementTextTracksPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementTextTracksPropertyInfo = DOMTextTrackList
type AttrLabel DOMHTMLMediaElementTextTracksPropertyInfo = "DOMHTMLMediaElement::text-tracks"
attrGet _ = getDOMHTMLMediaElementTextTracks
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementVideoTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMVideoTrackList
getDOMHTMLMediaElementVideoTracks obj = liftIO $ getObjectPropertyObject obj "video-tracks" DOMVideoTrackList
data DOMHTMLMediaElementVideoTracksPropertyInfo
instance AttrInfo DOMHTMLMediaElementVideoTracksPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementVideoTracksPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementVideoTracksPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementVideoTracksPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementVideoTracksPropertyInfo = DOMVideoTrackList
type AttrLabel DOMHTMLMediaElementVideoTracksPropertyInfo = "DOMHTMLMediaElement::video-tracks"
attrGet _ = getDOMHTMLMediaElementVideoTracks
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementVolume :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double
getDOMHTMLMediaElementVolume obj = liftIO $ getObjectPropertyDouble obj "volume"
setDOMHTMLMediaElementVolume :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m ()
setDOMHTMLMediaElementVolume obj val = liftIO $ setObjectPropertyDouble obj "volume" val
constructDOMHTMLMediaElementVolume :: Double -> IO ([Char], GValue)
constructDOMHTMLMediaElementVolume val = constructObjectPropertyDouble "volume" val
data DOMHTMLMediaElementVolumePropertyInfo
instance AttrInfo DOMHTMLMediaElementVolumePropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementVolumePropertyInfo = (~) Double
type AttrBaseTypeConstraint DOMHTMLMediaElementVolumePropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementVolumePropertyInfo = Double
type AttrLabel DOMHTMLMediaElementVolumePropertyInfo = "DOMHTMLMediaElement::volume"
attrGet _ = getDOMHTMLMediaElementVolume
attrSet _ = setDOMHTMLMediaElementVolume
attrConstruct _ = constructDOMHTMLMediaElementVolume
getDOMHTMLMediaElementWebkitAudioDecodedByteCount :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word64
getDOMHTMLMediaElementWebkitAudioDecodedByteCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-audio-decoded-byte-count"
data DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo
instance AttrInfo DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = Word64
type AttrLabel DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = "DOMHTMLMediaElement::webkit-audio-decoded-byte-count"
attrGet _ = getDOMHTMLMediaElementWebkitAudioDecodedByteCount
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementWebkitClosedCaptionsVisible :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool
getDOMHTMLMediaElementWebkitClosedCaptionsVisible obj = liftIO $ getObjectPropertyBool obj "webkit-closed-captions-visible"
setDOMHTMLMediaElementWebkitClosedCaptionsVisible :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m ()
setDOMHTMLMediaElementWebkitClosedCaptionsVisible obj val = liftIO $ setObjectPropertyBool obj "webkit-closed-captions-visible" val
constructDOMHTMLMediaElementWebkitClosedCaptionsVisible :: Bool -> IO ([Char], GValue)
constructDOMHTMLMediaElementWebkitClosedCaptionsVisible val = constructObjectPropertyBool "webkit-closed-captions-visible" val
data DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo
instance AttrInfo DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = Bool
type AttrLabel DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = "DOMHTMLMediaElement::webkit-closed-captions-visible"
attrGet _ = getDOMHTMLMediaElementWebkitClosedCaptionsVisible
attrSet _ = setDOMHTMLMediaElementWebkitClosedCaptionsVisible
attrConstruct _ = constructDOMHTMLMediaElementWebkitClosedCaptionsVisible
getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool
getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless obj = liftIO $ getObjectPropertyBool obj "webkit-current-playback-target-is-wireless"
data DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo
instance AttrInfo DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = Bool
type AttrLabel DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = "DOMHTMLMediaElement::webkit-current-playback-target-is-wireless"
attrGet _ = getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementWebkitHasClosedCaptions :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool
getDOMHTMLMediaElementWebkitHasClosedCaptions obj = liftIO $ getObjectPropertyBool obj "webkit-has-closed-captions"
data DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo
instance AttrInfo DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = Bool
type AttrLabel DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = "DOMHTMLMediaElement::webkit-has-closed-captions"
attrGet _ = getDOMHTMLMediaElementWebkitHasClosedCaptions
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLMediaElementWebkitPreservesPitch :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool
getDOMHTMLMediaElementWebkitPreservesPitch obj = liftIO $ getObjectPropertyBool obj "webkit-preserves-pitch"
setDOMHTMLMediaElementWebkitPreservesPitch :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m ()
setDOMHTMLMediaElementWebkitPreservesPitch obj val = liftIO $ setObjectPropertyBool obj "webkit-preserves-pitch" val
constructDOMHTMLMediaElementWebkitPreservesPitch :: Bool -> IO ([Char], GValue)
constructDOMHTMLMediaElementWebkitPreservesPitch val = constructObjectPropertyBool "webkit-preserves-pitch" val
data DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo
instance AttrInfo DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = Bool
type AttrLabel DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = "DOMHTMLMediaElement::webkit-preserves-pitch"
attrGet _ = getDOMHTMLMediaElementWebkitPreservesPitch
attrSet _ = setDOMHTMLMediaElementWebkitPreservesPitch
attrConstruct _ = constructDOMHTMLMediaElementWebkitPreservesPitch
getDOMHTMLMediaElementWebkitVideoDecodedByteCount :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word64
getDOMHTMLMediaElementWebkitVideoDecodedByteCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-video-decoded-byte-count"
data DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo
instance AttrInfo DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo where
type AttrAllowedOps DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = DOMHTMLMediaElementK
type AttrGetType DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = Word64
type AttrLabel DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = "DOMHTMLMediaElement::webkit-video-decoded-byte-count"
attrGet _ = getDOMHTMLMediaElementWebkitVideoDecodedByteCount
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMHTMLMediaElement = DOMHTMLMediaElementAttributeList
type DOMHTMLMediaElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("audio-tracks", DOMHTMLMediaElementAudioTracksPropertyInfo), '("autoplay", DOMHTMLMediaElementAutoplayPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("buffered", DOMHTMLMediaElementBufferedPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("controller", DOMHTMLMediaElementControllerPropertyInfo), '("controls", DOMHTMLMediaElementControlsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-src", DOMHTMLMediaElementCurrentSrcPropertyInfo), '("current-time", DOMHTMLMediaElementCurrentTimePropertyInfo), '("default-muted", DOMHTMLMediaElementDefaultMutedPropertyInfo), '("default-playback-rate", DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("duration", DOMHTMLMediaElementDurationPropertyInfo), '("ended", DOMHTMLMediaElementEndedPropertyInfo), '("error", DOMHTMLMediaElementErrorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMediaElementLoopPropertyInfo), '("media-group", DOMHTMLMediaElementMediaGroupPropertyInfo), '("muted", DOMHTMLMediaElementMutedPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("network-state", DOMHTMLMediaElementNetworkStatePropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("paused", DOMHTMLMediaElementPausedPropertyInfo), '("playback-rate", DOMHTMLMediaElementPlaybackRatePropertyInfo), '("played", DOMHTMLMediaElementPlayedPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("preload", DOMHTMLMediaElementPreloadPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMHTMLMediaElementReadyStatePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("seekable", DOMHTMLMediaElementSeekablePropertyInfo), '("seeking", DOMHTMLMediaElementSeekingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLMediaElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("text-tracks", DOMHTMLMediaElementTextTracksPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("video-tracks", DOMHTMLMediaElementVideoTracksPropertyInfo), '("volume", DOMHTMLMediaElementVolumePropertyInfo), '("webkit-audio-decoded-byte-count", DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo), '("webkit-closed-captions-visible", DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo), '("webkit-current-playback-target-is-wireless", DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo), '("webkit-has-closed-captions", DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo), '("webkit-preserves-pitch", DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkit-video-decoded-byte-count", DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMHTMLMediaElement = DOMHTMLMediaElementSignalList
type DOMHTMLMediaElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_html_media_element_add_text_track" webkit_dom_html_media_element_add_text_track ::
Ptr DOMHTMLMediaElement ->
CString ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr DOMTextTrack)
dOMHTMLMediaElementAddTextTrack ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
T.Text ->
T.Text ->
T.Text ->
m DOMTextTrack
dOMHTMLMediaElementAddTextTrack _obj kind label language = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
kind' <- textToCString kind
label' <- textToCString label
language' <- textToCString language
onException (do
result <- propagateGError $ webkit_dom_html_media_element_add_text_track _obj' kind' label' language'
checkUnexpectedReturnNULL "webkit_dom_html_media_element_add_text_track" result
result' <- (wrapObject DOMTextTrack) result
touchManagedPtr _obj
freeMem kind'
freeMem label'
freeMem language'
return result'
) (do
freeMem kind'
freeMem label'
freeMem language'
)
foreign import ccall "webkit_dom_html_media_element_can_play_type" webkit_dom_html_media_element_can_play_type ::
Ptr DOMHTMLMediaElement ->
CString ->
IO CString
dOMHTMLMediaElementCanPlayType ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
T.Text ->
m T.Text
dOMHTMLMediaElementCanPlayType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
type_' <- textToCString type_
result <- webkit_dom_html_media_element_can_play_type _obj' type_'
checkUnexpectedReturnNULL "webkit_dom_html_media_element_can_play_type" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem type_'
return result'
foreign import ccall "webkit_dom_html_media_element_fast_seek" webkit_dom_html_media_element_fast_seek ::
Ptr DOMHTMLMediaElement ->
CDouble ->
IO ()
dOMHTMLMediaElementFastSeek ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
Double ->
m ()
dOMHTMLMediaElementFastSeek _obj time = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let time' = realToFrac time
webkit_dom_html_media_element_fast_seek _obj' time'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_media_element_get_audio_tracks" webkit_dom_html_media_element_get_audio_tracks ::
Ptr DOMHTMLMediaElement ->
IO (Ptr DOMAudioTrackList)
dOMHTMLMediaElementGetAudioTracks ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m DOMAudioTrackList
dOMHTMLMediaElementGetAudioTracks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_audio_tracks _obj'
checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_audio_tracks" result
result' <- (wrapObject DOMAudioTrackList) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_autoplay" webkit_dom_html_media_element_get_autoplay ::
Ptr DOMHTMLMediaElement ->
IO CInt
dOMHTMLMediaElementGetAutoplay ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Bool
dOMHTMLMediaElementGetAutoplay _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_autoplay _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_buffered" webkit_dom_html_media_element_get_buffered ::
Ptr DOMHTMLMediaElement ->
IO (Ptr DOMTimeRanges)
dOMHTMLMediaElementGetBuffered ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m DOMTimeRanges
dOMHTMLMediaElementGetBuffered _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_buffered _obj'
checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_buffered" result
result' <- (wrapObject DOMTimeRanges) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_controller" webkit_dom_html_media_element_get_controller ::
Ptr DOMHTMLMediaElement ->
IO (Ptr DOMMediaController)
dOMHTMLMediaElementGetController ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m DOMMediaController
dOMHTMLMediaElementGetController _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_controller _obj'
checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_controller" result
result' <- (wrapObject DOMMediaController) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_controls" webkit_dom_html_media_element_get_controls ::
Ptr DOMHTMLMediaElement ->
IO CInt
dOMHTMLMediaElementGetControls ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Bool
dOMHTMLMediaElementGetControls _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_controls _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_current_src" webkit_dom_html_media_element_get_current_src ::
Ptr DOMHTMLMediaElement ->
IO CString
dOMHTMLMediaElementGetCurrentSrc ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m T.Text
dOMHTMLMediaElementGetCurrentSrc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_current_src _obj'
checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_current_src" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_current_time" webkit_dom_html_media_element_get_current_time ::
Ptr DOMHTMLMediaElement ->
IO CDouble
dOMHTMLMediaElementGetCurrentTime ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Double
dOMHTMLMediaElementGetCurrentTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_current_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_default_muted" webkit_dom_html_media_element_get_default_muted ::
Ptr DOMHTMLMediaElement ->
IO CInt
dOMHTMLMediaElementGetDefaultMuted ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Bool
dOMHTMLMediaElementGetDefaultMuted _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_default_muted _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_default_playback_rate" webkit_dom_html_media_element_get_default_playback_rate ::
Ptr DOMHTMLMediaElement ->
IO CDouble
dOMHTMLMediaElementGetDefaultPlaybackRate ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Double
dOMHTMLMediaElementGetDefaultPlaybackRate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_default_playback_rate _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_duration" webkit_dom_html_media_element_get_duration ::
Ptr DOMHTMLMediaElement ->
IO CDouble
dOMHTMLMediaElementGetDuration ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Double
dOMHTMLMediaElementGetDuration _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_duration _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_ended" webkit_dom_html_media_element_get_ended ::
Ptr DOMHTMLMediaElement ->
IO CInt
dOMHTMLMediaElementGetEnded ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Bool
dOMHTMLMediaElementGetEnded _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_ended _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_error" webkit_dom_html_media_element_get_error ::
Ptr DOMHTMLMediaElement ->
IO (Ptr DOMMediaError)
dOMHTMLMediaElementGetError ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m DOMMediaError
dOMHTMLMediaElementGetError _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_error _obj'
checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_error" result
result' <- (wrapObject DOMMediaError) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_initial_time" webkit_dom_html_media_element_get_initial_time ::
Ptr DOMHTMLMediaElement ->
IO CDouble
dOMHTMLMediaElementGetInitialTime ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Double
dOMHTMLMediaElementGetInitialTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_initial_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_loop" webkit_dom_html_media_element_get_loop ::
Ptr DOMHTMLMediaElement ->
IO CInt
dOMHTMLMediaElementGetLoop ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Bool
dOMHTMLMediaElementGetLoop _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_loop _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_media_group" webkit_dom_html_media_element_get_media_group ::
Ptr DOMHTMLMediaElement ->
IO CString
dOMHTMLMediaElementGetMediaGroup ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m T.Text
dOMHTMLMediaElementGetMediaGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_media_group _obj'
checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_media_group" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_muted" webkit_dom_html_media_element_get_muted ::
Ptr DOMHTMLMediaElement ->
IO CInt
dOMHTMLMediaElementGetMuted ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Bool
dOMHTMLMediaElementGetMuted _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_muted _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_network_state" webkit_dom_html_media_element_get_network_state ::
Ptr DOMHTMLMediaElement ->
IO Word16
dOMHTMLMediaElementGetNetworkState ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Word16
dOMHTMLMediaElementGetNetworkState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_network_state _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_media_element_get_paused" webkit_dom_html_media_element_get_paused ::
Ptr DOMHTMLMediaElement ->
IO CInt
dOMHTMLMediaElementGetPaused ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Bool
dOMHTMLMediaElementGetPaused _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_paused _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_playback_rate" webkit_dom_html_media_element_get_playback_rate ::
Ptr DOMHTMLMediaElement ->
IO CDouble
dOMHTMLMediaElementGetPlaybackRate ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Double
dOMHTMLMediaElementGetPlaybackRate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_playback_rate _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_played" webkit_dom_html_media_element_get_played ::
Ptr DOMHTMLMediaElement ->
IO (Ptr DOMTimeRanges)
dOMHTMLMediaElementGetPlayed ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m DOMTimeRanges
dOMHTMLMediaElementGetPlayed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_played _obj'
checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_played" result
result' <- (wrapObject DOMTimeRanges) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_preload" webkit_dom_html_media_element_get_preload ::
Ptr DOMHTMLMediaElement ->
IO CString
dOMHTMLMediaElementGetPreload ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m T.Text
dOMHTMLMediaElementGetPreload _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_preload _obj'
checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_preload" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_ready_state" webkit_dom_html_media_element_get_ready_state ::
Ptr DOMHTMLMediaElement ->
IO Word16
dOMHTMLMediaElementGetReadyState ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Word16
dOMHTMLMediaElementGetReadyState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_ready_state _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_media_element_get_seekable" webkit_dom_html_media_element_get_seekable ::
Ptr DOMHTMLMediaElement ->
IO (Ptr DOMTimeRanges)
dOMHTMLMediaElementGetSeekable ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m DOMTimeRanges
dOMHTMLMediaElementGetSeekable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_seekable _obj'
checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_seekable" result
result' <- (wrapObject DOMTimeRanges) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_seeking" webkit_dom_html_media_element_get_seeking ::
Ptr DOMHTMLMediaElement ->
IO CInt
dOMHTMLMediaElementGetSeeking ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Bool
dOMHTMLMediaElementGetSeeking _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_seeking _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_src" webkit_dom_html_media_element_get_src ::
Ptr DOMHTMLMediaElement ->
IO CString
dOMHTMLMediaElementGetSrc ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m T.Text
dOMHTMLMediaElementGetSrc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_src _obj'
checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_src" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_start_time" webkit_dom_html_media_element_get_start_time ::
Ptr DOMHTMLMediaElement ->
IO CDouble
dOMHTMLMediaElementGetStartTime ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Double
dOMHTMLMediaElementGetStartTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_start_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_text_tracks" webkit_dom_html_media_element_get_text_tracks ::
Ptr DOMHTMLMediaElement ->
IO (Ptr DOMTextTrackList)
dOMHTMLMediaElementGetTextTracks ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m DOMTextTrackList
dOMHTMLMediaElementGetTextTracks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_text_tracks _obj'
checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_text_tracks" result
result' <- (newObject DOMTextTrackList) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_video_tracks" webkit_dom_html_media_element_get_video_tracks ::
Ptr DOMHTMLMediaElement ->
IO (Ptr DOMVideoTrackList)
dOMHTMLMediaElementGetVideoTracks ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m DOMVideoTrackList
dOMHTMLMediaElementGetVideoTracks _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_video_tracks _obj'
checkUnexpectedReturnNULL "webkit_dom_html_media_element_get_video_tracks" result
result' <- (newObject DOMVideoTrackList) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_volume" webkit_dom_html_media_element_get_volume ::
Ptr DOMHTMLMediaElement ->
IO CDouble
dOMHTMLMediaElementGetVolume ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Double
dOMHTMLMediaElementGetVolume _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_volume _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_webkit_audio_decoded_byte_count" webkit_dom_html_media_element_get_webkit_audio_decoded_byte_count ::
Ptr DOMHTMLMediaElement ->
IO Word64
dOMHTMLMediaElementGetWebkitAudioDecodedByteCount ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Word64
dOMHTMLMediaElementGetWebkitAudioDecodedByteCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_webkit_audio_decoded_byte_count _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_media_element_get_webkit_closed_captions_visible" webkit_dom_html_media_element_get_webkit_closed_captions_visible ::
Ptr DOMHTMLMediaElement ->
IO CInt
dOMHTMLMediaElementGetWebkitClosedCaptionsVisible ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Bool
dOMHTMLMediaElementGetWebkitClosedCaptionsVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_webkit_closed_captions_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_webkit_current_playback_target_is_wireless" webkit_dom_html_media_element_get_webkit_current_playback_target_is_wireless ::
Ptr DOMHTMLMediaElement ->
IO CInt
dOMHTMLMediaElementGetWebkitCurrentPlaybackTargetIsWireless ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Bool
dOMHTMLMediaElementGetWebkitCurrentPlaybackTargetIsWireless _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_webkit_current_playback_target_is_wireless _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_webkit_has_closed_captions" webkit_dom_html_media_element_get_webkit_has_closed_captions ::
Ptr DOMHTMLMediaElement ->
IO CInt
dOMHTMLMediaElementGetWebkitHasClosedCaptions ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Bool
dOMHTMLMediaElementGetWebkitHasClosedCaptions _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_webkit_has_closed_captions _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_webkit_preserves_pitch" webkit_dom_html_media_element_get_webkit_preserves_pitch ::
Ptr DOMHTMLMediaElement ->
IO CInt
dOMHTMLMediaElementGetWebkitPreservesPitch ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Bool
dOMHTMLMediaElementGetWebkitPreservesPitch _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_webkit_preserves_pitch _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_media_element_get_webkit_video_decoded_byte_count" webkit_dom_html_media_element_get_webkit_video_decoded_byte_count ::
Ptr DOMHTMLMediaElement ->
IO Word64
dOMHTMLMediaElementGetWebkitVideoDecodedByteCount ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m Word64
dOMHTMLMediaElementGetWebkitVideoDecodedByteCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_media_element_get_webkit_video_decoded_byte_count _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_media_element_load" webkit_dom_html_media_element_load ::
Ptr DOMHTMLMediaElement ->
IO ()
dOMHTMLMediaElementLoad ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m ()
dOMHTMLMediaElementLoad _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_media_element_load _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_media_element_pause" webkit_dom_html_media_element_pause ::
Ptr DOMHTMLMediaElement ->
IO ()
dOMHTMLMediaElementPause ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m ()
dOMHTMLMediaElementPause _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_media_element_pause _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_media_element_play" webkit_dom_html_media_element_play ::
Ptr DOMHTMLMediaElement ->
IO ()
dOMHTMLMediaElementPlay ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m ()
dOMHTMLMediaElementPlay _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_media_element_play _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_media_element_set_autoplay" webkit_dom_html_media_element_set_autoplay ::
Ptr DOMHTMLMediaElement ->
CInt ->
IO ()
dOMHTMLMediaElementSetAutoplay ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
Bool ->
m ()
dOMHTMLMediaElementSetAutoplay _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_media_element_set_autoplay _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_media_element_set_controls" webkit_dom_html_media_element_set_controls ::
Ptr DOMHTMLMediaElement ->
CInt ->
IO ()
dOMHTMLMediaElementSetControls ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
Bool ->
m ()
dOMHTMLMediaElementSetControls _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_media_element_set_controls _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_media_element_set_current_time" webkit_dom_html_media_element_set_current_time ::
Ptr DOMHTMLMediaElement ->
CDouble ->
Ptr (Ptr GError) ->
IO ()
dOMHTMLMediaElementSetCurrentTime ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
Double ->
m ()
dOMHTMLMediaElementSetCurrentTime _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
onException (do
propagateGError $ webkit_dom_html_media_element_set_current_time _obj' value'
touchManagedPtr _obj
return ()
) (do
return ()
)
foreign import ccall "webkit_dom_html_media_element_set_default_muted" webkit_dom_html_media_element_set_default_muted ::
Ptr DOMHTMLMediaElement ->
CInt ->
IO ()
dOMHTMLMediaElementSetDefaultMuted ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
Bool ->
m ()
dOMHTMLMediaElementSetDefaultMuted _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_media_element_set_default_muted _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_media_element_set_default_playback_rate" webkit_dom_html_media_element_set_default_playback_rate ::
Ptr DOMHTMLMediaElement ->
CDouble ->
IO ()
dOMHTMLMediaElementSetDefaultPlaybackRate ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
Double ->
m ()
dOMHTMLMediaElementSetDefaultPlaybackRate _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
webkit_dom_html_media_element_set_default_playback_rate _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_media_element_set_loop" webkit_dom_html_media_element_set_loop ::
Ptr DOMHTMLMediaElement ->
CInt ->
IO ()
dOMHTMLMediaElementSetLoop ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
Bool ->
m ()
dOMHTMLMediaElementSetLoop _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_media_element_set_loop _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_media_element_set_media_group" webkit_dom_html_media_element_set_media_group ::
Ptr DOMHTMLMediaElement ->
CString ->
IO ()
dOMHTMLMediaElementSetMediaGroup ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLMediaElementSetMediaGroup _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_media_element_set_media_group _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_media_element_set_muted" webkit_dom_html_media_element_set_muted ::
Ptr DOMHTMLMediaElement ->
CInt ->
IO ()
dOMHTMLMediaElementSetMuted ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
Bool ->
m ()
dOMHTMLMediaElementSetMuted _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_media_element_set_muted _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_media_element_set_playback_rate" webkit_dom_html_media_element_set_playback_rate ::
Ptr DOMHTMLMediaElement ->
CDouble ->
IO ()
dOMHTMLMediaElementSetPlaybackRate ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
Double ->
m ()
dOMHTMLMediaElementSetPlaybackRate _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
webkit_dom_html_media_element_set_playback_rate _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_media_element_set_preload" webkit_dom_html_media_element_set_preload ::
Ptr DOMHTMLMediaElement ->
CString ->
IO ()
dOMHTMLMediaElementSetPreload ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLMediaElementSetPreload _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_media_element_set_preload _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_media_element_set_src" webkit_dom_html_media_element_set_src ::
Ptr DOMHTMLMediaElement ->
CString ->
IO ()
dOMHTMLMediaElementSetSrc ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLMediaElementSetSrc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_media_element_set_src _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_media_element_set_volume" webkit_dom_html_media_element_set_volume ::
Ptr DOMHTMLMediaElement ->
CDouble ->
Ptr (Ptr GError) ->
IO ()
dOMHTMLMediaElementSetVolume ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
Double ->
m ()
dOMHTMLMediaElementSetVolume _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
onException (do
propagateGError $ webkit_dom_html_media_element_set_volume _obj' value'
touchManagedPtr _obj
return ()
) (do
return ()
)
foreign import ccall "webkit_dom_html_media_element_set_webkit_closed_captions_visible" webkit_dom_html_media_element_set_webkit_closed_captions_visible ::
Ptr DOMHTMLMediaElement ->
CInt ->
IO ()
dOMHTMLMediaElementSetWebkitClosedCaptionsVisible ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
Bool ->
m ()
dOMHTMLMediaElementSetWebkitClosedCaptionsVisible _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_media_element_set_webkit_closed_captions_visible _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_media_element_set_webkit_preserves_pitch" webkit_dom_html_media_element_set_webkit_preserves_pitch ::
Ptr DOMHTMLMediaElement ->
CInt ->
IO ()
dOMHTMLMediaElementSetWebkitPreservesPitch ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
Bool ->
m ()
dOMHTMLMediaElementSetWebkitPreservesPitch _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_media_element_set_webkit_preserves_pitch _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_media_element_webkit_show_playback_target_picker" webkit_dom_html_media_element_webkit_show_playback_target_picker ::
Ptr DOMHTMLMediaElement ->
IO ()
dOMHTMLMediaElementWebkitShowPlaybackTargetPicker ::
(MonadIO m, DOMHTMLMediaElementK a) =>
a ->
m ()
dOMHTMLMediaElementWebkitShowPlaybackTargetPicker _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_media_element_webkit_show_playback_target_picker _obj'
touchManagedPtr _obj
return ()