#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2WebExtension.Objects.DOMNode
(
DOMNode(..) ,
IsDOMNode ,
toDOMNode ,
noDOMNode ,
#if ENABLE_OVERLOADING
DOMNodeAppendChildMethodInfo ,
#endif
dOMNodeAppendChild ,
#if ENABLE_OVERLOADING
DOMNodeCloneNodeWithErrorMethodInfo ,
#endif
dOMNodeCloneNodeWithError ,
#if ENABLE_OVERLOADING
DOMNodeCompareDocumentPositionMethodInfo,
#endif
dOMNodeCompareDocumentPosition ,
#if ENABLE_OVERLOADING
DOMNodeContainsMethodInfo ,
#endif
dOMNodeContains ,
dOMNodeForJsValue ,
#if ENABLE_OVERLOADING
DOMNodeGetBaseUriMethodInfo ,
#endif
dOMNodeGetBaseUri ,
#if ENABLE_OVERLOADING
DOMNodeGetChildNodesMethodInfo ,
#endif
dOMNodeGetChildNodes ,
#if ENABLE_OVERLOADING
DOMNodeGetFirstChildMethodInfo ,
#endif
dOMNodeGetFirstChild ,
#if ENABLE_OVERLOADING
DOMNodeGetLastChildMethodInfo ,
#endif
dOMNodeGetLastChild ,
#if ENABLE_OVERLOADING
DOMNodeGetLocalNameMethodInfo ,
#endif
dOMNodeGetLocalName ,
#if ENABLE_OVERLOADING
DOMNodeGetNamespaceUriMethodInfo ,
#endif
dOMNodeGetNamespaceUri ,
#if ENABLE_OVERLOADING
DOMNodeGetNextSiblingMethodInfo ,
#endif
dOMNodeGetNextSibling ,
#if ENABLE_OVERLOADING
DOMNodeGetNodeNameMethodInfo ,
#endif
dOMNodeGetNodeName ,
#if ENABLE_OVERLOADING
DOMNodeGetNodeTypeMethodInfo ,
#endif
dOMNodeGetNodeType ,
#if ENABLE_OVERLOADING
DOMNodeGetNodeValueMethodInfo ,
#endif
dOMNodeGetNodeValue ,
#if ENABLE_OVERLOADING
DOMNodeGetOwnerDocumentMethodInfo ,
#endif
dOMNodeGetOwnerDocument ,
#if ENABLE_OVERLOADING
DOMNodeGetParentElementMethodInfo ,
#endif
dOMNodeGetParentElement ,
#if ENABLE_OVERLOADING
DOMNodeGetParentNodeMethodInfo ,
#endif
dOMNodeGetParentNode ,
#if ENABLE_OVERLOADING
DOMNodeGetPrefixMethodInfo ,
#endif
dOMNodeGetPrefix ,
#if ENABLE_OVERLOADING
DOMNodeGetPreviousSiblingMethodInfo ,
#endif
dOMNodeGetPreviousSibling ,
#if ENABLE_OVERLOADING
DOMNodeGetTextContentMethodInfo ,
#endif
dOMNodeGetTextContent ,
#if ENABLE_OVERLOADING
DOMNodeHasChildNodesMethodInfo ,
#endif
dOMNodeHasChildNodes ,
#if ENABLE_OVERLOADING
DOMNodeInsertBeforeMethodInfo ,
#endif
dOMNodeInsertBefore ,
#if ENABLE_OVERLOADING
DOMNodeIsDefaultNamespaceMethodInfo ,
#endif
dOMNodeIsDefaultNamespace ,
#if ENABLE_OVERLOADING
DOMNodeIsEqualNodeMethodInfo ,
#endif
dOMNodeIsEqualNode ,
#if ENABLE_OVERLOADING
DOMNodeIsSameNodeMethodInfo ,
#endif
dOMNodeIsSameNode ,
#if ENABLE_OVERLOADING
DOMNodeIsSupportedMethodInfo ,
#endif
dOMNodeIsSupported ,
#if ENABLE_OVERLOADING
DOMNodeLookupNamespaceUriMethodInfo ,
#endif
dOMNodeLookupNamespaceUri ,
#if ENABLE_OVERLOADING
DOMNodeLookupPrefixMethodInfo ,
#endif
dOMNodeLookupPrefix ,
#if ENABLE_OVERLOADING
DOMNodeNormalizeMethodInfo ,
#endif
dOMNodeNormalize ,
#if ENABLE_OVERLOADING
DOMNodeRemoveChildMethodInfo ,
#endif
dOMNodeRemoveChild ,
#if ENABLE_OVERLOADING
DOMNodeReplaceChildMethodInfo ,
#endif
dOMNodeReplaceChild ,
#if ENABLE_OVERLOADING
DOMNodeSetNodeValueMethodInfo ,
#endif
dOMNodeSetNodeValue ,
#if ENABLE_OVERLOADING
DOMNodeSetPrefixMethodInfo ,
#endif
dOMNodeSetPrefix ,
#if ENABLE_OVERLOADING
DOMNodeSetTextContentMethodInfo ,
#endif
dOMNodeSetTextContent ,
#if ENABLE_OVERLOADING
DOMNodeBaseUriPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMNodeBaseUri ,
#endif
getDOMNodeBaseUri ,
#if ENABLE_OVERLOADING
DOMNodeChildNodesPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMNodeChildNodes ,
#endif
getDOMNodeChildNodes ,
#if ENABLE_OVERLOADING
DOMNodeFirstChildPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMNodeFirstChild ,
#endif
getDOMNodeFirstChild ,
#if ENABLE_OVERLOADING
DOMNodeLastChildPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMNodeLastChild ,
#endif
getDOMNodeLastChild ,
#if ENABLE_OVERLOADING
DOMNodeNextSiblingPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMNodeNextSibling ,
#endif
getDOMNodeNextSibling ,
#if ENABLE_OVERLOADING
DOMNodeNodeNamePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMNodeNodeName ,
#endif
getDOMNodeNodeName ,
#if ENABLE_OVERLOADING
DOMNodeNodeTypePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMNodeNodeType ,
#endif
getDOMNodeNodeType ,
#if ENABLE_OVERLOADING
DOMNodeNodeValuePropertyInfo ,
#endif
clearDOMNodeNodeValue ,
constructDOMNodeNodeValue ,
#if ENABLE_OVERLOADING
dOMNodeNodeValue ,
#endif
getDOMNodeNodeValue ,
setDOMNodeNodeValue ,
#if ENABLE_OVERLOADING
DOMNodeOwnerDocumentPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMNodeOwnerDocument ,
#endif
getDOMNodeOwnerDocument ,
#if ENABLE_OVERLOADING
DOMNodeParentElementPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMNodeParentElement ,
#endif
getDOMNodeParentElement ,
#if ENABLE_OVERLOADING
DOMNodeParentNodePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMNodeParentNode ,
#endif
getDOMNodeParentNode ,
#if ENABLE_OVERLOADING
DOMNodePreviousSiblingPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMNodePreviousSibling ,
#endif
getDOMNodePreviousSibling ,
#if ENABLE_OVERLOADING
DOMNodeTextContentPropertyInfo ,
#endif
clearDOMNodeTextContent ,
constructDOMNodeTextContent ,
#if ENABLE_OVERLOADING
dOMNodeTextContent ,
#endif
getDOMNodeTextContent ,
setDOMNodeTextContent ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.JavaScriptCore.Objects.Value as JavaScriptCore.Value
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Interfaces.DOMEventTarget as WebKit2WebExtension.DOMEventTarget
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDocument as WebKit2WebExtension.DOMDocument
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMElement as WebKit2WebExtension.DOMElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNodeList as WebKit2WebExtension.DOMNodeList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMNode = DOMNode (ManagedPtr DOMNode)
foreign import ccall "webkit_dom_node_get_type"
c_webkit_dom_node_get_type :: IO GType
instance GObject DOMNode where
gobjectType = c_webkit_dom_node_get_type
class (GObject o, O.IsDescendantOf DOMNode o) => IsDOMNode o
instance (GObject o, O.IsDescendantOf DOMNode o) => IsDOMNode o
instance O.HasParentTypes DOMNode
type instance O.ParentTypes DOMNode = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object, WebKit2WebExtension.DOMEventTarget.DOMEventTarget]
toDOMNode :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
toDOMNode = liftIO . unsafeCastTo DOMNode
noDOMNode :: Maybe DOMNode
noDOMNode = Nothing
#if ENABLE_OVERLOADING
type family ResolveDOMNodeMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMNodeMethod "addEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetAddEventListenerMethodInfo
ResolveDOMNodeMethod "appendChild" o = DOMNodeAppendChildMethodInfo
ResolveDOMNodeMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMNodeMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMNodeMethod "cloneNodeWithError" o = DOMNodeCloneNodeWithErrorMethodInfo
ResolveDOMNodeMethod "compareDocumentPosition" o = DOMNodeCompareDocumentPositionMethodInfo
ResolveDOMNodeMethod "contains" o = DOMNodeContainsMethodInfo
ResolveDOMNodeMethod "dispatchEvent" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetDispatchEventMethodInfo
ResolveDOMNodeMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMNodeMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMNodeMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMNodeMethod "hasChildNodes" o = DOMNodeHasChildNodesMethodInfo
ResolveDOMNodeMethod "insertBefore" o = DOMNodeInsertBeforeMethodInfo
ResolveDOMNodeMethod "isDefaultNamespace" o = DOMNodeIsDefaultNamespaceMethodInfo
ResolveDOMNodeMethod "isEqualNode" o = DOMNodeIsEqualNodeMethodInfo
ResolveDOMNodeMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMNodeMethod "isSameNode" o = DOMNodeIsSameNodeMethodInfo
ResolveDOMNodeMethod "isSupported" o = DOMNodeIsSupportedMethodInfo
ResolveDOMNodeMethod "lookupNamespaceUri" o = DOMNodeLookupNamespaceUriMethodInfo
ResolveDOMNodeMethod "lookupPrefix" o = DOMNodeLookupPrefixMethodInfo
ResolveDOMNodeMethod "normalize" o = DOMNodeNormalizeMethodInfo
ResolveDOMNodeMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMNodeMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMNodeMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMNodeMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMNodeMethod "removeChild" o = DOMNodeRemoveChildMethodInfo
ResolveDOMNodeMethod "removeEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetRemoveEventListenerMethodInfo
ResolveDOMNodeMethod "replaceChild" o = DOMNodeReplaceChildMethodInfo
ResolveDOMNodeMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMNodeMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMNodeMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMNodeMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMNodeMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMNodeMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMNodeMethod "getBaseUri" o = DOMNodeGetBaseUriMethodInfo
ResolveDOMNodeMethod "getChildNodes" o = DOMNodeGetChildNodesMethodInfo
ResolveDOMNodeMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMNodeMethod "getFirstChild" o = DOMNodeGetFirstChildMethodInfo
ResolveDOMNodeMethod "getLastChild" o = DOMNodeGetLastChildMethodInfo
ResolveDOMNodeMethod "getLocalName" o = DOMNodeGetLocalNameMethodInfo
ResolveDOMNodeMethod "getNamespaceUri" o = DOMNodeGetNamespaceUriMethodInfo
ResolveDOMNodeMethod "getNextSibling" o = DOMNodeGetNextSiblingMethodInfo
ResolveDOMNodeMethod "getNodeName" o = DOMNodeGetNodeNameMethodInfo
ResolveDOMNodeMethod "getNodeType" o = DOMNodeGetNodeTypeMethodInfo
ResolveDOMNodeMethod "getNodeValue" o = DOMNodeGetNodeValueMethodInfo
ResolveDOMNodeMethod "getOwnerDocument" o = DOMNodeGetOwnerDocumentMethodInfo
ResolveDOMNodeMethod "getParentElement" o = DOMNodeGetParentElementMethodInfo
ResolveDOMNodeMethod "getParentNode" o = DOMNodeGetParentNodeMethodInfo
ResolveDOMNodeMethod "getPrefix" o = DOMNodeGetPrefixMethodInfo
ResolveDOMNodeMethod "getPreviousSibling" o = DOMNodeGetPreviousSiblingMethodInfo
ResolveDOMNodeMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMNodeMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMNodeMethod "getTextContent" o = DOMNodeGetTextContentMethodInfo
ResolveDOMNodeMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMNodeMethod "setNodeValue" o = DOMNodeSetNodeValueMethodInfo
ResolveDOMNodeMethod "setPrefix" o = DOMNodeSetPrefixMethodInfo
ResolveDOMNodeMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMNodeMethod "setTextContent" o = DOMNodeSetTextContentMethodInfo
ResolveDOMNodeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMNodeMethod t DOMNode, O.MethodInfo info DOMNode p) => OL.IsLabel t (DOMNode -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
getDOMNodeBaseUri :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeBaseUri obj = liftIO $ B.Properties.getObjectPropertyString obj "base-uri"
#if ENABLE_OVERLOADING
data DOMNodeBaseUriPropertyInfo
instance AttrInfo DOMNodeBaseUriPropertyInfo where
type AttrAllowedOps DOMNodeBaseUriPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeBaseUriPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeBaseUriPropertyInfo = IsDOMNode
type AttrGetType DOMNodeBaseUriPropertyInfo = (Maybe T.Text)
type AttrLabel DOMNodeBaseUriPropertyInfo = "base-uri"
type AttrOrigin DOMNodeBaseUriPropertyInfo = DOMNode
attrGet _ = getDOMNodeBaseUri
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMNodeChildNodes :: (MonadIO m, IsDOMNode o) => o -> m (Maybe WebKit2WebExtension.DOMNodeList.DOMNodeList)
getDOMNodeChildNodes obj = liftIO $ B.Properties.getObjectPropertyObject obj "child-nodes" WebKit2WebExtension.DOMNodeList.DOMNodeList
#if ENABLE_OVERLOADING
data DOMNodeChildNodesPropertyInfo
instance AttrInfo DOMNodeChildNodesPropertyInfo where
type AttrAllowedOps DOMNodeChildNodesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeChildNodesPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeChildNodesPropertyInfo = IsDOMNode
type AttrGetType DOMNodeChildNodesPropertyInfo = (Maybe WebKit2WebExtension.DOMNodeList.DOMNodeList)
type AttrLabel DOMNodeChildNodesPropertyInfo = "child-nodes"
type AttrOrigin DOMNodeChildNodesPropertyInfo = DOMNode
attrGet _ = getDOMNodeChildNodes
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMNodeFirstChild :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeFirstChild obj = liftIO $ checkUnexpectedNothing "getDOMNodeFirstChild" $ B.Properties.getObjectPropertyObject obj "first-child" DOMNode
#if ENABLE_OVERLOADING
data DOMNodeFirstChildPropertyInfo
instance AttrInfo DOMNodeFirstChildPropertyInfo where
type AttrAllowedOps DOMNodeFirstChildPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeFirstChildPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeFirstChildPropertyInfo = IsDOMNode
type AttrGetType DOMNodeFirstChildPropertyInfo = DOMNode
type AttrLabel DOMNodeFirstChildPropertyInfo = "first-child"
type AttrOrigin DOMNodeFirstChildPropertyInfo = DOMNode
attrGet _ = getDOMNodeFirstChild
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMNodeLastChild :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeLastChild obj = liftIO $ checkUnexpectedNothing "getDOMNodeLastChild" $ B.Properties.getObjectPropertyObject obj "last-child" DOMNode
#if ENABLE_OVERLOADING
data DOMNodeLastChildPropertyInfo
instance AttrInfo DOMNodeLastChildPropertyInfo where
type AttrAllowedOps DOMNodeLastChildPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeLastChildPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeLastChildPropertyInfo = IsDOMNode
type AttrGetType DOMNodeLastChildPropertyInfo = DOMNode
type AttrLabel DOMNodeLastChildPropertyInfo = "last-child"
type AttrOrigin DOMNodeLastChildPropertyInfo = DOMNode
attrGet _ = getDOMNodeLastChild
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMNodeNextSibling :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeNextSibling obj = liftIO $ checkUnexpectedNothing "getDOMNodeNextSibling" $ B.Properties.getObjectPropertyObject obj "next-sibling" DOMNode
#if ENABLE_OVERLOADING
data DOMNodeNextSiblingPropertyInfo
instance AttrInfo DOMNodeNextSiblingPropertyInfo where
type AttrAllowedOps DOMNodeNextSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeNextSiblingPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeNextSiblingPropertyInfo = IsDOMNode
type AttrGetType DOMNodeNextSiblingPropertyInfo = DOMNode
type AttrLabel DOMNodeNextSiblingPropertyInfo = "next-sibling"
type AttrOrigin DOMNodeNextSiblingPropertyInfo = DOMNode
attrGet _ = getDOMNodeNextSibling
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMNodeNodeName :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeNodeName obj = liftIO $ B.Properties.getObjectPropertyString obj "node-name"
#if ENABLE_OVERLOADING
data DOMNodeNodeNamePropertyInfo
instance AttrInfo DOMNodeNodeNamePropertyInfo where
type AttrAllowedOps DOMNodeNodeNamePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeNodeNamePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeNodeNamePropertyInfo = IsDOMNode
type AttrGetType DOMNodeNodeNamePropertyInfo = (Maybe T.Text)
type AttrLabel DOMNodeNodeNamePropertyInfo = "node-name"
type AttrOrigin DOMNodeNodeNamePropertyInfo = DOMNode
attrGet _ = getDOMNodeNodeName
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMNodeNodeType :: (MonadIO m, IsDOMNode o) => o -> m Word32
getDOMNodeNodeType obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "node-type"
#if ENABLE_OVERLOADING
data DOMNodeNodeTypePropertyInfo
instance AttrInfo DOMNodeNodeTypePropertyInfo where
type AttrAllowedOps DOMNodeNodeTypePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMNodeNodeTypePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeNodeTypePropertyInfo = IsDOMNode
type AttrGetType DOMNodeNodeTypePropertyInfo = Word32
type AttrLabel DOMNodeNodeTypePropertyInfo = "node-type"
type AttrOrigin DOMNodeNodeTypePropertyInfo = DOMNode
attrGet _ = getDOMNodeNodeType
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMNodeNodeValue :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeNodeValue obj = liftIO $ B.Properties.getObjectPropertyString obj "node-value"
setDOMNodeNodeValue :: (MonadIO m, IsDOMNode o) => o -> T.Text -> m ()
setDOMNodeNodeValue obj val = liftIO $ B.Properties.setObjectPropertyString obj "node-value" (Just val)
constructDOMNodeNodeValue :: (IsDOMNode o) => T.Text -> IO (GValueConstruct o)
constructDOMNodeNodeValue val = B.Properties.constructObjectPropertyString "node-value" (Just val)
clearDOMNodeNodeValue :: (MonadIO m, IsDOMNode o) => o -> m ()
clearDOMNodeNodeValue obj = liftIO $ B.Properties.setObjectPropertyString obj "node-value" (Nothing :: Maybe T.Text)
#if ENABLE_OVERLOADING
data DOMNodeNodeValuePropertyInfo
instance AttrInfo DOMNodeNodeValuePropertyInfo where
type AttrAllowedOps DOMNodeNodeValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeNodeValuePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMNodeNodeValuePropertyInfo = IsDOMNode
type AttrGetType DOMNodeNodeValuePropertyInfo = (Maybe T.Text)
type AttrLabel DOMNodeNodeValuePropertyInfo = "node-value"
type AttrOrigin DOMNodeNodeValuePropertyInfo = DOMNode
attrGet _ = getDOMNodeNodeValue
attrSet _ = setDOMNodeNodeValue
attrConstruct _ = constructDOMNodeNodeValue
attrClear _ = clearDOMNodeNodeValue
#endif
getDOMNodeOwnerDocument :: (MonadIO m, IsDOMNode o) => o -> m WebKit2WebExtension.DOMDocument.DOMDocument
getDOMNodeOwnerDocument obj = liftIO $ checkUnexpectedNothing "getDOMNodeOwnerDocument" $ B.Properties.getObjectPropertyObject obj "owner-document" WebKit2WebExtension.DOMDocument.DOMDocument
#if ENABLE_OVERLOADING
data DOMNodeOwnerDocumentPropertyInfo
instance AttrInfo DOMNodeOwnerDocumentPropertyInfo where
type AttrAllowedOps DOMNodeOwnerDocumentPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeOwnerDocumentPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeOwnerDocumentPropertyInfo = IsDOMNode
type AttrGetType DOMNodeOwnerDocumentPropertyInfo = WebKit2WebExtension.DOMDocument.DOMDocument
type AttrLabel DOMNodeOwnerDocumentPropertyInfo = "owner-document"
type AttrOrigin DOMNodeOwnerDocumentPropertyInfo = DOMNode
attrGet _ = getDOMNodeOwnerDocument
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMNodeParentElement :: (MonadIO m, IsDOMNode o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMNodeParentElement obj = liftIO $ checkUnexpectedNothing "getDOMNodeParentElement" $ B.Properties.getObjectPropertyObject obj "parent-element" WebKit2WebExtension.DOMElement.DOMElement
#if ENABLE_OVERLOADING
data DOMNodeParentElementPropertyInfo
instance AttrInfo DOMNodeParentElementPropertyInfo where
type AttrAllowedOps DOMNodeParentElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeParentElementPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeParentElementPropertyInfo = IsDOMNode
type AttrGetType DOMNodeParentElementPropertyInfo = WebKit2WebExtension.DOMElement.DOMElement
type AttrLabel DOMNodeParentElementPropertyInfo = "parent-element"
type AttrOrigin DOMNodeParentElementPropertyInfo = DOMNode
attrGet _ = getDOMNodeParentElement
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMNodeParentNode :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodeParentNode obj = liftIO $ checkUnexpectedNothing "getDOMNodeParentNode" $ B.Properties.getObjectPropertyObject obj "parent-node" DOMNode
#if ENABLE_OVERLOADING
data DOMNodeParentNodePropertyInfo
instance AttrInfo DOMNodeParentNodePropertyInfo where
type AttrAllowedOps DOMNodeParentNodePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeParentNodePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodeParentNodePropertyInfo = IsDOMNode
type AttrGetType DOMNodeParentNodePropertyInfo = DOMNode
type AttrLabel DOMNodeParentNodePropertyInfo = "parent-node"
type AttrOrigin DOMNodeParentNodePropertyInfo = DOMNode
attrGet _ = getDOMNodeParentNode
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMNodePreviousSibling :: (MonadIO m, IsDOMNode o) => o -> m DOMNode
getDOMNodePreviousSibling obj = liftIO $ checkUnexpectedNothing "getDOMNodePreviousSibling" $ B.Properties.getObjectPropertyObject obj "previous-sibling" DOMNode
#if ENABLE_OVERLOADING
data DOMNodePreviousSiblingPropertyInfo
instance AttrInfo DOMNodePreviousSiblingPropertyInfo where
type AttrAllowedOps DOMNodePreviousSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodePreviousSiblingPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMNodePreviousSiblingPropertyInfo = IsDOMNode
type AttrGetType DOMNodePreviousSiblingPropertyInfo = DOMNode
type AttrLabel DOMNodePreviousSiblingPropertyInfo = "previous-sibling"
type AttrOrigin DOMNodePreviousSiblingPropertyInfo = DOMNode
attrGet _ = getDOMNodePreviousSibling
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMNodeTextContent :: (MonadIO m, IsDOMNode o) => o -> m (Maybe T.Text)
getDOMNodeTextContent obj = liftIO $ B.Properties.getObjectPropertyString obj "text-content"
setDOMNodeTextContent :: (MonadIO m, IsDOMNode o) => o -> T.Text -> m ()
setDOMNodeTextContent obj val = liftIO $ B.Properties.setObjectPropertyString obj "text-content" (Just val)
constructDOMNodeTextContent :: (IsDOMNode o) => T.Text -> IO (GValueConstruct o)
constructDOMNodeTextContent val = B.Properties.constructObjectPropertyString "text-content" (Just val)
clearDOMNodeTextContent :: (MonadIO m, IsDOMNode o) => o -> m ()
clearDOMNodeTextContent obj = liftIO $ B.Properties.setObjectPropertyString obj "text-content" (Nothing :: Maybe T.Text)
#if ENABLE_OVERLOADING
data DOMNodeTextContentPropertyInfo
instance AttrInfo DOMNodeTextContentPropertyInfo where
type AttrAllowedOps DOMNodeTextContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMNodeTextContentPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMNodeTextContentPropertyInfo = IsDOMNode
type AttrGetType DOMNodeTextContentPropertyInfo = (Maybe T.Text)
type AttrLabel DOMNodeTextContentPropertyInfo = "text-content"
type AttrOrigin DOMNodeTextContentPropertyInfo = DOMNode
attrGet _ = getDOMNodeTextContent
attrSet _ = setDOMNodeTextContent
attrConstruct _ = constructDOMNodeTextContent
attrClear _ = clearDOMNodeTextContent
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList DOMNode
type instance O.AttributeList DOMNode = DOMNodeAttributeList
type DOMNodeAttributeList = ('[ '("baseUri", DOMNodeBaseUriPropertyInfo), '("childNodes", DOMNodeChildNodesPropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("firstChild", DOMNodeFirstChildPropertyInfo), '("lastChild", DOMNodeLastChildPropertyInfo), '("nextSibling", DOMNodeNextSiblingPropertyInfo), '("nodeName", DOMNodeNodeNamePropertyInfo), '("nodeType", DOMNodeNodeTypePropertyInfo), '("nodeValue", DOMNodeNodeValuePropertyInfo), '("ownerDocument", DOMNodeOwnerDocumentPropertyInfo), '("parentElement", DOMNodeParentElementPropertyInfo), '("parentNode", DOMNodeParentNodePropertyInfo), '("previousSibling", DOMNodePreviousSiblingPropertyInfo), '("textContent", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
dOMNodeBaseUri :: AttrLabelProxy "baseUri"
dOMNodeBaseUri = AttrLabelProxy
dOMNodeChildNodes :: AttrLabelProxy "childNodes"
dOMNodeChildNodes = AttrLabelProxy
dOMNodeFirstChild :: AttrLabelProxy "firstChild"
dOMNodeFirstChild = AttrLabelProxy
dOMNodeLastChild :: AttrLabelProxy "lastChild"
dOMNodeLastChild = AttrLabelProxy
dOMNodeNextSibling :: AttrLabelProxy "nextSibling"
dOMNodeNextSibling = AttrLabelProxy
dOMNodeNodeName :: AttrLabelProxy "nodeName"
dOMNodeNodeName = AttrLabelProxy
dOMNodeNodeType :: AttrLabelProxy "nodeType"
dOMNodeNodeType = AttrLabelProxy
dOMNodeNodeValue :: AttrLabelProxy "nodeValue"
dOMNodeNodeValue = AttrLabelProxy
dOMNodeOwnerDocument :: AttrLabelProxy "ownerDocument"
dOMNodeOwnerDocument = AttrLabelProxy
dOMNodeParentElement :: AttrLabelProxy "parentElement"
dOMNodeParentElement = AttrLabelProxy
dOMNodeParentNode :: AttrLabelProxy "parentNode"
dOMNodeParentNode = AttrLabelProxy
dOMNodePreviousSibling :: AttrLabelProxy "previousSibling"
dOMNodePreviousSibling = AttrLabelProxy
dOMNodeTextContent :: AttrLabelProxy "textContent"
dOMNodeTextContent = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList DOMNode = DOMNodeSignalList
type DOMNodeSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_node_append_child" webkit_dom_node_append_child ::
Ptr DOMNode ->
Ptr DOMNode ->
Ptr (Ptr GError) ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeAppendChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeAppendChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m DOMNode
dOMNodeAppendChild self newChild = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
newChild' <- unsafeManagedPtrCastPtr newChild
onException (do
result <- propagateGError $ webkit_dom_node_append_child self' newChild'
checkUnexpectedReturnNULL "dOMNodeAppendChild" result
result' <- (newObject DOMNode) result
touchManagedPtr self
touchManagedPtr newChild
return result'
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMNodeAppendChildMethodInfo
instance (signature ~ (b -> m DOMNode), MonadIO m, IsDOMNode a, IsDOMNode b) => O.MethodInfo DOMNodeAppendChildMethodInfo a signature where
overloadedMethod _ = dOMNodeAppendChild
#endif
foreign import ccall "webkit_dom_node_clone_node_with_error" webkit_dom_node_clone_node_with_error ::
Ptr DOMNode ->
CInt ->
Ptr (Ptr GError) ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeCloneNodeWithError ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeCloneNodeWithError ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> Bool
-> m DOMNode
dOMNodeCloneNodeWithError self deep = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
let deep' = (fromIntegral . fromEnum) deep
onException (do
result <- propagateGError $ webkit_dom_node_clone_node_with_error self' deep'
checkUnexpectedReturnNULL "dOMNodeCloneNodeWithError" result
result' <- (newObject DOMNode) result
touchManagedPtr self
return result'
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMNodeCloneNodeWithErrorMethodInfo
instance (signature ~ (Bool -> m DOMNode), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeCloneNodeWithErrorMethodInfo a signature where
overloadedMethod _ = dOMNodeCloneNodeWithError
#endif
foreign import ccall "webkit_dom_node_compare_document_position" webkit_dom_node_compare_document_position ::
Ptr DOMNode ->
Ptr DOMNode ->
IO Word16
{-# DEPRECATED dOMNodeCompareDocumentPosition ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeCompareDocumentPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m Word16
dOMNodeCompareDocumentPosition self other = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
other' <- unsafeManagedPtrCastPtr other
result <- webkit_dom_node_compare_document_position self' other'
touchManagedPtr self
touchManagedPtr other
return result
#if ENABLE_OVERLOADING
data DOMNodeCompareDocumentPositionMethodInfo
instance (signature ~ (b -> m Word16), MonadIO m, IsDOMNode a, IsDOMNode b) => O.MethodInfo DOMNodeCompareDocumentPositionMethodInfo a signature where
overloadedMethod _ = dOMNodeCompareDocumentPosition
#endif
foreign import ccall "webkit_dom_node_contains" webkit_dom_node_contains ::
Ptr DOMNode ->
Ptr DOMNode ->
IO CInt
{-# DEPRECATED dOMNodeContains ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeContains ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m Bool
dOMNodeContains self other = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
other' <- unsafeManagedPtrCastPtr other
result <- webkit_dom_node_contains self' other'
let result' = (/= 0) result
touchManagedPtr self
touchManagedPtr other
return result'
#if ENABLE_OVERLOADING
data DOMNodeContainsMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsDOMNode a, IsDOMNode b) => O.MethodInfo DOMNodeContainsMethodInfo a signature where
overloadedMethod _ = dOMNodeContains
#endif
foreign import ccall "webkit_dom_node_get_base_uri" webkit_dom_node_get_base_uri ::
Ptr DOMNode ->
IO CString
{-# DEPRECATED dOMNodeGetBaseUri ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetBaseUri ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetBaseUri self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_base_uri self'
checkUnexpectedReturnNULL "dOMNodeGetBaseUri" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetBaseUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetBaseUriMethodInfo a signature where
overloadedMethod _ = dOMNodeGetBaseUri
#endif
foreign import ccall "webkit_dom_node_get_child_nodes" webkit_dom_node_get_child_nodes ::
Ptr DOMNode ->
IO (Ptr WebKit2WebExtension.DOMNodeList.DOMNodeList)
{-# DEPRECATED dOMNodeGetChildNodes ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetChildNodes ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m WebKit2WebExtension.DOMNodeList.DOMNodeList
dOMNodeGetChildNodes self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_child_nodes self'
checkUnexpectedReturnNULL "dOMNodeGetChildNodes" result
result' <- (wrapObject WebKit2WebExtension.DOMNodeList.DOMNodeList) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetChildNodesMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNodeList.DOMNodeList), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetChildNodesMethodInfo a signature where
overloadedMethod _ = dOMNodeGetChildNodes
#endif
foreign import ccall "webkit_dom_node_get_first_child" webkit_dom_node_get_first_child ::
Ptr DOMNode ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeGetFirstChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetFirstChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetFirstChild self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_first_child self'
checkUnexpectedReturnNULL "dOMNodeGetFirstChild" result
result' <- (newObject DOMNode) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetFirstChildMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetFirstChildMethodInfo a signature where
overloadedMethod _ = dOMNodeGetFirstChild
#endif
foreign import ccall "webkit_dom_node_get_last_child" webkit_dom_node_get_last_child ::
Ptr DOMNode ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeGetLastChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetLastChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetLastChild self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_last_child self'
checkUnexpectedReturnNULL "dOMNodeGetLastChild" result
result' <- (newObject DOMNode) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetLastChildMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetLastChildMethodInfo a signature where
overloadedMethod _ = dOMNodeGetLastChild
#endif
foreign import ccall "webkit_dom_node_get_local_name" webkit_dom_node_get_local_name ::
Ptr DOMNode ->
IO CString
{-# DEPRECATED dOMNodeGetLocalName ["(Since version 2.14)","Use 'GI.WebKit2WebExtension.Objects.DOMAttr.dOMAttrGetLocalName' or 'GI.WebKit2WebExtension.Objects.DOMElement.dOMElementGetLocalName' instead."] #-}
dOMNodeGetLocalName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetLocalName self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_local_name self'
checkUnexpectedReturnNULL "dOMNodeGetLocalName" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetLocalNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetLocalNameMethodInfo a signature where
overloadedMethod _ = dOMNodeGetLocalName
#endif
foreign import ccall "webkit_dom_node_get_namespace_uri" webkit_dom_node_get_namespace_uri ::
Ptr DOMNode ->
IO CString
{-# DEPRECATED dOMNodeGetNamespaceUri ["(Since version 2.14)","Use 'GI.WebKit2WebExtension.Objects.DOMAttr.dOMAttrGetNamespaceUri' or 'GI.WebKit2WebExtension.Objects.DOMElement.dOMElementGetNamespaceUri' instead."] #-}
dOMNodeGetNamespaceUri ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetNamespaceUri self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_namespace_uri self'
checkUnexpectedReturnNULL "dOMNodeGetNamespaceUri" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetNamespaceUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetNamespaceUriMethodInfo a signature where
overloadedMethod _ = dOMNodeGetNamespaceUri
#endif
foreign import ccall "webkit_dom_node_get_next_sibling" webkit_dom_node_get_next_sibling ::
Ptr DOMNode ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeGetNextSibling ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetNextSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetNextSibling self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_next_sibling self'
checkUnexpectedReturnNULL "dOMNodeGetNextSibling" result
result' <- (newObject DOMNode) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetNextSiblingMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetNextSiblingMethodInfo a signature where
overloadedMethod _ = dOMNodeGetNextSibling
#endif
foreign import ccall "webkit_dom_node_get_node_name" webkit_dom_node_get_node_name ::
Ptr DOMNode ->
IO CString
{-# DEPRECATED dOMNodeGetNodeName ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetNodeName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetNodeName self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_node_name self'
checkUnexpectedReturnNULL "dOMNodeGetNodeName" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetNodeNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetNodeNameMethodInfo a signature where
overloadedMethod _ = dOMNodeGetNodeName
#endif
foreign import ccall "webkit_dom_node_get_node_type" webkit_dom_node_get_node_type ::
Ptr DOMNode ->
IO Word16
{-# DEPRECATED dOMNodeGetNodeType ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetNodeType ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m Word16
dOMNodeGetNodeType self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_node_type self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMNodeGetNodeTypeMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetNodeTypeMethodInfo a signature where
overloadedMethod _ = dOMNodeGetNodeType
#endif
foreign import ccall "webkit_dom_node_get_node_value" webkit_dom_node_get_node_value ::
Ptr DOMNode ->
IO CString
{-# DEPRECATED dOMNodeGetNodeValue ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetNodeValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetNodeValue self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_node_value self'
checkUnexpectedReturnNULL "dOMNodeGetNodeValue" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetNodeValueMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetNodeValueMethodInfo a signature where
overloadedMethod _ = dOMNodeGetNodeValue
#endif
foreign import ccall "webkit_dom_node_get_owner_document" webkit_dom_node_get_owner_document ::
Ptr DOMNode ->
IO (Ptr WebKit2WebExtension.DOMDocument.DOMDocument)
{-# DEPRECATED dOMNodeGetOwnerDocument ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetOwnerDocument ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m WebKit2WebExtension.DOMDocument.DOMDocument
dOMNodeGetOwnerDocument self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_owner_document self'
checkUnexpectedReturnNULL "dOMNodeGetOwnerDocument" result
result' <- (newObject WebKit2WebExtension.DOMDocument.DOMDocument) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetOwnerDocumentMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMDocument.DOMDocument), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetOwnerDocumentMethodInfo a signature where
overloadedMethod _ = dOMNodeGetOwnerDocument
#endif
foreign import ccall "webkit_dom_node_get_parent_element" webkit_dom_node_get_parent_element ::
Ptr DOMNode ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMNodeGetParentElement ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetParentElement ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMNodeGetParentElement self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_parent_element self'
checkUnexpectedReturnNULL "dOMNodeGetParentElement" result
result' <- (newObject WebKit2WebExtension.DOMElement.DOMElement) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetParentElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetParentElementMethodInfo a signature where
overloadedMethod _ = dOMNodeGetParentElement
#endif
foreign import ccall "webkit_dom_node_get_parent_node" webkit_dom_node_get_parent_node ::
Ptr DOMNode ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeGetParentNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetParentNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetParentNode self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_parent_node self'
checkUnexpectedReturnNULL "dOMNodeGetParentNode" result
result' <- (newObject DOMNode) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetParentNodeMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetParentNodeMethodInfo a signature where
overloadedMethod _ = dOMNodeGetParentNode
#endif
foreign import ccall "webkit_dom_node_get_prefix" webkit_dom_node_get_prefix ::
Ptr DOMNode ->
IO CString
{-# DEPRECATED dOMNodeGetPrefix ["(Since version 2.14)","Use 'GI.WebKit2WebExtension.Objects.DOMAttr.dOMAttrGetPrefix' or 'GI.WebKit2WebExtension.Objects.DOMElement.dOMElementGetPrefix' instead."] #-}
dOMNodeGetPrefix ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetPrefix self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_prefix self'
checkUnexpectedReturnNULL "dOMNodeGetPrefix" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetPrefixMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetPrefixMethodInfo a signature where
overloadedMethod _ = dOMNodeGetPrefix
#endif
foreign import ccall "webkit_dom_node_get_previous_sibling" webkit_dom_node_get_previous_sibling ::
Ptr DOMNode ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeGetPreviousSibling ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetPreviousSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m DOMNode
dOMNodeGetPreviousSibling self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_previous_sibling self'
checkUnexpectedReturnNULL "dOMNodeGetPreviousSibling" result
result' <- (newObject DOMNode) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetPreviousSiblingMethodInfo
instance (signature ~ (m DOMNode), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetPreviousSiblingMethodInfo a signature where
overloadedMethod _ = dOMNodeGetPreviousSibling
#endif
foreign import ccall "webkit_dom_node_get_text_content" webkit_dom_node_get_text_content ::
Ptr DOMNode ->
IO CString
{-# DEPRECATED dOMNodeGetTextContent ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeGetTextContent ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m T.Text
dOMNodeGetTextContent self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_get_text_content self'
checkUnexpectedReturnNULL "dOMNodeGetTextContent" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeGetTextContentMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeGetTextContentMethodInfo a signature where
overloadedMethod _ = dOMNodeGetTextContent
#endif
foreign import ccall "webkit_dom_node_has_child_nodes" webkit_dom_node_has_child_nodes ::
Ptr DOMNode ->
IO CInt
{-# DEPRECATED dOMNodeHasChildNodes ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeHasChildNodes ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m Bool
dOMNodeHasChildNodes self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_node_has_child_nodes self'
let result' = (/= 0) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMNodeHasChildNodesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeHasChildNodesMethodInfo a signature where
overloadedMethod _ = dOMNodeHasChildNodes
#endif
foreign import ccall "webkit_dom_node_insert_before" webkit_dom_node_insert_before ::
Ptr DOMNode ->
Ptr DOMNode ->
Ptr DOMNode ->
Ptr (Ptr GError) ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeInsertBefore ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeInsertBefore ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b, IsDOMNode c) =>
a
-> b
-> Maybe (c)
-> m DOMNode
dOMNodeInsertBefore self newChild refChild = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
newChild' <- unsafeManagedPtrCastPtr newChild
maybeRefChild <- case refChild of
Nothing -> return nullPtr
Just jRefChild -> do
jRefChild' <- unsafeManagedPtrCastPtr jRefChild
return jRefChild'
onException (do
result <- propagateGError $ webkit_dom_node_insert_before self' newChild' maybeRefChild
checkUnexpectedReturnNULL "dOMNodeInsertBefore" result
result' <- (newObject DOMNode) result
touchManagedPtr self
touchManagedPtr newChild
whenJust refChild touchManagedPtr
return result'
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMNodeInsertBeforeMethodInfo
instance (signature ~ (b -> Maybe (c) -> m DOMNode), MonadIO m, IsDOMNode a, IsDOMNode b, IsDOMNode c) => O.MethodInfo DOMNodeInsertBeforeMethodInfo a signature where
overloadedMethod _ = dOMNodeInsertBefore
#endif
foreign import ccall "webkit_dom_node_is_default_namespace" webkit_dom_node_is_default_namespace ::
Ptr DOMNode ->
CString ->
IO CInt
{-# DEPRECATED dOMNodeIsDefaultNamespace ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIsDefaultNamespace ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m Bool
dOMNodeIsDefaultNamespace self namespaceURI = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
namespaceURI' <- textToCString namespaceURI
result <- webkit_dom_node_is_default_namespace self' namespaceURI'
let result' = (/= 0) result
touchManagedPtr self
freeMem namespaceURI'
return result'
#if ENABLE_OVERLOADING
data DOMNodeIsDefaultNamespaceMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeIsDefaultNamespaceMethodInfo a signature where
overloadedMethod _ = dOMNodeIsDefaultNamespace
#endif
foreign import ccall "webkit_dom_node_is_equal_node" webkit_dom_node_is_equal_node ::
Ptr DOMNode ->
Ptr DOMNode ->
IO CInt
{-# DEPRECATED dOMNodeIsEqualNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIsEqualNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m Bool
dOMNodeIsEqualNode self other = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
other' <- unsafeManagedPtrCastPtr other
result <- webkit_dom_node_is_equal_node self' other'
let result' = (/= 0) result
touchManagedPtr self
touchManagedPtr other
return result'
#if ENABLE_OVERLOADING
data DOMNodeIsEqualNodeMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsDOMNode a, IsDOMNode b) => O.MethodInfo DOMNodeIsEqualNodeMethodInfo a signature where
overloadedMethod _ = dOMNodeIsEqualNode
#endif
foreign import ccall "webkit_dom_node_is_same_node" webkit_dom_node_is_same_node ::
Ptr DOMNode ->
Ptr DOMNode ->
IO CInt
{-# DEPRECATED dOMNodeIsSameNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIsSameNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m Bool
dOMNodeIsSameNode self other = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
other' <- unsafeManagedPtrCastPtr other
result <- webkit_dom_node_is_same_node self' other'
let result' = (/= 0) result
touchManagedPtr self
touchManagedPtr other
return result'
#if ENABLE_OVERLOADING
data DOMNodeIsSameNodeMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsDOMNode a, IsDOMNode b) => O.MethodInfo DOMNodeIsSameNodeMethodInfo a signature where
overloadedMethod _ = dOMNodeIsSameNode
#endif
foreign import ccall "webkit_dom_node_is_supported" webkit_dom_node_is_supported ::
Ptr DOMNode ->
CString ->
CString ->
IO CInt
{-# DEPRECATED dOMNodeIsSupported ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeIsSupported ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> T.Text
-> m Bool
dOMNodeIsSupported self feature version = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
feature' <- textToCString feature
version' <- textToCString version
result <- webkit_dom_node_is_supported self' feature' version'
let result' = (/= 0) result
touchManagedPtr self
freeMem feature'
freeMem version'
return result'
#if ENABLE_OVERLOADING
data DOMNodeIsSupportedMethodInfo
instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeIsSupportedMethodInfo a signature where
overloadedMethod _ = dOMNodeIsSupported
#endif
foreign import ccall "webkit_dom_node_lookup_namespace_uri" webkit_dom_node_lookup_namespace_uri ::
Ptr DOMNode ->
CString ->
IO CString
{-# DEPRECATED dOMNodeLookupNamespaceUri ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeLookupNamespaceUri ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m T.Text
dOMNodeLookupNamespaceUri self prefix = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
prefix' <- textToCString prefix
result <- webkit_dom_node_lookup_namespace_uri self' prefix'
checkUnexpectedReturnNULL "dOMNodeLookupNamespaceUri" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
freeMem prefix'
return result'
#if ENABLE_OVERLOADING
data DOMNodeLookupNamespaceUriMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeLookupNamespaceUriMethodInfo a signature where
overloadedMethod _ = dOMNodeLookupNamespaceUri
#endif
foreign import ccall "webkit_dom_node_lookup_prefix" webkit_dom_node_lookup_prefix ::
Ptr DOMNode ->
CString ->
IO CString
{-# DEPRECATED dOMNodeLookupPrefix ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeLookupPrefix ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m T.Text
dOMNodeLookupPrefix self namespaceURI = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
namespaceURI' <- textToCString namespaceURI
result <- webkit_dom_node_lookup_prefix self' namespaceURI'
checkUnexpectedReturnNULL "dOMNodeLookupPrefix" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
freeMem namespaceURI'
return result'
#if ENABLE_OVERLOADING
data DOMNodeLookupPrefixMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeLookupPrefixMethodInfo a signature where
overloadedMethod _ = dOMNodeLookupPrefix
#endif
foreign import ccall "webkit_dom_node_normalize" webkit_dom_node_normalize ::
Ptr DOMNode ->
IO ()
{-# DEPRECATED dOMNodeNormalize ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeNormalize ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> m ()
dOMNodeNormalize self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
webkit_dom_node_normalize self'
touchManagedPtr self
return ()
#if ENABLE_OVERLOADING
data DOMNodeNormalizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeNormalizeMethodInfo a signature where
overloadedMethod _ = dOMNodeNormalize
#endif
foreign import ccall "webkit_dom_node_remove_child" webkit_dom_node_remove_child ::
Ptr DOMNode ->
Ptr DOMNode ->
Ptr (Ptr GError) ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeRemoveChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeRemoveChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b) =>
a
-> b
-> m DOMNode
dOMNodeRemoveChild self oldChild = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
oldChild' <- unsafeManagedPtrCastPtr oldChild
onException (do
result <- propagateGError $ webkit_dom_node_remove_child self' oldChild'
checkUnexpectedReturnNULL "dOMNodeRemoveChild" result
result' <- (newObject DOMNode) result
touchManagedPtr self
touchManagedPtr oldChild
return result'
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMNodeRemoveChildMethodInfo
instance (signature ~ (b -> m DOMNode), MonadIO m, IsDOMNode a, IsDOMNode b) => O.MethodInfo DOMNodeRemoveChildMethodInfo a signature where
overloadedMethod _ = dOMNodeRemoveChild
#endif
foreign import ccall "webkit_dom_node_replace_child" webkit_dom_node_replace_child ::
Ptr DOMNode ->
Ptr DOMNode ->
Ptr DOMNode ->
Ptr (Ptr GError) ->
IO (Ptr DOMNode)
{-# DEPRECATED dOMNodeReplaceChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeReplaceChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a, IsDOMNode b, IsDOMNode c) =>
a
-> b
-> c
-> m DOMNode
dOMNodeReplaceChild self newChild oldChild = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
newChild' <- unsafeManagedPtrCastPtr newChild
oldChild' <- unsafeManagedPtrCastPtr oldChild
onException (do
result <- propagateGError $ webkit_dom_node_replace_child self' newChild' oldChild'
checkUnexpectedReturnNULL "dOMNodeReplaceChild" result
result' <- (newObject DOMNode) result
touchManagedPtr self
touchManagedPtr newChild
touchManagedPtr oldChild
return result'
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMNodeReplaceChildMethodInfo
instance (signature ~ (b -> c -> m DOMNode), MonadIO m, IsDOMNode a, IsDOMNode b, IsDOMNode c) => O.MethodInfo DOMNodeReplaceChildMethodInfo a signature where
overloadedMethod _ = dOMNodeReplaceChild
#endif
foreign import ccall "webkit_dom_node_set_node_value" webkit_dom_node_set_node_value ::
Ptr DOMNode ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMNodeSetNodeValue ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeSetNodeValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m ()
dOMNodeSetNodeValue self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_node_set_node_value self' value'
touchManagedPtr self
freeMem value'
return ()
) (do
freeMem value'
)
#if ENABLE_OVERLOADING
data DOMNodeSetNodeValueMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeSetNodeValueMethodInfo a signature where
overloadedMethod _ = dOMNodeSetNodeValue
#endif
foreign import ccall "webkit_dom_node_set_prefix" webkit_dom_node_set_prefix ::
Ptr DOMNode ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMNodeSetPrefix ["(Since version 2.14)"] #-}
dOMNodeSetPrefix ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m ()
dOMNodeSetPrefix self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_node_set_prefix self' value'
touchManagedPtr self
freeMem value'
return ()
) (do
freeMem value'
)
#if ENABLE_OVERLOADING
data DOMNodeSetPrefixMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeSetPrefixMethodInfo a signature where
overloadedMethod _ = dOMNodeSetPrefix
#endif
foreign import ccall "webkit_dom_node_set_text_content" webkit_dom_node_set_text_content ::
Ptr DOMNode ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMNodeSetTextContent ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMNodeSetTextContent ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMNode a) =>
a
-> T.Text
-> m ()
dOMNodeSetTextContent self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_node_set_text_content self' value'
touchManagedPtr self
freeMem value'
return ()
) (do
freeMem value'
)
#if ENABLE_OVERLOADING
data DOMNodeSetTextContentMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMNode a) => O.MethodInfo DOMNodeSetTextContentMethodInfo a signature where
overloadedMethod _ = dOMNodeSetTextContent
#endif
foreign import ccall "webkit_dom_node_for_js_value" webkit_dom_node_for_js_value ::
Ptr JavaScriptCore.Value.Value ->
IO (Ptr DOMNode)
dOMNodeForJsValue ::
(B.CallStack.HasCallStack, MonadIO m, JavaScriptCore.Value.IsValue a) =>
a
-> m DOMNode
dOMNodeForJsValue value = liftIO $ do
value' <- unsafeManagedPtrCastPtr value
result <- webkit_dom_node_for_js_value value'
checkUnexpectedReturnNULL "dOMNodeForJsValue" result
result' <- (newObject DOMNode) result
touchManagedPtr value
return result'
#if ENABLE_OVERLOADING
#endif