{-# 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.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.Coerce as Coerce
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 GHC.Records as R
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
$c== :: DOMDocument -> DOMDocument -> Bool
== :: DOMDocument -> DOMDocument -> Bool
$c/= :: DOMDocument -> DOMDocument -> Bool
/= :: 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
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 :: (MIO.MonadIO m, IsDOMDocument o) => o -> m DOMDocument
toDOMDocument :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m DOMDocument
toDOMDocument = IO DOMDocument -> m DOMDocument
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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'
B.ManagedPtr.unsafeCastTo ManagedPtr DOMDocument -> DOMDocument
DOMDocument
instance B.GValue.IsGValue (Maybe DOMDocument) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_dom_document_get_type
gvalueSet_ :: Ptr GValue -> Maybe DOMDocument -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DOMDocument
P.Nothing = Ptr GValue -> Ptr DOMDocument -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DOMDocument
forall a. Ptr a
FP.nullPtr :: FP.Ptr DOMDocument)
gvalueSet_ Ptr GValue
gv (P.Just DOMDocument
obj) = DOMDocument -> (Ptr DOMDocument -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMDocument
obj (Ptr GValue -> Ptr DOMDocument -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DOMDocument)
gvalueGet_ Ptr GValue
gv = do
Ptr DOMDocument
ptr <- Ptr GValue -> IO (Ptr DOMDocument)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DOMDocument)
if Ptr DOMDocument
ptr Ptr DOMDocument -> Ptr DOMDocument -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DOMDocument
forall a. Ptr a
FP.nullPtr
then DOMDocument -> Maybe DOMDocument
forall a. a -> Maybe a
P.Just (DOMDocument -> Maybe DOMDocument)
-> IO DOMDocument -> IO (Maybe DOMDocument)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe DOMDocument -> IO (Maybe DOMDocument)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMDocument
forall a. Maybe a
P.Nothing
#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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveDOMDocumentMethod t DOMDocument, O.OverloadedMethod info DOMDocument p, R.HasField t DOMDocument p) => R.HasField t DOMDocument p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDOMDocumentMethod t DOMDocument, O.OverloadedMethodInfo info DOMDocument) => OL.IsLabel t (O.MethodProxy info DOMDocument) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDOMDocumentActiveElement :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentActiveElement :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m DOMElement
getDOMDocumentActiveElement o
obj = IO DOMElement -> m DOMElement
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.activeElement"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:activeElement"
})
#endif
getDOMDocumentAnchors :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentAnchors :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe DOMHTMLCollection)
getDOMDocumentAnchors o
obj = IO (Maybe DOMHTMLCollection) -> m (Maybe DOMHTMLCollection)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.anchors"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:anchors"
})
#endif
getDOMDocumentApplets :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentApplets :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe DOMHTMLCollection)
getDOMDocumentApplets o
obj = IO (Maybe DOMHTMLCollection) -> m (Maybe DOMHTMLCollection)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.applets"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:applets"
})
#endif
getDOMDocumentBody :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMHTMLElement.DOMHTMLElement
getDOMDocumentBody :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m DOMHTMLElement
getDOMDocumentBody o
obj = IO DOMHTMLElement -> m DOMHTMLElement
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.body"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:body"
})
#endif
getDOMDocumentCharacterSet :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentCharacterSet :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentCharacterSet o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.characterSet"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:characterSet"
})
#endif
getDOMDocumentCharset :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentCharset :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentCharset o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> Text -> m ()
setDOMDocumentCharset o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsDOMDocument o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMDocumentCharset Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.charset"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:charset"
})
#endif
getDOMDocumentChildElementCount :: (MonadIO m, IsDOMDocument o) => o -> m CULong
getDOMDocumentChildElementCount :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m CULong
getDOMDocumentChildElementCount o
obj = IO CULong -> m CULong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.childElementCount"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:childElementCount"
})
#endif
getDOMDocumentChildren :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentChildren :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe DOMHTMLCollection)
getDOMDocumentChildren o
obj = IO (Maybe DOMHTMLCollection) -> m (Maybe DOMHTMLCollection)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.children"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:children"
})
#endif
getDOMDocumentCompatMode :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentCompatMode :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentCompatMode o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.compatMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:compatMode"
})
#endif
getDOMDocumentContentType :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentContentType :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentContentType o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.contentType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:contentType"
})
#endif
getDOMDocumentCookie :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentCookie :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentCookie o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> Text -> m ()
setDOMDocumentCookie o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsDOMDocument o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMDocumentCookie Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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 :: forall (m :: * -> *) o. (MonadIO m, IsDOMDocument o) => o -> m ()
clearDOMDocumentCookie o
obj = IO () -> m ()
forall a. IO a -> m a
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.cookie"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:cookie"
})
#endif
getDOMDocumentCurrentScript :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMHTMLScriptElement.DOMHTMLScriptElement
getDOMDocumentCurrentScript :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m DOMHTMLScriptElement
getDOMDocumentCurrentScript o
obj = IO DOMHTMLScriptElement -> m DOMHTMLScriptElement
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.currentScript"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:currentScript"
})
#endif
getDOMDocumentDefaultView :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow)
getDOMDocumentDefaultView :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe DOMDOMWindow)
getDOMDocumentDefaultView o
obj = IO (Maybe DOMDOMWindow) -> m (Maybe DOMDOMWindow)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.defaultView"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:defaultView"
})
#endif
getDOMDocumentDesignMode :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentDesignMode :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentDesignMode o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> Text -> m ()
setDOMDocumentDesignMode o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsDOMDocument o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMDocumentDesignMode Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.designMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:designMode"
})
#endif
getDOMDocumentDir :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentDir :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentDir o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> Text -> m ()
setDOMDocumentDir o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsDOMDocument o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMDocumentDir Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dir"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:dir"
})
#endif
getDOMDocumentDoctype :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMDocumentType.DOMDocumentType
getDOMDocumentDoctype :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m DOMDocumentType
getDOMDocumentDoctype o
obj = IO DOMDocumentType -> m DOMDocumentType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.doctype"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:doctype"
})
#endif
getDOMDocumentDocumentElement :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentDocumentElement :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m DOMElement
getDOMDocumentDocumentElement o
obj = IO DOMElement -> m DOMElement
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.documentElement"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:documentElement"
})
#endif
getDOMDocumentDocumentUri :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentDocumentUri :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentDocumentUri o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> Text -> m ()
setDOMDocumentDocumentUri o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsDOMDocument o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMDocumentDocumentUri Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.documentUri"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:documentUri"
})
#endif
getDOMDocumentDomain :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentDomain :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentDomain o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.domain"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:domain"
})
#endif
getDOMDocumentEmbeds :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentEmbeds :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe DOMHTMLCollection)
getDOMDocumentEmbeds o
obj = IO (Maybe DOMHTMLCollection) -> m (Maybe DOMHTMLCollection)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.embeds"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:embeds"
})
#endif
getDOMDocumentFirstElementChild :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentFirstElementChild :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m DOMElement
getDOMDocumentFirstElementChild o
obj = IO DOMElement -> m DOMElement
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.firstElementChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:firstElementChild"
})
#endif
getDOMDocumentForms :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentForms :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe DOMHTMLCollection)
getDOMDocumentForms o
obj = IO (Maybe DOMHTMLCollection) -> m (Maybe DOMHTMLCollection)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.forms"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:forms"
})
#endif
getDOMDocumentHead :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMHTMLHeadElement.DOMHTMLHeadElement
getDOMDocumentHead :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m DOMHTMLHeadElement
getDOMDocumentHead o
obj = IO DOMHTMLHeadElement -> m DOMHTMLHeadElement
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.head"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:head"
})
#endif
getDOMDocumentHidden :: (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentHidden :: forall (m :: * -> *) o. (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentHidden o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.hidden"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:hidden"
})
#endif
getDOMDocumentImages :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentImages :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe DOMHTMLCollection)
getDOMDocumentImages o
obj = IO (Maybe DOMHTMLCollection) -> m (Maybe DOMHTMLCollection)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.images"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:images"
})
#endif
getDOMDocumentImplementation :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMDOMImplementation.DOMDOMImplementation)
getDOMDocumentImplementation :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe DOMDOMImplementation)
getDOMDocumentImplementation o
obj = IO (Maybe DOMDOMImplementation) -> m (Maybe DOMDOMImplementation)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.implementation"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:implementation"
})
#endif
getDOMDocumentInputEncoding :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentInputEncoding :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentInputEncoding o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.inputEncoding"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:inputEncoding"
})
#endif
getDOMDocumentLastElementChild :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentLastElementChild :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m DOMElement
getDOMDocumentLastElementChild o
obj = IO DOMElement -> m DOMElement
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.lastElementChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:lastElementChild"
})
#endif
getDOMDocumentLastModified :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentLastModified :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentLastModified o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.lastModified"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:lastModified"
})
#endif
getDOMDocumentLinks :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentLinks :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe DOMHTMLCollection)
getDOMDocumentLinks o
obj = IO (Maybe DOMHTMLCollection) -> m (Maybe DOMHTMLCollection)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.links"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:links"
})
#endif
getDOMDocumentOrigin :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentOrigin :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentOrigin o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.origin"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:origin"
})
#endif
getDOMDocumentPlugins :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentPlugins :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe DOMHTMLCollection)
getDOMDocumentPlugins o
obj = IO (Maybe DOMHTMLCollection) -> m (Maybe DOMHTMLCollection)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.plugins"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:plugins"
})
#endif
getDOMDocumentPointerLockElement :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentPointerLockElement :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m DOMElement
getDOMDocumentPointerLockElement o
obj = IO DOMElement -> m DOMElement
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.pointerLockElement"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:pointerLockElement"
})
#endif
getDOMDocumentPreferredStylesheetSet :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentPreferredStylesheetSet :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentPreferredStylesheetSet o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.preferredStylesheetSet"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:preferredStylesheetSet"
})
#endif
getDOMDocumentReadyState :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentReadyState :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentReadyState o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.readyState"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:readyState"
})
#endif
getDOMDocumentReferrer :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentReferrer :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentReferrer o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.referrer"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:referrer"
})
#endif
getDOMDocumentScripts :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentScripts :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe DOMHTMLCollection)
getDOMDocumentScripts o
obj = IO (Maybe DOMHTMLCollection) -> m (Maybe DOMHTMLCollection)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.scripts"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:scripts"
})
#endif
getDOMDocumentScrollingElement :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentScrollingElement :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m DOMElement
getDOMDocumentScrollingElement o
obj = IO DOMElement -> m DOMElement
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.scrollingElement"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:scrollingElement"
})
#endif
getDOMDocumentSelectedStylesheetSet :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentSelectedStylesheetSet :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentSelectedStylesheetSet o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> Text -> m ()
setDOMDocumentSelectedStylesheetSet o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsDOMDocument o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMDocumentSelectedStylesheetSet Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.selectedStylesheetSet"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:selectedStylesheetSet"
})
#endif
getDOMDocumentStyleSheets :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMStyleSheetList.DOMStyleSheetList
getDOMDocumentStyleSheets :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m DOMStyleSheetList
getDOMDocumentStyleSheets o
obj = IO DOMStyleSheetList -> m DOMStyleSheetList
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.styleSheets"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:styleSheets"
})
#endif
getDOMDocumentTitle :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentTitle :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentTitle o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> Text -> m ()
setDOMDocumentTitle o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsDOMDocument o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMDocumentTitle Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:title"
})
#endif
getDOMDocumentUrl :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentUrl :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentUrl o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.url"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:url"
})
#endif
getDOMDocumentVisibilityState :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentVisibilityState :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentVisibilityState o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.visibilityState"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:visibilityState"
})
#endif
getDOMDocumentWebkitCurrentFullScreenElement :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe WebKit2WebExtension.DOMElement.DOMElement)
getDOMDocumentWebkitCurrentFullScreenElement :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe DOMElement)
getDOMDocumentWebkitCurrentFullScreenElement o
obj = IO (Maybe DOMElement) -> m (Maybe DOMElement)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.webkitCurrentFullScreenElement"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:webkitCurrentFullScreenElement"
})
#endif
getDOMDocumentWebkitFullScreenKeyboardInputAllowed :: (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentWebkitFullScreenKeyboardInputAllowed :: forall (m :: * -> *) o. (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentWebkitFullScreenKeyboardInputAllowed o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.webkitFullScreenKeyboardInputAllowed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:webkitFullScreenKeyboardInputAllowed"
})
#endif
getDOMDocumentWebkitFullscreenElement :: (MonadIO m, IsDOMDocument o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentWebkitFullscreenElement :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m DOMElement
getDOMDocumentWebkitFullscreenElement o
obj = IO DOMElement -> m DOMElement
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.webkitFullscreenElement"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:webkitFullscreenElement"
})
#endif
getDOMDocumentWebkitFullscreenEnabled :: (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentWebkitFullscreenEnabled :: forall (m :: * -> *) o. (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentWebkitFullscreenEnabled o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.webkitFullscreenEnabled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:webkitFullscreenEnabled"
})
#endif
getDOMDocumentWebkitIsFullScreen :: (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentWebkitIsFullScreen :: forall (m :: * -> *) o. (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentWebkitIsFullScreen o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.webkitIsFullScreen"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:webkitIsFullScreen"
})
#endif
getDOMDocumentXmlEncoding :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentXmlEncoding :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentXmlEncoding o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.xmlEncoding"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:xmlEncoding"
})
#endif
getDOMDocumentXmlStandalone :: (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentXmlStandalone :: forall (m :: * -> *) o. (MonadIO m, IsDOMDocument o) => o -> m Bool
getDOMDocumentXmlStandalone o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> Bool -> m ()
setDOMDocumentXmlStandalone o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsDOMDocument o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructDOMDocumentXmlStandalone Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.xmlStandalone"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:xmlStandalone"
})
#endif
getDOMDocumentXmlVersion :: (MonadIO m, IsDOMDocument o) => o -> m (Maybe T.Text)
getDOMDocumentXmlVersion :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> m (Maybe Text)
getDOMDocumentXmlVersion o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocument o) =>
o -> Text -> m ()
setDOMDocumentXmlVersion o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
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 :: forall o (m :: * -> *).
(IsDOMDocument o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMDocumentXmlVersion Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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 :: forall (m :: * -> *) o. (MonadIO m, IsDOMDocument o) => o -> m ()
clearDOMDocumentXmlVersion o
obj = IO () -> m ()
forall a. IO a -> m a
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.xmlVersion"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#g:attr:xmlVersion"
})
#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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDOMDocument a, IsDOMNode b) =>
a -> b -> m DOMNode
dOMDocumentAdoptNode a
self b
source = IO DOMNode -> m DOMNode
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall a. a -> IO a
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.OverloadedMethod DOMDocumentAdoptNodeMethodInfo a signature where
overloadedMethod = dOMDocumentAdoptNode
instance O.OverloadedMethodInfo DOMDocumentAdoptNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentAdoptNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> CLong -> CLong -> m DOMRange
dOMDocumentCaretRangeFromPoint a
self CLong
x CLong
y = IO DOMRange -> m DOMRange
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCaretRangeFromPointMethodInfo a signature where
overloadedMethod = dOMDocumentCaretRangeFromPoint
instance O.OverloadedMethodInfo DOMDocumentCaretRangeFromPointMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCaretRangeFromPoint",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m DOMAttr
dOMDocumentCreateAttribute a
self Text
name = IO DOMAttr -> m DOMAttr
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateAttributeMethodInfo a signature where
overloadedMethod = dOMDocumentCreateAttribute
instance O.OverloadedMethodInfo DOMDocumentCreateAttributeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateAttribute",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Maybe Text -> Text -> m DOMAttr
dOMDocumentCreateAttributeNs a
self Maybe Text
namespaceURI Text
qualifiedName = IO DOMAttr -> m DOMAttr
forall a. IO a -> m a
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 a. a -> IO a
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 a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateAttributeNsMethodInfo a signature where
overloadedMethod = dOMDocumentCreateAttributeNs
instance O.OverloadedMethodInfo DOMDocumentCreateAttributeNsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateAttributeNs",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m DOMCDATASection
dOMDocumentCreateCdataSection a
self Text
data_ = IO DOMCDATASection -> m DOMCDATASection
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateCdataSectionMethodInfo a signature where
overloadedMethod = dOMDocumentCreateCdataSection
instance O.OverloadedMethodInfo DOMDocumentCreateCdataSectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateCdataSection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateCommentMethodInfo a signature where
overloadedMethod = dOMDocumentCreateComment
instance O.OverloadedMethodInfo DOMDocumentCreateCommentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateComment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMCSSStyleDeclaration
dOMDocumentCreateCssStyleDeclaration a
self = IO DOMCSSStyleDeclaration -> m DOMCSSStyleDeclaration
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateCssStyleDeclarationMethodInfo a signature where
overloadedMethod = dOMDocumentCreateCssStyleDeclaration
instance O.OverloadedMethodInfo DOMDocumentCreateCssStyleDeclarationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateCssStyleDeclaration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMDocumentFragment
dOMDocumentCreateDocumentFragment a
self = IO DOMDocumentFragment -> m DOMDocumentFragment
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateDocumentFragmentMethodInfo a signature where
overloadedMethod = dOMDocumentCreateDocumentFragment
instance O.OverloadedMethodInfo DOMDocumentCreateDocumentFragmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateDocumentFragment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m DOMElement
dOMDocumentCreateElement a
self Text
tagName = IO DOMElement -> m DOMElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateElementMethodInfo a signature where
overloadedMethod = dOMDocumentCreateElement
instance O.OverloadedMethodInfo DOMDocumentCreateElementMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateElement",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Maybe Text -> Text -> m DOMElement
dOMDocumentCreateElementNs a
self Maybe Text
namespaceURI Text
qualifiedName = IO DOMElement -> m DOMElement
forall a. IO a -> m a
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 a. a -> IO a
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 a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateElementNsMethodInfo a signature where
overloadedMethod = dOMDocumentCreateElementNs
instance O.OverloadedMethodInfo DOMDocumentCreateElementNsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateElementNs",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Maybe Text -> m DOMEntityReference
dOMDocumentCreateEntityReference a
self Maybe Text
name = IO DOMEntityReference -> m DOMEntityReference
forall a. IO a -> m a
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 a. a -> IO a
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 a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateEntityReferenceMethodInfo a signature where
overloadedMethod = dOMDocumentCreateEntityReference
instance O.OverloadedMethodInfo DOMDocumentCreateEntityReferenceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateEntityReference",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m DOMEvent
dOMDocumentCreateEvent a
self Text
eventType = IO DOMEvent -> m DOMEvent
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateEventMethodInfo a signature where
overloadedMethod = dOMDocumentCreateEvent
instance O.OverloadedMethodInfo DOMDocumentCreateEventMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateEvent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDOMDocument a,
IsDOMXPathNSResolver b) =>
a -> Text -> b -> m DOMXPathExpression
dOMDocumentCreateExpression a
self Text
expression b
resolver = IO DOMXPathExpression -> m DOMXPathExpression
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateExpressionMethodInfo a signature where
overloadedMethod = dOMDocumentCreateExpression
instance O.OverloadedMethodInfo DOMDocumentCreateExpressionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateExpression",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsDOMDocument a, IsDOMNode b,
IsDOMNodeFilter c) =>
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 a. IO a -> m a
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 a. a -> IO a
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 a. a -> IO a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNodeIterator
result'
) (do
() -> IO ()
forall a. a -> IO a
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.OverloadedMethod DOMDocumentCreateNodeIteratorMethodInfo a signature where
overloadedMethod = dOMDocumentCreateNodeIterator
instance O.OverloadedMethodInfo DOMDocumentCreateNodeIteratorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateNodeIterator",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDOMDocument a, IsDOMNode b) =>
a -> b -> m DOMXPathNSResolver
dOMDocumentCreateNsResolver a
self b
nodeResolver = IO DOMXPathNSResolver -> m DOMXPathNSResolver
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateNsResolverMethodInfo a signature where
overloadedMethod = dOMDocumentCreateNsResolver
instance O.OverloadedMethodInfo DOMDocumentCreateNsResolverMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateNsResolver",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> Text -> m DOMProcessingInstruction
dOMDocumentCreateProcessingInstruction a
self Text
target Text
data_ = IO DOMProcessingInstruction -> m DOMProcessingInstruction
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateProcessingInstructionMethodInfo a signature where
overloadedMethod = dOMDocumentCreateProcessingInstruction
instance O.OverloadedMethodInfo DOMDocumentCreateProcessingInstructionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateProcessingInstruction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMRange
dOMDocumentCreateRange a
self = IO DOMRange -> m DOMRange
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateRangeMethodInfo a signature where
overloadedMethod = dOMDocumentCreateRange
instance O.OverloadedMethodInfo DOMDocumentCreateRangeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateRange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m DOMText
dOMDocumentCreateTextNode a
self Text
data_ = IO DOMText -> m DOMText
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentCreateTextNodeMethodInfo a signature where
overloadedMethod = dOMDocumentCreateTextNode
instance O.OverloadedMethodInfo DOMDocumentCreateTextNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateTextNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsDOMDocument a, IsDOMNode b,
IsDOMNodeFilter c) =>
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 a. IO a -> m a
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 a. a -> IO a
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 a. a -> IO a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMTreeWalker
result'
) (do
() -> IO ()
forall a. a -> IO a
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.OverloadedMethod DOMDocumentCreateTreeWalkerMethodInfo a signature where
overloadedMethod = dOMDocumentCreateTreeWalker
instance O.OverloadedMethodInfo DOMDocumentCreateTreeWalkerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentCreateTreeWalker",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> CLong -> CLong -> m DOMElement
dOMDocumentElementFromPoint a
self CLong
x CLong
y = IO DOMElement -> m DOMElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentElementFromPointMethodInfo a signature where
overloadedMethod = dOMDocumentElementFromPoint
instance O.OverloadedMethodInfo DOMDocumentElementFromPointMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentElementFromPoint",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a b c d.
(HasCallStack, MonadIO m, IsDOMDocument a, IsDOMNode b,
IsDOMXPathNSResolver c, IsDOMXPathResult d) =>
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 a. IO a -> m a
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 a. a -> IO a
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 a. a -> IO a
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 a. a -> IO a
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 a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentEvaluateMethodInfo a signature where
overloadedMethod = dOMDocumentEvaluate
instance O.OverloadedMethodInfo DOMDocumentEvaluateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentEvaluate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> Bool -> Text -> m Bool
dOMDocumentExecCommand a
self Text
command Bool
userInterface Text
value = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentExecCommandMethodInfo a signature where
overloadedMethod = dOMDocumentExecCommand
instance O.OverloadedMethodInfo DOMDocumentExecCommandMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentExecCommand",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m ()
dOMDocumentExitPointerLock a
self = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMDocumentExitPointerLockMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMDocument a) => O.OverloadedMethod DOMDocumentExitPointerLockMethodInfo a signature where
overloadedMethod = dOMDocumentExitPointerLock
instance O.OverloadedMethodInfo DOMDocumentExitPointerLockMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentExitPointerLock",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMElement
dOMDocumentGetActiveElement a
self = IO DOMElement -> m DOMElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetActiveElementMethodInfo a signature where
overloadedMethod = dOMDocumentGetActiveElement
instance O.OverloadedMethodInfo DOMDocumentGetActiveElementMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetActiveElement",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMHTMLCollection
dOMDocumentGetAnchors a
self = IO DOMHTMLCollection -> m DOMHTMLCollection
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetAnchorsMethodInfo a signature where
overloadedMethod = dOMDocumentGetAnchors
instance O.OverloadedMethodInfo DOMDocumentGetAnchorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetAnchors",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMHTMLCollection
dOMDocumentGetApplets a
self = IO DOMHTMLCollection -> m DOMHTMLCollection
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetAppletsMethodInfo a signature where
overloadedMethod = dOMDocumentGetApplets
instance O.OverloadedMethodInfo DOMDocumentGetAppletsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetApplets",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMHTMLElement
dOMDocumentGetBody a
self = IO DOMHTMLElement -> m DOMHTMLElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetBodyMethodInfo a signature where
overloadedMethod = dOMDocumentGetBody
instance O.OverloadedMethodInfo DOMDocumentGetBodyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetBody",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetCharacterSet a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetCharacterSetMethodInfo a signature where
overloadedMethod = dOMDocumentGetCharacterSet
instance O.OverloadedMethodInfo DOMDocumentGetCharacterSetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetCharacterSet",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetCharset a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetCharsetMethodInfo a signature where
overloadedMethod = dOMDocumentGetCharset
instance O.OverloadedMethodInfo DOMDocumentGetCharsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetCharset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m CULong
dOMDocumentGetChildElementCount a
self = IO CULong -> m CULong
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetChildElementCountMethodInfo a signature where
overloadedMethod = dOMDocumentGetChildElementCount
instance O.OverloadedMethodInfo DOMDocumentGetChildElementCountMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetChildElementCount",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMHTMLCollection
dOMDocumentGetChildren a
self = IO DOMHTMLCollection -> m DOMHTMLCollection
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetChildrenMethodInfo a signature where
overloadedMethod = dOMDocumentGetChildren
instance O.OverloadedMethodInfo DOMDocumentGetChildrenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetChildren",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetCompatMode a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetCompatModeMethodInfo a signature where
overloadedMethod = dOMDocumentGetCompatMode
instance O.OverloadedMethodInfo DOMDocumentGetCompatModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetCompatMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetContentType a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetContentTypeMethodInfo a signature where
overloadedMethod = dOMDocumentGetContentType
instance O.OverloadedMethodInfo DOMDocumentGetContentTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetContentType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetCookie a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
) (do
() -> IO ()
forall a. a -> IO a
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.OverloadedMethod DOMDocumentGetCookieMethodInfo a signature where
overloadedMethod = dOMDocumentGetCookie
instance O.OverloadedMethodInfo DOMDocumentGetCookieMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetCookie",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMHTMLScriptElement
dOMDocumentGetCurrentScript a
self = IO DOMHTMLScriptElement -> m DOMHTMLScriptElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetCurrentScriptMethodInfo a signature where
overloadedMethod = dOMDocumentGetCurrentScript
instance O.OverloadedMethodInfo DOMDocumentGetCurrentScriptMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetCurrentScript",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetDefaultCharset a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetDefaultCharsetMethodInfo a signature where
overloadedMethod = dOMDocumentGetDefaultCharset
instance O.OverloadedMethodInfo DOMDocumentGetDefaultCharsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetDefaultCharset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMDOMWindow
dOMDocumentGetDefaultView a
self = IO DOMDOMWindow -> m DOMDOMWindow
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetDefaultViewMethodInfo a signature where
overloadedMethod = dOMDocumentGetDefaultView
instance O.OverloadedMethodInfo DOMDocumentGetDefaultViewMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetDefaultView",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetDesignMode a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetDesignModeMethodInfo a signature where
overloadedMethod = dOMDocumentGetDesignMode
instance O.OverloadedMethodInfo DOMDocumentGetDesignModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetDesignMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetDir a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetDirMethodInfo a signature where
overloadedMethod = dOMDocumentGetDir
instance O.OverloadedMethodInfo DOMDocumentGetDirMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetDir",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMDocumentType
dOMDocumentGetDoctype a
self = IO DOMDocumentType -> m DOMDocumentType
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetDoctypeMethodInfo a signature where
overloadedMethod = dOMDocumentGetDoctype
instance O.OverloadedMethodInfo DOMDocumentGetDoctypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetDoctype",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMElement
dOMDocumentGetDocumentElement a
self = IO DOMElement -> m DOMElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetDocumentElementMethodInfo a signature where
overloadedMethod = dOMDocumentGetDocumentElement
instance O.OverloadedMethodInfo DOMDocumentGetDocumentElementMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetDocumentElement",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetDocumentUri a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetDocumentUriMethodInfo a signature where
overloadedMethod = dOMDocumentGetDocumentUri
instance O.OverloadedMethodInfo DOMDocumentGetDocumentUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetDocumentUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetDomain a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetDomainMethodInfo a signature where
overloadedMethod = dOMDocumentGetDomain
instance O.OverloadedMethodInfo DOMDocumentGetDomainMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetDomain",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m DOMElement
dOMDocumentGetElementById a
self Text
elementId = IO DOMElement -> m DOMElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetElementByIdMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementById
instance O.OverloadedMethodInfo DOMDocumentGetElementByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetElementById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m DOMNodeList
dOMDocumentGetElementsByClassName a
self Text
className = IO DOMNodeList -> m DOMNodeList
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetElementsByClassNameMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementsByClassName
instance O.OverloadedMethodInfo DOMDocumentGetElementsByClassNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetElementsByClassName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m DOMHTMLCollection
dOMDocumentGetElementsByClassNameAsHtmlCollection a
self Text
classNames = IO DOMHTMLCollection -> m DOMHTMLCollection
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementsByClassNameAsHtmlCollection
instance O.OverloadedMethodInfo DOMDocumentGetElementsByClassNameAsHtmlCollectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetElementsByClassNameAsHtmlCollection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m DOMNodeList
dOMDocumentGetElementsByName a
self Text
elementName = IO DOMNodeList -> m DOMNodeList
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetElementsByNameMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementsByName
instance O.OverloadedMethodInfo DOMDocumentGetElementsByNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetElementsByName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m DOMNodeList
dOMDocumentGetElementsByTagName a
self Text
tagName = IO DOMNodeList -> m DOMNodeList
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetElementsByTagNameMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementsByTagName
instance O.OverloadedMethodInfo DOMDocumentGetElementsByTagNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetElementsByTagName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m DOMHTMLCollection
dOMDocumentGetElementsByTagNameAsHtmlCollection a
self Text
tagname = IO DOMHTMLCollection -> m DOMHTMLCollection
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementsByTagNameAsHtmlCollection
instance O.OverloadedMethodInfo DOMDocumentGetElementsByTagNameAsHtmlCollectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetElementsByTagNameAsHtmlCollection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> Text -> m DOMNodeList
dOMDocumentGetElementsByTagNameNs a
self Text
namespaceUri Text
tagName = IO DOMNodeList -> m DOMNodeList
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetElementsByTagNameNsMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementsByTagNameNs
instance O.OverloadedMethodInfo DOMDocumentGetElementsByTagNameNsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetElementsByTagNameNs",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> Text -> m DOMHTMLCollection
dOMDocumentGetElementsByTagNameNsAsHtmlCollection a
self Text
namespaceURI Text
localName = IO DOMHTMLCollection -> m DOMHTMLCollection
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo a signature where
overloadedMethod = dOMDocumentGetElementsByTagNameNsAsHtmlCollection
instance O.OverloadedMethodInfo DOMDocumentGetElementsByTagNameNsAsHtmlCollectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetElementsByTagNameNsAsHtmlCollection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMHTMLCollection
dOMDocumentGetEmbeds a
self = IO DOMHTMLCollection -> m DOMHTMLCollection
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetEmbedsMethodInfo a signature where
overloadedMethod = dOMDocumentGetEmbeds
instance O.OverloadedMethodInfo DOMDocumentGetEmbedsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetEmbeds",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMElement
dOMDocumentGetFirstElementChild a
self = IO DOMElement -> m DOMElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetFirstElementChildMethodInfo a signature where
overloadedMethod = dOMDocumentGetFirstElementChild
instance O.OverloadedMethodInfo DOMDocumentGetFirstElementChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetFirstElementChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMHTMLCollection
dOMDocumentGetForms a
self = IO DOMHTMLCollection -> m DOMHTMLCollection
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetFormsMethodInfo a signature where
overloadedMethod = dOMDocumentGetForms
instance O.OverloadedMethodInfo DOMDocumentGetFormsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetForms",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMHTMLHeadElement
dOMDocumentGetHead a
self = IO DOMHTMLHeadElement -> m DOMHTMLHeadElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetHeadMethodInfo a signature where
overloadedMethod = dOMDocumentGetHead
instance O.OverloadedMethodInfo DOMDocumentGetHeadMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetHead",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Bool
dOMDocumentGetHidden a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetHiddenMethodInfo a signature where
overloadedMethod = dOMDocumentGetHidden
instance O.OverloadedMethodInfo DOMDocumentGetHiddenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetHidden",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMHTMLCollection
dOMDocumentGetImages a
self = IO DOMHTMLCollection -> m DOMHTMLCollection
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetImagesMethodInfo a signature where
overloadedMethod = dOMDocumentGetImages
instance O.OverloadedMethodInfo DOMDocumentGetImagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetImages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMDOMImplementation
dOMDocumentGetImplementation a
self = IO DOMDOMImplementation -> m DOMDOMImplementation
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetImplementationMethodInfo a signature where
overloadedMethod = dOMDocumentGetImplementation
instance O.OverloadedMethodInfo DOMDocumentGetImplementationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetImplementation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetInputEncoding a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetInputEncodingMethodInfo a signature where
overloadedMethod = dOMDocumentGetInputEncoding
instance O.OverloadedMethodInfo DOMDocumentGetInputEncodingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetInputEncoding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMElement
dOMDocumentGetLastElementChild a
self = IO DOMElement -> m DOMElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetLastElementChildMethodInfo a signature where
overloadedMethod = dOMDocumentGetLastElementChild
instance O.OverloadedMethodInfo DOMDocumentGetLastElementChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetLastElementChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetLastModified a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetLastModifiedMethodInfo a signature where
overloadedMethod = dOMDocumentGetLastModified
instance O.OverloadedMethodInfo DOMDocumentGetLastModifiedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetLastModified",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMHTMLCollection
dOMDocumentGetLinks a
self = IO DOMHTMLCollection -> m DOMHTMLCollection
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetLinksMethodInfo a signature where
overloadedMethod = dOMDocumentGetLinks
instance O.OverloadedMethodInfo DOMDocumentGetLinksMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetLinks",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetOrigin a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetOriginMethodInfo a signature where
overloadedMethod = dOMDocumentGetOrigin
instance O.OverloadedMethodInfo DOMDocumentGetOriginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetOrigin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDOMDocument a, IsDOMElement b) =>
a -> b -> Maybe Text -> m DOMCSSStyleDeclaration
dOMDocumentGetOverrideStyle a
self b
element Maybe Text
pseudoElement = IO DOMCSSStyleDeclaration -> m DOMCSSStyleDeclaration
forall a. IO a -> m a
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 a. a -> IO a
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 a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetOverrideStyleMethodInfo a signature where
overloadedMethod = dOMDocumentGetOverrideStyle
instance O.OverloadedMethodInfo DOMDocumentGetOverrideStyleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetOverrideStyle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMHTMLCollection
dOMDocumentGetPlugins a
self = IO DOMHTMLCollection -> m DOMHTMLCollection
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetPluginsMethodInfo a signature where
overloadedMethod = dOMDocumentGetPlugins
instance O.OverloadedMethodInfo DOMDocumentGetPluginsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetPlugins",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMElement
dOMDocumentGetPointerLockElement a
self = IO DOMElement -> m DOMElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetPointerLockElementMethodInfo a signature where
overloadedMethod = dOMDocumentGetPointerLockElement
instance O.OverloadedMethodInfo DOMDocumentGetPointerLockElementMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetPointerLockElement",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetPreferredStylesheetSet a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetPreferredStylesheetSetMethodInfo a signature where
overloadedMethod = dOMDocumentGetPreferredStylesheetSet
instance O.OverloadedMethodInfo DOMDocumentGetPreferredStylesheetSetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetPreferredStylesheetSet",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetReadyState a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetReadyStateMethodInfo a signature where
overloadedMethod = dOMDocumentGetReadyState
instance O.OverloadedMethodInfo DOMDocumentGetReadyStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetReadyState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetReferrer a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetReferrerMethodInfo a signature where
overloadedMethod = dOMDocumentGetReferrer
instance O.OverloadedMethodInfo DOMDocumentGetReferrerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetReferrer",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMHTMLCollection
dOMDocumentGetScripts a
self = IO DOMHTMLCollection -> m DOMHTMLCollection
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetScriptsMethodInfo a signature where
overloadedMethod = dOMDocumentGetScripts
instance O.OverloadedMethodInfo DOMDocumentGetScriptsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetScripts",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMElement
dOMDocumentGetScrollingElement a
self = IO DOMElement -> m DOMElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetScrollingElementMethodInfo a signature where
overloadedMethod = dOMDocumentGetScrollingElement
instance O.OverloadedMethodInfo DOMDocumentGetScrollingElementMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetScrollingElement",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetSelectedStylesheetSet a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetSelectedStylesheetSetMethodInfo a signature where
overloadedMethod = dOMDocumentGetSelectedStylesheetSet
instance O.OverloadedMethodInfo DOMDocumentGetSelectedStylesheetSetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetSelectedStylesheetSet",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMStyleSheetList
dOMDocumentGetStyleSheets a
self = IO DOMStyleSheetList -> m DOMStyleSheetList
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetStyleSheetsMethodInfo a signature where
overloadedMethod = dOMDocumentGetStyleSheets
instance O.OverloadedMethodInfo DOMDocumentGetStyleSheetsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetStyleSheets",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetTitle a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetTitleMethodInfo a signature where
overloadedMethod = dOMDocumentGetTitle
instance O.OverloadedMethodInfo DOMDocumentGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetUrl a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetUrlMethodInfo a signature where
overloadedMethod = dOMDocumentGetUrl
instance O.OverloadedMethodInfo DOMDocumentGetUrlMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetUrl",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetVisibilityState a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetVisibilityStateMethodInfo a signature where
overloadedMethod = dOMDocumentGetVisibilityState
instance O.OverloadedMethodInfo DOMDocumentGetVisibilityStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetVisibilityState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMElement
dOMDocumentGetWebkitCurrentFullscreenElement a
self = IO DOMElement -> m DOMElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetWebkitCurrentFullscreenElementMethodInfo a signature where
overloadedMethod = dOMDocumentGetWebkitCurrentFullscreenElement
instance O.OverloadedMethodInfo DOMDocumentGetWebkitCurrentFullscreenElementMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetWebkitCurrentFullscreenElement",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m DOMElement
dOMDocumentGetWebkitFullscreenElement a
self = IO DOMElement -> m DOMElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetWebkitFullscreenElementMethodInfo a signature where
overloadedMethod = dOMDocumentGetWebkitFullscreenElement
instance O.OverloadedMethodInfo DOMDocumentGetWebkitFullscreenElementMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetWebkitFullscreenElement",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Bool
dOMDocumentGetWebkitFullscreenEnabled a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetWebkitFullscreenEnabledMethodInfo a signature where
overloadedMethod = dOMDocumentGetWebkitFullscreenEnabled
instance O.OverloadedMethodInfo DOMDocumentGetWebkitFullscreenEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetWebkitFullscreenEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Bool
dOMDocumentGetWebkitFullscreenKeyboardInputAllowed a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetWebkitFullscreenKeyboardInputAllowedMethodInfo a signature where
overloadedMethod = dOMDocumentGetWebkitFullscreenKeyboardInputAllowed
instance O.OverloadedMethodInfo DOMDocumentGetWebkitFullscreenKeyboardInputAllowedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetWebkitFullscreenKeyboardInputAllowed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Bool
dOMDocumentGetWebkitIsFullscreen a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetWebkitIsFullscreenMethodInfo a signature where
overloadedMethod = dOMDocumentGetWebkitIsFullscreen
instance O.OverloadedMethodInfo DOMDocumentGetWebkitIsFullscreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetWebkitIsFullscreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetXmlEncoding a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetXmlEncodingMethodInfo a signature where
overloadedMethod = dOMDocumentGetXmlEncoding
instance O.OverloadedMethodInfo DOMDocumentGetXmlEncodingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetXmlEncoding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Bool
dOMDocumentGetXmlStandalone a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetXmlStandaloneMethodInfo a signature where
overloadedMethod = dOMDocumentGetXmlStandalone
instance O.OverloadedMethodInfo DOMDocumentGetXmlStandaloneMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetXmlStandalone",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Text
dOMDocumentGetXmlVersion a
self = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentGetXmlVersionMethodInfo a signature where
overloadedMethod = dOMDocumentGetXmlVersion
instance O.OverloadedMethodInfo DOMDocumentGetXmlVersionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentGetXmlVersion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m Bool
dOMDocumentHasFocus a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentHasFocusMethodInfo a signature where
overloadedMethod = dOMDocumentHasFocus
instance O.OverloadedMethodInfo DOMDocumentHasFocusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentHasFocus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDOMDocument a, IsDOMNode b) =>
a -> b -> Bool -> m DOMNode
dOMDocumentImportNode a
self b
importedNode Bool
deep = IO DOMNode -> m DOMNode
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
) (do
() -> IO ()
forall a. a -> IO a
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.OverloadedMethod DOMDocumentImportNodeMethodInfo a signature where
overloadedMethod = dOMDocumentImportNode
instance O.OverloadedMethodInfo DOMDocumentImportNodeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentImportNode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m Bool
dOMDocumentQueryCommandEnabled a
self Text
command = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentQueryCommandEnabledMethodInfo a signature where
overloadedMethod = dOMDocumentQueryCommandEnabled
instance O.OverloadedMethodInfo DOMDocumentQueryCommandEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentQueryCommandEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m Bool
dOMDocumentQueryCommandIndeterm a
self Text
command = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentQueryCommandIndetermMethodInfo a signature where
overloadedMethod = dOMDocumentQueryCommandIndeterm
instance O.OverloadedMethodInfo DOMDocumentQueryCommandIndetermMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentQueryCommandIndeterm",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m Bool
dOMDocumentQueryCommandState a
self Text
command = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentQueryCommandStateMethodInfo a signature where
overloadedMethod = dOMDocumentQueryCommandState
instance O.OverloadedMethodInfo DOMDocumentQueryCommandStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentQueryCommandState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m Bool
dOMDocumentQueryCommandSupported a
self Text
command = IO Bool -> m Bool
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentQueryCommandSupportedMethodInfo a signature where
overloadedMethod = dOMDocumentQueryCommandSupported
instance O.OverloadedMethodInfo DOMDocumentQueryCommandSupportedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentQueryCommandSupported",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m Text
dOMDocumentQueryCommandValue a
self Text
command = IO Text -> m Text
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentQueryCommandValueMethodInfo a signature where
overloadedMethod = dOMDocumentQueryCommandValue
instance O.OverloadedMethodInfo DOMDocumentQueryCommandValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentQueryCommandValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m DOMElement
dOMDocumentQuerySelector a
self Text
selectors = IO DOMElement -> m DOMElement
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentQuerySelectorMethodInfo a signature where
overloadedMethod = dOMDocumentQuerySelector
instance O.OverloadedMethodInfo DOMDocumentQuerySelectorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentQuerySelector",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m DOMNodeList
dOMDocumentQuerySelectorAll a
self Text
selectors = IO DOMNodeList -> m DOMNodeList
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentQuerySelectorAllMethodInfo a signature where
overloadedMethod = dOMDocumentQuerySelectorAll
instance O.OverloadedMethodInfo DOMDocumentQuerySelectorAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentQuerySelectorAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDOMDocument a, IsDOMHTMLElement b) =>
a -> b -> m ()
dOMDocumentSetBody a
self b
value = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
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.OverloadedMethod DOMDocumentSetBodyMethodInfo a signature where
overloadedMethod = dOMDocumentSetBody
instance O.OverloadedMethodInfo DOMDocumentSetBodyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentSetBody",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m ()
dOMDocumentSetCharset a
self Text
value = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentSetCharsetMethodInfo a signature where
overloadedMethod = dOMDocumentSetCharset
instance O.OverloadedMethodInfo DOMDocumentSetCharsetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentSetCharset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m ()
dOMDocumentSetCookie a
self Text
value = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentSetCookieMethodInfo a signature where
overloadedMethod = dOMDocumentSetCookie
instance O.OverloadedMethodInfo DOMDocumentSetCookieMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentSetCookie",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m ()
dOMDocumentSetDesignMode a
self Text
value = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentSetDesignModeMethodInfo a signature where
overloadedMethod = dOMDocumentSetDesignMode
instance O.OverloadedMethodInfo DOMDocumentSetDesignModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentSetDesignMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m ()
dOMDocumentSetDir a
self Text
value = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentSetDirMethodInfo a signature where
overloadedMethod = dOMDocumentSetDir
instance O.OverloadedMethodInfo DOMDocumentSetDirMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentSetDir",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m ()
dOMDocumentSetDocumentUri a
self Text
value = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentSetDocumentUriMethodInfo a signature where
overloadedMethod = dOMDocumentSetDocumentUri
instance O.OverloadedMethodInfo DOMDocumentSetDocumentUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentSetDocumentUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m ()
dOMDocumentSetSelectedStylesheetSet a
self Text
value = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentSetSelectedStylesheetSetMethodInfo a signature where
overloadedMethod = dOMDocumentSetSelectedStylesheetSet
instance O.OverloadedMethodInfo DOMDocumentSetSelectedStylesheetSetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentSetSelectedStylesheetSet",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m ()
dOMDocumentSetTitle a
self Text
value = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentSetTitleMethodInfo a signature where
overloadedMethod = dOMDocumentSetTitle
instance O.OverloadedMethodInfo DOMDocumentSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Bool -> m ()
dOMDocumentSetXmlStandalone a
self Bool
value = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentSetXmlStandaloneMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMDocument a) => O.OverloadedMethod DOMDocumentSetXmlStandaloneMethodInfo a signature where
overloadedMethod = dOMDocumentSetXmlStandalone
instance O.OverloadedMethodInfo DOMDocumentSetXmlStandaloneMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentSetXmlStandalone",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> Text -> m ()
dOMDocumentSetXmlVersion a
self Text
value = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod DOMDocumentSetXmlVersionMethodInfo a signature where
overloadedMethod = dOMDocumentSetXmlVersion
instance O.OverloadedMethodInfo DOMDocumentSetXmlVersionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentSetXmlVersion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m ()
dOMDocumentWebkitCancelFullscreen a
self = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMDocumentWebkitCancelFullscreenMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMDocument a) => O.OverloadedMethod DOMDocumentWebkitCancelFullscreenMethodInfo a signature where
overloadedMethod = dOMDocumentWebkitCancelFullscreen
instance O.OverloadedMethodInfo DOMDocumentWebkitCancelFullscreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentWebkitCancelFullscreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocument a) =>
a -> m ()
dOMDocumentWebkitExitFullscreen a
self = IO () -> m ()
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMDocumentWebkitExitFullscreenMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMDocument a) => O.OverloadedMethod DOMDocumentWebkitExitFullscreenMethodInfo a signature where
overloadedMethod = dOMDocumentWebkitExitFullscreen
instance O.OverloadedMethodInfo DOMDocumentWebkitExitFullscreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocument.dOMDocumentWebkitExitFullscreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.28/docs/GI-WebKit2WebExtension-Objects-DOMDocument.html#v:dOMDocumentWebkitExitFullscreen"
})
#endif