-- 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/HTMLBodyElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLBodyElement(
setALink,
getALink,
setBackground,
getBackground,
setBgColor,
getBgColor,
setLink,
getLink,
setText,
getText,
setVLink,
getVLink,
beforeUnload,
hashChange,
message,
offline,
online,
popState,
resize,
storage,
unload,
orientationChange,
blur,
error,
focus,
load,
HTMLBodyElement,
castToHTMLBodyElement,
gTypeHTMLBodyElement,
HTMLBodyElementClass,
toHTMLBodyElement,
) 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 45 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
setALink ::
         (MonadIO m, HTMLBodyElementClass self, GlibString string) =>
           self -> string -> m ()
setALink self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLBodyElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_set_a_link argPtr1 arg2)
{-# LINE 56 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
             (toHTMLBodyElement self)
             valPtr)
 
getALink ::
         (MonadIO m, HTMLBodyElementClass self, GlibString string) =>
           self -> m string
getALink self
  = liftIO
      (((\(HTMLBodyElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_get_a_link argPtr1)
{-# LINE 65 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
          (toHTMLBodyElement self))
         >>=
         readUTFString)
 
setBackground ::
              (MonadIO m, HTMLBodyElementClass self, GlibString string) =>
                self -> string -> m ()
setBackground self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLBodyElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_set_background argPtr1 arg2)
{-# LINE 77 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
             (toHTMLBodyElement self)
             valPtr)
 
getBackground ::
              (MonadIO m, HTMLBodyElementClass self, GlibString string) =>
                self -> m string
getBackground self
  = liftIO
      (((\(HTMLBodyElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_get_background argPtr1)
{-# LINE 86 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
          (toHTMLBodyElement self))
         >>=
         readUTFString)
 
setBgColor ::
           (MonadIO m, HTMLBodyElementClass self, GlibString string) =>
             self -> string -> m ()
setBgColor self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLBodyElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_set_bg_color argPtr1 arg2)
{-# LINE 98 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
             (toHTMLBodyElement self)
             valPtr)
 
getBgColor ::
           (MonadIO m, HTMLBodyElementClass self, GlibString string) =>
             self -> m string
getBgColor self
  = liftIO
      (((\(HTMLBodyElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_get_bg_color argPtr1)
{-# LINE 107 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
          (toHTMLBodyElement self))
         >>=
         readUTFString)
 
setLink ::
        (MonadIO m, HTMLBodyElementClass self, GlibString string) =>
          self -> string -> m ()
setLink self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLBodyElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_set_link argPtr1 arg2)
{-# LINE 119 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
             (toHTMLBodyElement self)
             valPtr)
 
getLink ::
        (MonadIO m, HTMLBodyElementClass self, GlibString string) =>
          self -> m string
getLink self
  = liftIO
      (((\(HTMLBodyElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_get_link argPtr1)
{-# LINE 128 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
          (toHTMLBodyElement self))
         >>=
         readUTFString)
 
setText ::
        (MonadIO m, HTMLBodyElementClass self, GlibString string) =>
          self -> string -> m ()
setText self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLBodyElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_set_text argPtr1 arg2)
{-# LINE 140 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
             (toHTMLBodyElement self)
             valPtr)
 
getText ::
        (MonadIO m, HTMLBodyElementClass self, GlibString string) =>
          self -> m string
getText self
  = liftIO
      (((\(HTMLBodyElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_get_text argPtr1)
{-# LINE 149 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
          (toHTMLBodyElement self))
         >>=
         readUTFString)
 
setVLink ::
         (MonadIO m, HTMLBodyElementClass self, GlibString string) =>
           self -> string -> m ()
setVLink self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLBodyElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_set_v_link argPtr1 arg2)
{-# LINE 161 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
             (toHTMLBodyElement self)
             valPtr)
 
getVLink ::
         (MonadIO m, HTMLBodyElementClass self, GlibString string) =>
           self -> m string
getVLink self
  = liftIO
      (((\(HTMLBodyElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_body_element_get_v_link argPtr1)
{-# LINE 170 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBodyElement.chs" #-}
          (toHTMLBodyElement self))
         >>=
         readUTFString)
 
beforeUnload :: (HTMLBodyElementClass self) => EventName self Event
beforeUnload = EventName "beforeunload"
 
hashChange :: (HTMLBodyElementClass self) => EventName self Event
hashChange = EventName "hashchange"
 
message :: (HTMLBodyElementClass self) => EventName self Event
message = EventName "message"
 
offline :: (HTMLBodyElementClass self) => EventName self Event
offline = EventName "offline"
 
online :: (HTMLBodyElementClass self) => EventName self Event
online = EventName "online"
 
popState :: (HTMLBodyElementClass self) => EventName self Event
popState = EventName "popstate"
 
resize :: (HTMLBodyElementClass self) => EventName self UIEvent
resize = EventName "resize"
 
storage :: (HTMLBodyElementClass self) => EventName self Event
storage = EventName "storage"
 
unload :: (HTMLBodyElementClass self) => EventName self UIEvent
unload = EventName "unload"
 
orientationChange ::
                  (HTMLBodyElementClass self) => EventName self Event
orientationChange = EventName "orientationchange"
 
blur :: (HTMLBodyElementClass self) => EventName self UIEvent
blur = EventName "blur"
 
error :: (HTMLBodyElementClass self) => EventName self UIEvent
error = EventName "error"
 
focus :: (HTMLBodyElementClass self) => EventName self UIEvent
focus = EventName "focus"
 
load :: (HTMLBodyElementClass self) => EventName self UIEvent
load = EventName "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)))