-- GENERATED by C->Haskell Compiler, version 0.13.9 (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)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 17 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlAreaElementSetAlt ::
                      (HTMLAreaElementClass self) => 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 26 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetAlt ::
                      (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetAlt self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_alt argPtr1)
{-# LINE 33 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementSetCoords ::
                         (HTMLAreaElementClass self) => 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 43 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetCoords ::
                         (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetCoords self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_coords argPtr1)
{-# LINE 50 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementSetHref ::
                       (HTMLAreaElementClass self) => 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 60 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetHref ::
                       (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetHref self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_href argPtr1)
{-# LINE 67 "./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 75 "./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 83 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
         (toHTMLAreaElement self))
 
htmlAreaElementSetPing ::
                       (HTMLAreaElementClass self) => 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 91 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetPing ::
                       (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetPing self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_ping argPtr1)
{-# LINE 98 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementSetShape ::
                        (HTMLAreaElementClass self) => 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 108 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetShape ::
                        (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetShape self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_shape argPtr1)
{-# LINE 115 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementSetTarget ::
                         (HTMLAreaElementClass self) => 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 125 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self)
          valPtr
 
htmlAreaElementGetTarget ::
                         (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetTarget self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_target argPtr1)
{-# LINE 132 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetHash ::
                       (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetHash self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_hash argPtr1)
{-# LINE 140 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetHost ::
                       (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetHost self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_host argPtr1)
{-# LINE 148 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetHostname ::
                           (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetHostname self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_hostname argPtr1)
{-# LINE 156 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetPathname ::
                           (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetPathname self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_pathname argPtr1)
{-# LINE 164 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetPort ::
                       (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetPort self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_port argPtr1)
{-# LINE 172 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetProtocol ::
                           (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetProtocol self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_protocol argPtr1)
{-# LINE 180 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
       (toHTMLAreaElement self))
      >>=
      readUTFString
 
htmlAreaElementGetSearch ::
                         (HTMLAreaElementClass self) => self -> IO String
htmlAreaElementGetSearch self
  = ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_search argPtr1)
{-# LINE 188 "./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)))