module GHCJS.DOM.JSFFI.Generated.HTMLTrackElement
(pattern NONE, pattern LOADING, pattern LOADED, pattern ERROR,
js_setKind, setKind, js_getKind, getKind, js_setSrc, setSrc,
js_getSrc, getSrc, js_setSrclang, setSrclang, js_getSrclang,
getSrclang, js_setLabel, setLabel, js_getLabel, getLabel,
js_setDefault, setDefault, js_getDefault, getDefault,
js_getReadyState, getReadyState, js_getTrack, getTrack,
getTrackUnsafe, getTrackUnchecked, HTMLTrackElement(..),
gTypeHTMLTrackElement)
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
pattern NONE = 0
pattern LOADING = 1
pattern LOADED = 2
pattern ERROR = 3
foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind ::
HTMLTrackElement -> JSString -> IO ()
setKind ::
(MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m ()
setKind self val = liftIO (js_setKind (self) (toJSString val))
foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::
HTMLTrackElement -> IO JSString
getKind ::
(MonadIO m, FromJSString result) => HTMLTrackElement -> m result
getKind self = liftIO (fromJSString <$> (js_getKind (self)))
foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::
HTMLTrackElement -> JSString -> IO ()
setSrc ::
(MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m ()
setSrc self val = liftIO (js_setSrc (self) (toJSString val))
foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::
HTMLTrackElement -> IO JSString
getSrc ::
(MonadIO m, FromJSString result) => HTMLTrackElement -> m result
getSrc self = liftIO (fromJSString <$> (js_getSrc (self)))
foreign import javascript unsafe "$1[\"srclang\"] = $2;"
js_setSrclang :: HTMLTrackElement -> JSString -> IO ()
setSrclang ::
(MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m ()
setSrclang self val
= liftIO (js_setSrclang (self) (toJSString val))
foreign import javascript unsafe "$1[\"srclang\"]" js_getSrclang ::
HTMLTrackElement -> IO JSString
getSrclang ::
(MonadIO m, FromJSString result) => HTMLTrackElement -> m result
getSrclang self = liftIO (fromJSString <$> (js_getSrclang (self)))
foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel
:: HTMLTrackElement -> JSString -> IO ()
setLabel ::
(MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m ()
setLabel self val = liftIO (js_setLabel (self) (toJSString val))
foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::
HTMLTrackElement -> IO JSString
getLabel ::
(MonadIO m, FromJSString result) => HTMLTrackElement -> m result
getLabel self = liftIO (fromJSString <$> (js_getLabel (self)))
foreign import javascript unsafe "$1[\"default\"] = $2;"
js_setDefault :: HTMLTrackElement -> Bool -> IO ()
setDefault :: (MonadIO m) => HTMLTrackElement -> Bool -> m ()
setDefault self val = liftIO (js_setDefault (self) val)
foreign import javascript unsafe "($1[\"default\"] ? 1 : 0)"
js_getDefault :: HTMLTrackElement -> IO Bool
getDefault :: (MonadIO m) => HTMLTrackElement -> m Bool
getDefault self = liftIO (js_getDefault (self))
foreign import javascript unsafe "$1[\"readyState\"]"
js_getReadyState :: HTMLTrackElement -> IO Word
getReadyState :: (MonadIO m) => HTMLTrackElement -> m Word
getReadyState self = liftIO (js_getReadyState (self))
foreign import javascript unsafe "$1[\"track\"]" js_getTrack ::
HTMLTrackElement -> IO (Nullable TextTrack)
getTrack :: (MonadIO m) => HTMLTrackElement -> m (Maybe TextTrack)
getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self)))
getTrackUnsafe ::
(MonadIO m, HasCallStack) => HTMLTrackElement -> m TextTrack
getTrackUnsafe self
= liftIO
((nullableToMaybe <$> (js_getTrack (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getTrackUnchecked :: (MonadIO m) => HTMLTrackElement -> m TextTrack
getTrackUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getTrack (self)))