-- GENERATED by C->Haskell Compiler, version 0.13.13 (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(
setAlt,
getAlt,
setCoords,
getCoords,
setHref,
getHref,
setNoHref,
getNoHref,
setPing,
getPing,
setShape,
getShape,
setTarget,
getTarget,
getHash,
getHost,
getHostname,
getPathname,
getPort,
getProtocol,
getSearch,
HTMLAreaElement,
castToHTMLAreaElement,
gTypeHTMLAreaElement,
HTMLAreaElementClass,
toHTMLAreaElement,
) where
import Prelude hiding (drop, error, print)
import Data.Typeable (Typeable)
import Foreign.Marshal (maybePeek, maybeWith)
import System.Glib.FFI (maybeNull, withForeignPtr, nullForeignPtr, Ptr, nullPtr, castPtr, Word, Int64, Word64, CChar(..), CInt(..), CUInt(..), CLong(..), CULong(..), CLLong(..), CULLong(..), CShort(..), CUShort(..), CFloat(..), CDouble(..), toBool, fromBool)
import System.Glib.UTFString (GlibString(..), readUTFString)
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures
import Graphics.UI.Gtk.WebKit.DOM.EventM
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 47 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
setAlt ::
       (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
         self -> string -> m ()
setAlt self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_set_alt argPtr1 arg2)
{-# LINE 58 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
             (toHTMLAreaElement self)
             valPtr)
 
getAlt ::
       (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
         self -> m string
getAlt self
  = liftIO
      (((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_alt argPtr1)
{-# LINE 67 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self))
         >>=
         readUTFString)
 
setCoords ::
          (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
            self -> string -> m ()
setCoords self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_set_coords argPtr1 arg2)
{-# LINE 79 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
             (toHTMLAreaElement self)
             valPtr)
 
getCoords ::
          (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
            self -> m string
getCoords self
  = liftIO
      (((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_coords argPtr1)
{-# LINE 88 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self))
         >>=
         readUTFString)
 
setHref ::
        (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
          self -> string -> m ()
setHref self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_set_href argPtr1 arg2)
{-# LINE 100 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
             (toHTMLAreaElement self)
             valPtr)
 
getHref ::
        (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
          self -> m string
getHref self
  = liftIO
      (((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_href argPtr1)
{-# LINE 109 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self))
         >>=
         readUTFString)
 
setNoHref ::
          (MonadIO m, HTMLAreaElementClass self) => self -> Bool -> m ()
setNoHref self val
  = liftIO
      ((\(HTMLAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_set_no_href argPtr1 arg2)
{-# LINE 118 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
         (toHTMLAreaElement self)
         (fromBool val))
 
getNoHref ::
          (MonadIO m, HTMLAreaElementClass self) => self -> m Bool
getNoHref self
  = liftIO
      (toBool <$>
         ((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_no_href argPtr1)
{-# LINE 127 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
            (toHTMLAreaElement self)))
 
setPing ::
        (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
          self -> string -> m ()
setPing self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_set_ping argPtr1 arg2)
{-# LINE 137 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
             (toHTMLAreaElement self)
             valPtr)
 
getPing ::
        (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
          self -> m string
getPing self
  = liftIO
      (((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_ping argPtr1)
{-# LINE 146 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self))
         >>=
         readUTFString)

 
setShape ::
         (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
           self -> string -> m ()
setShape self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_set_shape argPtr1 arg2)
{-# LINE 181 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
             (toHTMLAreaElement self)
             valPtr)
 
getShape ::
         (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
           self -> m string
getShape self
  = liftIO
      (((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_shape argPtr1)
{-# LINE 190 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self))
         >>=
         readUTFString)
 
setTarget ::
          (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
            self -> string -> m ()
setTarget self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_set_target argPtr1 arg2)
{-# LINE 202 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
             (toHTMLAreaElement self)
             valPtr)
 
getTarget ::
          (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
            self -> m string
getTarget self
  = liftIO
      (((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_target argPtr1)
{-# LINE 211 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self))
         >>=
         readUTFString)
 
getHash ::
        (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
          self -> m string
getHash self
  = liftIO
      (((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_hash argPtr1)
{-# LINE 221 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self))
         >>=
         readUTFString)
 
getHost ::
        (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
          self -> m string
getHost self
  = liftIO
      (((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_host argPtr1)
{-# LINE 231 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self))
         >>=
         readUTFString)
 
getHostname ::
            (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
              self -> m string
getHostname self
  = liftIO
      (((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_hostname argPtr1)
{-# LINE 241 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self))
         >>=
         readUTFString)
 
getPathname ::
            (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
              self -> m string
getPathname self
  = liftIO
      (((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_pathname argPtr1)
{-# LINE 251 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self))
         >>=
         readUTFString)
 
getPort ::
        (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
          self -> m string
getPort self
  = liftIO
      (((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_port argPtr1)
{-# LINE 261 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self))
         >>=
         readUTFString)
 
getProtocol ::
            (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
              self -> m string
getProtocol self
  = liftIO
      (((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_protocol argPtr1)
{-# LINE 271 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self))
         >>=
         readUTFString)
 
getSearch ::
          (MonadIO m, HTMLAreaElementClass self, GlibString string) =>
            self -> m string
getSearch self
  = liftIO
      (((\(HTMLAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_area_element_get_search argPtr1)
{-# LINE 281 "./Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.chs" #-}
          (toHTMLAreaElement self))
         >>=
         readUTFString)


foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_set_alt"
  webkit_dom_html_area_element_set_alt :: ((Ptr HTMLAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_get_alt"
  webkit_dom_html_area_element_get_alt :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_set_coords"
  webkit_dom_html_area_element_set_coords :: ((Ptr HTMLAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_get_coords"
  webkit_dom_html_area_element_get_coords :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_set_href"
  webkit_dom_html_area_element_set_href :: ((Ptr HTMLAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_get_href"
  webkit_dom_html_area_element_get_href :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_set_no_href"
  webkit_dom_html_area_element_set_no_href :: ((Ptr HTMLAreaElement) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_get_no_href"
  webkit_dom_html_area_element_get_no_href :: ((Ptr HTMLAreaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_set_ping"
  webkit_dom_html_area_element_set_ping :: ((Ptr HTMLAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_get_ping"
  webkit_dom_html_area_element_get_ping :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_set_shape"
  webkit_dom_html_area_element_set_shape :: ((Ptr HTMLAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_get_shape"
  webkit_dom_html_area_element_get_shape :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_set_target"
  webkit_dom_html_area_element_set_target :: ((Ptr HTMLAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_get_target"
  webkit_dom_html_area_element_get_target :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_get_hash"
  webkit_dom_html_area_element_get_hash :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_get_host"
  webkit_dom_html_area_element_get_host :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_get_hostname"
  webkit_dom_html_area_element_get_hostname :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_get_pathname"
  webkit_dom_html_area_element_get_pathname :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_get_port"
  webkit_dom_html_area_element_get_port :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_get_protocol"
  webkit_dom_html_area_element_get_protocol :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLAreaElement.h webkit_dom_html_area_element_get_search"
  webkit_dom_html_area_element_get_search :: ((Ptr HTMLAreaElement) -> (IO (Ptr CChar)))