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#}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
htmlKeygenElementCheckValidity ::
(HTMLKeygenElementClass self) => self -> IO Bool
htmlKeygenElementCheckValidity self
= toBool <$>
({# call webkit_dom_html_keygen_element_check_validity #}
(toHTMLKeygenElement self))
htmlKeygenElementSetCustomValidity ::
(HTMLKeygenElementClass self) => self -> String -> IO ()
htmlKeygenElementSetCustomValidity self error
= withUTFString error $
\ errorPtr ->
{# call webkit_dom_html_keygen_element_set_custom_validity #}
(toHTMLKeygenElement self)
errorPtr
htmlKeygenElementSetAutofocus ::
(HTMLKeygenElementClass self) => self -> Bool -> IO ()
htmlKeygenElementSetAutofocus self val
= {# call webkit_dom_html_keygen_element_set_autofocus #}
(toHTMLKeygenElement self)
(fromBool val)
htmlKeygenElementGetAutofocus ::
(HTMLKeygenElementClass self) => self -> IO Bool
htmlKeygenElementGetAutofocus self
= toBool <$>
({# call webkit_dom_html_keygen_element_get_autofocus #}
(toHTMLKeygenElement self))
htmlKeygenElementSetChallenge ::
(HTMLKeygenElementClass self) => self -> String -> IO ()
htmlKeygenElementSetChallenge self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_keygen_element_set_challenge #}
(toHTMLKeygenElement self)
valPtr
htmlKeygenElementGetChallenge ::
(HTMLKeygenElementClass self) => self -> IO String
htmlKeygenElementGetChallenge self
= ({# call webkit_dom_html_keygen_element_get_challenge #}
(toHTMLKeygenElement self))
>>=
readUTFString
htmlKeygenElementSetDisabled ::
(HTMLKeygenElementClass self) => self -> Bool -> IO ()
htmlKeygenElementSetDisabled self val
= {# call webkit_dom_html_keygen_element_set_disabled #}
(toHTMLKeygenElement self)
(fromBool val)
htmlKeygenElementGetDisabled ::
(HTMLKeygenElementClass self) => self -> IO Bool
htmlKeygenElementGetDisabled self
= toBool <$>
({# call webkit_dom_html_keygen_element_get_disabled #}
(toHTMLKeygenElement self))
htmlKeygenElementGetForm ::
(HTMLKeygenElementClass self) => self -> IO (Maybe HTMLFormElement)
htmlKeygenElementGetForm self
= maybeNull (makeNewGObject mkHTMLFormElement)
({# call webkit_dom_html_keygen_element_get_form #}
(toHTMLKeygenElement self))
htmlKeygenElementSetKeytype ::
(HTMLKeygenElementClass self) => self -> String -> IO ()
htmlKeygenElementSetKeytype self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_keygen_element_set_keytype #}
(toHTMLKeygenElement self)
valPtr
htmlKeygenElementGetKeytype ::
(HTMLKeygenElementClass self) => self -> IO String
htmlKeygenElementGetKeytype self
= ({# call webkit_dom_html_keygen_element_get_keytype #}
(toHTMLKeygenElement self))
>>=
readUTFString
htmlKeygenElementSetName ::
(HTMLKeygenElementClass self) => self -> String -> IO ()
htmlKeygenElementSetName self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_keygen_element_set_name #}
(toHTMLKeygenElement self)
valPtr
htmlKeygenElementGetName ::
(HTMLKeygenElementClass self) => self -> IO String
htmlKeygenElementGetName self
= ({# call webkit_dom_html_keygen_element_get_name #}
(toHTMLKeygenElement self))
>>=
readUTFString
htmlKeygenElementGetWillValidate ::
(HTMLKeygenElementClass self) => self -> IO Bool
htmlKeygenElementGetWillValidate self
= toBool <$>
({# call webkit_dom_html_keygen_element_get_will_validate #}
(toHTMLKeygenElement self))
htmlKeygenElementGetValidity ::
(HTMLKeygenElementClass self) => self -> IO (Maybe ValidityState)
htmlKeygenElementGetValidity self
= maybeNull (makeNewGObject mkValidityState)
({# call webkit_dom_html_keygen_element_get_validity #}
(toHTMLKeygenElement self))
htmlKeygenElementGetValidationMessage ::
(HTMLKeygenElementClass self) => self -> IO String
htmlKeygenElementGetValidationMessage self
= ({# call webkit_dom_html_keygen_element_get_validation_message #}
(toHTMLKeygenElement self))
>>=
readUTFString
htmlKeygenElementGetLabels ::
(HTMLKeygenElementClass self) => self -> IO (Maybe NodeList)
htmlKeygenElementGetLabels self
= maybeNull (makeNewGObject mkNodeList)
({# call webkit_dom_html_keygen_element_get_labels #}
(toHTMLKeygenElement self))