-- 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/HTMLKeygenElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLKeygenElement
       (htmlKeygenElementCheckValidity,
        htmlKeygenElementSetCustomValidity, htmlKeygenElementSetAutofocus,
        htmlKeygenElementGetAutofocus, htmlKeygenElementSetChallenge,
        htmlKeygenElementGetChallenge, htmlKeygenElementSetDisabled,
        htmlKeygenElementGetDisabled, htmlKeygenElementGetForm,
        htmlKeygenElementSetKeytype, htmlKeygenElementGetKeytype,
        htmlKeygenElementSetName, htmlKeygenElementGetName,
        htmlKeygenElementGetWillValidate, htmlKeygenElementGetValidity,
        htmlKeygenElementGetValidationMessage, htmlKeygenElementGetLabels,
        HTMLKeygenElement, HTMLKeygenElementClass, castToHTMLKeygenElement,
        gTypeHTMLKeygenElement, toHTMLKeygenElement)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 17 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlKeygenElementCheckValidity ::
                               (HTMLKeygenElementClass self) => self -> IO Bool
htmlKeygenElementCheckValidity self
  = toBool <$>
      ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_check_validity argPtr1)
{-# LINE 25 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
         (toHTMLKeygenElement self))
 
htmlKeygenElementSetCustomValidity ::
                                   (HTMLKeygenElementClass self, GlibString string) =>
                                     self -> string -> IO ()
htmlKeygenElementSetCustomValidity self error
  = withUTFString error $
      \ errorPtr ->
        (\(HTMLKeygenElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_set_custom_validity argPtr1 arg2)
{-# LINE 34 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
          (toHTMLKeygenElement self)
          errorPtr
 
htmlKeygenElementSetAutofocus ::
                              (HTMLKeygenElementClass self) => self -> Bool -> IO ()
htmlKeygenElementSetAutofocus self val
  = (\(HTMLKeygenElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_set_autofocus argPtr1 arg2)
{-# LINE 41 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
      (toHTMLKeygenElement self)
      (fromBool val)
 
htmlKeygenElementGetAutofocus ::
                              (HTMLKeygenElementClass self) => self -> IO Bool
htmlKeygenElementGetAutofocus self
  = toBool <$>
      ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_get_autofocus argPtr1)
{-# LINE 49 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
         (toHTMLKeygenElement self))
 
htmlKeygenElementSetChallenge ::
                              (HTMLKeygenElementClass self, GlibString string) =>
                                self -> string -> IO ()
htmlKeygenElementSetChallenge self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLKeygenElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_set_challenge argPtr1 arg2)
{-# LINE 58 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
          (toHTMLKeygenElement self)
          valPtr
 
htmlKeygenElementGetChallenge ::
                              (HTMLKeygenElementClass self, GlibString string) =>
                                self -> IO string
htmlKeygenElementGetChallenge self
  = ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_get_challenge argPtr1)
{-# LINE 66 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
       (toHTMLKeygenElement self))
      >>=
      readUTFString
 
htmlKeygenElementSetDisabled ::
                             (HTMLKeygenElementClass self) => self -> Bool -> IO ()
htmlKeygenElementSetDisabled self val
  = (\(HTMLKeygenElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_set_disabled argPtr1 arg2)
{-# LINE 74 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
      (toHTMLKeygenElement self)
      (fromBool val)
 
htmlKeygenElementGetDisabled ::
                             (HTMLKeygenElementClass self) => self -> IO Bool
htmlKeygenElementGetDisabled self
  = toBool <$>
      ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_get_disabled argPtr1)
{-# LINE 82 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
         (toHTMLKeygenElement self))
 
htmlKeygenElementGetForm ::
                         (HTMLKeygenElementClass self) => self -> IO (Maybe HTMLFormElement)
htmlKeygenElementGetForm self
  = maybeNull (makeNewGObject mkHTMLFormElement)
      ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_get_form argPtr1)
{-# LINE 89 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
         (toHTMLKeygenElement self))
 
htmlKeygenElementSetKeytype ::
                            (HTMLKeygenElementClass self, GlibString string) =>
                              self -> string -> IO ()
htmlKeygenElementSetKeytype self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLKeygenElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_set_keytype argPtr1 arg2)
{-# LINE 98 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
          (toHTMLKeygenElement self)
          valPtr
 
htmlKeygenElementGetKeytype ::
                            (HTMLKeygenElementClass self, GlibString string) =>
                              self -> IO string
htmlKeygenElementGetKeytype self
  = ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_get_keytype argPtr1)
{-# LINE 106 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
       (toHTMLKeygenElement self))
      >>=
      readUTFString
 
htmlKeygenElementSetName ::
                         (HTMLKeygenElementClass self, GlibString string) =>
                           self -> string -> IO ()
htmlKeygenElementSetName self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLKeygenElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_set_name argPtr1 arg2)
{-# LINE 117 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
          (toHTMLKeygenElement self)
          valPtr
 
htmlKeygenElementGetName ::
                         (HTMLKeygenElementClass self, GlibString string) =>
                           self -> IO string
htmlKeygenElementGetName self
  = ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_get_name argPtr1)
{-# LINE 125 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
       (toHTMLKeygenElement self))
      >>=
      readUTFString
 
