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


{-# LINE 1 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLBodyElement
       (htmlBodyElementSetALink, htmlBodyElementGetALink,
        htmlBodyElementSetBackground, htmlBodyElementGetBackground,
        htmlBodyElementSetBgColor, htmlBodyElementGetBgColor,
        htmlBodyElementSetLink, htmlBodyElementGetLink,
        htmlBodyElementSetText, htmlBodyElementGetText,
        htmlBodyElementSetVLink, htmlBodyElementGetVLink,
        htmlBodyElementOnbeforeunload, htmlBodyElementOnhashchange,
        htmlBodyElementOnmessage, htmlBodyElementOnoffline,
        htmlBodyElementOnonline, htmlBodyElementOnpopstate,
        htmlBodyElementOnresize, htmlBodyElementOnstorage,
        htmlBodyElementOnunload, htmlBodyElementOnorientationchange,
        htmlBodyElementOnblur, htmlBodyElementOnerror,
        htmlBodyElementOnfocus, htmlBodyElementOnload, HTMLBodyElement,
        HTMLBodyElementClass, castToHTMLBodyElement, gTypeHTMLBodyElement,
        toHTMLBodyElement)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 21 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlBodyElementSetALink ::
                        (HTMLBodyElementClass self) => self -> String -> IO ()
htmlBodyElementSetALink self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLBodyElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_set_a_link argPtr1 arg2)
{-# LINE 30 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
          (toHTMLBodyElement self)
          valPtr
 
htmlBodyElementGetALink ::
                        (HTMLBodyElementClass self) => self -> IO String
htmlBodyElementGetALink self
  = ((\(HTMLBodyElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_get_a_link argPtr1)
{-# LINE 37 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
       (toHTMLBodyElement self))
      >>=
      readUTFString
 
htmlBodyElementSetBackground ::
                             (HTMLBodyElementClass self) => self -> String -> IO ()
htmlBodyElementSetBackground self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLBodyElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_set_background argPtr1 arg2)
{-# LINE 47 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
          (toHTMLBodyElement self)
          valPtr
 
htmlBodyElementGetBackground ::
                             (HTMLBodyElementClass self) => self -> IO String
htmlBodyElementGetBackground self
  = ((\(HTMLBodyElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_get_background argPtr1)
{-# LINE 54 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
       (toHTMLBodyElement self))
      >>=
      readUTFString
 
htmlBodyElementSetBgColor ::
                          (HTMLBodyElementClass self) => self -> String -> IO ()
htmlBodyElementSetBgColor self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLBodyElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_set_bg_color argPtr1 arg2)
{-# LINE 64 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
          (toHTMLBodyElement self)
          valPtr
 
htmlBodyElementGetBgColor ::
                          (HTMLBodyElementClass self) => self -> IO String
htmlBodyElementGetBgColor self
  = ((\(HTMLBodyElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_get_bg_color argPtr1)
{-# LINE 71 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
       (toHTMLBodyElement self))
      >>=
      readUTFString
 
htmlBodyElementSetLink ::
                       (HTMLBodyElementClass self) => self -> String -> IO ()
htmlBodyElementSetLink self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLBodyElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_set_link argPtr1 arg2)
{-# LINE 81 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
          (toHTMLBodyElement self)
          valPtr
 
htmlBodyElementGetLink ::
                       (HTMLBodyElementClass self) => self -> IO String
htmlBodyElementGetLink self
  = ((\(HTMLBodyElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_get_link argPtr1)
{-# LINE 88 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
       (toHTMLBodyElement self))
      >>=
      readUTFString
 
htmlBodyElementSetText ::
                       (HTMLBodyElementClass self) => self -> String -> IO ()
htmlBodyElementSetText self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLBodyElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_set_text argPtr1 arg2)
{-# LINE 98 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
          (toHTMLBodyElement self)
          valPtr
 
htmlBodyElementGetText ::
                       (HTMLBodyElementClass self) => self -> IO String
htmlBodyElementGetText self
  = ((\(HTMLBodyElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_get_text argPtr1)
{-# LINE 105 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
       (toHTMLBodyElement self))
      >>=
      readUTFString
 
htmlBodyElementSetVLink ::
                        (HTMLBodyElementClass self) => self -> String -> IO ()
htmlBodyElementSetVLink self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLBodyElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_set_v_link argPtr1 arg2)
{-# LINE 115 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
          (toHTMLBodyElement self)
          valPtr
 
htmlBodyElementGetVLink ::
                        (HTMLBodyElementClass self) => self -> IO String
htmlBodyElementGetVLink self
  = ((\(HTMLBodyElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_get_v_link argPtr1)
{-# LINE 122 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
       (toHTMLBodyElement self))
      >>=
      readUTFString
 
htmlBodyElementOnbeforeunload ::
                              (HTMLBodyElementClass self) => Signal self (EventM UIEvent self ())
htmlBodyElementOnbeforeunload = (connect "beforeunload")
 
htmlBodyElementOnhashchange ::
                            (HTMLBodyElementClass self) => Signal self (EventM UIEvent self ())
htmlBodyElementOnhashchange = (connect "hashchange")
 
htmlBodyElementOnmessage ::
                         (HTMLBodyElementClass self) => Signal self (EventM UIEvent self ())
htmlBodyElementOnmessage = (connect "message")
 
htmlBodyElementOnoffline ::
                         (HTMLBodyElementClass self) => Signal self (EventM UIEvent self ())
htmlBodyElementOnoffline = (connect "offline")
 
htmlBodyElementOnonline ::
                        (HTMLBodyElementClass self) => Signal self (EventM UIEvent self ())
htmlBodyElementOnonline = (connect "online")
 
htmlBodyElementOnpopstate ::
                          (HTMLBodyElementClass self) => Signal self (EventM UIEvent self ())
htmlBodyElementOnpopstate = (connect "popstate")
 
htmlBodyElementOnresize ::
                        (HTMLBodyElementClass self) => Signal self (EventM UIEvent self ())
htmlBodyElementOnresize = (connect "resize")
 
htmlBodyElementOnstorage ::
                         (HTMLBodyElementClass self) => Signal self (EventM UIEvent self ())
htmlBodyElementOnstorage = (connect "storage")
 
htmlBodyElementOnunload ::
                        (HTMLBodyElementClass self) => Signal self (EventM UIEvent self ())
htmlBodyElementOnunload = (connect "unload")
 
htmlBodyElementOnorientationchange ::
                                   (HTMLBodyElementClass self) =>
                                     Signal self (EventM UIEvent self ())
htmlBodyElementOnorientationchange = (connect "orientationchange")
 
htmlBodyElementOnblur ::
                      (HTMLBodyElementClass self) => Signal self (EventM UIEvent self ())
htmlBodyElementOnblur = (connect "blur")
 
htmlBodyElementOnerror ::
                       (HTMLBodyElementClass self) => Signal self (EventM UIEvent self ())
htmlBodyElementOnerror = (connect "error")
 
htmlBodyElementOnfocus ::
                       (HTMLBodyElementClass self) => Signal self (EventM UIEvent self ())
htmlBodyElementOnfocus = (connect "focus")
 
htmlBodyElementOnload ::
                      (HTMLBodyElementClass self) => Signal self (EventM UIEvent self ())
htmlBodyElementOnload = (connect "load")

foreign import ccall safe "webkit_dom_html_body_element_set_a_link"
  webkit_dom_html_body_element_set_a_link :: ((Ptr HTMLBodyElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_body_element_get_a_link"
  webkit_dom_html_body_element_get_a_link :: ((Ptr HTMLBodyElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_body_element_set_background"
  webkit_dom_html_body_element_set_background :: ((Ptr HTMLBodyElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_body_element_get_background"
  webkit_dom_html_body_element_get_background :: ((Ptr HTMLBodyElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_body_element_set_bg_color"
  webkit_dom_html_body_element_set_bg_color :: ((Ptr HTMLBodyElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_body_element_get_bg_color"
  webkit_dom_html_body_element_get_bg_color :: ((Ptr HTMLBodyElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_body_element_set_link"
  webkit_dom_html_body_element_set_link :: ((Ptr HTMLBodyElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_body_element_get_link"
  webkit_dom_html_body_element_get_link :: ((Ptr HTMLBodyElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_body_element_set_text"
  webkit_dom_html_body_element_set_text :: ((Ptr HTMLBodyElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_body_element_get_text"
  webkit_dom_html_body_element_get_text :: ((Ptr HTMLBodyElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_body_element_set_v_link"
  webkit_dom_html_body_element_set_v_link :: ((Ptr HTMLBodyElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_body_element_get_v_link"
  webkit_dom_html_body_element_get_v_link :: ((Ptr HTMLBodyElement) -> (IO (Ptr CChar)))