-- 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/HTMLFieldSetElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLFieldSetElement
       (htmlFieldSetElementCheckValidity,
        htmlFieldSetElementSetCustomValidity,
        htmlFieldSetElementSetDisabled, htmlFieldSetElementGetDisabled,
        htmlFieldSetElementGetForm,
        htmlFieldSetElementSetName, htmlFieldSetElementGetName,
        htmlFieldSetElementGetElements,
        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, GlibString string) =>
                                       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 37 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
          (toHTMLFieldSetElement self)
          errorPtr
 
htmlFieldSetElementSetDisabled ::
                               (HTMLFieldSetElementClass self) => self -> Bool -> IO ()
htmlFieldSetElementSetDisabled self val
  = (\(HTMLFieldSetElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_set_disabled argPtr1 arg2)
{-# LINE 45 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
      (toHTMLFieldSetElement self)
      (fromBool val)
 
htmlFieldSetElementGetDisabled ::
                               (HTMLFieldSetElementClass self) => self -> IO Bool
htmlFieldSetElementGetDisabled self
  = toBool <$>
      ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_disabled argPtr1)
{-# LINE 53 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
         (toHTMLFieldSetElement self))
 
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 62 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
         (toHTMLFieldSetElement self))
 
htmlFieldSetElementSetName ::
                           (HTMLFieldSetElementClass self, GlibString string) =>
                             self -> string -> IO ()
htmlFieldSetElementSetName self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLFieldSetElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_set_name argPtr1 arg2)
{-# LINE 72 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
          (toHTMLFieldSetElement self)
          valPtr
 
htmlFieldSetElementGetName ::
                           (HTMLFieldSetElementClass self, GlibString string) =>
                             self -> IO string
htmlFieldSetElementGetName self
  = ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_name argPtr1)
{-# LINE 80 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
       (toHTMLFieldSetElement self))
      >>=
      readUTFString
 
htmlFieldSetElementGetElements ::
                               (HTMLFieldSetElementClass self) =>
                                 self -> IO (Maybe HTMLCollection)
htmlFieldSetElementGetElements self
  = maybeNull (makeNewGObject mkHTMLCollection)
      ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_elements argPtr1)
{-# LINE 90 "./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 98 "./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 105 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
         (toHTMLFieldSetElement self))
 
htmlFieldSetElementGetValidationMessage ::
                                        (HTMLFieldSetElementClass self, GlibString string) =>
                                          self -> IO string
htmlFieldSetElementGetValidationMessage self
  = ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_validation_message argPtr1)
{-# LINE 113 "./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_set_disabled"
  webkit_dom_html_field_set_element_set_disabled :: ((Ptr HTMLFieldSetElement) -> (CInt -> (IO ())))

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

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_set_name"
  webkit_dom_html_field_set_element_set_name :: ((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_name"
  webkit_dom_html_field_set_element_get_name :: ((Ptr HTMLFieldSetElement) -> (IO (Ptr CChar)))

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

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)))