-- 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/HTMLFieldSetElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLFieldSetElement
       (htmlFieldSetElementCheckValidity,
        htmlFieldSetElementSetCustomValidity,
        htmlFieldSetElementGetForm,
        htmlFieldSetElementGetWillValidate, htmlFieldSetElementGetValidity,
        htmlFieldSetElementGetValidationMessage, HTMLFieldSetElement,
        HTMLFieldSetElementClass, castToHTMLFieldSetElement,
        gTypeHTMLFieldSetElement, toHTMLFieldSetElement)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 20 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlFieldSetElementCheckValidity ::
                                 (HTMLFieldSetElementClass self) => self -> IO Bool
htmlFieldSetElementCheckValidity self
  = toBool <$>
      ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_check_validity argPtr1)
{-# LINE 28 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
         (toHTMLFieldSetElement self))
 
htmlFieldSetElementSetCustomValidity ::
                                     (HTMLFieldSetElementClass self) => self -> String -> IO ()
htmlFieldSetElementSetCustomValidity self error
  = withUTFString error $
      \ errorPtr ->
        (\(HTMLFieldSetElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_set_custom_validity argPtr1 arg2)
{-# LINE 36 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
          (toHTMLFieldSetElement self)
          errorPtr
 
 
htmlFieldSetElementGetForm ::
                           (HTMLFieldSetElementClass self) =>
                             self -> IO (Maybe HTMLFormElement)
htmlFieldSetElementGetForm self
  = maybeNull (makeNewGObject mkHTMLFormElement)
      ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_form argPtr1)
{-# LINE 61 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
         (toHTMLFieldSetElement self))
 
 
htmlFieldSetElementGetWillValidate ::
                                   (HTMLFieldSetElementClass self) => self -> IO Bool
htmlFieldSetElementGetWillValidate self
  = toBool <$>
      ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_will_validate argPtr1)
{-# LINE 95 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
         (toHTMLFieldSetElement self))
 
htmlFieldSetElementGetValidity ::
                               (HTMLFieldSetElementClass self) => self -> IO (Maybe ValidityState)
htmlFieldSetElementGetValidity self
  = maybeNull (makeNewGObject mkValidityState)
      ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_validity argPtr1)
{-# LINE 102 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
         (toHTMLFieldSetElement self))
 
htmlFieldSetElementGetValidationMessage ::
                                        (HTMLFieldSetElementClass self) => self -> IO String
htmlFieldSetElementGetValidationMessage self
  = ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_validation_message argPtr1)
{-# LINE 109 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
       (toHTMLFieldSetElement self))
      >>=
      readUTFString

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

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

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.h webkit_dom_html_field_set_element_get_form"
  webkit_dom_html_field_set_element_get_form :: ((Ptr HTMLFieldSetElement) -> (IO (Ptr HTMLFormElement)))

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

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.h webkit_dom_html_field_set_element_get_validity"
  webkit_dom_html_field_set_element_get_validity :: ((Ptr HTMLFieldSetElement) -> (IO (Ptr ValidityState)))

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