{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaControlsHost (js_sortedTrackListForMenu, sortedTrackListForMenu, js_sortedTrackListForMenuAudio, sortedTrackListForMenuAudio, js_displayNameForTrack, displayNameForTrack, js_displayNameForTrackAudio, displayNameForTrackAudio, js_setSelectedTextTrack, setSelectedTextTrack, js_updateTextTrackContainer, updateTextTrackContainer, js_enteredFullscreen, enteredFullscreen, js_exitedFullscreen, exitedFullscreen, js_enterFullscreenOptimized, enterFullscreenOptimized, js_mediaUIImageData, mediaUIImageData, js_getCaptionMenuOffItem, getCaptionMenuOffItem, js_getCaptionMenuAutomaticItem, getCaptionMenuAutomaticItem, js_getCaptionDisplayMode, getCaptionDisplayMode, js_getTextTrackContainer, getTextTrackContainer, js_getMediaPlaybackAllowsInline, getMediaPlaybackAllowsInline, js_getSupportsFullscreen, getSupportsFullscreen, js_getUserGestureRequired, getUserGestureRequired, js_getExternalDeviceDisplayName, getExternalDeviceDisplayName, js_getExternalDeviceType, getExternalDeviceType, js_setControlsDependOnPageScaleFactor, setControlsDependOnPageScaleFactor, js_getControlsDependOnPageScaleFactor, getControlsDependOnPageScaleFactor, MediaControlsHost, castToMediaControlsHost, gTypeMediaControlsHost) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenu :: JSRef MediaControlsHost -> JSRef TextTrackList -> IO (JSRef [Maybe TextTrack]) -- | sortedTrackListForMenu :: (MonadIO m) => MediaControlsHost -> Maybe TextTrackList -> m [Maybe TextTrack] sortedTrackListForMenu self trackList = liftIO ((js_sortedTrackListForMenu (unMediaControlsHost self) (maybe jsNull pToJSRef trackList)) >>= fromJSRefUnchecked) foreign import javascript unsafe "$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenuAudio :: JSRef MediaControlsHost -> JSRef AudioTrackList -> IO (JSRef [Maybe AudioTrack]) -- | sortedTrackListForMenuAudio :: (MonadIO m) => MediaControlsHost -> Maybe AudioTrackList -> m [Maybe AudioTrack] sortedTrackListForMenuAudio self trackList = liftIO ((js_sortedTrackListForMenuAudio (unMediaControlsHost self) (maybe jsNull pToJSRef trackList)) >>= fromJSRefUnchecked) foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)" js_displayNameForTrack :: JSRef MediaControlsHost -> JSRef TextTrack -> IO JSString -- | displayNameForTrack :: (MonadIO m, FromJSString result) => MediaControlsHost -> Maybe TextTrack -> m result displayNameForTrack self track = liftIO (fromJSString <$> (js_displayNameForTrack (unMediaControlsHost self) (maybe jsNull pToJSRef track))) foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)" js_displayNameForTrackAudio :: JSRef MediaControlsHost -> JSRef AudioTrack -> IO JSString -- | displayNameForTrackAudio :: (MonadIO m, FromJSString result) => MediaControlsHost -> Maybe AudioTrack -> m result displayNameForTrackAudio self track = liftIO (fromJSString <$> (js_displayNameForTrackAudio (unMediaControlsHost self) (maybe jsNull pToJSRef track))) foreign import javascript unsafe "$1[\"setSelectedTextTrack\"]($2)" js_setSelectedTextTrack :: JSRef MediaControlsHost -> JSRef TextTrack -> IO () -- | setSelectedTextTrack :: (MonadIO m) => MediaControlsHost -> Maybe TextTrack -> m () setSelectedTextTrack self track = liftIO (js_setSelectedTextTrack (unMediaControlsHost self) (maybe jsNull pToJSRef track)) foreign import javascript unsafe "$1[\"updateTextTrackContainer\"]()" js_updateTextTrackContainer :: JSRef MediaControlsHost -> IO () -- | updateTextTrackContainer :: (MonadIO m) => MediaControlsHost -> m () updateTextTrackContainer self = liftIO (js_updateTextTrackContainer (unMediaControlsHost self)) foreign import javascript unsafe "$1[\"enteredFullscreen\"]()" js_enteredFullscreen :: JSRef MediaControlsHost -> IO () -- | enteredFullscreen :: (MonadIO m) => MediaControlsHost -> m () enteredFullscreen self = liftIO (js_enteredFullscreen (unMediaControlsHost self)) foreign import javascript unsafe "$1[\"exitedFullscreen\"]()" js_exitedFullscreen :: JSRef MediaControlsHost -> IO () -- | exitedFullscreen :: (MonadIO m) => MediaControlsHost -> m () exitedFullscreen self = liftIO (js_exitedFullscreen (unMediaControlsHost self)) foreign import javascript unsafe "$1[\"enterFullscreenOptimized\"]()" js_enterFullscreenOptimized :: JSRef MediaControlsHost -> IO () -- | enterFullscreenOptimized :: (MonadIO m) => MediaControlsHost -> m () enterFullscreenOptimized self = liftIO (js_enterFullscreenOptimized (unMediaControlsHost self)) foreign import javascript unsafe "$1[\"mediaUIImageData\"]($2)" js_mediaUIImageData :: JSRef MediaControlsHost -> JSRef MediaUIPartID -> IO JSString -- | mediaUIImageData :: (MonadIO m, FromJSString result) => MediaControlsHost -> MediaUIPartID -> m result mediaUIImageData self partID = liftIO (fromJSString <$> (js_mediaUIImageData (unMediaControlsHost self) (pToJSRef partID))) foreign import javascript unsafe "$1[\"captionMenuOffItem\"]" js_getCaptionMenuOffItem :: JSRef MediaControlsHost -> IO (JSRef TextTrack) -- | getCaptionMenuOffItem :: (MonadIO m) => MediaControlsHost -> m (Maybe TextTrack) getCaptionMenuOffItem self = liftIO ((js_getCaptionMenuOffItem (unMediaControlsHost self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"captionMenuAutomaticItem\"]" js_getCaptionMenuAutomaticItem :: JSRef MediaControlsHost -> IO (JSRef TextTrack) -- | getCaptionMenuAutomaticItem :: (MonadIO m) => MediaControlsHost -> m (Maybe TextTrack) getCaptionMenuAutomaticItem self = liftIO ((js_getCaptionMenuAutomaticItem (unMediaControlsHost self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"captionDisplayMode\"]" js_getCaptionDisplayMode :: JSRef MediaControlsHost -> IO JSString -- | getCaptionDisplayMode :: (MonadIO m, FromJSString result) => MediaControlsHost -> m result getCaptionDisplayMode self = liftIO (fromJSString <$> (js_getCaptionDisplayMode (unMediaControlsHost self))) foreign import javascript unsafe "$1[\"textTrackContainer\"]" js_getTextTrackContainer :: JSRef MediaControlsHost -> IO (JSRef HTMLElement) -- | getTextTrackContainer :: (MonadIO m) => MediaControlsHost -> m (Maybe HTMLElement) getTextTrackContainer self = liftIO ((js_getTextTrackContainer (unMediaControlsHost self)) >>= fromJSRef) foreign import javascript unsafe "($1[\"mediaPlaybackAllowsInline\"] ? 1 : 0)" js_getMediaPlaybackAllowsInline :: JSRef MediaControlsHost -> IO Bool -- | getMediaPlaybackAllowsInline :: (MonadIO m) => MediaControlsHost -> m Bool getMediaPlaybackAllowsInline self = liftIO (js_getMediaPlaybackAllowsInline (unMediaControlsHost self)) foreign import javascript unsafe "($1[\"supportsFullscreen\"] ? 1 : 0)" js_getSupportsFullscreen :: JSRef MediaControlsHost -> IO Bool -- | getSupportsFullscreen :: (MonadIO m) => MediaControlsHost -> m Bool getSupportsFullscreen self = liftIO (js_getSupportsFullscreen (unMediaControlsHost self)) foreign import javascript unsafe "($1[\"userGestureRequired\"] ? 1 : 0)" js_getUserGestureRequired :: JSRef MediaControlsHost -> IO Bool -- | getUserGestureRequired :: (MonadIO m) => MediaControlsHost -> m Bool getUserGestureRequired self = liftIO (js_getUserGestureRequired (unMediaControlsHost self)) foreign import javascript unsafe "$1[\"externalDeviceDisplayName\"]" js_getExternalDeviceDisplayName :: JSRef MediaControlsHost -> IO JSString -- | getExternalDeviceDisplayName :: (MonadIO m, FromJSString result) => MediaControlsHost -> m result getExternalDeviceDisplayName self = liftIO (fromJSString <$> (js_getExternalDeviceDisplayName (unMediaControlsHost self))) foreign import javascript unsafe "$1[\"externalDeviceType\"]" js_getExternalDeviceType :: JSRef MediaControlsHost -> IO (JSRef DeviceType) -- | getExternalDeviceType :: (MonadIO m) => MediaControlsHost -> m DeviceType getExternalDeviceType self = liftIO ((js_getExternalDeviceType (unMediaControlsHost self)) >>= fromJSRefUnchecked) foreign import javascript unsafe "$1[\"controlsDependOnPageScaleFactor\"] = $2;" js_setControlsDependOnPageScaleFactor :: JSRef MediaControlsHost -> Bool -> IO () -- | setControlsDependOnPageScaleFactor :: (MonadIO m) => MediaControlsHost -> Bool -> m () setControlsDependOnPageScaleFactor self val = liftIO (js_setControlsDependOnPageScaleFactor (unMediaControlsHost self) val) foreign import javascript unsafe "($1[\"controlsDependOnPageScaleFactor\"] ? 1 : 0)" js_getControlsDependOnPageScaleFactor :: JSRef MediaControlsHost -> IO Bool -- | getControlsDependOnPageScaleFactor :: (MonadIO m) => MediaControlsHost -> m Bool getControlsDependOnPageScaleFactor self = liftIO (js_getControlsDependOnPageScaleFactor (unMediaControlsHost self))