-- GENERATED by C->Haskell Compiler, version 0.13.11 (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)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 15 "./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 23 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
         (toHTMLKeygenElement self))
 
htmlKeygenElementSetCustomValidity ::
                                   (HTMLKeygenElementClass self) => 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 31 "./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 38 "./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 46 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
         (toHTMLKeygenElement self))
 
htmlKeygenElementSetChallenge ::
                              (HTMLKeygenElementClass self) => 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 54 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
          (toHTMLKeygenElement self)
          valPtr
 
htmlKeygenElementGetChallenge ::
                              (HTMLKeygenElementClass self) => self -> IO String
htmlKeygenElementGetChallenge self
  = ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_get_challenge argPtr1)
{-# LINE 61 "./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 69 "./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 77 "./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 84 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
         (toHTMLKeygenElement self))
 
htmlKeygenElementSetKeytype ::
                            (HTMLKeygenElementClass self) => 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 92 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
          (toHTMLKeygenElement self)
          valPtr
 
htmlKeygenElementGetKeytype ::
                            (HTMLKeygenElementClass self) => self -> IO String
htmlKeygenElementGetKeytype self
  = ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_get_keytype argPtr1)
{-# LINE 99 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
       (toHTMLKeygenElement self))
      >>=
      readUTFString
 
htmlKeygenElementSetName ::
                         (HTMLKeygenElementClass self) => 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 109 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
          (toHTMLKeygenElement self)
          valPtr
 
htmlKeygenElementGetName ::
                         (HTMLKeygenElementClass self) => self -> IO String
htmlKeygenElementGetName self
  = ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_get_name argPtr1)
{-# LINE 116 "./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 125 "./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 132 "./Graphics/UI/Gtk/WebKit/DOM/HTMLKeygenElement.chs" #-}
         (toHTMLKeygenElement self))
 
htmlKeygenElementGetValidationMessage ::
                                      (HTMLKeygenElementClass self) => self -> IO String
htmlKeygenElementGetValidationMessage self
  = ((\(HTMLKeygenElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_keygen_element_get_validation_message argPtr1)
{-# LINE 138 "./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 147 "./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)))