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#}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlBodyElementSetALink ::
                        (HTMLBodyElementClass self, GlibString string) =>
                          self -> string -> IO ()
htmlBodyElementSetALink self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_body_element_set_a_link #}
          (toHTMLBodyElement self)
          valPtr
 
htmlBodyElementGetALink ::
                        (HTMLBodyElementClass self, GlibString string) => self -> IO string
htmlBodyElementGetALink self
  = ({# call webkit_dom_html_body_element_get_a_link #}
       (toHTMLBodyElement self))
      >>=
      readUTFString
 
htmlBodyElementSetBackground ::
                             (HTMLBodyElementClass self, GlibString string) =>
                               self -> string -> IO ()
htmlBodyElementSetBackground self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_body_element_set_background #}
          (toHTMLBodyElement self)
          valPtr
 
htmlBodyElementGetBackground ::
                             (HTMLBodyElementClass self, GlibString string) => self -> IO string
htmlBodyElementGetBackground self
  = ({# call webkit_dom_html_body_element_get_background #}
       (toHTMLBodyElement self))
      >>=
      readUTFString
 
htmlBodyElementSetBgColor ::
                          (HTMLBodyElementClass self, GlibString string) =>
                            self -> string -> IO ()
htmlBodyElementSetBgColor self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_body_element_set_bg_color #}
          (toHTMLBodyElement self)
          valPtr
 
htmlBodyElementGetBgColor ::
                          (HTMLBodyElementClass self, GlibString string) => self -> IO string
htmlBodyElementGetBgColor self
  = ({# call webkit_dom_html_body_element_get_bg_color #}
       (toHTMLBodyElement self))
      >>=
      readUTFString
 
htmlBodyElementSetLink ::
                       (HTMLBodyElementClass self, GlibString string) =>
                         self -> string -> IO ()
htmlBodyElementSetLink self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_body_element_set_link #}
          (toHTMLBodyElement self)
          valPtr
 
htmlBodyElementGetLink ::
                       (HTMLBodyElementClass self, GlibString string) => self -> IO string
htmlBodyElementGetLink self
  = ({# call webkit_dom_html_body_element_get_link #}
       (toHTMLBodyElement self))
      >>=
      readUTFString
 
htmlBodyElementSetText ::
                       (HTMLBodyElementClass self, GlibString string) =>
                         self -> string -> IO ()
htmlBodyElementSetText self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_body_element_set_text #}
          (toHTMLBodyElement self)
          valPtr
 
htmlBodyElementGetText ::
                       (HTMLBodyElementClass self, GlibString string) => self -> IO string
htmlBodyElementGetText self
  = ({# call webkit_dom_html_body_element_get_text #}
       (toHTMLBodyElement self))
      >>=
      readUTFString
 
htmlBodyElementSetVLink ::
                        (HTMLBodyElementClass self, GlibString string) =>
                          self -> string -> IO ()
htmlBodyElementSetVLink self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_body_element_set_v_link #}
          (toHTMLBodyElement self)
          valPtr
 
htmlBodyElementGetVLink ::
                        (HTMLBodyElementClass self, GlibString string) => self -> IO string
htmlBodyElementGetVLink self
  = ({# call webkit_dom_html_body_element_get_v_link #}
       (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")