-- 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, 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) => 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 47 "./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 54 "./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 64 "./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 71 "./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 81 "./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 88 "./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 98 "./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 105 "./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 115 "./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 122 "./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 132 "./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 139 "./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 149 "./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 156 "./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 164 "./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 172 "./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 180 "./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 187 "./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 196 "./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 203 "./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))