module GI.WebKit.Objects.DOMHTMLElement
(
DOMHTMLElement(..) ,
DOMHTMLElementK ,
toDOMHTMLElement ,
noDOMHTMLElement ,
dOMHTMLElementClick ,
dOMHTMLElementGetAccessKey ,
dOMHTMLElementGetChildren ,
dOMHTMLElementGetClassList ,
dOMHTMLElementGetClassName ,
dOMHTMLElementGetContentEditable ,
dOMHTMLElementGetDir ,
dOMHTMLElementGetDraggable ,
dOMHTMLElementGetHidden ,
dOMHTMLElementGetId ,
dOMHTMLElementGetInnerHtml ,
dOMHTMLElementGetInnerText ,
dOMHTMLElementGetIsContentEditable ,
dOMHTMLElementGetItemId ,
dOMHTMLElementGetItemProp ,
dOMHTMLElementGetItemRef ,
dOMHTMLElementGetItemScope ,
dOMHTMLElementGetItemType ,
dOMHTMLElementGetLang ,
dOMHTMLElementGetOuterHtml ,
dOMHTMLElementGetOuterText ,
dOMHTMLElementGetSpellcheck ,
dOMHTMLElementGetTabIndex ,
dOMHTMLElementGetTitle ,
dOMHTMLElementGetTranslate ,
dOMHTMLElementGetWebkitdropzone ,
dOMHTMLElementInsertAdjacentElement ,
dOMHTMLElementInsertAdjacentHtml ,
dOMHTMLElementInsertAdjacentText ,
dOMHTMLElementSetAccessKey ,
dOMHTMLElementSetClassName ,
dOMHTMLElementSetContentEditable ,
dOMHTMLElementSetDir ,
dOMHTMLElementSetDraggable ,
dOMHTMLElementSetHidden ,
dOMHTMLElementSetId ,
dOMHTMLElementSetInnerHtml ,
dOMHTMLElementSetInnerText ,
dOMHTMLElementSetItemId ,
dOMHTMLElementSetItemScope ,
dOMHTMLElementSetLang ,
dOMHTMLElementSetOuterHtml ,
dOMHTMLElementSetOuterText ,
dOMHTMLElementSetSpellcheck ,
dOMHTMLElementSetTabIndex ,
dOMHTMLElementSetTitle ,
dOMHTMLElementSetTranslate ,
dOMHTMLElementSetWebkitdropzone ,
DOMHTMLElementAccessKeyPropertyInfo ,
constructDOMHTMLElementAccessKey ,
getDOMHTMLElementAccessKey ,
setDOMHTMLElementAccessKey ,
DOMHTMLElementChildrenPropertyInfo ,
getDOMHTMLElementChildren ,
DOMHTMLElementContentEditablePropertyInfo,
constructDOMHTMLElementContentEditable ,
getDOMHTMLElementContentEditable ,
setDOMHTMLElementContentEditable ,
DOMHTMLElementDirPropertyInfo ,
constructDOMHTMLElementDir ,
getDOMHTMLElementDir ,
setDOMHTMLElementDir ,
DOMHTMLElementDraggablePropertyInfo ,
constructDOMHTMLElementDraggable ,
getDOMHTMLElementDraggable ,
setDOMHTMLElementDraggable ,
DOMHTMLElementHiddenPropertyInfo ,
constructDOMHTMLElementHidden ,
getDOMHTMLElementHidden ,
setDOMHTMLElementHidden ,
DOMHTMLElementInnerHtmlPropertyInfo ,
constructDOMHTMLElementInnerHtml ,
getDOMHTMLElementInnerHtml ,
setDOMHTMLElementInnerHtml ,
DOMHTMLElementInnerTextPropertyInfo ,
constructDOMHTMLElementInnerText ,
getDOMHTMLElementInnerText ,
setDOMHTMLElementInnerText ,
DOMHTMLElementIsContentEditablePropertyInfo,
getDOMHTMLElementIsContentEditable ,
DOMHTMLElementLangPropertyInfo ,
constructDOMHTMLElementLang ,
getDOMHTMLElementLang ,
setDOMHTMLElementLang ,
DOMHTMLElementOuterHtmlPropertyInfo ,
constructDOMHTMLElementOuterHtml ,
getDOMHTMLElementOuterHtml ,
setDOMHTMLElementOuterHtml ,
DOMHTMLElementOuterTextPropertyInfo ,
constructDOMHTMLElementOuterText ,
getDOMHTMLElementOuterText ,
setDOMHTMLElementOuterText ,
DOMHTMLElementSpellcheckPropertyInfo ,
constructDOMHTMLElementSpellcheck ,
getDOMHTMLElementSpellcheck ,
setDOMHTMLElementSpellcheck ,
DOMHTMLElementTabIndexPropertyInfo ,
constructDOMHTMLElementTabIndex ,
getDOMHTMLElementTabIndex ,
setDOMHTMLElementTabIndex ,
DOMHTMLElementTitlePropertyInfo ,
constructDOMHTMLElementTitle ,
getDOMHTMLElementTitle ,
setDOMHTMLElementTitle ,
DOMHTMLElementTranslatePropertyInfo ,
constructDOMHTMLElementTranslate ,
getDOMHTMLElementTranslate ,
setDOMHTMLElementTranslate ,
DOMHTMLElementWebkitdropzonePropertyInfo,
constructDOMHTMLElementWebkitdropzone ,
getDOMHTMLElementWebkitdropzone ,
setDOMHTMLElementWebkitdropzone ,
) 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 DOMHTMLElement = DOMHTMLElement (ForeignPtr DOMHTMLElement)
foreign import ccall "webkit_dom_html_element_get_type"
c_webkit_dom_html_element_get_type :: IO GType
type instance ParentTypes DOMHTMLElement = DOMHTMLElementParentTypes
type DOMHTMLElementParentTypes = '[DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_element_get_type
class GObject o => DOMHTMLElementK o
instance (GObject o, IsDescendantOf DOMHTMLElement o) => DOMHTMLElementK o
toDOMHTMLElement :: DOMHTMLElementK o => o -> IO DOMHTMLElement
toDOMHTMLElement = unsafeCastTo DOMHTMLElement
noDOMHTMLElement :: Maybe DOMHTMLElement
noDOMHTMLElement = Nothing
getDOMHTMLElementAccessKey :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text
getDOMHTMLElementAccessKey obj = liftIO $ getObjectPropertyString obj "access-key"
setDOMHTMLElementAccessKey :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()
setDOMHTMLElementAccessKey obj val = liftIO $ setObjectPropertyString obj "access-key" val
constructDOMHTMLElementAccessKey :: T.Text -> IO ([Char], GValue)
constructDOMHTMLElementAccessKey val = constructObjectPropertyString "access-key" val
data DOMHTMLElementAccessKeyPropertyInfo
instance AttrInfo DOMHTMLElementAccessKeyPropertyInfo where
type AttrAllowedOps DOMHTMLElementAccessKeyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementAccessKeyPropertyInfo = T.Text
type AttrLabel DOMHTMLElementAccessKeyPropertyInfo = "DOMHTMLElement::access-key"
attrGet _ = getDOMHTMLElementAccessKey
attrSet _ = setDOMHTMLElementAccessKey
attrConstruct _ = constructDOMHTMLElementAccessKey
getDOMHTMLElementChildren :: (MonadIO m, DOMHTMLElementK o) => o -> m DOMHTMLCollection
getDOMHTMLElementChildren obj = liftIO $ getObjectPropertyObject obj "children" DOMHTMLCollection
data DOMHTMLElementChildrenPropertyInfo
instance AttrInfo DOMHTMLElementChildrenPropertyInfo where
type AttrAllowedOps DOMHTMLElementChildrenPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementChildrenPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLElementChildrenPropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementChildrenPropertyInfo = DOMHTMLCollection
type AttrLabel DOMHTMLElementChildrenPropertyInfo = "DOMHTMLElement::children"
attrGet _ = getDOMHTMLElementChildren
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text
getDOMHTMLElementContentEditable obj = liftIO $ getObjectPropertyString obj "content-editable"
setDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()
setDOMHTMLElementContentEditable obj val = liftIO $ setObjectPropertyString obj "content-editable" val
constructDOMHTMLElementContentEditable :: T.Text -> IO ([Char], GValue)
constructDOMHTMLElementContentEditable val = constructObjectPropertyString "content-editable" val
data DOMHTMLElementContentEditablePropertyInfo
instance AttrInfo DOMHTMLElementContentEditablePropertyInfo where
type AttrAllowedOps DOMHTMLElementContentEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementContentEditablePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLElementContentEditablePropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementContentEditablePropertyInfo = T.Text
type AttrLabel DOMHTMLElementContentEditablePropertyInfo = "DOMHTMLElement::content-editable"
attrGet _ = getDOMHTMLElementContentEditable
attrSet _ = setDOMHTMLElementContentEditable
attrConstruct _ = constructDOMHTMLElementContentEditable
getDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text
getDOMHTMLElementDir obj = liftIO $ getObjectPropertyString obj "dir"
setDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()
setDOMHTMLElementDir obj val = liftIO $ setObjectPropertyString obj "dir" val
constructDOMHTMLElementDir :: T.Text -> IO ([Char], GValue)
constructDOMHTMLElementDir val = constructObjectPropertyString "dir" val
data DOMHTMLElementDirPropertyInfo
instance AttrInfo DOMHTMLElementDirPropertyInfo where
type AttrAllowedOps DOMHTMLElementDirPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementDirPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLElementDirPropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementDirPropertyInfo = T.Text
type AttrLabel DOMHTMLElementDirPropertyInfo = "DOMHTMLElement::dir"
attrGet _ = getDOMHTMLElementDir
attrSet _ = setDOMHTMLElementDir
attrConstruct _ = constructDOMHTMLElementDir
getDOMHTMLElementDraggable :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool
getDOMHTMLElementDraggable obj = liftIO $ getObjectPropertyBool obj "draggable"
setDOMHTMLElementDraggable :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m ()
setDOMHTMLElementDraggable obj val = liftIO $ setObjectPropertyBool obj "draggable" val
constructDOMHTMLElementDraggable :: Bool -> IO ([Char], GValue)
constructDOMHTMLElementDraggable val = constructObjectPropertyBool "draggable" val
data DOMHTMLElementDraggablePropertyInfo
instance AttrInfo DOMHTMLElementDraggablePropertyInfo where
type AttrAllowedOps DOMHTMLElementDraggablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementDraggablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMHTMLElementDraggablePropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementDraggablePropertyInfo = Bool
type AttrLabel DOMHTMLElementDraggablePropertyInfo = "DOMHTMLElement::draggable"
attrGet _ = getDOMHTMLElementDraggable
attrSet _ = setDOMHTMLElementDraggable
attrConstruct _ = constructDOMHTMLElementDraggable
getDOMHTMLElementHidden :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool
getDOMHTMLElementHidden obj = liftIO $ getObjectPropertyBool obj "hidden"
setDOMHTMLElementHidden :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m ()
setDOMHTMLElementHidden obj val = liftIO $ setObjectPropertyBool obj "hidden" val
constructDOMHTMLElementHidden :: Bool -> IO ([Char], GValue)
constructDOMHTMLElementHidden val = constructObjectPropertyBool "hidden" val
data DOMHTMLElementHiddenPropertyInfo
instance AttrInfo DOMHTMLElementHiddenPropertyInfo where
type AttrAllowedOps DOMHTMLElementHiddenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementHiddenPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMHTMLElementHiddenPropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementHiddenPropertyInfo = Bool
type AttrLabel DOMHTMLElementHiddenPropertyInfo = "DOMHTMLElement::hidden"
attrGet _ = getDOMHTMLElementHidden
attrSet _ = setDOMHTMLElementHidden
attrConstruct _ = constructDOMHTMLElementHidden
getDOMHTMLElementInnerHtml :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text
getDOMHTMLElementInnerHtml obj = liftIO $ getObjectPropertyString obj "inner-html"
setDOMHTMLElementInnerHtml :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()
setDOMHTMLElementInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" val
constructDOMHTMLElementInnerHtml :: T.Text -> IO ([Char], GValue)
constructDOMHTMLElementInnerHtml val = constructObjectPropertyString "inner-html" val
data DOMHTMLElementInnerHtmlPropertyInfo
instance AttrInfo DOMHTMLElementInnerHtmlPropertyInfo where
type AttrAllowedOps DOMHTMLElementInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementInnerHtmlPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLElementInnerHtmlPropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementInnerHtmlPropertyInfo = T.Text
type AttrLabel DOMHTMLElementInnerHtmlPropertyInfo = "DOMHTMLElement::inner-html"
attrGet _ = getDOMHTMLElementInnerHtml
attrSet _ = setDOMHTMLElementInnerHtml
attrConstruct _ = constructDOMHTMLElementInnerHtml
getDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text
getDOMHTMLElementInnerText obj = liftIO $ getObjectPropertyString obj "inner-text"
setDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()
setDOMHTMLElementInnerText obj val = liftIO $ setObjectPropertyString obj "inner-text" val
constructDOMHTMLElementInnerText :: T.Text -> IO ([Char], GValue)
constructDOMHTMLElementInnerText val = constructObjectPropertyString "inner-text" val
data DOMHTMLElementInnerTextPropertyInfo
instance AttrInfo DOMHTMLElementInnerTextPropertyInfo where
type AttrAllowedOps DOMHTMLElementInnerTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementInnerTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLElementInnerTextPropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementInnerTextPropertyInfo = T.Text
type AttrLabel DOMHTMLElementInnerTextPropertyInfo = "DOMHTMLElement::inner-text"
attrGet _ = getDOMHTMLElementInnerText
attrSet _ = setDOMHTMLElementInnerText
attrConstruct _ = constructDOMHTMLElementInnerText
getDOMHTMLElementIsContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool
getDOMHTMLElementIsContentEditable obj = liftIO $ getObjectPropertyBool obj "is-content-editable"
data DOMHTMLElementIsContentEditablePropertyInfo
instance AttrInfo DOMHTMLElementIsContentEditablePropertyInfo where
type AttrAllowedOps DOMHTMLElementIsContentEditablePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementIsContentEditablePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLElementIsContentEditablePropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementIsContentEditablePropertyInfo = Bool
type AttrLabel DOMHTMLElementIsContentEditablePropertyInfo = "DOMHTMLElement::is-content-editable"
attrGet _ = getDOMHTMLElementIsContentEditable
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text
getDOMHTMLElementLang obj = liftIO $ getObjectPropertyString obj "lang"
setDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()
setDOMHTMLElementLang obj val = liftIO $ setObjectPropertyString obj "lang" val
constructDOMHTMLElementLang :: T.Text -> IO ([Char], GValue)
constructDOMHTMLElementLang val = constructObjectPropertyString "lang" val
data DOMHTMLElementLangPropertyInfo
instance AttrInfo DOMHTMLElementLangPropertyInfo where
type AttrAllowedOps DOMHTMLElementLangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementLangPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLElementLangPropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementLangPropertyInfo = T.Text
type AttrLabel DOMHTMLElementLangPropertyInfo = "DOMHTMLElement::lang"
attrGet _ = getDOMHTMLElementLang
attrSet _ = setDOMHTMLElementLang
attrConstruct _ = constructDOMHTMLElementLang
getDOMHTMLElementOuterHtml :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text
getDOMHTMLElementOuterHtml obj = liftIO $ getObjectPropertyString obj "outer-html"
setDOMHTMLElementOuterHtml :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()
setDOMHTMLElementOuterHtml obj val = liftIO $ setObjectPropertyString obj "outer-html" val
constructDOMHTMLElementOuterHtml :: T.Text -> IO ([Char], GValue)
constructDOMHTMLElementOuterHtml val = constructObjectPropertyString "outer-html" val
data DOMHTMLElementOuterHtmlPropertyInfo
instance AttrInfo DOMHTMLElementOuterHtmlPropertyInfo where
type AttrAllowedOps DOMHTMLElementOuterHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementOuterHtmlPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLElementOuterHtmlPropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementOuterHtmlPropertyInfo = T.Text
type AttrLabel DOMHTMLElementOuterHtmlPropertyInfo = "DOMHTMLElement::outer-html"
attrGet _ = getDOMHTMLElementOuterHtml
attrSet _ = setDOMHTMLElementOuterHtml
attrConstruct _ = constructDOMHTMLElementOuterHtml
getDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text
getDOMHTMLElementOuterText obj = liftIO $ getObjectPropertyString obj "outer-text"
setDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()
setDOMHTMLElementOuterText obj val = liftIO $ setObjectPropertyString obj "outer-text" val
constructDOMHTMLElementOuterText :: T.Text -> IO ([Char], GValue)
constructDOMHTMLElementOuterText val = constructObjectPropertyString "outer-text" val
data DOMHTMLElementOuterTextPropertyInfo
instance AttrInfo DOMHTMLElementOuterTextPropertyInfo where
type AttrAllowedOps DOMHTMLElementOuterTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementOuterTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLElementOuterTextPropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementOuterTextPropertyInfo = T.Text
type AttrLabel DOMHTMLElementOuterTextPropertyInfo = "DOMHTMLElement::outer-text"
attrGet _ = getDOMHTMLElementOuterText
attrSet _ = setDOMHTMLElementOuterText
attrConstruct _ = constructDOMHTMLElementOuterText
getDOMHTMLElementSpellcheck :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool
getDOMHTMLElementSpellcheck obj = liftIO $ getObjectPropertyBool obj "spellcheck"
setDOMHTMLElementSpellcheck :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m ()
setDOMHTMLElementSpellcheck obj val = liftIO $ setObjectPropertyBool obj "spellcheck" val
constructDOMHTMLElementSpellcheck :: Bool -> IO ([Char], GValue)
constructDOMHTMLElementSpellcheck val = constructObjectPropertyBool "spellcheck" val
data DOMHTMLElementSpellcheckPropertyInfo
instance AttrInfo DOMHTMLElementSpellcheckPropertyInfo where
type AttrAllowedOps DOMHTMLElementSpellcheckPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementSpellcheckPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMHTMLElementSpellcheckPropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementSpellcheckPropertyInfo = Bool
type AttrLabel DOMHTMLElementSpellcheckPropertyInfo = "DOMHTMLElement::spellcheck"
attrGet _ = getDOMHTMLElementSpellcheck
attrSet _ = setDOMHTMLElementSpellcheck
attrConstruct _ = constructDOMHTMLElementSpellcheck
getDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> m Int64
getDOMHTMLElementTabIndex obj = liftIO $ getObjectPropertyInt64 obj "tab-index"
setDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> Int64 -> m ()
setDOMHTMLElementTabIndex obj val = liftIO $ setObjectPropertyInt64 obj "tab-index" val
constructDOMHTMLElementTabIndex :: Int64 -> IO ([Char], GValue)
constructDOMHTMLElementTabIndex val = constructObjectPropertyInt64 "tab-index" val
data DOMHTMLElementTabIndexPropertyInfo
instance AttrInfo DOMHTMLElementTabIndexPropertyInfo where
type AttrAllowedOps DOMHTMLElementTabIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementTabIndexPropertyInfo = (~) Int64
type AttrBaseTypeConstraint DOMHTMLElementTabIndexPropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementTabIndexPropertyInfo = Int64
type AttrLabel DOMHTMLElementTabIndexPropertyInfo = "DOMHTMLElement::tab-index"
attrGet _ = getDOMHTMLElementTabIndex
attrSet _ = setDOMHTMLElementTabIndex
attrConstruct _ = constructDOMHTMLElementTabIndex
getDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text
getDOMHTMLElementTitle obj = liftIO $ getObjectPropertyString obj "title"
setDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()
setDOMHTMLElementTitle obj val = liftIO $ setObjectPropertyString obj "title" val
constructDOMHTMLElementTitle :: T.Text -> IO ([Char], GValue)
constructDOMHTMLElementTitle val = constructObjectPropertyString "title" val
data DOMHTMLElementTitlePropertyInfo
instance AttrInfo DOMHTMLElementTitlePropertyInfo where
type AttrAllowedOps DOMHTMLElementTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementTitlePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLElementTitlePropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementTitlePropertyInfo = T.Text
type AttrLabel DOMHTMLElementTitlePropertyInfo = "DOMHTMLElement::title"
attrGet _ = getDOMHTMLElementTitle
attrSet _ = setDOMHTMLElementTitle
attrConstruct _ = constructDOMHTMLElementTitle
getDOMHTMLElementTranslate :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool
getDOMHTMLElementTranslate obj = liftIO $ getObjectPropertyBool obj "translate"
setDOMHTMLElementTranslate :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m ()
setDOMHTMLElementTranslate obj val = liftIO $ setObjectPropertyBool obj "translate" val
constructDOMHTMLElementTranslate :: Bool -> IO ([Char], GValue)
constructDOMHTMLElementTranslate val = constructObjectPropertyBool "translate" val
data DOMHTMLElementTranslatePropertyInfo
instance AttrInfo DOMHTMLElementTranslatePropertyInfo where
type AttrAllowedOps DOMHTMLElementTranslatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementTranslatePropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMHTMLElementTranslatePropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementTranslatePropertyInfo = Bool
type AttrLabel DOMHTMLElementTranslatePropertyInfo = "DOMHTMLElement::translate"
attrGet _ = getDOMHTMLElementTranslate
attrSet _ = setDOMHTMLElementTranslate
attrConstruct _ = constructDOMHTMLElementTranslate
getDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text
getDOMHTMLElementWebkitdropzone obj = liftIO $ getObjectPropertyString obj "webkitdropzone"
setDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m ()
setDOMHTMLElementWebkitdropzone obj val = liftIO $ setObjectPropertyString obj "webkitdropzone" val
constructDOMHTMLElementWebkitdropzone :: T.Text -> IO ([Char], GValue)
constructDOMHTMLElementWebkitdropzone val = constructObjectPropertyString "webkitdropzone" val
data DOMHTMLElementWebkitdropzonePropertyInfo
instance AttrInfo DOMHTMLElementWebkitdropzonePropertyInfo where
type AttrAllowedOps DOMHTMLElementWebkitdropzonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = DOMHTMLElementK
type AttrGetType DOMHTMLElementWebkitdropzonePropertyInfo = T.Text
type AttrLabel DOMHTMLElementWebkitdropzonePropertyInfo = "DOMHTMLElement::webkitdropzone"
attrGet _ = getDOMHTMLElementWebkitdropzone
attrSet _ = setDOMHTMLElementWebkitdropzone
attrConstruct _ = constructDOMHTMLElementWebkitdropzone
type instance AttributeList DOMHTMLElement = DOMHTMLElementAttributeList
type DOMHTMLElementAttributeList = ('[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("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), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("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), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMHTMLElement = DOMHTMLElementSignalList
type DOMHTMLElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_html_element_click" webkit_dom_html_element_click ::
Ptr DOMHTMLElement ->
IO ()
dOMHTMLElementClick ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m ()
dOMHTMLElementClick _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_element_click _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_element_get_access_key" webkit_dom_html_element_get_access_key ::
Ptr DOMHTMLElement ->
IO CString
dOMHTMLElementGetAccessKey ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m T.Text
dOMHTMLElementGetAccessKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_access_key _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_access_key" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_children" webkit_dom_html_element_get_children ::
Ptr DOMHTMLElement ->
IO (Ptr DOMHTMLCollection)
dOMHTMLElementGetChildren ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m DOMHTMLCollection
dOMHTMLElementGetChildren _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_children _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_children" result
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_class_list" webkit_dom_html_element_get_class_list ::
Ptr DOMHTMLElement ->
IO (Ptr DOMDOMTokenList)
dOMHTMLElementGetClassList ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m DOMDOMTokenList
dOMHTMLElementGetClassList _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_class_list _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_class_list" result
result' <- (newObject DOMDOMTokenList) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_class_name" webkit_dom_html_element_get_class_name ::
Ptr DOMHTMLElement ->
IO CString
dOMHTMLElementGetClassName ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m T.Text
dOMHTMLElementGetClassName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_class_name _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_class_name" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_content_editable" webkit_dom_html_element_get_content_editable ::
Ptr DOMHTMLElement ->
IO CString
dOMHTMLElementGetContentEditable ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m T.Text
dOMHTMLElementGetContentEditable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_content_editable _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_content_editable" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_dir" webkit_dom_html_element_get_dir ::
Ptr DOMHTMLElement ->
IO CString
dOMHTMLElementGetDir ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m T.Text
dOMHTMLElementGetDir _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_dir _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_dir" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_draggable" webkit_dom_html_element_get_draggable ::
Ptr DOMHTMLElement ->
IO CInt
dOMHTMLElementGetDraggable ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m Bool
dOMHTMLElementGetDraggable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_draggable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_hidden" webkit_dom_html_element_get_hidden ::
Ptr DOMHTMLElement ->
IO CInt
dOMHTMLElementGetHidden ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m Bool
dOMHTMLElementGetHidden _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_hidden _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_id" webkit_dom_html_element_get_id ::
Ptr DOMHTMLElement ->
IO CString
dOMHTMLElementGetId ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m T.Text
dOMHTMLElementGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_id _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_id" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_inner_html" webkit_dom_html_element_get_inner_html ::
Ptr DOMHTMLElement ->
IO CString
dOMHTMLElementGetInnerHtml ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m T.Text
dOMHTMLElementGetInnerHtml _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_inner_html _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_inner_html" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_inner_text" webkit_dom_html_element_get_inner_text ::
Ptr DOMHTMLElement ->
IO CString
dOMHTMLElementGetInnerText ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m T.Text
dOMHTMLElementGetInnerText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_inner_text _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_inner_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_is_content_editable" webkit_dom_html_element_get_is_content_editable ::
Ptr DOMHTMLElement ->
IO CInt
dOMHTMLElementGetIsContentEditable ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m Bool
dOMHTMLElementGetIsContentEditable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_is_content_editable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_item_id" webkit_dom_html_element_get_item_id ::
Ptr DOMHTMLElement ->
IO CString
dOMHTMLElementGetItemId ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m T.Text
dOMHTMLElementGetItemId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_item_id _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_item_id" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_item_prop" webkit_dom_html_element_get_item_prop ::
Ptr DOMHTMLElement ->
IO (Ptr DOMDOMSettableTokenList)
dOMHTMLElementGetItemProp ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m DOMDOMSettableTokenList
dOMHTMLElementGetItemProp _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_item_prop _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_item_prop" result
result' <- (newObject DOMDOMSettableTokenList) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_item_ref" webkit_dom_html_element_get_item_ref ::
Ptr DOMHTMLElement ->
IO (Ptr DOMDOMSettableTokenList)
dOMHTMLElementGetItemRef ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m DOMDOMSettableTokenList
dOMHTMLElementGetItemRef _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_item_ref _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_item_ref" result
result' <- (newObject DOMDOMSettableTokenList) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_item_scope" webkit_dom_html_element_get_item_scope ::
Ptr DOMHTMLElement ->
IO CInt
dOMHTMLElementGetItemScope ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m Bool
dOMHTMLElementGetItemScope _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_item_scope _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_item_type" webkit_dom_html_element_get_item_type ::
Ptr DOMHTMLElement ->
IO ()
dOMHTMLElementGetItemType ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m ()
dOMHTMLElementGetItemType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_element_get_item_type _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_element_get_lang" webkit_dom_html_element_get_lang ::
Ptr DOMHTMLElement ->
IO CString
dOMHTMLElementGetLang ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m T.Text
dOMHTMLElementGetLang _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_lang _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_lang" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_outer_html" webkit_dom_html_element_get_outer_html ::
Ptr DOMHTMLElement ->
IO CString
dOMHTMLElementGetOuterHtml ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m T.Text
dOMHTMLElementGetOuterHtml _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_outer_html _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_outer_html" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_outer_text" webkit_dom_html_element_get_outer_text ::
Ptr DOMHTMLElement ->
IO CString
dOMHTMLElementGetOuterText ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m T.Text
dOMHTMLElementGetOuterText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_outer_text _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_outer_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_spellcheck" webkit_dom_html_element_get_spellcheck ::
Ptr DOMHTMLElement ->
IO CInt
dOMHTMLElementGetSpellcheck ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m Bool
dOMHTMLElementGetSpellcheck _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_spellcheck _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_tab_index" webkit_dom_html_element_get_tab_index ::
Ptr DOMHTMLElement ->
IO Int64
dOMHTMLElementGetTabIndex ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m Int64
dOMHTMLElementGetTabIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_tab_index _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_element_get_title" webkit_dom_html_element_get_title ::
Ptr DOMHTMLElement ->
IO CString
dOMHTMLElementGetTitle ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m T.Text
dOMHTMLElementGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_title _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_title" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_translate" webkit_dom_html_element_get_translate ::
Ptr DOMHTMLElement ->
IO CInt
dOMHTMLElementGetTranslate ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m Bool
dOMHTMLElementGetTranslate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_translate _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_get_webkitdropzone" webkit_dom_html_element_get_webkitdropzone ::
Ptr DOMHTMLElement ->
IO CString
dOMHTMLElementGetWebkitdropzone ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
m T.Text
dOMHTMLElementGetWebkitdropzone _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_element_get_webkitdropzone _obj'
checkUnexpectedReturnNULL "webkit_dom_html_element_get_webkitdropzone" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_element_insert_adjacent_element" webkit_dom_html_element_insert_adjacent_element ::
Ptr DOMHTMLElement ->
CString ->
Ptr DOMElement ->
Ptr (Ptr GError) ->
IO (Ptr DOMElement)
dOMHTMLElementInsertAdjacentElement ::
(MonadIO m, DOMHTMLElementK a, DOMElementK b) =>
a ->
T.Text ->
b ->
m DOMElement
dOMHTMLElementInsertAdjacentElement _obj where_ element = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
where_' <- textToCString where_
let element' = unsafeManagedPtrCastPtr element
onException (do
result <- propagateGError $ webkit_dom_html_element_insert_adjacent_element _obj' where_' element'
checkUnexpectedReturnNULL "webkit_dom_html_element_insert_adjacent_element" result
result' <- (newObject DOMElement) result
touchManagedPtr _obj
touchManagedPtr element
freeMem where_'
return result'
) (do
freeMem where_'
)
foreign import ccall "webkit_dom_html_element_insert_adjacent_html" webkit_dom_html_element_insert_adjacent_html ::
Ptr DOMHTMLElement ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMHTMLElementInsertAdjacentHtml ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
T.Text ->
m ()
dOMHTMLElementInsertAdjacentHtml _obj where_ html = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
where_' <- textToCString where_
html' <- textToCString html
onException (do
propagateGError $ webkit_dom_html_element_insert_adjacent_html _obj' where_' html'
touchManagedPtr _obj
freeMem where_'
freeMem html'
return ()
) (do
freeMem where_'
freeMem html'
)
foreign import ccall "webkit_dom_html_element_insert_adjacent_text" webkit_dom_html_element_insert_adjacent_text ::
Ptr DOMHTMLElement ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMHTMLElementInsertAdjacentText ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
T.Text ->
m ()
dOMHTMLElementInsertAdjacentText _obj where_ text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
where_' <- textToCString where_
text' <- textToCString text
onException (do
propagateGError $ webkit_dom_html_element_insert_adjacent_text _obj' where_' text'
touchManagedPtr _obj
freeMem where_'
freeMem text'
return ()
) (do
freeMem where_'
freeMem text'
)
foreign import ccall "webkit_dom_html_element_set_access_key" webkit_dom_html_element_set_access_key ::
Ptr DOMHTMLElement ->
CString ->
IO ()
dOMHTMLElementSetAccessKey ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLElementSetAccessKey _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_access_key _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_element_set_class_name" webkit_dom_html_element_set_class_name ::
Ptr DOMHTMLElement ->
CString ->
IO ()
dOMHTMLElementSetClassName ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLElementSetClassName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_class_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_element_set_content_editable" webkit_dom_html_element_set_content_editable ::
Ptr DOMHTMLElement ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMHTMLElementSetContentEditable ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLElementSetContentEditable _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_html_element_set_content_editable _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
foreign import ccall "webkit_dom_html_element_set_dir" webkit_dom_html_element_set_dir ::
Ptr DOMHTMLElement ->
CString ->
IO ()
dOMHTMLElementSetDir ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLElementSetDir _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_dir _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_element_set_draggable" webkit_dom_html_element_set_draggable ::
Ptr DOMHTMLElement ->
CInt ->
IO ()
dOMHTMLElementSetDraggable ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
Bool ->
m ()
dOMHTMLElementSetDraggable _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_element_set_draggable _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_element_set_hidden" webkit_dom_html_element_set_hidden ::
Ptr DOMHTMLElement ->
CInt ->
IO ()
dOMHTMLElementSetHidden ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
Bool ->
m ()
dOMHTMLElementSetHidden _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_element_set_hidden _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_element_set_id" webkit_dom_html_element_set_id ::
Ptr DOMHTMLElement ->
CString ->
IO ()
dOMHTMLElementSetId ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLElementSetId _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_id _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_element_set_inner_html" webkit_dom_html_element_set_inner_html ::
Ptr DOMHTMLElement ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMHTMLElementSetInnerHtml ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLElementSetInnerHtml _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_html_element_set_inner_html _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
foreign import ccall "webkit_dom_html_element_set_inner_text" webkit_dom_html_element_set_inner_text ::
Ptr DOMHTMLElement ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMHTMLElementSetInnerText ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLElementSetInnerText _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_html_element_set_inner_text _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
foreign import ccall "webkit_dom_html_element_set_item_id" webkit_dom_html_element_set_item_id ::
Ptr DOMHTMLElement ->
CString ->
IO ()
dOMHTMLElementSetItemId ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLElementSetItemId _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_item_id _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_element_set_item_scope" webkit_dom_html_element_set_item_scope ::
Ptr DOMHTMLElement ->
CInt ->
IO ()
dOMHTMLElementSetItemScope ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
Bool ->
m ()
dOMHTMLElementSetItemScope _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_element_set_item_scope _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_element_set_lang" webkit_dom_html_element_set_lang ::
Ptr DOMHTMLElement ->
CString ->
IO ()
dOMHTMLElementSetLang ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLElementSetLang _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_lang _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_element_set_outer_html" webkit_dom_html_element_set_outer_html ::
Ptr DOMHTMLElement ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMHTMLElementSetOuterHtml ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLElementSetOuterHtml _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_html_element_set_outer_html _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
foreign import ccall "webkit_dom_html_element_set_outer_text" webkit_dom_html_element_set_outer_text ::
Ptr DOMHTMLElement ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMHTMLElementSetOuterText ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLElementSetOuterText _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_html_element_set_outer_text _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
foreign import ccall "webkit_dom_html_element_set_spellcheck" webkit_dom_html_element_set_spellcheck ::
Ptr DOMHTMLElement ->
CInt ->
IO ()
dOMHTMLElementSetSpellcheck ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
Bool ->
m ()
dOMHTMLElementSetSpellcheck _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_element_set_spellcheck _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_element_set_tab_index" webkit_dom_html_element_set_tab_index ::
Ptr DOMHTMLElement ->
Int64 ->
IO ()
dOMHTMLElementSetTabIndex ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
Int64 ->
m ()
dOMHTMLElementSetTabIndex _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_element_set_tab_index _obj' value
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_element_set_title" webkit_dom_html_element_set_title ::
Ptr DOMHTMLElement ->
CString ->
IO ()
dOMHTMLElementSetTitle ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLElementSetTitle _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_title _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_element_set_translate" webkit_dom_html_element_set_translate ::
Ptr DOMHTMLElement ->
CInt ->
IO ()
dOMHTMLElementSetTranslate ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
Bool ->
m ()
dOMHTMLElementSetTranslate _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_element_set_translate _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_element_set_webkitdropzone" webkit_dom_html_element_set_webkitdropzone ::
Ptr DOMHTMLElement ->
CString ->
IO ()
dOMHTMLElementSetWebkitdropzone ::
(MonadIO m, DOMHTMLElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLElementSetWebkitdropzone _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_element_set_webkitdropzone _obj' value'
touchManagedPtr _obj
freeMem value'
return ()