module Graphics.UI.Gtk.WebKit.DOM.HTMLTitleElement
       (htmlTitleElementSetText, htmlTitleElementGetText,
        HTMLTitleElement, HTMLTitleElementClass, castToHTMLTitleElement,
        gTypeHTMLTitleElement, toHTMLTitleElement)
       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
 
htmlTitleElementSetText ::
                        (HTMLTitleElementClass self, GlibString string) =>
                          self -> string -> IO ()
htmlTitleElementSetText self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_title_element_set_text #}
          (toHTMLTitleElement self)
          valPtr
 
htmlTitleElementGetText ::
                        (HTMLTitleElementClass self, GlibString string) =>
                          self -> IO string
htmlTitleElementGetText self
  = ({# call webkit_dom_html_title_element_get_text #}
       (toHTMLTitleElement self))
      >>=
      readUTFString