-- 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/HTMLHtmlElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLHtmlElement(
setVersion,
getVersion,
setManifest,
getManifest,
HTMLHtmlElement,
castToHTMLHtmlElement,
gTypeHTMLHtmlElement,
HTMLHtmlElementClass,
toHTMLHtmlElement,
) 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 23 "./Graphics/UI/Gtk/WebKit/DOM/HTMLHtmlElement.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
setVersion ::
           (MonadIO m, HTMLHtmlElementClass self, GlibString string) =>
             self -> string -> m ()
setVersion self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLHtmlElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_html_element_set_version argPtr1 arg2)
{-# LINE 34 "./Graphics/UI/Gtk/WebKit/DOM/HTMLHtmlElement.chs" #-}
             (toHTMLHtmlElement self)
             valPtr)
 
getVersion ::
           (MonadIO m, HTMLHtmlElementClass self, GlibString string) =>
             self -> m string
getVersion self
  = liftIO
      (((\(HTMLHtmlElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_html_element_get_version argPtr1)
{-# LINE 43 "./Graphics/UI/Gtk/WebKit/DOM/HTMLHtmlElement.chs" #-}
          (toHTMLHtmlElement self))
         >>=
         readUTFString)
 
setManifest ::
            (MonadIO m, HTMLHtmlElementClass self, GlibString string) =>
              self -> string -> m ()
setManifest self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLHtmlElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_html_element_set_manifest argPtr1 arg2)
{-# LINE 55 "./Graphics/UI/Gtk/WebKit/DOM/HTMLHtmlElement.chs" #-}
             (toHTMLHtmlElement self)
             valPtr)
 
getManifest ::
            (MonadIO m, HTMLHtmlElementClass self, GlibString string) =>
              self -> m string
getManifest self
  = liftIO
      (((\(HTMLHtmlElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_html_element_get_manifest argPtr1)
{-# LINE 64 "./Graphics/UI/Gtk/WebKit/DOM/HTMLHtmlElement.chs" #-}
          (toHTMLHtmlElement self))
         >>=
         readUTFString)

foreign import ccall safe "webkit_dom_html_html_element_set_version"
  webkit_dom_html_html_element_set_version :: ((Ptr HTMLHtmlElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_html_element_get_version"
  webkit_dom_html_html_element_get_version :: ((Ptr HTMLHtmlElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_html_element_set_manifest"
  webkit_dom_html_html_element_set_manifest :: ((Ptr HTMLHtmlElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_html_element_get_manifest"
  webkit_dom_html_html_element_get_manifest :: ((Ptr HTMLHtmlElement) -> (IO (Ptr CChar)))