htmlKeygenElementGetWillValidate ::
                                 (HTMLKeygenElementClass self) => self -> IO Bool
htmlKeygenElementGetWillValidate self
  = toBool <$>
      ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_get_will_validate argPtr1)
{-# LINE 134 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
         (toHTMLKeygenElement self))
 
htmlKeygenElementGetValidity ::
                             (HTMLKeygenElementClass self) => self -> IO (Maybe ValidityState)
htmlKeygenElementGetValidity self
  = maybeNull (makeNewGObject mkValidityState)
      ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_get_validity argPtr1)
{-# LINE 141 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
         (toHTMLKeygenElement self))
 
htmlKeygenElementGetValidationMessage ::
                                      (HTMLKeygenElementClass self, GlibString string) =>
                                        self -> IO string
htmlKeygenElementGetValidationMessage self
  = ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_get_validation_message argPtr1)
{-# LINE 148 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
       (toHTMLKeygenElement self))
      >>=
      readUTFString
 
htmlKeygenElementGetLabels ::
                           (HTMLKeygenElementClass self) => self -> IO (Maybe NodeList)
htmlKeygenElementGetLabels self
  = maybeNull (makeNewGObject mkNodeList)
      ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_get_labels argPtr1)
{-# LINE 157 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
         (toHTMLKeygenElement self))

foreign import ccall safe "webkit_dom_html_keygen_element_check_validity"
  webkit_dom_html_keygen_element_check_validity :: ((Ptr HTMLKeygenElement) -> (IO CInt))

foreign import ccall safe "webkit_dom_html_keygen_element_set_custom_validity"
  webkit_dom_html_keygen_element_set_custom_validity :: ((Ptr HTMLKeygenElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_keygen_element_set_autofocus"
  webkit_dom_html_keygen_element_set_autofocus :: ((Ptr HTMLKeygenElement) -> (CInt -> (IO ())))

foreign import ccall safe "webkit_dom_html_keygen_element_get_autofocus"
  webkit_dom_html_keygen_element_get_autofocus :: ((Ptr HTMLKeygenElement) -> (IO CInt))

foreign import ccall safe "webkit_dom_html_keygen_element_set_challenge"
  webkit_dom_html_keygen_element_set_challenge :: ((Ptr HTMLKeygenElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_keygen_element_get_challenge"
  webkit_dom_html_keygen_element_get_challenge :: ((Ptr HTMLKeygenElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_keygen_element_set_disabled"
  webkit_dom_html_keygen_element_set_disabled :: ((Ptr HTMLKeygenElement) -> (CInt -> (IO ())))

foreign import ccall safe "webkit_dom_html_keygen_element_get_disabled"
  webkit_dom_html_keygen_element_get_disabled :: ((Ptr HTMLKeygenElement) -> (IO CInt))

foreign import ccall safe "webkit_dom_html_keygen_element_get_form"
  webkit_dom_html_keygen_element_get_form :: ((Ptr HTMLKeygenElement) -> (IO (Ptr HTMLFormElement)))

foreign import ccall safe "webkit_dom_html_keygen_element_set_keytype"
  webkit_dom_html_keygen_element_set_keytype :: ((Ptr HTMLKeygenElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_keygen_element_get_keytype"
  webkit_dom_html_keygen_element_get_keytype :: ((Ptr HTMLKeygenElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_keygen_element_set_name"
  webkit_dom_html_keygen_element_set_name :: ((Ptr HTMLKeygenElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_keygen_element_get_name"
  webkit_dom_html_keygen_element_get_name :: ((Ptr HTMLKeygenElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_keygen_element_get_will_validate"
  webkit_dom_html_keygen_element_get_will_validate :: ((Ptr HTMLKeygenElement) -> (IO CInt))

foreign import ccall safe "webkit_dom_html_keygen_element_get_validity"
  webkit_dom_html_keygen_element_get_validity :: ((Ptr HTMLKeygenElement) -> (IO (Ptr ValidityState)))

foreign import ccall safe "webkit_dom_html_keygen_element_get_validation_message"
  webkit_dom_html_keygen_element_get_validation_message :: ((Ptr HTMLKeygenElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_keygen_element_get_labels"
  webkit_dom_html_keygen_element_get_labels :: ((Ptr HTMLKeygenElement) -> (IO (Ptr NodeList)))