-- 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/HTMLVideoElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLVideoElement(
webkitEnterFullscreen,
webkitExitFullscreen,
webkitEnterFullScreen,
webkitExitFullScreen,
setWidth,
getWidth,
setHeight,
getHeight,
getVideoWidth,
getVideoHeight,
setPoster,
getPoster,
getWebkitSupportsFullscreen,
getWebkitDisplayingFullscreen,
setWebkitWirelessVideoPlaybackDisabled,
getWebkitWirelessVideoPlaybackDisabled,
getWebkitDecodedFrameCount,
getWebkitDroppedFrameCount,
webKitPresentationModeChanged,
HTMLVideoElement,
castToHTMLVideoElement,
gTypeHTMLVideoElement,
HTMLVideoElementClass,
toHTMLVideoElement,
) 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 47 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
webkitEnterFullscreen ::
                      (MonadIO m, HTMLVideoElementClass self) => self -> m ()
webkitEnterFullscreen self
  = liftIO
      (propagateGError $
         \ errorPtr_ ->
           (\(HTMLVideoElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_webkit_enter_fullscreen argPtr1 arg2)
{-# LINE 57 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
             (toHTMLVideoElement self)
             errorPtr_)
 
webkitExitFullscreen ::
                     (MonadIO m, HTMLVideoElementClass self) => self -> m ()
webkitExitFullscreen self
  = liftIO
      ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_webkit_exit_fullscreen argPtr1)
{-# LINE 65 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
         (toHTMLVideoElement self))
 
webkitEnterFullScreen ::
                      (MonadIO m, HTMLVideoElementClass self) => self -> m ()
webkitEnterFullScreen self
  = liftIO
      (propagateGError $
         \ errorPtr_ ->
           (\(HTMLVideoElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_webkit_enter_full_screen argPtr1 arg2)
{-# LINE 74 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
             (toHTMLVideoElement self)
             errorPtr_)
 
webkitExitFullScreen ::
                     (MonadIO m, HTMLVideoElementClass self) => self -> m ()
webkitExitFullScreen self
  = liftIO
      ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_webkit_exit_full_screen argPtr1)
{-# LINE 82 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
         (toHTMLVideoElement self))

 
setWidth ::
         (MonadIO m, HTMLVideoElementClass self) => self -> Word -> m ()
setWidth self val
  = liftIO
      ((\(HTMLVideoElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_set_width argPtr1 arg2)
{-# LINE 117 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
         (toHTMLVideoElement self)
         (fromIntegral val))
 
getWidth ::
         (MonadIO m, HTMLVideoElementClass self) => self -> m Word
getWidth self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_width argPtr1)
{-# LINE 126 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
            (toHTMLVideoElement self)))
 
setHeight ::
          (MonadIO m, HTMLVideoElementClass self) => self -> Word -> m ()
setHeight self val
  = liftIO
      ((\(HTMLVideoElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_set_height argPtr1 arg2)
{-# LINE 133 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
         (toHTMLVideoElement self)
         (fromIntegral val))
 
getHeight ::
          (MonadIO m, HTMLVideoElementClass self) => self -> m Word
getHeight self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_height argPtr1)
{-# LINE 142 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
            (toHTMLVideoElement self)))
 
getVideoWidth ::
              (MonadIO m, HTMLVideoElementClass self) => self -> m Word
getVideoWidth self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_video_width argPtr1)
{-# LINE 150 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
            (toHTMLVideoElement self)))
 
getVideoHeight ::
               (MonadIO m, HTMLVideoElementClass self) => self -> m Word
getVideoHeight self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_video_height argPtr1)
{-# LINE 158 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
            (toHTMLVideoElement self)))
 
setPoster ::
          (MonadIO m, HTMLVideoElementClass self, GlibString string) =>
            self -> string -> m ()
setPoster self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLVideoElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_set_poster argPtr1 arg2)
{-# LINE 168 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
             (toHTMLVideoElement self)
             valPtr)
 
getPoster ::
          (MonadIO m, HTMLVideoElementClass self, GlibString string) =>
            self -> m string
getPoster self
  = liftIO
      (((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_poster argPtr1)
{-# LINE 177 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
          (toHTMLVideoElement self))
         >>=
         readUTFString)
 
getWebkitSupportsFullscreen ::
                            (MonadIO m, HTMLVideoElementClass self) => self -> m Bool
getWebkitSupportsFullscreen self
  = liftIO
      (toBool <$>
         ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_webkit_supports_fullscreen argPtr1)
{-# LINE 189 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
            (toHTMLVideoElement self)))
 
getWebkitDisplayingFullscreen ::
                              (MonadIO m, HTMLVideoElementClass self) => self -> m Bool
getWebkitDisplayingFullscreen self
  = liftIO
      (toBool <$>
         ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_webkit_displaying_fullscreen argPtr1)
{-# LINE 199 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
            (toHTMLVideoElement self)))

setWebkitWirelessVideoPlaybackDisabled ::
                                       (MonadIO m, HTMLVideoElementClass self) =>
                                         self -> Bool -> m ()
setWebkitWirelessVideoPlaybackDisabled self val
  = liftIO
      ((\(HTMLVideoElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_set_webkit_wireless_video_playback_disabled argPtr1 arg2)
{-# LINE 210 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
         (toHTMLVideoElement self)
         (fromBool val))
 
getWebkitWirelessVideoPlaybackDisabled ::
                                       (MonadIO m, HTMLVideoElementClass self) => self -> m Bool
getWebkitWirelessVideoPlaybackDisabled self
  = liftIO
      (toBool <$>
         ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_webkit_wireless_video_playback_disabled argPtr1)
{-# LINE 221 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
            (toHTMLVideoElement self)))
 
getWebkitDecodedFrameCount ::
                           (MonadIO m, HTMLVideoElementClass self) => self -> m Word
getWebkitDecodedFrameCount self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_webkit_decoded_frame_count argPtr1)
{-# LINE 232 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
            (toHTMLVideoElement self)))
 
getWebkitDroppedFrameCount ::
                           (MonadIO m, HTMLVideoElementClass self) => self -> m Word
getWebkitDroppedFrameCount self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLVideoElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_video_element_get_webkit_dropped_frame_count argPtr1)
{-# LINE 242 "./Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.chs" #-}
            (toHTMLVideoElement self)))

 
webKitPresentationModeChanged ::
                              (HTMLVideoElementClass self) => EventName self Event
webKitPresentationModeChanged
  = EventName "webkitpresentationmodechanged"

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.h 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 "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.h webkit_dom_html_video_element_webkit_exit_fullscreen"
  webkit_dom_html_video_element_webkit_exit_fullscreen :: ((Ptr HTMLVideoElement) -> (IO ()))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.h 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 "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.h 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 "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.h webkit_dom_html_video_element_set_width"
  webkit_dom_html_video_element_set_width :: ((Ptr HTMLVideoElement) -> (CULong -> (IO ())))

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

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

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

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

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

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

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

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.h 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 "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.h 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 "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.h webkit_dom_html_video_element_set_webkit_wireless_video_playback_disabled"
  webkit_dom_html_video_element_set_webkit_wireless_video_playback_disabled :: ((Ptr HTMLVideoElement) -> (CInt -> (IO ())))

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

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.h 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 "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLVideoElement.h webkit_dom_html_video_element_get_webkit_dropped_frame_count"
  webkit_dom_html_video_element_get_webkit_dropped_frame_count :: ((Ptr HTMLVideoElement) -> (IO CULong))