module GHCJS.DOM.JSFFI.Generated.HTMLVideoElement
(js_webkitEnterFullscreen, webkitEnterFullscreen,
js_webkitExitFullscreen, webkitExitFullscreen,
js_webkitEnterFullScreen, webkitEnterFullScreen,
js_webkitExitFullScreen, webkitExitFullScreen,
js_webkitSupportsPresentationMode, webkitSupportsPresentationMode,
webkitSupportsPresentationMode_, js_webkitSetPresentationMode,
webkitSetPresentationMode, js_setWidth, setWidth, js_getWidth,
getWidth, js_setHeight, setHeight, js_getHeight, getHeight,
js_getVideoWidth, getVideoWidth, js_getVideoHeight, getVideoHeight,
js_setPoster, setPoster, js_getPoster, getPoster,
js_getWebkitSupportsFullscreen, getWebkitSupportsFullscreen,
js_getWebkitDisplayingFullscreen, getWebkitDisplayingFullscreen,
js_setWebkitWirelessVideoPlaybackDisabled,
setWebkitWirelessVideoPlaybackDisabled,
js_getWebkitWirelessVideoPlaybackDisabled,
getWebkitWirelessVideoPlaybackDisabled,
js_getWebkitDecodedFrameCount, getWebkitDecodedFrameCount,
js_getWebkitDroppedFrameCount, getWebkitDroppedFrameCount,
js_getWebkitPresentationMode, getWebkitPresentationMode,
webKitPresentationModeChanged, HTMLVideoElement(..),
gTypeHTMLVideoElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import qualified Prelude (error)
import Data.Typeable (Typeable)
import GHCJS.Types (JSVal(..), JSString)
import GHCJS.Foreign (jsNull)
import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Data.Maybe (fromJust)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.Enums
foreign import javascript unsafe "$1[\"webkitEnterFullscreen\"]()"
js_webkitEnterFullscreen :: HTMLVideoElement -> IO ()
webkitEnterFullscreen :: (MonadIO m) => HTMLVideoElement -> m ()
webkitEnterFullscreen self
= liftIO (js_webkitEnterFullscreen (self))
foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()"
js_webkitExitFullscreen :: HTMLVideoElement -> IO ()
webkitExitFullscreen :: (MonadIO m) => HTMLVideoElement -> m ()
webkitExitFullscreen self = liftIO (js_webkitExitFullscreen (self))
foreign import javascript unsafe "$1[\"webkitEnterFullScreen\"]()"
js_webkitEnterFullScreen :: HTMLVideoElement -> IO ()
webkitEnterFullScreen :: (MonadIO m) => HTMLVideoElement -> m ()
webkitEnterFullScreen self
= liftIO (js_webkitEnterFullScreen (self))
foreign import javascript unsafe "$1[\"webkitExitFullScreen\"]()"
js_webkitExitFullScreen :: HTMLVideoElement -> IO ()
webkitExitFullScreen :: (MonadIO m) => HTMLVideoElement -> m ()
webkitExitFullScreen self = liftIO (js_webkitExitFullScreen (self))
foreign import javascript unsafe
"($1[\"webkitSupportsPresentationMode\"]($2) ? 1 : 0)"
js_webkitSupportsPresentationMode ::
HTMLVideoElement -> JSVal -> IO Bool
webkitSupportsPresentationMode ::
(MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m Bool
webkitSupportsPresentationMode self mode
= liftIO (js_webkitSupportsPresentationMode (self) (pToJSVal mode))
webkitSupportsPresentationMode_ ::
(MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m ()
webkitSupportsPresentationMode_ self mode
= liftIO
(void (js_webkitSupportsPresentationMode (self) (pToJSVal mode)))
foreign import javascript unsafe
"$1[\"webkitSetPresentationMode\"]($2)"
js_webkitSetPresentationMode :: HTMLVideoElement -> JSVal -> IO ()
webkitSetPresentationMode ::
(MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m ()
webkitSetPresentationMode self mode
= liftIO (js_webkitSetPresentationMode (self) (pToJSVal mode))
foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth
:: HTMLVideoElement -> Word -> IO ()
setWidth :: (MonadIO m) => HTMLVideoElement -> Word -> m ()
setWidth self val = liftIO (js_setWidth (self) val)
foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::
HTMLVideoElement -> IO Word
getWidth :: (MonadIO m) => HTMLVideoElement -> m Word
getWidth self = liftIO (js_getWidth (self))
foreign import javascript unsafe "$1[\"height\"] = $2;"
js_setHeight :: HTMLVideoElement -> Word -> IO ()
setHeight :: (MonadIO m) => HTMLVideoElement -> Word -> m ()
setHeight self val = liftIO (js_setHeight (self) val)
foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::
HTMLVideoElement -> IO Word
getHeight :: (MonadIO m) => HTMLVideoElement -> m Word
getHeight self = liftIO (js_getHeight (self))
foreign import javascript unsafe "$1[\"videoWidth\"]"
js_getVideoWidth :: HTMLVideoElement -> IO Word
getVideoWidth :: (MonadIO m) => HTMLVideoElement -> m Word
getVideoWidth self = liftIO (js_getVideoWidth (self))
foreign import javascript unsafe "$1[\"videoHeight\"]"
js_getVideoHeight :: HTMLVideoElement -> IO Word
getVideoHeight :: (MonadIO m) => HTMLVideoElement -> m Word
getVideoHeight self = liftIO (js_getVideoHeight (self))
foreign import javascript unsafe "$1[\"poster\"] = $2;"
js_setPoster :: HTMLVideoElement -> JSString -> IO ()
setPoster ::
(MonadIO m, ToJSString val) => HTMLVideoElement -> val -> m ()
setPoster self val = liftIO (js_setPoster (self) (toJSString val))
foreign import javascript unsafe "$1[\"poster\"]" js_getPoster ::
HTMLVideoElement -> IO JSString
getPoster ::
(MonadIO m, FromJSString result) => HTMLVideoElement -> m result
getPoster self = liftIO (fromJSString <$> (js_getPoster (self)))
foreign import javascript unsafe
"($1[\"webkitSupportsFullscreen\"] ? 1 : 0)"
js_getWebkitSupportsFullscreen :: HTMLVideoElement -> IO Bool
getWebkitSupportsFullscreen ::
(MonadIO m) => HTMLVideoElement -> m Bool
getWebkitSupportsFullscreen self
= liftIO (js_getWebkitSupportsFullscreen (self))
foreign import javascript unsafe
"($1[\"webkitDisplayingFullscreen\"] ? 1 : 0)"
js_getWebkitDisplayingFullscreen :: HTMLVideoElement -> IO Bool
getWebkitDisplayingFullscreen ::
(MonadIO m) => HTMLVideoElement -> m Bool
getWebkitDisplayingFullscreen self
= liftIO (js_getWebkitDisplayingFullscreen (self))
foreign import javascript unsafe
"$1[\"webkitWirelessVideoPlaybackDisabled\"] = $2;"
js_setWebkitWirelessVideoPlaybackDisabled ::
HTMLVideoElement -> Bool -> IO ()
setWebkitWirelessVideoPlaybackDisabled ::
(MonadIO m) => HTMLVideoElement -> Bool -> m ()
setWebkitWirelessVideoPlaybackDisabled self val
= liftIO (js_setWebkitWirelessVideoPlaybackDisabled (self) val)
foreign import javascript unsafe
"($1[\"webkitWirelessVideoPlaybackDisabled\"] ? 1 : 0)"
js_getWebkitWirelessVideoPlaybackDisabled ::
HTMLVideoElement -> IO Bool
getWebkitWirelessVideoPlaybackDisabled ::
(MonadIO m) => HTMLVideoElement -> m Bool
getWebkitWirelessVideoPlaybackDisabled self
= liftIO (js_getWebkitWirelessVideoPlaybackDisabled (self))
foreign import javascript unsafe "$1[\"webkitDecodedFrameCount\"]"
js_getWebkitDecodedFrameCount :: HTMLVideoElement -> IO Word
getWebkitDecodedFrameCount ::
(MonadIO m) => HTMLVideoElement -> m Word
getWebkitDecodedFrameCount self
= liftIO (js_getWebkitDecodedFrameCount (self))
foreign import javascript unsafe "$1[\"webkitDroppedFrameCount\"]"
js_getWebkitDroppedFrameCount :: HTMLVideoElement -> IO Word
getWebkitDroppedFrameCount ::
(MonadIO m) => HTMLVideoElement -> m Word
getWebkitDroppedFrameCount self
= liftIO (js_getWebkitDroppedFrameCount (self))
foreign import javascript unsafe "$1[\"webkitPresentationMode\"]"
js_getWebkitPresentationMode :: HTMLVideoElement -> IO JSVal
getWebkitPresentationMode ::
(MonadIO m) => HTMLVideoElement -> m VideoPresentationMode
getWebkitPresentationMode self
= liftIO
((js_getWebkitPresentationMode (self)) >>= fromJSValUnchecked)
webKitPresentationModeChanged :: EventName HTMLVideoElement Event
webKitPresentationModeChanged
= unsafeEventName (toJSString "webkitpresentationmodechanged")