-- 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/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)
       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/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 25 "./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 31 "./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 38 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
         (toHTMLFormElement self))
 
htmlFormElementSetAcceptCharset ::
                                (HTMLFormElementClass self) => 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 46 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetAcceptCharset ::
                                (HTMLFormElementClass self) => self -> IO String
htmlFormElementGetAcceptCharset self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_accept_charset argPtr1)
{-# LINE 53 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
       (toHTMLFormElement self))
      >>=
      readUTFString
 
htmlFormElementSetAction ::
                         (HTMLFormElementClass self) => 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 63 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetAction ::
                         (HTMLFormElementClass self) => self -> IO String
htmlFormElementGetAction self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_action argPtr1)
{-# LINE 70 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
       (toHTMLFormElement self))
      >>=
      readUTFString
 
htmlFormElementSetAutocomplete ::
                               (HTMLFormElementClass self) => 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 80 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetAutocomplete ::
                               (HTMLFormElementClass self) => self -> IO String
htmlFormElementGetAutocomplete self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_autocomplete argPtr1)
{-# LINE 87 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
       (toHTMLFormElement self))
      >>=
      readUTFString
 
htmlFormElementSetEnctype ::
                          (HTMLFormElementClass self) => 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 97 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetEnctype ::
                          (HTMLFormElementClass self) => self -> IO String
htmlFormElementGetEnctype self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_enctype argPtr1)
{-# LINE 104 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
       (toHTMLFormElement self))
      >>=
      readUTFString
 
htmlFormElementSetEncoding ::
                           (HTMLFormElementClass self) => 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 114 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetEncoding ::
                           (HTMLFormElementClass self) => self -> IO String
htmlFormElementGetEncoding self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_encoding argPtr1)
{-# LINE 121 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
       (toHTMLFormElement self))
      >>=
      readUTFString
 
htmlFormElementSetMethod ::
                         (HTMLFormElementClass self) => 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 131 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetMethod ::
                         (HTMLFormElementClass self) => self -> IO String
htmlFormElementGetMethod self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_method argPtr1)
{-# LINE 138 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
       (toHTMLFormElement self))
      >>=
      readUTFString
 
htmlFormElementSetName ::
                       (HTMLFormElementClass self) => 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 148 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetName ::
                       (HTMLFormElementClass self) => self -> IO String
htmlFormElementGetName self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_name argPtr1)
{-# LINE 155 "./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 163 "./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 171 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
         (toHTMLFormElement self))
 
htmlFormElementSetTarget ::
                         (HTMLFormElementClass self) => 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 179 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFormElement.chs" #-}
          (toHTMLFormElement self)
          valPtr
 
htmlFormElementGetTarget ::
                         (HTMLFormElementClass self) => self -> IO String
htmlFormElementGetTarget self
  = ((\(HTMLFormElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_form_element_get_target argPtr1)
{-# LINE 186 "./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 195 "./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 202 "./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))