module GHCJS.DOM.JSFFI.Generated.VTTCue
(js_newVTTCue, newVTTCue, js_getCueAsHTML, getCueAsHTML,
getCueAsHTML_, getCueAsHTMLUnsafe, getCueAsHTMLUnchecked,
js_setVertical, setVertical, js_getVertical, getVertical,
js_setSnapToLines, setSnapToLines, js_getSnapToLines,
getSnapToLines, js_setLine, setLine, js_getLine, getLine,
js_setPosition, setPosition, js_getPosition, getPosition,
js_setSize, setSize, js_getSize, getSize, js_setAlign, setAlign,
js_getAlign, getAlign, js_setText, setText, js_getText, getText,
js_setRegionId, setRegionId, js_getRegionId, getRegionId,
VTTCue(..), gTypeVTTCue)
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[\"VTTCue\"]($1, $2, $3)" js_newVTTCue ::
Double -> Double -> JSString -> IO VTTCue
newVTTCue ::
(MonadIO m, ToJSString text) =>
Double -> Double -> text -> m VTTCue
newVTTCue startTime endTime text
= liftIO (js_newVTTCue startTime endTime (toJSString text))
foreign import javascript unsafe "$1[\"getCueAsHTML\"]()"
js_getCueAsHTML :: VTTCue -> IO (Nullable DocumentFragment)
getCueAsHTML :: (MonadIO m) => VTTCue -> m (Maybe DocumentFragment)
getCueAsHTML self
= liftIO (nullableToMaybe <$> (js_getCueAsHTML (self)))
getCueAsHTML_ :: (MonadIO m) => VTTCue -> m ()
getCueAsHTML_ self = liftIO (void (js_getCueAsHTML (self)))
getCueAsHTMLUnsafe ::
(MonadIO m, HasCallStack) => VTTCue -> m DocumentFragment
getCueAsHTMLUnsafe self
= liftIO
((nullableToMaybe <$> (js_getCueAsHTML (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getCueAsHTMLUnchecked ::
(MonadIO m) => VTTCue -> m DocumentFragment
getCueAsHTMLUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getCueAsHTML (self)))
foreign import javascript unsafe "$1[\"vertical\"] = $2;"
js_setVertical :: VTTCue -> JSString -> IO ()
setVertical :: (MonadIO m, ToJSString val) => VTTCue -> val -> m ()
setVertical self val
= liftIO (js_setVertical (self) (toJSString val))
foreign import javascript unsafe "$1[\"vertical\"]" js_getVertical
:: VTTCue -> IO JSString
getVertical ::
(MonadIO m, FromJSString result) => VTTCue -> m result
getVertical self
= liftIO (fromJSString <$> (js_getVertical (self)))
foreign import javascript unsafe "$1[\"snapToLines\"] = $2;"
js_setSnapToLines :: VTTCue -> Bool -> IO ()
setSnapToLines :: (MonadIO m) => VTTCue -> Bool -> m ()
setSnapToLines self val = liftIO (js_setSnapToLines (self) val)
foreign import javascript unsafe "($1[\"snapToLines\"] ? 1 : 0)"
js_getSnapToLines :: VTTCue -> IO Bool
getSnapToLines :: (MonadIO m) => VTTCue -> m Bool
getSnapToLines self = liftIO (js_getSnapToLines (self))
foreign import javascript unsafe "$1[\"line\"] = $2;" js_setLine ::
VTTCue -> Double -> IO ()
setLine :: (MonadIO m) => VTTCue -> Double -> m ()
setLine self val = liftIO (js_setLine (self) val)
foreign import javascript unsafe "$1[\"line\"]" js_getLine ::
VTTCue -> IO Double
getLine :: (MonadIO m) => VTTCue -> m Double
getLine self = liftIO (js_getLine (self))
foreign import javascript unsafe "$1[\"position\"] = $2;"
js_setPosition :: VTTCue -> Double -> IO ()
setPosition :: (MonadIO m) => VTTCue -> Double -> m ()
setPosition self val = liftIO (js_setPosition (self) val)
foreign import javascript unsafe "$1[\"position\"]" js_getPosition
:: VTTCue -> IO Double
getPosition :: (MonadIO m) => VTTCue -> m Double
getPosition self = liftIO (js_getPosition (self))
foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::
VTTCue -> Double -> IO ()
setSize :: (MonadIO m) => VTTCue -> Double -> m ()
setSize self val = liftIO (js_setSize (self) val)
foreign import javascript unsafe "$1[\"size\"]" js_getSize ::
VTTCue -> IO Double
getSize :: (MonadIO m) => VTTCue -> m Double
getSize self = liftIO (js_getSize (self))
foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign
:: VTTCue -> JSString -> IO ()
setAlign :: (MonadIO m, ToJSString val) => VTTCue -> val -> m ()
setAlign self val = liftIO (js_setAlign (self) (toJSString val))
foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::
VTTCue -> IO JSString
getAlign :: (MonadIO m, FromJSString result) => VTTCue -> m result
getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))
foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::
VTTCue -> JSString -> IO ()
setText :: (MonadIO m, ToJSString val) => VTTCue -> val -> m ()
setText self val = liftIO (js_setText (self) (toJSString val))
foreign import javascript unsafe "$1[\"text\"]" js_getText ::
VTTCue -> IO JSString
getText :: (MonadIO m, FromJSString result) => VTTCue -> m result
getText self = liftIO (fromJSString <$> (js_getText (self)))
foreign import javascript unsafe "$1[\"regionId\"] = $2;"
js_setRegionId :: VTTCue -> JSString -> IO ()
setRegionId :: (MonadIO m, ToJSString val) => VTTCue -> val -> m ()
setRegionId self val
= liftIO (js_setRegionId (self) (toJSString val))
foreign import javascript unsafe "$1[\"regionId\"]" js_getRegionId
:: VTTCue -> IO JSString
getRegionId ::
(MonadIO m, FromJSString result) => VTTCue -> m result
getRegionId self
= liftIO (fromJSString <$> (js_getRegionId (self)))