module GHCJS.DOM.JSFFI.Generated.VTTRegion
(js_newVTTRegion, newVTTRegion, js_getTrack, getTrack,
getTrackUnsafe, getTrackUnchecked, js_setId, setId, js_getId,
getId, js_setWidth, setWidth, js_getWidth, getWidth, js_setHeight,
setHeight, js_getHeight, getHeight, js_setRegionAnchorX,
setRegionAnchorX, js_getRegionAnchorX, getRegionAnchorX,
js_setRegionAnchorY, setRegionAnchorY, js_getRegionAnchorY,
getRegionAnchorY, js_setViewportAnchorX, setViewportAnchorX,
js_getViewportAnchorX, getViewportAnchorX, js_setViewportAnchorY,
setViewportAnchorY, js_getViewportAnchorY, getViewportAnchorY,
js_setScroll, setScroll, js_getScroll, getScroll, VTTRegion(..),
gTypeVTTRegion)
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 "new window[\"VTTRegion\"]()"
js_newVTTRegion :: IO VTTRegion
newVTTRegion :: (MonadIO m) => m VTTRegion
newVTTRegion = liftIO (js_newVTTRegion)
foreign import javascript unsafe "$1[\"track\"]" js_getTrack ::
VTTRegion -> IO (Nullable TextTrack)
getTrack :: (MonadIO m) => VTTRegion -> m (Maybe TextTrack)
getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self)))
getTrackUnsafe ::
(MonadIO m, HasCallStack) => VTTRegion -> m TextTrack
getTrackUnsafe self
= liftIO
((nullableToMaybe <$> (js_getTrack (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getTrackUnchecked :: (MonadIO m) => VTTRegion -> m TextTrack
getTrackUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getTrack (self)))
foreign import javascript unsafe "$1[\"id\"] = $2;" js_setId ::
VTTRegion -> JSString -> IO ()
setId :: (MonadIO m, ToJSString val) => VTTRegion -> val -> m ()
setId self val = liftIO (js_setId (self) (toJSString val))
foreign import javascript unsafe "$1[\"id\"]" js_getId ::
VTTRegion -> IO JSString
getId :: (MonadIO m, FromJSString result) => VTTRegion -> m result
getId self = liftIO (fromJSString <$> (js_getId (self)))
foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth
:: VTTRegion -> Double -> IO ()
setWidth :: (MonadIO m) => VTTRegion -> Double -> m ()
setWidth self val = liftIO (js_setWidth (self) val)
foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::
VTTRegion -> IO Double
getWidth :: (MonadIO m) => VTTRegion -> m Double
getWidth self = liftIO (js_getWidth (self))
foreign import javascript unsafe "$1[\"height\"] = $2;"
js_setHeight :: VTTRegion -> Int -> IO ()
setHeight :: (MonadIO m) => VTTRegion -> Int -> m ()
setHeight self val = liftIO (js_setHeight (self) val)
foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::
VTTRegion -> IO Int
getHeight :: (MonadIO m) => VTTRegion -> m Int
getHeight self = liftIO (js_getHeight (self))
foreign import javascript unsafe "$1[\"regionAnchorX\"] = $2;"
js_setRegionAnchorX :: VTTRegion -> Double -> IO ()
setRegionAnchorX :: (MonadIO m) => VTTRegion -> Double -> m ()
setRegionAnchorX self val = liftIO (js_setRegionAnchorX (self) val)
foreign import javascript unsafe "$1[\"regionAnchorX\"]"
js_getRegionAnchorX :: VTTRegion -> IO Double
getRegionAnchorX :: (MonadIO m) => VTTRegion -> m Double
getRegionAnchorX self = liftIO (js_getRegionAnchorX (self))
foreign import javascript unsafe "$1[\"regionAnchorY\"] = $2;"
js_setRegionAnchorY :: VTTRegion -> Double -> IO ()
setRegionAnchorY :: (MonadIO m) => VTTRegion -> Double -> m ()
setRegionAnchorY self val = liftIO (js_setRegionAnchorY (self) val)
foreign import javascript unsafe "$1[\"regionAnchorY\"]"
js_getRegionAnchorY :: VTTRegion -> IO Double
getRegionAnchorY :: (MonadIO m) => VTTRegion -> m Double
getRegionAnchorY self = liftIO (js_getRegionAnchorY (self))
foreign import javascript unsafe "$1[\"viewportAnchorX\"] = $2;"
js_setViewportAnchorX :: VTTRegion -> Double -> IO ()
setViewportAnchorX :: (MonadIO m) => VTTRegion -> Double -> m ()
setViewportAnchorX self val
= liftIO (js_setViewportAnchorX (self) val)
foreign import javascript unsafe "$1[\"viewportAnchorX\"]"
js_getViewportAnchorX :: VTTRegion -> IO Double
getViewportAnchorX :: (MonadIO m) => VTTRegion -> m Double
getViewportAnchorX self = liftIO (js_getViewportAnchorX (self))
foreign import javascript unsafe "$1[\"viewportAnchorY\"] = $2;"
js_setViewportAnchorY :: VTTRegion -> Double -> IO ()
setViewportAnchorY :: (MonadIO m) => VTTRegion -> Double -> m ()
setViewportAnchorY self val
= liftIO (js_setViewportAnchorY (self) val)
foreign import javascript unsafe "$1[\"viewportAnchorY\"]"
js_getViewportAnchorY :: VTTRegion -> IO Double
getViewportAnchorY :: (MonadIO m) => VTTRegion -> m Double
getViewportAnchorY self = liftIO (js_getViewportAnchorY (self))
foreign import javascript unsafe "$1[\"scroll\"] = $2;"
js_setScroll :: VTTRegion -> JSString -> IO ()
setScroll ::
(MonadIO m, ToJSString val) => VTTRegion -> val -> m ()
setScroll self val = liftIO (js_setScroll (self) (toJSString val))
foreign import javascript unsafe "$1[\"scroll\"]" js_getScroll ::
VTTRegion -> IO JSString
getScroll ::
(MonadIO m, FromJSString result) => VTTRegion -> m result
getScroll self = liftIO (fromJSString <$> (js_getScroll (self)))