{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMDocument
(
DOMDocument(..) ,
IsDOMDocument ,
toDOMDocument ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMDocumentMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMDocumentAdoptNodeMethodInfo ,
#endif
dOMDocumentAdoptNode ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCaretRangeFromPointMethodInfo,
#endif
dOMDocumentCaretRangeFromPoint ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateAttributeMethodInfo ,
#endif
dOMDocumentCreateAttribute ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateAttributeNsMethodInfo ,
#endif
dOMDocumentCreateAttributeNs ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateCdataSectionMethodInfo ,
#endif
dOMDocumentCreateCdataSection ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateCommentMethodInfo ,
#endif
dOMDocumentCreateComment ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateCssStyleDeclarationMethodInfo,
#endif
dOMDocumentCreateCssStyleDeclaration ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateDocumentFragmentMethodInfo,
#endif
dOMDocumentCreateDocumentFragment ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateElementMethodInfo ,
#endif
dOMDocumentCreateElement ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateElementNsMethodInfo ,
#endif
dOMDocumentCreateElementNs ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateEntityReferenceMethodInfo,
#endif
dOMDocumentCreateEntityReference ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateEventMethodInfo ,
#endif
dOMDocumentCreateEvent ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateExpressionMethodInfo ,
#endif
dOMDocumentCreateExpression ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateNodeIteratorMethodInfo ,
#endif
dOMDocumentCreateNodeIterator ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateNsResolverMethodInfo ,
#endif
dOMDocumentCreateNsResolver ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateProcessingInstructionMethodInfo,
#endif
dOMDocumentCreateProcessingInstruction ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateRangeMethodInfo ,
#endif
dOMDocumentCreateRange ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateTextNodeMethodInfo ,
#endif
dOMDocumentCreateTextNode ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCreateTreeWalkerMethodInfo ,
#endif
dOMDocumentCreateTreeWalker ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentElementFromPointMethodInfo ,
#endif
dOMDocumentElementFromPoint ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentEvaluateMethodInfo ,
#endif
dOMDocumentEvaluate ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentExecCommandMethodInfo ,
#endif
dOMDocumentExecCommand ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentExitPointerLockMethodInfo ,
#endif
dOMDocumentExitPointerLock ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetActiveElementMethodInfo ,
#endif
dOMDocumentGetActiveElement ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetAnchorsMethodInfo ,
#endif
dOMDocumentGetAnchors ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetAppletsMethodInfo ,
#endif
dOMDocumentGetApplets ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetBodyMethodInfo ,
#endif
dOMDocumentGetBody ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetCharacterSetMethodInfo ,
#endif
dOMDocumentGetCharacterSet ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetCharsetMethodInfo ,
#endif
dOMDocumentGetCharset ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetChildElementCountMethodInfo,
#endif
dOMDocumentGetChildElementCount ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetChildrenMethodInfo ,
#endif
dOMDocumentGetChildren ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetCompatModeMethodInfo ,
#endif
dOMDocumentGetCompatMode ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetContentTypeMethodInfo ,
#endif
dOMDocumentGetContentType ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetCookieMethodInfo ,
#endif
dOMDocumentGetCookie ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetCurrentScriptMethodInfo ,
#endif
dOMDocumentGetCurrentScript ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetDefaultCharsetMethodInfo ,
#endif
dOMDocumentGetDefaultCharset ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetDefaultViewMethodInfo ,
#endif
dOMDocumentGetDefaultView ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetDesignModeMethodInfo ,
#endif
dOMDocumentGetDesignMode ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetDirMethodInfo ,
#endif
dOMDocumentGetDir ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetDoctypeMethodInfo ,
#endif
dOMDocumentGetDoctype ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetDocumentElementMethodInfo ,
#endif
dOMDocumentGetDocumentElement ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetDocumentUriMethodInfo ,
#endif
dOMDocumentGetDocumentUri ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetDomainMethodInfo ,
#endif
dOMDocumentGetDomain ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetElementByIdMethodInfo ,
#endif
dOMDocumentGetElementById ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetElementsByClassNameMethodInfo,
#endif
dOMDocumentGetElementsByClassName ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo,
#endif
dOMDocumentGetElementsByClassNameAsHtmlCollection,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetElementsByNameMethodInfo ,
#endif
dOMDocumentGetElementsByName ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetElementsByTagNameMethodInfo,
#endif
dOMDocumentGetElementsByTagName ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo,
#endif
dOMDocumentGetElementsByTagNameAsHtmlCollection,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetElementsByTagNameNsMethodInfo,
#endif
dOMDocumentGetElementsByTagNameNs ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo,
#endif
dOMDocumentGetElementsByTagNameNsAsHtmlCollection,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetEmbedsMethodInfo ,
#endif
dOMDocumentGetEmbeds ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetFirstElementChildMethodInfo,
#endif
dOMDocumentGetFirstElementChild ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetFormsMethodInfo ,
#endif
dOMDocumentGetForms ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetHeadMethodInfo ,
#endif
dOMDocumentGetHead ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetHiddenMethodInfo ,
#endif
dOMDocumentGetHidden ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetImagesMethodInfo ,
#endif
dOMDocumentGetImages ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetImplementationMethodInfo ,
#endif
dOMDocumentGetImplementation ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetInputEncodingMethodInfo ,
#endif
dOMDocumentGetInputEncoding ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetLastElementChildMethodInfo,
#endif
dOMDocumentGetLastElementChild ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetLastModifiedMethodInfo ,
#endif
dOMDocumentGetLastModified ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetLinksMethodInfo ,
#endif
dOMDocumentGetLinks ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetOriginMethodInfo ,
#endif
dOMDocumentGetOrigin ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetOverrideStyleMethodInfo ,
#endif
dOMDocumentGetOverrideStyle ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetPluginsMethodInfo ,
#endif
dOMDocumentGetPlugins ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetPointerLockElementMethodInfo,
#endif
dOMDocumentGetPointerLockElement ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetPreferredStylesheetSetMethodInfo,
#endif
dOMDocumentGetPreferredStylesheetSet ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetReadyStateMethodInfo ,
#endif
dOMDocumentGetReadyState ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetReferrerMethodInfo ,
#endif
dOMDocumentGetReferrer ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetScriptsMethodInfo ,
#endif
dOMDocumentGetScripts ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetScrollingElementMethodInfo,
#endif
dOMDocumentGetScrollingElement ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetSelectedStylesheetSetMethodInfo,
#endif
dOMDocumentGetSelectedStylesheetSet ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetStyleSheetsMethodInfo ,
#endif
dOMDocumentGetStyleSheets ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetTitleMethodInfo ,
#endif
dOMDocumentGetTitle ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetUrlMethodInfo ,
#endif
dOMDocumentGetUrl ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetVisibilityStateMethodInfo ,
#endif
dOMDocumentGetVisibilityState ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetWebkitCurrentFullscreenElementMethodInfo,
#endif
dOMDocumentGetWebkitCurrentFullscreenElement,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetWebkitFullscreenElementMethodInfo,
#endif
dOMDocumentGetWebkitFullscreenElement ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetWebkitFullscreenEnabledMethodInfo,
#endif
dOMDocumentGetWebkitFullscreenEnabled ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetWebkitFullscreenKeyboardInputAllowedMethodInfo,
#endif
dOMDocumentGetWebkitFullscreenKeyboardInputAllowed,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetWebkitIsFullscreenMethodInfo,
#endif
dOMDocumentGetWebkitIsFullscreen ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetXmlEncodingMethodInfo ,
#endif
dOMDocumentGetXmlEncoding ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetXmlStandaloneMethodInfo ,
#endif
dOMDocumentGetXmlStandalone ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentGetXmlVersionMethodInfo ,
#endif
dOMDocumentGetXmlVersion ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentHasFocusMethodInfo ,
#endif
dOMDocumentHasFocus ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentImportNodeMethodInfo ,
#endif
dOMDocumentImportNode ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentQueryCommandEnabledMethodInfo,
#endif
dOMDocumentQueryCommandEnabled ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentQueryCommandIndetermMethodInfo,
#endif
dOMDocumentQueryCommandIndeterm ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentQueryCommandStateMethodInfo ,
#endif
dOMDocumentQueryCommandState ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentQueryCommandSupportedMethodInfo,
#endif
dOMDocumentQueryCommandSupported ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentQueryCommandValueMethodInfo ,
#endif
dOMDocumentQueryCommandValue ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentQuerySelectorMethodInfo ,
#endif
dOMDocumentQuerySelector ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentQuerySelectorAllMethodInfo ,
#endif
dOMDocumentQuerySelectorAll ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentSetBodyMethodInfo ,
#endif
dOMDocumentSetBody ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentSetCharsetMethodInfo ,
#endif
dOMDocumentSetCharset ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentSetCookieMethodInfo ,
#endif
dOMDocumentSetCookie ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentSetDesignModeMethodInfo ,
#endif
dOMDocumentSetDesignMode ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentSetDirMethodInfo ,
#endif
dOMDocumentSetDir ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentSetDocumentUriMethodInfo ,
#endif
dOMDocumentSetDocumentUri ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentSetSelectedStylesheetSetMethodInfo,
#endif
dOMDocumentSetSelectedStylesheetSet ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentSetTitleMethodInfo ,
#endif
dOMDocumentSetTitle ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentSetXmlStandaloneMethodInfo ,
#endif
dOMDocumentSetXmlStandalone ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentSetXmlVersionMethodInfo ,
#endif
dOMDocumentSetXmlVersion ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentWebkitCancelFullscreenMethodInfo,
#endif
dOMDocumentWebkitCancelFullscreen ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentWebkitExitFullscreenMethodInfo,
#endif
dOMDocumentWebkitExitFullscreen ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentActiveElementPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentActiveElement ,
#endif
getDOMDocumentActiveElement ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentAnchorsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentAnchors ,
#endif
getDOMDocumentAnchors ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentAppletsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentApplets ,
#endif
getDOMDocumentApplets ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentBodyPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentBody ,
#endif
getDOMDocumentBody ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCharacterSetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentCharacterSet ,
#endif
getDOMDocumentCharacterSet ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCharsetPropertyInfo ,
#endif
constructDOMDocumentCharset ,
#if defined(ENABLE_OVERLOADING)
dOMDocumentCharset ,
#endif
getDOMDocumentCharset ,
setDOMDocumentCharset ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentChildElementCountPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentChildElementCount ,
#endif
getDOMDocumentChildElementCount ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentChildrenPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentChildren ,
#endif
getDOMDocumentChildren ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCompatModePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentCompatMode ,
#endif
getDOMDocumentCompatMode ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentContentTypePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentContentType ,
#endif
getDOMDocumentContentType ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCookiePropertyInfo ,
#endif
clearDOMDocumentCookie ,
constructDOMDocumentCookie ,
#if defined(ENABLE_OVERLOADING)
dOMDocumentCookie ,
#endif
getDOMDocumentCookie ,
setDOMDocumentCookie ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentCurrentScriptPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentCurrentScript ,
#endif
getDOMDocumentCurrentScript ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentDefaultViewPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentDefaultView ,
#endif
getDOMDocumentDefaultView ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentDesignModePropertyInfo ,
#endif
constructDOMDocumentDesignMode ,
#if defined(ENABLE_OVERLOADING)
dOMDocumentDesignMode ,
#endif
getDOMDocumentDesignMode ,
setDOMDocumentDesignMode ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentDirPropertyInfo ,
#endif
constructDOMDocumentDir ,
#if defined(ENABLE_OVERLOADING)
dOMDocumentDir ,
#endif
getDOMDocumentDir ,
setDOMDocumentDir ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentDoctypePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentDoctype ,
#endif
getDOMDocumentDoctype ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentDocumentElementPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentDocumentElement ,
#endif
getDOMDocumentDocumentElement ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentDocumentUriPropertyInfo ,
#endif
constructDOMDocumentDocumentUri ,
#if defined(ENABLE_OVERLOADING)
dOMDocumentDocumentUri ,
#endif
getDOMDocumentDocumentUri ,
setDOMDocumentDocumentUri ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentDomainPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentDomain ,
#endif
getDOMDocumentDomain ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentEmbedsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentEmbeds ,
#endif
getDOMDocumentEmbeds ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentFirstElementChildPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentFirstElementChild ,
#endif
getDOMDocumentFirstElementChild ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentFormsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentForms ,
#endif
getDOMDocumentForms ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentHeadPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentHead ,
#endif
getDOMDocumentHead ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentHiddenPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentHidden ,
#endif
getDOMDocumentHidden ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentImagesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentImages ,
#endif
getDOMDocumentImages ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentImplementationPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentImplementation ,
#endif
getDOMDocumentImplementation ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentInputEncodingPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentInputEncoding ,
#endif
getDOMDocumentInputEncoding ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentLastElementChildPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentLastElementChild ,
#endif
getDOMDocumentLastElementChild ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentLastModifiedPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentLastModified ,
#endif
getDOMDocumentLastModified ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentLinksPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentLinks ,
#endif
getDOMDocumentLinks ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentOriginPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentOrigin ,
#endif
getDOMDocumentOrigin ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentPluginsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentPlugins ,
#endif
getDOMDocumentPlugins ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentPointerLockElementPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentPointerLockElement ,
#endif
getDOMDocumentPointerLockElement ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentPreferredStylesheetSetPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentPreferredStylesheetSet ,
#endif
getDOMDocumentPreferredStylesheetSet ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentReadyStatePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentReadyState ,
#endif
getDOMDocumentReadyState ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentReferrerPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentReferrer ,
#endif
getDOMDocumentReferrer ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentScriptsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentScripts ,
#endif
getDOMDocumentScripts ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentScrollingElementPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentScrollingElement ,
#endif
getDOMDocumentScrollingElement ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentSelectedStylesheetSetPropertyInfo,
#endif
constructDOMDocumentSelectedStylesheetSet,
#if defined(ENABLE_OVERLOADING)
dOMDocumentSelectedStylesheetSet ,
#endif
getDOMDocumentSelectedStylesheetSet ,
setDOMDocumentSelectedStylesheetSet ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentStyleSheetsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentStyleSheets ,
#endif
getDOMDocumentStyleSheets ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentTitlePropertyInfo ,
#endif
constructDOMDocumentTitle ,
#if defined(ENABLE_OVERLOADING)
dOMDocumentTitle ,
#endif
getDOMDocumentTitle ,
setDOMDocumentTitle ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentUrlPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentUrl ,
#endif
getDOMDocumentUrl ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentVisibilityStatePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentVisibilityState ,
#endif
getDOMDocumentVisibilityState ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentWebkitCurrentFullScreenElementPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentWebkitCurrentFullScreenElement,
#endif
getDOMDocumentWebkitCurrentFullScreenElement,
#if defined(ENABLE_OVERLOADING)
DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentWebkitFullScreenKeyboardInputAllowed,
#endif
getDOMDocumentWebkitFullScreenKeyboardInputAllowed,
#if defined(ENABLE_OVERLOADING)
DOMDocumentWebkitFullscreenElementPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentWebkitFullscreenElement ,
#endif
getDOMDocumentWebkitFullscreenElement ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentWebkitFullscreenEnabledPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentWebkitFullscreenEnabled ,
#endif
getDOMDocumentWebkitFullscreenEnabled ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentWebkitIsFullScreenPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentWebkitIsFullScreen ,
#endif
getDOMDocumentWebkitIsFullScreen ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentXmlEncodingPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentXmlEncoding ,
#endif
getDOMDocumentXmlEncoding ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentXmlStandalonePropertyInfo ,
#endif
constructDOMDocumentXmlStandalone ,
#if defined(ENABLE_OVERLOADING)
dOMDocumentXmlStandalone ,
#endif
getDOMDocumentXmlStandalone ,
setDOMDocumentXmlStandalone ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentXmlVersionPropertyInfo ,
#endif
clearDOMDocumentXmlVersion ,
constructDOMDocumentXmlVersion ,
#if defined(ENABLE_OVERLOADING)
dOMDocumentXmlVersion ,
#endif
getDOMDocumentXmlVersion ,
setDOMDocumentXmlVersion ,
) 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.BasicTypes as B.Types
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 Control.Monad.IO.Class as MIO
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.Interfaces.DOMNodeFilter as WebKit2WebExtension.DOMNodeFilter
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Interfaces.DOMXPathNSResolver as WebKit2WebExtension.DOMXPathNSResolver
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMAttr as WebKit2WebExtension.DOMAttr
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCDATASection as WebKit2WebExtension.DOMCDATASection
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCSSStyleDeclaration as WebKit2WebExtension.DOMCSSStyleDeclaration
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMComment as WebKit2WebExtension.DOMComment
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDOMImplementation as WebKit2WebExtension.DOMDOMImplementation
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDOMWindow as WebKit2WebExtension.DOMDOMWindow
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDocumentFragment as WebKit2WebExtension.DOMDocumentFragment
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDocumentType as WebKit2WebExtension.DOMDocumentType
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMElement as WebKit2WebExtension.DOMElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMEntityReference as WebKit2WebExtension.DOMEntityReference
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMEvent as WebKit2WebExtension.DOMEvent
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLCollection as WebKit2WebExtension.DOMHTMLCollection
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLElement as WebKit2WebExtension.DOMHTMLElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLHeadElement as WebKit2WebExtension.DOMHTMLHeadElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLScriptElement as WebKit2WebExtension.DOMHTMLScriptElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNodeIterator as WebKit2WebExtension.DOMNodeIterator
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNodeList as WebKit2WebExtension.DOMNodeList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMProcessingInstruction as WebKit2WebExtension.DOMProcessingInstruction
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMRange as WebKit2WebExtension.DOMRange
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMStyleSheetList as WebKit2WebExtension.DOMStyleSheetList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMText as WebKit2WebExtension.DOMText
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMTreeWalker as WebKit2WebExtension.DOMTreeWalker
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMXPathExpression as WebKit2WebExtension.DOMXPathExpression
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMXPathResult as WebKit2WebExtension.DOMXPathResult
newtype DOMDocument = DOMDocument (SP.ManagedPtr DOMDocument)
deriving (DOMDocument -> DOMDocument -> Bool
(DOMDocument -> DOMDocument -> Bool)
-> (DOMDocument -> DOMDocument -> Bool) -> Eq DOMDocument
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMDocument -> DOMDocument -> Bool
$c/= :: DOMDocument -> DOMDocument -> Bool
== :: DOMDocument -> DOMDocument -> Bool
$c== :: DOMDocument -> DOMDocument -> Bool
Eq)
instance SP.ManagedPtrNewtype DOMDocument where
toManagedPtr :: DOMDocument -> ManagedPtr DOMDocument
toManagedPtr (DOMDocument ManagedPtr DOMDocument
p) = ManagedPtr DOMDocument
p
foreign import ccall "webkit_dom_document_get_type"
c_webkit_dom_document_get_type :: IO B.Types.GType
instance B.Types.TypedObject DOMDocument where
glibType :: IO GType
glibType = IO GType
c_webkit_dom_document_get_type
instance B.Types.GObject DOMDocument
instance B.GValue.IsGValue DOMDocument where
toGValue :: DOMDocument -> IO GValue
toGValue DOMDocument
o = do
GType
gtype <- IO GType
c_webkit_dom_document_get_type
DOMDocument -> (Ptr DOMDocument -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMDocument
o (GType
-> (GValue -> Ptr DOMDocument -> IO ())
-> Ptr DOMDocument
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr DOMDocument -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO DOMDocument
fromGValue GValue
gv = do
Ptr DOMDocument
ptr <- GValue -> IO (Ptr DOMDocument)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr DOMDocument)
(ManagedPtr DOMDocument -> DOMDocument)
-> Ptr DOMDocument -> IO DOMDocument
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMDocument -> DOMDocument
DOMDocument Ptr DOMDocument
ptr
class (SP.GObject o, O.IsDescendantOf DOMDocument o) => IsDOMDocument o
instance (SP.GObject o, O.IsDescendantOf DOMDocument o) => IsDOMDocument o
instance O.HasParentTypes DOMDocument
type instance O.ParentTypes DOMDocument = '[WebKit2WebExtension.DOMNode.DOMNode, WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object, WebKit2WebExtension.DOMEventTarget.DOMEventTarget]
toDOMDocument :: (MonadIO m, IsDOMDocument o) => o -> m DOMDocument
toDOMDocument :: o -> m DOMDocument
toDOMDocument = IO DOMDocument -> m DOMDocument
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMDocument -> m DOMDocument)
-> (o -> IO DOMDocument) -> o -> m DOMDocument
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMDocument -> DOMDocument) -> o -> IO DOMDocument
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr DOMDocument -> DOMDocument
DOMDocument
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMDocumentMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMDocumentMethod "addEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetAddEventListenerMethodInfo
ResolveDOMDocumentMethod "adoptNode" o = DOMDocumentAdoptNodeMethodInfo
ResolveDOMDocumentMethod "appendChild" o = WebKit2WebExtension.DOMNode.DOMNodeAppendChildMethodInfo
ResolveDOMDocumentMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMDocumentMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMDocumentMethod "caretRangeFromPoint" o = DOMDocumentCaretRangeFromPointMethodInfo
ResolveDOMDocumentMethod "cloneNodeWithError" o = WebKit2WebExtension.DOMNode.DOMNodeCloneNodeWithErrorMethodInfo
ResolveDOMDocumentMethod "compareDocumentPosition" o = WebKit2WebExtension.DOMNode.DOMNodeCompareDocumentPositionMethodInfo
ResolveDOMDocumentMethod "contains" o = WebKit2WebExtension.DOMNode.DOMNodeContainsMethodInfo
ResolveDOMDocumentMethod "createAttribute" o = DOMDocumentCreateAttributeMethodInfo
ResolveDOMDocumentMethod "createAttributeNs" o = DOMDocumentCreateAttributeNsMethodInfo
ResolveDOMDocumentMethod "createCdataSection" o = DOMDocumentCreateCdataSectionMethodInfo
ResolveDOMDocumentMethod "createComment" o = DOMDocumentCreateCommentMethodInfo
ResolveDOMDocumentMethod "createCssStyleDeclaration" o = DOMDocumentCreateCssStyleDeclarationMethodInfo
ResolveDOMDocumentMethod "createDocumentFragment" o = DOMDocumentCreateDocumentFragmentMethodInfo
ResolveDOMDocumentMethod "createElement" o = DOMDocumentCreateElementMethodInfo
ResolveDOMDocumentMethod "createElementNs" o = DOMDocumentCreateElementNsMethodInfo
ResolveDOMDocumentMethod "createEntityReference" o = DOMDocumentCreateEntityReferenceMethodInfo
ResolveDOMDocumentMethod "createEvent" o = DOMDocumentCreateEventMethodInfo
ResolveDOMDocumentMethod "createExpression" o = DOMDocumentCreateExpressionMethodInfo
ResolveDOMDocumentMethod "createNodeIterator" o = DOMDocumentCreateNodeIteratorMethodInfo
ResolveDOMDocumentMethod "createNsResolver" o = DOMDocumentCreateNsResolverMethodInfo
ResolveDOMDocumentMethod "createProcessingInstruction" o = DOMDocumentCreateProcessingInstructionMethodInfo
ResolveDOMDocumentMethod "createRange" o = DOMDocumentCreateRangeMethodInfo
ResolveDOMDocumentMethod "createTextNode" o = DOMDocumentCreateTextNodeMethodInfo
ResolveDOMDocumentMethod "createTreeWalker" o = DOMDocumentCreateTreeWalkerMethodInfo
ResolveDOMDocumentMethod "dispatchEvent" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetDispatchEventMethodInfo
ResolveDOMDocumentMethod "elementFromPoint" o = DOMDocumentElementFromPointMethodInfo
ResolveDOMDocumentMethod "evaluate" o = DOMDocumentEvaluateMethodInfo
ResolveDOMDocumentMethod "execCommand" o = DOMDocumentExecCommandMethodInfo
ResolveDOMDocumentMethod "exitPointerLock" o = DOMDocumentExitPointerLockMethodInfo
ResolveDOMDocumentMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMDocumentMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMDocumentMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMDocumentMethod "hasChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeHasChildNodesMethodInfo
ResolveDOMDocumentMethod "hasFocus" o = DOMDocumentHasFocusMethodInfo
ResolveDOMDocumentMethod "importNode" o = DOMDocumentImportNodeMethodInfo
ResolveDOMDocumentMethod "insertBefore" o = WebKit2WebExtension.DOMNode.DOMNodeInsertBeforeMethodInfo
ResolveDOMDocumentMethod "isDefaultNamespace" o = WebKit2WebExtension.DOMNode.DOMNodeIsDefaultNamespaceMethodInfo
ResolveDOMDocumentMethod "isEqualNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsEqualNodeMethodInfo
ResolveDOMDocumentMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMDocumentMethod "isSameNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsSameNodeMethodInfo
ResolveDOMDocumentMethod "isSupported" o = WebKit2WebExtension.DOMNode.DOMNodeIsSupportedMethodInfo
ResolveDOMDocumentMethod "lookupNamespaceUri" o = WebKit2WebExtension.DOMNode.DOMNodeLookupNamespaceUriMethodInfo
ResolveDOMDocumentMethod "lookupPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeLookupPrefixMethodInfo
ResolveDOMDocumentMethod "normalize" o = WebKit2WebExtension.DOMNode.DOMNodeNormalizeMethodInfo
ResolveDOMDocumentMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMDocumentMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMDocumentMethod "queryCommandEnabled" o = DOMDocumentQueryCommandEnabledMethodInfo
ResolveDOMDocumentMethod "queryCommandIndeterm" o = DOMDocumentQueryCommandIndetermMethodInfo
ResolveDOMDocumentMethod "queryCommandState" o = DOMDocumentQueryCommandStateMethodInfo
ResolveDOMDocumentMethod "queryCommandSupported" o = DOMDocumentQueryCommandSupportedMethodInfo
ResolveDOMDocumentMethod "queryCommandValue" o = DOMDocumentQueryCommandValueMethodInfo
ResolveDOMDocumentMethod "querySelector" o = DOMDocumentQuerySelectorMethodInfo
ResolveDOMDocumentMethod "querySelectorAll" o = DOMDocumentQuerySelectorAllMethodInfo
ResolveDOMDocumentMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMDocumentMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMDocumentMethod "removeChild" o = WebKit2WebExtension.DOMNode.DOMNodeRemoveChildMethodInfo
ResolveDOMDocumentMethod "removeEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetRemoveEventListenerMethodInfo
ResolveDOMDocumentMethod "replaceChild" o = WebKit2WebExtension.DOMNode.DOMNodeReplaceChildMethodInfo
ResolveDOMDocumentMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMDocumentMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMDocumentMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMDocumentMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMDocumentMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMDocumentMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMDocumentMethod "webkitCancelFullscreen" o = DOMDocumentWebkitCancelFullscreenMethodInfo
ResolveDOMDocumentMethod "webkitExitFullscreen" o = DOMDocumentWebkitExitFullscreenMethodInfo
ResolveDOMDocumentMethod "getActiveElement" o = DOMDocumentGetActiveElementMethodInfo
ResolveDOMDocumentMethod "getAnchors" o = DOMDocumentGetAnchorsMethodInfo
ResolveDOMDocumentMethod "getApplets" o = DOMDocumentGetAppletsMethodInfo
ResolveDOMDocumentMethod "getBaseUri" o = WebKit2WebExtension.DOMNode.DOMNodeGetBaseUriMethodInfo
ResolveDOMDocumentMethod "getBody" o = DOMDocumentGetBodyMethodInfo
ResolveDOMDocumentMethod "getCharacterSet" o = DOMDocumentGetCharacterSetMethodInfo
ResolveDOMDocumentMethod "getCharset" o = DOMDocumentGetCharsetMethodInfo
ResolveDOMDocumentMethod "getChildElementCount" o = DOMDocumentGetChildElementCountMethodInfo
ResolveDOMDocumentMethod "getChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeGetChildNodesMethodInfo
ResolveDOMDocumentMethod "getChildren" o = DOMDocumentGetChildrenMethodInfo
ResolveDOMDocumentMethod "getCompatMode" o = DOMDocumentGetCompatModeMethodInfo
ResolveDOMDocumentMethod "getContentType" o = DOMDocumentGetContentTypeMethodInfo
ResolveDOMDocumentMethod "getCookie" o = DOMDocumentGetCookieMethodInfo
ResolveDOMDocumentMethod "getCurrentScript" o = DOMDocumentGetCurrentScriptMethodInfo
ResolveDOMDocumentMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMDocumentMethod "getDefaultCharset" o = DOMDocumentGetDefaultCharsetMethodInfo
ResolveDOMDocumentMethod "getDefaultView" o = DOMDocumentGetDefaultViewMethodInfo
ResolveDOMDocumentMethod "getDesignMode" o = DOMDocumentGetDesignModeMethodInfo
ResolveDOMDocumentMethod "getDir" o = DOMDocumentGetDirMethodInfo
ResolveDOMDocumentMethod "getDoctype" o = DOMDocumentGetDoctypeMethodInfo
ResolveDOMDocumentMethod "getDocumentElement" o = DOMDocumentGetDocumentElementMethodInfo
ResolveDOMDocumentMethod "getDocumentUri" o = DOMDocumentGetDocumentUriMethodInfo
ResolveDOMDocumentMethod "getDomain" o = DOMDocumentGetDomainMethodInfo
ResolveDOMDocumentMethod "getElementById" o = DOMDocumentGetElementByIdMethodInfo
ResolveDOMDocumentMethod "getElementsByClassName" o = DOMDocumentGetElementsByClassNameMethodInfo
ResolveDOMDocumentMethod "getElementsByClassNameAsHtmlCollection" o = DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo
ResolveDOMDocumentMethod "getElementsByName" o = DOMDocumentGetElementsByNameMethodInfo
ResolveDOMDocumentMethod "getElementsByTagName" o = DOMDocumentGetElementsByTagNameMethodInfo
ResolveDOMDocumentMethod "getElementsByTagNameAsHtmlCollection" o = DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo
ResolveDOMDocumentMethod "getElementsByTagNameNs" o = DOMDocumentGetElementsByTagNameNsMethodInfo
ResolveDOMDocumentMethod "getElementsByTagNameNsAsHtmlCollection" o = DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo
ResolveDOMDocumentMethod "getEmbeds" o = DOMDocumentGetEmbedsMethodInfo
ResolveDOMDocumentMethod "getFirstChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetFirstChildMethodInfo
ResolveDOMDocumentMethod "getFirstElementChild" o = DOMDocumentGetFirstElementChildMethodInfo
ResolveDOMDocumentMethod "getForms" o = DOMDocumentGetFormsMethodInfo
ResolveDOMDocumentMethod "getHead" o = DOMDocumentGetHeadMethodInfo
ResolveDOMDocumentMethod "getHidden" o = DOMDocumentGetHiddenMethodInfo
ResolveDOMDocumentMethod "getImages" o = DOMDocumentGetImagesMethodInfo
ResolveDOMDocumentMethod "getImplementation" o = DOMDocumentGetImplementationMethodInfo
ResolveDOMDocumentMethod "getInputEncoding" o = DOMDocumentGetInputEncodingMethodInfo
ResolveDOMDocumentMethod "getLastChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetLastChildMethodInfo
ResolveDOMDocumentMethod "getLastElementChild" o = DOMDocumentGetLastElementChildMethodInfo
ResolveDOMDocumentMethod "getLastModified" o = DOMDocumentGetLastModifiedMethodInfo
ResolveDOMDocumentMethod "getLinks" o = DOMDocumentGetLinksMethodInfo
ResolveDOMDocumentMethod "getLocalName" o = WebKit2WebExtension.DOMNode.DOMNodeGetLocalNameMethodInfo
ResolveDOMDocumentMethod "getNamespaceUri" o = WebKit2WebExtension.DOMNode.DOMNodeGetNamespaceUriMethodInfo
ResolveDOMDocumentMethod "getNextSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetNextSiblingMethodInfo
ResolveDOMDocumentMethod "getNodeName" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeNameMethodInfo
ResolveDOMDocumentMethod "getNodeType" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeTypeMethodInfo
ResolveDOMDocumentMethod "getNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeValueMethodInfo
ResolveDOMDocumentMethod "getOrigin" o = DOMDocumentGetOriginMethodInfo
ResolveDOMDocumentMethod "getOverrideStyle" o = DOMDocumentGetOverrideStyleMethodInfo
ResolveDOMDocumentMethod "getOwnerDocument" o = WebKit2WebExtension.DOMNode.DOMNodeGetOwnerDocumentMethodInfo
ResolveDOMDocumentMethod "getParentElement" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentElementMethodInfo
ResolveDOMDocumentMethod "getParentNode" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentNodeMethodInfo
ResolveDOMDocumentMethod "getPlugins" o = DOMDocumentGetPluginsMethodInfo
ResolveDOMDocumentMethod "getPointerLockElement" o = DOMDocumentGetPointerLockElementMethodInfo
ResolveDOMDocumentMethod "getPreferredStylesheetSet" o = DOMDocumentGetPreferredStylesheetSetMethodInfo
ResolveDOMDocumentMethod "getPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeGetPrefixMethodInfo
ResolveDOMDocumentMethod "getPreviousSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetPreviousSiblingMethodInfo
ResolveDOMDocumentMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMDocumentMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMDocumentMethod "getReadyState" o = DOMDocumentGetReadyStateMethodInfo
ResolveDOMDocumentMethod "getReferrer" o = DOMDocumentGetReferrerMethodInfo
ResolveDOMDocumentMethod "getScripts" o = DOMDocumentGetScriptsMethodInfo
ResolveDOMDocumentMethod "getScrollingElement" o = DOMDocumentGetScrollingElementMethodInfo
ResolveDOMDocumentMethod "getSelectedStylesheetSet" o = DOMDocumentGetSelectedStylesheetSetMethodInfo
ResolveDOMDocumentMethod "getStyleSheets" o = DOMDocumentGetStyleSheetsMethodInfo
ResolveDOMDocumentMethod "getTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeGetTextContentMethodInfo
ResolveDOMDocumentMethod "getTitle" o = DOMDocumentGetTitleMethodInfo
ResolveDOMDocumentMethod "getUrl" o = DOMDocumentGetUrlMethodInfo
ResolveDOMDocumentMethod "getVisibilityState" o = DOMDocumentGetVisibilityStateMethodInfo
ResolveDOMDocumentMethod "getWebkitCurrentFullscreenElement" o = DOMDocumentGetWebkitCurrentFullscreenElementMethodInfo
ResolveDOMDocumentMethod "getWebkitFullscreenElement" o = DOMDocumentGetWebkitFullscreenElementMethodInfo
ResolveDOMDocumentMethod "getWebkitFullscreenEnabled" o = DOMDocumentGetWebkitFullscreenEnabledMethodInfo
ResolveDOMDocumentMethod "getWebkitFullscreenKeyboardInputAllowed" o = DOMDocumentGetWebkitFullscreenKeyboardInputAllowedMethodInfo
ResolveDOMDocumentMethod "getWebkitIsFullscreen" o = DOMDocumentGetWebkitIsFullscreenMethodInfo
ResolveDOMDocumentMethod "getXmlEncoding" o = DOMDocumentGetXmlEncodingMethodInfo
ResolveDOMDocumentMethod "getXmlStandalone" o = DOMDocumentGetXmlStandaloneMethodInfo
ResolveDOMDocumentMethod "getXmlVersion" o = DOMDocumentGetXmlVersionMethodInfo
ResolveDOMDocumentMethod "setBody" o = DOMDocumentSetBodyMethodInfo
ResolveDOMDocumentMethod "setCharset" o = DOMDocumentSetCharsetMethodInfo
ResolveDOMDocumentMethod "setCookie" o = DOMDocumentSetCookieMethodInfo
ResolveDOMDocumentMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMDocumentMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMDocumentMethod "setDesignMode" o = DOMDocumentSetDesignModeMethodInfo
ResolveDOMDocumentMethod "setDir" o = DOMDocumentSetDirMethodInfo
ResolveDOMDocumentMethod "setDocumentUri" o = DOMDocumentSetDocumentUriMethodInfo
ResolveDOMDocumentMethod "setNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeSetNodeValueMethodInfo
ResolveDOMDocumentMethod "setPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeSetPrefixMethodInfo
ResolveDOMDocumentMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMDocumentMethod "setSelectedStylesheetSet" o = DOMDocumentSetSelectedStylesheetSetMethodInfo
ResolveDOMDocumentMethod "setTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeSetTextContentMethodInfo
ResolveDOMDocumentMethod "setTitle" o = DOMDocumentSetTitleMethodInfo
ResolveDOMDocumentMethod "setXmlStandalone" o = DOMDocumentSetXmlStandaloneMethodInfo
ResolveDOMDocumentMethod "setXmlVersion" o = DOMDocumentSetXmlVersionMethodInfo
ResolveDOMDocumentMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMDocumentMethod t DOMDocument, O.MethodInfo info DOMDocument p) => OL.IsLabel t (DOMDocument -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getDOMDocumentActiveElement :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentActiveElement :: o -> m DOMElement
getDOMDocumentActiveElement 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 Text
"getDOMDocumentActiveElement" (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 String
"active-element" ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement
#if defined(ENABLE_OVERLOADING)
data DOMDocumentActiveElementPropertyInfo
instance AttrInfo DOMDocumentActiveElementPropertyInfo where
type AttrAllowedOps DOMDocumentActiveElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentActiveElementPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentActiveElementPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentActiveElementPropertyInfo = (~) ()
type AttrTransferType DOMDocumentActiveElementPropertyInfo = ()
type AttrGetType DOMDocumentActiveElementPropertyInfo = WebKit2WebExtension.DOMElement.DOMElement
type AttrLabel DOMDocumentActiveElementPropertyInfo = "active-element"
type AttrOrigin DOMDocumentActiveElementPropertyInfo = DOMDocument
attrGet = getDOMDocumentActiveElement
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentAnchors :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentAnchors :: o -> m (Maybe DOMHTMLCollection)
getDOMDocumentAnchors 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 String
"anchors" ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
#if defined(ENABLE_OVERLOADING)
data DOMDocumentAnchorsPropertyInfo
instance AttrInfo DOMDocumentAnchorsPropertyInfo where
type AttrAllowedOps DOMDocumentAnchorsPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentAnchorsPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentAnchorsPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentAnchorsPropertyInfo = (~) ()
type AttrTransferType DOMDocumentAnchorsPropertyInfo = ()
type AttrGetType DOMDocumentAnchorsPropertyInfo = (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
type AttrLabel DOMDocumentAnchorsPropertyInfo = "anchors"
type AttrOrigin DOMDocumentAnchorsPropertyInfo = DOMDocument
attrGet = getDOMDocumentAnchors
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentApplets :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentApplets :: o -> m (Maybe DOMHTMLCollection)
getDOMDocumentApplets 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 String
"applets" ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
#if defined(ENABLE_OVERLOADING)
data DOMDocumentAppletsPropertyInfo
instance AttrInfo DOMDocumentAppletsPropertyInfo where
type AttrAllowedOps DOMDocumentAppletsPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentAppletsPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentAppletsPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentAppletsPropertyInfo = (~) ()
type AttrTransferType DOMDocumentAppletsPropertyInfo = ()
type AttrGetType DOMDocumentAppletsPropertyInfo = (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
type AttrLabel DOMDocumentAppletsPropertyInfo = "applets"
type AttrOrigin DOMDocumentAppletsPropertyInfo = DOMDocument
attrGet = getDOMDocumentApplets
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentBody :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMHTMLElement.DOMHTMLElement
getDOMDocumentBody :: o -> m DOMHTMLElement
getDOMDocumentBody o
obj = IO DOMHTMLElement -> m DOMHTMLElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMHTMLElement -> m DOMHTMLElement)
-> IO DOMHTMLElement -> m DOMHTMLElement
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMHTMLElement) -> IO DOMHTMLElement
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMDocumentBody" (IO (Maybe DOMHTMLElement) -> IO DOMHTMLElement)
-> IO (Maybe DOMHTMLElement) -> IO DOMHTMLElement
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMHTMLElement -> DOMHTMLElement)
-> IO (Maybe DOMHTMLElement)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"body" ManagedPtr DOMHTMLElement -> DOMHTMLElement
WebKit2WebExtension.DOMHTMLElement.DOMHTMLElement
#if defined(ENABLE_OVERLOADING)
data DOMDocumentBodyPropertyInfo
instance AttrInfo DOMDocumentBodyPropertyInfo where
type AttrAllowedOps DOMDocumentBodyPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentBodyPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentBodyPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentBodyPropertyInfo = (~) ()
type AttrTransferType DOMDocumentBodyPropertyInfo = ()
type AttrGetType DOMDocumentBodyPropertyInfo = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElement
type AttrLabel DOMDocumentBodyPropertyInfo = "body"
type AttrOrigin DOMDocumentBodyPropertyInfo = DOMDocument
attrGet = getDOMDocumentBody
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentCharacterSet :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentCharacterSet :: o -> m (Maybe Text)
getDOMDocumentCharacterSet 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 String
"character-set"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCharacterSetPropertyInfo
instance AttrInfo DOMDocumentCharacterSetPropertyInfo where
type AttrAllowedOps DOMDocumentCharacterSetPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentCharacterSetPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentCharacterSetPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentCharacterSetPropertyInfo = (~) ()
type AttrTransferType DOMDocumentCharacterSetPropertyInfo = ()
type AttrGetType DOMDocumentCharacterSetPropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentCharacterSetPropertyInfo = "character-set"
type AttrOrigin DOMDocumentCharacterSetPropertyInfo = DOMDocument
attrGet = getDOMDocumentCharacterSet
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentCharset :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentCharset :: o -> m (Maybe Text)
getDOMDocumentCharset 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 String
"charset"
setDOMDocumentCharset :: (MonadIO m, IsDOMDocument o) => o -> T.Text -> m ()
setDOMDocumentCharset :: o -> Text -> m ()
setDOMDocumentCharset o
obj 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 String
"charset" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMDocumentCharset :: (IsDOMDocument o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMDocumentCharset :: Text -> m (GValueConstruct o)
constructDOMDocumentCharset Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"charset" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCharsetPropertyInfo
instance AttrInfo DOMDocumentCharsetPropertyInfo where
type AttrAllowedOps DOMDocumentCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMDocumentCharsetPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentCharsetPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMDocumentCharsetPropertyInfo = (~) T.Text
type AttrTransferType DOMDocumentCharsetPropertyInfo = T.Text
type AttrGetType DOMDocumentCharsetPropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentCharsetPropertyInfo = "charset"
type AttrOrigin DOMDocumentCharsetPropertyInfo = DOMDocument
attrGet = getDOMDocumentCharset
attrSet = setDOMDocumentCharset
attrTransfer _ v = do
return v
attrConstruct = constructDOMDocumentCharset
attrClear = undefined
#endif
getDOMDocumentChildElementCount :: (MonadIO m, IsDOMDocument o) => o -> m CULong
getDOMDocumentChildElementCount :: o -> m CULong
getDOMDocumentChildElementCount 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 String
"child-element-count"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentChildElementCountPropertyInfo
instance AttrInfo DOMDocumentChildElementCountPropertyInfo where
type AttrAllowedOps DOMDocumentChildElementCountPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMDocumentChildElementCountPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentChildElementCountPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentChildElementCountPropertyInfo = (~) ()
type AttrTransferType DOMDocumentChildElementCountPropertyInfo = ()
type AttrGetType DOMDocumentChildElementCountPropertyInfo = CULong
type AttrLabel DOMDocumentChildElementCountPropertyInfo = "child-element-count"
type AttrOrigin DOMDocumentChildElementCountPropertyInfo = DOMDocument
attrGet = getDOMDocumentChildElementCount
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentChildren :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentChildren :: o -> m (Maybe DOMHTMLCollection)
getDOMDocumentChildren 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 String
"children" ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
#if defined(ENABLE_OVERLOADING)
data DOMDocumentChildrenPropertyInfo
instance AttrInfo DOMDocumentChildrenPropertyInfo where
type AttrAllowedOps DOMDocumentChildrenPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentChildrenPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentChildrenPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentChildrenPropertyInfo = (~) ()
type AttrTransferType DOMDocumentChildrenPropertyInfo = ()
type AttrGetType DOMDocumentChildrenPropertyInfo = (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
type AttrLabel DOMDocumentChildrenPropertyInfo = "children"
type AttrOrigin DOMDocumentChildrenPropertyInfo = DOMDocument
attrGet = getDOMDocumentChildren
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentCompatMode :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentCompatMode :: o -> m (Maybe Text)
getDOMDocumentCompatMode 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 String
"compat-mode"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCompatModePropertyInfo
instance AttrInfo DOMDocumentCompatModePropertyInfo where
type AttrAllowedOps DOMDocumentCompatModePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentCompatModePropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentCompatModePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentCompatModePropertyInfo = (~) ()
type AttrTransferType DOMDocumentCompatModePropertyInfo = ()
type AttrGetType DOMDocumentCompatModePropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentCompatModePropertyInfo = "compat-mode"
type AttrOrigin DOMDocumentCompatModePropertyInfo = DOMDocument
attrGet = getDOMDocumentCompatMode
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentContentType :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentContentType :: o -> m (Maybe Text)
getDOMDocumentContentType 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 String
"content-type"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentContentTypePropertyInfo
instance AttrInfo DOMDocumentContentTypePropertyInfo where
type AttrAllowedOps DOMDocumentContentTypePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentContentTypePropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentContentTypePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentContentTypePropertyInfo = (~) ()
type AttrTransferType DOMDocumentContentTypePropertyInfo = ()
type AttrGetType DOMDocumentContentTypePropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentContentTypePropertyInfo = "content-type"
type AttrOrigin DOMDocumentContentTypePropertyInfo = DOMDocument
attrGet = getDOMDocumentContentType
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentCookie :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentCookie :: o -> m (Maybe Text)
getDOMDocumentCookie 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 String
"cookie"
setDOMDocumentCookie :: (MonadIO m, IsDOMDocument o) => o -> T.Text -> m ()
setDOMDocumentCookie :: o -> Text -> m ()
setDOMDocumentCookie o
obj 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 String
"cookie" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMDocumentCookie :: (IsDOMDocument o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMDocumentCookie :: Text -> m (GValueConstruct o)
constructDOMDocumentCookie Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"cookie" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearDOMDocumentCookie :: (MonadIO m, IsDOMDocument o) => o -> m ()
clearDOMDocumentCookie :: o -> m ()
clearDOMDocumentCookie 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 String
"cookie" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCookiePropertyInfo
instance AttrInfo DOMDocumentCookiePropertyInfo where
type AttrAllowedOps DOMDocumentCookiePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentCookiePropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentCookiePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMDocumentCookiePropertyInfo = (~) T.Text
type AttrTransferType DOMDocumentCookiePropertyInfo = T.Text
type AttrGetType DOMDocumentCookiePropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentCookiePropertyInfo = "cookie"
type AttrOrigin DOMDocumentCookiePropertyInfo = DOMDocument
attrGet = getDOMDocumentCookie
attrSet = setDOMDocumentCookie
attrTransfer _ v = do
return v
attrConstruct = constructDOMDocumentCookie
attrClear = clearDOMDocumentCookie
#endif
getDOMDocumentCurrentScript :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMHTMLScriptElement.DOMHTMLScriptElement
getDOMDocumentCurrentScript :: o -> m DOMHTMLScriptElement
getDOMDocumentCurrentScript o
obj = IO DOMHTMLScriptElement -> m DOMHTMLScriptElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMHTMLScriptElement -> m DOMHTMLScriptElement)
-> IO DOMHTMLScriptElement -> m DOMHTMLScriptElement
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMHTMLScriptElement) -> IO DOMHTMLScriptElement
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMDocumentCurrentScript" (IO (Maybe DOMHTMLScriptElement) -> IO DOMHTMLScriptElement)
-> IO (Maybe DOMHTMLScriptElement) -> IO DOMHTMLScriptElement
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMHTMLScriptElement -> DOMHTMLScriptElement)
-> IO (Maybe DOMHTMLScriptElement)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"current-script" ManagedPtr DOMHTMLScriptElement -> DOMHTMLScriptElement
WebKit2WebExtension.DOMHTMLScriptElement.DOMHTMLScriptElement
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCurrentScriptPropertyInfo
instance AttrInfo DOMDocumentCurrentScriptPropertyInfo where
type AttrAllowedOps DOMDocumentCurrentScriptPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentCurrentScriptPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentCurrentScriptPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentCurrentScriptPropertyInfo = (~) ()
type AttrTransferType DOMDocumentCurrentScriptPropertyInfo = ()
type AttrGetType DOMDocumentCurrentScriptPropertyInfo = WebKit2WebExtension.DOMHTMLScriptElement.DOMHTMLScriptElement
type AttrLabel DOMDocumentCurrentScriptPropertyInfo = "current-script"
type AttrOrigin DOMDocumentCurrentScriptPropertyInfo = DOMDocument
attrGet = getDOMDocumentCurrentScript
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentDefaultView :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow)
getDOMDocumentDefaultView :: o -> m (Maybe DOMDOMWindow)
getDOMDocumentDefaultView o
obj = IO (Maybe DOMDOMWindow) -> m (Maybe DOMDOMWindow)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DOMDOMWindow) -> m (Maybe DOMDOMWindow))
-> IO (Maybe DOMDOMWindow) -> m (Maybe DOMDOMWindow)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMDOMWindow -> DOMDOMWindow)
-> IO (Maybe DOMDOMWindow)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"default-view" ManagedPtr DOMDOMWindow -> DOMDOMWindow
WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow
#if defined(ENABLE_OVERLOADING)
data DOMDocumentDefaultViewPropertyInfo
instance AttrInfo DOMDocumentDefaultViewPropertyInfo where
type AttrAllowedOps DOMDocumentDefaultViewPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentDefaultViewPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentDefaultViewPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentDefaultViewPropertyInfo = (~) ()
type AttrTransferType DOMDocumentDefaultViewPropertyInfo = ()
type AttrGetType DOMDocumentDefaultViewPropertyInfo = (Maybe WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow)
type AttrLabel DOMDocumentDefaultViewPropertyInfo = "default-view"
type AttrOrigin DOMDocumentDefaultViewPropertyInfo = DOMDocument
attrGet = getDOMDocumentDefaultView
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentDesignMode :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentDesignMode :: o -> m (Maybe Text)
getDOMDocumentDesignMode 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 String
"design-mode"
setDOMDocumentDesignMode :: (MonadIO m, IsDOMDocument o) => o -> T.Text -> m ()
setDOMDocumentDesignMode :: o -> Text -> m ()
setDOMDocumentDesignMode o
obj 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 String
"design-mode" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMDocumentDesignMode :: (IsDOMDocument o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMDocumentDesignMode :: Text -> m (GValueConstruct o)
constructDOMDocumentDesignMode Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"design-mode" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentDesignModePropertyInfo
instance AttrInfo DOMDocumentDesignModePropertyInfo where
type AttrAllowedOps DOMDocumentDesignModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMDocumentDesignModePropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentDesignModePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMDocumentDesignModePropertyInfo = (~) T.Text
type AttrTransferType DOMDocumentDesignModePropertyInfo = T.Text
type AttrGetType DOMDocumentDesignModePropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentDesignModePropertyInfo = "design-mode"
type AttrOrigin DOMDocumentDesignModePropertyInfo = DOMDocument
attrGet = getDOMDocumentDesignMode
attrSet = setDOMDocumentDesignMode
attrTransfer _ v = do
return v
attrConstruct = constructDOMDocumentDesignMode
attrClear = undefined
#endif
getDOMDocumentDir :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentDir :: o -> m (Maybe Text)
getDOMDocumentDir 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 String
"dir"
setDOMDocumentDir :: (MonadIO m, IsDOMDocument o) => o -> T.Text -> m ()
setDOMDocumentDir :: o -> Text -> m ()
setDOMDocumentDir o
obj 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 String
"dir" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMDocumentDir :: (IsDOMDocument o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMDocumentDir :: Text -> m (GValueConstruct o)
constructDOMDocumentDir Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"dir" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentDirPropertyInfo
instance AttrInfo DOMDocumentDirPropertyInfo where
type AttrAllowedOps DOMDocumentDirPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMDocumentDirPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentDirPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMDocumentDirPropertyInfo = (~) T.Text
type AttrTransferType DOMDocumentDirPropertyInfo = T.Text
type AttrGetType DOMDocumentDirPropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentDirPropertyInfo = "dir"
type AttrOrigin DOMDocumentDirPropertyInfo = DOMDocument
attrGet = getDOMDocumentDir
attrSet = setDOMDocumentDir
attrTransfer _ v = do
return v
attrConstruct = constructDOMDocumentDir
attrClear = undefined
#endif
getDOMDocumentDoctype :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMDocumentType.DOMDocumentType
getDOMDocumentDoctype :: o -> m DOMDocumentType
getDOMDocumentDoctype o
obj = IO DOMDocumentType -> m DOMDocumentType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMDocumentType -> m DOMDocumentType)
-> IO DOMDocumentType -> m DOMDocumentType
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMDocumentType) -> IO DOMDocumentType
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMDocumentDoctype" (IO (Maybe DOMDocumentType) -> IO DOMDocumentType)
-> IO (Maybe DOMDocumentType) -> IO DOMDocumentType
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMDocumentType -> DOMDocumentType)
-> IO (Maybe DOMDocumentType)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"doctype" ManagedPtr DOMDocumentType -> DOMDocumentType
WebKit2WebExtension.DOMDocumentType.DOMDocumentType
#if defined(ENABLE_OVERLOADING)
data DOMDocumentDoctypePropertyInfo
instance AttrInfo DOMDocumentDoctypePropertyInfo where
type AttrAllowedOps DOMDocumentDoctypePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentDoctypePropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentDoctypePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentDoctypePropertyInfo = (~) ()
type AttrTransferType DOMDocumentDoctypePropertyInfo = ()
type AttrGetType DOMDocumentDoctypePropertyInfo = WebKit2WebExtension.DOMDocumentType.DOMDocumentType
type AttrLabel DOMDocumentDoctypePropertyInfo = "doctype"
type AttrOrigin DOMDocumentDoctypePropertyInfo = DOMDocument
attrGet = getDOMDocumentDoctype
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentDocumentElement :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentDocumentElement :: o -> m DOMElement
getDOMDocumentDocumentElement 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 Text
"getDOMDocumentDocumentElement" (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 String
"document-element" ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement
#if defined(ENABLE_OVERLOADING)
data DOMDocumentDocumentElementPropertyInfo
instance AttrInfo DOMDocumentDocumentElementPropertyInfo where
type AttrAllowedOps DOMDocumentDocumentElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentDocumentElementPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentDocumentElementPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentDocumentElementPropertyInfo = (~) ()
type AttrTransferType DOMDocumentDocumentElementPropertyInfo = ()
type AttrGetType DOMDocumentDocumentElementPropertyInfo = WebKit2WebExtension.DOMElement.DOMElement
type AttrLabel DOMDocumentDocumentElementPropertyInfo = "document-element"
type AttrOrigin DOMDocumentDocumentElementPropertyInfo = DOMDocument
attrGet = getDOMDocumentDocumentElement
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentDocumentUri :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentDocumentUri :: o -> m (Maybe Text)
getDOMDocumentDocumentUri 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 String
"document-uri"
setDOMDocumentDocumentUri :: (MonadIO m, IsDOMDocument o) => o -> T.Text -> m ()
setDOMDocumentDocumentUri :: o -> Text -> m ()
setDOMDocumentDocumentUri o
obj 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 String
"document-uri" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMDocumentDocumentUri :: (IsDOMDocument o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMDocumentDocumentUri :: Text -> m (GValueConstruct o)
constructDOMDocumentDocumentUri Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"document-uri" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentDocumentUriPropertyInfo
instance AttrInfo DOMDocumentDocumentUriPropertyInfo where
type AttrAllowedOps DOMDocumentDocumentUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMDocumentDocumentUriPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentDocumentUriPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMDocumentDocumentUriPropertyInfo = (~) T.Text
type AttrTransferType DOMDocumentDocumentUriPropertyInfo = T.Text
type AttrGetType DOMDocumentDocumentUriPropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentDocumentUriPropertyInfo = "document-uri"
type AttrOrigin DOMDocumentDocumentUriPropertyInfo = DOMDocument
attrGet = getDOMDocumentDocumentUri
attrSet = setDOMDocumentDocumentUri
attrTransfer _ v = do
return v
attrConstruct = constructDOMDocumentDocumentUri
attrClear = undefined
#endif
getDOMDocumentDomain :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentDomain :: o -> m (Maybe Text)
getDOMDocumentDomain 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 String
"domain"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentDomainPropertyInfo
instance AttrInfo DOMDocumentDomainPropertyInfo where
type AttrAllowedOps DOMDocumentDomainPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentDomainPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentDomainPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentDomainPropertyInfo = (~) ()
type AttrTransferType DOMDocumentDomainPropertyInfo = ()
type AttrGetType DOMDocumentDomainPropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentDomainPropertyInfo = "domain"
type AttrOrigin DOMDocumentDomainPropertyInfo = DOMDocument
attrGet = getDOMDocumentDomain
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentEmbeds :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentEmbeds :: o -> m (Maybe DOMHTMLCollection)
getDOMDocumentEmbeds 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 String
"embeds" ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
#if defined(ENABLE_OVERLOADING)
data DOMDocumentEmbedsPropertyInfo
instance AttrInfo DOMDocumentEmbedsPropertyInfo where
type AttrAllowedOps DOMDocumentEmbedsPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentEmbedsPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentEmbedsPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentEmbedsPropertyInfo = (~) ()
type AttrTransferType DOMDocumentEmbedsPropertyInfo = ()
type AttrGetType DOMDocumentEmbedsPropertyInfo = (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
type AttrLabel DOMDocumentEmbedsPropertyInfo = "embeds"
type AttrOrigin DOMDocumentEmbedsPropertyInfo = DOMDocument
attrGet = getDOMDocumentEmbeds
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentFirstElementChild :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentFirstElementChild :: o -> m DOMElement
getDOMDocumentFirstElementChild 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 Text
"getDOMDocumentFirstElementChild" (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 String
"first-element-child" ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement
#if defined(ENABLE_OVERLOADING)
data DOMDocumentFirstElementChildPropertyInfo
instance AttrInfo DOMDocumentFirstElementChildPropertyInfo where
type AttrAllowedOps DOMDocumentFirstElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentFirstElementChildPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentFirstElementChildPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentFirstElementChildPropertyInfo = (~) ()
type AttrTransferType DOMDocumentFirstElementChildPropertyInfo = ()
type AttrGetType DOMDocumentFirstElementChildPropertyInfo = WebKit2WebExtension.DOMElement.DOMElement
type AttrLabel DOMDocumentFirstElementChildPropertyInfo = "first-element-child"
type AttrOrigin DOMDocumentFirstElementChildPropertyInfo = DOMDocument
attrGet = getDOMDocumentFirstElementChild
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentForms :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentForms :: o -> m (Maybe DOMHTMLCollection)
getDOMDocumentForms 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 String
"forms" ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
#if defined(ENABLE_OVERLOADING)
data DOMDocumentFormsPropertyInfo
instance AttrInfo DOMDocumentFormsPropertyInfo where
type AttrAllowedOps DOMDocumentFormsPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentFormsPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentFormsPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentFormsPropertyInfo = (~) ()
type AttrTransferType DOMDocumentFormsPropertyInfo = ()
type AttrGetType DOMDocumentFormsPropertyInfo = (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
type AttrLabel DOMDocumentFormsPropertyInfo = "forms"
type AttrOrigin DOMDocumentFormsPropertyInfo = DOMDocument
attrGet = getDOMDocumentForms
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentHead :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMHTMLHeadElement.DOMHTMLHeadElement
getDOMDocumentHead :: o -> m DOMHTMLHeadElement
getDOMDocumentHead o
obj = IO DOMHTMLHeadElement -> m DOMHTMLHeadElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMHTMLHeadElement -> m DOMHTMLHeadElement)
-> IO DOMHTMLHeadElement -> m DOMHTMLHeadElement
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMHTMLHeadElement) -> IO DOMHTMLHeadElement
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMDocumentHead" (IO (Maybe DOMHTMLHeadElement) -> IO DOMHTMLHeadElement)
-> IO (Maybe DOMHTMLHeadElement) -> IO DOMHTMLHeadElement
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMHTMLHeadElement -> DOMHTMLHeadElement)
-> IO (Maybe DOMHTMLHeadElement)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"head" ManagedPtr DOMHTMLHeadElement -> DOMHTMLHeadElement
WebKit2WebExtension.DOMHTMLHeadElement.DOMHTMLHeadElement
#if defined(ENABLE_OVERLOADING)
data DOMDocumentHeadPropertyInfo
instance AttrInfo DOMDocumentHeadPropertyInfo where
type AttrAllowedOps DOMDocumentHeadPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentHeadPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentHeadPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentHeadPropertyInfo = (~) ()
type AttrTransferType DOMDocumentHeadPropertyInfo = ()
type AttrGetType DOMDocumentHeadPropertyInfo = WebKit2WebExtension.DOMHTMLHeadElement.DOMHTMLHeadElement
type AttrLabel DOMDocumentHeadPropertyInfo = "head"
type AttrOrigin DOMDocumentHeadPropertyInfo = DOMDocument
attrGet = getDOMDocumentHead
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentHidden :: (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentHidden :: o -> m Bool
getDOMDocumentHidden o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"hidden"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentHiddenPropertyInfo
instance AttrInfo DOMDocumentHiddenPropertyInfo where
type AttrAllowedOps DOMDocumentHiddenPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMDocumentHiddenPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentHiddenPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentHiddenPropertyInfo = (~) ()
type AttrTransferType DOMDocumentHiddenPropertyInfo = ()
type AttrGetType DOMDocumentHiddenPropertyInfo = Bool
type AttrLabel DOMDocumentHiddenPropertyInfo = "hidden"
type AttrOrigin DOMDocumentHiddenPropertyInfo = DOMDocument
attrGet = getDOMDocumentHidden
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentImages :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentImages :: o -> m (Maybe DOMHTMLCollection)
getDOMDocumentImages 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 String
"images" ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
#if defined(ENABLE_OVERLOADING)
data DOMDocumentImagesPropertyInfo
instance AttrInfo DOMDocumentImagesPropertyInfo where
type AttrAllowedOps DOMDocumentImagesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentImagesPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentImagesPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentImagesPropertyInfo = (~) ()
type AttrTransferType DOMDocumentImagesPropertyInfo = ()
type AttrGetType DOMDocumentImagesPropertyInfo = (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
type AttrLabel DOMDocumentImagesPropertyInfo = "images"
type AttrOrigin DOMDocumentImagesPropertyInfo = DOMDocument
attrGet = getDOMDocumentImages
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentImplementation :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMDOMImplementation.DOMDOMImplementation)
getDOMDocumentImplementation :: o -> m (Maybe DOMDOMImplementation)
getDOMDocumentImplementation o
obj = IO (Maybe DOMDOMImplementation) -> m (Maybe DOMDOMImplementation)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DOMDOMImplementation) -> m (Maybe DOMDOMImplementation))
-> IO (Maybe DOMDOMImplementation)
-> m (Maybe DOMDOMImplementation)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMDOMImplementation -> DOMDOMImplementation)
-> IO (Maybe DOMDOMImplementation)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"implementation" ManagedPtr DOMDOMImplementation -> DOMDOMImplementation
WebKit2WebExtension.DOMDOMImplementation.DOMDOMImplementation
#if defined(ENABLE_OVERLOADING)
data DOMDocumentImplementationPropertyInfo
instance AttrInfo DOMDocumentImplementationPropertyInfo where
type AttrAllowedOps DOMDocumentImplementationPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentImplementationPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentImplementationPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentImplementationPropertyInfo = (~) ()
type AttrTransferType DOMDocumentImplementationPropertyInfo = ()
type AttrGetType DOMDocumentImplementationPropertyInfo = (Maybe WebKit2WebExtension.DOMDOMImplementation.DOMDOMImplementation)
type AttrLabel DOMDocumentImplementationPropertyInfo = "implementation"
type AttrOrigin DOMDocumentImplementationPropertyInfo = DOMDocument
attrGet = getDOMDocumentImplementation
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentInputEncoding :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentInputEncoding :: o -> m (Maybe Text)
getDOMDocumentInputEncoding 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 String
"input-encoding"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentInputEncodingPropertyInfo
instance AttrInfo DOMDocumentInputEncodingPropertyInfo where
type AttrAllowedOps DOMDocumentInputEncodingPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentInputEncodingPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentInputEncodingPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentInputEncodingPropertyInfo = (~) ()
type AttrTransferType DOMDocumentInputEncodingPropertyInfo = ()
type AttrGetType DOMDocumentInputEncodingPropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentInputEncodingPropertyInfo = "input-encoding"
type AttrOrigin DOMDocumentInputEncodingPropertyInfo = DOMDocument
attrGet = getDOMDocumentInputEncoding
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentLastElementChild :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentLastElementChild :: o -> m DOMElement
getDOMDocumentLastElementChild 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 Text
"getDOMDocumentLastElementChild" (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 String
"last-element-child" ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement
#if defined(ENABLE_OVERLOADING)
data DOMDocumentLastElementChildPropertyInfo
instance AttrInfo DOMDocumentLastElementChildPropertyInfo where
type AttrAllowedOps DOMDocumentLastElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentLastElementChildPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentLastElementChildPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentLastElementChildPropertyInfo = (~) ()
type AttrTransferType DOMDocumentLastElementChildPropertyInfo = ()
type AttrGetType DOMDocumentLastElementChildPropertyInfo = WebKit2WebExtension.DOMElement.DOMElement
type AttrLabel DOMDocumentLastElementChildPropertyInfo = "last-element-child"
type AttrOrigin DOMDocumentLastElementChildPropertyInfo = DOMDocument
attrGet = getDOMDocumentLastElementChild
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentLastModified :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentLastModified :: o -> m (Maybe Text)
getDOMDocumentLastModified 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 String
"last-modified"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentLastModifiedPropertyInfo
instance AttrInfo DOMDocumentLastModifiedPropertyInfo where
type AttrAllowedOps DOMDocumentLastModifiedPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentLastModifiedPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentLastModifiedPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentLastModifiedPropertyInfo = (~) ()
type AttrTransferType DOMDocumentLastModifiedPropertyInfo = ()
type AttrGetType DOMDocumentLastModifiedPropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentLastModifiedPropertyInfo = "last-modified"
type AttrOrigin DOMDocumentLastModifiedPropertyInfo = DOMDocument
attrGet = getDOMDocumentLastModified
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentLinks :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentLinks :: o -> m (Maybe DOMHTMLCollection)
getDOMDocumentLinks 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 String
"links" ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
#if defined(ENABLE_OVERLOADING)
data DOMDocumentLinksPropertyInfo
instance AttrInfo DOMDocumentLinksPropertyInfo where
type AttrAllowedOps DOMDocumentLinksPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentLinksPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentLinksPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentLinksPropertyInfo = (~) ()
type AttrTransferType DOMDocumentLinksPropertyInfo = ()
type AttrGetType DOMDocumentLinksPropertyInfo = (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
type AttrLabel DOMDocumentLinksPropertyInfo = "links"
type AttrOrigin DOMDocumentLinksPropertyInfo = DOMDocument
attrGet = getDOMDocumentLinks
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentOrigin :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentOrigin :: o -> m (Maybe Text)
getDOMDocumentOrigin 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 String
"origin"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentOriginPropertyInfo
instance AttrInfo DOMDocumentOriginPropertyInfo where
type AttrAllowedOps DOMDocumentOriginPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentOriginPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentOriginPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentOriginPropertyInfo = (~) ()
type AttrTransferType DOMDocumentOriginPropertyInfo = ()
type AttrGetType DOMDocumentOriginPropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentOriginPropertyInfo = "origin"
type AttrOrigin DOMDocumentOriginPropertyInfo = DOMDocument
attrGet = getDOMDocumentOrigin
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentPlugins :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentPlugins :: o -> m (Maybe DOMHTMLCollection)
getDOMDocumentPlugins 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 String
"plugins" ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
#if defined(ENABLE_OVERLOADING)
data DOMDocumentPluginsPropertyInfo
instance AttrInfo DOMDocumentPluginsPropertyInfo where
type AttrAllowedOps DOMDocumentPluginsPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentPluginsPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentPluginsPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentPluginsPropertyInfo = (~) ()
type AttrTransferType DOMDocumentPluginsPropertyInfo = ()
type AttrGetType DOMDocumentPluginsPropertyInfo = (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
type AttrLabel DOMDocumentPluginsPropertyInfo = "plugins"
type AttrOrigin DOMDocumentPluginsPropertyInfo = DOMDocument
attrGet = getDOMDocumentPlugins
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentPointerLockElement :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentPointerLockElement :: o -> m DOMElement
getDOMDocumentPointerLockElement 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 Text
"getDOMDocumentPointerLockElement" (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 String
"pointer-lock-element" ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement
#if defined(ENABLE_OVERLOADING)
data DOMDocumentPointerLockElementPropertyInfo
instance AttrInfo DOMDocumentPointerLockElementPropertyInfo where
type AttrAllowedOps DOMDocumentPointerLockElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentPointerLockElementPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentPointerLockElementPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentPointerLockElementPropertyInfo = (~) ()
type AttrTransferType DOMDocumentPointerLockElementPropertyInfo = ()
type AttrGetType DOMDocumentPointerLockElementPropertyInfo = WebKit2WebExtension.DOMElement.DOMElement
type AttrLabel DOMDocumentPointerLockElementPropertyInfo = "pointer-lock-element"
type AttrOrigin DOMDocumentPointerLockElementPropertyInfo = DOMDocument
attrGet = getDOMDocumentPointerLockElement
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentPreferredStylesheetSet :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentPreferredStylesheetSet :: o -> m (Maybe Text)
getDOMDocumentPreferredStylesheetSet 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 String
"preferred-stylesheet-set"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentPreferredStylesheetSetPropertyInfo
instance AttrInfo DOMDocumentPreferredStylesheetSetPropertyInfo where
type AttrAllowedOps DOMDocumentPreferredStylesheetSetPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = (~) ()
type AttrTransferType DOMDocumentPreferredStylesheetSetPropertyInfo = ()
type AttrGetType DOMDocumentPreferredStylesheetSetPropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentPreferredStylesheetSetPropertyInfo = "preferred-stylesheet-set"
type AttrOrigin DOMDocumentPreferredStylesheetSetPropertyInfo = DOMDocument
attrGet = getDOMDocumentPreferredStylesheetSet
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentReadyState :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentReadyState :: o -> m (Maybe Text)
getDOMDocumentReadyState 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 String
"ready-state"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentReadyStatePropertyInfo
instance AttrInfo DOMDocumentReadyStatePropertyInfo where
type AttrAllowedOps DOMDocumentReadyStatePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentReadyStatePropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentReadyStatePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentReadyStatePropertyInfo = (~) ()
type AttrTransferType DOMDocumentReadyStatePropertyInfo = ()
type AttrGetType DOMDocumentReadyStatePropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentReadyStatePropertyInfo = "ready-state"
type AttrOrigin DOMDocumentReadyStatePropertyInfo = DOMDocument
attrGet = getDOMDocumentReadyState
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentReferrer :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentReferrer :: o -> m (Maybe Text)
getDOMDocumentReferrer 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 String
"referrer"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentReferrerPropertyInfo
instance AttrInfo DOMDocumentReferrerPropertyInfo where
type AttrAllowedOps DOMDocumentReferrerPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentReferrerPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentReferrerPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentReferrerPropertyInfo = (~) ()
type AttrTransferType DOMDocumentReferrerPropertyInfo = ()
type AttrGetType DOMDocumentReferrerPropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentReferrerPropertyInfo = "referrer"
type AttrOrigin DOMDocumentReferrerPropertyInfo = DOMDocument
attrGet = getDOMDocumentReferrer
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentScripts :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentScripts :: o -> m (Maybe DOMHTMLCollection)
getDOMDocumentScripts 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 String
"scripts" ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
#if defined(ENABLE_OVERLOADING)
data DOMDocumentScriptsPropertyInfo
instance AttrInfo DOMDocumentScriptsPropertyInfo where
type AttrAllowedOps DOMDocumentScriptsPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentScriptsPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentScriptsPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentScriptsPropertyInfo = (~) ()
type AttrTransferType DOMDocumentScriptsPropertyInfo = ()
type AttrGetType DOMDocumentScriptsPropertyInfo = (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
type AttrLabel DOMDocumentScriptsPropertyInfo = "scripts"
type AttrOrigin DOMDocumentScriptsPropertyInfo = DOMDocument
attrGet = getDOMDocumentScripts
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentScrollingElement :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentScrollingElement :: o -> m DOMElement
getDOMDocumentScrollingElement 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 Text
"getDOMDocumentScrollingElement" (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 String
"scrolling-element" ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement
#if defined(ENABLE_OVERLOADING)
data DOMDocumentScrollingElementPropertyInfo
instance AttrInfo DOMDocumentScrollingElementPropertyInfo where
type AttrAllowedOps DOMDocumentScrollingElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentScrollingElementPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentScrollingElementPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentScrollingElementPropertyInfo = (~) ()
type AttrTransferType DOMDocumentScrollingElementPropertyInfo = ()
type AttrGetType DOMDocumentScrollingElementPropertyInfo = WebKit2WebExtension.DOMElement.DOMElement
type AttrLabel DOMDocumentScrollingElementPropertyInfo = "scrolling-element"
type AttrOrigin DOMDocumentScrollingElementPropertyInfo = DOMDocument
attrGet = getDOMDocumentScrollingElement
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentSelectedStylesheetSet :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentSelectedStylesheetSet :: o -> m (Maybe Text)
getDOMDocumentSelectedStylesheetSet 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 String
"selected-stylesheet-set"
setDOMDocumentSelectedStylesheetSet :: (MonadIO m, IsDOMDocument o) => o -> T.Text -> m ()
setDOMDocumentSelectedStylesheetSet :: o -> Text -> m ()
setDOMDocumentSelectedStylesheetSet o
obj 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 String
"selected-stylesheet-set" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMDocumentSelectedStylesheetSet :: (IsDOMDocument o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMDocumentSelectedStylesheetSet :: Text -> m (GValueConstruct o)
constructDOMDocumentSelectedStylesheetSet Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"selected-stylesheet-set" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentSelectedStylesheetSetPropertyInfo
instance AttrInfo DOMDocumentSelectedStylesheetSetPropertyInfo where
type AttrAllowedOps DOMDocumentSelectedStylesheetSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMDocumentSelectedStylesheetSetPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentSelectedStylesheetSetPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMDocumentSelectedStylesheetSetPropertyInfo = (~) T.Text
type AttrTransferType DOMDocumentSelectedStylesheetSetPropertyInfo = T.Text
type AttrGetType DOMDocumentSelectedStylesheetSetPropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentSelectedStylesheetSetPropertyInfo = "selected-stylesheet-set"
type AttrOrigin DOMDocumentSelectedStylesheetSetPropertyInfo = DOMDocument
attrGet = getDOMDocumentSelectedStylesheetSet
attrSet = setDOMDocumentSelectedStylesheetSet
attrTransfer _ v = do
return v
attrConstruct = constructDOMDocumentSelectedStylesheetSet
attrClear = undefined
#endif
getDOMDocumentStyleSheets :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMStyleSheetList.DOMStyleSheetList
getDOMDocumentStyleSheets :: o -> m DOMStyleSheetList
getDOMDocumentStyleSheets o
obj = IO DOMStyleSheetList -> m DOMStyleSheetList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMStyleSheetList -> m DOMStyleSheetList)
-> IO DOMStyleSheetList -> m DOMStyleSheetList
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMStyleSheetList) -> IO DOMStyleSheetList
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMDocumentStyleSheets" (IO (Maybe DOMStyleSheetList) -> IO DOMStyleSheetList)
-> IO (Maybe DOMStyleSheetList) -> IO DOMStyleSheetList
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMStyleSheetList -> DOMStyleSheetList)
-> IO (Maybe DOMStyleSheetList)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"style-sheets" ManagedPtr DOMStyleSheetList -> DOMStyleSheetList
WebKit2WebExtension.DOMStyleSheetList.DOMStyleSheetList
#if defined(ENABLE_OVERLOADING)
data DOMDocumentStyleSheetsPropertyInfo
instance AttrInfo DOMDocumentStyleSheetsPropertyInfo where
type AttrAllowedOps DOMDocumentStyleSheetsPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentStyleSheetsPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentStyleSheetsPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentStyleSheetsPropertyInfo = (~) ()
type AttrTransferType DOMDocumentStyleSheetsPropertyInfo = ()
type AttrGetType DOMDocumentStyleSheetsPropertyInfo = WebKit2WebExtension.DOMStyleSheetList.DOMStyleSheetList
type AttrLabel DOMDocumentStyleSheetsPropertyInfo = "style-sheets"
type AttrOrigin DOMDocumentStyleSheetsPropertyInfo = DOMDocument
attrGet = getDOMDocumentStyleSheets
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentTitle :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentTitle :: o -> m (Maybe Text)
getDOMDocumentTitle 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 String
"title"
setDOMDocumentTitle :: (MonadIO m, IsDOMDocument o) => o -> T.Text -> m ()
setDOMDocumentTitle :: o -> Text -> m ()
setDOMDocumentTitle o
obj 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 String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMDocumentTitle :: (IsDOMDocument o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMDocumentTitle :: Text -> m (GValueConstruct o)
constructDOMDocumentTitle Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentTitlePropertyInfo
instance AttrInfo DOMDocumentTitlePropertyInfo where
type AttrAllowedOps DOMDocumentTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMDocumentTitlePropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMDocumentTitlePropertyInfo = (~) T.Text
type AttrTransferType DOMDocumentTitlePropertyInfo = T.Text
type AttrGetType DOMDocumentTitlePropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentTitlePropertyInfo = "title"
type AttrOrigin DOMDocumentTitlePropertyInfo = DOMDocument
attrGet = getDOMDocumentTitle
attrSet = setDOMDocumentTitle
attrTransfer _ v = do
return v
attrConstruct = constructDOMDocumentTitle
attrClear = undefined
#endif
getDOMDocumentUrl :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentUrl :: o -> m (Maybe Text)
getDOMDocumentUrl 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 String
"url"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentUrlPropertyInfo
instance AttrInfo DOMDocumentUrlPropertyInfo where
type AttrAllowedOps DOMDocumentUrlPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentUrlPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentUrlPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentUrlPropertyInfo = (~) ()
type AttrTransferType DOMDocumentUrlPropertyInfo = ()
type AttrGetType DOMDocumentUrlPropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentUrlPropertyInfo = "url"
type AttrOrigin DOMDocumentUrlPropertyInfo = DOMDocument
attrGet = getDOMDocumentUrl
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentVisibilityState :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentVisibilityState :: o -> m (Maybe Text)
getDOMDocumentVisibilityState 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 String
"visibility-state"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentVisibilityStatePropertyInfo
instance AttrInfo DOMDocumentVisibilityStatePropertyInfo where
type AttrAllowedOps DOMDocumentVisibilityStatePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentVisibilityStatePropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentVisibilityStatePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentVisibilityStatePropertyInfo = (~) ()
type AttrTransferType DOMDocumentVisibilityStatePropertyInfo = ()
type AttrGetType DOMDocumentVisibilityStatePropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentVisibilityStatePropertyInfo = "visibility-state"
type AttrOrigin DOMDocumentVisibilityStatePropertyInfo = DOMDocument
attrGet = getDOMDocumentVisibilityState
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentWebkitCurrentFullScreenElement :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMElement.DOMElement)
getDOMDocumentWebkitCurrentFullScreenElement :: o -> m (Maybe DOMElement)
getDOMDocumentWebkitCurrentFullScreenElement o
obj = IO (Maybe DOMElement) -> m (Maybe DOMElement)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DOMElement) -> m (Maybe DOMElement))
-> IO (Maybe DOMElement) -> m (Maybe 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 String
"webkit-current-full-screen-element" ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement
#if defined(ENABLE_OVERLOADING)
data DOMDocumentWebkitCurrentFullScreenElementPropertyInfo
instance AttrInfo DOMDocumentWebkitCurrentFullScreenElementPropertyInfo where
type AttrAllowedOps DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = (~) ()
type AttrTransferType DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = ()
type AttrGetType DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = (Maybe WebKit2WebExtension.DOMElement.DOMElement)
type AttrLabel DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = "webkit-current-full-screen-element"
type AttrOrigin DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = DOMDocument
attrGet = getDOMDocumentWebkitCurrentFullScreenElement
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentWebkitFullScreenKeyboardInputAllowed :: (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentWebkitFullScreenKeyboardInputAllowed :: o -> m Bool
getDOMDocumentWebkitFullScreenKeyboardInputAllowed o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"webkit-full-screen-keyboard-input-allowed"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo
instance AttrInfo DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo where
type AttrAllowedOps DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = (~) ()
type AttrTransferType DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = ()
type AttrGetType DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = Bool
type AttrLabel DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = "webkit-full-screen-keyboard-input-allowed"
type AttrOrigin DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = DOMDocument
attrGet = getDOMDocumentWebkitFullScreenKeyboardInputAllowed
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentWebkitFullscreenElement :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentWebkitFullscreenElement :: o -> m DOMElement
getDOMDocumentWebkitFullscreenElement 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 Text
"getDOMDocumentWebkitFullscreenElement" (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 String
"webkit-fullscreen-element" ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement
#if defined(ENABLE_OVERLOADING)
data DOMDocumentWebkitFullscreenElementPropertyInfo
instance AttrInfo DOMDocumentWebkitFullscreenElementPropertyInfo where
type AttrAllowedOps DOMDocumentWebkitFullscreenElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = (~) ()
type AttrTransferType DOMDocumentWebkitFullscreenElementPropertyInfo = ()
type AttrGetType DOMDocumentWebkitFullscreenElementPropertyInfo = WebKit2WebExtension.DOMElement.DOMElement
type AttrLabel DOMDocumentWebkitFullscreenElementPropertyInfo = "webkit-fullscreen-element"
type AttrOrigin DOMDocumentWebkitFullscreenElementPropertyInfo = DOMDocument
attrGet = getDOMDocumentWebkitFullscreenElement
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentWebkitFullscreenEnabled :: (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentWebkitFullscreenEnabled :: o -> m Bool
getDOMDocumentWebkitFullscreenEnabled o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"webkit-fullscreen-enabled"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentWebkitFullscreenEnabledPropertyInfo
instance AttrInfo DOMDocumentWebkitFullscreenEnabledPropertyInfo where
type AttrAllowedOps DOMDocumentWebkitFullscreenEnabledPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMDocumentWebkitFullscreenEnabledPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentWebkitFullscreenEnabledPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentWebkitFullscreenEnabledPropertyInfo = (~) ()
type AttrTransferType DOMDocumentWebkitFullscreenEnabledPropertyInfo = ()
type AttrGetType DOMDocumentWebkitFullscreenEnabledPropertyInfo = Bool
type AttrLabel DOMDocumentWebkitFullscreenEnabledPropertyInfo = "webkit-fullscreen-enabled"
type AttrOrigin DOMDocumentWebkitFullscreenEnabledPropertyInfo = DOMDocument
attrGet = getDOMDocumentWebkitFullscreenEnabled
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentWebkitIsFullScreen :: (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentWebkitIsFullScreen :: o -> m Bool
getDOMDocumentWebkitIsFullScreen o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"webkit-is-full-screen"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentWebkitIsFullScreenPropertyInfo
instance AttrInfo DOMDocumentWebkitIsFullScreenPropertyInfo where
type AttrAllowedOps DOMDocumentWebkitIsFullScreenPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMDocumentWebkitIsFullScreenPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentWebkitIsFullScreenPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentWebkitIsFullScreenPropertyInfo = (~) ()
type AttrTransferType DOMDocumentWebkitIsFullScreenPropertyInfo = ()
type AttrGetType DOMDocumentWebkitIsFullScreenPropertyInfo = Bool
type AttrLabel DOMDocumentWebkitIsFullScreenPropertyInfo = "webkit-is-full-screen"
type AttrOrigin DOMDocumentWebkitIsFullScreenPropertyInfo = DOMDocument
attrGet = getDOMDocumentWebkitIsFullScreen
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentXmlEncoding :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentXmlEncoding :: o -> m (Maybe Text)
getDOMDocumentXmlEncoding 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 String
"xml-encoding"
#if defined(ENABLE_OVERLOADING)
data DOMDocumentXmlEncodingPropertyInfo
instance AttrInfo DOMDocumentXmlEncodingPropertyInfo where
type AttrAllowedOps DOMDocumentXmlEncodingPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentXmlEncodingPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentXmlEncodingPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentXmlEncodingPropertyInfo = (~) ()
type AttrTransferType DOMDocumentXmlEncodingPropertyInfo = ()
type AttrGetType DOMDocumentXmlEncodingPropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentXmlEncodingPropertyInfo = "xml-encoding"
type AttrOrigin DOMDocumentXmlEncodingPropertyInfo = DOMDocument
attrGet = getDOMDocumentXmlEncoding
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMDocumentXmlStandalone :: (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentXmlStandalone :: o -> m Bool
getDOMDocumentXmlStandalone o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"xml-standalone"
setDOMDocumentXmlStandalone :: (MonadIO m, IsDOMDocument o) => o -> Bool -> m ()
setDOMDocumentXmlStandalone :: o -> Bool -> m ()
setDOMDocumentXmlStandalone o
obj Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"xml-standalone" Bool
val
constructDOMDocumentXmlStandalone :: (IsDOMDocument o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructDOMDocumentXmlStandalone :: Bool -> m (GValueConstruct o)
constructDOMDocumentXmlStandalone Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"xml-standalone" Bool
val
#if defined(ENABLE_OVERLOADING)
data DOMDocumentXmlStandalonePropertyInfo
instance AttrInfo DOMDocumentXmlStandalonePropertyInfo where
type AttrAllowedOps DOMDocumentXmlStandalonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMDocumentXmlStandalonePropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentXmlStandalonePropertyInfo = (~) Bool
type AttrTransferTypeConstraint DOMDocumentXmlStandalonePropertyInfo = (~) Bool
type AttrTransferType DOMDocumentXmlStandalonePropertyInfo = Bool
type AttrGetType DOMDocumentXmlStandalonePropertyInfo = Bool
type AttrLabel DOMDocumentXmlStandalonePropertyInfo = "xml-standalone"
type AttrOrigin DOMDocumentXmlStandalonePropertyInfo = DOMDocument
attrGet = getDOMDocumentXmlStandalone
attrSet = setDOMDocumentXmlStandalone
attrTransfer _ v = do
return v
attrConstruct = constructDOMDocumentXmlStandalone
attrClear = undefined
#endif
getDOMDocumentXmlVersion :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentXmlVersion :: o -> m (Maybe Text)
getDOMDocumentXmlVersion 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 String
"xml-version"
setDOMDocumentXmlVersion :: (MonadIO m, IsDOMDocument o) => o -> T.Text -> m ()
setDOMDocumentXmlVersion :: o -> Text -> m ()
setDOMDocumentXmlVersion o
obj 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 String
"xml-version" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMDocumentXmlVersion :: (IsDOMDocument o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMDocumentXmlVersion :: Text -> m (GValueConstruct o)
constructDOMDocumentXmlVersion Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"xml-version" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearDOMDocumentXmlVersion :: (MonadIO m, IsDOMDocument o) => o -> m ()
clearDOMDocumentXmlVersion :: o -> m ()
clearDOMDocumentXmlVersion 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 String
"xml-version" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentXmlVersionPropertyInfo
instance AttrInfo DOMDocumentXmlVersionPropertyInfo where
type AttrAllowedOps DOMDocumentXmlVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentXmlVersionPropertyInfo = IsDOMDocument
type AttrSetTypeConstraint DOMDocumentXmlVersionPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMDocumentXmlVersionPropertyInfo = (~) T.Text
type AttrTransferType DOMDocumentXmlVersionPropertyInfo = T.Text
type AttrGetType DOMDocumentXmlVersionPropertyInfo = (Maybe T.Text)
type AttrLabel DOMDocumentXmlVersionPropertyInfo = "xml-version"
type AttrOrigin DOMDocumentXmlVersionPropertyInfo = DOMDocument
attrGet = getDOMDocumentXmlVersion
attrSet = setDOMDocumentXmlVersion
attrTransfer _ v = do
return v
attrConstruct = constructDOMDocumentXmlVersion
attrClear = clearDOMDocumentXmlVersion
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMDocument
type instance O.AttributeList DOMDocument = DOMDocumentAttributeList
type DOMDocumentAttributeList = ('[ '("activeElement", DOMDocumentActiveElementPropertyInfo), '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("baseUri", WebKit2WebExtension.DOMNode.DOMNodeBaseUriPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("characterSet", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("childElementCount", DOMDocumentChildElementCountPropertyInfo), '("childNodes", WebKit2WebExtension.DOMNode.DOMNodeChildNodesPropertyInfo), '("children", DOMDocumentChildrenPropertyInfo), '("compatMode", DOMDocumentCompatModePropertyInfo), '("contentType", DOMDocumentContentTypePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("currentScript", DOMDocumentCurrentScriptPropertyInfo), '("defaultView", DOMDocumentDefaultViewPropertyInfo), '("designMode", DOMDocumentDesignModePropertyInfo), '("dir", DOMDocumentDirPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("documentElement", DOMDocumentDocumentElementPropertyInfo), '("documentUri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("embeds", DOMDocumentEmbedsPropertyInfo), '("firstChild", WebKit2WebExtension.DOMNode.DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMDocumentFirstElementChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("inputEncoding", DOMDocumentInputEncodingPropertyInfo), '("lastChild", WebKit2WebExtension.DOMNode.DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMDocumentLastElementChildPropertyInfo), '("lastModified", DOMDocumentLastModifiedPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("nextSibling", WebKit2WebExtension.DOMNode.DOMNodeNextSiblingPropertyInfo), '("nodeName", WebKit2WebExtension.DOMNode.DOMNodeNodeNamePropertyInfo), '("nodeType", WebKit2WebExtension.DOMNode.DOMNodeNodeTypePropertyInfo), '("nodeValue", WebKit2WebExtension.DOMNode.DOMNodeNodeValuePropertyInfo), '("origin", DOMDocumentOriginPropertyInfo), '("ownerDocument", WebKit2WebExtension.DOMNode.DOMNodeOwnerDocumentPropertyInfo), '("parentElement", WebKit2WebExtension.DOMNode.DOMNodeParentElementPropertyInfo), '("parentNode", WebKit2WebExtension.DOMNode.DOMNodeParentNodePropertyInfo), '("plugins", DOMDocumentPluginsPropertyInfo), '("pointerLockElement", DOMDocumentPointerLockElementPropertyInfo), '("preferredStylesheetSet", DOMDocumentPreferredStylesheetSetPropertyInfo), '("previousSibling", WebKit2WebExtension.DOMNode.DOMNodePreviousSiblingPropertyInfo), '("readyState", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("scripts", DOMDocumentScriptsPropertyInfo), '("scrollingElement", DOMDocumentScrollingElementPropertyInfo), '("selectedStylesheetSet", DOMDocumentSelectedStylesheetSetPropertyInfo), '("styleSheets", DOMDocumentStyleSheetsPropertyInfo), '("textContent", WebKit2WebExtension.DOMNode.DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibilityState", DOMDocumentVisibilityStatePropertyInfo), '("webkitCurrentFullScreenElement", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkitFullScreenKeyboardInputAllowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkitFullscreenElement", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkitFullscreenEnabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkitIsFullScreen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("xmlEncoding", DOMDocumentXmlEncodingPropertyInfo), '("xmlStandalone", DOMDocumentXmlStandalonePropertyInfo), '("xmlVersion", DOMDocumentXmlVersionPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentActiveElement :: AttrLabelProxy "activeElement"
dOMDocumentActiveElement = AttrLabelProxy
dOMDocumentAnchors :: AttrLabelProxy "anchors"
dOMDocumentAnchors = AttrLabelProxy
dOMDocumentApplets :: AttrLabelProxy "applets"
dOMDocumentApplets = AttrLabelProxy
dOMDocumentBody :: AttrLabelProxy "body"
dOMDocumentBody = AttrLabelProxy
dOMDocumentCharacterSet :: AttrLabelProxy "characterSet"
dOMDocumentCharacterSet = AttrLabelProxy
dOMDocumentCharset :: AttrLabelProxy "charset"
dOMDocumentCharset = AttrLabelProxy
dOMDocumentChildElementCount :: AttrLabelProxy "childElementCount"
dOMDocumentChildElementCount = AttrLabelProxy
dOMDocumentChildren :: AttrLabelProxy "children"
dOMDocumentChildren = AttrLabelProxy
dOMDocumentCompatMode :: AttrLabelProxy "compatMode"
dOMDocumentCompatMode = AttrLabelProxy
dOMDocumentContentType :: AttrLabelProxy "contentType"
dOMDocumentContentType = AttrLabelProxy
dOMDocumentCookie :: AttrLabelProxy "cookie"
dOMDocumentCookie = AttrLabelProxy
dOMDocumentCurrentScript :: AttrLabelProxy "currentScript"
dOMDocumentCurrentScript = AttrLabelProxy
dOMDocumentDefaultView :: AttrLabelProxy "defaultView"
dOMDocumentDefaultView = AttrLabelProxy
dOMDocumentDesignMode :: AttrLabelProxy "designMode"
dOMDocumentDesignMode = AttrLabelProxy
dOMDocumentDir :: AttrLabelProxy "dir"
dOMDocumentDir = AttrLabelProxy
dOMDocumentDoctype :: AttrLabelProxy "doctype"
dOMDocumentDoctype = AttrLabelProxy
dOMDocumentDocumentElement :: AttrLabelProxy "documentElement"
dOMDocumentDocumentElement = AttrLabelProxy
dOMDocumentDocumentUri :: AttrLabelProxy "documentUri"
dOMDocumentDocumentUri = AttrLabelProxy
dOMDocumentDomain :: AttrLabelProxy "domain"
dOMDocumentDomain = AttrLabelProxy
dOMDocumentEmbeds :: AttrLabelProxy "embeds"
dOMDocumentEmbeds = AttrLabelProxy
dOMDocumentFirstElementChild :: AttrLabelProxy "firstElementChild"
dOMDocumentFirstElementChild = AttrLabelProxy
dOMDocumentForms :: AttrLabelProxy "forms"
dOMDocumentForms = AttrLabelProxy
dOMDocumentHead :: AttrLabelProxy "head"
dOMDocumentHead = AttrLabelProxy
dOMDocumentHidden :: AttrLabelProxy "hidden"
dOMDocumentHidden = AttrLabelProxy
dOMDocumentImages :: AttrLabelProxy "images"
dOMDocumentImages = AttrLabelProxy
dOMDocumentImplementation :: AttrLabelProxy "implementation"
dOMDocumentImplementation = AttrLabelProxy
dOMDocumentInputEncoding :: AttrLabelProxy "inputEncoding"
dOMDocumentInputEncoding = AttrLabelProxy
dOMDocumentLastElementChild :: AttrLabelProxy "lastElementChild"
dOMDocumentLastElementChild = AttrLabelProxy
dOMDocumentLastModified :: AttrLabelProxy "lastModified"
dOMDocumentLastModified = AttrLabelProxy
dOMDocumentLinks :: AttrLabelProxy "links"
dOMDocumentLinks = AttrLabelProxy
dOMDocumentOrigin :: AttrLabelProxy "origin"
dOMDocumentOrigin = AttrLabelProxy
dOMDocumentPlugins :: AttrLabelProxy "plugins"
dOMDocumentPlugins = AttrLabelProxy
dOMDocumentPointerLockElement :: AttrLabelProxy "pointerLockElement"
dOMDocumentPointerLockElement = AttrLabelProxy
dOMDocumentPreferredStylesheetSet :: AttrLabelProxy "preferredStylesheetSet"
dOMDocumentPreferredStylesheetSet = AttrLabelProxy
dOMDocumentReadyState :: AttrLabelProxy "readyState"
dOMDocumentReadyState = AttrLabelProxy
dOMDocumentReferrer :: AttrLabelProxy "referrer"
dOMDocumentReferrer = AttrLabelProxy
dOMDocumentScripts :: AttrLabelProxy "scripts"
dOMDocumentScripts = AttrLabelProxy
dOMDocumentScrollingElement :: AttrLabelProxy "scrollingElement"
dOMDocumentScrollingElement = AttrLabelProxy
dOMDocumentSelectedStylesheetSet :: AttrLabelProxy "selectedStylesheetSet"
dOMDocumentSelectedStylesheetSet = AttrLabelProxy
dOMDocumentStyleSheets :: AttrLabelProxy "styleSheets"
dOMDocumentStyleSheets = AttrLabelProxy
dOMDocumentTitle :: AttrLabelProxy "title"
dOMDocumentTitle = AttrLabelProxy
dOMDocumentUrl :: AttrLabelProxy "url"
dOMDocumentUrl = AttrLabelProxy
dOMDocumentVisibilityState :: AttrLabelProxy "visibilityState"
dOMDocumentVisibilityState = AttrLabelProxy
dOMDocumentWebkitCurrentFullScreenElement :: AttrLabelProxy "webkitCurrentFullScreenElement"
dOMDocumentWebkitCurrentFullScreenElement = AttrLabelProxy
dOMDocumentWebkitFullScreenKeyboardInputAllowed :: AttrLabelProxy "webkitFullScreenKeyboardInputAllowed"
dOMDocumentWebkitFullScreenKeyboardInputAllowed = AttrLabelProxy
dOMDocumentWebkitFullscreenElement :: AttrLabelProxy "webkitFullscreenElement"
dOMDocumentWebkitFullscreenElement = AttrLabelProxy
dOMDocumentWebkitFullscreenEnabled :: AttrLabelProxy "webkitFullscreenEnabled"
dOMDocumentWebkitFullscreenEnabled = AttrLabelProxy
dOMDocumentWebkitIsFullScreen :: AttrLabelProxy "webkitIsFullScreen"
dOMDocumentWebkitIsFullScreen = AttrLabelProxy
dOMDocumentXmlEncoding :: AttrLabelProxy "xmlEncoding"
dOMDocumentXmlEncoding = AttrLabelProxy
dOMDocumentXmlStandalone :: AttrLabelProxy "xmlStandalone"
dOMDocumentXmlStandalone = AttrLabelProxy
dOMDocumentXmlVersion :: AttrLabelProxy "xmlVersion"
dOMDocumentXmlVersion = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMDocument = DOMDocumentSignalList
type DOMDocumentSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_document_adopt_node" webkit_dom_document_adopt_node ::
Ptr DOMDocument ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMDocumentAdoptNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentAdoptNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMDocumentAdoptNode :: a -> b -> m DOMNode
dOMDocumentAdoptNode a
self b
source = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
source' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
source
IO DOMNode -> IO () -> IO DOMNode
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMNode
result <- (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode))
-> (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a b. (a -> b) -> a -> b
$ Ptr DOMDocument
-> Ptr DOMNode -> Ptr (Ptr GError) -> IO (Ptr DOMNode)
webkit_dom_document_adopt_node Ptr DOMDocument
self' Ptr DOMNode
source'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentAdoptNode" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
source
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentAdoptNodeMethodInfo
instance (signature ~ (b -> m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMDocumentAdoptNodeMethodInfo a signature where
overloadedMethod = dOMDocumentAdoptNode
#endif
foreign import ccall "webkit_dom_document_caret_range_from_point" webkit_dom_document_caret_range_from_point ::
Ptr DOMDocument ->
CLong ->
CLong ->
IO (Ptr WebKit2WebExtension.DOMRange.DOMRange)
{-# DEPRECATED dOMDocumentCaretRangeFromPoint ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCaretRangeFromPoint ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> CLong
-> CLong
-> m WebKit2WebExtension.DOMRange.DOMRange
dOMDocumentCaretRangeFromPoint :: a -> CLong -> CLong -> m DOMRange
dOMDocumentCaretRangeFromPoint a
self CLong
x CLong
y = IO DOMRange -> m DOMRange
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMRange -> m DOMRange) -> IO DOMRange -> m DOMRange
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMRange
result <- Ptr DOMDocument -> CLong -> CLong -> IO (Ptr DOMRange)
webkit_dom_document_caret_range_from_point Ptr DOMDocument
self' CLong
x CLong
y
Text -> Ptr DOMRange -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCaretRangeFromPoint" Ptr DOMRange
result
DOMRange
result' <- ((ManagedPtr DOMRange -> DOMRange) -> Ptr DOMRange -> IO DOMRange
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMRange -> DOMRange
WebKit2WebExtension.DOMRange.DOMRange) Ptr DOMRange
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMRange -> IO DOMRange
forall (m :: * -> *) a. Monad m => a -> m a
return DOMRange
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCaretRangeFromPointMethodInfo
instance (signature ~ (CLong -> CLong -> m WebKit2WebExtension.DOMRange.DOMRange), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentCaretRangeFromPointMethodInfo a signature where
overloadedMethod = dOMDocumentCaretRangeFromPoint
#endif
foreign import ccall "webkit_dom_document_create_attribute" webkit_dom_document_create_attribute ::
Ptr DOMDocument ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMAttr.DOMAttr)
{-# DEPRECATED dOMDocumentCreateAttribute ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateAttribute ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMAttr.DOMAttr
dOMDocumentCreateAttribute :: a -> Text -> m DOMAttr
dOMDocumentCreateAttribute a
self 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
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 DOMDocument -> CString -> Ptr (Ptr GError) -> IO (Ptr DOMAttr)
webkit_dom_document_create_attribute Ptr DOMDocument
self' CString
name'
Text -> Ptr DOMAttr -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateAttribute" 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'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateAttributeMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMAttr.DOMAttr), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentCreateAttributeMethodInfo a signature where
overloadedMethod = dOMDocumentCreateAttribute
#endif
foreign import ccall "webkit_dom_document_create_attribute_ns" webkit_dom_document_create_attribute_ns ::
Ptr DOMDocument ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMAttr.DOMAttr)
{-# DEPRECATED dOMDocumentCreateAttributeNs ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateAttributeNs ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> Maybe (T.Text)
-> T.Text
-> m WebKit2WebExtension.DOMAttr.DOMAttr
dOMDocumentCreateAttributeNs :: a -> Maybe Text -> Text -> m DOMAttr
dOMDocumentCreateAttributeNs a
self Maybe Text
namespaceURI Text
qualifiedName = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeNamespaceURI <- case Maybe Text
namespaceURI of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just 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
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 DOMDocument
-> CString -> CString -> Ptr (Ptr GError) -> IO (Ptr DOMAttr)
webkit_dom_document_create_attribute_ns Ptr DOMDocument
self' CString
maybeNamespaceURI CString
qualifiedName'
Text -> Ptr DOMAttr -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateAttributeNs" 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
maybeNamespaceURI
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
qualifiedName'
DOMAttr -> IO DOMAttr
forall (m :: * -> *) a. Monad m => a -> m a
return DOMAttr
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeNamespaceURI
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
qualifiedName'
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateAttributeNsMethodInfo
instance (signature ~ (Maybe (T.Text) -> T.Text -> m WebKit2WebExtension.DOMAttr.DOMAttr), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentCreateAttributeNsMethodInfo a signature where
overloadedMethod = dOMDocumentCreateAttributeNs
#endif
foreign import ccall "webkit_dom_document_create_cdata_section" webkit_dom_document_create_cdata_section ::
Ptr DOMDocument ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMCDATASection.DOMCDATASection)
{-# DEPRECATED dOMDocumentCreateCdataSection ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateCdataSection ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMCDATASection.DOMCDATASection
dOMDocumentCreateCdataSection :: a -> Text -> m DOMCDATASection
dOMDocumentCreateCdataSection a
self Text
data_ = IO DOMCDATASection -> m DOMCDATASection
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMCDATASection -> m DOMCDATASection)
-> IO DOMCDATASection -> m DOMCDATASection
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
data_' <- Text -> IO CString
textToCString Text
data_
IO DOMCDATASection -> IO () -> IO DOMCDATASection
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMCDATASection
result <- (Ptr (Ptr GError) -> IO (Ptr DOMCDATASection))
-> IO (Ptr DOMCDATASection)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMCDATASection))
-> IO (Ptr DOMCDATASection))
-> (Ptr (Ptr GError) -> IO (Ptr DOMCDATASection))
-> IO (Ptr DOMCDATASection)
forall a b. (a -> b) -> a -> b
$ Ptr DOMDocument
-> CString -> Ptr (Ptr GError) -> IO (Ptr DOMCDATASection)
webkit_dom_document_create_cdata_section Ptr DOMDocument
self' CString
data_'
Text -> Ptr DOMCDATASection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateCdataSection" Ptr DOMCDATASection
result
DOMCDATASection
result' <- ((ManagedPtr DOMCDATASection -> DOMCDATASection)
-> Ptr DOMCDATASection -> IO DOMCDATASection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMCDATASection -> DOMCDATASection
WebKit2WebExtension.DOMCDATASection.DOMCDATASection) Ptr DOMCDATASection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
data_'
DOMCDATASection -> IO DOMCDATASection
forall (m :: * -> *) a. Monad m => a -> m a
return DOMCDATASection
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
data_'
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateCdataSectionMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMCDATASection.DOMCDATASection), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentCreateCdataSectionMethodInfo a signature where
overloadedMethod = dOMDocumentCreateCdataSection
#endif
foreign import ccall "webkit_dom_document_create_comment" ::
Ptr DOMDocument ->
CString ->
IO (Ptr WebKit2WebExtension.DOMComment.DOMComment)
{-# DEPRECATED dOMDocumentCreateComment ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateComment ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMComment.DOMComment
a
self Text
data_ = IO DOMComment -> m DOMComment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMComment -> m DOMComment) -> IO DOMComment -> m DOMComment
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
data_' <- Text -> IO CString
textToCString Text
data_
Ptr DOMComment
result <- Ptr DOMDocument -> CString -> IO (Ptr DOMComment)
webkit_dom_document_create_comment Ptr DOMDocument
self' CString
data_'
Text -> Ptr DOMComment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateComment" Ptr DOMComment
result
DOMComment
result' <- ((ManagedPtr DOMComment -> DOMComment)
-> Ptr DOMComment -> IO DOMComment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMComment -> DOMComment
WebKit2WebExtension.DOMComment.DOMComment) Ptr DOMComment
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
data_'
DOMComment -> IO DOMComment
forall (m :: * -> *) a. Monad m => a -> m a
return DOMComment
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateCommentMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMComment.DOMComment), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentCreateCommentMethodInfo a signature where
overloadedMethod = dOMDocumentCreateComment
#endif
foreign import ccall "webkit_dom_document_create_css_style_declaration" webkit_dom_document_create_css_style_declaration ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMCSSStyleDeclaration.DOMCSSStyleDeclaration)
{-# DEPRECATED dOMDocumentCreateCssStyleDeclaration ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateCssStyleDeclaration ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMCSSStyleDeclaration.DOMCSSStyleDeclaration
dOMDocumentCreateCssStyleDeclaration :: a -> m DOMCSSStyleDeclaration
dOMDocumentCreateCssStyleDeclaration 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMCSSStyleDeclaration
result <- Ptr DOMDocument -> IO (Ptr DOMCSSStyleDeclaration)
webkit_dom_document_create_css_style_declaration Ptr DOMDocument
self'
Text -> Ptr DOMCSSStyleDeclaration -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateCssStyleDeclaration" 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 DOMDocumentCreateCssStyleDeclarationMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMCSSStyleDeclaration.DOMCSSStyleDeclaration), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentCreateCssStyleDeclarationMethodInfo a signature where
overloadedMethod = dOMDocumentCreateCssStyleDeclaration
#endif
foreign import ccall "webkit_dom_document_create_document_fragment" webkit_dom_document_create_document_fragment ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment)
{-# DEPRECATED dOMDocumentCreateDocumentFragment ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateDocumentFragment ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment
dOMDocumentCreateDocumentFragment :: a -> m DOMDocumentFragment
dOMDocumentCreateDocumentFragment a
self = IO DOMDocumentFragment -> m DOMDocumentFragment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMDocumentFragment -> m DOMDocumentFragment)
-> IO DOMDocumentFragment -> m DOMDocumentFragment
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMDocumentFragment
result <- Ptr DOMDocument -> IO (Ptr DOMDocumentFragment)
webkit_dom_document_create_document_fragment Ptr DOMDocument
self'
Text -> Ptr DOMDocumentFragment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateDocumentFragment" Ptr DOMDocumentFragment
result
DOMDocumentFragment
result' <- ((ManagedPtr DOMDocumentFragment -> DOMDocumentFragment)
-> Ptr DOMDocumentFragment -> IO DOMDocumentFragment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMDocumentFragment -> DOMDocumentFragment
WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment) Ptr DOMDocumentFragment
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMDocumentFragment -> IO DOMDocumentFragment
forall (m :: * -> *) a. Monad m => a -> m a
return DOMDocumentFragment
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateDocumentFragmentMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentCreateDocumentFragmentMethodInfo a signature where
overloadedMethod = dOMDocumentCreateDocumentFragment
#endif
foreign import ccall "webkit_dom_document_create_element" webkit_dom_document_create_element ::
Ptr DOMDocument ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentCreateElement ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateElement ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentCreateElement :: a -> Text -> m DOMElement
dOMDocumentCreateElement a
self Text
tagName = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
tagName' <- Text -> IO CString
textToCString Text
tagName
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 DOMDocument
-> CString -> Ptr (Ptr GError) -> IO (Ptr DOMElement)
webkit_dom_document_create_element Ptr DOMDocument
self' CString
tagName'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateElement" 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
WebKit2WebExtension.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
tagName'
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
tagName'
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateElementMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentCreateElementMethodInfo a signature where
overloadedMethod = dOMDocumentCreateElement
#endif
foreign import ccall "webkit_dom_document_create_element_ns" webkit_dom_document_create_element_ns ::
Ptr DOMDocument ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentCreateElementNs ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateElementNs ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> Maybe (T.Text)
-> T.Text
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentCreateElementNs :: a -> Maybe Text -> Text -> m DOMElement
dOMDocumentCreateElementNs a
self Maybe Text
namespaceURI Text
qualifiedName = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeNamespaceURI <- case Maybe Text
namespaceURI of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just 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
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 DOMDocument
-> CString -> CString -> Ptr (Ptr GError) -> IO (Ptr DOMElement)
webkit_dom_document_create_element_ns Ptr DOMDocument
self' CString
maybeNamespaceURI CString
qualifiedName'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateElementNs" 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
WebKit2WebExtension.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
maybeNamespaceURI
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
qualifiedName'
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeNamespaceURI
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
qualifiedName'
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateElementNsMethodInfo
instance (signature ~ (Maybe (T.Text) -> T.Text -> m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentCreateElementNsMethodInfo a signature where
overloadedMethod = dOMDocumentCreateElementNs
#endif
foreign import ccall "webkit_dom_document_create_entity_reference" webkit_dom_document_create_entity_reference ::
Ptr DOMDocument ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMEntityReference.DOMEntityReference)
{-# DEPRECATED dOMDocumentCreateEntityReference ["(Since version 2.12)"] #-}
dOMDocumentCreateEntityReference ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> Maybe (T.Text)
-> m WebKit2WebExtension.DOMEntityReference.DOMEntityReference
dOMDocumentCreateEntityReference :: a -> Maybe Text -> m DOMEntityReference
dOMDocumentCreateEntityReference a
self Maybe Text
name = IO DOMEntityReference -> m DOMEntityReference
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMEntityReference -> m DOMEntityReference)
-> IO DOMEntityReference -> m DOMEntityReference
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeName <- case Maybe Text
name of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jName -> do
CString
jName' <- Text -> IO CString
textToCString Text
jName
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jName'
IO DOMEntityReference -> IO () -> IO DOMEntityReference
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMEntityReference
result <- (Ptr (Ptr GError) -> IO (Ptr DOMEntityReference))
-> IO (Ptr DOMEntityReference)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMEntityReference))
-> IO (Ptr DOMEntityReference))
-> (Ptr (Ptr GError) -> IO (Ptr DOMEntityReference))
-> IO (Ptr DOMEntityReference)
forall a b. (a -> b) -> a -> b
$ Ptr DOMDocument
-> CString -> Ptr (Ptr GError) -> IO (Ptr DOMEntityReference)
webkit_dom_document_create_entity_reference Ptr DOMDocument
self' CString
maybeName
Text -> Ptr DOMEntityReference -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateEntityReference" Ptr DOMEntityReference
result
DOMEntityReference
result' <- ((ManagedPtr DOMEntityReference -> DOMEntityReference)
-> Ptr DOMEntityReference -> IO DOMEntityReference
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMEntityReference -> DOMEntityReference
WebKit2WebExtension.DOMEntityReference.DOMEntityReference) Ptr DOMEntityReference
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeName
DOMEntityReference -> IO DOMEntityReference
forall (m :: * -> *) a. Monad m => a -> m a
return DOMEntityReference
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeName
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateEntityReferenceMethodInfo
instance (signature ~ (Maybe (T.Text) -> m WebKit2WebExtension.DOMEntityReference.DOMEntityReference), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentCreateEntityReferenceMethodInfo a signature where
overloadedMethod = dOMDocumentCreateEntityReference
#endif
foreign import ccall "webkit_dom_document_create_event" webkit_dom_document_create_event ::
Ptr DOMDocument ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMEvent.DOMEvent)
{-# DEPRECATED dOMDocumentCreateEvent ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMEvent.DOMEvent
dOMDocumentCreateEvent :: a -> Text -> m DOMEvent
dOMDocumentCreateEvent a
self Text
eventType = IO DOMEvent -> m DOMEvent
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMEvent -> m DOMEvent) -> IO DOMEvent -> m DOMEvent
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
eventType' <- Text -> IO CString
textToCString Text
eventType
IO DOMEvent -> IO () -> IO DOMEvent
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMEvent
result <- (Ptr (Ptr GError) -> IO (Ptr DOMEvent)) -> IO (Ptr DOMEvent)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMEvent)) -> IO (Ptr DOMEvent))
-> (Ptr (Ptr GError) -> IO (Ptr DOMEvent)) -> IO (Ptr DOMEvent)
forall a b. (a -> b) -> a -> b
$ Ptr DOMDocument -> CString -> Ptr (Ptr GError) -> IO (Ptr DOMEvent)
webkit_dom_document_create_event Ptr DOMDocument
self' CString
eventType'
Text -> Ptr DOMEvent -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateEvent" Ptr DOMEvent
result
DOMEvent
result' <- ((ManagedPtr DOMEvent -> DOMEvent) -> Ptr DOMEvent -> IO DOMEvent
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMEvent -> DOMEvent
WebKit2WebExtension.DOMEvent.DOMEvent) Ptr DOMEvent
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
eventType'
DOMEvent -> IO DOMEvent
forall (m :: * -> *) a. Monad m => a -> m a
return DOMEvent
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
eventType'
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateEventMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMEvent.DOMEvent), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentCreateEventMethodInfo a signature where
overloadedMethod = dOMDocumentCreateEvent
#endif
foreign import ccall "webkit_dom_document_create_expression" webkit_dom_document_create_expression ::
Ptr DOMDocument ->
CString ->
Ptr WebKit2WebExtension.DOMXPathNSResolver.DOMXPathNSResolver ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMXPathExpression.DOMXPathExpression)
{-# DEPRECATED dOMDocumentCreateExpression ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateExpression ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMXPathNSResolver.IsDOMXPathNSResolver b) =>
a
-> T.Text
-> b
-> m WebKit2WebExtension.DOMXPathExpression.DOMXPathExpression
dOMDocumentCreateExpression :: a -> Text -> b -> m DOMXPathExpression
dOMDocumentCreateExpression a
self Text
expression b
resolver = IO DOMXPathExpression -> m DOMXPathExpression
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMXPathExpression -> m DOMXPathExpression)
-> IO DOMXPathExpression -> m DOMXPathExpression
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
expression' <- Text -> IO CString
textToCString Text
expression
Ptr DOMXPathNSResolver
resolver' <- b -> IO (Ptr DOMXPathNSResolver)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
resolver
IO DOMXPathExpression -> IO () -> IO DOMXPathExpression
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMXPathExpression
result <- (Ptr (Ptr GError) -> IO (Ptr DOMXPathExpression))
-> IO (Ptr DOMXPathExpression)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMXPathExpression))
-> IO (Ptr DOMXPathExpression))
-> (Ptr (Ptr GError) -> IO (Ptr DOMXPathExpression))
-> IO (Ptr DOMXPathExpression)
forall a b. (a -> b) -> a -> b
$ Ptr DOMDocument
-> CString
-> Ptr DOMXPathNSResolver
-> Ptr (Ptr GError)
-> IO (Ptr DOMXPathExpression)
webkit_dom_document_create_expression Ptr DOMDocument
self' CString
expression' Ptr DOMXPathNSResolver
resolver'
Text -> Ptr DOMXPathExpression -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateExpression" Ptr DOMXPathExpression
result
DOMXPathExpression
result' <- ((ManagedPtr DOMXPathExpression -> DOMXPathExpression)
-> Ptr DOMXPathExpression -> IO DOMXPathExpression
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMXPathExpression -> DOMXPathExpression
WebKit2WebExtension.DOMXPathExpression.DOMXPathExpression) Ptr DOMXPathExpression
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
resolver
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
expression'
DOMXPathExpression -> IO DOMXPathExpression
forall (m :: * -> *) a. Monad m => a -> m a
return DOMXPathExpression
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
expression'
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateExpressionMethodInfo
instance (signature ~ (T.Text -> b -> m WebKit2WebExtension.DOMXPathExpression.DOMXPathExpression), MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMXPathNSResolver.IsDOMXPathNSResolver b) => O.MethodInfo DOMDocumentCreateExpressionMethodInfo a signature where
overloadedMethod = dOMDocumentCreateExpression
#endif
foreign import ccall "webkit_dom_document_create_node_iterator" webkit_dom_document_create_node_iterator ::
Ptr DOMDocument ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CULong ->
Ptr WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter ->
CInt ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNodeIterator.DOMNodeIterator)
{-# DEPRECATED dOMDocumentCreateNodeIterator ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateNodeIterator ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMNode.IsDOMNode b, WebKit2WebExtension.DOMNodeFilter.IsDOMNodeFilter c) =>
a
-> b
-> CULong
-> Maybe (c)
-> Bool
-> m WebKit2WebExtension.DOMNodeIterator.DOMNodeIterator
dOMDocumentCreateNodeIterator :: a -> b -> CULong -> Maybe c -> Bool -> m DOMNodeIterator
dOMDocumentCreateNodeIterator a
self b
root CULong
whatToShow Maybe c
filter Bool
expandEntityReferences = IO DOMNodeIterator -> m DOMNodeIterator
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNodeIterator -> m DOMNodeIterator)
-> IO DOMNodeIterator -> m DOMNodeIterator
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
root' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
root
Ptr DOMNodeFilter
maybeFilter <- case Maybe c
filter of
Maybe c
Nothing -> Ptr DOMNodeFilter -> IO (Ptr DOMNodeFilter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DOMNodeFilter
forall a. Ptr a
nullPtr
Just c
jFilter -> do
Ptr DOMNodeFilter
jFilter' <- c -> IO (Ptr DOMNodeFilter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jFilter
Ptr DOMNodeFilter -> IO (Ptr DOMNodeFilter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DOMNodeFilter
jFilter'
let expandEntityReferences' :: CInt
expandEntityReferences' = (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
expandEntityReferences
IO DOMNodeIterator -> IO () -> IO DOMNodeIterator
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMNodeIterator
result <- (Ptr (Ptr GError) -> IO (Ptr DOMNodeIterator))
-> IO (Ptr DOMNodeIterator)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMNodeIterator))
-> IO (Ptr DOMNodeIterator))
-> (Ptr (Ptr GError) -> IO (Ptr DOMNodeIterator))
-> IO (Ptr DOMNodeIterator)
forall a b. (a -> b) -> a -> b
$ Ptr DOMDocument
-> Ptr DOMNode
-> CULong
-> Ptr DOMNodeFilter
-> CInt
-> Ptr (Ptr GError)
-> IO (Ptr DOMNodeIterator)
webkit_dom_document_create_node_iterator Ptr DOMDocument
self' Ptr DOMNode
root' CULong
whatToShow Ptr DOMNodeFilter
maybeFilter CInt
expandEntityReferences'
Text -> Ptr DOMNodeIterator -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateNodeIterator" Ptr DOMNodeIterator
result
DOMNodeIterator
result' <- ((ManagedPtr DOMNodeIterator -> DOMNodeIterator)
-> Ptr DOMNodeIterator -> IO DOMNodeIterator
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMNodeIterator -> DOMNodeIterator
WebKit2WebExtension.DOMNodeIterator.DOMNodeIterator) Ptr DOMNodeIterator
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
root
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
filter c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
DOMNodeIterator -> IO DOMNodeIterator
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNodeIterator
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateNodeIteratorMethodInfo
instance (signature ~ (b -> CULong -> Maybe (c) -> Bool -> m WebKit2WebExtension.DOMNodeIterator.DOMNodeIterator), MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMNode.IsDOMNode b, WebKit2WebExtension.DOMNodeFilter.IsDOMNodeFilter c) => O.MethodInfo DOMDocumentCreateNodeIteratorMethodInfo a signature where
overloadedMethod = dOMDocumentCreateNodeIterator
#endif
foreign import ccall "webkit_dom_document_create_ns_resolver" webkit_dom_document_create_ns_resolver ::
Ptr DOMDocument ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
IO (Ptr WebKit2WebExtension.DOMXPathNSResolver.DOMXPathNSResolver)
{-# DEPRECATED dOMDocumentCreateNsResolver ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateNsResolver ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m WebKit2WebExtension.DOMXPathNSResolver.DOMXPathNSResolver
dOMDocumentCreateNsResolver :: a -> b -> m DOMXPathNSResolver
dOMDocumentCreateNsResolver a
self b
nodeResolver = IO DOMXPathNSResolver -> m DOMXPathNSResolver
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMXPathNSResolver -> m DOMXPathNSResolver)
-> IO DOMXPathNSResolver -> m DOMXPathNSResolver
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
nodeResolver' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
nodeResolver
Ptr DOMXPathNSResolver
result <- Ptr DOMDocument -> Ptr DOMNode -> IO (Ptr DOMXPathNSResolver)
webkit_dom_document_create_ns_resolver Ptr DOMDocument
self' Ptr DOMNode
nodeResolver'
Text -> Ptr DOMXPathNSResolver -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateNsResolver" Ptr DOMXPathNSResolver
result
DOMXPathNSResolver
result' <- ((ManagedPtr DOMXPathNSResolver -> DOMXPathNSResolver)
-> Ptr DOMXPathNSResolver -> IO DOMXPathNSResolver
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMXPathNSResolver -> DOMXPathNSResolver
WebKit2WebExtension.DOMXPathNSResolver.DOMXPathNSResolver) Ptr DOMXPathNSResolver
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
nodeResolver
DOMXPathNSResolver -> IO DOMXPathNSResolver
forall (m :: * -> *) a. Monad m => a -> m a
return DOMXPathNSResolver
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateNsResolverMethodInfo
instance (signature ~ (b -> m WebKit2WebExtension.DOMXPathNSResolver.DOMXPathNSResolver), MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMDocumentCreateNsResolverMethodInfo a signature where
overloadedMethod = dOMDocumentCreateNsResolver
#endif
foreign import ccall "webkit_dom_document_create_processing_instruction" webkit_dom_document_create_processing_instruction ::
Ptr DOMDocument ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMProcessingInstruction.DOMProcessingInstruction)
{-# DEPRECATED dOMDocumentCreateProcessingInstruction ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateProcessingInstruction ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> T.Text
-> m WebKit2WebExtension.DOMProcessingInstruction.DOMProcessingInstruction
dOMDocumentCreateProcessingInstruction :: a -> Text -> Text -> m DOMProcessingInstruction
dOMDocumentCreateProcessingInstruction a
self Text
target Text
data_ = IO DOMProcessingInstruction -> m DOMProcessingInstruction
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMProcessingInstruction -> m DOMProcessingInstruction)
-> IO DOMProcessingInstruction -> m DOMProcessingInstruction
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
target' <- Text -> IO CString
textToCString Text
target
CString
data_' <- Text -> IO CString
textToCString Text
data_
IO DOMProcessingInstruction -> IO () -> IO DOMProcessingInstruction
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMProcessingInstruction
result <- (Ptr (Ptr GError) -> IO (Ptr DOMProcessingInstruction))
-> IO (Ptr DOMProcessingInstruction)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMProcessingInstruction))
-> IO (Ptr DOMProcessingInstruction))
-> (Ptr (Ptr GError) -> IO (Ptr DOMProcessingInstruction))
-> IO (Ptr DOMProcessingInstruction)
forall a b. (a -> b) -> a -> b
$ Ptr DOMDocument
-> CString
-> CString
-> Ptr (Ptr GError)
-> IO (Ptr DOMProcessingInstruction)
webkit_dom_document_create_processing_instruction Ptr DOMDocument
self' CString
target' CString
data_'
Text -> Ptr DOMProcessingInstruction -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateProcessingInstruction" Ptr DOMProcessingInstruction
result
DOMProcessingInstruction
result' <- ((ManagedPtr DOMProcessingInstruction -> DOMProcessingInstruction)
-> Ptr DOMProcessingInstruction -> IO DOMProcessingInstruction
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMProcessingInstruction -> DOMProcessingInstruction
WebKit2WebExtension.DOMProcessingInstruction.DOMProcessingInstruction) Ptr DOMProcessingInstruction
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
target'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
data_'
DOMProcessingInstruction -> IO DOMProcessingInstruction
forall (m :: * -> *) a. Monad m => a -> m a
return DOMProcessingInstruction
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
target'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
data_'
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateProcessingInstructionMethodInfo
instance (signature ~ (T.Text -> T.Text -> m WebKit2WebExtension.DOMProcessingInstruction.DOMProcessingInstruction), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentCreateProcessingInstructionMethodInfo a signature where
overloadedMethod = dOMDocumentCreateProcessingInstruction
#endif
foreign import ccall "webkit_dom_document_create_range" webkit_dom_document_create_range ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMRange.DOMRange)
{-# DEPRECATED dOMDocumentCreateRange ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateRange ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMRange.DOMRange
dOMDocumentCreateRange :: a -> m DOMRange
dOMDocumentCreateRange a
self = IO DOMRange -> m DOMRange
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMRange -> m DOMRange) -> IO DOMRange -> m DOMRange
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMRange
result <- Ptr DOMDocument -> IO (Ptr DOMRange)
webkit_dom_document_create_range Ptr DOMDocument
self'
Text -> Ptr DOMRange -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateRange" Ptr DOMRange
result
DOMRange
result' <- ((ManagedPtr DOMRange -> DOMRange) -> Ptr DOMRange -> IO DOMRange
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMRange -> DOMRange
WebKit2WebExtension.DOMRange.DOMRange) Ptr DOMRange
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMRange -> IO DOMRange
forall (m :: * -> *) a. Monad m => a -> m a
return DOMRange
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateRangeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMRange.DOMRange), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentCreateRangeMethodInfo a signature where
overloadedMethod = dOMDocumentCreateRange
#endif
foreign import ccall "webkit_dom_document_create_text_node" webkit_dom_document_create_text_node ::
Ptr DOMDocument ->
CString ->
IO (Ptr WebKit2WebExtension.DOMText.DOMText)
{-# DEPRECATED dOMDocumentCreateTextNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateTextNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMText.DOMText
dOMDocumentCreateTextNode :: a -> Text -> m DOMText
dOMDocumentCreateTextNode a
self Text
data_ = IO DOMText -> m DOMText
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMText -> m DOMText) -> IO DOMText -> m DOMText
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
data_' <- Text -> IO CString
textToCString Text
data_
Ptr DOMText
result <- Ptr DOMDocument -> CString -> IO (Ptr DOMText)
webkit_dom_document_create_text_node Ptr DOMDocument
self' CString
data_'
Text -> Ptr DOMText -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateTextNode" Ptr DOMText
result
DOMText
result' <- ((ManagedPtr DOMText -> DOMText) -> Ptr DOMText -> IO DOMText
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMText -> DOMText
WebKit2WebExtension.DOMText.DOMText) Ptr DOMText
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
data_'
DOMText -> IO DOMText
forall (m :: * -> *) a. Monad m => a -> m a
return DOMText
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateTextNodeMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMText.DOMText), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentCreateTextNodeMethodInfo a signature where
overloadedMethod = dOMDocumentCreateTextNode
#endif
foreign import ccall "webkit_dom_document_create_tree_walker" webkit_dom_document_create_tree_walker ::
Ptr DOMDocument ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CULong ->
Ptr WebKit2WebExtension.DOMNodeFilter.DOMNodeFilter ->
CInt ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMTreeWalker.DOMTreeWalker)
{-# DEPRECATED dOMDocumentCreateTreeWalker ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentCreateTreeWalker ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMNode.IsDOMNode b, WebKit2WebExtension.DOMNodeFilter.IsDOMNodeFilter c) =>
a
-> b
-> CULong
-> Maybe (c)
-> Bool
-> m WebKit2WebExtension.DOMTreeWalker.DOMTreeWalker
dOMDocumentCreateTreeWalker :: a -> b -> CULong -> Maybe c -> Bool -> m DOMTreeWalker
dOMDocumentCreateTreeWalker a
self b
root CULong
whatToShow Maybe c
filter Bool
expandEntityReferences = IO DOMTreeWalker -> m DOMTreeWalker
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMTreeWalker -> m DOMTreeWalker)
-> IO DOMTreeWalker -> m DOMTreeWalker
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
root' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
root
Ptr DOMNodeFilter
maybeFilter <- case Maybe c
filter of
Maybe c
Nothing -> Ptr DOMNodeFilter -> IO (Ptr DOMNodeFilter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DOMNodeFilter
forall a. Ptr a
nullPtr
Just c
jFilter -> do
Ptr DOMNodeFilter
jFilter' <- c -> IO (Ptr DOMNodeFilter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jFilter
Ptr DOMNodeFilter -> IO (Ptr DOMNodeFilter)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DOMNodeFilter
jFilter'
let expandEntityReferences' :: CInt
expandEntityReferences' = (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
expandEntityReferences
IO DOMTreeWalker -> IO () -> IO DOMTreeWalker
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMTreeWalker
result <- (Ptr (Ptr GError) -> IO (Ptr DOMTreeWalker))
-> IO (Ptr DOMTreeWalker)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMTreeWalker))
-> IO (Ptr DOMTreeWalker))
-> (Ptr (Ptr GError) -> IO (Ptr DOMTreeWalker))
-> IO (Ptr DOMTreeWalker)
forall a b. (a -> b) -> a -> b
$ Ptr DOMDocument
-> Ptr DOMNode
-> CULong
-> Ptr DOMNodeFilter
-> CInt
-> Ptr (Ptr GError)
-> IO (Ptr DOMTreeWalker)
webkit_dom_document_create_tree_walker Ptr DOMDocument
self' Ptr DOMNode
root' CULong
whatToShow Ptr DOMNodeFilter
maybeFilter CInt
expandEntityReferences'
Text -> Ptr DOMTreeWalker -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentCreateTreeWalker" Ptr DOMTreeWalker
result
DOMTreeWalker
result' <- ((ManagedPtr DOMTreeWalker -> DOMTreeWalker)
-> Ptr DOMTreeWalker -> IO DOMTreeWalker
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMTreeWalker -> DOMTreeWalker
WebKit2WebExtension.DOMTreeWalker.DOMTreeWalker) Ptr DOMTreeWalker
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
root
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
filter c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
DOMTreeWalker -> IO DOMTreeWalker
forall (m :: * -> *) a. Monad m => a -> m a
return DOMTreeWalker
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentCreateTreeWalkerMethodInfo
instance (signature ~ (b -> CULong -> Maybe (c) -> Bool -> m WebKit2WebExtension.DOMTreeWalker.DOMTreeWalker), MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMNode.IsDOMNode b, WebKit2WebExtension.DOMNodeFilter.IsDOMNodeFilter c) => O.MethodInfo DOMDocumentCreateTreeWalkerMethodInfo a signature where
overloadedMethod = dOMDocumentCreateTreeWalker
#endif
foreign import ccall "webkit_dom_document_element_from_point" webkit_dom_document_element_from_point ::
Ptr DOMDocument ->
CLong ->
CLong ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentElementFromPoint ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentElementFromPoint ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> CLong
-> CLong
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentElementFromPoint :: a -> CLong -> CLong -> m DOMElement
dOMDocumentElementFromPoint a
self CLong
x CLong
y = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMDocument -> CLong -> CLong -> IO (Ptr DOMElement)
webkit_dom_document_element_from_point Ptr DOMDocument
self' CLong
x CLong
y
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentElementFromPoint" 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
WebKit2WebExtension.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 DOMDocumentElementFromPointMethodInfo
instance (signature ~ (CLong -> CLong -> m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentElementFromPointMethodInfo a signature where
overloadedMethod = dOMDocumentElementFromPoint
#endif
foreign import ccall "webkit_dom_document_evaluate" webkit_dom_document_evaluate ::
Ptr DOMDocument ->
CString ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr WebKit2WebExtension.DOMXPathNSResolver.DOMXPathNSResolver ->
Word16 ->
Ptr WebKit2WebExtension.DOMXPathResult.DOMXPathResult ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMXPathResult.DOMXPathResult)
{-# DEPRECATED dOMDocumentEvaluate ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentEvaluate ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMNode.IsDOMNode b, WebKit2WebExtension.DOMXPathNSResolver.IsDOMXPathNSResolver c, WebKit2WebExtension.DOMXPathResult.IsDOMXPathResult d) =>
a
-> T.Text
-> b
-> Maybe (c)
-> Word16
-> Maybe (d)
-> m WebKit2WebExtension.DOMXPathResult.DOMXPathResult
dOMDocumentEvaluate :: a -> Text -> b -> Maybe c -> Word16 -> Maybe d -> m DOMXPathResult
dOMDocumentEvaluate a
self Text
expression b
contextNode Maybe c
resolver Word16
type_ Maybe d
inResult = IO DOMXPathResult -> m DOMXPathResult
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMXPathResult -> m DOMXPathResult)
-> IO DOMXPathResult -> m DOMXPathResult
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
expression' <- Text -> IO CString
textToCString Text
expression
Ptr DOMNode
contextNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
contextNode
Ptr DOMXPathNSResolver
maybeResolver <- case Maybe c
resolver of
Maybe c
Nothing -> Ptr DOMXPathNSResolver -> IO (Ptr DOMXPathNSResolver)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DOMXPathNSResolver
forall a. Ptr a
nullPtr
Just c
jResolver -> do
Ptr DOMXPathNSResolver
jResolver' <- c -> IO (Ptr DOMXPathNSResolver)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jResolver
Ptr DOMXPathNSResolver -> IO (Ptr DOMXPathNSResolver)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DOMXPathNSResolver
jResolver'
Ptr DOMXPathResult
maybeInResult <- case Maybe d
inResult of
Maybe d
Nothing -> Ptr DOMXPathResult -> IO (Ptr DOMXPathResult)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DOMXPathResult
forall a. Ptr a
nullPtr
Just d
jInResult -> do
Ptr DOMXPathResult
jInResult' <- d -> IO (Ptr DOMXPathResult)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr d
jInResult
Ptr DOMXPathResult -> IO (Ptr DOMXPathResult)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DOMXPathResult
jInResult'
IO DOMXPathResult -> IO () -> IO DOMXPathResult
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMXPathResult
result <- (Ptr (Ptr GError) -> IO (Ptr DOMXPathResult))
-> IO (Ptr DOMXPathResult)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMXPathResult))
-> IO (Ptr DOMXPathResult))
-> (Ptr (Ptr GError) -> IO (Ptr DOMXPathResult))
-> IO (Ptr DOMXPathResult)
forall a b. (a -> b) -> a -> b
$ Ptr DOMDocument
-> CString
-> Ptr DOMNode
-> Ptr DOMXPathNSResolver
-> Word16
-> Ptr DOMXPathResult
-> Ptr (Ptr GError)
-> IO (Ptr DOMXPathResult)
webkit_dom_document_evaluate Ptr DOMDocument
self' CString
expression' Ptr DOMNode
contextNode' Ptr DOMXPathNSResolver
maybeResolver Word16
type_ Ptr DOMXPathResult
maybeInResult
Text -> Ptr DOMXPathResult -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentEvaluate" Ptr DOMXPathResult
result
DOMXPathResult
result' <- ((ManagedPtr DOMXPathResult -> DOMXPathResult)
-> Ptr DOMXPathResult -> IO DOMXPathResult
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMXPathResult -> DOMXPathResult
WebKit2WebExtension.DOMXPathResult.DOMXPathResult) Ptr DOMXPathResult
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
contextNode
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
resolver c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe d -> (d -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe d
inResult d -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
expression'
DOMXPathResult -> IO DOMXPathResult
forall (m :: * -> *) a. Monad m => a -> m a
return DOMXPathResult
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
expression'
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentEvaluateMethodInfo
instance (signature ~ (T.Text -> b -> Maybe (c) -> Word16 -> Maybe (d) -> m WebKit2WebExtension.DOMXPathResult.DOMXPathResult), MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMNode.IsDOMNode b, WebKit2WebExtension.DOMXPathNSResolver.IsDOMXPathNSResolver c, WebKit2WebExtension.DOMXPathResult.IsDOMXPathResult d) => O.MethodInfo DOMDocumentEvaluateMethodInfo a signature where
overloadedMethod = dOMDocumentEvaluate
#endif
foreign import ccall "webkit_dom_document_exec_command" webkit_dom_document_exec_command ::
Ptr DOMDocument ->
CString ->
CInt ->
CString ->
IO CInt
{-# DEPRECATED dOMDocumentExecCommand ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentExecCommand ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> Bool
-> T.Text
-> m Bool
dOMDocumentExecCommand :: a -> Text -> Bool -> Text -> m Bool
dOMDocumentExecCommand a
self Text
command Bool
userInterface Text
value = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
command' <- Text -> IO CString
textToCString Text
command
let userInterface' :: CInt
userInterface' = (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
userInterface
CString
value' <- Text -> IO CString
textToCString Text
value
CInt
result <- Ptr DOMDocument -> CString -> CInt -> CString -> IO CInt
webkit_dom_document_exec_command Ptr DOMDocument
self' CString
command' CInt
userInterface' CString
value'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
command'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentExecCommandMethodInfo
instance (signature ~ (T.Text -> Bool -> T.Text -> m Bool), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentExecCommandMethodInfo a signature where
overloadedMethod = dOMDocumentExecCommand
#endif
foreign import ccall "webkit_dom_document_exit_pointer_lock" webkit_dom_document_exit_pointer_lock ::
Ptr DOMDocument ->
IO ()
{-# DEPRECATED dOMDocumentExitPointerLock ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentExitPointerLock ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m ()
dOMDocumentExitPointerLock :: a -> m ()
dOMDocumentExitPointerLock 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMDocument -> IO ()
webkit_dom_document_exit_pointer_lock Ptr DOMDocument
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 DOMDocumentExitPointerLockMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentExitPointerLockMethodInfo a signature where
overloadedMethod = dOMDocumentExitPointerLock
#endif
foreign import ccall "webkit_dom_document_get_active_element" webkit_dom_document_get_active_element ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentGetActiveElement ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetActiveElement ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentGetActiveElement :: a -> m DOMElement
dOMDocumentGetActiveElement 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMDocument -> IO (Ptr DOMElement)
webkit_dom_document_get_active_element Ptr DOMDocument
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetActiveElement" 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
WebKit2WebExtension.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 DOMDocumentGetActiveElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetActiveElementMethodInfo a signature where
overloadedMethod = dOMDocumentGetActiveElement
#endif
foreign import ccall "webkit_dom_document_get_anchors" webkit_dom_document_get_anchors ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMDocumentGetAnchors ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetAnchors ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMDocumentGetAnchors :: a -> m DOMHTMLCollection
dOMDocumentGetAnchors 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLCollection
result <- Ptr DOMDocument -> IO (Ptr DOMHTMLCollection)
webkit_dom_document_get_anchors Ptr DOMDocument
self'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetAnchors" 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 DOMDocumentGetAnchorsMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetAnchorsMethodInfo a signature where
overloadedMethod = dOMDocumentGetAnchors
#endif
foreign import ccall "webkit_dom_document_get_applets" webkit_dom_document_get_applets ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMDocumentGetApplets ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetApplets ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMDocumentGetApplets :: a -> m DOMHTMLCollection
dOMDocumentGetApplets 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLCollection
result <- Ptr DOMDocument -> IO (Ptr DOMHTMLCollection)
webkit_dom_document_get_applets Ptr DOMDocument
self'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetApplets" 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 DOMDocumentGetAppletsMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetAppletsMethodInfo a signature where
overloadedMethod = dOMDocumentGetApplets
#endif
foreign import ccall "webkit_dom_document_get_body" webkit_dom_document_get_body ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMHTMLElement.DOMHTMLElement)
{-# DEPRECATED dOMDocumentGetBody ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetBody ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMHTMLElement.DOMHTMLElement
dOMDocumentGetBody :: a -> m DOMHTMLElement
dOMDocumentGetBody a
self = IO DOMHTMLElement -> m DOMHTMLElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMHTMLElement -> m DOMHTMLElement)
-> IO DOMHTMLElement -> m DOMHTMLElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLElement
result <- Ptr DOMDocument -> IO (Ptr DOMHTMLElement)
webkit_dom_document_get_body Ptr DOMDocument
self'
Text -> Ptr DOMHTMLElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetBody" Ptr DOMHTMLElement
result
DOMHTMLElement
result' <- ((ManagedPtr DOMHTMLElement -> DOMHTMLElement)
-> Ptr DOMHTMLElement -> IO DOMHTMLElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMHTMLElement -> DOMHTMLElement
WebKit2WebExtension.DOMHTMLElement.DOMHTMLElement) Ptr DOMHTMLElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMHTMLElement -> IO DOMHTMLElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMHTMLElement
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentGetBodyMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLElement.DOMHTMLElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetBodyMethodInfo a signature where
overloadedMethod = dOMDocumentGetBody
#endif
foreign import ccall "webkit_dom_document_get_character_set" webkit_dom_document_get_character_set ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetCharacterSet ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetCharacterSet ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetCharacterSet :: a -> m Text
dOMDocumentGetCharacterSet 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_character_set Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetCharacterSet" 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 DOMDocumentGetCharacterSetMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetCharacterSetMethodInfo a signature where
overloadedMethod = dOMDocumentGetCharacterSet
#endif
foreign import ccall "webkit_dom_document_get_charset" webkit_dom_document_get_charset ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetCharset ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetCharset ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetCharset :: a -> m Text
dOMDocumentGetCharset 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_charset Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetCharset" 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 DOMDocumentGetCharsetMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetCharsetMethodInfo a signature where
overloadedMethod = dOMDocumentGetCharset
#endif
foreign import ccall "webkit_dom_document_get_child_element_count" webkit_dom_document_get_child_element_count ::
Ptr DOMDocument ->
IO CULong
{-# DEPRECATED dOMDocumentGetChildElementCount ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetChildElementCount ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m CULong
dOMDocumentGetChildElementCount :: a -> m CULong
dOMDocumentGetChildElementCount 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CULong
result <- Ptr DOMDocument -> IO CULong
webkit_dom_document_get_child_element_count Ptr DOMDocument
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 DOMDocumentGetChildElementCountMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetChildElementCountMethodInfo a signature where
overloadedMethod = dOMDocumentGetChildElementCount
#endif
foreign import ccall "webkit_dom_document_get_children" webkit_dom_document_get_children ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMDocumentGetChildren ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetChildren ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMDocumentGetChildren :: a -> m DOMHTMLCollection
dOMDocumentGetChildren 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLCollection
result <- Ptr DOMDocument -> IO (Ptr DOMHTMLCollection)
webkit_dom_document_get_children Ptr DOMDocument
self'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetChildren" 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 DOMDocumentGetChildrenMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetChildrenMethodInfo a signature where
overloadedMethod = dOMDocumentGetChildren
#endif
foreign import ccall "webkit_dom_document_get_compat_mode" webkit_dom_document_get_compat_mode ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetCompatMode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetCompatMode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetCompatMode :: a -> m Text
dOMDocumentGetCompatMode 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_compat_mode Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetCompatMode" 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 DOMDocumentGetCompatModeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetCompatModeMethodInfo a signature where
overloadedMethod = dOMDocumentGetCompatMode
#endif
foreign import ccall "webkit_dom_document_get_content_type" webkit_dom_document_get_content_type ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetContentType ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetContentType ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetContentType :: a -> m Text
dOMDocumentGetContentType 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_content_type Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetContentType" 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 DOMDocumentGetContentTypeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetContentTypeMethodInfo a signature where
overloadedMethod = dOMDocumentGetContentType
#endif
foreign import ccall "webkit_dom_document_get_cookie" webkit_dom_document_get_cookie ::
Ptr DOMDocument ->
Ptr (Ptr GError) ->
IO CString
{-# DEPRECATED dOMDocumentGetCookie ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetCookie ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetCookie :: a -> m Text
dOMDocumentGetCookie 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO Text -> IO () -> IO Text
forall a b. IO a -> IO b -> IO a
onException (do
CString
result <- (Ptr (Ptr GError) -> IO CString) -> IO CString
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CString) -> IO CString)
-> (Ptr (Ptr GError) -> IO CString) -> IO CString
forall a b. (a -> b) -> a -> b
$ Ptr DOMDocument -> Ptr (Ptr GError) -> IO CString
webkit_dom_document_get_cookie Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetCookie" 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'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentGetCookieMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetCookieMethodInfo a signature where
overloadedMethod = dOMDocumentGetCookie
#endif
foreign import ccall "webkit_dom_document_get_current_script" webkit_dom_document_get_current_script ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMHTMLScriptElement.DOMHTMLScriptElement)
{-# DEPRECATED dOMDocumentGetCurrentScript ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetCurrentScript ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMHTMLScriptElement.DOMHTMLScriptElement
dOMDocumentGetCurrentScript :: a -> m DOMHTMLScriptElement
dOMDocumentGetCurrentScript a
self = IO DOMHTMLScriptElement -> m DOMHTMLScriptElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMHTMLScriptElement -> m DOMHTMLScriptElement)
-> IO DOMHTMLScriptElement -> m DOMHTMLScriptElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLScriptElement
result <- Ptr DOMDocument -> IO (Ptr DOMHTMLScriptElement)
webkit_dom_document_get_current_script Ptr DOMDocument
self'
Text -> Ptr DOMHTMLScriptElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetCurrentScript" Ptr DOMHTMLScriptElement
result
DOMHTMLScriptElement
result' <- ((ManagedPtr DOMHTMLScriptElement -> DOMHTMLScriptElement)
-> Ptr DOMHTMLScriptElement -> IO DOMHTMLScriptElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMHTMLScriptElement -> DOMHTMLScriptElement
WebKit2WebExtension.DOMHTMLScriptElement.DOMHTMLScriptElement) Ptr DOMHTMLScriptElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMHTMLScriptElement -> IO DOMHTMLScriptElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMHTMLScriptElement
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentGetCurrentScriptMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLScriptElement.DOMHTMLScriptElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetCurrentScriptMethodInfo a signature where
overloadedMethod = dOMDocumentGetCurrentScript
#endif
foreign import ccall "webkit_dom_document_get_default_charset" webkit_dom_document_get_default_charset ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetDefaultCharset ["(Since version 2.14)"] #-}
dOMDocumentGetDefaultCharset ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetDefaultCharset :: a -> m Text
dOMDocumentGetDefaultCharset 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_default_charset Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetDefaultCharset" 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 DOMDocumentGetDefaultCharsetMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetDefaultCharsetMethodInfo a signature where
overloadedMethod = dOMDocumentGetDefaultCharset
#endif
foreign import ccall "webkit_dom_document_get_default_view" webkit_dom_document_get_default_view ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow)
{-# DEPRECATED dOMDocumentGetDefaultView ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetDefaultView ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow
dOMDocumentGetDefaultView :: a -> m DOMDOMWindow
dOMDocumentGetDefaultView a
self = IO DOMDOMWindow -> m DOMDOMWindow
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMDOMWindow -> m DOMDOMWindow)
-> IO DOMDOMWindow -> m DOMDOMWindow
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMDOMWindow
result <- Ptr DOMDocument -> IO (Ptr DOMDOMWindow)
webkit_dom_document_get_default_view Ptr DOMDocument
self'
Text -> Ptr DOMDOMWindow -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetDefaultView" Ptr DOMDOMWindow
result
DOMDOMWindow
result' <- ((ManagedPtr DOMDOMWindow -> DOMDOMWindow)
-> Ptr DOMDOMWindow -> IO DOMDOMWindow
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMDOMWindow -> DOMDOMWindow
WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow) Ptr DOMDOMWindow
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMDOMWindow -> IO DOMDOMWindow
forall (m :: * -> *) a. Monad m => a -> m a
return DOMDOMWindow
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentGetDefaultViewMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetDefaultViewMethodInfo a signature where
overloadedMethod = dOMDocumentGetDefaultView
#endif
foreign import ccall "webkit_dom_document_get_design_mode" webkit_dom_document_get_design_mode ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetDesignMode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetDesignMode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetDesignMode :: a -> m Text
dOMDocumentGetDesignMode 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_design_mode Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetDesignMode" 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 DOMDocumentGetDesignModeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetDesignModeMethodInfo a signature where
overloadedMethod = dOMDocumentGetDesignMode
#endif
foreign import ccall "webkit_dom_document_get_dir" webkit_dom_document_get_dir ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetDir ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetDir ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetDir :: a -> m Text
dOMDocumentGetDir 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_dir Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetDir" 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 DOMDocumentGetDirMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetDirMethodInfo a signature where
overloadedMethod = dOMDocumentGetDir
#endif
foreign import ccall "webkit_dom_document_get_doctype" webkit_dom_document_get_doctype ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMDocumentType.DOMDocumentType)
{-# DEPRECATED dOMDocumentGetDoctype ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetDoctype ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMDocumentType.DOMDocumentType
dOMDocumentGetDoctype :: a -> m DOMDocumentType
dOMDocumentGetDoctype a
self = IO DOMDocumentType -> m DOMDocumentType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMDocumentType -> m DOMDocumentType)
-> IO DOMDocumentType -> m DOMDocumentType
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMDocumentType
result <- Ptr DOMDocument -> IO (Ptr DOMDocumentType)
webkit_dom_document_get_doctype Ptr DOMDocument
self'
Text -> Ptr DOMDocumentType -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetDoctype" Ptr DOMDocumentType
result
DOMDocumentType
result' <- ((ManagedPtr DOMDocumentType -> DOMDocumentType)
-> Ptr DOMDocumentType -> IO DOMDocumentType
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMDocumentType -> DOMDocumentType
WebKit2WebExtension.DOMDocumentType.DOMDocumentType) Ptr DOMDocumentType
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMDocumentType -> IO DOMDocumentType
forall (m :: * -> *) a. Monad m => a -> m a
return DOMDocumentType
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentGetDoctypeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMDocumentType.DOMDocumentType), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetDoctypeMethodInfo a signature where
overloadedMethod = dOMDocumentGetDoctype
#endif
foreign import ccall "webkit_dom_document_get_document_element" webkit_dom_document_get_document_element ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentGetDocumentElement ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetDocumentElement ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentGetDocumentElement :: a -> m DOMElement
dOMDocumentGetDocumentElement 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMDocument -> IO (Ptr DOMElement)
webkit_dom_document_get_document_element Ptr DOMDocument
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetDocumentElement" 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
WebKit2WebExtension.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 DOMDocumentGetDocumentElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetDocumentElementMethodInfo a signature where
overloadedMethod = dOMDocumentGetDocumentElement
#endif
foreign import ccall "webkit_dom_document_get_document_uri" webkit_dom_document_get_document_uri ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetDocumentUri ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetDocumentUri ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetDocumentUri :: a -> m Text
dOMDocumentGetDocumentUri 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_document_uri Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetDocumentUri" 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 DOMDocumentGetDocumentUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetDocumentUriMethodInfo a signature where
overloadedMethod = dOMDocumentGetDocumentUri
#endif
foreign import ccall "webkit_dom_document_get_domain" webkit_dom_document_get_domain ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetDomain ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetDomain ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetDomain :: a -> m Text
dOMDocumentGetDomain 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_domain Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetDomain" 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 DOMDocumentGetDomainMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetDomainMethodInfo a signature where
overloadedMethod = dOMDocumentGetDomain
#endif
foreign import ccall "webkit_dom_document_get_element_by_id" webkit_dom_document_get_element_by_id ::
Ptr DOMDocument ->
CString ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentGetElementById ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetElementById ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentGetElementById :: a -> Text -> m DOMElement
dOMDocumentGetElementById a
self Text
elementId = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
elementId' <- Text -> IO CString
textToCString Text
elementId
Ptr DOMElement
result <- Ptr DOMDocument -> CString -> IO (Ptr DOMElement)
webkit_dom_document_get_element_by_id Ptr DOMDocument
self' CString
elementId'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetElementById" 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
WebKit2WebExtension.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
elementId'
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentGetElementByIdMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetElementByIdMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementById
#endif
foreign import ccall "webkit_dom_document_get_elements_by_class_name" webkit_dom_document_get_elements_by_class_name ::
Ptr DOMDocument ->
CString ->
IO (Ptr WebKit2WebExtension.DOMNodeList.DOMNodeList)
{-# DEPRECATED dOMDocumentGetElementsByClassName ["(Since version 2.12)","Use 'GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetElementsByClassNameAsHtmlCollection' instead."] #-}
dOMDocumentGetElementsByClassName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMNodeList.DOMNodeList
dOMDocumentGetElementsByClassName :: a -> Text -> m DOMNodeList
dOMDocumentGetElementsByClassName a
self 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
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 DOMDocument -> CString -> IO (Ptr DOMNodeList)
webkit_dom_document_get_elements_by_class_name Ptr DOMDocument
self' CString
className'
Text -> Ptr DOMNodeList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetElementsByClassName" 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 DOMDocumentGetElementsByClassNameMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMNodeList.DOMNodeList), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetElementsByClassNameMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementsByClassName
#endif
foreign import ccall "webkit_dom_document_get_elements_by_class_name_as_html_collection" webkit_dom_document_get_elements_by_class_name_as_html_collection ::
Ptr DOMDocument ->
CString ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMDocumentGetElementsByClassNameAsHtmlCollection ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetElementsByClassNameAsHtmlCollection ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMDocumentGetElementsByClassNameAsHtmlCollection :: a -> Text -> m DOMHTMLCollection
dOMDocumentGetElementsByClassNameAsHtmlCollection a
self Text
classNames = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
classNames' <- Text -> IO CString
textToCString Text
classNames
Ptr DOMHTMLCollection
result <- Ptr DOMDocument -> CString -> IO (Ptr DOMHTMLCollection)
webkit_dom_document_get_elements_by_class_name_as_html_collection Ptr DOMDocument
self' CString
classNames'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetElementsByClassNameAsHtmlCollection" 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
classNames'
DOMHTMLCollection -> IO DOMHTMLCollection
forall (m :: * -> *) a. Monad m => a -> m a
return DOMHTMLCollection
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementsByClassNameAsHtmlCollection
#endif
foreign import ccall "webkit_dom_document_get_elements_by_name" webkit_dom_document_get_elements_by_name ::
Ptr DOMDocument ->
CString ->
IO (Ptr WebKit2WebExtension.DOMNodeList.DOMNodeList)
{-# DEPRECATED dOMDocumentGetElementsByName ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetElementsByName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMNodeList.DOMNodeList
dOMDocumentGetElementsByName :: a -> Text -> m DOMNodeList
dOMDocumentGetElementsByName a
self Text
elementName = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
elementName' <- Text -> IO CString
textToCString Text
elementName
Ptr DOMNodeList
result <- Ptr DOMDocument -> CString -> IO (Ptr DOMNodeList)
webkit_dom_document_get_elements_by_name Ptr DOMDocument
self' CString
elementName'
Text -> Ptr DOMNodeList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetElementsByName" 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
elementName'
DOMNodeList -> IO DOMNodeList
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNodeList
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentGetElementsByNameMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMNodeList.DOMNodeList), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetElementsByNameMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementsByName
#endif
foreign import ccall "webkit_dom_document_get_elements_by_tag_name" webkit_dom_document_get_elements_by_tag_name ::
Ptr DOMDocument ->
CString ->
IO (Ptr WebKit2WebExtension.DOMNodeList.DOMNodeList)
{-# DEPRECATED dOMDocumentGetElementsByTagName ["(Since version 2.12)","Use 'GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetElementsByTagNameAsHtmlCollection' instead."] #-}
dOMDocumentGetElementsByTagName ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMNodeList.DOMNodeList
dOMDocumentGetElementsByTagName :: a -> Text -> m DOMNodeList
dOMDocumentGetElementsByTagName a
self 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
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 DOMDocument -> CString -> IO (Ptr DOMNodeList)
webkit_dom_document_get_elements_by_tag_name Ptr DOMDocument
self' CString
tagName'
Text -> Ptr DOMNodeList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetElementsByTagName" 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 DOMDocumentGetElementsByTagNameMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMNodeList.DOMNodeList), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetElementsByTagNameMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementsByTagName
#endif
foreign import ccall "webkit_dom_document_get_elements_by_tag_name_as_html_collection" webkit_dom_document_get_elements_by_tag_name_as_html_collection ::
Ptr DOMDocument ->
CString ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMDocumentGetElementsByTagNameAsHtmlCollection ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetElementsByTagNameAsHtmlCollection ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMDocumentGetElementsByTagNameAsHtmlCollection :: a -> Text -> m DOMHTMLCollection
dOMDocumentGetElementsByTagNameAsHtmlCollection a
self Text
tagname = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
tagname' <- Text -> IO CString
textToCString Text
tagname
Ptr DOMHTMLCollection
result <- Ptr DOMDocument -> CString -> IO (Ptr DOMHTMLCollection)
webkit_dom_document_get_elements_by_tag_name_as_html_collection Ptr DOMDocument
self' CString
tagname'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetElementsByTagNameAsHtmlCollection" 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
tagname'
DOMHTMLCollection -> IO DOMHTMLCollection
forall (m :: * -> *) a. Monad m => a -> m a
return DOMHTMLCollection
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementsByTagNameAsHtmlCollection
#endif
foreign import ccall "webkit_dom_document_get_elements_by_tag_name_ns" webkit_dom_document_get_elements_by_tag_name_ns ::
Ptr DOMDocument ->
CString ->
CString ->
IO (Ptr WebKit2WebExtension.DOMNodeList.DOMNodeList)
{-# DEPRECATED dOMDocumentGetElementsByTagNameNs ["(Since version 2.12)","Use 'GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetElementsByTagNameNsAsHtmlCollection' instead."] #-}
dOMDocumentGetElementsByTagNameNs ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> T.Text
-> m WebKit2WebExtension.DOMNodeList.DOMNodeList
dOMDocumentGetElementsByTagNameNs :: a -> Text -> Text -> m DOMNodeList
dOMDocumentGetElementsByTagNameNs a
self Text
namespaceUri 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
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 DOMDocument -> CString -> CString -> IO (Ptr DOMNodeList)
webkit_dom_document_get_elements_by_tag_name_ns Ptr DOMDocument
self' CString
namespaceUri' CString
tagName'
Text -> Ptr DOMNodeList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetElementsByTagNameNs" 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 DOMDocumentGetElementsByTagNameNsMethodInfo
instance (signature ~ (T.Text -> T.Text -> m WebKit2WebExtension.DOMNodeList.DOMNodeList), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetElementsByTagNameNsMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementsByTagNameNs
#endif
foreign import ccall "webkit_dom_document_get_elements_by_tag_name_ns_as_html_collection" webkit_dom_document_get_elements_by_tag_name_ns_as_html_collection ::
Ptr DOMDocument ->
CString ->
CString ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMDocumentGetElementsByTagNameNsAsHtmlCollection ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetElementsByTagNameNsAsHtmlCollection ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> T.Text
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMDocumentGetElementsByTagNameNsAsHtmlCollection :: a -> Text -> Text -> m DOMHTMLCollection
dOMDocumentGetElementsByTagNameNsAsHtmlCollection a
self Text
namespaceURI 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
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 DOMDocument -> CString -> CString -> IO (Ptr DOMHTMLCollection)
webkit_dom_document_get_elements_by_tag_name_ns_as_html_collection Ptr DOMDocument
self' CString
namespaceURI' CString
localName'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetElementsByTagNameNsAsHtmlCollection" 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 DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo
instance (signature ~ (T.Text -> T.Text -> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementsByTagNameNsAsHtmlCollection
#endif
foreign import ccall "webkit_dom_document_get_embeds" webkit_dom_document_get_embeds ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMDocumentGetEmbeds ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetEmbeds ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMDocumentGetEmbeds :: a -> m DOMHTMLCollection
dOMDocumentGetEmbeds 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLCollection
result <- Ptr DOMDocument -> IO (Ptr DOMHTMLCollection)
webkit_dom_document_get_embeds Ptr DOMDocument
self'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetEmbeds" 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 DOMDocumentGetEmbedsMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetEmbedsMethodInfo a signature where
overloadedMethod = dOMDocumentGetEmbeds
#endif
foreign import ccall "webkit_dom_document_get_first_element_child" webkit_dom_document_get_first_element_child ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentGetFirstElementChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetFirstElementChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentGetFirstElementChild :: a -> m DOMElement
dOMDocumentGetFirstElementChild 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMDocument -> IO (Ptr DOMElement)
webkit_dom_document_get_first_element_child Ptr DOMDocument
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetFirstElementChild" 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
WebKit2WebExtension.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 DOMDocumentGetFirstElementChildMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetFirstElementChildMethodInfo a signature where
overloadedMethod = dOMDocumentGetFirstElementChild
#endif
foreign import ccall "webkit_dom_document_get_forms" webkit_dom_document_get_forms ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMDocumentGetForms ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetForms ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMDocumentGetForms :: a -> m DOMHTMLCollection
dOMDocumentGetForms 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLCollection
result <- Ptr DOMDocument -> IO (Ptr DOMHTMLCollection)
webkit_dom_document_get_forms Ptr DOMDocument
self'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetForms" 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 DOMDocumentGetFormsMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetFormsMethodInfo a signature where
overloadedMethod = dOMDocumentGetForms
#endif
foreign import ccall "webkit_dom_document_get_head" webkit_dom_document_get_head ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMHTMLHeadElement.DOMHTMLHeadElement)
{-# DEPRECATED dOMDocumentGetHead ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetHead ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMHTMLHeadElement.DOMHTMLHeadElement
dOMDocumentGetHead :: a -> m DOMHTMLHeadElement
dOMDocumentGetHead a
self = IO DOMHTMLHeadElement -> m DOMHTMLHeadElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMHTMLHeadElement -> m DOMHTMLHeadElement)
-> IO DOMHTMLHeadElement -> m DOMHTMLHeadElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLHeadElement
result <- Ptr DOMDocument -> IO (Ptr DOMHTMLHeadElement)
webkit_dom_document_get_head Ptr DOMDocument
self'
Text -> Ptr DOMHTMLHeadElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetHead" Ptr DOMHTMLHeadElement
result
DOMHTMLHeadElement
result' <- ((ManagedPtr DOMHTMLHeadElement -> DOMHTMLHeadElement)
-> Ptr DOMHTMLHeadElement -> IO DOMHTMLHeadElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMHTMLHeadElement -> DOMHTMLHeadElement
WebKit2WebExtension.DOMHTMLHeadElement.DOMHTMLHeadElement) Ptr DOMHTMLHeadElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMHTMLHeadElement -> IO DOMHTMLHeadElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMHTMLHeadElement
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentGetHeadMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLHeadElement.DOMHTMLHeadElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetHeadMethodInfo a signature where
overloadedMethod = dOMDocumentGetHead
#endif
foreign import ccall "webkit_dom_document_get_hidden" webkit_dom_document_get_hidden ::
Ptr DOMDocument ->
IO CInt
{-# DEPRECATED dOMDocumentGetHidden ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetHidden ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m Bool
dOMDocumentGetHidden :: a -> m Bool
dOMDocumentGetHidden 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMDocument -> IO CInt
webkit_dom_document_get_hidden Ptr DOMDocument
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
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 DOMDocumentGetHiddenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetHiddenMethodInfo a signature where
overloadedMethod = dOMDocumentGetHidden
#endif
foreign import ccall "webkit_dom_document_get_images" webkit_dom_document_get_images ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMDocumentGetImages ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetImages ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMDocumentGetImages :: a -> m DOMHTMLCollection
dOMDocumentGetImages 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLCollection
result <- Ptr DOMDocument -> IO (Ptr DOMHTMLCollection)
webkit_dom_document_get_images Ptr DOMDocument
self'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetImages" 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 DOMDocumentGetImagesMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetImagesMethodInfo a signature where
overloadedMethod = dOMDocumentGetImages
#endif
foreign import ccall "webkit_dom_document_get_implementation" webkit_dom_document_get_implementation ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMDOMImplementation.DOMDOMImplementation)
{-# DEPRECATED dOMDocumentGetImplementation ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetImplementation ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMDOMImplementation.DOMDOMImplementation
dOMDocumentGetImplementation :: a -> m DOMDOMImplementation
dOMDocumentGetImplementation a
self = IO DOMDOMImplementation -> m DOMDOMImplementation
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMDOMImplementation -> m DOMDOMImplementation)
-> IO DOMDOMImplementation -> m DOMDOMImplementation
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMDOMImplementation
result <- Ptr DOMDocument -> IO (Ptr DOMDOMImplementation)
webkit_dom_document_get_implementation Ptr DOMDocument
self'
Text -> Ptr DOMDOMImplementation -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetImplementation" Ptr DOMDOMImplementation
result
DOMDOMImplementation
result' <- ((ManagedPtr DOMDOMImplementation -> DOMDOMImplementation)
-> Ptr DOMDOMImplementation -> IO DOMDOMImplementation
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMDOMImplementation -> DOMDOMImplementation
WebKit2WebExtension.DOMDOMImplementation.DOMDOMImplementation) Ptr DOMDOMImplementation
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMDOMImplementation -> IO DOMDOMImplementation
forall (m :: * -> *) a. Monad m => a -> m a
return DOMDOMImplementation
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentGetImplementationMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMDOMImplementation.DOMDOMImplementation), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetImplementationMethodInfo a signature where
overloadedMethod = dOMDocumentGetImplementation
#endif
foreign import ccall "webkit_dom_document_get_input_encoding" webkit_dom_document_get_input_encoding ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetInputEncoding ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetInputEncoding ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetInputEncoding :: a -> m Text
dOMDocumentGetInputEncoding 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_input_encoding Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetInputEncoding" 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 DOMDocumentGetInputEncodingMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetInputEncodingMethodInfo a signature where
overloadedMethod = dOMDocumentGetInputEncoding
#endif
foreign import ccall "webkit_dom_document_get_last_element_child" webkit_dom_document_get_last_element_child ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentGetLastElementChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetLastElementChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentGetLastElementChild :: a -> m DOMElement
dOMDocumentGetLastElementChild 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMDocument -> IO (Ptr DOMElement)
webkit_dom_document_get_last_element_child Ptr DOMDocument
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetLastElementChild" 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
WebKit2WebExtension.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 DOMDocumentGetLastElementChildMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetLastElementChildMethodInfo a signature where
overloadedMethod = dOMDocumentGetLastElementChild
#endif
foreign import ccall "webkit_dom_document_get_last_modified" webkit_dom_document_get_last_modified ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetLastModified ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetLastModified ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetLastModified :: a -> m Text
dOMDocumentGetLastModified 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_last_modified Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetLastModified" 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 DOMDocumentGetLastModifiedMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetLastModifiedMethodInfo a signature where
overloadedMethod = dOMDocumentGetLastModified
#endif
foreign import ccall "webkit_dom_document_get_links" webkit_dom_document_get_links ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMDocumentGetLinks ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetLinks ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMDocumentGetLinks :: a -> m DOMHTMLCollection
dOMDocumentGetLinks 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLCollection
result <- Ptr DOMDocument -> IO (Ptr DOMHTMLCollection)
webkit_dom_document_get_links Ptr DOMDocument
self'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetLinks" 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 DOMDocumentGetLinksMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetLinksMethodInfo a signature where
overloadedMethod = dOMDocumentGetLinks
#endif
foreign import ccall "webkit_dom_document_get_origin" webkit_dom_document_get_origin ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetOrigin ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetOrigin ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetOrigin :: a -> m Text
dOMDocumentGetOrigin 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_origin Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetOrigin" 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 DOMDocumentGetOriginMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetOriginMethodInfo a signature where
overloadedMethod = dOMDocumentGetOrigin
#endif
foreign import ccall "webkit_dom_document_get_override_style" webkit_dom_document_get_override_style ::
Ptr DOMDocument ->
Ptr WebKit2WebExtension.DOMElement.DOMElement ->
CString ->
IO (Ptr WebKit2WebExtension.DOMCSSStyleDeclaration.DOMCSSStyleDeclaration)
{-# DEPRECATED dOMDocumentGetOverrideStyle ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetOverrideStyle ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMElement.IsDOMElement b) =>
a
-> b
-> Maybe (T.Text)
-> m WebKit2WebExtension.DOMCSSStyleDeclaration.DOMCSSStyleDeclaration
dOMDocumentGetOverrideStyle :: a -> b -> Maybe Text -> m DOMCSSStyleDeclaration
dOMDocumentGetOverrideStyle a
self b
element Maybe Text
pseudoElement = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
element' <- b -> IO (Ptr DOMElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
element
CString
maybePseudoElement <- case Maybe Text
pseudoElement of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jPseudoElement -> do
CString
jPseudoElement' <- Text -> IO CString
textToCString Text
jPseudoElement
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jPseudoElement'
Ptr DOMCSSStyleDeclaration
result <- Ptr DOMDocument
-> Ptr DOMElement -> CString -> IO (Ptr DOMCSSStyleDeclaration)
webkit_dom_document_get_override_style Ptr DOMDocument
self' Ptr DOMElement
element' CString
maybePseudoElement
Text -> Ptr DOMCSSStyleDeclaration -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetOverrideStyle" 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
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
element
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybePseudoElement
DOMCSSStyleDeclaration -> IO DOMCSSStyleDeclaration
forall (m :: * -> *) a. Monad m => a -> m a
return DOMCSSStyleDeclaration
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentGetOverrideStyleMethodInfo
instance (signature ~ (b -> Maybe (T.Text) -> m WebKit2WebExtension.DOMCSSStyleDeclaration.DOMCSSStyleDeclaration), MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMElement.IsDOMElement b) => O.MethodInfo DOMDocumentGetOverrideStyleMethodInfo a signature where
overloadedMethod = dOMDocumentGetOverrideStyle
#endif
foreign import ccall "webkit_dom_document_get_plugins" webkit_dom_document_get_plugins ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMDocumentGetPlugins ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetPlugins ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMDocumentGetPlugins :: a -> m DOMHTMLCollection
dOMDocumentGetPlugins 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLCollection
result <- Ptr DOMDocument -> IO (Ptr DOMHTMLCollection)
webkit_dom_document_get_plugins Ptr DOMDocument
self'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetPlugins" 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 DOMDocumentGetPluginsMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetPluginsMethodInfo a signature where
overloadedMethod = dOMDocumentGetPlugins
#endif
foreign import ccall "webkit_dom_document_get_pointer_lock_element" webkit_dom_document_get_pointer_lock_element ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentGetPointerLockElement ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetPointerLockElement ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentGetPointerLockElement :: a -> m DOMElement
dOMDocumentGetPointerLockElement 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMDocument -> IO (Ptr DOMElement)
webkit_dom_document_get_pointer_lock_element Ptr DOMDocument
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetPointerLockElement" 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
WebKit2WebExtension.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 DOMDocumentGetPointerLockElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetPointerLockElementMethodInfo a signature where
overloadedMethod = dOMDocumentGetPointerLockElement
#endif
foreign import ccall "webkit_dom_document_get_preferred_stylesheet_set" webkit_dom_document_get_preferred_stylesheet_set ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetPreferredStylesheetSet ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetPreferredStylesheetSet ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetPreferredStylesheetSet :: a -> m Text
dOMDocumentGetPreferredStylesheetSet 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_preferred_stylesheet_set Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetPreferredStylesheetSet" 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 DOMDocumentGetPreferredStylesheetSetMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetPreferredStylesheetSetMethodInfo a signature where
overloadedMethod = dOMDocumentGetPreferredStylesheetSet
#endif
foreign import ccall "webkit_dom_document_get_ready_state" webkit_dom_document_get_ready_state ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetReadyState ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetReadyState ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetReadyState :: a -> m Text
dOMDocumentGetReadyState 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_ready_state Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetReadyState" 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 DOMDocumentGetReadyStateMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetReadyStateMethodInfo a signature where
overloadedMethod = dOMDocumentGetReadyState
#endif
foreign import ccall "webkit_dom_document_get_referrer" webkit_dom_document_get_referrer ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetReferrer ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetReferrer ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetReferrer :: a -> m Text
dOMDocumentGetReferrer 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_referrer Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetReferrer" 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 DOMDocumentGetReferrerMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetReferrerMethodInfo a signature where
overloadedMethod = dOMDocumentGetReferrer
#endif
foreign import ccall "webkit_dom_document_get_scripts" webkit_dom_document_get_scripts ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMDocumentGetScripts ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetScripts ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMDocumentGetScripts :: a -> m DOMHTMLCollection
dOMDocumentGetScripts 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLCollection
result <- Ptr DOMDocument -> IO (Ptr DOMHTMLCollection)
webkit_dom_document_get_scripts Ptr DOMDocument
self'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetScripts" 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 DOMDocumentGetScriptsMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetScriptsMethodInfo a signature where
overloadedMethod = dOMDocumentGetScripts
#endif
foreign import ccall "webkit_dom_document_get_scrolling_element" webkit_dom_document_get_scrolling_element ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentGetScrollingElement ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetScrollingElement ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentGetScrollingElement :: a -> m DOMElement
dOMDocumentGetScrollingElement 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMDocument -> IO (Ptr DOMElement)
webkit_dom_document_get_scrolling_element Ptr DOMDocument
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetScrollingElement" 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
WebKit2WebExtension.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 DOMDocumentGetScrollingElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetScrollingElementMethodInfo a signature where
overloadedMethod = dOMDocumentGetScrollingElement
#endif
foreign import ccall "webkit_dom_document_get_selected_stylesheet_set" webkit_dom_document_get_selected_stylesheet_set ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetSelectedStylesheetSet ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetSelectedStylesheetSet ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetSelectedStylesheetSet :: a -> m Text
dOMDocumentGetSelectedStylesheetSet 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_selected_stylesheet_set Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetSelectedStylesheetSet" 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 DOMDocumentGetSelectedStylesheetSetMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetSelectedStylesheetSetMethodInfo a signature where
overloadedMethod = dOMDocumentGetSelectedStylesheetSet
#endif
foreign import ccall "webkit_dom_document_get_style_sheets" webkit_dom_document_get_style_sheets ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMStyleSheetList.DOMStyleSheetList)
{-# DEPRECATED dOMDocumentGetStyleSheets ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetStyleSheets ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMStyleSheetList.DOMStyleSheetList
dOMDocumentGetStyleSheets :: a -> m DOMStyleSheetList
dOMDocumentGetStyleSheets a
self = IO DOMStyleSheetList -> m DOMStyleSheetList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMStyleSheetList -> m DOMStyleSheetList)
-> IO DOMStyleSheetList -> m DOMStyleSheetList
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMStyleSheetList
result <- Ptr DOMDocument -> IO (Ptr DOMStyleSheetList)
webkit_dom_document_get_style_sheets Ptr DOMDocument
self'
Text -> Ptr DOMStyleSheetList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetStyleSheets" Ptr DOMStyleSheetList
result
DOMStyleSheetList
result' <- ((ManagedPtr DOMStyleSheetList -> DOMStyleSheetList)
-> Ptr DOMStyleSheetList -> IO DOMStyleSheetList
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMStyleSheetList -> DOMStyleSheetList
WebKit2WebExtension.DOMStyleSheetList.DOMStyleSheetList) Ptr DOMStyleSheetList
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMStyleSheetList -> IO DOMStyleSheetList
forall (m :: * -> *) a. Monad m => a -> m a
return DOMStyleSheetList
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentGetStyleSheetsMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMStyleSheetList.DOMStyleSheetList), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetStyleSheetsMethodInfo a signature where
overloadedMethod = dOMDocumentGetStyleSheets
#endif
foreign import ccall "webkit_dom_document_get_title" webkit_dom_document_get_title ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetTitle ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetTitle :: a -> m Text
dOMDocumentGetTitle 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_title Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetTitle" 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 DOMDocumentGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetTitleMethodInfo a signature where
overloadedMethod = dOMDocumentGetTitle
#endif
foreign import ccall "webkit_dom_document_get_url" webkit_dom_document_get_url ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetUrl ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetUrl ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetUrl :: a -> m Text
dOMDocumentGetUrl 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_url Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetUrl" 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 DOMDocumentGetUrlMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetUrlMethodInfo a signature where
overloadedMethod = dOMDocumentGetUrl
#endif
foreign import ccall "webkit_dom_document_get_visibility_state" webkit_dom_document_get_visibility_state ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetVisibilityState ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetVisibilityState ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetVisibilityState :: a -> m Text
dOMDocumentGetVisibilityState 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_visibility_state Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetVisibilityState" 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 DOMDocumentGetVisibilityStateMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetVisibilityStateMethodInfo a signature where
overloadedMethod = dOMDocumentGetVisibilityState
#endif
foreign import ccall "webkit_dom_document_get_webkit_current_fullscreen_element" webkit_dom_document_get_webkit_current_fullscreen_element ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentGetWebkitCurrentFullscreenElement ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetWebkitCurrentFullscreenElement ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentGetWebkitCurrentFullscreenElement :: a -> m DOMElement
dOMDocumentGetWebkitCurrentFullscreenElement 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMDocument -> IO (Ptr DOMElement)
webkit_dom_document_get_webkit_current_fullscreen_element Ptr DOMDocument
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetWebkitCurrentFullscreenElement" 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
WebKit2WebExtension.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 DOMDocumentGetWebkitCurrentFullscreenElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetWebkitCurrentFullscreenElementMethodInfo a signature where
overloadedMethod = dOMDocumentGetWebkitCurrentFullscreenElement
#endif
foreign import ccall "webkit_dom_document_get_webkit_fullscreen_element" webkit_dom_document_get_webkit_fullscreen_element ::
Ptr DOMDocument ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentGetWebkitFullscreenElement ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetWebkitFullscreenElement ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentGetWebkitFullscreenElement :: a -> m DOMElement
dOMDocumentGetWebkitFullscreenElement 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMDocument -> IO (Ptr DOMElement)
webkit_dom_document_get_webkit_fullscreen_element Ptr DOMDocument
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetWebkitFullscreenElement" 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
WebKit2WebExtension.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 DOMDocumentGetWebkitFullscreenElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetWebkitFullscreenElementMethodInfo a signature where
overloadedMethod = dOMDocumentGetWebkitFullscreenElement
#endif
foreign import ccall "webkit_dom_document_get_webkit_fullscreen_enabled" webkit_dom_document_get_webkit_fullscreen_enabled ::
Ptr DOMDocument ->
IO CInt
{-# DEPRECATED dOMDocumentGetWebkitFullscreenEnabled ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetWebkitFullscreenEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m Bool
dOMDocumentGetWebkitFullscreenEnabled :: a -> m Bool
dOMDocumentGetWebkitFullscreenEnabled 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMDocument -> IO CInt
webkit_dom_document_get_webkit_fullscreen_enabled Ptr DOMDocument
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
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 DOMDocumentGetWebkitFullscreenEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetWebkitFullscreenEnabledMethodInfo a signature where
overloadedMethod = dOMDocumentGetWebkitFullscreenEnabled
#endif
foreign import ccall "webkit_dom_document_get_webkit_fullscreen_keyboard_input_allowed" webkit_dom_document_get_webkit_fullscreen_keyboard_input_allowed ::
Ptr DOMDocument ->
IO CInt
{-# DEPRECATED dOMDocumentGetWebkitFullscreenKeyboardInputAllowed ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetWebkitFullscreenKeyboardInputAllowed ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m Bool
dOMDocumentGetWebkitFullscreenKeyboardInputAllowed :: a -> m Bool
dOMDocumentGetWebkitFullscreenKeyboardInputAllowed 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMDocument -> IO CInt
webkit_dom_document_get_webkit_fullscreen_keyboard_input_allowed Ptr DOMDocument
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
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 DOMDocumentGetWebkitFullscreenKeyboardInputAllowedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetWebkitFullscreenKeyboardInputAllowedMethodInfo a signature where
overloadedMethod = dOMDocumentGetWebkitFullscreenKeyboardInputAllowed
#endif
foreign import ccall "webkit_dom_document_get_webkit_is_fullscreen" webkit_dom_document_get_webkit_is_fullscreen ::
Ptr DOMDocument ->
IO CInt
{-# DEPRECATED dOMDocumentGetWebkitIsFullscreen ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetWebkitIsFullscreen ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m Bool
dOMDocumentGetWebkitIsFullscreen :: a -> m Bool
dOMDocumentGetWebkitIsFullscreen 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMDocument -> IO CInt
webkit_dom_document_get_webkit_is_fullscreen Ptr DOMDocument
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
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 DOMDocumentGetWebkitIsFullscreenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetWebkitIsFullscreenMethodInfo a signature where
overloadedMethod = dOMDocumentGetWebkitIsFullscreen
#endif
foreign import ccall "webkit_dom_document_get_xml_encoding" webkit_dom_document_get_xml_encoding ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetXmlEncoding ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetXmlEncoding ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetXmlEncoding :: a -> m Text
dOMDocumentGetXmlEncoding 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_xml_encoding Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetXmlEncoding" 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 DOMDocumentGetXmlEncodingMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetXmlEncodingMethodInfo a signature where
overloadedMethod = dOMDocumentGetXmlEncoding
#endif
foreign import ccall "webkit_dom_document_get_xml_standalone" webkit_dom_document_get_xml_standalone ::
Ptr DOMDocument ->
IO CInt
{-# DEPRECATED dOMDocumentGetXmlStandalone ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetXmlStandalone ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m Bool
dOMDocumentGetXmlStandalone :: a -> m Bool
dOMDocumentGetXmlStandalone 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMDocument -> IO CInt
webkit_dom_document_get_xml_standalone Ptr DOMDocument
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
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 DOMDocumentGetXmlStandaloneMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetXmlStandaloneMethodInfo a signature where
overloadedMethod = dOMDocumentGetXmlStandalone
#endif
foreign import ccall "webkit_dom_document_get_xml_version" webkit_dom_document_get_xml_version ::
Ptr DOMDocument ->
IO CString
{-# DEPRECATED dOMDocumentGetXmlVersion ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentGetXmlVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m T.Text
dOMDocumentGetXmlVersion :: a -> m Text
dOMDocumentGetXmlVersion 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMDocument -> IO CString
webkit_dom_document_get_xml_version Ptr DOMDocument
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentGetXmlVersion" 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 DOMDocumentGetXmlVersionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentGetXmlVersionMethodInfo a signature where
overloadedMethod = dOMDocumentGetXmlVersion
#endif
foreign import ccall "webkit_dom_document_has_focus" webkit_dom_document_has_focus ::
Ptr DOMDocument ->
IO CInt
{-# DEPRECATED dOMDocumentHasFocus ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentHasFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m Bool
dOMDocumentHasFocus :: a -> m Bool
dOMDocumentHasFocus 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMDocument -> IO CInt
webkit_dom_document_has_focus Ptr DOMDocument
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
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 DOMDocumentHasFocusMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentHasFocusMethodInfo a signature where
overloadedMethod = dOMDocumentHasFocus
#endif
foreign import ccall "webkit_dom_document_import_node" webkit_dom_document_import_node ::
Ptr DOMDocument ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CInt ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMDocumentImportNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentImportNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> Bool
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMDocumentImportNode :: a -> b -> Bool -> m DOMNode
dOMDocumentImportNode a
self b
importedNode Bool
deep = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
importedNode' <- b -> IO (Ptr DOMNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
importedNode
let deep' :: CInt
deep' = (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
deep
IO DOMNode -> IO () -> IO DOMNode
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMNode
result <- (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode))
-> (Ptr (Ptr GError) -> IO (Ptr DOMNode)) -> IO (Ptr DOMNode)
forall a b. (a -> b) -> a -> b
$ Ptr DOMDocument
-> Ptr DOMNode -> CInt -> Ptr (Ptr GError) -> IO (Ptr DOMNode)
webkit_dom_document_import_node Ptr DOMDocument
self' Ptr DOMNode
importedNode' CInt
deep'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentImportNode" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
importedNode
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentImportNodeMethodInfo
instance (signature ~ (b -> Bool -> m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMDocumentImportNodeMethodInfo a signature where
overloadedMethod = dOMDocumentImportNode
#endif
foreign import ccall "webkit_dom_document_query_command_enabled" webkit_dom_document_query_command_enabled ::
Ptr DOMDocument ->
CString ->
IO CInt
{-# DEPRECATED dOMDocumentQueryCommandEnabled ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentQueryCommandEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m Bool
dOMDocumentQueryCommandEnabled :: a -> Text -> m Bool
dOMDocumentQueryCommandEnabled a
self Text
command = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
command' <- Text -> IO CString
textToCString Text
command
CInt
result <- Ptr DOMDocument -> CString -> IO CInt
webkit_dom_document_query_command_enabled Ptr DOMDocument
self' CString
command'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
command'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentQueryCommandEnabledMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentQueryCommandEnabledMethodInfo a signature where
overloadedMethod = dOMDocumentQueryCommandEnabled
#endif
foreign import ccall "webkit_dom_document_query_command_indeterm" webkit_dom_document_query_command_indeterm ::
Ptr DOMDocument ->
CString ->
IO CInt
{-# DEPRECATED dOMDocumentQueryCommandIndeterm ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentQueryCommandIndeterm ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m Bool
dOMDocumentQueryCommandIndeterm :: a -> Text -> m Bool
dOMDocumentQueryCommandIndeterm a
self Text
command = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
command' <- Text -> IO CString
textToCString Text
command
CInt
result <- Ptr DOMDocument -> CString -> IO CInt
webkit_dom_document_query_command_indeterm Ptr DOMDocument
self' CString
command'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
command'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentQueryCommandIndetermMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentQueryCommandIndetermMethodInfo a signature where
overloadedMethod = dOMDocumentQueryCommandIndeterm
#endif
foreign import ccall "webkit_dom_document_query_command_state" webkit_dom_document_query_command_state ::
Ptr DOMDocument ->
CString ->
IO CInt
{-# DEPRECATED dOMDocumentQueryCommandState ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentQueryCommandState ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m Bool
dOMDocumentQueryCommandState :: a -> Text -> m Bool
dOMDocumentQueryCommandState a
self Text
command = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
command' <- Text -> IO CString
textToCString Text
command
CInt
result <- Ptr DOMDocument -> CString -> IO CInt
webkit_dom_document_query_command_state Ptr DOMDocument
self' CString
command'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
command'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentQueryCommandStateMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentQueryCommandStateMethodInfo a signature where
overloadedMethod = dOMDocumentQueryCommandState
#endif
foreign import ccall "webkit_dom_document_query_command_supported" webkit_dom_document_query_command_supported ::
Ptr DOMDocument ->
CString ->
IO CInt
{-# DEPRECATED dOMDocumentQueryCommandSupported ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentQueryCommandSupported ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m Bool
dOMDocumentQueryCommandSupported :: a -> Text -> m Bool
dOMDocumentQueryCommandSupported a
self Text
command = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
command' <- Text -> IO CString
textToCString Text
command
CInt
result <- Ptr DOMDocument -> CString -> IO CInt
webkit_dom_document_query_command_supported Ptr DOMDocument
self' CString
command'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
command'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentQueryCommandSupportedMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentQueryCommandSupportedMethodInfo a signature where
overloadedMethod = dOMDocumentQueryCommandSupported
#endif
foreign import ccall "webkit_dom_document_query_command_value" webkit_dom_document_query_command_value ::
Ptr DOMDocument ->
CString ->
IO CString
{-# DEPRECATED dOMDocumentQueryCommandValue ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentQueryCommandValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m T.Text
dOMDocumentQueryCommandValue :: a -> Text -> m Text
dOMDocumentQueryCommandValue a
self Text
command = 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
command' <- Text -> IO CString
textToCString Text
command
CString
result <- Ptr DOMDocument -> CString -> IO CString
webkit_dom_document_query_command_value Ptr DOMDocument
self' CString
command'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentQueryCommandValue" 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
command'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentQueryCommandValueMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentQueryCommandValueMethodInfo a signature where
overloadedMethod = dOMDocumentQueryCommandValue
#endif
foreign import ccall "webkit_dom_document_query_selector" webkit_dom_document_query_selector ::
Ptr DOMDocument ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentQuerySelector ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentQuerySelector ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentQuerySelector :: a -> Text -> m DOMElement
dOMDocumentQuerySelector a
self 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
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 DOMDocument
-> CString -> Ptr (Ptr GError) -> IO (Ptr DOMElement)
webkit_dom_document_query_selector Ptr DOMDocument
self' CString
selectors'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentQuerySelector" 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
WebKit2WebExtension.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 DOMDocumentQuerySelectorMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentQuerySelectorMethodInfo a signature where
overloadedMethod = dOMDocumentQuerySelector
#endif
foreign import ccall "webkit_dom_document_query_selector_all" webkit_dom_document_query_selector_all ::
Ptr DOMDocument ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNodeList.DOMNodeList)
{-# DEPRECATED dOMDocumentQuerySelectorAll ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentQuerySelectorAll ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMNodeList.DOMNodeList
dOMDocumentQuerySelectorAll :: a -> Text -> m DOMNodeList
dOMDocumentQuerySelectorAll a
self 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
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 DOMDocument
-> CString -> Ptr (Ptr GError) -> IO (Ptr DOMNodeList)
webkit_dom_document_query_selector_all Ptr DOMDocument
self' CString
selectors'
Text -> Ptr DOMNodeList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentQuerySelectorAll" 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 DOMDocumentQuerySelectorAllMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMNodeList.DOMNodeList), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentQuerySelectorAllMethodInfo a signature where
overloadedMethod = dOMDocumentQuerySelectorAll
#endif
foreign import ccall "webkit_dom_document_set_body" webkit_dom_document_set_body ::
Ptr DOMDocument ->
Ptr WebKit2WebExtension.DOMHTMLElement.DOMHTMLElement ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMDocumentSetBody ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentSetBody ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMHTMLElement.IsDOMHTMLElement b) =>
a
-> b
-> m ()
dOMDocumentSetBody :: a -> b -> m ()
dOMDocumentSetBody a
self b
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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLElement
value' <- b -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
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 DOMDocument -> Ptr DOMHTMLElement -> Ptr (Ptr GError) -> IO ()
webkit_dom_document_set_body Ptr DOMDocument
self' Ptr DOMHTMLElement
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
value
() -> 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 DOMDocumentSetBodyMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMDocument a, WebKit2WebExtension.DOMHTMLElement.IsDOMHTMLElement b) => O.MethodInfo DOMDocumentSetBodyMethodInfo a signature where
overloadedMethod = dOMDocumentSetBody
#endif
foreign import ccall "webkit_dom_document_set_charset" webkit_dom_document_set_charset ::
Ptr DOMDocument ->
CString ->
IO ()
{-# DEPRECATED dOMDocumentSetCharset ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentSetCharset ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m ()
dOMDocumentSetCharset :: a -> Text -> m ()
dOMDocumentSetCharset a
self 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMDocument -> CString -> IO ()
webkit_dom_document_set_charset Ptr DOMDocument
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 DOMDocumentSetCharsetMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentSetCharsetMethodInfo a signature where
overloadedMethod = dOMDocumentSetCharset
#endif
foreign import ccall "webkit_dom_document_set_cookie" webkit_dom_document_set_cookie ::
Ptr DOMDocument ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMDocumentSetCookie ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentSetCookie ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m ()
dOMDocumentSetCookie :: a -> Text -> m ()
dOMDocumentSetCookie a
self 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
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 DOMDocument -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_document_set_cookie Ptr DOMDocument
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 DOMDocumentSetCookieMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentSetCookieMethodInfo a signature where
overloadedMethod = dOMDocumentSetCookie
#endif
foreign import ccall "webkit_dom_document_set_design_mode" webkit_dom_document_set_design_mode ::
Ptr DOMDocument ->
CString ->
IO ()
{-# DEPRECATED dOMDocumentSetDesignMode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentSetDesignMode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m ()
dOMDocumentSetDesignMode :: a -> Text -> m ()
dOMDocumentSetDesignMode a
self 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMDocument -> CString -> IO ()
webkit_dom_document_set_design_mode Ptr DOMDocument
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 DOMDocumentSetDesignModeMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentSetDesignModeMethodInfo a signature where
overloadedMethod = dOMDocumentSetDesignMode
#endif
foreign import ccall "webkit_dom_document_set_dir" webkit_dom_document_set_dir ::
Ptr DOMDocument ->
CString ->
IO ()
{-# DEPRECATED dOMDocumentSetDir ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentSetDir ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m ()
dOMDocumentSetDir :: a -> Text -> m ()
dOMDocumentSetDir a
self 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMDocument -> CString -> IO ()
webkit_dom_document_set_dir Ptr DOMDocument
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 DOMDocumentSetDirMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentSetDirMethodInfo a signature where
overloadedMethod = dOMDocumentSetDir
#endif
foreign import ccall "webkit_dom_document_set_document_uri" webkit_dom_document_set_document_uri ::
Ptr DOMDocument ->
CString ->
IO ()
{-# DEPRECATED dOMDocumentSetDocumentUri ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentSetDocumentUri ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m ()
dOMDocumentSetDocumentUri :: a -> Text -> m ()
dOMDocumentSetDocumentUri a
self 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMDocument -> CString -> IO ()
webkit_dom_document_set_document_uri Ptr DOMDocument
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 DOMDocumentSetDocumentUriMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentSetDocumentUriMethodInfo a signature where
overloadedMethod = dOMDocumentSetDocumentUri
#endif
foreign import ccall "webkit_dom_document_set_selected_stylesheet_set" webkit_dom_document_set_selected_stylesheet_set ::
Ptr DOMDocument ->
CString ->
IO ()
{-# DEPRECATED dOMDocumentSetSelectedStylesheetSet ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentSetSelectedStylesheetSet ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m ()
dOMDocumentSetSelectedStylesheetSet :: a -> Text -> m ()
dOMDocumentSetSelectedStylesheetSet a
self 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMDocument -> CString -> IO ()
webkit_dom_document_set_selected_stylesheet_set Ptr DOMDocument
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 DOMDocumentSetSelectedStylesheetSetMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentSetSelectedStylesheetSetMethodInfo a signature where
overloadedMethod = dOMDocumentSetSelectedStylesheetSet
#endif
foreign import ccall "webkit_dom_document_set_title" webkit_dom_document_set_title ::
Ptr DOMDocument ->
CString ->
IO ()
{-# DEPRECATED dOMDocumentSetTitle ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m ()
dOMDocumentSetTitle :: a -> Text -> m ()
dOMDocumentSetTitle a
self 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMDocument -> CString -> IO ()
webkit_dom_document_set_title Ptr DOMDocument
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 DOMDocumentSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentSetTitleMethodInfo a signature where
overloadedMethod = dOMDocumentSetTitle
#endif
foreign import ccall "webkit_dom_document_set_xml_standalone" webkit_dom_document_set_xml_standalone ::
Ptr DOMDocument ->
CInt ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMDocumentSetXmlStandalone ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentSetXmlStandalone ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> Bool
-> m ()
dOMDocumentSetXmlStandalone :: a -> Bool -> m ()
dOMDocumentSetXmlStandalone a
self Bool
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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CInt
value' = (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
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 DOMDocument -> CInt -> Ptr (Ptr GError) -> IO ()
webkit_dom_document_set_xml_standalone Ptr DOMDocument
self' CInt
value'
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 DOMDocumentSetXmlStandaloneMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentSetXmlStandaloneMethodInfo a signature where
overloadedMethod = dOMDocumentSetXmlStandalone
#endif
foreign import ccall "webkit_dom_document_set_xml_version" webkit_dom_document_set_xml_version ::
Ptr DOMDocument ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMDocumentSetXmlVersion ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentSetXmlVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> T.Text
-> m ()
dOMDocumentSetXmlVersion :: a -> Text -> m ()
dOMDocumentSetXmlVersion a
self 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
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 DOMDocument -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_document_set_xml_version Ptr DOMDocument
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 DOMDocumentSetXmlVersionMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentSetXmlVersionMethodInfo a signature where
overloadedMethod = dOMDocumentSetXmlVersion
#endif
foreign import ccall "webkit_dom_document_webkit_cancel_fullscreen" webkit_dom_document_webkit_cancel_fullscreen ::
Ptr DOMDocument ->
IO ()
{-# DEPRECATED dOMDocumentWebkitCancelFullscreen ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentWebkitCancelFullscreen ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m ()
dOMDocumentWebkitCancelFullscreen :: a -> m ()
dOMDocumentWebkitCancelFullscreen 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMDocument -> IO ()
webkit_dom_document_webkit_cancel_fullscreen Ptr DOMDocument
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 DOMDocumentWebkitCancelFullscreenMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentWebkitCancelFullscreenMethodInfo a signature where
overloadedMethod = dOMDocumentWebkitCancelFullscreen
#endif
foreign import ccall "webkit_dom_document_webkit_exit_fullscreen" webkit_dom_document_webkit_exit_fullscreen ::
Ptr DOMDocument ->
IO ()
{-# DEPRECATED dOMDocumentWebkitExitFullscreen ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentWebkitExitFullscreen ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocument a) =>
a
-> m ()
dOMDocumentWebkitExitFullscreen :: a -> m ()
dOMDocumentWebkitExitFullscreen 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 DOMDocument
self' <- a -> IO (Ptr DOMDocument)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMDocument -> IO ()
webkit_dom_document_webkit_exit_fullscreen Ptr DOMDocument
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 DOMDocumentWebkitExitFullscreenMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMDocument a) => O.MethodInfo DOMDocumentWebkitExitFullscreenMethodInfo a signature where
overloadedMethod = dOMDocumentWebkitExitFullscreen
#endif