{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} 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, HTMLTrackElement, castToHTMLTrackElement, gTypeHTMLTrackElement) 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) 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 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)))