HTMLVideoElement.chs

module Graphics.UI.Gtk.WebKit.DOM.HTMLVideoElement
       (htmlVideoElementWebkitEnterFullscreen,
        htmlVideoElementWebkitExitFullscreen,
        htmlVideoElementWebkitEnterFullScreen,
        htmlVideoElementWebkitExitFullScreen, htmlVideoElementSetWidth,
        htmlVideoElementGetWidth, htmlVideoElementSetHeight,
        htmlVideoElementGetHeight, htmlVideoElementGetVideoWidth,
        htmlVideoElementGetVideoHeight, htmlVideoElementSetPoster,
        htmlVideoElementGetPoster,
        htmlVideoElementGetWebkitSupportsFullscreen,
        htmlVideoElementGetWebkitDisplayingFullscreen,
        htmlVideoElementGetWebkitDecodedFrameCount,
        htmlVideoElementGetWebkitDroppedFrameCount)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
{#import Graphics.UI.Gtk.WebKit.Types#}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlVideoElementWebkitEnterFullscreen ::
                                      (HTMLVideoElementClass self) => self -> IO ()
htmlVideoElementWebkitEnterFullscreen self
  = propagateGError $
      \ errorPtr_ ->
        {# call webkit_dom_html_video_element_webkit_enter_fullscreen #}
          (toHTMLVideoElement self)
          errorPtr_
 
htmlVideoElementWebkitExitFullscreen ::
                                     (HTMLVideoElementClass self) => self -> IO ()
htmlVideoElementWebkitExitFullscreen self
  = {# call webkit_dom_html_video_element_webkit_exit_fullscreen #}
      (toHTMLVideoElement self)
 
htmlVideoElementWebkitEnterFullScreen ::
                                      (HTMLVideoElementClass self) => self -> IO ()
htmlVideoElementWebkitEnterFullScreen self
  = propagateGError $
      \ errorPtr_ ->
        {# call webkit_dom_html_video_element_webkit_enter_full_screen #}
          (toHTMLVideoElement self)
          errorPtr_
 
htmlVideoElementWebkitExitFullScreen ::
                                     (HTMLVideoElementClass self) => self -> IO ()
htmlVideoElementWebkitExitFullScreen self
  = {# call webkit_dom_html_video_element_webkit_exit_full_screen #}
      (toHTMLVideoElement self)
 
htmlVideoElementSetWidth ::
                         (HTMLVideoElementClass self) => self -> Word -> IO ()
htmlVideoElementSetWidth self val
  = {# call webkit_dom_html_video_element_set_width #}
      (toHTMLVideoElement self)
      (fromIntegral val)
 
htmlVideoElementGetWidth ::
                         (HTMLVideoElementClass self) => self -> IO Word
htmlVideoElementGetWidth self
  = fromIntegral <$>
      ({# call webkit_dom_html_video_element_get_width #}
         (toHTMLVideoElement self))
 
htmlVideoElementSetHeight ::
                          (HTMLVideoElementClass self) => self -> Word -> IO ()
htmlVideoElementSetHeight self val
  = {# call webkit_dom_html_video_element_set_height #}
      (toHTMLVideoElement self)
      (fromIntegral val)
 
htmlVideoElementGetHeight ::
                          (HTMLVideoElementClass self) => self -> IO Word
htmlVideoElementGetHeight self
  = fromIntegral <$>
      ({# call webkit_dom_html_video_element_get_height #}
         (toHTMLVideoElement self))
 
htmlVideoElementGetVideoWidth ::
                              (HTMLVideoElementClass self) => self -> IO Word
htmlVideoElementGetVideoWidth self
  = fromIntegral <$>
      ({# call webkit_dom_html_video_element_get_video_width #}
         (toHTMLVideoElement self))
 
htmlVideoElementGetVideoHeight ::
                               (HTMLVideoElementClass self) => self -> IO Word
htmlVideoElementGetVideoHeight self
  = fromIntegral <$>
      ({# call webkit_dom_html_video_element_get_video_height #}
         (toHTMLVideoElement self))
 
htmlVideoElementSetPoster ::
                          (HTMLVideoElementClass self) => self -> String -> IO ()
htmlVideoElementSetPoster self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_video_element_set_poster #}
          (toHTMLVideoElement self)
          valPtr
 
htmlVideoElementGetPoster ::
                          (HTMLVideoElementClass self) => self -> IO String
htmlVideoElementGetPoster self
  = ({# call webkit_dom_html_video_element_get_poster #}
       (toHTMLVideoElement self))
      >>=
      readUTFString
 
htmlVideoElementGetWebkitSupportsFullscreen ::
                                            (HTMLVideoElementClass self) => self -> IO Bool
htmlVideoElementGetWebkitSupportsFullscreen self
  = toBool <$>
      ({# call
         webkit_dom_html_video_element_get_webkit_supports_fullscreen
         #}
         (toHTMLVideoElement self))
 
htmlVideoElementGetWebkitDisplayingFullscreen ::
                                              (HTMLVideoElementClass self) => self -> IO Bool
htmlVideoElementGetWebkitDisplayingFullscreen self
  = toBool <$>
      ({# call
         webkit_dom_html_video_element_get_webkit_displaying_fullscreen
         #}
         (toHTMLVideoElement self))
 
htmlVideoElementGetWebkitDecodedFrameCount ::
                                           (HTMLVideoElementClass self) => self -> IO Word
htmlVideoElementGetWebkitDecodedFrameCount self
  = fromIntegral <$>
      ({# call
         webkit_dom_html_video_element_get_webkit_decoded_frame_count
         #}
         (toHTMLVideoElement self))
 
htmlVideoElementGetWebkitDroppedFrameCount ::
                                           (HTMLVideoElementClass self) => self -> IO Word
htmlVideoElementGetWebkitDroppedFrameCount self
  = fromIntegral <$>
      ({# call
         webkit_dom_html_video_element_get_webkit_dropped_frame_count
         #}
         (toHTMLVideoElement self))