-- GENERATED by C->Haskell Compiler, version 0.13.12 (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, HTMLVideoElement,
        HTMLVideoElementClass, castToHTMLVideoElement,
        gTypeHTMLVideoElement, toHTMLVideoElement)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 20 "./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 29 "./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 36 "./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 44 "./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 51 "./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 57 "./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 65 "./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 71 "./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 79 "./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 86 "./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 93 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
         (toHTMLVideoElement self))
 
htmlVideoElementSetPoster ::
                          (HTMLVideoElementClass self, GlibString string) =>
                            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 102 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
          (toHTMLVideoElement self)
          valPtr
 
htmlVideoElementGetPoster ::
                          (HTMLVideoElementClass self, GlibString string) =>
                            self -> IO string
htmlVideoElementGetPoster self
  = ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_poster argPtr1)
{-# LINE 110 "./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 121 "./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 130 "./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 139 "./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 148 "./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))