{-# 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) 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 :: MediaControlsHost -> Nullable TextTrackList -> IO JSRef -- | sortedTrackListForMenu :: (MonadIO m) => MediaControlsHost -> Maybe TextTrackList -> m [Maybe TextTrack] sortedTrackListForMenu self trackList = liftIO ((js_sortedTrackListForMenu (self) (maybeToNullable trackList)) >>= fromJSRefUnchecked) foreign import javascript unsafe "$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenuAudio :: MediaControlsHost -> Nullable AudioTrackList -> IO JSRef -- | sortedTrackListForMenuAudio :: (MonadIO m) => MediaControlsHost -> Maybe AudioTrackList -> m [Maybe AudioTrack] sortedTrackListForMenuAudio self trackList = liftIO ((js_sortedTrackListForMenuAudio (self) (maybeToNullable trackList)) >>= fromJSRefUnchecked) foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)" js_displayNameForTrack :: MediaControlsHost -> Nullable TextTrack -> IO JSString -- | displayNameForTrack :: (MonadIO m, FromJSString result) => MediaControlsHost -> Maybe TextTrack -> m result displayNameForTrack self track = liftIO (fromJSString <$> (js_displayNameForTrack (self) (maybeToNullable track))) foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)" js_displayNameForTrackAudio :: MediaControlsHost -> Nullable AudioTrack -> IO JSString -- | displayNameForTrackAudio :: (MonadIO m, FromJSString result) => MediaControlsHost -> Maybe AudioTrack -> m result displayNameForTrackAudio self track = liftIO (fromJSString <$> (js_displayNameForTrackAudio (self) (maybeToNullable track))) foreign import javascript unsafe "$1[\"setSelectedTextTrack\"]($2)" js_setSelectedTextTrack :: MediaControlsHost -> Nullable TextTrack -> IO () -- | setSelectedTextTrack :: (MonadIO m) => MediaControlsHost -> Maybe TextTrack -> m () setSelectedTextTrack self track = liftIO (js_setSelectedTextTrack (self) (maybeToNullable track)) foreign import javascript unsafe "$1[\"updateTextTrackContainer\"]()" js_updateTextTrackContainer :: MediaControlsHost -> IO () -- | updateTextTrackContainer :: (MonadIO m) => MediaControlsHost -> m () updateTextTrackContainer self = liftIO (js_updateTextTrackContainer (self)) foreign import javascript unsafe "$1[\"enteredFullscreen\"]()" js_enteredFullscreen :: MediaControlsHost -> IO () -- | enteredFullscreen :: (MonadIO m) => MediaControlsHost -> m () enteredFullscreen self = liftIO (js_enteredFullscreen (self)) foreign import javascript unsafe "$1[\"exitedFullscreen\"]()" js_exitedFullscreen :: MediaControlsHost -> IO () -- | exitedFullscreen :: (MonadIO m) => MediaControlsHost -> m () exitedFullscreen self = liftIO (js_exitedFullscreen (self)) foreign import javascript unsafe "$1[\"enterFullscreenOptimized\"]()" js_enterFullscreenOptimized :: MediaControlsHost -> IO () -- | enterFullscreenOptimized :: (MonadIO m) => MediaControlsHost -> m () enterFullscreenOptimized self = liftIO (js_enterFullscreenOptimized (self)) foreign import javascript unsafe "$1[\"mediaUIImageData\"]($2)" js_mediaUIImageData :: MediaControlsHost -> JSRef -> IO JSString -- | mediaUIImageData :: (MonadIO m, FromJSString result) => MediaControlsHost -> MediaUIPartID -> m result mediaUIImageData self partID = liftIO (fromJSString <$> (js_mediaUIImageData (self) (pToJSRef partID))) foreign import javascript unsafe "$1[\"captionMenuOffItem\"]" js_getCaptionMenuOffItem :: MediaControlsHost -> IO (Nullable TextTrack) -- | getCaptionMenuOffItem :: (MonadIO m) => MediaControlsHost -> m (Maybe TextTrack) getCaptionMenuOffItem self = liftIO (nullableToMaybe <$> (js_getCaptionMenuOffItem (self))) foreign import javascript unsafe "$1[\"captionMenuAutomaticItem\"]" js_getCaptionMenuAutomaticItem :: MediaControlsHost -> IO (Nullable TextTrack) -- | getCaptionMenuAutomaticItem :: (MonadIO m) => MediaControlsHost -> m (Maybe TextTrack) getCaptionMenuAutomaticItem self = liftIO (nullableToMaybe <$> (js_getCaptionMenuAutomaticItem (self))) foreign import javascript unsafe "$1[\"captionDisplayMode\"]" js_getCaptionDisplayMode :: MediaControlsHost -> IO JSString -- | getCaptionDisplayMode :: (MonadIO m, FromJSString result) => MediaControlsHost -> m result getCaptionDisplayMode self = liftIO (fromJSString <$> (js_getCaptionDisplayMode (self))) foreign import javascript unsafe "$1[\"textTrackContainer\"]" js_getTextTrackContainer :: MediaControlsHost -> IO (Nullable HTMLElement) -- | getTextTrackContainer :: (MonadIO m) => MediaControlsHost -> m (Maybe HTMLElement) getTextTrackContainer self = liftIO (nullableToMaybe <$> (js_getTextTrackContainer (self))) foreign import javascript unsafe "($1[\"mediaPlaybackAllowsInline\"] ? 1 : 0)" js_getMediaPlaybackAllowsInline :: MediaControlsHost -> IO Bool -- | getMediaPlaybackAllowsInline :: (MonadIO m) => MediaControlsHost -> m Bool getMediaPlaybackAllowsInline self = liftIO (js_getMediaPlaybackAllowsInline (self)) foreign import javascript unsafe "($1[\"supportsFullscreen\"] ? 1 : 0)" js_getSupportsFullscreen :: MediaControlsHost -> IO Bool -- | getSupportsFullscreen :: (MonadIO m) => MediaControlsHost -> m Bool getSupportsFullscreen self = liftIO (js_getSupportsFullscreen (self)) foreign import javascript unsafe "($1[\"userGestureRequired\"] ? 1 : 0)" js_getUserGestureRequired :: MediaControlsHost -> IO Bool -- | getUserGestureRequired :: (MonadIO m) => MediaControlsHost -> m Bool getUserGestureRequired self = liftIO (js_getUserGestureRequired (self)) foreign import javascript unsafe "$1[\"externalDeviceDisplayName\"]" js_getExternalDeviceDisplayName :: MediaControlsHost -> IO JSString -- | getExternalDeviceDisplayName :: (MonadIO m, FromJSString result) => MediaControlsHost -> m result getExternalDeviceDisplayName self = liftIO (fromJSString <$> (js_getExternalDeviceDisplayName (self))) foreign import javascript unsafe "$1[\"externalDeviceType\"]" js_getExternalDeviceType :: MediaControlsHost -> IO JSRef -- | getExternalDeviceType :: (MonadIO m) => MediaControlsHost -> m DeviceType getExternalDeviceType self = liftIO ((js_getExternalDeviceType (self)) >>= fromJSRefUnchecked) foreign import javascript unsafe "$1[\"controlsDependOnPageScaleFactor\"] = $2;" js_setControlsDependOnPageScaleFactor :: MediaControlsHost -> Bool -> IO () -- | setControlsDependOnPageScaleFactor :: (MonadIO m) => MediaControlsHost -> Bool -> m () setControlsDependOnPageScaleFactor self val = liftIO (js_setControlsDependOnPageScaleFactor (self) val) foreign import javascript unsafe "($1[\"controlsDependOnPageScaleFactor\"] ? 1 : 0)" js_getControlsDependOnPageScaleFactor :: MediaControlsHost -> IO Bool -- | getControlsDependOnPageScaleFactor :: (MonadIO m) => MediaControlsHost -> m Bool getControlsDependOnPageScaleFactor self = liftIO (js_getControlsDependOnPageScaleFactor (self))