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#}
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, GlibString string) =>
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, GlibString string) =>
self -> string -> IO ()
htmlKeygenElementSetChallenge self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_keygen_element_set_challenge #}
(toHTMLKeygenElement self)
valPtr
htmlKeygenElementGetChallenge ::
(HTMLKeygenElementClass self, GlibString string) =>
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, GlibString string) =>
self -> string -> IO ()
htmlKeygenElementSetKeytype self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_keygen_element_set_keytype #}
(toHTMLKeygenElement self)
valPtr
htmlKeygenElementGetKeytype ::
(HTMLKeygenElementClass self, GlibString string) =>
self -> IO string
htmlKeygenElementGetKeytype self
= ({# call webkit_dom_html_keygen_element_get_keytype #}
(toHTMLKeygenElement self))
>>=
readUTFString
htmlKeygenElementSetName ::
(HTMLKeygenElementClass self, GlibString string) =>
self -> string -> IO ()
htmlKeygenElementSetName self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_keygen_element_set_name #}
(toHTMLKeygenElement self)
valPtr
htmlKeygenElementGetName ::
(HTMLKeygenElementClass self, GlibString string) =>
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, GlibString string) =>
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))