-- GENERATED by C->Haskell Compiler, version 0.13.13 (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(
checkValidity,
setCustomValidity,
setDisabled,
getDisabled,
getForm,
setName,
getName,
getElements,
getWillValidate,
getValidity,
getValidationMessage,
HTMLFieldSetElement,
castToHTMLFieldSetElement,
gTypeHTMLFieldSetElement,
HTMLFieldSetElementClass,
toHTMLFieldSetElement,
) where
import Prelude hiding (drop, error, print)
import Data.Typeable (Typeable)
import Foreign.Marshal (maybePeek, maybeWith)
import System.Glib.FFI (maybeNull, withForeignPtr, nullForeignPtr, Ptr, nullPtr, castPtr, Word, Int64, Word64, CChar(..), CInt(..), CUInt(..), CLong(..), CULong(..), CLLong(..), CULLong(..), CShort(..), CUShort(..), CFloat(..), CDouble(..), toBool, fromBool)
import System.Glib.UTFString (GlibString(..), readUTFString)
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures
import Graphics.UI.Gtk.WebKit.DOM.EventM
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 34 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
checkValidity ::
              (MonadIO m, HTMLFieldSetElementClass self) => self -> m Bool
checkValidity self
  = liftIO
      (toBool <$>
         ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_check_validity argPtr1)
{-# LINE 43 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
            (toHTMLFieldSetElement self)))
 
setCustomValidity ::
                  (MonadIO m, HTMLFieldSetElementClass self, GlibString string) =>
                    self -> (Maybe string) -> m ()
setCustomValidity self error
  = liftIO
      (maybeWith withUTFString error $
         \ errorPtr ->
           (\(HTMLFieldSetElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_set_custom_validity argPtr1 arg2)
{-# LINE 53 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
             (toHTMLFieldSetElement self)
             errorPtr)

setDisabled ::
            (MonadIO m, HTMLFieldSetElementClass self) => self -> Bool -> m ()
setDisabled self val
  = liftIO
      ((\(HTMLFieldSetElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_set_disabled argPtr1 arg2)
{-# LINE 62 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
         (toHTMLFieldSetElement self)
         (fromBool val))
 
getDisabled ::
            (MonadIO m, HTMLFieldSetElementClass self) => self -> m Bool
getDisabled self
  = liftIO
      (toBool <$>
         ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_disabled argPtr1)
{-# LINE 71 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
            (toHTMLFieldSetElement self)))
 
getForm ::
        (MonadIO m, HTMLFieldSetElementClass self) =>
          self -> m (Maybe HTMLFormElement)
getForm self
  = liftIO
      (maybeNull (makeNewGObject mkHTMLFormElement)
         ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_form argPtr1)
{-# LINE 81 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
            (toHTMLFieldSetElement self)))

setName ::
        (MonadIO m, HTMLFieldSetElementClass self, GlibString string) =>
          self -> string -> m ()
setName self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLFieldSetElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_set_name argPtr1 arg2)
{-# LINE 92 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
             (toHTMLFieldSetElement self)
             valPtr)
 
getName ::
        (MonadIO m, HTMLFieldSetElementClass self, GlibString string) =>
          self -> m string
getName self
  = liftIO
      (((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_name argPtr1)
{-# LINE 101 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
          (toHTMLFieldSetElement self))
         >>=
         readUTFString)
 
getElements ::
            (MonadIO m, HTMLFieldSetElementClass self) =>
              self -> m (Maybe HTMLCollection)
getElements self
  = liftIO
      (maybeNull (makeNewGObject mkHTMLCollection)
         ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_elements argPtr1)
{-# LINE 112 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
            (toHTMLFieldSetElement self)))
 
getWillValidate ::
                (MonadIO m, HTMLFieldSetElementClass self) => self -> m Bool
getWillValidate self
  = liftIO
      (toBool <$>
         ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_will_validate argPtr1)
{-# LINE 121 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
            (toHTMLFieldSetElement self)))
 
getValidity ::
            (MonadIO m, HTMLFieldSetElementClass self) =>
              self -> m (Maybe ValidityState)
getValidity self
  = liftIO
      (maybeNull (makeNewGObject mkValidityState)
         ((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_validity argPtr1)
{-# LINE 130 "./Graphics/UI/Gtk/WebKit/DOM/HTMLFieldSetElement.chs" #-}
            (toHTMLFieldSetElement self)))
 
getValidationMessage ::
                     (MonadIO m, HTMLFieldSetElementClass self, GlibString string) =>
                       self -> m string
getValidationMessage self
  = liftIO
      (((\(HTMLFieldSetElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_field_set_element_get_validation_message argPtr1)
{-# LINE 139 "./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)))