-- GENERATED by C->Haskell Compiler, version 0.13.13 (gtk2hs branch) "Bin IO", 27 May 2012 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLMediaElement(
load,
play,
pause,
fastSeek,
addTextTrack,
webkitShowPlaybackTargetPicker,
pattern NETWORK_EMPTY,
pattern NETWORK_IDLE,
pattern NETWORK_LOADING,
pattern NETWORK_NO_SOURCE,
pattern HAVE_NOTHING,
pattern HAVE_METADATA,
pattern HAVE_CURRENT_DATA,
pattern HAVE_FUTURE_DATA,
pattern HAVE_ENOUGH_DATA,
getError,
setSrc,
getSrc,
getCurrentSrc,
getNetworkState,
setPreload,
getPreload,
getBuffered,
getReadyState,
getSeeking,
setCurrentTime,
getCurrentTime,
getDuration,
getPaused,
setDefaultPlaybackRate,
getDefaultPlaybackRate,
setPlaybackRate,
getPlaybackRate,
getPlayed,
getSeekable,
getEnded,
setAutoplay,
getAutoplay,
setLoop,
getLoop,
setControls,
getControls,
setVolume,
getVolume,
setMuted,
getMuted,
setDefaultMuted,
getDefaultMuted,
emptied,
loadedMetadata,
loadedData,
canPlay,
canPlayThrough,
playing,
ended,
waiting,
durationChange,
timeUpdate,
playEvent,
pauseEvent,
rateChange,
volumeChange,
setWebkitPreservesPitch,
getWebkitPreservesPitch,
getWebkitHasClosedCaptions,
setWebkitClosedCaptionsVisible,
getWebkitClosedCaptionsVisible,
getWebkitAudioDecodedByteCount,
getWebkitVideoDecodedByteCount,
webKitKeyAdded,
webKitKeyError,
webKitKeyMessage,
webKitNeedKey,
getAudioTracks,
getTextTracks,
getVideoTracks,
setMediaGroup,
getMediaGroup,
getWebkitCurrentPlaybackTargetIsWireless,
webKitCurrentPlaybackTargetIsWirelessChanged,
webKitPlaybackTargetAvailabilityChanged,
HTMLMediaElement,
castToHTMLMediaElement,
gTypeHTMLMediaElement,
HTMLMediaElementClass,
toHTMLMediaElement,
) where
import Prelude hiding (drop, error, print)
import Data.Typeable (Typeable)
import Foreign.Marshal (maybePeek, maybeWith)
import System.Glib.FFI (maybeNull, withForeignPtr, nullForeignPtr, Ptr, nullPtr, castPtr, Word, Int64, Word64, CChar(..), CInt(..), CUInt(..), CLong(..), CULong(..), CLLong(..), CULLong(..), CShort(..), CUShort(..), CFloat(..), CDouble(..), toBool, fromBool)
import System.Glib.UTFString (GlibString(..), readUTFString)
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures
import Graphics.UI.Gtk.WebKit.DOM.EventM
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 131 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums


load :: (MonadIO m, HTMLMediaElementClass self) => self -> m ()
load self
  = liftIO
      ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_load argPtr1)
{-# LINE 139 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
         (toHTMLMediaElement self))

 
play :: (MonadIO m, HTMLMediaElementClass self) => self -> m ()
play self
  = liftIO
      ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_play argPtr1)
{-# LINE 164 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
         (toHTMLMediaElement self))
 
pause :: (MonadIO m, HTMLMediaElementClass self) => self -> m ()
pause self
  = liftIO
      ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_pause argPtr1)
{-# LINE 170 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
         (toHTMLMediaElement self))

fastSeek ::
         (MonadIO m, HTMLMediaElementClass self) => self -> Double -> m ()
