module Graphics.UI.Gtk.WebKit.DOM.HTMLAreaElement
       (htmlAreaElementSetAlt, htmlAreaElementGetAlt,
        htmlAreaElementSetCoords, htmlAreaElementGetCoords,
        htmlAreaElementSetHref, htmlAreaElementGetHref,
        htmlAreaElementSetNoHref, htmlAreaElementGetNoHref,
        htmlAreaElementSetPing, htmlAreaElementGetPing,
        htmlAreaElementSetShape, htmlAreaElementGetShape,
        htmlAreaElementSetTarget, htmlAreaElementGetTarget,
        htmlAreaElementGetHash, htmlAreaElementGetHost,
        htmlAreaElementGetHostname, htmlAreaElementGetPathname,
        htmlAreaElementGetPort, htmlAreaElementGetProtocol,
        htmlAreaElementGetSearch)
       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
 
htmlAreaElementSetAlt ::
                      (HTMLAreaElementClass self) => self -> String -> IO ()
htmlAreaElementSetAlt self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_area_element_set_alt #}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetAlt ::
                      (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetAlt self
  = ({# call webkit_dom_html_area_element_get_alt #}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementSetCoords ::
                         (HTMLAreaElementClass self) => self -> String -> IO ()
htmlAreaElementSetCoords self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_area_element_set_coords #}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetCoords ::
                         (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetCoords self
  = ({# call webkit_dom_html_area_element_get_coords #}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementSetHref ::
                       (HTMLAreaElementClass self) => self -> String -> IO ()
htmlAreaElementSetHref self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_area_element_set_href #}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetHref ::
                       (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetHref self
  = ({# call webkit_dom_html_area_element_get_href #}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementSetNoHref ::
                         (HTMLAreaElementClass self) => self -> Bool -> IO ()
htmlAreaElementSetNoHref self val
  = {# call webkit_dom_html_area_element_set_no_href #}
      (toHTMLAreaElement self)
      (fromBool val)
 
htmlAreaElementGetNoHref ::
                         (HTMLAreaElementClass self) => self -> IO Bool
htmlAreaElementGetNoHref self
  = toBool <$>
      ({# call webkit_dom_html_area_element_get_no_href #}
         (toHTMLAreaElement self))
 
htmlAreaElementSetPing ::
                       (HTMLAreaElementClass self) => self -> String -> IO ()
htmlAreaElementSetPing self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_area_element_set_ping #}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetPing ::
                       (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetPing self
  = ({# call webkit_dom_html_area_element_get_ping #}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementSetShape ::
                        (HTMLAreaElementClass self) => self -> String -> IO ()
htmlAreaElementSetShape self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_area_element_set_shape #}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetShape ::
                        (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetShape self
  = ({# call webkit_dom_html_area_element_get_shape #}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementSetTarget ::
                         (HTMLAreaElementClass self) => self -> String -> IO ()
htmlAreaElementSetTarget self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_area_element_set_target #}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetTarget ::
                         (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetTarget self
  = ({# call webkit_dom_html_area_element_get_target #}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetHash ::
                       (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetHash self
  = ({# call webkit_dom_html_area_element_get_hash #}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetHost ::
                       (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetHost self
  = ({# call webkit_dom_html_area_element_get_host #}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetHostname ::
                           (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetHostname self
  = ({# call webkit_dom_html_area_element_get_hostname #}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetPathname ::
                           (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetPathname self
  = ({# call webkit_dom_html_area_element_get_pathname #}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetPort ::
                       (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetPort self
  = ({# call webkit_dom_html_area_element_get_port #}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetProtocol ::
                           (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetProtocol self
  = ({# call webkit_dom_html_area_element_get_protocol #}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetSearch ::
                         (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetSearch self
  = ({# call webkit_dom_html_area_element_get_search #}
       (toHTMLAreaElement self))
      >>=
      readUTFString