{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMElement
(
DOMElement(..) ,
IsDOMElement ,
toDOMElement ,
noDOMElement ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMElementMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMElementBlurMethodInfo ,
#endif
dOMElementBlur ,
#if defined(ENABLE_OVERLOADING)
DOMElementClosestMethodInfo ,
#endif
dOMElementClosest ,
#if defined(ENABLE_OVERLOADING)
DOMElementFocusMethodInfo ,
#endif
dOMElementFocus ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetAttributeMethodInfo ,
#endif
dOMElementGetAttribute ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetAttributeNodeMethodInfo ,
#endif
dOMElementGetAttributeNode ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetAttributeNodeNsMethodInfo ,
#endif
dOMElementGetAttributeNodeNs ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetAttributeNsMethodInfo ,
#endif
dOMElementGetAttributeNs ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetAttributesMethodInfo ,
#endif
dOMElementGetAttributes ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetBoundingClientRectMethodInfo,
#endif
dOMElementGetBoundingClientRect ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetChildElementCountMethodInfo,
#endif
dOMElementGetChildElementCount ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetChildrenMethodInfo ,
#endif
dOMElementGetChildren ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetClassListMethodInfo ,
#endif
dOMElementGetClassList ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetClassNameMethodInfo ,
#endif
dOMElementGetClassName ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetClientHeightMethodInfo ,
#endif
dOMElementGetClientHeight ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetClientLeftMethodInfo ,
#endif
dOMElementGetClientLeft ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetClientRectsMethodInfo ,
#endif
dOMElementGetClientRects ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetClientTopMethodInfo ,
#endif
dOMElementGetClientTop ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetClientWidthMethodInfo ,
#endif
dOMElementGetClientWidth ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetElementsByClassNameMethodInfo,
#endif
dOMElementGetElementsByClassName ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo,
#endif
dOMElementGetElementsByClassNameAsHtmlCollection,
#if defined(ENABLE_OVERLOADING)
DOMElementGetElementsByTagNameMethodInfo,
#endif
dOMElementGetElementsByTagName ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo,
#endif
dOMElementGetElementsByTagNameAsHtmlCollection,
#if defined(ENABLE_OVERLOADING)
DOMElementGetElementsByTagNameNsMethodInfo,
#endif
dOMElementGetElementsByTagNameNs ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo,
#endif
dOMElementGetElementsByTagNameNsAsHtmlCollection,
#if defined(ENABLE_OVERLOADING)
DOMElementGetFirstElementChildMethodInfo,
#endif
dOMElementGetFirstElementChild ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetIdMethodInfo ,
#endif
dOMElementGetId ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetInnerHtmlMethodInfo ,
#endif
dOMElementGetInnerHtml ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetLastElementChildMethodInfo ,
#endif
dOMElementGetLastElementChild ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetLocalNameMethodInfo ,
#endif
dOMElementGetLocalName ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetNamespaceUriMethodInfo ,
#endif
dOMElementGetNamespaceUri ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetNextElementSiblingMethodInfo,
#endif
dOMElementGetNextElementSibling ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetOffsetHeightMethodInfo ,
#endif
dOMElementGetOffsetHeight ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetOffsetLeftMethodInfo ,
#endif
dOMElementGetOffsetLeft ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetOffsetParentMethodInfo ,
#endif
dOMElementGetOffsetParent ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetOffsetTopMethodInfo ,
#endif
dOMElementGetOffsetTop ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetOffsetWidthMethodInfo ,
#endif
dOMElementGetOffsetWidth ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetOuterHtmlMethodInfo ,
#endif
dOMElementGetOuterHtml ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetPrefixMethodInfo ,
#endif
dOMElementGetPrefix ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetPreviousElementSiblingMethodInfo,
#endif
dOMElementGetPreviousElementSibling ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetScrollHeightMethodInfo ,
#endif
dOMElementGetScrollHeight ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetScrollLeftMethodInfo ,
#endif
dOMElementGetScrollLeft ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetScrollTopMethodInfo ,
#endif
dOMElementGetScrollTop ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetScrollWidthMethodInfo ,
#endif
dOMElementGetScrollWidth ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetStyleMethodInfo ,
#endif
dOMElementGetStyle ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetTagNameMethodInfo ,
#endif
dOMElementGetTagName ,
#if defined(ENABLE_OVERLOADING)
DOMElementGetWebkitRegionOversetMethodInfo,
#endif
dOMElementGetWebkitRegionOverset ,
#if defined(ENABLE_OVERLOADING)
DOMElementHasAttributeMethodInfo ,
#endif
dOMElementHasAttribute ,
#if defined(ENABLE_OVERLOADING)
DOMElementHasAttributeNsMethodInfo ,
#endif
dOMElementHasAttributeNs ,
#if defined(ENABLE_OVERLOADING)
DOMElementHasAttributesMethodInfo ,
#endif
dOMElementHasAttributes ,
#if defined(ENABLE_OVERLOADING)
DOMElementHtmlInputElementGetAutoFilledMethodInfo,
#endif
dOMElementHtmlInputElementGetAutoFilled ,
#if defined(ENABLE_OVERLOADING)
DOMElementHtmlInputElementIsUserEditedMethodInfo,
#endif
dOMElementHtmlInputElementIsUserEdited ,
#if defined(ENABLE_OVERLOADING)
DOMElementHtmlInputElementSetAutoFilledMethodInfo,
#endif
dOMElementHtmlInputElementSetAutoFilled ,
#if defined(ENABLE_OVERLOADING)
DOMElementHtmlInputElementSetEditingValueMethodInfo,
#endif
dOMElementHtmlInputElementSetEditingValue,
#if defined(ENABLE_OVERLOADING)
DOMElementInsertAdjacentElementMethodInfo,
#endif
dOMElementInsertAdjacentElement ,
#if defined(ENABLE_OVERLOADING)
DOMElementInsertAdjacentHtmlMethodInfo ,
#endif
dOMElementInsertAdjacentHtml ,
#if defined(ENABLE_OVERLOADING)
DOMElementInsertAdjacentTextMethodInfo ,
#endif
dOMElementInsertAdjacentText ,
#if defined(ENABLE_OVERLOADING)
DOMElementMatchesMethodInfo ,
#endif
dOMElementMatches ,
#if defined(ENABLE_OVERLOADING)
DOMElementQuerySelectorMethodInfo ,
#endif
dOMElementQuerySelector ,
#if defined(ENABLE_OVERLOADING)
DOMElementQuerySelectorAllMethodInfo ,
#endif
dOMElementQuerySelectorAll ,
#if defined(ENABLE_OVERLOADING)
DOMElementRemoveMethodInfo ,
#endif
dOMElementRemove ,
#if defined(ENABLE_OVERLOADING)
DOMElementRemoveAttributeMethodInfo ,
#endif
dOMElementRemoveAttribute ,
#if defined(ENABLE_OVERLOADING)
DOMElementRemoveAttributeNodeMethodInfo ,
#endif
dOMElementRemoveAttributeNode ,
#if defined(ENABLE_OVERLOADING)
DOMElementRemoveAttributeNsMethodInfo ,
#endif
dOMElementRemoveAttributeNs ,
#if defined(ENABLE_OVERLOADING)
DOMElementRequestPointerLockMethodInfo ,
#endif
dOMElementRequestPointerLock ,
#if defined(ENABLE_OVERLOADING)
DOMElementScrollByLinesMethodInfo ,
#endif
dOMElementScrollByLines ,
#if defined(ENABLE_OVERLOADING)
DOMElementScrollByPagesMethodInfo ,
#endif
dOMElementScrollByPages ,
#if defined(ENABLE_OVERLOADING)
DOMElementScrollIntoViewMethodInfo ,
#endif
dOMElementScrollIntoView ,
#if defined(ENABLE_OVERLOADING)
DOMElementScrollIntoViewIfNeededMethodInfo,
#endif
dOMElementScrollIntoViewIfNeeded ,
#if defined(ENABLE_OVERLOADING)
DOMElementSetAttributeMethodInfo ,
#endif
dOMElementSetAttribute ,
#if defined(ENABLE_OVERLOADING)
DOMElementSetAttributeNodeMethodInfo ,
#endif
dOMElementSetAttributeNode ,
#if defined(ENABLE_OVERLOADING)
DOMElementSetAttributeNodeNsMethodInfo ,
#endif
dOMElementSetAttributeNodeNs ,
#if defined(ENABLE_OVERLOADING)
DOMElementSetAttributeNsMethodInfo ,
#endif
dOMElementSetAttributeNs ,
#if defined(ENABLE_OVERLOADING)
DOMElementSetClassNameMethodInfo ,
#endif
dOMElementSetClassName ,
#if defined(ENABLE_OVERLOADING)
DOMElementSetIdMethodInfo ,
#endif
dOMElementSetId ,
#if defined(ENABLE_OVERLOADING)
DOMElementSetInnerHtmlMethodInfo ,
#endif
dOMElementSetInnerHtml ,
#if defined(ENABLE_OVERLOADING)
DOMElementSetOuterHtmlMethodInfo ,
#endif
dOMElementSetOuterHtml ,
#if defined(ENABLE_OVERLOADING)
DOMElementSetScrollLeftMethodInfo ,
#endif
dOMElementSetScrollLeft ,
#if defined(ENABLE_OVERLOADING)
DOMElementSetScrollTopMethodInfo ,
#endif
dOMElementSetScrollTop ,
#if defined(ENABLE_OVERLOADING)
DOMElementWebkitMatchesSelectorMethodInfo,
#endif
dOMElementWebkitMatchesSelector ,
#if defined(ENABLE_OVERLOADING)
DOMElementWebkitRequestFullscreenMethodInfo,
#endif
dOMElementWebkitRequestFullscreen ,
#if defined(ENABLE_OVERLOADING)
DOMElementAttributesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementAttributes ,
#endif
getDOMElementAttributes ,
#if defined(ENABLE_OVERLOADING)
DOMElementChildElementCountPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementChildElementCount ,
#endif
getDOMElementChildElementCount ,
#if defined(ENABLE_OVERLOADING)
DOMElementChildrenPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementChildren ,
#endif
getDOMElementChildren ,
#if defined(ENABLE_OVERLOADING)
DOMElementClassListPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementClassList ,
#endif
getDOMElementClassList ,
#if defined(ENABLE_OVERLOADING)
DOMElementClassNamePropertyInfo ,
#endif
constructDOMElementClassName ,
#if defined(ENABLE_OVERLOADING)
dOMElementClassName ,
#endif
getDOMElementClassName ,
setDOMElementClassName ,
#if defined(ENABLE_OVERLOADING)
DOMElementClientHeightPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementClientHeight ,
#endif
getDOMElementClientHeight ,
#if defined(ENABLE_OVERLOADING)
DOMElementClientLeftPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementClientLeft ,
#endif
getDOMElementClientLeft ,
#if defined(ENABLE_OVERLOADING)
DOMElementClientTopPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementClientTop ,
#endif
getDOMElementClientTop ,
#if defined(ENABLE_OVERLOADING)
DOMElementClientWidthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementClientWidth ,
#endif
getDOMElementClientWidth ,
#if defined(ENABLE_OVERLOADING)
DOMElementFirstElementChildPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementFirstElementChild ,
#endif
getDOMElementFirstElementChild ,
#if defined(ENABLE_OVERLOADING)
DOMElementIdPropertyInfo ,
#endif
constructDOMElementId ,
#if defined(ENABLE_OVERLOADING)
dOMElementId ,
#endif
getDOMElementId ,
setDOMElementId ,
#if defined(ENABLE_OVERLOADING)
DOMElementInnerHtmlPropertyInfo ,
#endif
clearDOMElementInnerHtml ,
constructDOMElementInnerHtml ,
#if defined(ENABLE_OVERLOADING)
dOMElementInnerHtml ,
#endif
getDOMElementInnerHtml ,
setDOMElementInnerHtml ,
#if defined(ENABLE_OVERLOADING)
DOMElementLastElementChildPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementLastElementChild ,
#endif
getDOMElementLastElementChild ,
#if defined(ENABLE_OVERLOADING)
DOMElementLocalNamePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementLocalName ,
#endif
getDOMElementLocalName ,
#if defined(ENABLE_OVERLOADING)
DOMElementNamespaceUriPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementNamespaceUri ,
#endif
getDOMElementNamespaceUri ,
#if defined(ENABLE_OVERLOADING)
DOMElementNextElementSiblingPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementNextElementSibling ,
#endif
getDOMElementNextElementSibling ,
#if defined(ENABLE_OVERLOADING)
DOMElementOffsetHeightPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementOffsetHeight ,
#endif
getDOMElementOffsetHeight ,
#if defined(ENABLE_OVERLOADING)
DOMElementOffsetLeftPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementOffsetLeft ,
#endif
getDOMElementOffsetLeft ,
#if defined(ENABLE_OVERLOADING)
DOMElementOffsetParentPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementOffsetParent ,
#endif
getDOMElementOffsetParent ,
#if defined(ENABLE_OVERLOADING)
DOMElementOffsetTopPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementOffsetTop ,
#endif
getDOMElementOffsetTop ,
#if defined(ENABLE_OVERLOADING)
DOMElementOffsetWidthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementOffsetWidth ,
#endif
getDOMElementOffsetWidth ,
#if defined(ENABLE_OVERLOADING)
DOMElementOuterHtmlPropertyInfo ,
#endif
clearDOMElementOuterHtml ,
constructDOMElementOuterHtml ,
#if defined(ENABLE_OVERLOADING)
dOMElementOuterHtml ,
#endif
getDOMElementOuterHtml ,
setDOMElementOuterHtml ,
#if defined(ENABLE_OVERLOADING)
DOMElementPrefixPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementPrefix ,
#endif
getDOMElementPrefix ,
#if defined(ENABLE_OVERLOADING)
DOMElementPreviousElementSiblingPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementPreviousElementSibling ,
#endif
getDOMElementPreviousElementSibling ,
#if defined(ENABLE_OVERLOADING)
DOMElementScrollHeightPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementScrollHeight ,
#endif
getDOMElementScrollHeight ,
#if defined(ENABLE_OVERLOADING)
DOMElementScrollLeftPropertyInfo ,
#endif
constructDOMElementScrollLeft ,
#if defined(ENABLE_OVERLOADING)
dOMElementScrollLeft ,
#endif
getDOMElementScrollLeft ,
setDOMElementScrollLeft ,
#if defined(ENABLE_OVERLOADING)
DOMElementScrollTopPropertyInfo ,
#endif
constructDOMElementScrollTop ,
#if defined(ENABLE_OVERLOADING)
dOMElementScrollTop ,
#endif
getDOMElementScrollTop ,
setDOMElementScrollTop ,
#if defined(ENABLE_OVERLOADING)
DOMElementScrollWidthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementScrollWidth ,
#endif
getDOMElementScrollWidth ,
#if defined(ENABLE_OVERLOADING)
DOMElementStylePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementStyle ,
#endif
getDOMElementStyle ,
#if defined(ENABLE_OVERLOADING)
DOMElementTagNamePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementTagName ,
#endif
getDOMElementTagName ,
#if defined(ENABLE_OVERLOADING)
DOMElementWebkitRegionOversetPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementWebkitRegionOverset ,
#endif
getDOMElementWebkitRegionOverset ,
) 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.GI.Base.Signals as B.Signals
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 {-# SOURCE #-} qualified GI.WebKit2WebExtension.Interfaces.DOMEventTarget as WebKit2WebExtension.DOMEventTarget
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMAttr as WebKit2WebExtension.DOMAttr
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCSSStyleDeclaration as WebKit2WebExtension.DOMCSSStyleDeclaration
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMClientRect as WebKit2WebExtension.DOMClientRect
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMClientRectList as WebKit2WebExtension.DOMClientRectList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDOMTokenList as WebKit2WebExtension.DOMDOMTokenList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLCollection as WebKit2WebExtension.DOMHTMLCollection
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNamedNodeMap as WebKit2WebExtension.DOMNamedNodeMap
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNodeList as WebKit2WebExtension.DOMNodeList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMElement = DOMElement (ManagedPtr DOMElement)
deriving (DOMElement -> DOMElement -> Bool
(DOMElement -> DOMElement -> Bool)
-> (DOMElement -> DOMElement -> Bool) -> Eq DOMElement
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMElement -> DOMElement -> Bool
$c/= :: DOMElement -> DOMElement -> Bool
== :: DOMElement -> DOMElement -> Bool
$c== :: DOMElement -> DOMElement -> Bool
Eq)
foreign import ccall "webkit_dom_element_get_type"
c_webkit_dom_element_get_type :: IO GType
instance GObject DOMElement where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_dom_element_get_type
instance B.GValue.IsGValue DOMElement where
toGValue :: DOMElement -> IO GValue
toGValue o :: DOMElement
o = do
GType
gtype <- IO GType
c_webkit_dom_element_get_type
DOMElement -> (Ptr DOMElement -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMElement
o (GType
-> (GValue -> Ptr DOMElement -> IO ())
-> Ptr DOMElement
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr DOMElement -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO DOMElement
fromGValue gv :: GValue
gv = do
Ptr DOMElement
ptr <- GValue -> IO (Ptr DOMElement)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr DOMElement)
(ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMElement -> DOMElement
DOMElement Ptr DOMElement
ptr
class (GObject o, O.IsDescendantOf DOMElement o) => IsDOMElement o
instance (GObject o, O.IsDescendantOf DOMElement o) => IsDOMElement o
instance O.HasParentTypes DOMElement
type instance O.ParentTypes DOMElement = '[WebKit2WebExtension.DOMNode.DOMNode, WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object, WebKit2WebExtension.DOMEventTarget.DOMEventTarget]
toDOMElement :: (MonadIO m, IsDOMElement o) => o -> m DOMElement
toDOMElement :: o -> m DOMElement
toDOMElement = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement)
-> (o -> IO DOMElement) -> o -> m DOMElement
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMElement -> DOMElement) -> o -> IO DOMElement
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr DOMElement -> DOMElement
DOMElement
noDOMElement :: Maybe DOMElement
noDOMElement :: Maybe DOMElement
noDOMElement = Maybe DOMElement
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMElementMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMElementMethod "addEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetAddEventListenerMethodInfo
ResolveDOMElementMethod "appendChild" o = WebKit2WebExtension.DOMNode.DOMNodeAppendChildMethodInfo
ResolveDOMElementMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMElementMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMElementMethod "blur" o = DOMElementBlurMethodInfo
ResolveDOMElementMethod "cloneNodeWithError" o = WebKit2WebExtension.DOMNode.DOMNodeCloneNodeWithErrorMethodInfo
ResolveDOMElementMethod "closest" o = DOMElementClosestMethodInfo
ResolveDOMElementMethod "compareDocumentPosition" o = WebKit2WebExtension.DOMNode.DOMNodeCompareDocumentPositionMethodInfo
ResolveDOMElementMethod "contains" o = WebKit2WebExtension.DOMNode.DOMNodeContainsMethodInfo
ResolveDOMElementMethod "dispatchEvent" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetDispatchEventMethodInfo
ResolveDOMElementMethod "focus" o = DOMElementFocusMethodInfo
ResolveDOMElementMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMElementMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMElementMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMElementMethod "hasAttribute" o = DOMElementHasAttributeMethodInfo
ResolveDOMElementMethod "hasAttributeNs" o = DOMElementHasAttributeNsMethodInfo
ResolveDOMElementMethod "hasAttributes" o = DOMElementHasAttributesMethodInfo
ResolveDOMElementMethod "hasChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeHasChildNodesMethodInfo
ResolveDOMElementMethod "htmlInputElementGetAutoFilled" o = DOMElementHtmlInputElementGetAutoFilledMethodInfo
ResolveDOMElementMethod "htmlInputElementIsUserEdited" o = DOMElementHtmlInputElementIsUserEditedMethodInfo
ResolveDOMElementMethod "htmlInputElementSetAutoFilled" o = DOMElementHtmlInputElementSetAutoFilledMethodInfo
ResolveDOMElementMethod "htmlInputElementSetEditingValue" o = DOMElementHtmlInputElementSetEditingValueMethodInfo
ResolveDOMElementMethod "insertAdjacentElement" o = DOMElementInsertAdjacentElementMethodInfo
ResolveDOMElementMethod "insertAdjacentHtml" o = DOMElementInsertAdjacentHtmlMethodInfo
ResolveDOMElementMethod "insertAdjacentText" o = DOMElementInsertAdjacentTextMethodInfo
ResolveDOMElementMethod "insertBefore" o = WebKit2WebExtension.DOMNode.DOMNodeInsertBeforeMethodInfo
ResolveDOMElementMethod "isDefaultNamespace" o = WebKit2WebExtension.DOMNode.DOMNodeIsDefaultNamespaceMethodInfo
ResolveDOMElementMethod "isEqualNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsEqualNodeMethodInfo
ResolveDOMElementMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMElementMethod "isSameNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsSameNodeMethodInfo
ResolveDOMElementMethod "isSupported" o = WebKit2WebExtension.DOMNode.DOMNodeIsSupportedMethodInfo
ResolveDOMElementMethod "lookupNamespaceUri" o = WebKit2WebExtension.DOMNode.DOMNodeLookupNamespaceUriMethodInfo
ResolveDOMElementMethod "lookupPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeLookupPrefixMethodInfo
ResolveDOMElementMethod "matches" o = DOMElementMatchesMethodInfo
ResolveDOMElementMethod "normalize" o = WebKit2WebExtension.DOMNode.DOMNodeNormalizeMethodInfo
ResolveDOMElementMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMElementMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMElementMethod "querySelector" o = DOMElementQuerySelectorMethodInfo
ResolveDOMElementMethod "querySelectorAll" o = DOMElementQuerySelectorAllMethodInfo
ResolveDOMElementMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMElementMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMElementMethod "remove" o = DOMElementRemoveMethodInfo
ResolveDOMElementMethod "removeAttribute" o = DOMElementRemoveAttributeMethodInfo
ResolveDOMElementMethod "removeAttributeNode" o = DOMElementRemoveAttributeNodeMethodInfo
ResolveDOMElementMethod "removeAttributeNs" o = DOMElementRemoveAttributeNsMethodInfo
ResolveDOMElementMethod "removeChild" o = WebKit2WebExtension.DOMNode.DOMNodeRemoveChildMethodInfo
ResolveDOMElementMethod "removeEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetRemoveEventListenerMethodInfo
ResolveDOMElementMethod "replaceChild" o = WebKit2WebExtension.DOMNode.DOMNodeReplaceChildMethodInfo
ResolveDOMElementMethod "requestPointerLock" o = DOMElementRequestPointerLockMethodInfo
ResolveDOMElementMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMElementMethod "scrollByLines" o = DOMElementScrollByLinesMethodInfo
ResolveDOMElementMethod "scrollByPages" o = DOMElementScrollByPagesMethodInfo
ResolveDOMElementMethod "scrollIntoView" o = DOMElementScrollIntoViewMethodInfo
ResolveDOMElementMethod "scrollIntoViewIfNeeded" o = DOMElementScrollIntoViewIfNeededMethodInfo
ResolveDOMElementMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMElementMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMElementMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMElementMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMElementMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMElementMethod "webkitMatchesSelector" o = DOMElementWebkitMatchesSelectorMethodInfo
ResolveDOMElementMethod "webkitRequestFullscreen" o = DOMElementWebkitRequestFullscreenMethodInfo
ResolveDOMElementMethod "getAttribute" o = DOMElementGetAttributeMethodInfo
ResolveDOMElementMethod "getAttributeNode" o = DOMElementGetAttributeNodeMethodInfo
ResolveDOMElementMethod "getAttributeNodeNs" o = DOMElementGetAttributeNodeNsMethodInfo
ResolveDOMElementMethod "getAttributeNs" o = DOMElementGetAttributeNsMethodInfo
ResolveDOMElementMethod "getAttributes" o = DOMElementGetAttributesMethodInfo
ResolveDOMElementMethod "getBaseUri" o = WebKit2WebExtension.DOMNode.DOMNodeGetBaseUriMethodInfo
ResolveDOMElementMethod "getBoundingClientRect" o = DOMElementGetBoundingClientRectMethodInfo
ResolveDOMElementMethod "getChildElementCount" o = DOMElementGetChildElementCountMethodInfo
ResolveDOMElementMethod "getChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeGetChildNodesMethodInfo
ResolveDOMElementMethod "getChildren" o = DOMElementGetChildrenMethodInfo
ResolveDOMElementMethod "getClassList" o = DOMElementGetClassListMethodInfo
ResolveDOMElementMethod "getClassName" o = DOMElementGetClassNameMethodInfo
ResolveDOMElementMethod "getClientHeight" o = DOMElementGetClientHeightMethodInfo
ResolveDOMElementMethod "getClientLeft" o = DOMElementGetClientLeftMethodInfo
ResolveDOMElementMethod "getClientRects" o = DOMElementGetClientRectsMethodInfo
ResolveDOMElementMethod "getClientTop" o = DOMElementGetClientTopMethodInfo
ResolveDOMElementMethod "getClientWidth" o = DOMElementGetClientWidthMethodInfo
ResolveDOMElementMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMElementMethod "getElementsByClassName" o = DOMElementGetElementsByClassNameMethodInfo
ResolveDOMElementMethod "getElementsByClassNameAsHtmlCollection" o = DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo
ResolveDOMElementMethod "getElementsByTagName" o = DOMElementGetElementsByTagNameMethodInfo
ResolveDOMElementMethod "getElementsByTagNameAsHtmlCollection" o = DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo
ResolveDOMElementMethod "getElementsByTagNameNs" o = DOMElementGetElementsByTagNameNsMethodInfo
ResolveDOMElementMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo
ResolveDOMElementMethod "getFirstChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetFirstChildMethodInfo
ResolveDOMElementMethod "getFirstElementChild" o = DOMElementGetFirstElementChildMethodInfo
ResolveDOMElementMethod "getId" o = DOMElementGetIdMethodInfo
ResolveDOMElementMethod "getInnerHtml" o = DOMElementGetInnerHtmlMethodInfo
ResolveDOMElementMethod "getLastChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetLastChildMethodInfo
ResolveDOMElementMethod "getLastElementChild" o = DOMElementGetLastElementChildMethodInfo
ResolveDOMElementMethod "getLocalName" o = DOMElementGetLocalNameMethodInfo
ResolveDOMElementMethod "getNamespaceUri" o = DOMElementGetNamespaceUriMethodInfo
ResolveDOMElementMethod "getNextElementSibling" o = DOMElementGetNextElementSiblingMethodInfo
ResolveDOMElementMethod "getNextSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetNextSiblingMethodInfo
ResolveDOMElementMethod "getNodeName" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeNameMethodInfo
ResolveDOMElementMethod "getNodeType" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeTypeMethodInfo
ResolveDOMElementMethod "getNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeValueMethodInfo
ResolveDOMElementMethod "getOffsetHeight" o = DOMElementGetOffsetHeightMethodInfo
ResolveDOMElementMethod "getOffsetLeft" o = DOMElementGetOffsetLeftMethodInfo
ResolveDOMElementMethod "getOffsetParent" o = DOMElementGetOffsetParentMethodInfo
ResolveDOMElementMethod "getOffsetTop" o = DOMElementGetOffsetTopMethodInfo
ResolveDOMElementMethod "getOffsetWidth" o = DOMElementGetOffsetWidthMethodInfo
ResolveDOMElementMethod "getOuterHtml" o = DOMElementGetOuterHtmlMethodInfo
ResolveDOMElementMethod "getOwnerDocument" o = WebKit2WebExtension.DOMNode.DOMNodeGetOwnerDocumentMethodInfo
ResolveDOMElementMethod "getParentElement" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentElementMethodInfo
ResolveDOMElementMethod "getParentNode" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentNodeMethodInfo
ResolveDOMElementMethod "getPrefix" o = DOMElementGetPrefixMethodInfo
ResolveDOMElementMethod "getPreviousElementSibling" o = DOMElementGetPreviousElementSiblingMethodInfo
ResolveDOMElementMethod "getPreviousSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetPreviousSiblingMethodInfo
ResolveDOMElementMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMElementMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMElementMethod "getScrollHeight" o = DOMElementGetScrollHeightMethodInfo
ResolveDOMElementMethod "getScrollLeft" o = DOMElementGetScrollLeftMethodInfo
ResolveDOMElementMethod "getScrollTop" o = DOMElementGetScrollTopMethodInfo
ResolveDOMElementMethod "getScrollWidth" o = DOMElementGetScrollWidthMethodInfo
ResolveDOMElementMethod "getStyle" o = DOMElementGetStyleMethodInfo
ResolveDOMElementMethod "getTagName" o = DOMElementGetTagNameMethodInfo
ResolveDOMElementMethod "getTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeGetTextContentMethodInfo
ResolveDOMElementMethod "getWebkitRegionOverset" o = DOMElementGetWebkitRegionOversetMethodInfo
ResolveDOMElementMethod "setAttribute" o = DOMElementSetAttributeMethodInfo
ResolveDOMElementMethod "setAttributeNode" o = DOMElementSetAttributeNodeMethodInfo
ResolveDOMElementMethod "setAttributeNodeNs" o = DOMElementSetAttributeNodeNsMethodInfo
ResolveDOMElementMethod "setAttributeNs" o = DOMElementSetAttributeNsMethodInfo
ResolveDOMElementMethod "setClassName" o = DOMElementSetClassNameMethodInfo
ResolveDOMElementMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMElementMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMElementMethod "setId" o = DOMElementSetIdMethodInfo
ResolveDOMElementMethod "setInnerHtml" o = DOMElementSetInnerHtmlMethodInfo
ResolveDOMElementMethod "setNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeSetNodeValueMethodInfo
ResolveDOMElementMethod "setOuterHtml" o = DOMElementSetOuterHtmlMethodInfo
ResolveDOMElementMethod "setPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeSetPrefixMethodInfo
ResolveDOMElementMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMElementMethod "setScrollLeft" o = DOMElementSetScrollLeftMethodInfo
ResolveDOMElementMethod "setScrollTop" o = DOMElementSetScrollTopMethodInfo
ResolveDOMElementMethod "setTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeSetTextContentMethodInfo
ResolveDOMElementMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMElementMethod t DOMElement, O.MethodInfo info DOMElement p) => OL.IsLabel t (DOMElement -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getDOMElementAttributes :: (MonadIO m, IsDOMElement o) => o -> m (Maybe WebKit2WebExtension.DOMNamedNodeMap.DOMNamedNodeMap)
getDOMElementAttributes :: o -> m (Maybe DOMNamedNodeMap)
getDOMElementAttributes obj :: o
obj = IO (Maybe DOMNamedNodeMap) -> m (Maybe DOMNamedNodeMap)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DOMNamedNodeMap) -> m (Maybe DOMNamedNodeMap))
-> IO (Maybe DOMNamedNodeMap) -> m (Maybe DOMNamedNodeMap)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMNamedNodeMap -> DOMNamedNodeMap)
-> IO (Maybe DOMNamedNodeMap)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "attributes" ManagedPtr DOMNamedNodeMap -> DOMNamedNodeMap
WebKit2WebExtension.DOMNamedNodeMap.DOMNamedNodeMap
#if defined(ENABLE_OVERLOADING)
data DOMElementAttributesPropertyInfo
instance AttrInfo DOMElementAttributesPropertyInfo where
type AttrAllowedOps DOMElementAttributesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementAttributesPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementAttributesPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementAttributesPropertyInfo = (~) ()
type AttrTransferType DOMElementAttributesPropertyInfo = ()
type AttrGetType DOMElementAttributesPropertyInfo = (Maybe WebKit2WebExtension.DOMNamedNodeMap.DOMNamedNodeMap)
type AttrLabel DOMElementAttributesPropertyInfo = "attributes"
type AttrOrigin DOMElementAttributesPropertyInfo = DOMElement
attrGet = getDOMElementAttributes
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementChildElementCount :: (MonadIO m, IsDOMElement o) => o -> m CULong
getDOMElementChildElementCount :: o -> m CULong
getDOMElementChildElementCount obj :: o
obj = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CULong
forall a. GObject a => a -> String -> IO CULong
B.Properties.getObjectPropertyULong o
obj "child-element-count"
#if defined(ENABLE_OVERLOADING)
data DOMElementChildElementCountPropertyInfo
instance AttrInfo DOMElementChildElementCountPropertyInfo where
type AttrAllowedOps DOMElementChildElementCountPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMElementChildElementCountPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementChildElementCountPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementChildElementCountPropertyInfo = (~) ()
type AttrTransferType DOMElementChildElementCountPropertyInfo = ()
type AttrGetType DOMElementChildElementCountPropertyInfo = CULong
type AttrLabel DOMElementChildElementCountPropertyInfo = "child-element-count"
type AttrOrigin DOMElementChildElementCountPropertyInfo = DOMElement
attrGet = getDOMElementChildElementCount
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementChildren :: (MonadIO m, IsDOMElement o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMElementChildren :: o -> m (Maybe DOMHTMLCollection)
getDOMElementChildren obj :: o
obj = IO (Maybe DOMHTMLCollection) -> m (Maybe DOMHTMLCollection)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DOMHTMLCollection) -> m (Maybe DOMHTMLCollection))
-> IO (Maybe DOMHTMLCollection) -> m (Maybe DOMHTMLCollection)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMHTMLCollection -> DOMHTMLCollection)
-> IO (Maybe DOMHTMLCollection)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "children" ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
#if defined(ENABLE_OVERLOADING)
data DOMElementChildrenPropertyInfo
instance AttrInfo DOMElementChildrenPropertyInfo where
type AttrAllowedOps DOMElementChildrenPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementChildrenPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementChildrenPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementChildrenPropertyInfo = (~) ()
type AttrTransferType DOMElementChildrenPropertyInfo = ()
type AttrGetType DOMElementChildrenPropertyInfo = (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
type AttrLabel DOMElementChildrenPropertyInfo = "children"
type AttrOrigin DOMElementChildrenPropertyInfo = DOMElement
attrGet = getDOMElementChildren
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementClassList :: (MonadIO m, IsDOMElement o) => o -> m (Maybe WebKit2WebExtension.DOMDOMTokenList.DOMDOMTokenList)
getDOMElementClassList :: o -> m (Maybe DOMDOMTokenList)
getDOMElementClassList obj :: o
obj = IO (Maybe DOMDOMTokenList) -> m (Maybe DOMDOMTokenList)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DOMDOMTokenList) -> m (Maybe DOMDOMTokenList))
-> IO (Maybe DOMDOMTokenList) -> m (Maybe DOMDOMTokenList)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMDOMTokenList -> DOMDOMTokenList)
-> IO (Maybe DOMDOMTokenList)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "class-list" ManagedPtr DOMDOMTokenList -> DOMDOMTokenList
WebKit2WebExtension.DOMDOMTokenList.DOMDOMTokenList
#if defined(ENABLE_OVERLOADING)
data DOMElementClassListPropertyInfo
instance AttrInfo DOMElementClassListPropertyInfo where
type AttrAllowedOps DOMElementClassListPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementClassListPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementClassListPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementClassListPropertyInfo = (~) ()
type AttrTransferType DOMElementClassListPropertyInfo = ()
type AttrGetType DOMElementClassListPropertyInfo = (Maybe WebKit2WebExtension.DOMDOMTokenList.DOMDOMTokenList)
type AttrLabel DOMElementClassListPropertyInfo = "class-list"
type AttrOrigin DOMElementClassListPropertyInfo = DOMElement
attrGet = getDOMElementClassList
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementClassName :: (MonadIO m, IsDOMElement o) => o -> m (Maybe T.Text)
getDOMElementClassName :: o -> m (Maybe Text)
getDOMElementClassName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "class-name"
setDOMElementClassName :: (MonadIO m, IsDOMElement o) => o -> T.Text -> m ()
setDOMElementClassName :: o -> Text -> m ()
setDOMElementClassName obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "class-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMElementClassName :: (IsDOMElement o) => T.Text -> IO (GValueConstruct o)
constructDOMElementClassName :: Text -> IO (GValueConstruct o)
constructDOMElementClassName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "class-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMElementClassNamePropertyInfo
instance AttrInfo DOMElementClassNamePropertyInfo where
type AttrAllowedOps DOMElementClassNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMElementClassNamePropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementClassNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMElementClassNamePropertyInfo = (~) T.Text
type AttrTransferType DOMElementClassNamePropertyInfo = T.Text
type AttrGetType DOMElementClassNamePropertyInfo = (Maybe T.Text)
type AttrLabel DOMElementClassNamePropertyInfo = "class-name"
type AttrOrigin DOMElementClassNamePropertyInfo = DOMElement
attrGet = getDOMElementClassName
attrSet = setDOMElementClassName
attrTransfer _ v = do
return v
attrConstruct = constructDOMElementClassName
attrClear = undefined
#endif
getDOMElementClientHeight :: (MonadIO m, IsDOMElement o) => o -> m Double
getDOMElementClientHeight :: o -> m Double
getDOMElementClientHeight obj :: o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj "client-height"
#if defined(ENABLE_OVERLOADING)
data DOMElementClientHeightPropertyInfo
instance AttrInfo DOMElementClientHeightPropertyInfo where
type AttrAllowedOps DOMElementClientHeightPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMElementClientHeightPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementClientHeightPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementClientHeightPropertyInfo = (~) ()
type AttrTransferType DOMElementClientHeightPropertyInfo = ()
type AttrGetType DOMElementClientHeightPropertyInfo = Double
type AttrLabel DOMElementClientHeightPropertyInfo = "client-height"
type AttrOrigin DOMElementClientHeightPropertyInfo = DOMElement
attrGet = getDOMElementClientHeight
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementClientLeft :: (MonadIO m, IsDOMElement o) => o -> m Double
getDOMElementClientLeft :: o -> m Double
getDOMElementClientLeft obj :: o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj "client-left"
#if defined(ENABLE_OVERLOADING)
data DOMElementClientLeftPropertyInfo
instance AttrInfo DOMElementClientLeftPropertyInfo where
type AttrAllowedOps DOMElementClientLeftPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMElementClientLeftPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementClientLeftPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementClientLeftPropertyInfo = (~) ()
type AttrTransferType DOMElementClientLeftPropertyInfo = ()
type AttrGetType DOMElementClientLeftPropertyInfo = Double
type AttrLabel DOMElementClientLeftPropertyInfo = "client-left"
type AttrOrigin DOMElementClientLeftPropertyInfo = DOMElement
attrGet = getDOMElementClientLeft
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementClientTop :: (MonadIO m, IsDOMElement o) => o -> m Double
getDOMElementClientTop :: o -> m Double
getDOMElementClientTop obj :: o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj "client-top"
#if defined(ENABLE_OVERLOADING)
data DOMElementClientTopPropertyInfo
instance AttrInfo DOMElementClientTopPropertyInfo where
type AttrAllowedOps DOMElementClientTopPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMElementClientTopPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementClientTopPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementClientTopPropertyInfo = (~) ()
type AttrTransferType DOMElementClientTopPropertyInfo = ()
type AttrGetType DOMElementClientTopPropertyInfo = Double
type AttrLabel DOMElementClientTopPropertyInfo = "client-top"
type AttrOrigin DOMElementClientTopPropertyInfo = DOMElement
attrGet = getDOMElementClientTop
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementClientWidth :: (MonadIO m, IsDOMElement o) => o -> m Double
getDOMElementClientWidth :: o -> m Double
getDOMElementClientWidth obj :: o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj "client-width"
#if defined(ENABLE_OVERLOADING)
data DOMElementClientWidthPropertyInfo
instance AttrInfo DOMElementClientWidthPropertyInfo where
type AttrAllowedOps DOMElementClientWidthPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMElementClientWidthPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementClientWidthPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementClientWidthPropertyInfo = (~) ()
type AttrTransferType DOMElementClientWidthPropertyInfo = ()
type AttrGetType DOMElementClientWidthPropertyInfo = Double
type AttrLabel DOMElementClientWidthPropertyInfo = "client-width"
type AttrOrigin DOMElementClientWidthPropertyInfo = DOMElement
attrGet = getDOMElementClientWidth
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementFirstElementChild :: (MonadIO m, IsDOMElement o) => o -> m DOMElement
getDOMElementFirstElementChild :: o -> m DOMElement
getDOMElementFirstElementChild obj :: o
obj = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMElement) -> IO DOMElement
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getDOMElementFirstElementChild" (IO (Maybe DOMElement) -> IO DOMElement)
-> IO (Maybe DOMElement) -> IO DOMElement
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMElement -> DOMElement)
-> IO (Maybe DOMElement)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "first-element-child" ManagedPtr DOMElement -> DOMElement
DOMElement
#if defined(ENABLE_OVERLOADING)
data DOMElementFirstElementChildPropertyInfo
instance AttrInfo DOMElementFirstElementChildPropertyInfo where
type AttrAllowedOps DOMElementFirstElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementFirstElementChildPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementFirstElementChildPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementFirstElementChildPropertyInfo = (~) ()
type AttrTransferType DOMElementFirstElementChildPropertyInfo = ()
type AttrGetType DOMElementFirstElementChildPropertyInfo = DOMElement
type AttrLabel DOMElementFirstElementChildPropertyInfo = "first-element-child"
type AttrOrigin DOMElementFirstElementChildPropertyInfo = DOMElement
attrGet = getDOMElementFirstElementChild
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementId :: (MonadIO m, IsDOMElement o) => o -> m (Maybe T.Text)
getDOMElementId :: o -> m (Maybe Text)
getDOMElementId obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "id"
setDOMElementId :: (MonadIO m, IsDOMElement o) => o -> T.Text -> m ()
setDOMElementId :: o -> Text -> m ()
setDOMElementId obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "id" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMElementId :: (IsDOMElement o) => T.Text -> IO (GValueConstruct o)
constructDOMElementId :: Text -> IO (GValueConstruct o)
constructDOMElementId val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "id" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMElementIdPropertyInfo
instance AttrInfo DOMElementIdPropertyInfo where
type AttrAllowedOps DOMElementIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMElementIdPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementIdPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMElementIdPropertyInfo = (~) T.Text
type AttrTransferType DOMElementIdPropertyInfo = T.Text
type AttrGetType DOMElementIdPropertyInfo = (Maybe T.Text)
type AttrLabel DOMElementIdPropertyInfo = "id"
type AttrOrigin DOMElementIdPropertyInfo = DOMElement
attrGet = getDOMElementId
attrSet = setDOMElementId
attrTransfer _ v = do
return v
attrConstruct = constructDOMElementId
attrClear = undefined
#endif
getDOMElementInnerHtml :: (MonadIO m, IsDOMElement o) => o -> m (Maybe T.Text)
getDOMElementInnerHtml :: o -> m (Maybe Text)
getDOMElementInnerHtml obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "inner-html"
setDOMElementInnerHtml :: (MonadIO m, IsDOMElement o) => o -> T.Text -> m ()
setDOMElementInnerHtml :: o -> Text -> m ()
setDOMElementInnerHtml obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "inner-html" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMElementInnerHtml :: (IsDOMElement o) => T.Text -> IO (GValueConstruct o)
constructDOMElementInnerHtml :: Text -> IO (GValueConstruct o)
constructDOMElementInnerHtml val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "inner-html" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearDOMElementInnerHtml :: (MonadIO m, IsDOMElement o) => o -> m ()
clearDOMElementInnerHtml :: o -> m ()
clearDOMElementInnerHtml obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "inner-html" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data DOMElementInnerHtmlPropertyInfo
instance AttrInfo DOMElementInnerHtmlPropertyInfo where
type AttrAllowedOps DOMElementInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementInnerHtmlPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementInnerHtmlPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMElementInnerHtmlPropertyInfo = (~) T.Text
type AttrTransferType DOMElementInnerHtmlPropertyInfo = T.Text
type AttrGetType DOMElementInnerHtmlPropertyInfo = (Maybe T.Text)
type AttrLabel DOMElementInnerHtmlPropertyInfo = "inner-html"
type AttrOrigin DOMElementInnerHtmlPropertyInfo = DOMElement
attrGet = getDOMElementInnerHtml
attrSet = setDOMElementInnerHtml
attrTransfer _ v = do
return v
attrConstruct = constructDOMElementInnerHtml
attrClear = clearDOMElementInnerHtml
#endif
getDOMElementLastElementChild :: (MonadIO m, IsDOMElement o) => o -> m DOMElement
getDOMElementLastElementChild :: o -> m DOMElement
getDOMElementLastElementChild obj :: o
obj = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMElement) -> IO DOMElement
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getDOMElementLastElementChild" (IO (Maybe DOMElement) -> IO DOMElement)
-> IO (Maybe DOMElement) -> IO DOMElement
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMElement -> DOMElement)
-> IO (Maybe DOMElement)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "last-element-child" ManagedPtr DOMElement -> DOMElement
DOMElement
#if defined(ENABLE_OVERLOADING)
data DOMElementLastElementChildPropertyInfo
instance AttrInfo DOMElementLastElementChildPropertyInfo where
type AttrAllowedOps DOMElementLastElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementLastElementChildPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementLastElementChildPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementLastElementChildPropertyInfo = (~) ()
type AttrTransferType DOMElementLastElementChildPropertyInfo = ()
type AttrGetType DOMElementLastElementChildPropertyInfo = DOMElement
type AttrLabel DOMElementLastElementChildPropertyInfo = "last-element-child"
type AttrOrigin DOMElementLastElementChildPropertyInfo = DOMElement
attrGet = getDOMElementLastElementChild
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementLocalName :: (MonadIO m, IsDOMElement o) => o -> m (Maybe T.Text)
getDOMElementLocalName :: o -> m (Maybe Text)
getDOMElementLocalName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "local-name"
#if defined(ENABLE_OVERLOADING)
data DOMElementLocalNamePropertyInfo
instance AttrInfo DOMElementLocalNamePropertyInfo where
type AttrAllowedOps DOMElementLocalNamePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementLocalNamePropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementLocalNamePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementLocalNamePropertyInfo = (~) ()
type AttrTransferType DOMElementLocalNamePropertyInfo = ()
type AttrGetType DOMElementLocalNamePropertyInfo = (Maybe T.Text)
type AttrLabel DOMElementLocalNamePropertyInfo = "local-name"
type AttrOrigin DOMElementLocalNamePropertyInfo = DOMElement
attrGet = getDOMElementLocalName
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementNamespaceUri :: (MonadIO m, IsDOMElement o) => o -> m (Maybe T.Text)
getDOMElementNamespaceUri :: o -> m (Maybe Text)
getDOMElementNamespaceUri obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "namespace-uri"
#if defined(ENABLE_OVERLOADING)
data DOMElementNamespaceUriPropertyInfo
instance AttrInfo DOMElementNamespaceUriPropertyInfo where
type AttrAllowedOps DOMElementNamespaceUriPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementNamespaceUriPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementNamespaceUriPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementNamespaceUriPropertyInfo = (~) ()
type AttrTransferType DOMElementNamespaceUriPropertyInfo = ()
type AttrGetType DOMElementNamespaceUriPropertyInfo = (Maybe T.Text)
type AttrLabel DOMElementNamespaceUriPropertyInfo = "namespace-uri"
type AttrOrigin DOMElementNamespaceUriPropertyInfo = DOMElement
attrGet = getDOMElementNamespaceUri
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementNextElementSibling :: (MonadIO m, IsDOMElement o) => o -> m DOMElement
getDOMElementNextElementSibling :: o -> m DOMElement
getDOMElementNextElementSibling obj :: o
obj = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMElement) -> IO DOMElement
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getDOMElementNextElementSibling" (IO (Maybe DOMElement) -> IO DOMElement)
-> IO (Maybe DOMElement) -> IO DOMElement
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMElement -> DOMElement)
-> IO (Maybe DOMElement)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "next-element-sibling" ManagedPtr DOMElement -> DOMElement
DOMElement
#if defined(ENABLE_OVERLOADING)
data DOMElementNextElementSiblingPropertyInfo
instance AttrInfo DOMElementNextElementSiblingPropertyInfo where
type AttrAllowedOps DOMElementNextElementSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementNextElementSiblingPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementNextElementSiblingPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementNextElementSiblingPropertyInfo = (~) ()
type AttrTransferType DOMElementNextElementSiblingPropertyInfo = ()
type AttrGetType DOMElementNextElementSiblingPropertyInfo = DOMElement
type AttrLabel DOMElementNextElementSiblingPropertyInfo = "next-element-sibling"
type AttrOrigin DOMElementNextElementSiblingPropertyInfo = DOMElement
attrGet = getDOMElementNextElementSibling
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementOffsetHeight :: (MonadIO m, IsDOMElement o) => o -> m Double
getDOMElementOffsetHeight :: o -> m Double
getDOMElementOffsetHeight obj :: o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj "offset-height"
#if defined(ENABLE_OVERLOADING)
data DOMElementOffsetHeightPropertyInfo
instance AttrInfo DOMElementOffsetHeightPropertyInfo where
type AttrAllowedOps DOMElementOffsetHeightPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMElementOffsetHeightPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementOffsetHeightPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementOffsetHeightPropertyInfo = (~) ()
type AttrTransferType DOMElementOffsetHeightPropertyInfo = ()
type AttrGetType DOMElementOffsetHeightPropertyInfo = Double
type AttrLabel DOMElementOffsetHeightPropertyInfo = "offset-height"
type AttrOrigin DOMElementOffsetHeightPropertyInfo = DOMElement
attrGet = getDOMElementOffsetHeight
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementOffsetLeft :: (MonadIO m, IsDOMElement o) => o -> m Double
getDOMElementOffsetLeft :: o -> m Double
getDOMElementOffsetLeft obj :: o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj "offset-left"
#if defined(ENABLE_OVERLOADING)
data DOMElementOffsetLeftPropertyInfo
instance AttrInfo DOMElementOffsetLeftPropertyInfo where
type AttrAllowedOps DOMElementOffsetLeftPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMElementOffsetLeftPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementOffsetLeftPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementOffsetLeftPropertyInfo = (~) ()
type AttrTransferType DOMElementOffsetLeftPropertyInfo = ()
type AttrGetType DOMElementOffsetLeftPropertyInfo = Double
type AttrLabel DOMElementOffsetLeftPropertyInfo = "offset-left"
type AttrOrigin DOMElementOffsetLeftPropertyInfo = DOMElement
attrGet = getDOMElementOffsetLeft
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementOffsetParent :: (MonadIO m, IsDOMElement o) => o -> m DOMElement
getDOMElementOffsetParent :: o -> m DOMElement
getDOMElementOffsetParent obj :: o
obj = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMElement) -> IO DOMElement
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getDOMElementOffsetParent" (IO (Maybe DOMElement) -> IO DOMElement)
-> IO (Maybe DOMElement) -> IO DOMElement
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMElement -> DOMElement)
-> IO (Maybe DOMElement)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "offset-parent" ManagedPtr DOMElement -> DOMElement
DOMElement
#if defined(ENABLE_OVERLOADING)
data DOMElementOffsetParentPropertyInfo
instance AttrInfo DOMElementOffsetParentPropertyInfo where
type AttrAllowedOps DOMElementOffsetParentPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementOffsetParentPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementOffsetParentPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementOffsetParentPropertyInfo = (~) ()
type AttrTransferType DOMElementOffsetParentPropertyInfo = ()
type AttrGetType DOMElementOffsetParentPropertyInfo = DOMElement
type AttrLabel DOMElementOffsetParentPropertyInfo = "offset-parent"
type AttrOrigin DOMElementOffsetParentPropertyInfo = DOMElement
attrGet = getDOMElementOffsetParent
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementOffsetTop :: (MonadIO m, IsDOMElement o) => o -> m Double
getDOMElementOffsetTop :: o -> m Double
getDOMElementOffsetTop obj :: o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj "offset-top"
#if defined(ENABLE_OVERLOADING)
data DOMElementOffsetTopPropertyInfo
instance AttrInfo DOMElementOffsetTopPropertyInfo where
type AttrAllowedOps DOMElementOffsetTopPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMElementOffsetTopPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementOffsetTopPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementOffsetTopPropertyInfo = (~) ()
type AttrTransferType DOMElementOffsetTopPropertyInfo = ()
type AttrGetType DOMElementOffsetTopPropertyInfo = Double
type AttrLabel DOMElementOffsetTopPropertyInfo = "offset-top"
type AttrOrigin DOMElementOffsetTopPropertyInfo = DOMElement
attrGet = getDOMElementOffsetTop
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementOffsetWidth :: (MonadIO m, IsDOMElement o) => o -> m Double
getDOMElementOffsetWidth :: o -> m Double
getDOMElementOffsetWidth obj :: o
obj = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj "offset-width"
#if defined(ENABLE_OVERLOADING)
data DOMElementOffsetWidthPropertyInfo
instance AttrInfo DOMElementOffsetWidthPropertyInfo where
type AttrAllowedOps DOMElementOffsetWidthPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMElementOffsetWidthPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementOffsetWidthPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementOffsetWidthPropertyInfo = (~) ()
type AttrTransferType DOMElementOffsetWidthPropertyInfo = ()
type AttrGetType DOMElementOffsetWidthPropertyInfo = Double
type AttrLabel DOMElementOffsetWidthPropertyInfo = "offset-width"
type AttrOrigin DOMElementOffsetWidthPropertyInfo = DOMElement
attrGet = getDOMElementOffsetWidth
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementOuterHtml :: (MonadIO m, IsDOMElement o) => o -> m (Maybe T.Text)
getDOMElementOuterHtml :: o -> m (Maybe Text)
getDOMElementOuterHtml obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "outer-html"
setDOMElementOuterHtml :: (MonadIO m, IsDOMElement o) => o -> T.Text -> m ()
setDOMElementOuterHtml :: o -> Text -> m ()
setDOMElementOuterHtml obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "outer-html" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMElementOuterHtml :: (IsDOMElement o) => T.Text -> IO (GValueConstruct o)
constructDOMElementOuterHtml :: Text -> IO (GValueConstruct o)
constructDOMElementOuterHtml val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "outer-html" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearDOMElementOuterHtml :: (MonadIO m, IsDOMElement o) => o -> m ()
clearDOMElementOuterHtml :: o -> m ()
clearDOMElementOuterHtml obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "outer-html" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data DOMElementOuterHtmlPropertyInfo
instance AttrInfo DOMElementOuterHtmlPropertyInfo where
type AttrAllowedOps DOMElementOuterHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementOuterHtmlPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementOuterHtmlPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMElementOuterHtmlPropertyInfo = (~) T.Text
type AttrTransferType DOMElementOuterHtmlPropertyInfo = T.Text
type AttrGetType DOMElementOuterHtmlPropertyInfo = (Maybe T.Text)
type AttrLabel DOMElementOuterHtmlPropertyInfo = "outer-html"
type AttrOrigin DOMElementOuterHtmlPropertyInfo = DOMElement
attrGet = getDOMElementOuterHtml
attrSet = setDOMElementOuterHtml
attrTransfer _ v = do
return v
attrConstruct = constructDOMElementOuterHtml
attrClear = clearDOMElementOuterHtml
#endif
getDOMElementPrefix :: (MonadIO m, IsDOMElement o) => o -> m (Maybe T.Text)
getDOMElementPrefix :: o -> m (Maybe Text)
getDOMElementPrefix obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "prefix"
#if defined(ENABLE_OVERLOADING)
data DOMElementPrefixPropertyInfo
instance AttrInfo DOMElementPrefixPropertyInfo where
type AttrAllowedOps DOMElementPrefixPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementPrefixPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementPrefixPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementPrefixPropertyInfo = (~) ()
type AttrTransferType DOMElementPrefixPropertyInfo = ()
type AttrGetType DOMElementPrefixPropertyInfo = (Maybe T.Text)
type AttrLabel DOMElementPrefixPropertyInfo = "prefix"
type AttrOrigin DOMElementPrefixPropertyInfo = DOMElement
attrGet = getDOMElementPrefix
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementPreviousElementSibling :: (MonadIO m, IsDOMElement o) => o -> m DOMElement
getDOMElementPreviousElementSibling :: o -> m DOMElement
getDOMElementPreviousElementSibling obj :: o
obj = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMElement) -> IO DOMElement
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getDOMElementPreviousElementSibling" (IO (Maybe DOMElement) -> IO DOMElement)
-> IO (Maybe DOMElement) -> IO DOMElement
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMElement -> DOMElement)
-> IO (Maybe DOMElement)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "previous-element-sibling" ManagedPtr DOMElement -> DOMElement
DOMElement
#if defined(ENABLE_OVERLOADING)
data DOMElementPreviousElementSiblingPropertyInfo
instance AttrInfo DOMElementPreviousElementSiblingPropertyInfo where
type AttrAllowedOps DOMElementPreviousElementSiblingPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = (~) ()
type AttrTransferType DOMElementPreviousElementSiblingPropertyInfo = ()
type AttrGetType DOMElementPreviousElementSiblingPropertyInfo = DOMElement
type AttrLabel DOMElementPreviousElementSiblingPropertyInfo = "previous-element-sibling"
type AttrOrigin DOMElementPreviousElementSiblingPropertyInfo = DOMElement
attrGet = getDOMElementPreviousElementSibling
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementScrollHeight :: (MonadIO m, IsDOMElement o) => o -> m CLong
getDOMElementScrollHeight :: o -> m CLong
getDOMElementScrollHeight obj :: o
obj = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj "scroll-height"
#if defined(ENABLE_OVERLOADING)
data DOMElementScrollHeightPropertyInfo
instance AttrInfo DOMElementScrollHeightPropertyInfo where
type AttrAllowedOps DOMElementScrollHeightPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMElementScrollHeightPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementScrollHeightPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementScrollHeightPropertyInfo = (~) ()
type AttrTransferType DOMElementScrollHeightPropertyInfo = ()
type AttrGetType DOMElementScrollHeightPropertyInfo = CLong
type AttrLabel DOMElementScrollHeightPropertyInfo = "scroll-height"
type AttrOrigin DOMElementScrollHeightPropertyInfo = DOMElement
attrGet = getDOMElementScrollHeight
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementScrollLeft :: (MonadIO m, IsDOMElement o) => o -> m CLong
getDOMElementScrollLeft :: o -> m CLong
getDOMElementScrollLeft obj :: o
obj = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj "scroll-left"
setDOMElementScrollLeft :: (MonadIO m, IsDOMElement o) => o -> CLong -> m ()
setDOMElementScrollLeft :: o -> CLong -> m ()
setDOMElementScrollLeft obj :: o
obj val :: CLong
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> CLong -> IO ()
forall a. GObject a => a -> String -> CLong -> IO ()
B.Properties.setObjectPropertyLong o
obj "scroll-left" CLong
val
constructDOMElementScrollLeft :: (IsDOMElement o) => CLong -> IO (GValueConstruct o)
constructDOMElementScrollLeft :: CLong -> IO (GValueConstruct o)
constructDOMElementScrollLeft val :: CLong
val = String -> CLong -> IO (GValueConstruct o)
forall o. String -> CLong -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyLong "scroll-left" CLong
val
#if defined(ENABLE_OVERLOADING)
data DOMElementScrollLeftPropertyInfo
instance AttrInfo DOMElementScrollLeftPropertyInfo where
type AttrAllowedOps DOMElementScrollLeftPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMElementScrollLeftPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementScrollLeftPropertyInfo = (~) CLong
type AttrTransferTypeConstraint DOMElementScrollLeftPropertyInfo = (~) CLong
type AttrTransferType DOMElementScrollLeftPropertyInfo = CLong
type AttrGetType DOMElementScrollLeftPropertyInfo = CLong
type AttrLabel DOMElementScrollLeftPropertyInfo = "scroll-left"
type AttrOrigin DOMElementScrollLeftPropertyInfo = DOMElement
attrGet = getDOMElementScrollLeft
attrSet = setDOMElementScrollLeft
attrTransfer _ v = do
return v
attrConstruct = constructDOMElementScrollLeft
attrClear = undefined
#endif
getDOMElementScrollTop :: (MonadIO m, IsDOMElement o) => o -> m CLong
getDOMElementScrollTop :: o -> m CLong
getDOMElementScrollTop obj :: o
obj = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj "scroll-top"
setDOMElementScrollTop :: (MonadIO m, IsDOMElement o) => o -> CLong -> m ()
setDOMElementScrollTop :: o -> CLong -> m ()
setDOMElementScrollTop obj :: o
obj val :: CLong
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> CLong -> IO ()
forall a. GObject a => a -> String -> CLong -> IO ()
B.Properties.setObjectPropertyLong o
obj "scroll-top" CLong
val
constructDOMElementScrollTop :: (IsDOMElement o) => CLong -> IO (GValueConstruct o)
constructDOMElementScrollTop :: CLong -> IO (GValueConstruct o)
constructDOMElementScrollTop val :: CLong
val = String -> CLong -> IO (GValueConstruct o)
forall o. String -> CLong -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyLong "scroll-top" CLong
val
#if defined(ENABLE_OVERLOADING)
data DOMElementScrollTopPropertyInfo
instance AttrInfo DOMElementScrollTopPropertyInfo where
type AttrAllowedOps DOMElementScrollTopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMElementScrollTopPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementScrollTopPropertyInfo = (~) CLong
type AttrTransferTypeConstraint DOMElementScrollTopPropertyInfo = (~) CLong
type AttrTransferType DOMElementScrollTopPropertyInfo = CLong
type AttrGetType DOMElementScrollTopPropertyInfo = CLong
type AttrLabel DOMElementScrollTopPropertyInfo = "scroll-top"
type AttrOrigin DOMElementScrollTopPropertyInfo = DOMElement
attrGet = getDOMElementScrollTop
attrSet = setDOMElementScrollTop
attrTransfer _ v = do
return v
attrConstruct = constructDOMElementScrollTop
attrClear = undefined
#endif
getDOMElementScrollWidth :: (MonadIO m, IsDOMElement o) => o -> m CLong
getDOMElementScrollWidth :: o -> m CLong
getDOMElementScrollWidth obj :: o
obj = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj "scroll-width"
#if defined(ENABLE_OVERLOADING)
data DOMElementScrollWidthPropertyInfo
instance AttrInfo DOMElementScrollWidthPropertyInfo where
type AttrAllowedOps DOMElementScrollWidthPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMElementScrollWidthPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementScrollWidthPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementScrollWidthPropertyInfo = (~) ()
type AttrTransferType DOMElementScrollWidthPropertyInfo = ()
type AttrGetType DOMElementScrollWidthPropertyInfo = CLong
type AttrLabel DOMElementScrollWidthPropertyInfo = "scroll-width"
type AttrOrigin DOMElementScrollWidthPropertyInfo = DOMElement
attrGet = getDOMElementScrollWidth
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementStyle :: (MonadIO m, IsDOMElement o) => o -> m (Maybe WebKit2WebExtension.DOMCSSStyleDeclaration.DOMCSSStyleDeclaration)
getDOMElementStyle :: o -> m (Maybe DOMCSSStyleDeclaration)
getDOMElementStyle obj :: o
obj = IO (Maybe DOMCSSStyleDeclaration)
-> m (Maybe DOMCSSStyleDeclaration)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DOMCSSStyleDeclaration)
-> m (Maybe DOMCSSStyleDeclaration))
-> IO (Maybe DOMCSSStyleDeclaration)
-> m (Maybe DOMCSSStyleDeclaration)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMCSSStyleDeclaration -> DOMCSSStyleDeclaration)
-> IO (Maybe DOMCSSStyleDeclaration)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "style" ManagedPtr DOMCSSStyleDeclaration -> DOMCSSStyleDeclaration
WebKit2WebExtension.DOMCSSStyleDeclaration.DOMCSSStyleDeclaration
#if defined(ENABLE_OVERLOADING)
data DOMElementStylePropertyInfo
instance AttrInfo DOMElementStylePropertyInfo where
type AttrAllowedOps DOMElementStylePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementStylePropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementStylePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementStylePropertyInfo = (~) ()
type AttrTransferType DOMElementStylePropertyInfo = ()
type AttrGetType DOMElementStylePropertyInfo = (Maybe WebKit2WebExtension.DOMCSSStyleDeclaration.DOMCSSStyleDeclaration)
type AttrLabel DOMElementStylePropertyInfo = "style"
type AttrOrigin DOMElementStylePropertyInfo = DOMElement
attrGet = getDOMElementStyle
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementTagName :: (MonadIO m, IsDOMElement o) => o -> m (Maybe T.Text)
getDOMElementTagName :: o -> m (Maybe Text)
getDOMElementTagName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "tag-name"
#if defined(ENABLE_OVERLOADING)
data DOMElementTagNamePropertyInfo
instance AttrInfo DOMElementTagNamePropertyInfo where
type AttrAllowedOps DOMElementTagNamePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementTagNamePropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementTagNamePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementTagNamePropertyInfo = (~) ()
type AttrTransferType DOMElementTagNamePropertyInfo = ()
type AttrGetType DOMElementTagNamePropertyInfo = (Maybe T.Text)
type AttrLabel DOMElementTagNamePropertyInfo = "tag-name"
type AttrOrigin DOMElementTagNamePropertyInfo = DOMElement
attrGet = getDOMElementTagName
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMElementWebkitRegionOverset :: (MonadIO m, IsDOMElement o) => o -> m (Maybe T.Text)
getDOMElementWebkitRegionOverset :: o -> m (Maybe Text)
getDOMElementWebkitRegionOverset obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "webkit-region-overset"
#if defined(ENABLE_OVERLOADING)
data DOMElementWebkitRegionOversetPropertyInfo
instance AttrInfo DOMElementWebkitRegionOversetPropertyInfo where
type AttrAllowedOps DOMElementWebkitRegionOversetPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = IsDOMElement
type AttrSetTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = (~) ()
type AttrTransferType DOMElementWebkitRegionOversetPropertyInfo = ()
type AttrGetType DOMElementWebkitRegionOversetPropertyInfo = (Maybe T.Text)
type AttrLabel DOMElementWebkitRegionOversetPropertyInfo = "webkit-region-overset"
type AttrOrigin DOMElementWebkitRegionOversetPropertyInfo = DOMElement
attrGet = getDOMElementWebkitRegionOverset
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMElement
type instance O.AttributeList DOMElement = DOMElementAttributeList
type DOMElementAttributeList = ('[ '("attributes", DOMElementAttributesPropertyInfo), '("baseUri", WebKit2WebExtension.DOMNode.DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMElementChildElementCountPropertyInfo), '("childNodes", WebKit2WebExtension.DOMNode.DOMNodeChildNodesPropertyInfo), '("children", DOMElementChildrenPropertyInfo), '("classList", DOMElementClassListPropertyInfo), '("className", DOMElementClassNamePropertyInfo), '("clientHeight", DOMElementClientHeightPropertyInfo), '("clientLeft", DOMElementClientLeftPropertyInfo), '("clientTop", DOMElementClientTopPropertyInfo), '("clientWidth", DOMElementClientWidthPropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("firstChild", WebKit2WebExtension.DOMNode.DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMElementFirstElementChildPropertyInfo), '("id", DOMElementIdPropertyInfo), '("innerHtml", DOMElementInnerHtmlPropertyInfo), '("lastChild", WebKit2WebExtension.DOMNode.DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMElementLastElementChildPropertyInfo), '("localName", DOMElementLocalNamePropertyInfo), '("namespaceUri", DOMElementNamespaceUriPropertyInfo), '("nextElementSibling", DOMElementNextElementSiblingPropertyInfo), '("nextSibling", WebKit2WebExtension.DOMNode.DOMNodeNextSiblingPropertyInfo), '("nodeName", WebKit2WebExtension.DOMNode.DOMNodeNodeNamePropertyInfo), '("nodeType", WebKit2WebExtension.DOMNode.DOMNodeNodeTypePropertyInfo), '("nodeValue", WebKit2WebExtension.DOMNode.DOMNodeNodeValuePropertyInfo), '("offsetHeight", DOMElementOffsetHeightPropertyInfo), '("offsetLeft", DOMElementOffsetLeftPropertyInfo), '("offsetParent", DOMElementOffsetParentPropertyInfo), '("offsetTop", DOMElementOffsetTopPropertyInfo), '("offsetWidth", DOMElementOffsetWidthPropertyInfo), '("outerHtml", DOMElementOuterHtmlPropertyInfo), '("ownerDocument", WebKit2WebExtension.DOMNode.DOMNodeOwnerDocumentPropertyInfo), '("parentElement", WebKit2WebExtension.DOMNode.DOMNodeParentElementPropertyInfo), '("parentNode", WebKit2WebExtension.DOMNode.DOMNodeParentNodePropertyInfo), '("prefix", DOMElementPrefixPropertyInfo), '("previousElementSibling", DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", WebKit2WebExtension.DOMNode.DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", DOMElementScrollHeightPropertyInfo), '("scrollLeft", DOMElementScrollLeftPropertyInfo), '("scrollTop", DOMElementScrollTopPropertyInfo), '("scrollWidth", DOMElementScrollWidthPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tagName", DOMElementTagNamePropertyInfo), '("textContent", WebKit2WebExtension.DOMNode.DOMNodeTextContentPropertyInfo), '("webkitRegionOverset", DOMElementWebkitRegionOversetPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMElementAttributes :: AttrLabelProxy "attributes"
dOMElementAttributes = AttrLabelProxy
dOMElementChildElementCount :: AttrLabelProxy "childElementCount"
dOMElementChildElementCount = AttrLabelProxy
dOMElementChildren :: AttrLabelProxy "children"
dOMElementChildren = AttrLabelProxy
dOMElementClassList :: AttrLabelProxy "classList"
dOMElementClassList = AttrLabelProxy
dOMElementClassName :: AttrLabelProxy "className"
dOMElementClassName = AttrLabelProxy
dOMElementClientHeight :: AttrLabelProxy "clientHeight"
dOMElementClientHeight = AttrLabelProxy
dOMElementClientLeft :: AttrLabelProxy "clientLeft"
dOMElementClientLeft = AttrLabelProxy
dOMElementClientTop :: AttrLabelProxy "clientTop"
dOMElementClientTop = AttrLabelProxy
dOMElementClientWidth :: AttrLabelProxy "clientWidth"
dOMElementClientWidth = AttrLabelProxy
dOMElementFirstElementChild :: AttrLabelProxy "firstElementChild"
dOMElementFirstElementChild = AttrLabelProxy
dOMElementId :: AttrLabelProxy "id"
dOMElementId = AttrLabelProxy
dOMElementInnerHtml :: AttrLabelProxy "innerHtml"
dOMElementInnerHtml = AttrLabelProxy
dOMElementLastElementChild :: AttrLabelProxy "lastElementChild"
dOMElementLastElementChild = AttrLabelProxy
dOMElementLocalName :: AttrLabelProxy "localName"
dOMElementLocalName = AttrLabelProxy
dOMElementNamespaceUri :: AttrLabelProxy "namespaceUri"
dOMElementNamespaceUri = AttrLabelProxy
dOMElementNextElementSibling :: AttrLabelProxy "nextElementSibling"
dOMElementNextElementSibling = AttrLabelProxy
dOMElementOffsetHeight :: AttrLabelProxy "offsetHeight"
dOMElementOffsetHeight = AttrLabelProxy
dOMElementOffsetLeft :: AttrLabelProxy "offsetLeft"
dOMElementOffsetLeft = AttrLabelProxy
dOMElementOffsetParent :: AttrLabelProxy "offsetParent"
dOMElementOffsetParent = AttrLabelProxy
dOMElementOffsetTop :: AttrLabelProxy "offsetTop"
dOMElementOffsetTop = AttrLabelProxy
dOMElementOffsetWidth :: AttrLabelProxy "offsetWidth"
dOMElementOffsetWidth = AttrLabelProxy
dOMElementOuterHtml :: AttrLabelProxy "outerHtml"
dOMElementOuterHtml = AttrLabelProxy
dOMElementPrefix :: AttrLabelProxy "prefix"
dOMElementPrefix = AttrLabelProxy
dOMElementPreviousElementSibling :: AttrLabelProxy "previousElementSibling"
dOMElementPreviousElementSibling = AttrLabelProxy
dOMElementScrollHeight :: AttrLabelProxy "scrollHeight"
dOMElementScrollHeight = AttrLabelProxy
dOMElementScrollLeft :: AttrLabelProxy "scrollLeft"
dOMElementScrollLeft = AttrLabelProxy
dOMElementScrollTop :: AttrLabelProxy "scrollTop"
dOMElementScrollTop = AttrLabelProxy
dOMElementScrollWidth :: AttrLabelProxy "scrollWidth"
dOMElementScrollWidth = AttrLabelProxy
dOMElementStyle :: AttrLabelProxy "style"
dOMElementStyle = AttrLabelProxy
dOMElementTagName :: AttrLabelProxy "tagName"
dOMElementTagName = AttrLabelProxy
dOMElementWebkitRegionOverset :: AttrLabelProxy "webkitRegionOverset"
dOMElementWebkitRegionOverset = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMElement = DOMElementSignalList
type DOMElementSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_element_blur" webkit_dom_element_blur ::
Ptr DOMElement ->
IO ()
{-# DEPRECATED dOMElementBlur ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementBlur ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m ()
dOMElementBlur :: a -> m ()
dOMElementBlur self :: a
self = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement -> IO ()
webkit_dom_element_blur Ptr DOMElement
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementBlurMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementBlurMethodInfo a signature where
overloadedMethod = dOMElementBlur
#endif
foreign import ccall "webkit_dom_element_closest" webkit_dom_element_closest ::
Ptr DOMElement ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr DOMElement)
{-# DEPRECATED dOMElementClosest ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementClosest ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m DOMElement
dOMElementClosest :: a -> Text -> m DOMElement
dOMElementClosest self :: a
self selectors :: Text
selectors = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
selectors' <- Text -> IO CString
textToCString Text
selectors
IO DOMElement -> IO () -> IO DOMElement
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMElement
result <- (Ptr (Ptr GError) -> IO (Ptr DOMElement)) -> IO (Ptr DOMElement)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMElement)) -> IO (Ptr DOMElement))
-> (Ptr (Ptr GError) -> IO (Ptr DOMElement)) -> IO (Ptr DOMElement)
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement
-> CString -> Ptr (Ptr GError) -> IO (Ptr DOMElement)
webkit_dom_element_closest Ptr DOMElement
self' CString
selectors'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementClosest" Ptr DOMElement
result
DOMElement
result' <- ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
DOMElement) Ptr DOMElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selectors'
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selectors'
)
#if defined(ENABLE_OVERLOADING)
data DOMElementClosestMethodInfo
instance (signature ~ (T.Text -> m DOMElement), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementClosestMethodInfo a signature where
overloadedMethod = dOMElementClosest
#endif
foreign import ccall "webkit_dom_element_focus" webkit_dom_element_focus ::
Ptr DOMElement ->
IO ()
{-# DEPRECATED dOMElementFocus ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m ()
dOMElementFocus :: a -> m ()
dOMElementFocus self :: a
self = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement -> IO ()
webkit_dom_element_focus Ptr DOMElement
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementFocusMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementFocusMethodInfo a signature where
overloadedMethod = dOMElementFocus
#endif
foreign import ccall "webkit_dom_element_get_attribute" webkit_dom_element_get_attribute ::
Ptr DOMElement ->
CString ->
IO CString
{-# DEPRECATED dOMElementGetAttribute ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetAttribute ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m T.Text
dOMElementGetAttribute :: a -> Text -> m Text
dOMElementGetAttribute self :: a
self name :: Text
name = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
CString
result <- Ptr DOMElement -> CString -> IO CString
webkit_dom_element_get_attribute Ptr DOMElement
self' CString
name'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetAttribute" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetAttributeMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetAttributeMethodInfo a signature where
overloadedMethod = dOMElementGetAttribute
#endif
foreign import ccall "webkit_dom_element_get_attribute_node" webkit_dom_element_get_attribute_node ::
Ptr DOMElement ->
CString ->
IO (Ptr WebKit2WebExtension.DOMAttr.DOMAttr)
{-# DEPRECATED dOMElementGetAttributeNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetAttributeNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMAttr.DOMAttr
dOMElementGetAttributeNode :: a -> Text -> m DOMAttr
dOMElementGetAttributeNode self :: a
self name :: Text
name = IO DOMAttr -> m DOMAttr
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMAttr -> m DOMAttr) -> IO DOMAttr -> m DOMAttr
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr DOMAttr
result <- Ptr DOMElement -> CString -> IO (Ptr DOMAttr)
webkit_dom_element_get_attribute_node Ptr DOMElement
self' CString
name'
Text -> Ptr DOMAttr -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetAttributeNode" Ptr DOMAttr
result
DOMAttr
result' <- ((ManagedPtr DOMAttr -> DOMAttr) -> Ptr DOMAttr -> IO DOMAttr
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMAttr -> DOMAttr
WebKit2WebExtension.DOMAttr.DOMAttr) Ptr DOMAttr
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
DOMAttr -> IO DOMAttr
forall (m :: * -> *) a. Monad m => a -> m a
return DOMAttr
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetAttributeNodeMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMAttr.DOMAttr), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetAttributeNodeMethodInfo a signature where
overloadedMethod = dOMElementGetAttributeNode
#endif
foreign import ccall "webkit_dom_element_get_attribute_node_ns" webkit_dom_element_get_attribute_node_ns ::
Ptr DOMElement ->
CString ->
CString ->
IO (Ptr WebKit2WebExtension.DOMAttr.DOMAttr)
{-# DEPRECATED dOMElementGetAttributeNodeNs ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetAttributeNodeNs ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> T.Text
-> m WebKit2WebExtension.DOMAttr.DOMAttr
dOMElementGetAttributeNodeNs :: a -> Text -> Text -> m DOMAttr
dOMElementGetAttributeNodeNs self :: a
self namespaceURI :: Text
namespaceURI localName :: Text
localName = IO DOMAttr -> m DOMAttr
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMAttr -> m DOMAttr) -> IO DOMAttr -> m DOMAttr
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
namespaceURI' <- Text -> IO CString
textToCString Text
namespaceURI
CString
localName' <- Text -> IO CString
textToCString Text
localName
Ptr DOMAttr
result <- Ptr DOMElement -> CString -> CString -> IO (Ptr DOMAttr)
webkit_dom_element_get_attribute_node_ns Ptr DOMElement
self' CString
namespaceURI' CString
localName'
Text -> Ptr DOMAttr -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetAttributeNodeNs" Ptr DOMAttr
result
DOMAttr
result' <- ((ManagedPtr DOMAttr -> DOMAttr) -> Ptr DOMAttr -> IO DOMAttr
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMAttr -> DOMAttr
WebKit2WebExtension.DOMAttr.DOMAttr) Ptr DOMAttr
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
namespaceURI'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
localName'
DOMAttr -> IO DOMAttr
forall (m :: * -> *) a. Monad m => a -> m a
return DOMAttr
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetAttributeNodeNsMethodInfo
instance (signature ~ (T.Text -> T.Text -> m WebKit2WebExtension.DOMAttr.DOMAttr), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetAttributeNodeNsMethodInfo a signature where
overloadedMethod = dOMElementGetAttributeNodeNs
#endif
foreign import ccall "webkit_dom_element_get_attribute_ns" webkit_dom_element_get_attribute_ns ::
Ptr DOMElement ->
CString ->
CString ->
IO CString
{-# DEPRECATED dOMElementGetAttributeNs ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetAttributeNs ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> T.Text
-> m T.Text
dOMElementGetAttributeNs :: a -> Text -> Text -> m Text
dOMElementGetAttributeNs self :: a
self namespaceURI :: Text
namespaceURI localName :: Text
localName = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
namespaceURI' <- Text -> IO CString
textToCString Text
namespaceURI
CString
localName' <- Text -> IO CString
textToCString Text
localName
CString
result <- Ptr DOMElement -> CString -> CString -> IO CString
webkit_dom_element_get_attribute_ns Ptr DOMElement
self' CString
namespaceURI' CString
localName'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetAttributeNs" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
namespaceURI'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
localName'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetAttributeNsMethodInfo
instance (signature ~ (T.Text -> T.Text -> m T.Text), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetAttributeNsMethodInfo a signature where
overloadedMethod = dOMElementGetAttributeNs
#endif
foreign import ccall "webkit_dom_element_get_attributes" webkit_dom_element_get_attributes ::
Ptr DOMElement ->
IO (Ptr WebKit2WebExtension.DOMNamedNodeMap.DOMNamedNodeMap)
{-# DEPRECATED dOMElementGetAttributes ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetAttributes ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m WebKit2WebExtension.DOMNamedNodeMap.DOMNamedNodeMap
dOMElementGetAttributes :: a -> m DOMNamedNodeMap
dOMElementGetAttributes self :: a
self = IO DOMNamedNodeMap -> m DOMNamedNodeMap
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNamedNodeMap -> m DOMNamedNodeMap)
-> IO DOMNamedNodeMap -> m DOMNamedNodeMap
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNamedNodeMap
result <- Ptr DOMElement -> IO (Ptr DOMNamedNodeMap)
webkit_dom_element_get_attributes Ptr DOMElement
self'
Text -> Ptr DOMNamedNodeMap -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetAttributes" Ptr DOMNamedNodeMap
result
DOMNamedNodeMap
result' <- ((ManagedPtr DOMNamedNodeMap -> DOMNamedNodeMap)
-> Ptr DOMNamedNodeMap -> IO DOMNamedNodeMap
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMNamedNodeMap -> DOMNamedNodeMap
WebKit2WebExtension.DOMNamedNodeMap.DOMNamedNodeMap) Ptr DOMNamedNodeMap
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNamedNodeMap -> IO DOMNamedNodeMap
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNamedNodeMap
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetAttributesMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNamedNodeMap.DOMNamedNodeMap), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetAttributesMethodInfo a signature where
overloadedMethod = dOMElementGetAttributes
#endif
foreign import ccall "webkit_dom_element_get_bounding_client_rect" webkit_dom_element_get_bounding_client_rect ::
Ptr DOMElement ->
IO (Ptr WebKit2WebExtension.DOMClientRect.DOMClientRect)
{-# DEPRECATED dOMElementGetBoundingClientRect ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetBoundingClientRect ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m WebKit2WebExtension.DOMClientRect.DOMClientRect
dOMElementGetBoundingClientRect :: a -> m DOMClientRect
dOMElementGetBoundingClientRect self :: a
self = IO DOMClientRect -> m DOMClientRect
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMClientRect -> m DOMClientRect)
-> IO DOMClientRect -> m DOMClientRect
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMClientRect
result <- Ptr DOMElement -> IO (Ptr DOMClientRect)
webkit_dom_element_get_bounding_client_rect Ptr DOMElement
self'
Text -> Ptr DOMClientRect -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetBoundingClientRect" Ptr DOMClientRect
result
DOMClientRect
result' <- ((ManagedPtr DOMClientRect -> DOMClientRect)
-> Ptr DOMClientRect -> IO DOMClientRect
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMClientRect -> DOMClientRect
WebKit2WebExtension.DOMClientRect.DOMClientRect) Ptr DOMClientRect
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMClientRect -> IO DOMClientRect
forall (m :: * -> *) a. Monad m => a -> m a
return DOMClientRect
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetBoundingClientRectMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMClientRect.DOMClientRect), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetBoundingClientRectMethodInfo a signature where
overloadedMethod = dOMElementGetBoundingClientRect
#endif
foreign import ccall "webkit_dom_element_get_child_element_count" webkit_dom_element_get_child_element_count ::
Ptr DOMElement ->
IO CULong
{-# DEPRECATED dOMElementGetChildElementCount ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetChildElementCount ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m CULong
dOMElementGetChildElementCount :: a -> m CULong
dOMElementGetChildElementCount self :: a
self = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CULong
result <- Ptr DOMElement -> IO CULong
webkit_dom_element_get_child_element_count Ptr DOMElement
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result
#if defined(ENABLE_OVERLOADING)
data DOMElementGetChildElementCountMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetChildElementCountMethodInfo a signature where
overloadedMethod = dOMElementGetChildElementCount
#endif
foreign import ccall "webkit_dom_element_get_children" webkit_dom_element_get_children ::
Ptr DOMElement ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMElementGetChildren ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetChildren ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMElementGetChildren :: a -> m DOMHTMLCollection
dOMElementGetChildren self :: a
self = IO DOMHTMLCollection -> m DOMHTMLCollection
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMHTMLCollection -> m DOMHTMLCollection)
-> IO DOMHTMLCollection -> m DOMHTMLCollection
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLCollection
result <- Ptr DOMElement -> IO (Ptr DOMHTMLCollection)
webkit_dom_element_get_children Ptr DOMElement
self'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetChildren" Ptr DOMHTMLCollection
result
DOMHTMLCollection
result' <- ((ManagedPtr DOMHTMLCollection -> DOMHTMLCollection)
-> Ptr DOMHTMLCollection -> IO DOMHTMLCollection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection) Ptr DOMHTMLCollection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMHTMLCollection -> IO DOMHTMLCollection
forall (m :: * -> *) a. Monad m => a -> m a
return DOMHTMLCollection
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetChildrenMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetChildrenMethodInfo a signature where
overloadedMethod = dOMElementGetChildren
#endif
foreign import ccall "webkit_dom_element_get_class_list" webkit_dom_element_get_class_list ::
Ptr DOMElement ->
IO (Ptr WebKit2WebExtension.DOMDOMTokenList.DOMDOMTokenList)
{-# DEPRECATED dOMElementGetClassList ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetClassList ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m WebKit2WebExtension.DOMDOMTokenList.DOMDOMTokenList
dOMElementGetClassList :: a -> m DOMDOMTokenList
dOMElementGetClassList self :: a
self = IO DOMDOMTokenList -> m DOMDOMTokenList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMDOMTokenList -> m DOMDOMTokenList)
-> IO DOMDOMTokenList -> m DOMDOMTokenList
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMDOMTokenList
result <- Ptr DOMElement -> IO (Ptr DOMDOMTokenList)
webkit_dom_element_get_class_list Ptr DOMElement
self'
Text -> Ptr DOMDOMTokenList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetClassList" Ptr DOMDOMTokenList
result
DOMDOMTokenList
result' <- ((ManagedPtr DOMDOMTokenList -> DOMDOMTokenList)
-> Ptr DOMDOMTokenList -> IO DOMDOMTokenList
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMDOMTokenList -> DOMDOMTokenList
WebKit2WebExtension.DOMDOMTokenList.DOMDOMTokenList) Ptr DOMDOMTokenList
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMDOMTokenList -> IO DOMDOMTokenList
forall (m :: * -> *) a. Monad m => a -> m a
return DOMDOMTokenList
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetClassListMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMDOMTokenList.DOMDOMTokenList), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetClassListMethodInfo a signature where
overloadedMethod = dOMElementGetClassList
#endif
foreign import ccall "webkit_dom_element_get_class_name" webkit_dom_element_get_class_name ::
Ptr DOMElement ->
IO CString
{-# DEPRECATED dOMElementGetClassName ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetClassName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m T.Text
dOMElementGetClassName :: a -> m Text
dOMElementGetClassName self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMElement -> IO CString
webkit_dom_element_get_class_name Ptr DOMElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetClassName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetClassNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetClassNameMethodInfo a signature where
overloadedMethod = dOMElementGetClassName
#endif
foreign import ccall "webkit_dom_element_get_client_height" webkit_dom_element_get_client_height ::
Ptr DOMElement ->
IO CDouble
{-# DEPRECATED dOMElementGetClientHeight ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetClientHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m Double
dOMElementGetClientHeight :: a -> m Double
dOMElementGetClientHeight self :: a
self = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr DOMElement -> IO CDouble
webkit_dom_element_get_client_height Ptr DOMElement
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetClientHeightMethodInfo
instance (signature ~ (m Double), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetClientHeightMethodInfo a signature where
overloadedMethod = dOMElementGetClientHeight
#endif
foreign import ccall "webkit_dom_element_get_client_left" webkit_dom_element_get_client_left ::
Ptr DOMElement ->
IO CDouble
{-# DEPRECATED dOMElementGetClientLeft ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetClientLeft ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m Double
dOMElementGetClientLeft :: a -> m Double
dOMElementGetClientLeft self :: a
self = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr DOMElement -> IO CDouble
webkit_dom_element_get_client_left Ptr DOMElement
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetClientLeftMethodInfo
instance (signature ~ (m Double), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetClientLeftMethodInfo a signature where
overloadedMethod = dOMElementGetClientLeft
#endif
foreign import ccall "webkit_dom_element_get_client_rects" webkit_dom_element_get_client_rects ::
Ptr DOMElement ->
IO (Ptr WebKit2WebExtension.DOMClientRectList.DOMClientRectList)
{-# DEPRECATED dOMElementGetClientRects ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetClientRects ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m WebKit2WebExtension.DOMClientRectList.DOMClientRectList
dOMElementGetClientRects :: a -> m DOMClientRectList
dOMElementGetClientRects self :: a
self = IO DOMClientRectList -> m DOMClientRectList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMClientRectList -> m DOMClientRectList)
-> IO DOMClientRectList -> m DOMClientRectList
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMClientRectList
result <- Ptr DOMElement -> IO (Ptr DOMClientRectList)
webkit_dom_element_get_client_rects Ptr DOMElement
self'
Text -> Ptr DOMClientRectList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetClientRects" Ptr DOMClientRectList
result
DOMClientRectList
result' <- ((ManagedPtr DOMClientRectList -> DOMClientRectList)
-> Ptr DOMClientRectList -> IO DOMClientRectList
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMClientRectList -> DOMClientRectList
WebKit2WebExtension.DOMClientRectList.DOMClientRectList) Ptr DOMClientRectList
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMClientRectList -> IO DOMClientRectList
forall (m :: * -> *) a. Monad m => a -> m a
return DOMClientRectList
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetClientRectsMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMClientRectList.DOMClientRectList), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetClientRectsMethodInfo a signature where
overloadedMethod = dOMElementGetClientRects
#endif
foreign import ccall "webkit_dom_element_get_client_top" webkit_dom_element_get_client_top ::
Ptr DOMElement ->
IO CDouble
{-# DEPRECATED dOMElementGetClientTop ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetClientTop ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m Double
dOMElementGetClientTop :: a -> m Double
dOMElementGetClientTop self :: a
self = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr DOMElement -> IO CDouble
webkit_dom_element_get_client_top Ptr DOMElement
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetClientTopMethodInfo
instance (signature ~ (m Double), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetClientTopMethodInfo a signature where
overloadedMethod = dOMElementGetClientTop
#endif
foreign import ccall "webkit_dom_element_get_client_width" webkit_dom_element_get_client_width ::
Ptr DOMElement ->
IO CDouble
{-# DEPRECATED dOMElementGetClientWidth ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetClientWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m Double
dOMElementGetClientWidth :: a -> m Double
dOMElementGetClientWidth self :: a
self = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr DOMElement -> IO CDouble
webkit_dom_element_get_client_width Ptr DOMElement
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetClientWidthMethodInfo
instance (signature ~ (m Double), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetClientWidthMethodInfo a signature where
overloadedMethod = dOMElementGetClientWidth
#endif
foreign import ccall "webkit_dom_element_get_elements_by_class_name" webkit_dom_element_get_elements_by_class_name ::
Ptr DOMElement ->
CString ->
IO (Ptr WebKit2WebExtension.DOMNodeList.DOMNodeList)
{-# DEPRECATED dOMElementGetElementsByClassName ["(Since version 2.12)","Use 'GI.WebKit2WebExtension.Objects.DOMElement.dOMElementGetElementsByClassNameAsHtmlCollection' instead."] #-}
dOMElementGetElementsByClassName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMNodeList.DOMNodeList
dOMElementGetElementsByClassName :: a -> Text -> m DOMNodeList
dOMElementGetElementsByClassName self :: a
self className :: Text
className = IO DOMNodeList -> m DOMNodeList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNodeList -> m DOMNodeList)
-> IO DOMNodeList -> m DOMNodeList
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
className' <- Text -> IO CString
textToCString Text
className
Ptr DOMNodeList
result <- Ptr DOMElement -> CString -> IO (Ptr DOMNodeList)
webkit_dom_element_get_elements_by_class_name Ptr DOMElement
self' CString
className'
Text -> Ptr DOMNodeList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetElementsByClassName" Ptr DOMNodeList
result
DOMNodeList
result' <- ((ManagedPtr DOMNodeList -> DOMNodeList)
-> Ptr DOMNodeList -> IO DOMNodeList
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMNodeList -> DOMNodeList
WebKit2WebExtension.DOMNodeList.DOMNodeList) Ptr DOMNodeList
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
className'
DOMNodeList -> IO DOMNodeList
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNodeList
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetElementsByClassNameMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMNodeList.DOMNodeList), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetElementsByClassNameMethodInfo a signature where
overloadedMethod = dOMElementGetElementsByClassName
#endif
foreign import ccall "webkit_dom_element_get_elements_by_class_name_as_html_collection" webkit_dom_element_get_elements_by_class_name_as_html_collection ::
Ptr DOMElement ->
CString ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMElementGetElementsByClassNameAsHtmlCollection ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetElementsByClassNameAsHtmlCollection ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMElementGetElementsByClassNameAsHtmlCollection :: a -> Text -> m DOMHTMLCollection
dOMElementGetElementsByClassNameAsHtmlCollection self :: a
self name :: Text
name = IO DOMHTMLCollection -> m DOMHTMLCollection
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMHTMLCollection -> m DOMHTMLCollection)
-> IO DOMHTMLCollection -> m DOMHTMLCollection
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr DOMHTMLCollection
result <- Ptr DOMElement -> CString -> IO (Ptr DOMHTMLCollection)
webkit_dom_element_get_elements_by_class_name_as_html_collection Ptr DOMElement
self' CString
name'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetElementsByClassNameAsHtmlCollection" Ptr DOMHTMLCollection
result
DOMHTMLCollection
result' <- ((ManagedPtr DOMHTMLCollection -> DOMHTMLCollection)
-> Ptr DOMHTMLCollection -> IO DOMHTMLCollection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection) Ptr DOMHTMLCollection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
DOMHTMLCollection -> IO DOMHTMLCollection
forall (m :: * -> *) a. Monad m => a -> m a
return DOMHTMLCollection
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo a signature where
overloadedMethod = dOMElementGetElementsByClassNameAsHtmlCollection
#endif
foreign import ccall "webkit_dom_element_get_elements_by_tag_name" webkit_dom_element_get_elements_by_tag_name ::
Ptr DOMElement ->
CString ->
IO (Ptr WebKit2WebExtension.DOMNodeList.DOMNodeList)
{-# DEPRECATED dOMElementGetElementsByTagName ["(Since version 2.12)","Use 'GI.WebKit2WebExtension.Objects.DOMElement.dOMElementGetElementsByTagNameAsHtmlCollection' instead."] #-}
dOMElementGetElementsByTagName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMNodeList.DOMNodeList
dOMElementGetElementsByTagName :: a -> Text -> m DOMNodeList
dOMElementGetElementsByTagName self :: a
self tagName :: Text
tagName = IO DOMNodeList -> m DOMNodeList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNodeList -> m DOMNodeList)
-> IO DOMNodeList -> m DOMNodeList
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
tagName' <- Text -> IO CString
textToCString Text
tagName
Ptr DOMNodeList
result <- Ptr DOMElement -> CString -> IO (Ptr DOMNodeList)
webkit_dom_element_get_elements_by_tag_name Ptr DOMElement
self' CString
tagName'
Text -> Ptr DOMNodeList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetElementsByTagName" Ptr DOMNodeList
result
DOMNodeList
result' <- ((ManagedPtr DOMNodeList -> DOMNodeList)
-> Ptr DOMNodeList -> IO DOMNodeList
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMNodeList -> DOMNodeList
WebKit2WebExtension.DOMNodeList.DOMNodeList) Ptr DOMNodeList
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
tagName'
DOMNodeList -> IO DOMNodeList
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNodeList
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetElementsByTagNameMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMNodeList.DOMNodeList), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetElementsByTagNameMethodInfo a signature where
overloadedMethod = dOMElementGetElementsByTagName
#endif
foreign import ccall "webkit_dom_element_get_elements_by_tag_name_as_html_collection" webkit_dom_element_get_elements_by_tag_name_as_html_collection ::
Ptr DOMElement ->
CString ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMElementGetElementsByTagNameAsHtmlCollection ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetElementsByTagNameAsHtmlCollection ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMElementGetElementsByTagNameAsHtmlCollection :: a -> Text -> m DOMHTMLCollection
dOMElementGetElementsByTagNameAsHtmlCollection self :: a
self name :: Text
name = IO DOMHTMLCollection -> m DOMHTMLCollection
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMHTMLCollection -> m DOMHTMLCollection)
-> IO DOMHTMLCollection -> m DOMHTMLCollection
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr DOMHTMLCollection
result <- Ptr DOMElement -> CString -> IO (Ptr DOMHTMLCollection)
webkit_dom_element_get_elements_by_tag_name_as_html_collection Ptr DOMElement
self' CString
name'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetElementsByTagNameAsHtmlCollection" Ptr DOMHTMLCollection
result
DOMHTMLCollection
result' <- ((ManagedPtr DOMHTMLCollection -> DOMHTMLCollection)
-> Ptr DOMHTMLCollection -> IO DOMHTMLCollection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection) Ptr DOMHTMLCollection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
DOMHTMLCollection -> IO DOMHTMLCollection
forall (m :: * -> *) a. Monad m => a -> m a
return DOMHTMLCollection
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo a signature where
overloadedMethod = dOMElementGetElementsByTagNameAsHtmlCollection
#endif
foreign import ccall "webkit_dom_element_get_elements_by_tag_name_ns" webkit_dom_element_get_elements_by_tag_name_ns ::
Ptr DOMElement ->
CString ->
CString ->
IO (Ptr WebKit2WebExtension.DOMNodeList.DOMNodeList)
{-# DEPRECATED dOMElementGetElementsByTagNameNs ["(Since version 2.12)","Use 'GI.WebKit2WebExtension.Objects.DOMElement.dOMElementGetElementsByTagNameNsAsHtmlCollection' instead."] #-}
dOMElementGetElementsByTagNameNs ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> T.Text
-> m WebKit2WebExtension.DOMNodeList.DOMNodeList
dOMElementGetElementsByTagNameNs :: a -> Text -> Text -> m DOMNodeList
dOMElementGetElementsByTagNameNs self :: a
self namespaceUri :: Text
namespaceUri tagName :: Text
tagName = IO DOMNodeList -> m DOMNodeList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNodeList -> m DOMNodeList)
-> IO DOMNodeList -> m DOMNodeList
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
namespaceUri' <- Text -> IO CString
textToCString Text
namespaceUri
CString
tagName' <- Text -> IO CString
textToCString Text
tagName
Ptr DOMNodeList
result <- Ptr DOMElement -> CString -> CString -> IO (Ptr DOMNodeList)
webkit_dom_element_get_elements_by_tag_name_ns Ptr DOMElement
self' CString
namespaceUri' CString
tagName'
Text -> Ptr DOMNodeList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetElementsByTagNameNs" Ptr DOMNodeList
result
DOMNodeList
result' <- ((ManagedPtr DOMNodeList -> DOMNodeList)
-> Ptr DOMNodeList -> IO DOMNodeList
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMNodeList -> DOMNodeList
WebKit2WebExtension.DOMNodeList.DOMNodeList) Ptr DOMNodeList
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
namespaceUri'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
tagName'
DOMNodeList -> IO DOMNodeList
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNodeList
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetElementsByTagNameNsMethodInfo
instance (signature ~ (T.Text -> T.Text -> m WebKit2WebExtension.DOMNodeList.DOMNodeList), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetElementsByTagNameNsMethodInfo a signature where
overloadedMethod = dOMElementGetElementsByTagNameNs
#endif
foreign import ccall "webkit_dom_element_get_elements_by_tag_name_ns_as_html_collection" webkit_dom_element_get_elements_by_tag_name_ns_as_html_collection ::
Ptr DOMElement ->
CString ->
CString ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMElementGetElementsByTagNameNsAsHtmlCollection ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetElementsByTagNameNsAsHtmlCollection ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> T.Text
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMElementGetElementsByTagNameNsAsHtmlCollection :: a -> Text -> Text -> m DOMHTMLCollection
dOMElementGetElementsByTagNameNsAsHtmlCollection self :: a
self namespaceURI :: Text
namespaceURI localName :: Text
localName = IO DOMHTMLCollection -> m DOMHTMLCollection
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMHTMLCollection -> m DOMHTMLCollection)
-> IO DOMHTMLCollection -> m DOMHTMLCollection
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
namespaceURI' <- Text -> IO CString
textToCString Text
namespaceURI
CString
localName' <- Text -> IO CString
textToCString Text
localName
Ptr DOMHTMLCollection
result <- Ptr DOMElement -> CString -> CString -> IO (Ptr DOMHTMLCollection)
webkit_dom_element_get_elements_by_tag_name_ns_as_html_collection Ptr DOMElement
self' CString
namespaceURI' CString
localName'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetElementsByTagNameNsAsHtmlCollection" Ptr DOMHTMLCollection
result
DOMHTMLCollection
result' <- ((ManagedPtr DOMHTMLCollection -> DOMHTMLCollection)
-> Ptr DOMHTMLCollection -> IO DOMHTMLCollection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection) Ptr DOMHTMLCollection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
namespaceURI'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
localName'
DOMHTMLCollection -> IO DOMHTMLCollection
forall (m :: * -> *) a. Monad m => a -> m a
return DOMHTMLCollection
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo
instance (signature ~ (T.Text -> T.Text -> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo a signature where
overloadedMethod = dOMElementGetElementsByTagNameNsAsHtmlCollection
#endif
foreign import ccall "webkit_dom_element_get_first_element_child" webkit_dom_element_get_first_element_child ::
Ptr DOMElement ->
IO (Ptr DOMElement)
{-# DEPRECATED dOMElementGetFirstElementChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetFirstElementChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m DOMElement
dOMElementGetFirstElementChild :: a -> m DOMElement
dOMElementGetFirstElementChild self :: a
self = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMElement -> IO (Ptr DOMElement)
webkit_dom_element_get_first_element_child Ptr DOMElement
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetFirstElementChild" Ptr DOMElement
result
DOMElement
result' <- ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
DOMElement) Ptr DOMElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetFirstElementChildMethodInfo
instance (signature ~ (m DOMElement), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetFirstElementChildMethodInfo a signature where
overloadedMethod = dOMElementGetFirstElementChild
#endif
foreign import ccall "webkit_dom_element_get_id" webkit_dom_element_get_id ::
Ptr DOMElement ->
IO CString
{-# DEPRECATED dOMElementGetId ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m T.Text
dOMElementGetId :: a -> m Text
dOMElementGetId self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMElement -> IO CString
webkit_dom_element_get_id Ptr DOMElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetId" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetIdMethodInfo a signature where
overloadedMethod = dOMElementGetId
#endif
foreign import ccall "webkit_dom_element_get_inner_html" webkit_dom_element_get_inner_html ::
Ptr DOMElement ->
IO CString
{-# DEPRECATED dOMElementGetInnerHtml ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetInnerHtml ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m T.Text
dOMElementGetInnerHtml :: a -> m Text
dOMElementGetInnerHtml self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMElement -> IO CString
webkit_dom_element_get_inner_html Ptr DOMElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetInnerHtml" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetInnerHtmlMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetInnerHtmlMethodInfo a signature where
overloadedMethod = dOMElementGetInnerHtml
#endif
foreign import ccall "webkit_dom_element_get_last_element_child" webkit_dom_element_get_last_element_child ::
Ptr DOMElement ->
IO (Ptr DOMElement)
{-# DEPRECATED dOMElementGetLastElementChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetLastElementChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m DOMElement
dOMElementGetLastElementChild :: a -> m DOMElement
dOMElementGetLastElementChild self :: a
self = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMElement -> IO (Ptr DOMElement)
webkit_dom_element_get_last_element_child Ptr DOMElement
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetLastElementChild" Ptr DOMElement
result
DOMElement
result' <- ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
DOMElement) Ptr DOMElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetLastElementChildMethodInfo
instance (signature ~ (m DOMElement), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetLastElementChildMethodInfo a signature where
overloadedMethod = dOMElementGetLastElementChild
#endif
foreign import ccall "webkit_dom_element_get_local_name" webkit_dom_element_get_local_name ::
Ptr DOMElement ->
IO CString
{-# DEPRECATED dOMElementGetLocalName ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetLocalName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m T.Text
dOMElementGetLocalName :: a -> m Text
dOMElementGetLocalName self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMElement -> IO CString
webkit_dom_element_get_local_name Ptr DOMElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetLocalName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetLocalNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetLocalNameMethodInfo a signature where
overloadedMethod = dOMElementGetLocalName
#endif
foreign import ccall "webkit_dom_element_get_namespace_uri" webkit_dom_element_get_namespace_uri ::
Ptr DOMElement ->
IO CString
{-# DEPRECATED dOMElementGetNamespaceUri ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetNamespaceUri ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m T.Text
dOMElementGetNamespaceUri :: a -> m Text
dOMElementGetNamespaceUri self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMElement -> IO CString
webkit_dom_element_get_namespace_uri Ptr DOMElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetNamespaceUri" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetNamespaceUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetNamespaceUriMethodInfo a signature where
overloadedMethod = dOMElementGetNamespaceUri
#endif
foreign import ccall "webkit_dom_element_get_next_element_sibling" webkit_dom_element_get_next_element_sibling ::
Ptr DOMElement ->
IO (Ptr DOMElement)
{-# DEPRECATED dOMElementGetNextElementSibling ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetNextElementSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m DOMElement
dOMElementGetNextElementSibling :: a -> m DOMElement
dOMElementGetNextElementSibling self :: a
self = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMElement -> IO (Ptr DOMElement)
webkit_dom_element_get_next_element_sibling Ptr DOMElement
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetNextElementSibling" Ptr DOMElement
result
DOMElement
result' <- ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
DOMElement) Ptr DOMElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetNextElementSiblingMethodInfo
instance (signature ~ (m DOMElement), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetNextElementSiblingMethodInfo a signature where
overloadedMethod = dOMElementGetNextElementSibling
#endif
foreign import ccall "webkit_dom_element_get_offset_height" webkit_dom_element_get_offset_height ::
Ptr DOMElement ->
IO CDouble
{-# DEPRECATED dOMElementGetOffsetHeight ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetOffsetHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m Double
dOMElementGetOffsetHeight :: a -> m Double
dOMElementGetOffsetHeight self :: a
self = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr DOMElement -> IO CDouble
webkit_dom_element_get_offset_height Ptr DOMElement
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetOffsetHeightMethodInfo
instance (signature ~ (m Double), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetOffsetHeightMethodInfo a signature where
overloadedMethod = dOMElementGetOffsetHeight
#endif
foreign import ccall "webkit_dom_element_get_offset_left" webkit_dom_element_get_offset_left ::
Ptr DOMElement ->
IO CDouble
{-# DEPRECATED dOMElementGetOffsetLeft ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetOffsetLeft ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m Double
dOMElementGetOffsetLeft :: a -> m Double
dOMElementGetOffsetLeft self :: a
self = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr DOMElement -> IO CDouble
webkit_dom_element_get_offset_left Ptr DOMElement
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetOffsetLeftMethodInfo
instance (signature ~ (m Double), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetOffsetLeftMethodInfo a signature where
overloadedMethod = dOMElementGetOffsetLeft
#endif
foreign import ccall "webkit_dom_element_get_offset_parent" webkit_dom_element_get_offset_parent ::
Ptr DOMElement ->
IO (Ptr DOMElement)
{-# DEPRECATED dOMElementGetOffsetParent ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetOffsetParent ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m DOMElement
dOMElementGetOffsetParent :: a -> m DOMElement
dOMElementGetOffsetParent self :: a
self = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMElement -> IO (Ptr DOMElement)
webkit_dom_element_get_offset_parent Ptr DOMElement
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetOffsetParent" Ptr DOMElement
result
DOMElement
result' <- ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
DOMElement) Ptr DOMElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetOffsetParentMethodInfo
instance (signature ~ (m DOMElement), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetOffsetParentMethodInfo a signature where
overloadedMethod = dOMElementGetOffsetParent
#endif
foreign import ccall "webkit_dom_element_get_offset_top" webkit_dom_element_get_offset_top ::
Ptr DOMElement ->
IO CDouble
{-# DEPRECATED dOMElementGetOffsetTop ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetOffsetTop ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m Double
dOMElementGetOffsetTop :: a -> m Double
dOMElementGetOffsetTop self :: a
self = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr DOMElement -> IO CDouble
webkit_dom_element_get_offset_top Ptr DOMElement
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetOffsetTopMethodInfo
instance (signature ~ (m Double), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetOffsetTopMethodInfo a signature where
overloadedMethod = dOMElementGetOffsetTop
#endif
foreign import ccall "webkit_dom_element_get_offset_width" webkit_dom_element_get_offset_width ::
Ptr DOMElement ->
IO CDouble
{-# DEPRECATED dOMElementGetOffsetWidth ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetOffsetWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m Double
dOMElementGetOffsetWidth :: a -> m Double
dOMElementGetOffsetWidth self :: a
self = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CDouble
result <- Ptr DOMElement -> IO CDouble
webkit_dom_element_get_offset_width Ptr DOMElement
self'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetOffsetWidthMethodInfo
instance (signature ~ (m Double), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetOffsetWidthMethodInfo a signature where
overloadedMethod = dOMElementGetOffsetWidth
#endif
foreign import ccall "webkit_dom_element_get_outer_html" webkit_dom_element_get_outer_html ::
Ptr DOMElement ->
IO CString
{-# DEPRECATED dOMElementGetOuterHtml ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetOuterHtml ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m T.Text
dOMElementGetOuterHtml :: a -> m Text
dOMElementGetOuterHtml self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMElement -> IO CString
webkit_dom_element_get_outer_html Ptr DOMElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetOuterHtml" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetOuterHtmlMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetOuterHtmlMethodInfo a signature where
overloadedMethod = dOMElementGetOuterHtml
#endif
foreign import ccall "webkit_dom_element_get_prefix" webkit_dom_element_get_prefix ::
Ptr DOMElement ->
IO CString
{-# DEPRECATED dOMElementGetPrefix ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetPrefix ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m T.Text
dOMElementGetPrefix :: a -> m Text
dOMElementGetPrefix self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMElement -> IO CString
webkit_dom_element_get_prefix Ptr DOMElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetPrefix" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetPrefixMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetPrefixMethodInfo a signature where
overloadedMethod = dOMElementGetPrefix
#endif
foreign import ccall "webkit_dom_element_get_previous_element_sibling" webkit_dom_element_get_previous_element_sibling ::
Ptr DOMElement ->
IO (Ptr DOMElement)
{-# DEPRECATED dOMElementGetPreviousElementSibling ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetPreviousElementSibling ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m DOMElement
dOMElementGetPreviousElementSibling :: a -> m DOMElement
dOMElementGetPreviousElementSibling self :: a
self = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMElement -> IO (Ptr DOMElement)
webkit_dom_element_get_previous_element_sibling Ptr DOMElement
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetPreviousElementSibling" Ptr DOMElement
result
DOMElement
result' <- ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
DOMElement) Ptr DOMElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetPreviousElementSiblingMethodInfo
instance (signature ~ (m DOMElement), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetPreviousElementSiblingMethodInfo a signature where
overloadedMethod = dOMElementGetPreviousElementSibling
#endif
foreign import ccall "webkit_dom_element_get_scroll_height" webkit_dom_element_get_scroll_height ::
Ptr DOMElement ->
IO CLong
{-# DEPRECATED dOMElementGetScrollHeight ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetScrollHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m CLong
dOMElementGetScrollHeight :: a -> m CLong
dOMElementGetScrollHeight self :: a
self = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMElement -> IO CLong
webkit_dom_element_get_scroll_height Ptr DOMElement
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMElementGetScrollHeightMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetScrollHeightMethodInfo a signature where
overloadedMethod = dOMElementGetScrollHeight
#endif
foreign import ccall "webkit_dom_element_get_scroll_left" webkit_dom_element_get_scroll_left ::
Ptr DOMElement ->
IO CLong
{-# DEPRECATED dOMElementGetScrollLeft ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetScrollLeft ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m CLong
dOMElementGetScrollLeft :: a -> m CLong
dOMElementGetScrollLeft self :: a
self = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMElement -> IO CLong
webkit_dom_element_get_scroll_left Ptr DOMElement
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMElementGetScrollLeftMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetScrollLeftMethodInfo a signature where
overloadedMethod = dOMElementGetScrollLeft
#endif
foreign import ccall "webkit_dom_element_get_scroll_top" webkit_dom_element_get_scroll_top ::
Ptr DOMElement ->
IO CLong
{-# DEPRECATED dOMElementGetScrollTop ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetScrollTop ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m CLong
dOMElementGetScrollTop :: a -> m CLong
dOMElementGetScrollTop self :: a
self = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMElement -> IO CLong
webkit_dom_element_get_scroll_top Ptr DOMElement
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMElementGetScrollTopMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetScrollTopMethodInfo a signature where
overloadedMethod = dOMElementGetScrollTop
#endif
foreign import ccall "webkit_dom_element_get_scroll_width" webkit_dom_element_get_scroll_width ::
Ptr DOMElement ->
IO CLong
{-# DEPRECATED dOMElementGetScrollWidth ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetScrollWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m CLong
dOMElementGetScrollWidth :: a -> m CLong
dOMElementGetScrollWidth self :: a
self = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMElement -> IO CLong
webkit_dom_element_get_scroll_width Ptr DOMElement
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMElementGetScrollWidthMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetScrollWidthMethodInfo a signature where
overloadedMethod = dOMElementGetScrollWidth
#endif
foreign import ccall "webkit_dom_element_get_style" webkit_dom_element_get_style ::
Ptr DOMElement ->
IO (Ptr WebKit2WebExtension.DOMCSSStyleDeclaration.DOMCSSStyleDeclaration)
{-# DEPRECATED dOMElementGetStyle ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetStyle ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m WebKit2WebExtension.DOMCSSStyleDeclaration.DOMCSSStyleDeclaration
dOMElementGetStyle :: a -> m DOMCSSStyleDeclaration
dOMElementGetStyle self :: a
self = IO DOMCSSStyleDeclaration -> m DOMCSSStyleDeclaration
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMCSSStyleDeclaration -> m DOMCSSStyleDeclaration)
-> IO DOMCSSStyleDeclaration -> m DOMCSSStyleDeclaration
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMCSSStyleDeclaration
result <- Ptr DOMElement -> IO (Ptr DOMCSSStyleDeclaration)
webkit_dom_element_get_style Ptr DOMElement
self'
Text -> Ptr DOMCSSStyleDeclaration -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetStyle" Ptr DOMCSSStyleDeclaration
result
DOMCSSStyleDeclaration
result' <- ((ManagedPtr DOMCSSStyleDeclaration -> DOMCSSStyleDeclaration)
-> Ptr DOMCSSStyleDeclaration -> IO DOMCSSStyleDeclaration
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMCSSStyleDeclaration -> DOMCSSStyleDeclaration
WebKit2WebExtension.DOMCSSStyleDeclaration.DOMCSSStyleDeclaration) Ptr DOMCSSStyleDeclaration
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMCSSStyleDeclaration -> IO DOMCSSStyleDeclaration
forall (m :: * -> *) a. Monad m => a -> m a
return DOMCSSStyleDeclaration
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetStyleMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMCSSStyleDeclaration.DOMCSSStyleDeclaration), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetStyleMethodInfo a signature where
overloadedMethod = dOMElementGetStyle
#endif
foreign import ccall "webkit_dom_element_get_tag_name" webkit_dom_element_get_tag_name ::
Ptr DOMElement ->
IO CString
{-# DEPRECATED dOMElementGetTagName ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementGetTagName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m T.Text
dOMElementGetTagName :: a -> m Text
dOMElementGetTagName self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMElement -> IO CString
webkit_dom_element_get_tag_name Ptr DOMElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetTagName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetTagNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetTagNameMethodInfo a signature where
overloadedMethod = dOMElementGetTagName
#endif
foreign import ccall "webkit_dom_element_get_webkit_region_overset" webkit_dom_element_get_webkit_region_overset ::
Ptr DOMElement ->
IO CString
{-# DEPRECATED dOMElementGetWebkitRegionOverset ["(Since version 2.20)"] #-}
dOMElementGetWebkitRegionOverset ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m T.Text
dOMElementGetWebkitRegionOverset :: a -> m Text
dOMElementGetWebkitRegionOverset self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMElement -> IO CString
webkit_dom_element_get_webkit_region_overset Ptr DOMElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementGetWebkitRegionOverset" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementGetWebkitRegionOversetMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementGetWebkitRegionOversetMethodInfo a signature where
overloadedMethod = dOMElementGetWebkitRegionOverset
#endif
foreign import ccall "webkit_dom_element_has_attribute" webkit_dom_element_has_attribute ::
Ptr DOMElement ->
CString ->
IO CInt
{-# DEPRECATED dOMElementHasAttribute ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementHasAttribute ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m Bool
dOMElementHasAttribute :: a -> Text -> m Bool
dOMElementHasAttribute self :: a
self name :: Text
name = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
CInt
result <- Ptr DOMElement -> CString -> IO CInt
webkit_dom_element_has_attribute Ptr DOMElement
self' CString
name'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementHasAttributeMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementHasAttributeMethodInfo a signature where
overloadedMethod = dOMElementHasAttribute
#endif
foreign import ccall "webkit_dom_element_has_attribute_ns" webkit_dom_element_has_attribute_ns ::
Ptr DOMElement ->
CString ->
CString ->
IO CInt
{-# DEPRECATED dOMElementHasAttributeNs ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementHasAttributeNs ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> T.Text
-> m Bool
dOMElementHasAttributeNs :: a -> Text -> Text -> m Bool
dOMElementHasAttributeNs self :: a
self namespaceURI :: Text
namespaceURI localName :: Text
localName = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
namespaceURI' <- Text -> IO CString
textToCString Text
namespaceURI
CString
localName' <- Text -> IO CString
textToCString Text
localName
CInt
result <- Ptr DOMElement -> CString -> CString -> IO CInt
webkit_dom_element_has_attribute_ns Ptr DOMElement
self' CString
namespaceURI' CString
localName'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
namespaceURI'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
localName'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementHasAttributeNsMethodInfo
instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementHasAttributeNsMethodInfo a signature where
overloadedMethod = dOMElementHasAttributeNs
#endif
foreign import ccall "webkit_dom_element_has_attributes" webkit_dom_element_has_attributes ::
Ptr DOMElement ->
IO CInt
{-# DEPRECATED dOMElementHasAttributes ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementHasAttributes ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m Bool
dOMElementHasAttributes :: a -> m Bool
dOMElementHasAttributes self :: a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMElement -> IO CInt
webkit_dom_element_has_attributes Ptr DOMElement
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementHasAttributesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementHasAttributesMethodInfo a signature where
overloadedMethod = dOMElementHasAttributes
#endif
foreign import ccall "webkit_dom_element_html_input_element_get_auto_filled" webkit_dom_element_html_input_element_get_auto_filled ::
Ptr DOMElement ->
IO CInt
dOMElementHtmlInputElementGetAutoFilled ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m Bool
dOMElementHtmlInputElementGetAutoFilled :: a -> m Bool
dOMElementHtmlInputElementGetAutoFilled element :: a
element = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
element' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
element
CInt
result <- Ptr DOMElement -> IO CInt
webkit_dom_element_html_input_element_get_auto_filled Ptr DOMElement
element'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
element
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementHtmlInputElementGetAutoFilledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementHtmlInputElementGetAutoFilledMethodInfo a signature where
overloadedMethod = dOMElementHtmlInputElementGetAutoFilled
#endif
foreign import ccall "webkit_dom_element_html_input_element_is_user_edited" webkit_dom_element_html_input_element_is_user_edited ::
Ptr DOMElement ->
IO CInt
dOMElementHtmlInputElementIsUserEdited ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m Bool
dOMElementHtmlInputElementIsUserEdited :: a -> m Bool
dOMElementHtmlInputElementIsUserEdited element :: a
element = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
element' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
element
CInt
result <- Ptr DOMElement -> IO CInt
webkit_dom_element_html_input_element_is_user_edited Ptr DOMElement
element'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
element
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMElementHtmlInputElementIsUserEditedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementHtmlInputElementIsUserEditedMethodInfo a signature where
overloadedMethod = dOMElementHtmlInputElementIsUserEdited
#endif
foreign import ccall "webkit_dom_element_html_input_element_set_auto_filled" webkit_dom_element_html_input_element_set_auto_filled ::
Ptr DOMElement ->
CInt ->
IO ()
dOMElementHtmlInputElementSetAutoFilled ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> Bool
-> m ()
dOMElementHtmlInputElementSetAutoFilled :: a -> Bool -> m ()
dOMElementHtmlInputElementSetAutoFilled element :: a
element autoFilled :: Bool
autoFilled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
element' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
element
let autoFilled' :: CInt
autoFilled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
autoFilled
Ptr DOMElement -> CInt -> IO ()
webkit_dom_element_html_input_element_set_auto_filled Ptr DOMElement
element' CInt
autoFilled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
element
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementHtmlInputElementSetAutoFilledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementHtmlInputElementSetAutoFilledMethodInfo a signature where
overloadedMethod = dOMElementHtmlInputElementSetAutoFilled
#endif
foreign import ccall "webkit_dom_element_html_input_element_set_editing_value" webkit_dom_element_html_input_element_set_editing_value ::
Ptr DOMElement ->
CString ->
IO ()
dOMElementHtmlInputElementSetEditingValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m ()
dOMElementHtmlInputElementSetEditingValue :: a -> Text -> m ()
dOMElementHtmlInputElementSetEditingValue element :: a
element value :: Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
element' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
element
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMElement -> CString -> IO ()
webkit_dom_element_html_input_element_set_editing_value Ptr DOMElement
element' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
element
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementHtmlInputElementSetEditingValueMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementHtmlInputElementSetEditingValueMethodInfo a signature where
overloadedMethod = dOMElementHtmlInputElementSetEditingValue
#endif
foreign import ccall "webkit_dom_element_insert_adjacent_element" webkit_dom_element_insert_adjacent_element ::
Ptr DOMElement ->
CString ->
Ptr DOMElement ->
Ptr (Ptr GError) ->
IO (Ptr DOMElement)
{-# DEPRECATED dOMElementInsertAdjacentElement ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementInsertAdjacentElement ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a, IsDOMElement b) =>
a
-> T.Text
-> b
-> m DOMElement
dOMElementInsertAdjacentElement :: a -> Text -> b -> m DOMElement
dOMElementInsertAdjacentElement self :: a
self where_ :: Text
where_ element :: b
element = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
where_' <- Text -> IO CString
textToCString Text
where_
Ptr DOMElement
element' <- b -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
element
IO DOMElement -> IO () -> IO DOMElement
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMElement
result <- (Ptr (Ptr GError) -> IO (Ptr DOMElement)) -> IO (Ptr DOMElement)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMElement)) -> IO (Ptr DOMElement))
-> (Ptr (Ptr GError) -> IO (Ptr DOMElement)) -> IO (Ptr DOMElement)
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement
-> CString
-> Ptr DOMElement
-> Ptr (Ptr GError)
-> IO (Ptr DOMElement)
webkit_dom_element_insert_adjacent_element Ptr DOMElement
self' CString
where_' Ptr DOMElement
element'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementInsertAdjacentElement" Ptr DOMElement
result
DOMElement
result' <- ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
DOMElement) Ptr DOMElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
element
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
where_'
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
where_'
)
#if defined(ENABLE_OVERLOADING)
data DOMElementInsertAdjacentElementMethodInfo
instance (signature ~ (T.Text -> b -> m DOMElement), MonadIO m, IsDOMElement a, IsDOMElement b) => O.MethodInfo DOMElementInsertAdjacentElementMethodInfo a signature where
overloadedMethod = dOMElementInsertAdjacentElement
#endif
foreign import ccall "webkit_dom_element_insert_adjacent_html" webkit_dom_element_insert_adjacent_html ::
Ptr DOMElement ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMElementInsertAdjacentHtml ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementInsertAdjacentHtml ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> T.Text
-> m ()
dOMElementInsertAdjacentHtml :: a -> Text -> Text -> m ()
dOMElementInsertAdjacentHtml self :: a
self where_ :: Text
where_ html :: Text
html = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
where_' <- Text -> IO CString
textToCString Text
where_
CString
html' <- Text -> IO CString
textToCString Text
html
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement -> CString -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_element_insert_adjacent_html Ptr DOMElement
self' CString
where_' CString
html'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
where_'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
html'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
where_'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
html'
)
#if defined(ENABLE_OVERLOADING)
data DOMElementInsertAdjacentHtmlMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementInsertAdjacentHtmlMethodInfo a signature where
overloadedMethod = dOMElementInsertAdjacentHtml
#endif
foreign import ccall "webkit_dom_element_insert_adjacent_text" webkit_dom_element_insert_adjacent_text ::
Ptr DOMElement ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMElementInsertAdjacentText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementInsertAdjacentText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> T.Text
-> m ()
dOMElementInsertAdjacentText :: a -> Text -> Text -> m ()
dOMElementInsertAdjacentText self :: a
self where_ :: Text
where_ text :: Text
text = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
where_' <- Text -> IO CString
textToCString Text
where_
CString
text' <- Text -> IO CString
textToCString Text
text
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement -> CString -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_element_insert_adjacent_text Ptr DOMElement
self' CString
where_' CString
text'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
where_'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
text'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
where_'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
text'
)
#if defined(ENABLE_OVERLOADING)
data DOMElementInsertAdjacentTextMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementInsertAdjacentTextMethodInfo a signature where
overloadedMethod = dOMElementInsertAdjacentText
#endif
foreign import ccall "webkit_dom_element_matches" webkit_dom_element_matches ::
Ptr DOMElement ->
CString ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED dOMElementMatches ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementMatches ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m ()
dOMElementMatches :: a -> Text -> m ()
dOMElementMatches self :: a
self selectors :: Text
selectors = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
selectors' <- Text -> IO CString
textToCString Text
selectors
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement -> CString -> Ptr (Ptr GError) -> IO CInt
webkit_dom_element_matches Ptr DOMElement
self' CString
selectors'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selectors'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selectors'
)
#if defined(ENABLE_OVERLOADING)
data DOMElementMatchesMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementMatchesMethodInfo a signature where
overloadedMethod = dOMElementMatches
#endif
foreign import ccall "webkit_dom_element_query_selector" webkit_dom_element_query_selector ::
Ptr DOMElement ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr DOMElement)
{-# DEPRECATED dOMElementQuerySelector ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementQuerySelector ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m DOMElement
dOMElementQuerySelector :: a -> Text -> m DOMElement
dOMElementQuerySelector self :: a
self selectors :: Text
selectors = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
selectors' <- Text -> IO CString
textToCString Text
selectors
IO DOMElement -> IO () -> IO DOMElement
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMElement
result <- (Ptr (Ptr GError) -> IO (Ptr DOMElement)) -> IO (Ptr DOMElement)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMElement)) -> IO (Ptr DOMElement))
-> (Ptr (Ptr GError) -> IO (Ptr DOMElement)) -> IO (Ptr DOMElement)
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement
-> CString -> Ptr (Ptr GError) -> IO (Ptr DOMElement)
webkit_dom_element_query_selector Ptr DOMElement
self' CString
selectors'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementQuerySelector" Ptr DOMElement
result
DOMElement
result' <- ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
DOMElement) Ptr DOMElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selectors'
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selectors'
)
#if defined(ENABLE_OVERLOADING)
data DOMElementQuerySelectorMethodInfo
instance (signature ~ (T.Text -> m DOMElement), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementQuerySelectorMethodInfo a signature where
overloadedMethod = dOMElementQuerySelector
#endif
foreign import ccall "webkit_dom_element_query_selector_all" webkit_dom_element_query_selector_all ::
Ptr DOMElement ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNodeList.DOMNodeList)
{-# DEPRECATED dOMElementQuerySelectorAll ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementQuerySelectorAll ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMNodeList.DOMNodeList
dOMElementQuerySelectorAll :: a -> Text -> m DOMNodeList
dOMElementQuerySelectorAll self :: a
self selectors :: Text
selectors = IO DOMNodeList -> m DOMNodeList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNodeList -> m DOMNodeList)
-> IO DOMNodeList -> m DOMNodeList
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
selectors' <- Text -> IO CString
textToCString Text
selectors
IO DOMNodeList -> IO () -> IO DOMNodeList
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMNodeList
result <- (Ptr (Ptr GError) -> IO (Ptr DOMNodeList)) -> IO (Ptr DOMNodeList)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMNodeList))
-> IO (Ptr DOMNodeList))
-> (Ptr (Ptr GError) -> IO (Ptr DOMNodeList))
-> IO (Ptr DOMNodeList)
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement
-> CString -> Ptr (Ptr GError) -> IO (Ptr DOMNodeList)
webkit_dom_element_query_selector_all Ptr DOMElement
self' CString
selectors'
Text -> Ptr DOMNodeList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementQuerySelectorAll" Ptr DOMNodeList
result
DOMNodeList
result' <- ((ManagedPtr DOMNodeList -> DOMNodeList)
-> Ptr DOMNodeList -> IO DOMNodeList
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMNodeList -> DOMNodeList
WebKit2WebExtension.DOMNodeList.DOMNodeList) Ptr DOMNodeList
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selectors'
DOMNodeList -> IO DOMNodeList
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNodeList
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selectors'
)
#if defined(ENABLE_OVERLOADING)
data DOMElementQuerySelectorAllMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMNodeList.DOMNodeList), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementQuerySelectorAllMethodInfo a signature where
overloadedMethod = dOMElementQuerySelectorAll
#endif
foreign import ccall "webkit_dom_element_remove" webkit_dom_element_remove ::
Ptr DOMElement ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMElementRemove ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m ()
dOMElementRemove :: a -> m ()
dOMElementRemove self :: a
self = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement -> Ptr (Ptr GError) -> IO ()
webkit_dom_element_remove Ptr DOMElement
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMElementRemoveMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementRemoveMethodInfo a signature where
overloadedMethod = dOMElementRemove
#endif
foreign import ccall "webkit_dom_element_remove_attribute" webkit_dom_element_remove_attribute ::
Ptr DOMElement ->
CString ->
IO ()
{-# DEPRECATED dOMElementRemoveAttribute ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementRemoveAttribute ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m ()
dOMElementRemoveAttribute :: a -> Text -> m ()
dOMElementRemoveAttribute self :: a
self name :: Text
name = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr DOMElement -> CString -> IO ()
webkit_dom_element_remove_attribute Ptr DOMElement
self' CString
name'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementRemoveAttributeMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementRemoveAttributeMethodInfo a signature where
overloadedMethod = dOMElementRemoveAttribute
#endif
foreign import ccall "webkit_dom_element_remove_attribute_node" webkit_dom_element_remove_attribute_node ::
Ptr DOMElement ->
Ptr WebKit2WebExtension.DOMAttr.DOMAttr ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMAttr.DOMAttr)
{-# DEPRECATED dOMElementRemoveAttributeNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementRemoveAttributeNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a, WebKit2WebExtension.DOMAttr.IsDOMAttr b) =>
a
-> b
-> m WebKit2WebExtension.DOMAttr.DOMAttr
dOMElementRemoveAttributeNode :: a -> b -> m DOMAttr
dOMElementRemoveAttributeNode self :: a
self oldAttr :: b
oldAttr = IO DOMAttr -> m DOMAttr
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMAttr -> m DOMAttr) -> IO DOMAttr -> m DOMAttr
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMAttr
oldAttr' <- b -> IO (Ptr DOMAttr)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
oldAttr
IO DOMAttr -> IO () -> IO DOMAttr
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMAttr
result <- (Ptr (Ptr GError) -> IO (Ptr DOMAttr)) -> IO (Ptr DOMAttr)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMAttr)) -> IO (Ptr DOMAttr))
-> (Ptr (Ptr GError) -> IO (Ptr DOMAttr)) -> IO (Ptr DOMAttr)
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement
-> Ptr DOMAttr -> Ptr (Ptr GError) -> IO (Ptr DOMAttr)
webkit_dom_element_remove_attribute_node Ptr DOMElement
self' Ptr DOMAttr
oldAttr'
Text -> Ptr DOMAttr -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementRemoveAttributeNode" Ptr DOMAttr
result
DOMAttr
result' <- ((ManagedPtr DOMAttr -> DOMAttr) -> Ptr DOMAttr -> IO DOMAttr
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMAttr -> DOMAttr
WebKit2WebExtension.DOMAttr.DOMAttr) Ptr DOMAttr
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
oldAttr
DOMAttr -> IO DOMAttr
forall (m :: * -> *) a. Monad m => a -> m a
return DOMAttr
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMElementRemoveAttributeNodeMethodInfo
instance (signature ~ (b -> m WebKit2WebExtension.DOMAttr.DOMAttr), MonadIO m, IsDOMElement a, WebKit2WebExtension.DOMAttr.IsDOMAttr b) => O.MethodInfo DOMElementRemoveAttributeNodeMethodInfo a signature where
overloadedMethod = dOMElementRemoveAttributeNode
#endif
foreign import ccall "webkit_dom_element_remove_attribute_ns" webkit_dom_element_remove_attribute_ns ::
Ptr DOMElement ->
CString ->
CString ->
IO ()
{-# DEPRECATED dOMElementRemoveAttributeNs ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementRemoveAttributeNs ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> T.Text
-> m ()
dOMElementRemoveAttributeNs :: a -> Text -> Text -> m ()
dOMElementRemoveAttributeNs self :: a
self namespaceURI :: Text
namespaceURI localName :: Text
localName = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
namespaceURI' <- Text -> IO CString
textToCString Text
namespaceURI
CString
localName' <- Text -> IO CString
textToCString Text
localName
Ptr DOMElement -> CString -> CString -> IO ()
webkit_dom_element_remove_attribute_ns Ptr DOMElement
self' CString
namespaceURI' CString
localName'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
namespaceURI'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
localName'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementRemoveAttributeNsMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementRemoveAttributeNsMethodInfo a signature where
overloadedMethod = dOMElementRemoveAttributeNs
#endif
foreign import ccall "webkit_dom_element_request_pointer_lock" webkit_dom_element_request_pointer_lock ::
Ptr DOMElement ->
IO ()
{-# DEPRECATED dOMElementRequestPointerLock ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementRequestPointerLock ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m ()
dOMElementRequestPointerLock :: a -> m ()
dOMElementRequestPointerLock self :: a
self = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement -> IO ()
webkit_dom_element_request_pointer_lock Ptr DOMElement
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementRequestPointerLockMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementRequestPointerLockMethodInfo a signature where
overloadedMethod = dOMElementRequestPointerLock
#endif
foreign import ccall "webkit_dom_element_scroll_by_lines" webkit_dom_element_scroll_by_lines ::
Ptr DOMElement ->
CLong ->
IO ()
{-# DEPRECATED dOMElementScrollByLines ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementScrollByLines ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> CLong
-> m ()
dOMElementScrollByLines :: a -> CLong -> m ()
dOMElementScrollByLines self :: a
self lines :: CLong
lines = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement -> CLong -> IO ()
webkit_dom_element_scroll_by_lines Ptr DOMElement
self' CLong
lines
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementScrollByLinesMethodInfo
instance (signature ~ (CLong -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementScrollByLinesMethodInfo a signature where
overloadedMethod = dOMElementScrollByLines
#endif
foreign import ccall "webkit_dom_element_scroll_by_pages" webkit_dom_element_scroll_by_pages ::
Ptr DOMElement ->
CLong ->
IO ()
{-# DEPRECATED dOMElementScrollByPages ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementScrollByPages ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> CLong
-> m ()
dOMElementScrollByPages :: a -> CLong -> m ()
dOMElementScrollByPages self :: a
self pages :: CLong
pages = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement -> CLong -> IO ()
webkit_dom_element_scroll_by_pages Ptr DOMElement
self' CLong
pages
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementScrollByPagesMethodInfo
instance (signature ~ (CLong -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementScrollByPagesMethodInfo a signature where
overloadedMethod = dOMElementScrollByPages
#endif
foreign import ccall "webkit_dom_element_scroll_into_view" webkit_dom_element_scroll_into_view ::
Ptr DOMElement ->
CInt ->
IO ()
{-# DEPRECATED dOMElementScrollIntoView ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementScrollIntoView ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> Bool
-> m ()
dOMElementScrollIntoView :: a -> Bool -> m ()
dOMElementScrollIntoView self :: a
self alignWithTop :: Bool
alignWithTop = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let alignWithTop' :: CInt
alignWithTop' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
alignWithTop
Ptr DOMElement -> CInt -> IO ()
webkit_dom_element_scroll_into_view Ptr DOMElement
self' CInt
alignWithTop'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementScrollIntoViewMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementScrollIntoViewMethodInfo a signature where
overloadedMethod = dOMElementScrollIntoView
#endif
foreign import ccall "webkit_dom_element_scroll_into_view_if_needed" webkit_dom_element_scroll_into_view_if_needed ::
Ptr DOMElement ->
CInt ->
IO ()
{-# DEPRECATED dOMElementScrollIntoViewIfNeeded ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementScrollIntoViewIfNeeded ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> Bool
-> m ()
dOMElementScrollIntoViewIfNeeded :: a -> Bool -> m ()
dOMElementScrollIntoViewIfNeeded self :: a
self centerIfNeeded :: Bool
centerIfNeeded = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let centerIfNeeded' :: CInt
centerIfNeeded' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
centerIfNeeded
Ptr DOMElement -> CInt -> IO ()
webkit_dom_element_scroll_into_view_if_needed Ptr DOMElement
self' CInt
centerIfNeeded'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementScrollIntoViewIfNeededMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementScrollIntoViewIfNeededMethodInfo a signature where
overloadedMethod = dOMElementScrollIntoViewIfNeeded
#endif
foreign import ccall "webkit_dom_element_set_attribute" webkit_dom_element_set_attribute ::
Ptr DOMElement ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMElementSetAttribute ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementSetAttribute ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> T.Text
-> m ()
dOMElementSetAttribute :: a -> Text -> Text -> m ()
dOMElementSetAttribute self :: a
self name :: Text
name value :: Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
CString
value' <- Text -> IO CString
textToCString Text
value
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement -> CString -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_element_set_attribute Ptr DOMElement
self' CString
name' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
)
#if defined(ENABLE_OVERLOADING)
data DOMElementSetAttributeMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementSetAttributeMethodInfo a signature where
overloadedMethod = dOMElementSetAttribute
#endif
foreign import ccall "webkit_dom_element_set_attribute_node" webkit_dom_element_set_attribute_node ::
Ptr DOMElement ->
Ptr WebKit2WebExtension.DOMAttr.DOMAttr ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMAttr.DOMAttr)
{-# DEPRECATED dOMElementSetAttributeNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementSetAttributeNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a, WebKit2WebExtension.DOMAttr.IsDOMAttr b) =>
a
-> b
-> m WebKit2WebExtension.DOMAttr.DOMAttr
dOMElementSetAttributeNode :: a -> b -> m DOMAttr
dOMElementSetAttributeNode self :: a
self newAttr :: b
newAttr = IO DOMAttr -> m DOMAttr
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMAttr -> m DOMAttr) -> IO DOMAttr -> m DOMAttr
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMAttr
newAttr' <- b -> IO (Ptr DOMAttr)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
newAttr
IO DOMAttr -> IO () -> IO DOMAttr
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMAttr
result <- (Ptr (Ptr GError) -> IO (Ptr DOMAttr)) -> IO (Ptr DOMAttr)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMAttr)) -> IO (Ptr DOMAttr))
-> (Ptr (Ptr GError) -> IO (Ptr DOMAttr)) -> IO (Ptr DOMAttr)
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement
-> Ptr DOMAttr -> Ptr (Ptr GError) -> IO (Ptr DOMAttr)
webkit_dom_element_set_attribute_node Ptr DOMElement
self' Ptr DOMAttr
newAttr'
Text -> Ptr DOMAttr -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementSetAttributeNode" Ptr DOMAttr
result
DOMAttr
result' <- ((ManagedPtr DOMAttr -> DOMAttr) -> Ptr DOMAttr -> IO DOMAttr
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMAttr -> DOMAttr
WebKit2WebExtension.DOMAttr.DOMAttr) Ptr DOMAttr
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
newAttr
DOMAttr -> IO DOMAttr
forall (m :: * -> *) a. Monad m => a -> m a
return DOMAttr
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMElementSetAttributeNodeMethodInfo
instance (signature ~ (b -> m WebKit2WebExtension.DOMAttr.DOMAttr), MonadIO m, IsDOMElement a, WebKit2WebExtension.DOMAttr.IsDOMAttr b) => O.MethodInfo DOMElementSetAttributeNodeMethodInfo a signature where
overloadedMethod = dOMElementSetAttributeNode
#endif
foreign import ccall "webkit_dom_element_set_attribute_node_ns" webkit_dom_element_set_attribute_node_ns ::
Ptr DOMElement ->
Ptr WebKit2WebExtension.DOMAttr.DOMAttr ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMAttr.DOMAttr)
{-# DEPRECATED dOMElementSetAttributeNodeNs ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementSetAttributeNodeNs ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a, WebKit2WebExtension.DOMAttr.IsDOMAttr b) =>
a
-> b
-> m WebKit2WebExtension.DOMAttr.DOMAttr
dOMElementSetAttributeNodeNs :: a -> b -> m DOMAttr
dOMElementSetAttributeNodeNs self :: a
self newAttr :: b
newAttr = IO DOMAttr -> m DOMAttr
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMAttr -> m DOMAttr) -> IO DOMAttr -> m DOMAttr
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMAttr
newAttr' <- b -> IO (Ptr DOMAttr)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
newAttr
IO DOMAttr -> IO () -> IO DOMAttr
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMAttr
result <- (Ptr (Ptr GError) -> IO (Ptr DOMAttr)) -> IO (Ptr DOMAttr)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMAttr)) -> IO (Ptr DOMAttr))
-> (Ptr (Ptr GError) -> IO (Ptr DOMAttr)) -> IO (Ptr DOMAttr)
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement
-> Ptr DOMAttr -> Ptr (Ptr GError) -> IO (Ptr DOMAttr)
webkit_dom_element_set_attribute_node_ns Ptr DOMElement
self' Ptr DOMAttr
newAttr'
Text -> Ptr DOMAttr -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMElementSetAttributeNodeNs" Ptr DOMAttr
result
DOMAttr
result' <- ((ManagedPtr DOMAttr -> DOMAttr) -> Ptr DOMAttr -> IO DOMAttr
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMAttr -> DOMAttr
WebKit2WebExtension.DOMAttr.DOMAttr) Ptr DOMAttr
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
newAttr
DOMAttr -> IO DOMAttr
forall (m :: * -> *) a. Monad m => a -> m a
return DOMAttr
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMElementSetAttributeNodeNsMethodInfo
instance (signature ~ (b -> m WebKit2WebExtension.DOMAttr.DOMAttr), MonadIO m, IsDOMElement a, WebKit2WebExtension.DOMAttr.IsDOMAttr b) => O.MethodInfo DOMElementSetAttributeNodeNsMethodInfo a signature where
overloadedMethod = dOMElementSetAttributeNodeNs
#endif
foreign import ccall "webkit_dom_element_set_attribute_ns" webkit_dom_element_set_attribute_ns ::
Ptr DOMElement ->
CString ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMElementSetAttributeNs ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementSetAttributeNs ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> Maybe (T.Text)
-> T.Text
-> T.Text
-> m ()
dOMElementSetAttributeNs :: a -> Maybe Text -> Text -> Text -> m ()
dOMElementSetAttributeNs self :: a
self namespaceURI :: Maybe Text
namespaceURI qualifiedName :: Text
qualifiedName value :: Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeNamespaceURI <- case Maybe Text
namespaceURI of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jNamespaceURI :: Text
jNamespaceURI -> do
CString
jNamespaceURI' <- Text -> IO CString
textToCString Text
jNamespaceURI
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jNamespaceURI'
CString
qualifiedName' <- Text -> IO CString
textToCString Text
qualifiedName
CString
value' <- Text -> IO CString
textToCString Text
value
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement
-> CString -> CString -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_element_set_attribute_ns Ptr DOMElement
self' CString
maybeNamespaceURI CString
qualifiedName' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeNamespaceURI
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
qualifiedName'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeNamespaceURI
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
qualifiedName'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
)
#if defined(ENABLE_OVERLOADING)
data DOMElementSetAttributeNsMethodInfo
instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementSetAttributeNsMethodInfo a signature where
overloadedMethod = dOMElementSetAttributeNs
#endif
foreign import ccall "webkit_dom_element_set_class_name" webkit_dom_element_set_class_name ::
Ptr DOMElement ->
CString ->
IO ()
{-# DEPRECATED dOMElementSetClassName ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementSetClassName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m ()
dOMElementSetClassName :: a -> Text -> m ()
dOMElementSetClassName self :: a
self value :: Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMElement -> CString -> IO ()
webkit_dom_element_set_class_name Ptr DOMElement
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementSetClassNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementSetClassNameMethodInfo a signature where
overloadedMethod = dOMElementSetClassName
#endif
foreign import ccall "webkit_dom_element_set_id" webkit_dom_element_set_id ::
Ptr DOMElement ->
CString ->
IO ()
{-# DEPRECATED dOMElementSetId ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementSetId ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m ()
dOMElementSetId :: a -> Text -> m ()
dOMElementSetId self :: a
self value :: Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMElement -> CString -> IO ()
webkit_dom_element_set_id Ptr DOMElement
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementSetIdMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementSetIdMethodInfo a signature where
overloadedMethod = dOMElementSetId
#endif
foreign import ccall "webkit_dom_element_set_inner_html" webkit_dom_element_set_inner_html ::
Ptr DOMElement ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMElementSetInnerHtml ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementSetInnerHtml ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m ()
dOMElementSetInnerHtml :: a -> Text -> m ()
dOMElementSetInnerHtml self :: a
self value :: Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_element_set_inner_html Ptr DOMElement
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
)
#if defined(ENABLE_OVERLOADING)
data DOMElementSetInnerHtmlMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementSetInnerHtmlMethodInfo a signature where
overloadedMethod = dOMElementSetInnerHtml
#endif
foreign import ccall "webkit_dom_element_set_outer_html" webkit_dom_element_set_outer_html ::
Ptr DOMElement ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMElementSetOuterHtml ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementSetOuterHtml ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m ()
dOMElementSetOuterHtml :: a -> Text -> m ()
dOMElementSetOuterHtml self :: a
self value :: Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_element_set_outer_html Ptr DOMElement
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
)
#if defined(ENABLE_OVERLOADING)
data DOMElementSetOuterHtmlMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementSetOuterHtmlMethodInfo a signature where
overloadedMethod = dOMElementSetOuterHtml
#endif
foreign import ccall "webkit_dom_element_set_scroll_left" webkit_dom_element_set_scroll_left ::
Ptr DOMElement ->
CLong ->
IO ()
{-# DEPRECATED dOMElementSetScrollLeft ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementSetScrollLeft ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> CLong
-> m ()
dOMElementSetScrollLeft :: a -> CLong -> m ()
dOMElementSetScrollLeft self :: a
self value :: CLong
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement -> CLong -> IO ()
webkit_dom_element_set_scroll_left Ptr DOMElement
self' CLong
value
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementSetScrollLeftMethodInfo
instance (signature ~ (CLong -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementSetScrollLeftMethodInfo a signature where
overloadedMethod = dOMElementSetScrollLeft
#endif
foreign import ccall "webkit_dom_element_set_scroll_top" webkit_dom_element_set_scroll_top ::
Ptr DOMElement ->
CLong ->
IO ()
{-# DEPRECATED dOMElementSetScrollTop ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementSetScrollTop ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> CLong
-> m ()
dOMElementSetScrollTop :: a -> CLong -> m ()
dOMElementSetScrollTop self :: a
self value :: CLong
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement -> CLong -> IO ()
webkit_dom_element_set_scroll_top Ptr DOMElement
self' CLong
value
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementSetScrollTopMethodInfo
instance (signature ~ (CLong -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementSetScrollTopMethodInfo a signature where
overloadedMethod = dOMElementSetScrollTop
#endif
foreign import ccall "webkit_dom_element_webkit_matches_selector" webkit_dom_element_webkit_matches_selector ::
Ptr DOMElement ->
CString ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED dOMElementWebkitMatchesSelector ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementWebkitMatchesSelector ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> T.Text
-> m ()
dOMElementWebkitMatchesSelector :: a -> Text -> m ()
dOMElementWebkitMatchesSelector self :: a
self selectors :: Text
selectors = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
selectors' <- Text -> IO CString
textToCString Text
selectors
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr DOMElement -> CString -> Ptr (Ptr GError) -> IO CInt
webkit_dom_element_webkit_matches_selector Ptr DOMElement
self' CString
selectors'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selectors'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selectors'
)
#if defined(ENABLE_OVERLOADING)
data DOMElementWebkitMatchesSelectorMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementWebkitMatchesSelectorMethodInfo a signature where
overloadedMethod = dOMElementWebkitMatchesSelector
#endif
foreign import ccall "webkit_dom_element_webkit_request_fullscreen" webkit_dom_element_webkit_request_fullscreen ::
Ptr DOMElement ->
IO ()
{-# DEPRECATED dOMElementWebkitRequestFullscreen ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMElementWebkitRequestFullscreen ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMElement a) =>
a
-> m ()
dOMElementWebkitRequestFullscreen :: a -> m ()
dOMElementWebkitRequestFullscreen self :: a
self = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMElement
self' <- a -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement -> IO ()
webkit_dom_element_webkit_request_fullscreen Ptr DOMElement
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMElementWebkitRequestFullscreenMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMElement a) => O.MethodInfo DOMElementWebkitRequestFullscreenMethodInfo a signature where
overloadedMethod = dOMElementWebkitRequestFullscreen
#endif