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, HTMLVideoElement,
        HTMLVideoElementClass, castToHTMLVideoElement,
        gTypeHTMLVideoElement, toHTMLVideoElement)
       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, GlibString string) =>
                            self -> string -> IO ()
htmlVideoElementSetPoster self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_video_element_set_poster #}
          (toHTMLVideoElement self)
          valPtr
 
htmlVideoElementGetPoster ::
                          (HTMLVideoElementClass self, GlibString string) =>
                            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))