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


{-# LINE 1 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
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, HTMLAreaElement, HTMLAreaElementClass,
        castToHTMLAreaElement, gTypeHTMLAreaElement, toHTMLAreaElement)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 18 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlAreaElementSetAlt ::
                      (HTMLAreaElementClass self, GlibString string) =>
                        self -> string -> IO ()
htmlAreaElementSetAlt self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_set_alt argPtr1 arg2)
{-# LINE 28 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetAlt ::
                      (HTMLAreaElementClass self, GlibString string) => self -> IO string
htmlAreaElementGetAlt self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_alt argPtr1)
{-# LINE 35 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementSetCoords ::
                         (HTMLAreaElementClass self, GlibString string) =>
                           self -> string -> IO ()
htmlAreaElementSetCoords self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_set_coords argPtr1 arg2)
{-# LINE 46 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetCoords ::
                         (HTMLAreaElementClass self, GlibString string) => self -> IO string
htmlAreaElementGetCoords self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_coords argPtr1)
{-# LINE 53 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementSetHref ::
                       (HTMLAreaElementClass self, GlibString string) =>
                         self -> string -> IO ()
htmlAreaElementSetHref self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_set_href argPtr1 arg2)
{-# LINE 64 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetHref ::
                       (HTMLAreaElementClass self, GlibString string) => self -> IO string
htmlAreaElementGetHref self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_href argPtr1)
{-# LINE 71 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementSetNoHref ::
                         (HTMLAreaElementClass self) => self -> Bool -> IO ()
htmlAreaElementSetNoHref self val
  = (\(HTMLAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_set_no_href argPtr1 arg2)
{-# LINE 79 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
      (toHTMLAreaElement self)
      (fromBool val)
 
htmlAreaElementGetNoHref ::
                         (HTMLAreaElementClass self) => self -> IO Bool
htmlAreaElementGetNoHref self
  = toBool <$>
      ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_no_href argPtr1)
{-# LINE 87 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
         (toHTMLAreaElement self))
 
htmlAreaElementSetPing ::
                       (HTMLAreaElementClass self, GlibString string) =>
                         self -> string -> IO ()
htmlAreaElementSetPing self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_set_ping argPtr1 arg2)
{-# LINE 96 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetPing ::
                       (HTMLAreaElementClass self, GlibString string) => self -> IO string
htmlAreaElementGetPing self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_ping argPtr1)
{-# LINE 103 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementSetShape ::
                        (HTMLAreaElementClass self, GlibString string) =>
                          self -> string -> IO ()
htmlAreaElementSetShape self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_set_shape argPtr1 arg2)
{-# LINE 114 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetShape ::
                        (HTMLAreaElementClass self, GlibString string) => self -> IO string
htmlAreaElementGetShape self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_shape argPtr1)
{-# LINE 121 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementSetTarget ::
                         (HTMLAreaElementClass self, GlibString string) =>
                           self -> string -> IO ()
htmlAreaElementSetTarget self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_set_target argPtr1 arg2)
{-# LINE 132 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetTarget ::
                         (HTMLAreaElementClass self, GlibString string) => self -> IO string
htmlAreaElementGetTarget self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_target argPtr1)
{-# LINE 139 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetHash ::
                       (HTMLAreaElementClass self, GlibString string) => self -> IO string
htmlAreaElementGetHash self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_hash argPtr1)
{-# LINE 147 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetHost ::
                       (HTMLAreaElementClass self, GlibString string) => self -> IO string
htmlAreaElementGetHost self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_host argPtr1)
{-# LINE 155 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetHostname ::
                           (HTMLAreaElementClass self, GlibString string) => self -> IO string
htmlAreaElementGetHostname self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_hostname argPtr1)
{-# LINE 163 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetPathname ::
                           (HTMLAreaElementClass self, GlibString string) => self -> IO string
htmlAreaElementGetPathname self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_pathname argPtr1)
{-# LINE 171 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetPort ::
                       (HTMLAreaElementClass self, GlibString string) => self -> IO string
htmlAreaElementGetPort self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_port argPtr1)
{-# LINE 179 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetProtocol ::
                           (HTMLAreaElementClass self, GlibString string) => self -> IO string
htmlAreaElementGetProtocol self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_protocol argPtr1)
{-# LINE 187 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetSearch ::
                         (HTMLAreaElementClass self, GlibString string) => self -> IO string
htmlAreaElementGetSearch self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_search argPtr1)
{-# LINE 195 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString

foreign import ccall safe "webkit_dom_html_area_element_set_alt"
  webkit_dom_html_area_element_set_alt :: ((Ptr HTMLAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_area_element_get_alt"
  webkit_dom_html_area_element_get_alt :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_area_element_set_coords"
  webkit_dom_html_area_element_set_coords :: ((Ptr HTMLAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_area_element_get_coords"
  webkit_dom_html_area_element_get_coords :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_area_element_set_href"
  webkit_dom_html_area_element_set_href :: ((Ptr HTMLAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_area_element_get_href"
  webkit_dom_html_area_element_get_href :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_area_element_set_no_href"
  webkit_dom_html_area_element_set_no_href :: ((Ptr HTMLAreaElement) -> (CInt -> (IO ())))

foreign import ccall safe "webkit_dom_html_area_element_get_no_href"
  webkit_dom_html_area_element_get_no_href :: ((Ptr HTMLAreaElement) -> (IO CInt))

foreign import ccall safe "webkit_dom_html_area_element_set_ping"
  webkit_dom_html_area_element_set_ping :: ((Ptr HTMLAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_area_element_get_ping"
  webkit_dom_html_area_element_get_ping :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_area_element_set_shape"
  webkit_dom_html_area_element_set_shape :: ((Ptr HTMLAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_area_element_get_shape"
  webkit_dom_html_area_element_get_shape :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_area_element_set_target"
  webkit_dom_html_area_element_set_target :: ((Ptr HTMLAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_area_element_get_target"
  webkit_dom_html_area_element_get_target :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_area_element_get_hash"
  webkit_dom_html_area_element_get_hash :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_area_element_get_host"
  webkit_dom_html_area_element_get_host :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_area_element_get_hostname"
  webkit_dom_html_area_element_get_hostname :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_area_element_get_pathname"
  webkit_dom_html_area_element_get_pathname :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_area_element_get_port"
  webkit_dom_html_area_element_get_port :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_area_element_get_protocol"
  webkit_dom_html_area_element_get_protocol :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_area_element_get_search"
  webkit_dom_html_area_element_get_search :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))