module GI.WebKit.Objects.DOMHTMLKeygenElement
(
DOMHTMLKeygenElement(..) ,
DOMHTMLKeygenElementK ,
toDOMHTMLKeygenElement ,
noDOMHTMLKeygenElement ,
dOMHTMLKeygenElementCheckValidity ,
dOMHTMLKeygenElementGetAutofocus ,
dOMHTMLKeygenElementGetChallenge ,
dOMHTMLKeygenElementGetDisabled ,
dOMHTMLKeygenElementGetForm ,
dOMHTMLKeygenElementGetKeytype ,
dOMHTMLKeygenElementGetLabels ,
dOMHTMLKeygenElementGetName ,
dOMHTMLKeygenElementGetValidationMessage,
dOMHTMLKeygenElementGetValidity ,
dOMHTMLKeygenElementGetWillValidate ,
dOMHTMLKeygenElementSetAutofocus ,
dOMHTMLKeygenElementSetChallenge ,
dOMHTMLKeygenElementSetCustomValidity ,
dOMHTMLKeygenElementSetDisabled ,
dOMHTMLKeygenElementSetKeytype ,
dOMHTMLKeygenElementSetName ,
DOMHTMLKeygenElementAutofocusPropertyInfo,
constructDOMHTMLKeygenElementAutofocus ,
getDOMHTMLKeygenElementAutofocus ,
setDOMHTMLKeygenElementAutofocus ,
DOMHTMLKeygenElementChallengePropertyInfo,
constructDOMHTMLKeygenElementChallenge ,
getDOMHTMLKeygenElementChallenge ,
setDOMHTMLKeygenElementChallenge ,
DOMHTMLKeygenElementDisabledPropertyInfo,
constructDOMHTMLKeygenElementDisabled ,
getDOMHTMLKeygenElementDisabled ,
setDOMHTMLKeygenElementDisabled ,
DOMHTMLKeygenElementFormPropertyInfo ,
getDOMHTMLKeygenElementForm ,
DOMHTMLKeygenElementKeytypePropertyInfo ,
constructDOMHTMLKeygenElementKeytype ,
getDOMHTMLKeygenElementKeytype ,
setDOMHTMLKeygenElementKeytype ,
DOMHTMLKeygenElementLabelsPropertyInfo ,
getDOMHTMLKeygenElementLabels ,
DOMHTMLKeygenElementNamePropertyInfo ,
constructDOMHTMLKeygenElementName ,
getDOMHTMLKeygenElementName ,
setDOMHTMLKeygenElementName ,
DOMHTMLKeygenElementTypePropertyInfo ,
getDOMHTMLKeygenElementType ,
DOMHTMLKeygenElementValidationMessagePropertyInfo,
getDOMHTMLKeygenElementValidationMessage,
DOMHTMLKeygenElementValidityPropertyInfo,
getDOMHTMLKeygenElementValidity ,
DOMHTMLKeygenElementWillValidatePropertyInfo,
getDOMHTMLKeygenElementWillValidate ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
newtype DOMHTMLKeygenElement = DOMHTMLKeygenElement (ForeignPtr DOMHTMLKeygenElement)
foreign import ccall "webkit_dom_html_keygen_element_get_type"
c_webkit_dom_html_keygen_element_get_type :: IO GType
type instance ParentTypes DOMHTMLKeygenElement = DOMHTMLKeygenElementParentTypes
type DOMHTMLKeygenElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLKeygenElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_keygen_element_get_type
class GObject o => DOMHTMLKeygenElementK o
instance (GObject o, IsDescendantOf DOMHTMLKeygenElement o) => DOMHTMLKeygenElementK o
toDOMHTMLKeygenElement :: DOMHTMLKeygenElementK o => o -> IO DOMHTMLKeygenElement
toDOMHTMLKeygenElement = unsafeCastTo DOMHTMLKeygenElement
noDOMHTMLKeygenElement :: Maybe DOMHTMLKeygenElement
noDOMHTMLKeygenElement = Nothing
getDOMHTMLKeygenElementAutofocus :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool
getDOMHTMLKeygenElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus"
setDOMHTMLKeygenElementAutofocus :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> Bool -> m ()
setDOMHTMLKeygenElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val
constructDOMHTMLKeygenElementAutofocus :: Bool -> IO ([Char], GValue)
constructDOMHTMLKeygenElementAutofocus val = constructObjectPropertyBool "autofocus" val
data DOMHTMLKeygenElementAutofocusPropertyInfo
instance AttrInfo DOMHTMLKeygenElementAutofocusPropertyInfo where
type AttrAllowedOps DOMHTMLKeygenElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLKeygenElementAutofocusPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMHTMLKeygenElementAutofocusPropertyInfo = DOMHTMLKeygenElementK
type AttrGetType DOMHTMLKeygenElementAutofocusPropertyInfo = Bool
type AttrLabel DOMHTMLKeygenElementAutofocusPropertyInfo = "DOMHTMLKeygenElement::autofocus"
attrGet _ = getDOMHTMLKeygenElementAutofocus
attrSet _ = setDOMHTMLKeygenElementAutofocus
attrConstruct _ = constructDOMHTMLKeygenElementAutofocus
getDOMHTMLKeygenElementChallenge :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text
getDOMHTMLKeygenElementChallenge obj = liftIO $ getObjectPropertyString obj "challenge"
setDOMHTMLKeygenElementChallenge :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m ()
setDOMHTMLKeygenElementChallenge obj val = liftIO $ setObjectPropertyString obj "challenge" val
constructDOMHTMLKeygenElementChallenge :: T.Text -> IO ([Char], GValue)
constructDOMHTMLKeygenElementChallenge val = constructObjectPropertyString "challenge" val
data DOMHTMLKeygenElementChallengePropertyInfo
instance AttrInfo DOMHTMLKeygenElementChallengePropertyInfo where
type AttrAllowedOps DOMHTMLKeygenElementChallengePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLKeygenElementChallengePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLKeygenElementChallengePropertyInfo = DOMHTMLKeygenElementK
type AttrGetType DOMHTMLKeygenElementChallengePropertyInfo = T.Text
type AttrLabel DOMHTMLKeygenElementChallengePropertyInfo = "DOMHTMLKeygenElement::challenge"
attrGet _ = getDOMHTMLKeygenElementChallenge
attrSet _ = setDOMHTMLKeygenElementChallenge
attrConstruct _ = constructDOMHTMLKeygenElementChallenge
getDOMHTMLKeygenElementDisabled :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool
getDOMHTMLKeygenElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled"
setDOMHTMLKeygenElementDisabled :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> Bool -> m ()
setDOMHTMLKeygenElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val
constructDOMHTMLKeygenElementDisabled :: Bool -> IO ([Char], GValue)
constructDOMHTMLKeygenElementDisabled val = constructObjectPropertyBool "disabled" val
data DOMHTMLKeygenElementDisabledPropertyInfo
instance AttrInfo DOMHTMLKeygenElementDisabledPropertyInfo where
type AttrAllowedOps DOMHTMLKeygenElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLKeygenElementDisabledPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMHTMLKeygenElementDisabledPropertyInfo = DOMHTMLKeygenElementK
type AttrGetType DOMHTMLKeygenElementDisabledPropertyInfo = Bool
type AttrLabel DOMHTMLKeygenElementDisabledPropertyInfo = "DOMHTMLKeygenElement::disabled"
attrGet _ = getDOMHTMLKeygenElementDisabled
attrSet _ = setDOMHTMLKeygenElementDisabled
attrConstruct _ = constructDOMHTMLKeygenElementDisabled
getDOMHTMLKeygenElementForm :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMHTMLFormElement
getDOMHTMLKeygenElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement
data DOMHTMLKeygenElementFormPropertyInfo
instance AttrInfo DOMHTMLKeygenElementFormPropertyInfo where
type AttrAllowedOps DOMHTMLKeygenElementFormPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLKeygenElementFormPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLKeygenElementFormPropertyInfo = DOMHTMLKeygenElementK
type AttrGetType DOMHTMLKeygenElementFormPropertyInfo = DOMHTMLFormElement
type AttrLabel DOMHTMLKeygenElementFormPropertyInfo = "DOMHTMLKeygenElement::form"
attrGet _ = getDOMHTMLKeygenElementForm
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLKeygenElementKeytype :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text
getDOMHTMLKeygenElementKeytype obj = liftIO $ getObjectPropertyString obj "keytype"
setDOMHTMLKeygenElementKeytype :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m ()
setDOMHTMLKeygenElementKeytype obj val = liftIO $ setObjectPropertyString obj "keytype" val
constructDOMHTMLKeygenElementKeytype :: T.Text -> IO ([Char], GValue)
constructDOMHTMLKeygenElementKeytype val = constructObjectPropertyString "keytype" val
data DOMHTMLKeygenElementKeytypePropertyInfo
instance AttrInfo DOMHTMLKeygenElementKeytypePropertyInfo where
type AttrAllowedOps DOMHTMLKeygenElementKeytypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLKeygenElementKeytypePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLKeygenElementKeytypePropertyInfo = DOMHTMLKeygenElementK
type AttrGetType DOMHTMLKeygenElementKeytypePropertyInfo = T.Text
type AttrLabel DOMHTMLKeygenElementKeytypePropertyInfo = "DOMHTMLKeygenElement::keytype"
attrGet _ = getDOMHTMLKeygenElementKeytype
attrSet _ = setDOMHTMLKeygenElementKeytype
attrConstruct _ = constructDOMHTMLKeygenElementKeytype
getDOMHTMLKeygenElementLabels :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMNodeList
getDOMHTMLKeygenElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList
data DOMHTMLKeygenElementLabelsPropertyInfo
instance AttrInfo DOMHTMLKeygenElementLabelsPropertyInfo where
type AttrAllowedOps DOMHTMLKeygenElementLabelsPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLKeygenElementLabelsPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLKeygenElementLabelsPropertyInfo = DOMHTMLKeygenElementK
type AttrGetType DOMHTMLKeygenElementLabelsPropertyInfo = DOMNodeList
type AttrLabel DOMHTMLKeygenElementLabelsPropertyInfo = "DOMHTMLKeygenElement::labels"
attrGet _ = getDOMHTMLKeygenElementLabels
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLKeygenElementName :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text
getDOMHTMLKeygenElementName obj = liftIO $ getObjectPropertyString obj "name"
setDOMHTMLKeygenElementName :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m ()
setDOMHTMLKeygenElementName obj val = liftIO $ setObjectPropertyString obj "name" val
constructDOMHTMLKeygenElementName :: T.Text -> IO ([Char], GValue)
constructDOMHTMLKeygenElementName val = constructObjectPropertyString "name" val
data DOMHTMLKeygenElementNamePropertyInfo
instance AttrInfo DOMHTMLKeygenElementNamePropertyInfo where
type AttrAllowedOps DOMHTMLKeygenElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLKeygenElementNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLKeygenElementNamePropertyInfo = DOMHTMLKeygenElementK
type AttrGetType DOMHTMLKeygenElementNamePropertyInfo = T.Text
type AttrLabel DOMHTMLKeygenElementNamePropertyInfo = "DOMHTMLKeygenElement::name"
attrGet _ = getDOMHTMLKeygenElementName
attrSet _ = setDOMHTMLKeygenElementName
attrConstruct _ = constructDOMHTMLKeygenElementName
getDOMHTMLKeygenElementType :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text
getDOMHTMLKeygenElementType obj = liftIO $ getObjectPropertyString obj "type"
data DOMHTMLKeygenElementTypePropertyInfo
instance AttrInfo DOMHTMLKeygenElementTypePropertyInfo where
type AttrAllowedOps DOMHTMLKeygenElementTypePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLKeygenElementTypePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLKeygenElementTypePropertyInfo = DOMHTMLKeygenElementK
type AttrGetType DOMHTMLKeygenElementTypePropertyInfo = T.Text
type AttrLabel DOMHTMLKeygenElementTypePropertyInfo = "DOMHTMLKeygenElement::type"
attrGet _ = getDOMHTMLKeygenElementType
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLKeygenElementValidationMessage :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text
getDOMHTMLKeygenElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message"
data DOMHTMLKeygenElementValidationMessagePropertyInfo
instance AttrInfo DOMHTMLKeygenElementValidationMessagePropertyInfo where
type AttrAllowedOps DOMHTMLKeygenElementValidationMessagePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLKeygenElementValidationMessagePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLKeygenElementValidationMessagePropertyInfo = DOMHTMLKeygenElementK
type AttrGetType DOMHTMLKeygenElementValidationMessagePropertyInfo = T.Text
type AttrLabel DOMHTMLKeygenElementValidationMessagePropertyInfo = "DOMHTMLKeygenElement::validation-message"
attrGet _ = getDOMHTMLKeygenElementValidationMessage
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLKeygenElementValidity :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMValidityState
getDOMHTMLKeygenElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState
data DOMHTMLKeygenElementValidityPropertyInfo
instance AttrInfo DOMHTMLKeygenElementValidityPropertyInfo where
type AttrAllowedOps DOMHTMLKeygenElementValidityPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLKeygenElementValidityPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLKeygenElementValidityPropertyInfo = DOMHTMLKeygenElementK
type AttrGetType DOMHTMLKeygenElementValidityPropertyInfo = DOMValidityState
type AttrLabel DOMHTMLKeygenElementValidityPropertyInfo = "DOMHTMLKeygenElement::validity"
attrGet _ = getDOMHTMLKeygenElementValidity
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLKeygenElementWillValidate :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool
getDOMHTMLKeygenElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate"
data DOMHTMLKeygenElementWillValidatePropertyInfo
instance AttrInfo DOMHTMLKeygenElementWillValidatePropertyInfo where
type AttrAllowedOps DOMHTMLKeygenElementWillValidatePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLKeygenElementWillValidatePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLKeygenElementWillValidatePropertyInfo = DOMHTMLKeygenElementK
type AttrGetType DOMHTMLKeygenElementWillValidatePropertyInfo = Bool
type AttrLabel DOMHTMLKeygenElementWillValidatePropertyInfo = "DOMHTMLKeygenElement::will-validate"
attrGet _ = getDOMHTMLKeygenElementWillValidate
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMHTMLKeygenElement = DOMHTMLKeygenElementAttributeList
type DOMHTMLKeygenElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLKeygenElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("challenge", DOMHTMLKeygenElementChallengePropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLKeygenElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLKeygenElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("keytype", DOMHTMLKeygenElementKeytypePropertyInfo), '("labels", DOMHTMLKeygenElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLKeygenElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLKeygenElementTypePropertyInfo), '("validation-message", DOMHTMLKeygenElementValidationMessagePropertyInfo), '("validity", DOMHTMLKeygenElementValidityPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLKeygenElementWillValidatePropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMHTMLKeygenElement = DOMHTMLKeygenElementSignalList
type DOMHTMLKeygenElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_html_keygen_element_check_validity" webkit_dom_html_keygen_element_check_validity ::
Ptr DOMHTMLKeygenElement ->
IO CInt
dOMHTMLKeygenElementCheckValidity ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
m Bool
dOMHTMLKeygenElementCheckValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_check_validity _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_keygen_element_get_autofocus" webkit_dom_html_keygen_element_get_autofocus ::
Ptr DOMHTMLKeygenElement ->
IO CInt
dOMHTMLKeygenElementGetAutofocus ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
m Bool
dOMHTMLKeygenElementGetAutofocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_autofocus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_keygen_element_get_challenge" webkit_dom_html_keygen_element_get_challenge ::
Ptr DOMHTMLKeygenElement ->
IO CString
dOMHTMLKeygenElementGetChallenge ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
m T.Text
dOMHTMLKeygenElementGetChallenge _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_challenge _obj'
checkUnexpectedReturnNULL "webkit_dom_html_keygen_element_get_challenge" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_keygen_element_get_disabled" webkit_dom_html_keygen_element_get_disabled ::
Ptr DOMHTMLKeygenElement ->
IO CInt
dOMHTMLKeygenElementGetDisabled ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
m Bool
dOMHTMLKeygenElementGetDisabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_disabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_keygen_element_get_form" webkit_dom_html_keygen_element_get_form ::
Ptr DOMHTMLKeygenElement ->
IO (Ptr DOMHTMLFormElement)
dOMHTMLKeygenElementGetForm ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
m DOMHTMLFormElement
dOMHTMLKeygenElementGetForm _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_form _obj'
checkUnexpectedReturnNULL "webkit_dom_html_keygen_element_get_form" result
result' <- (newObject DOMHTMLFormElement) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_keygen_element_get_keytype" webkit_dom_html_keygen_element_get_keytype ::
Ptr DOMHTMLKeygenElement ->
IO CString
dOMHTMLKeygenElementGetKeytype ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
m T.Text
dOMHTMLKeygenElementGetKeytype _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_keytype _obj'
checkUnexpectedReturnNULL "webkit_dom_html_keygen_element_get_keytype" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_keygen_element_get_labels" webkit_dom_html_keygen_element_get_labels ::
Ptr DOMHTMLKeygenElement ->
IO (Ptr DOMNodeList)
dOMHTMLKeygenElementGetLabels ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
m DOMNodeList
dOMHTMLKeygenElementGetLabels _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_labels _obj'
checkUnexpectedReturnNULL "webkit_dom_html_keygen_element_get_labels" result
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_keygen_element_get_name" webkit_dom_html_keygen_element_get_name ::
Ptr DOMHTMLKeygenElement ->
IO CString
dOMHTMLKeygenElementGetName ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
m T.Text
dOMHTMLKeygenElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_name _obj'
checkUnexpectedReturnNULL "webkit_dom_html_keygen_element_get_name" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_keygen_element_get_validation_message" webkit_dom_html_keygen_element_get_validation_message ::
Ptr DOMHTMLKeygenElement ->
IO CString
dOMHTMLKeygenElementGetValidationMessage ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
m T.Text
dOMHTMLKeygenElementGetValidationMessage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_validation_message _obj'
checkUnexpectedReturnNULL "webkit_dom_html_keygen_element_get_validation_message" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_keygen_element_get_validity" webkit_dom_html_keygen_element_get_validity ::
Ptr DOMHTMLKeygenElement ->
IO (Ptr DOMValidityState)
dOMHTMLKeygenElementGetValidity ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
m DOMValidityState
dOMHTMLKeygenElementGetValidity _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_validity _obj'
checkUnexpectedReturnNULL "webkit_dom_html_keygen_element_get_validity" result
result' <- (wrapObject DOMValidityState) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_keygen_element_get_will_validate" webkit_dom_html_keygen_element_get_will_validate ::
Ptr DOMHTMLKeygenElement ->
IO CInt
dOMHTMLKeygenElementGetWillValidate ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
m Bool
dOMHTMLKeygenElementGetWillValidate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_keygen_element_get_will_validate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_keygen_element_set_autofocus" webkit_dom_html_keygen_element_set_autofocus ::
Ptr DOMHTMLKeygenElement ->
CInt ->
IO ()
dOMHTMLKeygenElementSetAutofocus ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
Bool ->
m ()
dOMHTMLKeygenElementSetAutofocus _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_keygen_element_set_autofocus _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_keygen_element_set_challenge" webkit_dom_html_keygen_element_set_challenge ::
Ptr DOMHTMLKeygenElement ->
CString ->
IO ()
dOMHTMLKeygenElementSetChallenge ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLKeygenElementSetChallenge _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_keygen_element_set_challenge _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_keygen_element_set_custom_validity" webkit_dom_html_keygen_element_set_custom_validity ::
Ptr DOMHTMLKeygenElement ->
CString ->
IO ()
dOMHTMLKeygenElementSetCustomValidity ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLKeygenElementSetCustomValidity _obj error_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
error_' <- textToCString error_
webkit_dom_html_keygen_element_set_custom_validity _obj' error_'
touchManagedPtr _obj
freeMem error_'
return ()
foreign import ccall "webkit_dom_html_keygen_element_set_disabled" webkit_dom_html_keygen_element_set_disabled ::
Ptr DOMHTMLKeygenElement ->
CInt ->
IO ()
dOMHTMLKeygenElementSetDisabled ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
Bool ->
m ()
dOMHTMLKeygenElementSetDisabled _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_keygen_element_set_disabled _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_keygen_element_set_keytype" webkit_dom_html_keygen_element_set_keytype ::
Ptr DOMHTMLKeygenElement ->
CString ->
IO ()
dOMHTMLKeygenElementSetKeytype ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLKeygenElementSetKeytype _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_keygen_element_set_keytype _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_keygen_element_set_name" webkit_dom_html_keygen_element_set_name ::
Ptr DOMHTMLKeygenElement ->
CString ->
IO ()
dOMHTMLKeygenElementSetName ::
(MonadIO m, DOMHTMLKeygenElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLKeygenElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_keygen_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()