{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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(..), 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, jsUndefined) 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 Data.Traversable (mapM) 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 TextTrack -- | getTrack :: (MonadIO m) => HTMLTrackElement -> m TextTrack getTrack self = liftIO (js_getTrack self)