fastSeek self time
  = liftIO
      ((\(HTMLMediaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_fast_seek argPtr1 arg2)
{-# LINE 178 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
         (toHTMLMediaElement self)
         (realToFrac time))


addTextTrack ::
             (MonadIO m, HTMLMediaElementClass self, GlibString string) =>
               self -> string -> string -> string -> m (Maybe TextTrack)
addTextTrack self kind label language
  = liftIO
      (maybeNull (makeNewGObject mkTextTrack)
         (propagateGError $
            \ errorPtr_ ->
              withUTFString language $
                \ languagePtr ->
                  withUTFString label $
                    \ labelPtr ->
                      withUTFString kind $
                        \ kindPtr ->
                          (\(HTMLMediaElement arg1) arg2 arg3 arg4 arg5 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_add_text_track argPtr1 arg2 arg3 arg4 arg5)
{-# LINE 265 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
                            (toHTMLMediaElement self)
                            kindPtr
                        labelPtr
                    languagePtr
                errorPtr_))


webkitShowPlaybackTargetPicker ::
                               (MonadIO m, HTMLMediaElementClass self) => self -> m ()
webkitShowPlaybackTargetPicker self
  = liftIO
      ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_webkit_show_playback_target_picker argPtr1)
{-# LINE 292 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
         (toHTMLMediaElement self))
pattern NETWORK_EMPTY = 0
pattern NETWORK_IDLE = 1
pattern NETWORK_LOADING = 2
pattern NETWORK_NO_SOURCE = 3
pattern HAVE_NOTHING = 0
pattern HAVE_METADATA = 1
pattern HAVE_CURRENT_DATA = 2
pattern HAVE_FUTURE_DATA = 3
pattern HAVE_ENOUGH_DATA = 4
 
getError ::
         (MonadIO m, HTMLMediaElementClass self) =>
           self -> m (Maybe MediaError)
getError self
  = liftIO
      (maybeNull (makeNewGObject mkMediaError)
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_error argPtr1)
{-# LINE 311 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
setSrc ::
       (MonadIO m, HTMLMediaElementClass self, GlibString string) =>
         self -> string -> m ()
setSrc self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLMediaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_set_src argPtr1 arg2)
{-# LINE 321 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
             (toHTMLMediaElement self)
             valPtr)
 
getSrc ::
       (MonadIO m, HTMLMediaElementClass self, GlibString string) =>
         self -> m string
getSrc self
  = liftIO
      (((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_src argPtr1)
{-# LINE 330 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
          (toHTMLMediaElement self))
         >>=
         readUTFString)
 
getCurrentSrc ::
              (MonadIO m, HTMLMediaElementClass self, GlibString string) =>
                self -> m string
getCurrentSrc self
  = liftIO
      (((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_current_src argPtr1)
{-# LINE 340 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
          (toHTMLMediaElement self))
         >>=
         readUTFString)
 
getNetworkState ::
                (MonadIO m, HTMLMediaElementClass self) => self -> m Word
getNetworkState self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_network_state argPtr1)
{-# LINE 350 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
setPreload ::
           (MonadIO m, HTMLMediaElementClass self, GlibString string) =>
             self -> string -> m ()
setPreload self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLMediaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_set_preload argPtr1 arg2)
{-# LINE 360 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
             (toHTMLMediaElement self)
             valPtr)
 
getPreload ::
           (MonadIO m, HTMLMediaElementClass self, GlibString string) =>
             self -> m string
getPreload self
  = liftIO
      (((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_preload argPtr1)
{-# LINE 369 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
          (toHTMLMediaElement self))
         >>=
         readUTFString)
 
getBuffered ::
            (MonadIO m, HTMLMediaElementClass self) =>
              self -> m (Maybe TimeRanges)
getBuffered self
  = liftIO
      (maybeNull (makeNewGObject mkTimeRanges)
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_buffered argPtr1)
{-# LINE 380 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
getReadyState ::
              (MonadIO m, HTMLMediaElementClass self) => self -> m Word
getReadyState self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_ready_state argPtr1)
{-# LINE 388 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
getSeeking ::
           (MonadIO m, HTMLMediaElementClass self) => self -> m Bool
getSeeking self
  = liftIO
      (toBool <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_seeking argPtr1)
{-# LINE 396 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
setCurrentTime ::
               (MonadIO m, HTMLMediaElementClass self) => self -> Double -> m ()
setCurrentTime self val
  = liftIO
      (propagateGError $
         \ errorPtr_ ->
           (\(HTMLMediaElement arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_set_current_time argPtr1 arg2 arg3)
{-# LINE 405 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
             (toHTMLMediaElement self)
             (realToFrac val)
             errorPtr_)
 
getCurrentTime ::
               (MonadIO m, HTMLMediaElementClass self) => self -> m Double
getCurrentTime self
  = liftIO
      (realToFrac <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_current_time argPtr1)
{-# LINE 415 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
getDuration ::
            (MonadIO m, HTMLMediaElementClass self) => self -> m Double
getDuration self
  = liftIO
      (realToFrac <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_duration argPtr1)
{-# LINE 423 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
getPaused ::
          (MonadIO m, HTMLMediaElementClass self) => self -> m Bool
getPaused self
  = liftIO
      (toBool <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_paused argPtr1)
{-# LINE 431 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
setDefaultPlaybackRate ::
                       (MonadIO m, HTMLMediaElementClass self) => self -> Double -> m ()
setDefaultPlaybackRate self val
  = liftIO
      ((\(HTMLMediaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_set_default_playback_rate argPtr1 arg2)
{-# LINE 438 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
         (toHTMLMediaElement self)
         (realToFrac val))
 
getDefaultPlaybackRate ::
                       (MonadIO m, HTMLMediaElementClass self) => self -> m Double
getDefaultPlaybackRate self
  = liftIO
      (realToFrac <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_default_playback_rate argPtr1)
{-# LINE 447 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
setPlaybackRate ::
                (MonadIO m, HTMLMediaElementClass self) => self -> Double -> m ()
setPlaybackRate self val
  = liftIO
      ((\(HTMLMediaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_set_playback_rate argPtr1 arg2)
{-# LINE 454 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
         (toHTMLMediaElement self)
         (realToFrac val))
 
getPlaybackRate ::
                (MonadIO m, HTMLMediaElementClass self) => self -> m Double
getPlaybackRate self
  = liftIO
      (realToFrac <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_playback_rate argPtr1)
{-# LINE 463 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
getPlayed ::
          (MonadIO m, HTMLMediaElementClass self) =>
            self -> m (Maybe TimeRanges)
getPlayed self
  = liftIO
      (maybeNull (makeNewGObject mkTimeRanges)
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_played argPtr1)
{-# LINE 472 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
getSeekable ::
            (MonadIO m, HTMLMediaElementClass self) =>
              self -> m (Maybe TimeRanges)
getSeekable self
  = liftIO
      (maybeNull (makeNewGObject mkTimeRanges)
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_seekable argPtr1)
{-# LINE 481 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
getEnded ::
         (MonadIO m, HTMLMediaElementClass self) => self -> m Bool
getEnded self
  = liftIO
      (toBool <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_ended argPtr1)
{-# LINE 489 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
setAutoplay ::
            (MonadIO m, HTMLMediaElementClass self) => self -> Bool -> m ()
setAutoplay self val
  = liftIO
      ((\(HTMLMediaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_set_autoplay argPtr1 arg2)
{-# LINE 496 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
         (toHTMLMediaElement self)
         (fromBool val))
 
getAutoplay ::
            (MonadIO m, HTMLMediaElementClass self) => self -> m Bool
getAutoplay self
  = liftIO
      (toBool <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_autoplay argPtr1)
{-# LINE 505 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
setLoop ::
        (MonadIO m, HTMLMediaElementClass self) => self -> Bool -> m ()
setLoop self val
  = liftIO
      ((\(HTMLMediaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_set_loop argPtr1 arg2)
{-# LINE 512 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
         (toHTMLMediaElement self)
         (fromBool val))
 
getLoop ::
        (MonadIO m, HTMLMediaElementClass self) => self -> m Bool
getLoop self
  = liftIO
      (toBool <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_loop argPtr1)
{-# LINE 521 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
setControls ::
            (MonadIO m, HTMLMediaElementClass self) => self -> Bool -> m ()
setControls self val
  = liftIO
      ((\(HTMLMediaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_set_controls argPtr1 arg2)
{-# LINE 528 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
         (toHTMLMediaElement self)
         (fromBool val))
 
getControls ::
            (MonadIO m, HTMLMediaElementClass self) => self -> m Bool
getControls self
  = liftIO
      (toBool <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_controls argPtr1)
{-# LINE 537 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
setVolume ::
          (MonadIO m, HTMLMediaElementClass self) => self -> Double -> m ()
setVolume self val
  = liftIO
      (propagateGError $
         \ errorPtr_ ->
           (\(HTMLMediaElement arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_set_volume argPtr1 arg2 arg3)
{-# LINE 546 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
             (toHTMLMediaElement self)
             (realToFrac val)
             errorPtr_)
 
getVolume ::
          (MonadIO m, HTMLMediaElementClass self) => self -> m Double
getVolume self
  = liftIO
      (realToFrac <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_volume argPtr1)
{-# LINE 556 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
setMuted ::
         (MonadIO m, HTMLMediaElementClass self) => self -> Bool -> m ()
setMuted self val
  = liftIO
      ((\(HTMLMediaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_set_muted argPtr1 arg2)
{-# LINE 563 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
         (toHTMLMediaElement self)
         (fromBool val))
 
getMuted ::
         (MonadIO m, HTMLMediaElementClass self) => self -> m Bool
getMuted self
  = liftIO
      (toBool <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_muted argPtr1)
{-# LINE 572 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
setDefaultMuted ::
                (MonadIO m, HTMLMediaElementClass self) => self -> Bool -> m ()
setDefaultMuted self val
  = liftIO
      ((\(HTMLMediaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_set_default_muted argPtr1 arg2)
{-# LINE 579 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
         (toHTMLMediaElement self)
         (fromBool val))
 
getDefaultMuted ::
                (MonadIO m, HTMLMediaElementClass self) => self -> m Bool
getDefaultMuted self
  = liftIO
      (toBool <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_default_muted argPtr1)
{-# LINE 588 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
emptied :: (HTMLMediaElementClass self) => EventName self Event
emptied = EventName "emptied"
 
loadedMetadata ::
               (HTMLMediaElementClass self) => EventName self Event
loadedMetadata = EventName "loadedmetadata"
 
loadedData :: (HTMLMediaElementClass self) => EventName self Event
loadedData = EventName "loadeddata"
 
canPlay :: (HTMLMediaElementClass self) => EventName self Event
canPlay = EventName "canplay"
 
canPlayThrough ::
               (HTMLMediaElementClass self) => EventName self Event
canPlayThrough = EventName "canplaythrough"
 
playing :: (HTMLMediaElementClass self) => EventName self Event
playing = EventName "playing"
 
ended :: (HTMLMediaElementClass self) => EventName self Event
ended = EventName "ended"
 
waiting :: (HTMLMediaElementClass self) => EventName self Event
waiting = EventName "waiting"
 
durationChange ::
               (HTMLMediaElementClass self) => EventName self Event
durationChange = EventName "durationchange"
 
timeUpdate :: (HTMLMediaElementClass self) => EventName self Event
timeUpdate = EventName "timeupdate"
 
playEvent :: (HTMLMediaElementClass self) => EventName self Event
playEvent = EventName "play"
 
pauseEvent :: (HTMLMediaElementClass self) => EventName self Event
pauseEvent = EventName "pause"
 
rateChange :: (HTMLMediaElementClass self) => EventName self Event
rateChange = EventName "ratechange"
 
volumeChange ::
             (HTMLMediaElementClass self) => EventName self Event
volumeChange = EventName "volumechange"
 
setWebkitPreservesPitch ::
                        (MonadIO m, HTMLMediaElementClass self) => self -> Bool -> m ()
setWebkitPreservesPitch self val
  = liftIO
      ((\(HTMLMediaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_set_webkit_preserves_pitch argPtr1 arg2)
{-# LINE 642 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
         (toHTMLMediaElement self)
         (fromBool val))
 
getWebkitPreservesPitch ::
                        (MonadIO m, HTMLMediaElementClass self) => self -> m Bool
getWebkitPreservesPitch self
  = liftIO
      (toBool <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_webkit_preserves_pitch argPtr1)
{-# LINE 652 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
getWebkitHasClosedCaptions ::
                           (MonadIO m, HTMLMediaElementClass self) => self -> m Bool
getWebkitHasClosedCaptions self
  = liftIO
      (toBool <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_webkit_has_closed_captions argPtr1)
{-# LINE 662 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
setWebkitClosedCaptionsVisible ::
                               (MonadIO m, HTMLMediaElementClass self) => self -> Bool -> m ()
setWebkitClosedCaptionsVisible self val
  = liftIO
      ((\(HTMLMediaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_set_webkit_closed_captions_visible argPtr1 arg2)
{-# LINE 671 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
         (toHTMLMediaElement self)
         (fromBool val))
 
getWebkitClosedCaptionsVisible ::
                               (MonadIO m, HTMLMediaElementClass self) => self -> m Bool
getWebkitClosedCaptionsVisible self
  = liftIO
      (toBool <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_webkit_closed_captions_visible argPtr1)
{-# LINE 682 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
getWebkitAudioDecodedByteCount ::
                               (MonadIO m, HTMLMediaElementClass self) => self -> m Word
getWebkitAudioDecodedByteCount self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_webkit_audio_decoded_byte_count argPtr1)
{-# LINE 692 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
getWebkitVideoDecodedByteCount ::
                               (MonadIO m, HTMLMediaElementClass self) => self -> m Word
getWebkitVideoDecodedByteCount self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_webkit_video_decoded_byte_count argPtr1)
{-# LINE 702 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
webKitKeyAdded ::
               (HTMLMediaElementClass self) => EventName self Event
webKitKeyAdded = EventName "webkitkeyadded"
 
webKitKeyError ::
               (HTMLMediaElementClass self) => EventName self Event
webKitKeyError = EventName "webkitkeyerror"
 
webKitKeyMessage ::
                 (HTMLMediaElementClass self) => EventName self Event
webKitKeyMessage = EventName "webkitkeymessage"
 
webKitNeedKey ::
              (HTMLMediaElementClass self) => EventName self Event
webKitNeedKey = EventName "webkitneedkey"


getAudioTracks ::
               (MonadIO m, HTMLMediaElementClass self) =>
                 self -> m (Maybe AudioTrackList)
getAudioTracks self
  = liftIO
      (maybeNull (makeNewGObject mkAudioTrackList)
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_audio_tracks argPtr1)
{-# LINE 739 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
getTextTracks ::
              (MonadIO m, HTMLMediaElementClass self) =>
                self -> m (Maybe TextTrackList)
getTextTracks self
  = liftIO
      (maybeNull (makeNewGObject mkTextTrackList)
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_text_tracks argPtr1)
{-# LINE 748 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
getVideoTracks ::
               (MonadIO m, HTMLMediaElementClass self) =>
                 self -> m (Maybe VideoTrackList)
getVideoTracks self
  = liftIO
      (maybeNull (makeNewGObject mkVideoTrackList)
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_video_tracks argPtr1)
{-# LINE 757 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
setMediaGroup ::
              (MonadIO m, HTMLMediaElementClass self, GlibString string) =>
                self -> (Maybe string) -> m ()
setMediaGroup self val
  = liftIO
      (maybeWith withUTFString val $
         \ valPtr ->
           (\(HTMLMediaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_set_media_group argPtr1 arg2)
{-# LINE 768 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
             (toHTMLMediaElement self)
             valPtr)
 
getMediaGroup ::
              (MonadIO m, HTMLMediaElementClass self, GlibString string) =>
                self -> m (Maybe string)
getMediaGroup self
  = liftIO
      (((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_media_group argPtr1)
{-# LINE 777 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
          (toHTMLMediaElement self))
         >>=
         maybePeek readUTFString)

getWebkitCurrentPlaybackTargetIsWireless ::
                                         (MonadIO m, HTMLMediaElementClass self) => self -> m Bool
getWebkitCurrentPlaybackTargetIsWireless self
  = liftIO
      (toBool <$>
         ((\(HTMLMediaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_media_element_get_webkit_current_playback_target_is_wireless argPtr1)
{-# LINE 790 "./Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.chs" #-}
            (toHTMLMediaElement self)))
 
webKitCurrentPlaybackTargetIsWirelessChanged ::
                                             (HTMLMediaElementClass self) => EventName self Event
webKitCurrentPlaybackTargetIsWirelessChanged
  = EventName "webkitcurrentplaybacktargetiswirelesschanged"
 
webKitPlaybackTargetAvailabilityChanged ::
                                        (HTMLMediaElementClass self) => EventName self Event
webKitPlaybackTargetAvailabilityChanged
  = EventName "webkitplaybacktargetavailabilitychanged"


foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_load"
  webkit_dom_html_media_element_load :: ((Ptr HTMLMediaElement) -> (IO ()))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_play"
  webkit_dom_html_media_element_play :: ((Ptr HTMLMediaElement) -> (IO ()))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_pause"
  webkit_dom_html_media_element_pause :: ((Ptr HTMLMediaElement) -> (IO ()))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_fast_seek"
  webkit_dom_html_media_element_fast_seek :: ((Ptr HTMLMediaElement) -> (CDouble -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_add_text_track"
  webkit_dom_html_media_element_add_text_track :: ((Ptr HTMLMediaElement) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr (Ptr ())) -> (IO (Ptr TextTrack)))))))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_webkit_show_playback_target_picker"
  webkit_dom_html_media_element_webkit_show_playback_target_picker :: ((Ptr HTMLMediaElement) -> (IO ()))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_error"
  webkit_dom_html_media_element_get_error :: ((Ptr HTMLMediaElement) -> (IO (Ptr MediaError)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_set_src"
  webkit_dom_html_media_element_set_src :: ((Ptr HTMLMediaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_src"
  webkit_dom_html_media_element_get_src :: ((Ptr HTMLMediaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_current_src"
  webkit_dom_html_media_element_get_current_src :: ((Ptr HTMLMediaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_network_state"
  webkit_dom_html_media_element_get_network_state :: ((Ptr HTMLMediaElement) -> (IO CUShort))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_set_preload"
  webkit_dom_html_media_element_set_preload :: ((Ptr HTMLMediaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_preload"
  webkit_dom_html_media_element_get_preload :: ((Ptr HTMLMediaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_buffered"
  webkit_dom_html_media_element_get_buffered :: ((Ptr HTMLMediaElement) -> (IO (Ptr TimeRanges)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_ready_state"
  webkit_dom_html_media_element_get_ready_state :: ((Ptr HTMLMediaElement) -> (IO CUShort))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_seeking"
  webkit_dom_html_media_element_get_seeking :: ((Ptr HTMLMediaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_set_current_time"
  webkit_dom_html_media_element_set_current_time :: ((Ptr HTMLMediaElement) -> (CDouble -> ((Ptr (Ptr ())) -> (IO ()))))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_current_time"
  webkit_dom_html_media_element_get_current_time :: ((Ptr HTMLMediaElement) -> (IO CDouble))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_duration"
  webkit_dom_html_media_element_get_duration :: ((Ptr HTMLMediaElement) -> (IO CDouble))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_paused"
  webkit_dom_html_media_element_get_paused :: ((Ptr HTMLMediaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_set_default_playback_rate"
  webkit_dom_html_media_element_set_default_playback_rate :: ((Ptr HTMLMediaElement) -> (CDouble -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_default_playback_rate"
  webkit_dom_html_media_element_get_default_playback_rate :: ((Ptr HTMLMediaElement) -> (IO CDouble))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_set_playback_rate"
  webkit_dom_html_media_element_set_playback_rate :: ((Ptr HTMLMediaElement) -> (CDouble -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_playback_rate"
  webkit_dom_html_media_element_get_playback_rate :: ((Ptr HTMLMediaElement) -> (IO CDouble))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_played"
  webkit_dom_html_media_element_get_played :: ((Ptr HTMLMediaElement) -> (IO (Ptr TimeRanges)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_seekable"
  webkit_dom_html_media_element_get_seekable :: ((Ptr HTMLMediaElement) -> (IO (Ptr TimeRanges)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_ended"
  webkit_dom_html_media_element_get_ended :: ((Ptr HTMLMediaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_set_autoplay"
  webkit_dom_html_media_element_set_autoplay :: ((Ptr HTMLMediaElement) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_autoplay"
  webkit_dom_html_media_element_get_autoplay :: ((Ptr HTMLMediaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_set_loop"
  webkit_dom_html_media_element_set_loop :: ((Ptr HTMLMediaElement) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_loop"
  webkit_dom_html_media_element_get_loop :: ((Ptr HTMLMediaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_set_controls"
  webkit_dom_html_media_element_set_controls :: ((Ptr HTMLMediaElement) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_controls"
  webkit_dom_html_media_element_get_controls :: ((Ptr HTMLMediaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_set_volume"
  webkit_dom_html_media_element_set_volume :: ((Ptr HTMLMediaElement) -> (CDouble -> ((Ptr (Ptr ())) -> (IO ()))))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_volume"
  webkit_dom_html_media_element_get_volume :: ((Ptr HTMLMediaElement) -> (IO CDouble))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_set_muted"
  webkit_dom_html_media_element_set_muted :: ((Ptr HTMLMediaElement) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_muted"
  webkit_dom_html_media_element_get_muted :: ((Ptr HTMLMediaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_set_default_muted"
  webkit_dom_html_media_element_set_default_muted :: ((Ptr HTMLMediaElement) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_default_muted"
  webkit_dom_html_media_element_get_default_muted :: ((Ptr HTMLMediaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_set_webkit_preserves_pitch"
  webkit_dom_html_media_element_set_webkit_preserves_pitch :: ((Ptr HTMLMediaElement) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_webkit_preserves_pitch"
  webkit_dom_html_media_element_get_webkit_preserves_pitch :: ((Ptr HTMLMediaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_webkit_has_closed_captions"
  webkit_dom_html_media_element_get_webkit_has_closed_captions :: ((Ptr HTMLMediaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_set_webkit_closed_captions_visible"
  webkit_dom_html_media_element_set_webkit_closed_captions_visible :: ((Ptr HTMLMediaElement) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_webkit_closed_captions_visible"
  webkit_dom_html_media_element_get_webkit_closed_captions_visible :: ((Ptr HTMLMediaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_webkit_audio_decoded_byte_count"
  webkit_dom_html_media_element_get_webkit_audio_decoded_byte_count :: ((Ptr HTMLMediaElement) -> (IO CULong))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_webkit_video_decoded_byte_count"
  webkit_dom_html_media_element_get_webkit_video_decoded_byte_count :: ((Ptr HTMLMediaElement) -> (IO CULong))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_audio_tracks"
  webkit_dom_html_media_element_get_audio_tracks :: ((Ptr HTMLMediaElement) -> (IO (Ptr AudioTrackList)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_text_tracks"
  webkit_dom_html_media_element_get_text_tracks :: ((Ptr HTMLMediaElement) -> (IO (Ptr TextTrackList)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_video_tracks"
  webkit_dom_html_media_element_get_video_tracks :: ((Ptr HTMLMediaElement) -> (IO (Ptr VideoTrackList)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_set_media_group"
  webkit_dom_html_media_element_set_media_group :: ((Ptr HTMLMediaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_media_group"
  webkit_dom_html_media_element_get_media_group :: ((Ptr HTMLMediaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLMediaElement.h webkit_dom_html_media_element_get_webkit_current_playback_target_is_wireless"
  webkit_dom_html_media_element_get_webkit_current_playback_target_is_wireless :: ((Ptr HTMLMediaElement) -> (IO CInt))