-- 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/HTMLFormElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLFormElement
       (htmlFormElementSubmit, htmlFormElementReset,
        htmlFormElementCheckValidity, htmlFormElementSetAcceptCharset,
        htmlFormElementGetAcceptCharset, htmlFormElementSetAction,
        htmlFormElementGetAction, htmlFormElementSetAutocomplete,
        htmlFormElementGetAutocomplete, htmlFormElementSetEnctype,
        htmlFormElementGetEnctype, htmlFormElementSetEncoding,
        htmlFormElementGetEncoding, htmlFormElementSetMethod,
        htmlFormElementGetMethod, htmlFormElementSetName,
        htmlFormElementGetName, htmlFormElementSetNoValidate,
        htmlFormElementGetNoValidate, htmlFormElementSetTarget,
        htmlFormElementGetTarget, htmlFormElementGetElements,
        htmlFormElementGetLength, HTMLFormElement, HTMLFormElementClass,
        castToHTMLFormElement, gTypeHTMLFormElement, toHTMLFormElement)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 19 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlFormElementSubmit ::
                      (HTMLFormElementClass self) => self -> IO ()
htmlFormElementSubmit self
  = (\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_submit argPtr1)
{-# LINE 26 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
      (toHTMLFormElement self)
 
htmlFormElementReset ::
                     (HTMLFormElementClass self) => self -> IO ()
htmlFormElementReset self
  = (\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_reset argPtr1)
{-# LINE 32 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
      (toHTMLFormElement self)
 
htmlFormElementCheckValidity ::
                             (HTMLFormElementClass self) => self -> IO Bool
htmlFormElementCheckValidity self
  = toBool <$>
      ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_check_validity argPtr1)
{-# LINE 39 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
         (toHTMLFormElement self))
 
htmlFormElementSetAcceptCharset ::
                                (HTMLFormElementClass self, GlibString string) =>
                                  self -> string -> IO ()
htmlFormElementSetAcceptCharset self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFormElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_set_accept_charset argPtr1 arg2)
{-# LINE 48 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetAcceptCharset ::
                                (HTMLFormElementClass self, GlibString string) => self -> IO string
htmlFormElementGetAcceptCharset self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_accept_charset argPtr1)
{-# LINE 55 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
       (toHTMLFormElement self))
      >>=
      readUTFString
 
htmlFormElementSetAction ::
                         (HTMLFormElementClass self, GlibString string) =>
                           self -> string -> IO ()
htmlFormElementSetAction self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFormElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_set_action argPtr1 arg2)
{-# LINE 66 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetAction ::
                         (HTMLFormElementClass self, GlibString string) => self -> IO string
htmlFormElementGetAction self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_action argPtr1)
{-# LINE 73 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
       (toHTMLFormElement self))
      >>=
      readUTFString
 
htmlFormElementSetAutocomplete ::
                               (HTMLFormElementClass self, GlibString string) =>
                                 self -> string -> IO ()
htmlFormElementSetAutocomplete self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFormElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_set_autocomplete argPtr1 arg2)
{-# LINE 84 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetAutocomplete ::
                               (HTMLFormElementClass self, GlibString string) => self -> IO string
htmlFormElementGetAutocomplete self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_autocomplete argPtr1)
{-# LINE 91 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
       (toHTMLFormElement self))
      >>=
      readUTFString
 
htmlFormElementSetEnctype ::
                          (HTMLFormElementClass self, GlibString string) =>
                            self -> string -> IO ()
htmlFormElementSetEnctype self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFormElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_set_enctype argPtr1 arg2)
{-# LINE 102 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetEnctype ::
                          (HTMLFormElementClass self, GlibString string) => self -> IO string
htmlFormElementGetEnctype self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_enctype argPtr1)
{-# LINE 109 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
       (toHTMLFormElement self))
      >>=
      readUTFString
 
htmlFormElementSetEncoding ::
                           (HTMLFormElementClass self, GlibString string) =>
                             self -> string -> IO ()
htmlFormElementSetEncoding self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFormElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_set_encoding argPtr1 arg2)
{-# LINE 120 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetEncoding ::
                           (HTMLFormElementClass self, GlibString string) => self -> IO string
htmlFormElementGetEncoding self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_encoding argPtr1)
{-# LINE 127 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
       (toHTMLFormElement self))
      >>=
      readUTFString
 
htmlFormElementSetMethod ::
                         (HTMLFormElementClass self, GlibString string) =>
                           self -> string -> IO ()
htmlFormElementSetMethod self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFormElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_set_method argPtr1 arg2)
{-# LINE 138 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetMethod ::
                         (HTMLFormElementClass self, GlibString string) => self -> IO string
htmlFormElementGetMethod self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_method argPtr1)
{-# LINE 145 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
       (toHTMLFormElement self))
      >>=
      readUTFString
 
htmlFormElementSetName ::
                       (HTMLFormElementClass self, GlibString string) =>
                         self -> string -> IO ()
