{-# LANGUAGE CPP #-} #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLMediaElement (ghcjs_dom_html_media_element_load, htmlMediaElementLoad, ghcjs_dom_html_media_element_can_play_type, htmlMediaElementCanPlayType, ghcjs_dom_html_media_element_play, htmlMediaElementPlay, ghcjs_dom_html_media_element_pause, htmlMediaElementPause, ghcjs_dom_html_media_element_fast_seek, htmlMediaElementFastSeek, ghcjs_dom_html_media_element_webkit_show_playback_target_picker, htmlMediaElementWebkitShowPlaybackTargetPicker, cNETWORK_EMPTY, cNETWORK_IDLE, cNETWORK_LOADING, cNETWORK_NO_SOURCE, cHAVE_NOTHING, cHAVE_METADATA, cHAVE_CURRENT_DATA, cHAVE_FUTURE_DATA, cHAVE_ENOUGH_DATA, ghcjs_dom_html_media_element_get_error, htmlMediaElementGetError, ghcjs_dom_html_media_element_set_src, htmlMediaElementSetSrc, ghcjs_dom_html_media_element_get_src, htmlMediaElementGetSrc, ghcjs_dom_html_media_element_get_current_src, htmlMediaElementGetCurrentSrc, ghcjs_dom_html_media_element_get_network_state, htmlMediaElementGetNetworkState, ghcjs_dom_html_media_element_set_preload, htmlMediaElementSetPreload, ghcjs_dom_html_media_element_get_preload, htmlMediaElementGetPreload, ghcjs_dom_html_media_element_get_buffered, htmlMediaElementGetBuffered, ghcjs_dom_html_media_element_get_ready_state, htmlMediaElementGetReadyState, ghcjs_dom_html_media_element_get_seeking, htmlMediaElementGetSeeking, ghcjs_dom_html_media_element_set_current_time, htmlMediaElementSetCurrentTime, ghcjs_dom_html_media_element_get_current_time, htmlMediaElementGetCurrentTime, ghcjs_dom_html_media_element_get_duration, htmlMediaElementGetDuration, ghcjs_dom_html_media_element_get_paused, htmlMediaElementGetPaused, ghcjs_dom_html_media_element_set_default_playback_rate, htmlMediaElementSetDefaultPlaybackRate, ghcjs_dom_html_media_element_get_default_playback_rate, htmlMediaElementGetDefaultPlaybackRate, ghcjs_dom_html_media_element_set_playback_rate, htmlMediaElementSetPlaybackRate, ghcjs_dom_html_media_element_get_playback_rate, htmlMediaElementGetPlaybackRate, ghcjs_dom_html_media_element_get_played, htmlMediaElementGetPlayed, ghcjs_dom_html_media_element_get_seekable, htmlMediaElementGetSeekable, ghcjs_dom_html_media_element_get_ended, htmlMediaElementGetEnded, ghcjs_dom_html_media_element_set_autoplay, htmlMediaElementSetAutoplay, ghcjs_dom_html_media_element_get_autoplay, htmlMediaElementGetAutoplay, ghcjs_dom_html_media_element_set_loop, htmlMediaElementSetLoop, ghcjs_dom_html_media_element_get_loop, htmlMediaElementGetLoop, ghcjs_dom_html_media_element_set_controls, htmlMediaElementSetControls, ghcjs_dom_html_media_element_get_controls, htmlMediaElementGetControls, ghcjs_dom_html_media_element_set_volume, htmlMediaElementSetVolume, ghcjs_dom_html_media_element_get_volume, htmlMediaElementGetVolume, ghcjs_dom_html_media_element_set_muted, htmlMediaElementSetMuted, ghcjs_dom_html_media_element_get_muted, htmlMediaElementGetMuted, ghcjs_dom_html_media_element_set_default_muted, htmlMediaElementSetDefaultMuted, ghcjs_dom_html_media_element_get_default_muted, htmlMediaElementGetDefaultMuted, htmlMediaElementOnemptied, htmlMediaElementOnloadedmetadata, htmlMediaElementOnloadeddata, htmlMediaElementOncanplay, htmlMediaElementOncanplaythrough, htmlMediaElementOnplaying, htmlMediaElementOnended, htmlMediaElementOnwaiting, htmlMediaElementOndurationchange, htmlMediaElementOntimeupdate, htmlMediaElementOnplay, htmlMediaElementOnpause, htmlMediaElementOnratechange, htmlMediaElementOnvolumechange, ghcjs_dom_html_media_element_set_webkit_preserves_pitch, htmlMediaElementSetWebkitPreservesPitch, ghcjs_dom_html_media_element_get_webkit_preserves_pitch, htmlMediaElementGetWebkitPreservesPitch, ghcjs_dom_html_media_element_get_webkit_has_closed_captions, htmlMediaElementGetWebkitHasClosedCaptions, ghcjs_dom_html_media_element_set_webkit_closed_captions_visible, htmlMediaElementSetWebkitClosedCaptionsVisible, ghcjs_dom_html_media_element_get_webkit_closed_captions_visible, htmlMediaElementGetWebkitClosedCaptionsVisible, ghcjs_dom_html_media_element_get_webkit_audio_decoded_byte_count, htmlMediaElementGetWebkitAudioDecodedByteCount, ghcjs_dom_html_media_element_get_webkit_video_decoded_byte_count, htmlMediaElementGetWebkitVideoDecodedByteCount, htmlMediaElementOnwebkitneedkey, ghcjs_dom_html_media_element_set_media_group, htmlMediaElementSetMediaGroup, ghcjs_dom_html_media_element_get_media_group, htmlMediaElementGetMediaGroup, ghcjs_dom_html_media_element_get_webkit_current_playback_target_is_wireless, htmlMediaElementGetWebkitCurrentPlaybackTargetIsWireless, htmlMediaElementOnwebkitcurrentplaybacktargetiswirelesschanged, htmlMediaElementOnwebkitplaybacktargetavailabilitychanged, HTMLMediaElement, IsHTMLMediaElement, castToHTMLMediaElement, gTypeHTMLMediaElement, toHTMLMediaElement) where import GHCJS.Types import GHCJS.Foreign import GHCJS.Marshal import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM foreign import javascript unsafe "$1[\"load\"]()" ghcjs_dom_html_media_element_load :: JSRef HTMLMediaElement -> IO () htmlMediaElementLoad :: (IsHTMLMediaElement self) => self -> IO () htmlMediaElementLoad self = ghcjs_dom_html_media_element_load (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"canPlayType\"]($2)" ghcjs_dom_html_media_element_can_play_type :: JSRef HTMLMediaElement -> JSString -> IO JSString htmlMediaElementCanPlayType :: (IsHTMLMediaElement self, ToJSString type', FromJSString result) => self -> type' -> IO result htmlMediaElementCanPlayType self type' = fromJSString <$> (ghcjs_dom_html_media_element_can_play_type (unHTMLMediaElement (toHTMLMediaElement self)) (toJSString type')) foreign import javascript unsafe "$1[\"play\"]()" ghcjs_dom_html_media_element_play :: JSRef HTMLMediaElement -> IO () htmlMediaElementPlay :: (IsHTMLMediaElement self) => self -> IO () htmlMediaElementPlay self = ghcjs_dom_html_media_element_play (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"pause\"]()" ghcjs_dom_html_media_element_pause :: JSRef HTMLMediaElement -> IO () htmlMediaElementPause :: (IsHTMLMediaElement self) => self -> IO () htmlMediaElementPause self = ghcjs_dom_html_media_element_pause (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"fastSeek\"]($2)" ghcjs_dom_html_media_element_fast_seek :: JSRef HTMLMediaElement -> Double -> IO () htmlMediaElementFastSeek :: (IsHTMLMediaElement self) => self -> Double -> IO () htmlMediaElementFastSeek self time = ghcjs_dom_html_media_element_fast_seek (unHTMLMediaElement (toHTMLMediaElement self)) time foreign import javascript unsafe "$1[\"webkitShowPlaybackTargetPicker\"]()" ghcjs_dom_html_media_element_webkit_show_playback_target_picker :: JSRef HTMLMediaElement -> IO () htmlMediaElementWebkitShowPlaybackTargetPicker :: (IsHTMLMediaElement self) => self -> IO () htmlMediaElementWebkitShowPlaybackTargetPicker self = ghcjs_dom_html_media_element_webkit_show_playback_target_picker (unHTMLMediaElement (toHTMLMediaElement self)) cNETWORK_EMPTY = 0 cNETWORK_IDLE = 1 cNETWORK_LOADING = 2 cNETWORK_NO_SOURCE = 3 cHAVE_NOTHING = 0 cHAVE_METADATA = 1 cHAVE_CURRENT_DATA = 2 cHAVE_FUTURE_DATA = 3 cHAVE_ENOUGH_DATA = 4 foreign import javascript unsafe "$1[\"error\"]" ghcjs_dom_html_media_element_get_error :: JSRef HTMLMediaElement -> IO (JSRef MediaError) htmlMediaElementGetError :: (IsHTMLMediaElement self) => self -> IO (Maybe MediaError) htmlMediaElementGetError self = fmap MediaError . maybeJSNull <$> (ghcjs_dom_html_media_element_get_error (unHTMLMediaElement (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"src\"] = $2;" ghcjs_dom_html_media_element_set_src :: JSRef HTMLMediaElement -> JSString -> IO () htmlMediaElementSetSrc :: (IsHTMLMediaElement self, ToJSString val) => self -> val -> IO () htmlMediaElementSetSrc self val = ghcjs_dom_html_media_element_set_src (unHTMLMediaElement (toHTMLMediaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"src\"]" ghcjs_dom_html_media_element_get_src :: JSRef HTMLMediaElement -> IO JSString htmlMediaElementGetSrc :: (IsHTMLMediaElement self, FromJSString result) => self -> IO result htmlMediaElementGetSrc self = fromJSString <$> (ghcjs_dom_html_media_element_get_src (unHTMLMediaElement (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"currentSrc\"]" ghcjs_dom_html_media_element_get_current_src :: JSRef HTMLMediaElement -> IO JSString htmlMediaElementGetCurrentSrc :: (IsHTMLMediaElement self, FromJSString result) => self -> IO result htmlMediaElementGetCurrentSrc self = fromJSString <$> (ghcjs_dom_html_media_element_get_current_src (unHTMLMediaElement (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"networkState\"]" ghcjs_dom_html_media_element_get_network_state :: JSRef HTMLMediaElement -> IO Word htmlMediaElementGetNetworkState :: (IsHTMLMediaElement self) => self -> IO Word htmlMediaElementGetNetworkState self = ghcjs_dom_html_media_element_get_network_state (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"preload\"] = $2;" ghcjs_dom_html_media_element_set_preload :: JSRef HTMLMediaElement -> JSString -> IO () htmlMediaElementSetPreload :: (IsHTMLMediaElement self, ToJSString val) => self -> val -> IO () htmlMediaElementSetPreload self val = ghcjs_dom_html_media_element_set_preload (unHTMLMediaElement (toHTMLMediaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"preload\"]" ghcjs_dom_html_media_element_get_preload :: JSRef HTMLMediaElement -> IO JSString htmlMediaElementGetPreload :: (IsHTMLMediaElement self, FromJSString result) => self -> IO result htmlMediaElementGetPreload self = fromJSString <$> (ghcjs_dom_html_media_element_get_preload (unHTMLMediaElement (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"buffered\"]" ghcjs_dom_html_media_element_get_buffered :: JSRef HTMLMediaElement -> IO (JSRef TimeRanges) htmlMediaElementGetBuffered :: (IsHTMLMediaElement self) => self -> IO (Maybe TimeRanges) htmlMediaElementGetBuffered self = fmap TimeRanges . maybeJSNull <$> (ghcjs_dom_html_media_element_get_buffered (unHTMLMediaElement (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"readyState\"]" ghcjs_dom_html_media_element_get_ready_state :: JSRef HTMLMediaElement -> IO Word htmlMediaElementGetReadyState :: (IsHTMLMediaElement self) => self -> IO Word htmlMediaElementGetReadyState self = ghcjs_dom_html_media_element_get_ready_state (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "($1[\"seeking\"] ? 1 : 0)" ghcjs_dom_html_media_element_get_seeking :: JSRef HTMLMediaElement -> IO Bool htmlMediaElementGetSeeking :: (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetSeeking self = ghcjs_dom_html_media_element_get_seeking (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"currentTime\"] = $2;" ghcjs_dom_html_media_element_set_current_time :: JSRef HTMLMediaElement -> Double -> IO () htmlMediaElementSetCurrentTime :: (IsHTMLMediaElement self) => self -> Double -> IO () htmlMediaElementSetCurrentTime self val = ghcjs_dom_html_media_element_set_current_time (unHTMLMediaElement (toHTMLMediaElement self)) val foreign import javascript unsafe "$1[\"currentTime\"]" ghcjs_dom_html_media_element_get_current_time :: JSRef HTMLMediaElement -> IO Double htmlMediaElementGetCurrentTime :: (IsHTMLMediaElement self) => self -> IO Double htmlMediaElementGetCurrentTime self = ghcjs_dom_html_media_element_get_current_time (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"duration\"]" ghcjs_dom_html_media_element_get_duration :: JSRef HTMLMediaElement -> IO Double htmlMediaElementGetDuration :: (IsHTMLMediaElement self) => self -> IO Double htmlMediaElementGetDuration self = ghcjs_dom_html_media_element_get_duration (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)" ghcjs_dom_html_media_element_get_paused :: JSRef HTMLMediaElement -> IO Bool htmlMediaElementGetPaused :: (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetPaused self = ghcjs_dom_html_media_element_get_paused (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"defaultPlaybackRate\"] = $2;" ghcjs_dom_html_media_element_set_default_playback_rate :: JSRef HTMLMediaElement -> Double -> IO () htmlMediaElementSetDefaultPlaybackRate :: (IsHTMLMediaElement self) => self -> Double -> IO () htmlMediaElementSetDefaultPlaybackRate self val = ghcjs_dom_html_media_element_set_default_playback_rate (unHTMLMediaElement (toHTMLMediaElement self)) val foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]" ghcjs_dom_html_media_element_get_default_playback_rate :: JSRef HTMLMediaElement -> IO Double htmlMediaElementGetDefaultPlaybackRate :: (IsHTMLMediaElement self) => self -> IO Double htmlMediaElementGetDefaultPlaybackRate self = ghcjs_dom_html_media_element_get_default_playback_rate (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"playbackRate\"] = $2;" ghcjs_dom_html_media_element_set_playback_rate :: JSRef HTMLMediaElement -> Double -> IO () htmlMediaElementSetPlaybackRate :: (IsHTMLMediaElement self) => self -> Double -> IO () htmlMediaElementSetPlaybackRate self val = ghcjs_dom_html_media_element_set_playback_rate (unHTMLMediaElement (toHTMLMediaElement self)) val foreign import javascript unsafe "$1[\"playbackRate\"]" ghcjs_dom_html_media_element_get_playback_rate :: JSRef HTMLMediaElement -> IO Double htmlMediaElementGetPlaybackRate :: (IsHTMLMediaElement self) => self -> IO Double htmlMediaElementGetPlaybackRate self = ghcjs_dom_html_media_element_get_playback_rate (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"played\"]" ghcjs_dom_html_media_element_get_played :: JSRef HTMLMediaElement -> IO (JSRef TimeRanges) htmlMediaElementGetPlayed :: (IsHTMLMediaElement self) => self -> IO (Maybe TimeRanges) htmlMediaElementGetPlayed self = fmap TimeRanges . maybeJSNull <$> (ghcjs_dom_html_media_element_get_played (unHTMLMediaElement (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"seekable\"]" ghcjs_dom_html_media_element_get_seekable :: JSRef HTMLMediaElement -> IO (JSRef TimeRanges) htmlMediaElementGetSeekable :: (IsHTMLMediaElement self) => self -> IO (Maybe TimeRanges) htmlMediaElementGetSeekable self = fmap TimeRanges . maybeJSNull <$> (ghcjs_dom_html_media_element_get_seekable (unHTMLMediaElement (toHTMLMediaElement self))) foreign import javascript unsafe "($1[\"ended\"] ? 1 : 0)" ghcjs_dom_html_media_element_get_ended :: JSRef HTMLMediaElement -> IO Bool htmlMediaElementGetEnded :: (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetEnded self = ghcjs_dom_html_media_element_get_ended (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"autoplay\"] = $2;" ghcjs_dom_html_media_element_set_autoplay :: JSRef HTMLMediaElement -> Bool -> IO () htmlMediaElementSetAutoplay :: (IsHTMLMediaElement self) => self -> Bool -> IO () htmlMediaElementSetAutoplay self val = ghcjs_dom_html_media_element_set_autoplay (unHTMLMediaElement (toHTMLMediaElement self)) val foreign import javascript unsafe "($1[\"autoplay\"] ? 1 : 0)" ghcjs_dom_html_media_element_get_autoplay :: JSRef HTMLMediaElement -> IO Bool htmlMediaElementGetAutoplay :: (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetAutoplay self = ghcjs_dom_html_media_element_get_autoplay (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"loop\"] = $2;" ghcjs_dom_html_media_element_set_loop :: JSRef HTMLMediaElement -> Bool -> IO () htmlMediaElementSetLoop :: (IsHTMLMediaElement self) => self -> Bool -> IO () htmlMediaElementSetLoop self val = ghcjs_dom_html_media_element_set_loop (unHTMLMediaElement (toHTMLMediaElement self)) val foreign import javascript unsafe "($1[\"loop\"] ? 1 : 0)" ghcjs_dom_html_media_element_get_loop :: JSRef HTMLMediaElement -> IO Bool htmlMediaElementGetLoop :: (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetLoop self = ghcjs_dom_html_media_element_get_loop (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"controls\"] = $2;" ghcjs_dom_html_media_element_set_controls :: JSRef HTMLMediaElement -> Bool -> IO () htmlMediaElementSetControls :: (IsHTMLMediaElement self) => self -> Bool -> IO () htmlMediaElementSetControls self val = ghcjs_dom_html_media_element_set_controls (unHTMLMediaElement (toHTMLMediaElement self)) val foreign import javascript unsafe "($1[\"controls\"] ? 1 : 0)" ghcjs_dom_html_media_element_get_controls :: JSRef HTMLMediaElement -> IO Bool htmlMediaElementGetControls :: (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetControls self = ghcjs_dom_html_media_element_get_controls (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"volume\"] = $2;" ghcjs_dom_html_media_element_set_volume :: JSRef HTMLMediaElement -> Double -> IO () htmlMediaElementSetVolume :: (IsHTMLMediaElement self) => self -> Double -> IO () htmlMediaElementSetVolume self val = ghcjs_dom_html_media_element_set_volume (unHTMLMediaElement (toHTMLMediaElement self)) val foreign import javascript unsafe "$1[\"volume\"]" ghcjs_dom_html_media_element_get_volume :: JSRef HTMLMediaElement -> IO Double htmlMediaElementGetVolume :: (IsHTMLMediaElement self) => self -> IO Double htmlMediaElementGetVolume self = ghcjs_dom_html_media_element_get_volume (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"muted\"] = $2;" ghcjs_dom_html_media_element_set_muted :: JSRef HTMLMediaElement -> Bool -> IO () htmlMediaElementSetMuted :: (IsHTMLMediaElement self) => self -> Bool -> IO () htmlMediaElementSetMuted self val = ghcjs_dom_html_media_element_set_muted (unHTMLMediaElement (toHTMLMediaElement self)) val foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)" ghcjs_dom_html_media_element_get_muted :: JSRef HTMLMediaElement -> IO Bool htmlMediaElementGetMuted :: (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetMuted self = ghcjs_dom_html_media_element_get_muted (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"defaultMuted\"] = $2;" ghcjs_dom_html_media_element_set_default_muted :: JSRef HTMLMediaElement -> Bool -> IO () htmlMediaElementSetDefaultMuted :: (IsHTMLMediaElement self) => self -> Bool -> IO () htmlMediaElementSetDefaultMuted self val = ghcjs_dom_html_media_element_set_default_muted (unHTMLMediaElement (toHTMLMediaElement self)) val foreign import javascript unsafe "($1[\"defaultMuted\"] ? 1 : 0)" ghcjs_dom_html_media_element_get_default_muted :: JSRef HTMLMediaElement -> IO Bool htmlMediaElementGetDefaultMuted :: (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetDefaultMuted self = ghcjs_dom_html_media_element_get_default_muted (unHTMLMediaElement (toHTMLMediaElement self)) htmlMediaElementOnemptied :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOnemptied = (connect "emptied") htmlMediaElementOnloadedmetadata :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOnloadedmetadata = (connect "loadedmetadata") htmlMediaElementOnloadeddata :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOnloadeddata = (connect "loadeddata") htmlMediaElementOncanplay :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOncanplay = (connect "canplay") htmlMediaElementOncanplaythrough :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOncanplaythrough = (connect "canplaythrough") htmlMediaElementOnplaying :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOnplaying = (connect "playing") htmlMediaElementOnended :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOnended = (connect "ended") htmlMediaElementOnwaiting :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOnwaiting = (connect "waiting") htmlMediaElementOndurationchange :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOndurationchange = (connect "durationchange") htmlMediaElementOntimeupdate :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOntimeupdate = (connect "timeupdate") htmlMediaElementOnplay :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOnplay = (connect "play") htmlMediaElementOnpause :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOnpause = (connect "pause") htmlMediaElementOnratechange :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOnratechange = (connect "ratechange") htmlMediaElementOnvolumechange :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOnvolumechange = (connect "volumechange") foreign import javascript unsafe "$1[\"webkitPreservesPitch\"] = $2;" ghcjs_dom_html_media_element_set_webkit_preserves_pitch :: JSRef HTMLMediaElement -> Bool -> IO () htmlMediaElementSetWebkitPreservesPitch :: (IsHTMLMediaElement self) => self -> Bool -> IO () htmlMediaElementSetWebkitPreservesPitch self val = ghcjs_dom_html_media_element_set_webkit_preserves_pitch (unHTMLMediaElement (toHTMLMediaElement self)) val foreign import javascript unsafe "($1[\"webkitPreservesPitch\"] ? 1 : 0)" ghcjs_dom_html_media_element_get_webkit_preserves_pitch :: JSRef HTMLMediaElement -> IO Bool htmlMediaElementGetWebkitPreservesPitch :: (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetWebkitPreservesPitch self = ghcjs_dom_html_media_element_get_webkit_preserves_pitch (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "($1[\"webkitHasClosedCaptions\"] ? 1 : 0)" ghcjs_dom_html_media_element_get_webkit_has_closed_captions :: JSRef HTMLMediaElement -> IO Bool htmlMediaElementGetWebkitHasClosedCaptions :: (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetWebkitHasClosedCaptions self = ghcjs_dom_html_media_element_get_webkit_has_closed_captions (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"webkitClosedCaptionsVisible\"] = $2;" ghcjs_dom_html_media_element_set_webkit_closed_captions_visible :: JSRef HTMLMediaElement -> Bool -> IO () htmlMediaElementSetWebkitClosedCaptionsVisible :: (IsHTMLMediaElement self) => self -> Bool -> IO () htmlMediaElementSetWebkitClosedCaptionsVisible self val = ghcjs_dom_html_media_element_set_webkit_closed_captions_visible (unHTMLMediaElement (toHTMLMediaElement self)) val foreign import javascript unsafe "($1[\"webkitClosedCaptionsVisible\"] ? 1 : 0)" ghcjs_dom_html_media_element_get_webkit_closed_captions_visible :: JSRef HTMLMediaElement -> IO Bool htmlMediaElementGetWebkitClosedCaptionsVisible :: (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetWebkitClosedCaptionsVisible self = ghcjs_dom_html_media_element_get_webkit_closed_captions_visible (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"webkitAudioDecodedByteCount\"]" ghcjs_dom_html_media_element_get_webkit_audio_decoded_byte_count :: JSRef HTMLMediaElement -> IO Word htmlMediaElementGetWebkitAudioDecodedByteCount :: (IsHTMLMediaElement self) => self -> IO Word htmlMediaElementGetWebkitAudioDecodedByteCount self = ghcjs_dom_html_media_element_get_webkit_audio_decoded_byte_count (unHTMLMediaElement (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"webkitVideoDecodedByteCount\"]" ghcjs_dom_html_media_element_get_webkit_video_decoded_byte_count :: JSRef HTMLMediaElement -> IO Word htmlMediaElementGetWebkitVideoDecodedByteCount :: (IsHTMLMediaElement self) => self -> IO Word htmlMediaElementGetWebkitVideoDecodedByteCount self = ghcjs_dom_html_media_element_get_webkit_video_decoded_byte_count (unHTMLMediaElement (toHTMLMediaElement self)) htmlMediaElementOnwebkitneedkey :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOnwebkitneedkey = (connect "webkitneedkey") foreign import javascript unsafe "$1[\"mediaGroup\"] = $2;" ghcjs_dom_html_media_element_set_media_group :: JSRef HTMLMediaElement -> JSString -> IO () htmlMediaElementSetMediaGroup :: (IsHTMLMediaElement self, ToJSString val) => self -> val -> IO () htmlMediaElementSetMediaGroup self val = ghcjs_dom_html_media_element_set_media_group (unHTMLMediaElement (toHTMLMediaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"mediaGroup\"]" ghcjs_dom_html_media_element_get_media_group :: JSRef HTMLMediaElement -> IO JSString htmlMediaElementGetMediaGroup :: (IsHTMLMediaElement self, FromJSString result) => self -> IO result htmlMediaElementGetMediaGroup self = fromJSString <$> (ghcjs_dom_html_media_element_get_media_group (unHTMLMediaElement (toHTMLMediaElement self))) foreign import javascript unsafe "($1[\"webkitCurrentPlaybackTargetIsWireless\"] ? 1 : 0)" ghcjs_dom_html_media_element_get_webkit_current_playback_target_is_wireless :: JSRef HTMLMediaElement -> IO Bool htmlMediaElementGetWebkitCurrentPlaybackTargetIsWireless :: (IsHTMLMediaElement self) => self -> IO Bool htmlMediaElementGetWebkitCurrentPlaybackTargetIsWireless self = ghcjs_dom_html_media_element_get_webkit_current_playback_target_is_wireless (unHTMLMediaElement (toHTMLMediaElement self)) htmlMediaElementOnwebkitcurrentplaybacktargetiswirelesschanged :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOnwebkitcurrentplaybacktargetiswirelesschanged = (connect "webkitcurrentplaybacktargetiswirelesschanged") htmlMediaElementOnwebkitplaybacktargetavailabilitychanged :: (IsHTMLMediaElement self) => Signal self (EventM UIEvent self ()) htmlMediaElementOnwebkitplaybacktargetavailabilitychanged = (connect "webkitplaybacktargetavailabilitychanged") #else module GHCJS.DOM.HTMLMediaElement ( module Graphics.UI.Gtk.WebKit.DOM.HTMLMediaElement ) where import Graphics.UI.Gtk.WebKit.DOM.HTMLMediaElement #endif