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


{-# LINE 1 "./Graphics/UI/Gtk/WebKit/DOM/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
{-# LINE 18 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlVideoElementWebkitEnterFullscreen ::
                                      (HTMLVideoElementClass self) => self -> IO ()
htmlVideoElementWebkitEnterFullscreen self
  = propagateGError $
      \ errorPtr_ ->
        (\(HTMLVideoElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_webkit_enter_fullscreen argPtr1 arg2)
{-# LINE 27 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
          (toHTMLVideoElement self)
          errorPtr_
 
htmlVideoElementWebkitExitFullscreen ::
                                     (HTMLVideoElementClass self) => self -> IO ()
htmlVideoElementWebkitExitFullscreen self
  = (\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_webkit_exit_fullscreen argPtr1)
{-# LINE 34 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
      (toHTMLVideoElement self)
 
htmlVideoElementWebkitEnterFullScreen ::
                                      (HTMLVideoElementClass self) => self -> IO ()
htmlVideoElementWebkitEnterFullScreen self
  = propagateGError $
      \ errorPtr_ ->
        (\(HTMLVideoElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_webkit_enter_full_screen argPtr1 arg2)
{-# LINE 42 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
          (toHTMLVideoElement self)
          errorPtr_
 
htmlVideoElementWebkitExitFullScreen ::
                                     (HTMLVideoElementClass self) => self -> IO ()
htmlVideoElementWebkitExitFullScreen self
  = (\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_webkit_exit_full_screen argPtr1)
{-# LINE 49 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
      (toHTMLVideoElement self)
 
htmlVideoElementSetWidth ::
                         (HTMLVideoElementClass self) => self -> Word -> IO ()
htmlVideoElementSetWidth self val
  = (\(HTMLVideoElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_set_width argPtr1 arg2)
{-# LINE 55 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
      (toHTMLVideoElement self)
      (fromIntegral val)
 
htmlVideoElementGetWidth ::
                         (HTMLVideoElementClass self) => self -> IO Word
htmlVideoElementGetWidth self
  = fromIntegral <$>
      ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_width argPtr1)
{-# LINE 63 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
         (toHTMLVideoElement self))
 
htmlVideoElementSetHeight ::
                          (HTMLVideoElementClass self) => self -> Word -> IO ()
htmlVideoElementSetHeight self val
  = (\(HTMLVideoElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_set_height argPtr1 arg2)
{-# LINE 69 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
      (toHTMLVideoElement self)
      (fromIntegral val)
 
htmlVideoElementGetHeight ::
                          (HTMLVideoElementClass self) => self -> IO Word
htmlVideoElementGetHeight self
  = fromIntegral <$>
      ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_height argPtr1)
{-# LINE 77 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
         (toHTMLVideoElement self))
 
htmlVideoElementGetVideoWidth ::
                              (HTMLVideoElementClass self) => self -> IO Word
htmlVideoElementGetVideoWidth self
  = fromIntegral <$>
      ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_video_width argPtr1)
{-# LINE 84 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
         (toHTMLVideoElement self))
 
htmlVideoElementGetVideoHeight ::
                               (HTMLVideoElementClass self) => self -> IO Word
htmlVideoElementGetVideoHeight self
  = fromIntegral <$>
      ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_video_height argPtr1)
{-# LINE 91 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
         (toHTMLVideoElement self))
 
htmlVideoElementSetPoster ::
                          (HTMLVideoElementClass self) => self -> String -> IO ()
htmlVideoElementSetPoster self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLVideoElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_set_poster argPtr1 arg2)
{-# LINE 99 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
          (toHTMLVideoElement self)
          valPtr
 
htmlVideoElementGetPoster ::
                          (HTMLVideoElementClass self) => self -> IO String
htmlVideoElementGetPoster self
  = ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_poster argPtr1)
{-# LINE 106 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
       (toHTMLVideoElement self))
      >>=
      readUTFString
 
htmlVideoElementGetWebkitSupportsFullscreen ::
                                            (HTMLVideoElementClass self) => self -> IO Bool
htmlVideoElementGetWebkitSupportsFullscreen self
  = toBool <$>
      ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_webkit_supports_fullscreen argPtr1)
{-# LINE 117 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
         (toHTMLVideoElement self))
 
htmlVideoElementGetWebkitDisplayingFullscreen ::
                                              (HTMLVideoElementClass self) => self -> IO Bool
htmlVideoElementGetWebkitDisplayingFullscreen self
  = toBool <$>
      ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_webkit_displaying_fullscreen argPtr1)
{-# LINE 126 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
         (toHTMLVideoElement self))
 
htmlVideoElementGetWebkitDecodedFrameCount ::
                                           (HTMLVideoElementClass self) => self -> IO Word
htmlVideoElementGetWebkitDecodedFrameCount self
  = fromIntegral <$>
      ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_webkit_decoded_frame_count argPtr1)
{-# LINE 135 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
         (toHTMLVideoElement self))
 
htmlVideoElementGetWebkitDroppedFrameCount ::
                                           (HTMLVideoElementClass self) => self -> IO Word
htmlVideoElementGetWebkitDroppedFrameCount self
  = fromIntegral <$>
      ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_webkit_dropped_frame_count argPtr1)
{-# LINE 144 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
         (toHTMLVideoElement self))

foreign import ccall safe "webkit_dom_html_video_element_webkit_enter_fullscreen"
  webkit_dom_html_video_element_webkit_enter_fullscreen :: ((Ptr HTMLVideoElement) -> ((Ptr (Ptr ())) -> (IO ())))

foreign import ccall safe "webkit_dom_html_video_element_webkit_exit_fullscreen"
  webkit_dom_html_video_element_webkit_exit_fullscreen :: ((Ptr HTMLVideoElement) -> (IO ()))

foreign import ccall safe "webkit_dom_html_video_element_webkit_enter_full_screen"
  webkit_dom_html_video_element_webkit_enter_full_screen :: ((Ptr HTMLVideoElement) -> ((Ptr (Ptr ())) -> (IO ())))

foreign import ccall safe "webkit_dom_html_video_element_webkit_exit_full_screen"
  webkit_dom_html_video_element_webkit_exit_full_screen :: ((Ptr HTMLVideoElement) -> (IO ()))

foreign import ccall safe "webkit_dom_html_video_element_set_width"
  webkit_dom_html_video_element_set_width :: ((Ptr HTMLVideoElement) -> (CULong -> (IO ())))

foreign import ccall safe "webkit_dom_html_video_element_get_width"
  webkit_dom_html_video_element_get_width :: ((Ptr HTMLVideoElement) -> (IO CULong))

foreign import ccall safe "webkit_dom_html_video_element_set_height"
  webkit_dom_html_video_element_set_height :: ((Ptr HTMLVideoElement) -> (CULong -> (IO ())))

foreign import ccall safe "webkit_dom_html_video_element_get_height"
  webkit_dom_html_video_element_get_height :: ((Ptr HTMLVideoElement) -> (IO CULong))

foreign import ccall safe "webkit_dom_html_video_element_get_video_width"
  webkit_dom_html_video_element_get_video_width :: ((Ptr HTMLVideoElement) -> (IO CULong))

foreign import ccall safe "webkit_dom_html_video_element_get_video_height"
  webkit_dom_html_video_element_get_video_height :: ((Ptr HTMLVideoElement) -> (IO CULong))

foreign import ccall safe "webkit_dom_html_video_element_set_poster"
  webkit_dom_html_video_element_set_poster :: ((Ptr HTMLVideoElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_video_element_get_poster"
  webkit_dom_html_video_element_get_poster :: ((Ptr HTMLVideoElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_video_element_get_webkit_supports_fullscreen"
  webkit_dom_html_video_element_get_webkit_supports_fullscreen :: ((Ptr HTMLVideoElement) -> (IO CInt))

foreign import ccall safe "webkit_dom_html_video_element_get_webkit_displaying_fullscreen"
  webkit_dom_html_video_element_get_webkit_displaying_fullscreen :: ((Ptr HTMLVideoElement) -> (IO CInt))

foreign import ccall safe "webkit_dom_html_video_element_get_webkit_decoded_frame_count"
  webkit_dom_html_video_element_get_webkit_decoded_frame_count :: ((Ptr HTMLVideoElement) -> (IO CULong))

foreign import ccall safe "webkit_dom_html_video_element_get_webkit_dropped_frame_count"
  webkit_dom_html_video_element_get_webkit_dropped_frame_count :: ((Ptr HTMLVideoElement) -> (IO CULong))