htmlFormElementSetName self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFormElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_set_name argPtr1 arg2)
{-# LINE 156 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetName ::
                       (HTMLFormElementClass self, GlibString string) => self -> IO string
htmlFormElementGetName self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_name argPtr1)
{-# LINE 163 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
       (toHTMLFormElement self))
      >>=
      readUTFString
 
htmlFormElementSetNoValidate ::
                             (HTMLFormElementClass self) => self -> Bool -> IO ()
htmlFormElementSetNoValidate self val
  = (\(HTMLFormElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_set_no_validate argPtr1 arg2)
{-# LINE 171 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
      (toHTMLFormElement self)
      (fromBool val)
 
htmlFormElementGetNoValidate ::
                             (HTMLFormElementClass self) => self -> IO Bool
htmlFormElementGetNoValidate self
  = toBool <$>
      ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_no_validate argPtr1)
{-# LINE 179 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
         (toHTMLFormElement self))
 
htmlFormElementSetTarget ::
                         (HTMLFormElementClass self, GlibString string) =>
                           self -> string -> IO ()
htmlFormElementSetTarget self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFormElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_set_target argPtr1 arg2)
{-# LINE 188 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetTarget ::
                         (HTMLFormElementClass self, GlibString string) => self -> IO string
htmlFormElementGetTarget self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_target argPtr1)
{-# LINE 195 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
       (toHTMLFormElement self))
      >>=
      readUTFString
 
htmlFormElementGetElements ::
                           (HTMLFormElementClass self) => self -> IO (Maybe HTMLCollection)
htmlFormElementGetElements self
  = maybeNull (makeNewGObject mkHTMLCollection)
      ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_elements argPtr1)
{-# LINE 204 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
         (toHTMLFormElement self))
 
htmlFormElementGetLength ::
                         (HTMLFormElementClass self) => self -> IO Int
htmlFormElementGetLength self
  = fromIntegral <$>
      ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_length argPtr1)
{-# LINE 211 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
         (toHTMLFormElement self))

foreign import ccall safe "webkit_dom_html_form_element_submit"
  webkit_dom_html_form_element_submit :: ((Ptr HTMLFormElement) -> (IO ()))

foreign import ccall safe "webkit_dom_html_form_element_reset"
  webkit_dom_html_form_element_reset :: ((Ptr HTMLFormElement) -> (IO ()))

foreign import ccall safe "webkit_dom_html_form_element_check_validity"
  webkit_dom_html_form_element_check_validity :: ((Ptr HTMLFormElement) -> (IO CInt))

foreign import ccall safe "webkit_dom_html_form_element_set_accept_charset"
  webkit_dom_html_form_element_set_accept_charset :: ((Ptr HTMLFormElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_form_element_get_accept_charset"
  webkit_dom_html_form_element_get_accept_charset :: ((Ptr HTMLFormElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_form_element_set_action"
  webkit_dom_html_form_element_set_action :: ((Ptr HTMLFormElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_form_element_get_action"
  webkit_dom_html_form_element_get_action :: ((Ptr HTMLFormElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_form_element_set_autocomplete"
  webkit_dom_html_form_element_set_autocomplete :: ((Ptr HTMLFormElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_form_element_get_autocomplete"
  webkit_dom_html_form_element_get_autocomplete :: ((Ptr HTMLFormElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_form_element_set_enctype"
  webkit_dom_html_form_element_set_enctype :: ((Ptr HTMLFormElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_form_element_get_enctype"
  webkit_dom_html_form_element_get_enctype :: ((Ptr HTMLFormElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_form_element_set_encoding"
  webkit_dom_html_form_element_set_encoding :: ((Ptr HTMLFormElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_form_element_get_encoding"
  webkit_dom_html_form_element_get_encoding :: ((Ptr HTMLFormElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_form_element_set_method"
  webkit_dom_html_form_element_set_method :: ((Ptr HTMLFormElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_form_element_get_method"
  webkit_dom_html_form_element_get_method :: ((Ptr HTMLFormElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_form_element_set_name"
  webkit_dom_html_form_element_set_name :: ((Ptr HTMLFormElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_form_element_get_name"
  webkit_dom_html_form_element_get_name :: ((Ptr HTMLFormElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_form_element_set_no_validate"
  webkit_dom_html_form_element_set_no_validate :: ((Ptr HTMLFormElement) -> (CInt -> (IO ())))

foreign import ccall safe "webkit_dom_html_form_element_get_no_validate"
  webkit_dom_html_form_element_get_no_validate :: ((Ptr HTMLFormElement) -> (IO CInt))

foreign import ccall safe "webkit_dom_html_form_element_set_target"
  webkit_dom_html_form_element_set_target :: ((Ptr HTMLFormElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_form_element_get_target"
  webkit_dom_html_form_element_get_target :: ((Ptr HTMLFormElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_form_element_get_elements"
  webkit_dom_html_form_element_get_elements :: ((Ptr HTMLFormElement) -> (IO (Ptr HTMLCollection)))

foreign import ccall safe "webkit_dom_html_form_element_get_length"
  webkit_dom_html_form_element_get_length :: ((Ptr HTMLFormElement) -> (IO CLong))