module GI.WebKit.Objects.DOMMediaController
(
DOMMediaController(..) ,
IsDOMMediaController ,
toDOMMediaController ,
noDOMMediaController ,
DOMMediaControllerGetBufferedMethodInfo ,
dOMMediaControllerGetBuffered ,
DOMMediaControllerGetCurrentTimeMethodInfo,
dOMMediaControllerGetCurrentTime ,
DOMMediaControllerGetDefaultPlaybackRateMethodInfo,
dOMMediaControllerGetDefaultPlaybackRate,
DOMMediaControllerGetDurationMethodInfo ,
dOMMediaControllerGetDuration ,
DOMMediaControllerGetMutedMethodInfo ,
dOMMediaControllerGetMuted ,
DOMMediaControllerGetPausedMethodInfo ,
dOMMediaControllerGetPaused ,
DOMMediaControllerGetPlaybackRateMethodInfo,
dOMMediaControllerGetPlaybackRate ,
DOMMediaControllerGetPlaybackStateMethodInfo,
dOMMediaControllerGetPlaybackState ,
DOMMediaControllerGetPlayedMethodInfo ,
dOMMediaControllerGetPlayed ,
DOMMediaControllerGetSeekableMethodInfo ,
dOMMediaControllerGetSeekable ,
DOMMediaControllerGetVolumeMethodInfo ,
dOMMediaControllerGetVolume ,
DOMMediaControllerPauseMethodInfo ,
dOMMediaControllerPause ,
DOMMediaControllerPlayMethodInfo ,
dOMMediaControllerPlay ,
DOMMediaControllerSetCurrentTimeMethodInfo,
dOMMediaControllerSetCurrentTime ,
DOMMediaControllerSetDefaultPlaybackRateMethodInfo,
dOMMediaControllerSetDefaultPlaybackRate,
DOMMediaControllerSetMutedMethodInfo ,
dOMMediaControllerSetMuted ,
DOMMediaControllerSetPlaybackRateMethodInfo,
dOMMediaControllerSetPlaybackRate ,
DOMMediaControllerSetVolumeMethodInfo ,
dOMMediaControllerSetVolume ,
DOMMediaControllerUnpauseMethodInfo ,
dOMMediaControllerUnpause ,
DOMMediaControllerBufferedPropertyInfo ,
dOMMediaControllerBuffered ,
getDOMMediaControllerBuffered ,
DOMMediaControllerCurrentTimePropertyInfo,
constructDOMMediaControllerCurrentTime ,
dOMMediaControllerCurrentTime ,
getDOMMediaControllerCurrentTime ,
setDOMMediaControllerCurrentTime ,
DOMMediaControllerDefaultPlaybackRatePropertyInfo,
constructDOMMediaControllerDefaultPlaybackRate,
dOMMediaControllerDefaultPlaybackRate ,
getDOMMediaControllerDefaultPlaybackRate,
setDOMMediaControllerDefaultPlaybackRate,
DOMMediaControllerDurationPropertyInfo ,
dOMMediaControllerDuration ,
getDOMMediaControllerDuration ,
DOMMediaControllerMutedPropertyInfo ,
constructDOMMediaControllerMuted ,
dOMMediaControllerMuted ,
getDOMMediaControllerMuted ,
setDOMMediaControllerMuted ,
DOMMediaControllerPausedPropertyInfo ,
dOMMediaControllerPaused ,
getDOMMediaControllerPaused ,
DOMMediaControllerPlaybackRatePropertyInfo,
constructDOMMediaControllerPlaybackRate ,
dOMMediaControllerPlaybackRate ,
getDOMMediaControllerPlaybackRate ,
setDOMMediaControllerPlaybackRate ,
DOMMediaControllerPlaybackStatePropertyInfo,
dOMMediaControllerPlaybackState ,
getDOMMediaControllerPlaybackState ,
DOMMediaControllerPlayedPropertyInfo ,
dOMMediaControllerPlayed ,
getDOMMediaControllerPlayed ,
DOMMediaControllerSeekablePropertyInfo ,
dOMMediaControllerSeekable ,
getDOMMediaControllerSeekable ,
DOMMediaControllerVolumePropertyInfo ,
constructDOMMediaControllerVolume ,
dOMMediaControllerVolume ,
getDOMMediaControllerVolume ,
setDOMMediaControllerVolume ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.WebKit.Interfaces.DOMEventTarget as WebKit.DOMEventTarget
import qualified GI.WebKit.Objects.DOMObject as WebKit.DOMObject
import qualified GI.WebKit.Objects.DOMTimeRanges as WebKit.DOMTimeRanges
newtype DOMMediaController = DOMMediaController (ManagedPtr DOMMediaController)
foreign import ccall "webkit_dom_media_controller_get_type"
c_webkit_dom_media_controller_get_type :: IO GType
instance GObject DOMMediaController where
gobjectType _ = c_webkit_dom_media_controller_get_type
class GObject o => IsDOMMediaController o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DOMMediaController a) =>
IsDOMMediaController a
#endif
instance IsDOMMediaController DOMMediaController
instance WebKit.DOMObject.IsDOMObject DOMMediaController
instance GObject.Object.IsObject DOMMediaController
instance WebKit.DOMEventTarget.IsDOMEventTarget DOMMediaController
toDOMMediaController :: IsDOMMediaController o => o -> IO DOMMediaController
toDOMMediaController = unsafeCastTo DOMMediaController
noDOMMediaController :: Maybe DOMMediaController
noDOMMediaController = Nothing
type family ResolveDOMMediaControllerMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMMediaControllerMethod "addEventListener" o = WebKit.DOMEventTarget.DOMEventTargetAddEventListenerMethodInfo
ResolveDOMMediaControllerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMMediaControllerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMMediaControllerMethod "dispatchEvent" o = WebKit.DOMEventTarget.DOMEventTargetDispatchEventMethodInfo
ResolveDOMMediaControllerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMMediaControllerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMMediaControllerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMMediaControllerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMMediaControllerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMMediaControllerMethod "pause" o = DOMMediaControllerPauseMethodInfo
ResolveDOMMediaControllerMethod "play" o = DOMMediaControllerPlayMethodInfo
ResolveDOMMediaControllerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMMediaControllerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMMediaControllerMethod "removeEventListener" o = WebKit.DOMEventTarget.DOMEventTargetRemoveEventListenerMethodInfo
ResolveDOMMediaControllerMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDOMMediaControllerMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveDOMMediaControllerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMMediaControllerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMMediaControllerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMMediaControllerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMMediaControllerMethod "unpause" o = DOMMediaControllerUnpauseMethodInfo
ResolveDOMMediaControllerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMMediaControllerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMMediaControllerMethod "getBuffered" o = DOMMediaControllerGetBufferedMethodInfo
ResolveDOMMediaControllerMethod "getCurrentTime" o = DOMMediaControllerGetCurrentTimeMethodInfo
ResolveDOMMediaControllerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMMediaControllerMethod "getDefaultPlaybackRate" o = DOMMediaControllerGetDefaultPlaybackRateMethodInfo
ResolveDOMMediaControllerMethod "getDuration" o = DOMMediaControllerGetDurationMethodInfo
ResolveDOMMediaControllerMethod "getMuted" o = DOMMediaControllerGetMutedMethodInfo
ResolveDOMMediaControllerMethod "getPaused" o = DOMMediaControllerGetPausedMethodInfo
ResolveDOMMediaControllerMethod "getPlaybackRate" o = DOMMediaControllerGetPlaybackRateMethodInfo
ResolveDOMMediaControllerMethod "getPlaybackState" o = DOMMediaControllerGetPlaybackStateMethodInfo
ResolveDOMMediaControllerMethod "getPlayed" o = DOMMediaControllerGetPlayedMethodInfo
ResolveDOMMediaControllerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMMediaControllerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMMediaControllerMethod "getSeekable" o = DOMMediaControllerGetSeekableMethodInfo
ResolveDOMMediaControllerMethod "getVolume" o = DOMMediaControllerGetVolumeMethodInfo
ResolveDOMMediaControllerMethod "setCurrentTime" o = DOMMediaControllerSetCurrentTimeMethodInfo
ResolveDOMMediaControllerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMMediaControllerMethod "setDefaultPlaybackRate" o = DOMMediaControllerSetDefaultPlaybackRateMethodInfo
ResolveDOMMediaControllerMethod "setMuted" o = DOMMediaControllerSetMutedMethodInfo
ResolveDOMMediaControllerMethod "setPlaybackRate" o = DOMMediaControllerSetPlaybackRateMethodInfo
ResolveDOMMediaControllerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMMediaControllerMethod "setVolume" o = DOMMediaControllerSetVolumeMethodInfo
ResolveDOMMediaControllerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMMediaControllerMethod t DOMMediaController, O.MethodInfo info DOMMediaController p) => O.IsLabelProxy t (DOMMediaController -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMMediaControllerMethod t DOMMediaController, O.MethodInfo info DOMMediaController p) => O.IsLabel t (DOMMediaController -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getDOMMediaControllerBuffered :: (MonadIO m, IsDOMMediaController o) => o -> m (Maybe WebKit.DOMTimeRanges.DOMTimeRanges)
getDOMMediaControllerBuffered obj = liftIO $ getObjectPropertyObject obj "buffered" WebKit.DOMTimeRanges.DOMTimeRanges
data DOMMediaControllerBufferedPropertyInfo
instance AttrInfo DOMMediaControllerBufferedPropertyInfo where
type AttrAllowedOps DOMMediaControllerBufferedPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMMediaControllerBufferedPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMediaControllerBufferedPropertyInfo = IsDOMMediaController
type AttrGetType DOMMediaControllerBufferedPropertyInfo = (Maybe WebKit.DOMTimeRanges.DOMTimeRanges)
type AttrLabel DOMMediaControllerBufferedPropertyInfo = "buffered"
type AttrOrigin DOMMediaControllerBufferedPropertyInfo = DOMMediaController
attrGet _ = getDOMMediaControllerBuffered
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMMediaControllerCurrentTime :: (MonadIO m, IsDOMMediaController o) => o -> m Double
getDOMMediaControllerCurrentTime obj = liftIO $ getObjectPropertyDouble obj "current-time"
setDOMMediaControllerCurrentTime :: (MonadIO m, IsDOMMediaController o) => o -> Double -> m ()
setDOMMediaControllerCurrentTime obj val = liftIO $ setObjectPropertyDouble obj "current-time" val
constructDOMMediaControllerCurrentTime :: (IsDOMMediaController o) => Double -> IO (GValueConstruct o)
constructDOMMediaControllerCurrentTime val = constructObjectPropertyDouble "current-time" val
data DOMMediaControllerCurrentTimePropertyInfo
instance AttrInfo DOMMediaControllerCurrentTimePropertyInfo where
type AttrAllowedOps DOMMediaControllerCurrentTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMMediaControllerCurrentTimePropertyInfo = (~) Double
type AttrBaseTypeConstraint DOMMediaControllerCurrentTimePropertyInfo = IsDOMMediaController
type AttrGetType DOMMediaControllerCurrentTimePropertyInfo = Double
type AttrLabel DOMMediaControllerCurrentTimePropertyInfo = "current-time"
type AttrOrigin DOMMediaControllerCurrentTimePropertyInfo = DOMMediaController
attrGet _ = getDOMMediaControllerCurrentTime
attrSet _ = setDOMMediaControllerCurrentTime
attrConstruct _ = constructDOMMediaControllerCurrentTime
attrClear _ = undefined
getDOMMediaControllerDefaultPlaybackRate :: (MonadIO m, IsDOMMediaController o) => o -> m Double
getDOMMediaControllerDefaultPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "default-playback-rate"
setDOMMediaControllerDefaultPlaybackRate :: (MonadIO m, IsDOMMediaController o) => o -> Double -> m ()
setDOMMediaControllerDefaultPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "default-playback-rate" val
constructDOMMediaControllerDefaultPlaybackRate :: (IsDOMMediaController o) => Double -> IO (GValueConstruct o)
constructDOMMediaControllerDefaultPlaybackRate val = constructObjectPropertyDouble "default-playback-rate" val
data DOMMediaControllerDefaultPlaybackRatePropertyInfo
instance AttrInfo DOMMediaControllerDefaultPlaybackRatePropertyInfo where
type AttrAllowedOps DOMMediaControllerDefaultPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMMediaControllerDefaultPlaybackRatePropertyInfo = (~) Double
type AttrBaseTypeConstraint DOMMediaControllerDefaultPlaybackRatePropertyInfo = IsDOMMediaController
type AttrGetType DOMMediaControllerDefaultPlaybackRatePropertyInfo = Double
type AttrLabel DOMMediaControllerDefaultPlaybackRatePropertyInfo = "default-playback-rate"
type AttrOrigin DOMMediaControllerDefaultPlaybackRatePropertyInfo = DOMMediaController
attrGet _ = getDOMMediaControllerDefaultPlaybackRate
attrSet _ = setDOMMediaControllerDefaultPlaybackRate
attrConstruct _ = constructDOMMediaControllerDefaultPlaybackRate
attrClear _ = undefined
getDOMMediaControllerDuration :: (MonadIO m, IsDOMMediaController o) => o -> m Double
getDOMMediaControllerDuration obj = liftIO $ getObjectPropertyDouble obj "duration"
data DOMMediaControllerDurationPropertyInfo
instance AttrInfo DOMMediaControllerDurationPropertyInfo where
type AttrAllowedOps DOMMediaControllerDurationPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMediaControllerDurationPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMediaControllerDurationPropertyInfo = IsDOMMediaController
type AttrGetType DOMMediaControllerDurationPropertyInfo = Double
type AttrLabel DOMMediaControllerDurationPropertyInfo = "duration"
type AttrOrigin DOMMediaControllerDurationPropertyInfo = DOMMediaController
attrGet _ = getDOMMediaControllerDuration
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMMediaControllerMuted :: (MonadIO m, IsDOMMediaController o) => o -> m Bool
getDOMMediaControllerMuted obj = liftIO $ getObjectPropertyBool obj "muted"
setDOMMediaControllerMuted :: (MonadIO m, IsDOMMediaController o) => o -> Bool -> m ()
setDOMMediaControllerMuted obj val = liftIO $ setObjectPropertyBool obj "muted" val
constructDOMMediaControllerMuted :: (IsDOMMediaController o) => Bool -> IO (GValueConstruct o)
constructDOMMediaControllerMuted val = constructObjectPropertyBool "muted" val
data DOMMediaControllerMutedPropertyInfo
instance AttrInfo DOMMediaControllerMutedPropertyInfo where
type AttrAllowedOps DOMMediaControllerMutedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMMediaControllerMutedPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMMediaControllerMutedPropertyInfo = IsDOMMediaController
type AttrGetType DOMMediaControllerMutedPropertyInfo = Bool
type AttrLabel DOMMediaControllerMutedPropertyInfo = "muted"
type AttrOrigin DOMMediaControllerMutedPropertyInfo = DOMMediaController
attrGet _ = getDOMMediaControllerMuted
attrSet _ = setDOMMediaControllerMuted
attrConstruct _ = constructDOMMediaControllerMuted
attrClear _ = undefined
getDOMMediaControllerPaused :: (MonadIO m, IsDOMMediaController o) => o -> m Bool
getDOMMediaControllerPaused obj = liftIO $ getObjectPropertyBool obj "paused"
data DOMMediaControllerPausedPropertyInfo
instance AttrInfo DOMMediaControllerPausedPropertyInfo where
type AttrAllowedOps DOMMediaControllerPausedPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMediaControllerPausedPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMediaControllerPausedPropertyInfo = IsDOMMediaController
type AttrGetType DOMMediaControllerPausedPropertyInfo = Bool
type AttrLabel DOMMediaControllerPausedPropertyInfo = "paused"
type AttrOrigin DOMMediaControllerPausedPropertyInfo = DOMMediaController
attrGet _ = getDOMMediaControllerPaused
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMMediaControllerPlaybackRate :: (MonadIO m, IsDOMMediaController o) => o -> m Double
getDOMMediaControllerPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "playback-rate"
setDOMMediaControllerPlaybackRate :: (MonadIO m, IsDOMMediaController o) => o -> Double -> m ()
setDOMMediaControllerPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "playback-rate" val
constructDOMMediaControllerPlaybackRate :: (IsDOMMediaController o) => Double -> IO (GValueConstruct o)
constructDOMMediaControllerPlaybackRate val = constructObjectPropertyDouble "playback-rate" val
data DOMMediaControllerPlaybackRatePropertyInfo
instance AttrInfo DOMMediaControllerPlaybackRatePropertyInfo where
type AttrAllowedOps DOMMediaControllerPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMMediaControllerPlaybackRatePropertyInfo = (~) Double
type AttrBaseTypeConstraint DOMMediaControllerPlaybackRatePropertyInfo = IsDOMMediaController
type AttrGetType DOMMediaControllerPlaybackRatePropertyInfo = Double
type AttrLabel DOMMediaControllerPlaybackRatePropertyInfo = "playback-rate"
type AttrOrigin DOMMediaControllerPlaybackRatePropertyInfo = DOMMediaController
attrGet _ = getDOMMediaControllerPlaybackRate
attrSet _ = setDOMMediaControllerPlaybackRate
attrConstruct _ = constructDOMMediaControllerPlaybackRate
attrClear _ = undefined
getDOMMediaControllerPlaybackState :: (MonadIO m, IsDOMMediaController o) => o -> m (Maybe T.Text)
getDOMMediaControllerPlaybackState obj = liftIO $ getObjectPropertyString obj "playback-state"
data DOMMediaControllerPlaybackStatePropertyInfo
instance AttrInfo DOMMediaControllerPlaybackStatePropertyInfo where
type AttrAllowedOps DOMMediaControllerPlaybackStatePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMMediaControllerPlaybackStatePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMediaControllerPlaybackStatePropertyInfo = IsDOMMediaController
type AttrGetType DOMMediaControllerPlaybackStatePropertyInfo = (Maybe T.Text)
type AttrLabel DOMMediaControllerPlaybackStatePropertyInfo = "playback-state"
type AttrOrigin DOMMediaControllerPlaybackStatePropertyInfo = DOMMediaController
attrGet _ = getDOMMediaControllerPlaybackState
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMMediaControllerPlayed :: (MonadIO m, IsDOMMediaController o) => o -> m (Maybe WebKit.DOMTimeRanges.DOMTimeRanges)
getDOMMediaControllerPlayed obj = liftIO $ getObjectPropertyObject obj "played" WebKit.DOMTimeRanges.DOMTimeRanges
data DOMMediaControllerPlayedPropertyInfo
instance AttrInfo DOMMediaControllerPlayedPropertyInfo where
type AttrAllowedOps DOMMediaControllerPlayedPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMMediaControllerPlayedPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMediaControllerPlayedPropertyInfo = IsDOMMediaController
type AttrGetType DOMMediaControllerPlayedPropertyInfo = (Maybe WebKit.DOMTimeRanges.DOMTimeRanges)
type AttrLabel DOMMediaControllerPlayedPropertyInfo = "played"
type AttrOrigin DOMMediaControllerPlayedPropertyInfo = DOMMediaController
attrGet _ = getDOMMediaControllerPlayed
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMMediaControllerSeekable :: (MonadIO m, IsDOMMediaController o) => o -> m (Maybe WebKit.DOMTimeRanges.DOMTimeRanges)
getDOMMediaControllerSeekable obj = liftIO $ getObjectPropertyObject obj "seekable" WebKit.DOMTimeRanges.DOMTimeRanges
data DOMMediaControllerSeekablePropertyInfo
instance AttrInfo DOMMediaControllerSeekablePropertyInfo where
type AttrAllowedOps DOMMediaControllerSeekablePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMMediaControllerSeekablePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMediaControllerSeekablePropertyInfo = IsDOMMediaController
type AttrGetType DOMMediaControllerSeekablePropertyInfo = (Maybe WebKit.DOMTimeRanges.DOMTimeRanges)
type AttrLabel DOMMediaControllerSeekablePropertyInfo = "seekable"
type AttrOrigin DOMMediaControllerSeekablePropertyInfo = DOMMediaController
attrGet _ = getDOMMediaControllerSeekable
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMMediaControllerVolume :: (MonadIO m, IsDOMMediaController o) => o -> m Double
getDOMMediaControllerVolume obj = liftIO $ getObjectPropertyDouble obj "volume"
setDOMMediaControllerVolume :: (MonadIO m, IsDOMMediaController o) => o -> Double -> m ()
setDOMMediaControllerVolume obj val = liftIO $ setObjectPropertyDouble obj "volume" val
constructDOMMediaControllerVolume :: (IsDOMMediaController o) => Double -> IO (GValueConstruct o)
constructDOMMediaControllerVolume val = constructObjectPropertyDouble "volume" val
data DOMMediaControllerVolumePropertyInfo
instance AttrInfo DOMMediaControllerVolumePropertyInfo where
type AttrAllowedOps DOMMediaControllerVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMMediaControllerVolumePropertyInfo = (~) Double
type AttrBaseTypeConstraint DOMMediaControllerVolumePropertyInfo = IsDOMMediaController
type AttrGetType DOMMediaControllerVolumePropertyInfo = Double
type AttrLabel DOMMediaControllerVolumePropertyInfo = "volume"
type AttrOrigin DOMMediaControllerVolumePropertyInfo = DOMMediaController
attrGet _ = getDOMMediaControllerVolume
attrSet _ = setDOMMediaControllerVolume
attrConstruct _ = constructDOMMediaControllerVolume
attrClear _ = undefined
instance O.HasAttributeList DOMMediaController
type instance O.AttributeList DOMMediaController = DOMMediaControllerAttributeList
type DOMMediaControllerAttributeList = ('[ '("buffered", DOMMediaControllerBufferedPropertyInfo), '("coreObject", WebKit.DOMObject.DOMObjectCoreObjectPropertyInfo), '("currentTime", DOMMediaControllerCurrentTimePropertyInfo), '("defaultPlaybackRate", DOMMediaControllerDefaultPlaybackRatePropertyInfo), '("duration", DOMMediaControllerDurationPropertyInfo), '("muted", DOMMediaControllerMutedPropertyInfo), '("paused", DOMMediaControllerPausedPropertyInfo), '("playbackRate", DOMMediaControllerPlaybackRatePropertyInfo), '("playbackState", DOMMediaControllerPlaybackStatePropertyInfo), '("played", DOMMediaControllerPlayedPropertyInfo), '("seekable", DOMMediaControllerSeekablePropertyInfo), '("volume", DOMMediaControllerVolumePropertyInfo)] :: [(Symbol, *)])
dOMMediaControllerBuffered :: AttrLabelProxy "buffered"
dOMMediaControllerBuffered = AttrLabelProxy
dOMMediaControllerCurrentTime :: AttrLabelProxy "currentTime"
dOMMediaControllerCurrentTime = AttrLabelProxy
dOMMediaControllerDefaultPlaybackRate :: AttrLabelProxy "defaultPlaybackRate"
dOMMediaControllerDefaultPlaybackRate = AttrLabelProxy
dOMMediaControllerDuration :: AttrLabelProxy "duration"
dOMMediaControllerDuration = AttrLabelProxy
dOMMediaControllerMuted :: AttrLabelProxy "muted"
dOMMediaControllerMuted = AttrLabelProxy
dOMMediaControllerPaused :: AttrLabelProxy "paused"
dOMMediaControllerPaused = AttrLabelProxy
dOMMediaControllerPlaybackRate :: AttrLabelProxy "playbackRate"
dOMMediaControllerPlaybackRate = AttrLabelProxy
dOMMediaControllerPlaybackState :: AttrLabelProxy "playbackState"
dOMMediaControllerPlaybackState = AttrLabelProxy
dOMMediaControllerPlayed :: AttrLabelProxy "played"
dOMMediaControllerPlayed = AttrLabelProxy
dOMMediaControllerSeekable :: AttrLabelProxy "seekable"
dOMMediaControllerSeekable = AttrLabelProxy
dOMMediaControllerVolume :: AttrLabelProxy "volume"
dOMMediaControllerVolume = AttrLabelProxy
type instance O.SignalList DOMMediaController = DOMMediaControllerSignalList
type DOMMediaControllerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_media_controller_get_buffered" webkit_dom_media_controller_get_buffered ::
Ptr DOMMediaController ->
IO (Ptr WebKit.DOMTimeRanges.DOMTimeRanges)
dOMMediaControllerGetBuffered ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> m WebKit.DOMTimeRanges.DOMTimeRanges
dOMMediaControllerGetBuffered self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_media_controller_get_buffered self'
checkUnexpectedReturnNULL "dOMMediaControllerGetBuffered" result
result' <- (wrapObject WebKit.DOMTimeRanges.DOMTimeRanges) result
touchManagedPtr self
return result'
data DOMMediaControllerGetBufferedMethodInfo
instance (signature ~ (m WebKit.DOMTimeRanges.DOMTimeRanges), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerGetBufferedMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerGetBuffered
foreign import ccall "webkit_dom_media_controller_get_current_time" webkit_dom_media_controller_get_current_time ::
Ptr DOMMediaController ->
IO CDouble
dOMMediaControllerGetCurrentTime ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> m Double
dOMMediaControllerGetCurrentTime self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_media_controller_get_current_time self'
let result' = realToFrac result
touchManagedPtr self
return result'
data DOMMediaControllerGetCurrentTimeMethodInfo
instance (signature ~ (m Double), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerGetCurrentTimeMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerGetCurrentTime
foreign import ccall "webkit_dom_media_controller_get_default_playback_rate" webkit_dom_media_controller_get_default_playback_rate ::
Ptr DOMMediaController ->
IO CDouble
dOMMediaControllerGetDefaultPlaybackRate ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> m Double
dOMMediaControllerGetDefaultPlaybackRate self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_media_controller_get_default_playback_rate self'
let result' = realToFrac result
touchManagedPtr self
return result'
data DOMMediaControllerGetDefaultPlaybackRateMethodInfo
instance (signature ~ (m Double), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerGetDefaultPlaybackRateMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerGetDefaultPlaybackRate
foreign import ccall "webkit_dom_media_controller_get_duration" webkit_dom_media_controller_get_duration ::
Ptr DOMMediaController ->
IO CDouble
dOMMediaControllerGetDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> m Double
dOMMediaControllerGetDuration self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_media_controller_get_duration self'
let result' = realToFrac result
touchManagedPtr self
return result'
data DOMMediaControllerGetDurationMethodInfo
instance (signature ~ (m Double), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerGetDurationMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerGetDuration
foreign import ccall "webkit_dom_media_controller_get_muted" webkit_dom_media_controller_get_muted ::
Ptr DOMMediaController ->
IO CInt
dOMMediaControllerGetMuted ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> m Bool
dOMMediaControllerGetMuted self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_media_controller_get_muted self'
let result' = (/= 0) result
touchManagedPtr self
return result'
data DOMMediaControllerGetMutedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerGetMutedMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerGetMuted
foreign import ccall "webkit_dom_media_controller_get_paused" webkit_dom_media_controller_get_paused ::
Ptr DOMMediaController ->
IO CInt
dOMMediaControllerGetPaused ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> m Bool
dOMMediaControllerGetPaused self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_media_controller_get_paused self'
let result' = (/= 0) result
touchManagedPtr self
return result'
data DOMMediaControllerGetPausedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerGetPausedMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerGetPaused
foreign import ccall "webkit_dom_media_controller_get_playback_rate" webkit_dom_media_controller_get_playback_rate ::
Ptr DOMMediaController ->
IO CDouble
dOMMediaControllerGetPlaybackRate ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> m Double
dOMMediaControllerGetPlaybackRate self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_media_controller_get_playback_rate self'
let result' = realToFrac result
touchManagedPtr self
return result'
data DOMMediaControllerGetPlaybackRateMethodInfo
instance (signature ~ (m Double), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerGetPlaybackRateMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerGetPlaybackRate
foreign import ccall "webkit_dom_media_controller_get_playback_state" webkit_dom_media_controller_get_playback_state ::
Ptr DOMMediaController ->
IO CString
dOMMediaControllerGetPlaybackState ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> m T.Text
dOMMediaControllerGetPlaybackState self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_media_controller_get_playback_state self'
checkUnexpectedReturnNULL "dOMMediaControllerGetPlaybackState" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMMediaControllerGetPlaybackStateMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerGetPlaybackStateMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerGetPlaybackState
foreign import ccall "webkit_dom_media_controller_get_played" webkit_dom_media_controller_get_played ::
Ptr DOMMediaController ->
IO (Ptr WebKit.DOMTimeRanges.DOMTimeRanges)
dOMMediaControllerGetPlayed ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> m WebKit.DOMTimeRanges.DOMTimeRanges
dOMMediaControllerGetPlayed self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_media_controller_get_played self'
checkUnexpectedReturnNULL "dOMMediaControllerGetPlayed" result
result' <- (wrapObject WebKit.DOMTimeRanges.DOMTimeRanges) result
touchManagedPtr self
return result'
data DOMMediaControllerGetPlayedMethodInfo
instance (signature ~ (m WebKit.DOMTimeRanges.DOMTimeRanges), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerGetPlayedMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerGetPlayed
foreign import ccall "webkit_dom_media_controller_get_seekable" webkit_dom_media_controller_get_seekable ::
Ptr DOMMediaController ->
IO (Ptr WebKit.DOMTimeRanges.DOMTimeRanges)
dOMMediaControllerGetSeekable ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> m WebKit.DOMTimeRanges.DOMTimeRanges
dOMMediaControllerGetSeekable self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_media_controller_get_seekable self'
checkUnexpectedReturnNULL "dOMMediaControllerGetSeekable" result
result' <- (wrapObject WebKit.DOMTimeRanges.DOMTimeRanges) result
touchManagedPtr self
return result'
data DOMMediaControllerGetSeekableMethodInfo
instance (signature ~ (m WebKit.DOMTimeRanges.DOMTimeRanges), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerGetSeekableMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerGetSeekable
foreign import ccall "webkit_dom_media_controller_get_volume" webkit_dom_media_controller_get_volume ::
Ptr DOMMediaController ->
IO CDouble
dOMMediaControllerGetVolume ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> m Double
dOMMediaControllerGetVolume self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_media_controller_get_volume self'
let result' = realToFrac result
touchManagedPtr self
return result'
data DOMMediaControllerGetVolumeMethodInfo
instance (signature ~ (m Double), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerGetVolumeMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerGetVolume
foreign import ccall "webkit_dom_media_controller_pause" webkit_dom_media_controller_pause ::
Ptr DOMMediaController ->
IO ()
dOMMediaControllerPause ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> m ()
dOMMediaControllerPause self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
webkit_dom_media_controller_pause self'
touchManagedPtr self
return ()
data DOMMediaControllerPauseMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerPauseMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerPause
foreign import ccall "webkit_dom_media_controller_play" webkit_dom_media_controller_play ::
Ptr DOMMediaController ->
IO ()
dOMMediaControllerPlay ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> m ()
dOMMediaControllerPlay self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
webkit_dom_media_controller_play self'
touchManagedPtr self
return ()
data DOMMediaControllerPlayMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerPlayMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerPlay
foreign import ccall "webkit_dom_media_controller_set_current_time" webkit_dom_media_controller_set_current_time ::
Ptr DOMMediaController ->
CDouble ->
IO ()
dOMMediaControllerSetCurrentTime ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> Double
-> m ()
dOMMediaControllerSetCurrentTime self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
let value' = realToFrac value
webkit_dom_media_controller_set_current_time self' value'
touchManagedPtr self
return ()
data DOMMediaControllerSetCurrentTimeMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerSetCurrentTimeMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerSetCurrentTime
foreign import ccall "webkit_dom_media_controller_set_default_playback_rate" webkit_dom_media_controller_set_default_playback_rate ::
Ptr DOMMediaController ->
CDouble ->
IO ()
dOMMediaControllerSetDefaultPlaybackRate ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> Double
-> m ()
dOMMediaControllerSetDefaultPlaybackRate self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
let value' = realToFrac value
webkit_dom_media_controller_set_default_playback_rate self' value'
touchManagedPtr self
return ()
data DOMMediaControllerSetDefaultPlaybackRateMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerSetDefaultPlaybackRateMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerSetDefaultPlaybackRate
foreign import ccall "webkit_dom_media_controller_set_muted" webkit_dom_media_controller_set_muted ::
Ptr DOMMediaController ->
CInt ->
IO ()
dOMMediaControllerSetMuted ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> Bool
-> m ()
dOMMediaControllerSetMuted self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
let value' = (fromIntegral . fromEnum) value
webkit_dom_media_controller_set_muted self' value'
touchManagedPtr self
return ()
data DOMMediaControllerSetMutedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerSetMutedMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerSetMuted
foreign import ccall "webkit_dom_media_controller_set_playback_rate" webkit_dom_media_controller_set_playback_rate ::
Ptr DOMMediaController ->
CDouble ->
IO ()
dOMMediaControllerSetPlaybackRate ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> Double
-> m ()
dOMMediaControllerSetPlaybackRate self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
let value' = realToFrac value
webkit_dom_media_controller_set_playback_rate self' value'
touchManagedPtr self
return ()
data DOMMediaControllerSetPlaybackRateMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerSetPlaybackRateMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerSetPlaybackRate
foreign import ccall "webkit_dom_media_controller_set_volume" webkit_dom_media_controller_set_volume ::
Ptr DOMMediaController ->
CDouble ->
Ptr (Ptr GError) ->
IO ()
dOMMediaControllerSetVolume ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> Double
-> m ()
dOMMediaControllerSetVolume self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
let value' = realToFrac value
onException (do
propagateGError $ webkit_dom_media_controller_set_volume self' value'
touchManagedPtr self
return ()
) (do
return ()
)
data DOMMediaControllerSetVolumeMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerSetVolumeMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerSetVolume
foreign import ccall "webkit_dom_media_controller_unpause" webkit_dom_media_controller_unpause ::
Ptr DOMMediaController ->
IO ()
dOMMediaControllerUnpause ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaController a) =>
a
-> m ()
dOMMediaControllerUnpause self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
webkit_dom_media_controller_unpause self'
touchManagedPtr self
return ()
data DOMMediaControllerUnpauseMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMMediaController a) => O.MethodInfo DOMMediaControllerUnpauseMethodInfo a signature where
overloadedMethod _ = dOMMediaControllerUnpause