module GHCJS.DOM.JSFFI.Generated.TextTrack
(js_addCue, addCue, js_removeCue, removeCue, js_addRegion,
addRegion, js_removeRegion, removeRegion, js_getId, getId,
js_setKind, setKind, js_getKind, getKind, js_getLabel, getLabel,
js_setLanguage, setLanguage, js_getLanguage, getLanguage,
js_getInBandMetadataTrackDispatchType,
getInBandMetadataTrackDispatchType, js_setMode, setMode,
js_getMode, getMode, js_getCues, getCues, getCuesUnsafe,
getCuesUnchecked, js_getActiveCues, getActiveCues,
getActiveCuesUnsafe, getActiveCuesUnchecked, cueChange,
js_getRegions, getRegions, getRegionsUnsafe, getRegionsUnchecked,
js_getSourceBuffer, getSourceBuffer, getSourceBufferUnsafe,
getSourceBufferUnchecked, TextTrack(..), gTypeTextTrack)
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[\"addCue\"]($2)" js_addCue ::
TextTrack -> Nullable TextTrackCue -> IO ()
addCue ::
(MonadIO m, IsTextTrackCue cue) => TextTrack -> Maybe cue -> m ()
addCue self cue
= liftIO
(js_addCue (self) (maybeToNullable (fmap toTextTrackCue cue)))
foreign import javascript unsafe "$1[\"removeCue\"]($2)"
js_removeCue :: TextTrack -> Nullable TextTrackCue -> IO ()
removeCue ::
(MonadIO m, IsTextTrackCue cue) => TextTrack -> Maybe cue -> m ()
removeCue self cue
= liftIO
(js_removeCue (self) (maybeToNullable (fmap toTextTrackCue cue)))
foreign import javascript unsafe "$1[\"addRegion\"]($2)"
js_addRegion :: TextTrack -> Nullable VTTRegion -> IO ()
addRegion :: (MonadIO m) => TextTrack -> Maybe VTTRegion -> m ()
addRegion self region
= liftIO (js_addRegion (self) (maybeToNullable region))
foreign import javascript unsafe "$1[\"removeRegion\"]($2)"
js_removeRegion :: TextTrack -> Nullable VTTRegion -> IO ()
removeRegion :: (MonadIO m) => TextTrack -> Maybe VTTRegion -> m ()
removeRegion self region
= liftIO (js_removeRegion (self) (maybeToNullable region))
foreign import javascript unsafe "$1[\"id\"]" js_getId ::
TextTrack -> IO JSString
getId :: (MonadIO m, FromJSString result) => TextTrack -> m result
getId self = liftIO (fromJSString <$> (js_getId (self)))
foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind ::
TextTrack -> JSVal -> IO ()
setKind :: (MonadIO m) => TextTrack -> TextTrackKind -> m ()
setKind self val = liftIO (js_setKind (self) (pToJSVal val))
foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::
TextTrack -> IO JSVal
getKind :: (MonadIO m) => TextTrack -> m TextTrackKind
getKind self = liftIO ((js_getKind (self)) >>= fromJSValUnchecked)
foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::
TextTrack -> IO JSString
getLabel ::
(MonadIO m, FromJSString result) => TextTrack -> m result
getLabel self = liftIO (fromJSString <$> (js_getLabel (self)))
foreign import javascript unsafe "$1[\"language\"] = $2;"
js_setLanguage :: TextTrack -> JSString -> IO ()
setLanguage ::
(MonadIO m, ToJSString val) => TextTrack -> val -> m ()
setLanguage self val
= liftIO (js_setLanguage (self) (toJSString val))
foreign import javascript unsafe "$1[\"language\"]" js_getLanguage
:: TextTrack -> IO JSString
getLanguage ::
(MonadIO m, FromJSString result) => TextTrack -> m result
getLanguage self
= liftIO (fromJSString <$> (js_getLanguage (self)))
foreign import javascript unsafe
"$1[\"inBandMetadataTrackDispatchType\"]"
js_getInBandMetadataTrackDispatchType :: TextTrack -> IO JSString
getInBandMetadataTrackDispatchType ::
(MonadIO m, FromJSString result) => TextTrack -> m result
getInBandMetadataTrackDispatchType self
= liftIO
(fromJSString <$> (js_getInBandMetadataTrackDispatchType (self)))
foreign import javascript unsafe "$1[\"mode\"] = $2;" js_setMode ::
TextTrack -> JSVal -> IO ()
setMode :: (MonadIO m) => TextTrack -> TextTrackMode -> m ()
setMode self val = liftIO (js_setMode (self) (pToJSVal val))
foreign import javascript unsafe "$1[\"mode\"]" js_getMode ::
TextTrack -> IO JSVal
getMode :: (MonadIO m) => TextTrack -> m TextTrackMode
getMode self = liftIO ((js_getMode (self)) >>= fromJSValUnchecked)
foreign import javascript unsafe "$1[\"cues\"]" js_getCues ::
TextTrack -> IO (Nullable TextTrackCueList)
getCues :: (MonadIO m) => TextTrack -> m (Maybe TextTrackCueList)
getCues self = liftIO (nullableToMaybe <$> (js_getCues (self)))
getCuesUnsafe ::
(MonadIO m, HasCallStack) => TextTrack -> m TextTrackCueList
getCuesUnsafe self
= liftIO
((nullableToMaybe <$> (js_getCues (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getCuesUnchecked :: (MonadIO m) => TextTrack -> m TextTrackCueList
getCuesUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getCues (self)))
foreign import javascript unsafe "$1[\"activeCues\"]"
js_getActiveCues :: TextTrack -> IO (Nullable TextTrackCueList)
getActiveCues ::
(MonadIO m) => TextTrack -> m (Maybe TextTrackCueList)
getActiveCues self
= liftIO (nullableToMaybe <$> (js_getActiveCues (self)))
getActiveCuesUnsafe ::
(MonadIO m, HasCallStack) => TextTrack -> m TextTrackCueList
getActiveCuesUnsafe self
= liftIO
((nullableToMaybe <$> (js_getActiveCues (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getActiveCuesUnchecked ::
(MonadIO m) => TextTrack -> m TextTrackCueList
getActiveCuesUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getActiveCues (self)))
cueChange :: EventName TextTrack Event
cueChange = unsafeEventName (toJSString "cuechange")
foreign import javascript unsafe "$1[\"regions\"]" js_getRegions ::
TextTrack -> IO (Nullable VTTRegionList)
getRegions :: (MonadIO m) => TextTrack -> m (Maybe VTTRegionList)
getRegions self
= liftIO (nullableToMaybe <$> (js_getRegions (self)))
getRegionsUnsafe ::
(MonadIO m, HasCallStack) => TextTrack -> m VTTRegionList
getRegionsUnsafe self
= liftIO
((nullableToMaybe <$> (js_getRegions (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getRegionsUnchecked :: (MonadIO m) => TextTrack -> m VTTRegionList
getRegionsUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getRegions (self)))
foreign import javascript unsafe "$1[\"sourceBuffer\"]"
js_getSourceBuffer :: TextTrack -> IO (Nullable SourceBuffer)
getSourceBuffer ::
(MonadIO m) => TextTrack -> m (Maybe SourceBuffer)
getSourceBuffer self
= liftIO (nullableToMaybe <$> (js_getSourceBuffer (self)))
getSourceBufferUnsafe ::
(MonadIO m, HasCallStack) => TextTrack -> m SourceBuffer
getSourceBufferUnsafe self
= liftIO
((nullableToMaybe <$> (js_getSourceBuffer (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getSourceBufferUnchecked ::
(MonadIO m) => TextTrack -> m SourceBuffer
getSourceBufferUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getSourceBuffer (self)))