{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} 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, js_getActiveCues, getActiveCues, cueChange, js_getRegions, getRegions, js_getSourceBuffer, getSourceBuffer, TextTrack, castToTextTrack, gTypeTextTrack) 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, castRef) 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[\"addCue\"]($2)" js_addCue :: JSRef TextTrack -> JSRef TextTrackCue -> IO () -- | addCue :: (MonadIO m, IsTextTrackCue cue) => TextTrack -> Maybe cue -> m () addCue self cue = liftIO (js_addCue (unTextTrack self) (maybe jsNull (unTextTrackCue . toTextTrackCue) cue)) foreign import javascript unsafe "$1[\"removeCue\"]($2)" js_removeCue :: JSRef TextTrack -> JSRef TextTrackCue -> IO () -- | removeCue :: (MonadIO m, IsTextTrackCue cue) => TextTrack -> Maybe cue -> m () removeCue self cue = liftIO (js_removeCue (unTextTrack self) (maybe jsNull (unTextTrackCue . toTextTrackCue) cue)) foreign import javascript unsafe "$1[\"addRegion\"]($2)" js_addRegion :: JSRef TextTrack -> JSRef VTTRegion -> IO () -- | addRegion :: (MonadIO m) => TextTrack -> Maybe VTTRegion -> m () addRegion self region = liftIO (js_addRegion (unTextTrack self) (maybe jsNull pToJSRef region)) foreign import javascript unsafe "$1[\"removeRegion\"]($2)" js_removeRegion :: JSRef TextTrack -> JSRef VTTRegion -> IO () -- | removeRegion :: (MonadIO m) => TextTrack -> Maybe VTTRegion -> m () removeRegion self region = liftIO (js_removeRegion (unTextTrack self) (maybe jsNull pToJSRef region)) foreign import javascript unsafe "$1[\"id\"]" js_getId :: JSRef TextTrack -> IO JSString -- | getId :: (MonadIO m, FromJSString result) => TextTrack -> m result getId self = liftIO (fromJSString <$> (js_getId (unTextTrack self))) foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind :: JSRef TextTrack -> JSRef TextTrackKind -> IO () -- | setKind :: (MonadIO m) => TextTrack -> TextTrackKind -> m () setKind self val = liftIO (js_setKind (unTextTrack self) (pToJSRef val)) foreign import javascript unsafe "$1[\"kind\"]" js_getKind :: JSRef TextTrack -> IO (JSRef TextTrackKind) -- | getKind :: (MonadIO m) => TextTrack -> m TextTrackKind getKind self = liftIO ((js_getKind (unTextTrack self)) >>= fromJSRefUnchecked) foreign import javascript unsafe "$1[\"label\"]" js_getLabel :: JSRef TextTrack -> IO JSString -- | getLabel :: (MonadIO m, FromJSString result) => TextTrack -> m result getLabel self = liftIO (fromJSString <$> (js_getLabel (unTextTrack self))) foreign import javascript unsafe "$1[\"language\"] = $2;" js_setLanguage :: JSRef TextTrack -> JSString -> IO () -- | setLanguage :: (MonadIO m, ToJSString val) => TextTrack -> val -> m () setLanguage self val = liftIO (js_setLanguage (unTextTrack self) (toJSString val)) foreign import javascript unsafe "$1[\"language\"]" js_getLanguage :: JSRef TextTrack -> IO JSString -- | getLanguage :: (MonadIO m, FromJSString result) => TextTrack -> m result getLanguage self = liftIO (fromJSString <$> (js_getLanguage (unTextTrack self))) foreign import javascript unsafe "$1[\"inBandMetadataTrackDispatchType\"]" js_getInBandMetadataTrackDispatchType :: JSRef TextTrack -> IO JSString -- | getInBandMetadataTrackDispatchType :: (MonadIO m, FromJSString result) => TextTrack -> m result getInBandMetadataTrackDispatchType self = liftIO (fromJSString <$> (js_getInBandMetadataTrackDispatchType (unTextTrack self))) foreign import javascript unsafe "$1[\"mode\"] = $2;" js_setMode :: JSRef TextTrack -> JSRef TextTrackMode -> IO () -- | setMode :: (MonadIO m) => TextTrack -> TextTrackMode -> m () setMode self val = liftIO (js_setMode (unTextTrack self) (pToJSRef val)) foreign import javascript unsafe "$1[\"mode\"]" js_getMode :: JSRef TextTrack -> IO (JSRef TextTrackMode) -- | getMode :: (MonadIO m) => TextTrack -> m TextTrackMode getMode self = liftIO ((js_getMode (unTextTrack self)) >>= fromJSRefUnchecked) foreign import javascript unsafe "$1[\"cues\"]" js_getCues :: JSRef TextTrack -> IO (JSRef TextTrackCueList) -- | getCues :: (MonadIO m) => TextTrack -> m (Maybe TextTrackCueList) getCues self = liftIO ((js_getCues (unTextTrack self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"activeCues\"]" js_getActiveCues :: JSRef TextTrack -> IO (JSRef TextTrackCueList) -- | getActiveCues :: (MonadIO m) => TextTrack -> m (Maybe TextTrackCueList) getActiveCues self = liftIO ((js_getActiveCues (unTextTrack self)) >>= fromJSRef) -- | cueChange :: EventName TextTrack Event cueChange = unsafeEventName (toJSString "cuechange") foreign import javascript unsafe "$1[\"regions\"]" js_getRegions :: JSRef TextTrack -> IO (JSRef VTTRegionList) -- | getRegions :: (MonadIO m) => TextTrack -> m (Maybe VTTRegionList) getRegions self = liftIO ((js_getRegions (unTextTrack self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"sourceBuffer\"]" js_getSourceBuffer :: JSRef TextTrack -> IO (JSRef SourceBuffer) -- | getSourceBuffer :: (MonadIO m) => TextTrack -> m (Maybe SourceBuffer) getSourceBuffer self = liftIO ((js_getSourceBuffer (unTextTrack self)) >>= fromJSRef)