{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMDocumentFragment
(
DOMDocumentFragment(..) ,
IsDOMDocumentFragment ,
toDOMDocumentFragment ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMDocumentFragmentMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMDocumentFragmentGetChildElementCountMethodInfo,
#endif
dOMDocumentFragmentGetChildElementCount ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentFragmentGetChildrenMethodInfo,
#endif
dOMDocumentFragmentGetChildren ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentFragmentGetElementByIdMethodInfo,
#endif
dOMDocumentFragmentGetElementById ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentFragmentGetFirstElementChildMethodInfo,
#endif
dOMDocumentFragmentGetFirstElementChild ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentFragmentGetLastElementChildMethodInfo,
#endif
dOMDocumentFragmentGetLastElementChild ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentFragmentQuerySelectorMethodInfo,
#endif
dOMDocumentFragmentQuerySelector ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentFragmentQuerySelectorAllMethodInfo,
#endif
dOMDocumentFragmentQuerySelectorAll ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentFragmentChildElementCountPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentFragmentChildElementCount ,
#endif
getDOMDocumentFragmentChildElementCount ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentFragmentChildrenPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentFragmentChildren ,
#endif
getDOMDocumentFragmentChildren ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentFragmentFirstElementChildPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentFragmentFirstElementChild ,
#endif
getDOMDocumentFragmentFirstElementChild ,
#if defined(ENABLE_OVERLOADING)
DOMDocumentFragmentLastElementChildPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentFragmentLastElementChild ,
#endif
getDOMDocumentFragmentLastElementChild ,
) 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.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.Objects.DOMElement as WebKit2WebExtension.DOMElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLCollection as WebKit2WebExtension.DOMHTMLCollection
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNodeList as WebKit2WebExtension.DOMNodeList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMDocumentFragment = DOMDocumentFragment (SP.ManagedPtr DOMDocumentFragment)
deriving (DOMDocumentFragment -> DOMDocumentFragment -> Bool
(DOMDocumentFragment -> DOMDocumentFragment -> Bool)
-> (DOMDocumentFragment -> DOMDocumentFragment -> Bool)
-> Eq DOMDocumentFragment
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMDocumentFragment -> DOMDocumentFragment -> Bool
$c/= :: DOMDocumentFragment -> DOMDocumentFragment -> Bool
== :: DOMDocumentFragment -> DOMDocumentFragment -> Bool
$c== :: DOMDocumentFragment -> DOMDocumentFragment -> Bool
Eq)
instance SP.ManagedPtrNewtype DOMDocumentFragment where
toManagedPtr :: DOMDocumentFragment -> ManagedPtr DOMDocumentFragment
toManagedPtr (DOMDocumentFragment ManagedPtr DOMDocumentFragment
p) = ManagedPtr DOMDocumentFragment
p
foreign import ccall "webkit_dom_document_fragment_get_type"
c_webkit_dom_document_fragment_get_type :: IO B.Types.GType
instance B.Types.TypedObject DOMDocumentFragment where
glibType :: IO GType
glibType = IO GType
c_webkit_dom_document_fragment_get_type
instance B.Types.GObject DOMDocumentFragment
class (SP.GObject o, O.IsDescendantOf DOMDocumentFragment o) => IsDOMDocumentFragment o
instance (SP.GObject o, O.IsDescendantOf DOMDocumentFragment o) => IsDOMDocumentFragment o
instance O.HasParentTypes DOMDocumentFragment
type instance O.ParentTypes DOMDocumentFragment = '[WebKit2WebExtension.DOMNode.DOMNode, WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object, WebKit2WebExtension.DOMEventTarget.DOMEventTarget]
toDOMDocumentFragment :: (MIO.MonadIO m, IsDOMDocumentFragment o) => o -> m DOMDocumentFragment
toDOMDocumentFragment :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocumentFragment o) =>
o -> m DOMDocumentFragment
toDOMDocumentFragment = IO DOMDocumentFragment -> m DOMDocumentFragment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMDocumentFragment -> m DOMDocumentFragment)
-> (o -> IO DOMDocumentFragment) -> o -> m DOMDocumentFragment
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMDocumentFragment -> DOMDocumentFragment)
-> o -> IO DOMDocumentFragment
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DOMDocumentFragment -> DOMDocumentFragment
DOMDocumentFragment
instance B.GValue.IsGValue (Maybe DOMDocumentFragment) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_dom_document_fragment_get_type
gvalueSet_ :: Ptr GValue -> Maybe DOMDocumentFragment -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DOMDocumentFragment
P.Nothing = Ptr GValue -> Ptr DOMDocumentFragment -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DOMDocumentFragment
forall a. Ptr a
FP.nullPtr :: FP.Ptr DOMDocumentFragment)
gvalueSet_ Ptr GValue
gv (P.Just DOMDocumentFragment
obj) = DOMDocumentFragment -> (Ptr DOMDocumentFragment -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMDocumentFragment
obj (Ptr GValue -> Ptr DOMDocumentFragment -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DOMDocumentFragment)
gvalueGet_ Ptr GValue
gv = do
Ptr DOMDocumentFragment
ptr <- Ptr GValue -> IO (Ptr DOMDocumentFragment)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DOMDocumentFragment)
if Ptr DOMDocumentFragment
ptr Ptr DOMDocumentFragment -> Ptr DOMDocumentFragment -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DOMDocumentFragment
forall a. Ptr a
FP.nullPtr
then DOMDocumentFragment -> Maybe DOMDocumentFragment
forall a. a -> Maybe a
P.Just (DOMDocumentFragment -> Maybe DOMDocumentFragment)
-> IO DOMDocumentFragment -> IO (Maybe DOMDocumentFragment)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DOMDocumentFragment -> DOMDocumentFragment)
-> Ptr DOMDocumentFragment -> IO DOMDocumentFragment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMDocumentFragment -> DOMDocumentFragment
DOMDocumentFragment Ptr DOMDocumentFragment
ptr
else Maybe DOMDocumentFragment -> IO (Maybe DOMDocumentFragment)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMDocumentFragment
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMDocumentFragmentMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMDocumentFragmentMethod "addEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetAddEventListenerMethodInfo
ResolveDOMDocumentFragmentMethod "appendChild" o = WebKit2WebExtension.DOMNode.DOMNodeAppendChildMethodInfo
ResolveDOMDocumentFragmentMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMDocumentFragmentMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMDocumentFragmentMethod "cloneNodeWithError" o = WebKit2WebExtension.DOMNode.DOMNodeCloneNodeWithErrorMethodInfo
ResolveDOMDocumentFragmentMethod "compareDocumentPosition" o = WebKit2WebExtension.DOMNode.DOMNodeCompareDocumentPositionMethodInfo
ResolveDOMDocumentFragmentMethod "contains" o = WebKit2WebExtension.DOMNode.DOMNodeContainsMethodInfo
ResolveDOMDocumentFragmentMethod "dispatchEvent" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetDispatchEventMethodInfo
ResolveDOMDocumentFragmentMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMDocumentFragmentMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMDocumentFragmentMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMDocumentFragmentMethod "hasChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeHasChildNodesMethodInfo
ResolveDOMDocumentFragmentMethod "insertBefore" o = WebKit2WebExtension.DOMNode.DOMNodeInsertBeforeMethodInfo
ResolveDOMDocumentFragmentMethod "isDefaultNamespace" o = WebKit2WebExtension.DOMNode.DOMNodeIsDefaultNamespaceMethodInfo
ResolveDOMDocumentFragmentMethod "isEqualNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsEqualNodeMethodInfo
ResolveDOMDocumentFragmentMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMDocumentFragmentMethod "isSameNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsSameNodeMethodInfo
ResolveDOMDocumentFragmentMethod "isSupported" o = WebKit2WebExtension.DOMNode.DOMNodeIsSupportedMethodInfo
ResolveDOMDocumentFragmentMethod "lookupNamespaceUri" o = WebKit2WebExtension.DOMNode.DOMNodeLookupNamespaceUriMethodInfo
ResolveDOMDocumentFragmentMethod "lookupPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeLookupPrefixMethodInfo
ResolveDOMDocumentFragmentMethod "normalize" o = WebKit2WebExtension.DOMNode.DOMNodeNormalizeMethodInfo
ResolveDOMDocumentFragmentMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMDocumentFragmentMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMDocumentFragmentMethod "querySelector" o = DOMDocumentFragmentQuerySelectorMethodInfo
ResolveDOMDocumentFragmentMethod "querySelectorAll" o = DOMDocumentFragmentQuerySelectorAllMethodInfo
ResolveDOMDocumentFragmentMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMDocumentFragmentMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMDocumentFragmentMethod "removeChild" o = WebKit2WebExtension.DOMNode.DOMNodeRemoveChildMethodInfo
ResolveDOMDocumentFragmentMethod "removeEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetRemoveEventListenerMethodInfo
ResolveDOMDocumentFragmentMethod "replaceChild" o = WebKit2WebExtension.DOMNode.DOMNodeReplaceChildMethodInfo
ResolveDOMDocumentFragmentMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMDocumentFragmentMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMDocumentFragmentMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMDocumentFragmentMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMDocumentFragmentMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMDocumentFragmentMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMDocumentFragmentMethod "getBaseUri" o = WebKit2WebExtension.DOMNode.DOMNodeGetBaseUriMethodInfo
ResolveDOMDocumentFragmentMethod "getChildElementCount" o = DOMDocumentFragmentGetChildElementCountMethodInfo
ResolveDOMDocumentFragmentMethod "getChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeGetChildNodesMethodInfo
ResolveDOMDocumentFragmentMethod "getChildren" o = DOMDocumentFragmentGetChildrenMethodInfo
ResolveDOMDocumentFragmentMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMDocumentFragmentMethod "getElementById" o = DOMDocumentFragmentGetElementByIdMethodInfo
ResolveDOMDocumentFragmentMethod "getFirstChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetFirstChildMethodInfo
ResolveDOMDocumentFragmentMethod "getFirstElementChild" o = DOMDocumentFragmentGetFirstElementChildMethodInfo
ResolveDOMDocumentFragmentMethod "getLastChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetLastChildMethodInfo
ResolveDOMDocumentFragmentMethod "getLastElementChild" o = DOMDocumentFragmentGetLastElementChildMethodInfo
ResolveDOMDocumentFragmentMethod "getLocalName" o = WebKit2WebExtension.DOMNode.DOMNodeGetLocalNameMethodInfo
ResolveDOMDocumentFragmentMethod "getNamespaceUri" o = WebKit2WebExtension.DOMNode.DOMNodeGetNamespaceUriMethodInfo
ResolveDOMDocumentFragmentMethod "getNextSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetNextSiblingMethodInfo
ResolveDOMDocumentFragmentMethod "getNodeName" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeNameMethodInfo
ResolveDOMDocumentFragmentMethod "getNodeType" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeTypeMethodInfo
ResolveDOMDocumentFragmentMethod "getNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeValueMethodInfo
ResolveDOMDocumentFragmentMethod "getOwnerDocument" o = WebKit2WebExtension.DOMNode.DOMNodeGetOwnerDocumentMethodInfo
ResolveDOMDocumentFragmentMethod "getParentElement" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentElementMethodInfo
ResolveDOMDocumentFragmentMethod "getParentNode" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentNodeMethodInfo
ResolveDOMDocumentFragmentMethod "getPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeGetPrefixMethodInfo
ResolveDOMDocumentFragmentMethod "getPreviousSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetPreviousSiblingMethodInfo
ResolveDOMDocumentFragmentMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMDocumentFragmentMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMDocumentFragmentMethod "getTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeGetTextContentMethodInfo
ResolveDOMDocumentFragmentMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMDocumentFragmentMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMDocumentFragmentMethod "setNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeSetNodeValueMethodInfo
ResolveDOMDocumentFragmentMethod "setPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeSetPrefixMethodInfo
ResolveDOMDocumentFragmentMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMDocumentFragmentMethod "setTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeSetTextContentMethodInfo
ResolveDOMDocumentFragmentMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMDocumentFragmentMethod t DOMDocumentFragment, O.OverloadedMethod info DOMDocumentFragment p) => OL.IsLabel t (DOMDocumentFragment -> 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 ~ ResolveDOMDocumentFragmentMethod t DOMDocumentFragment, O.OverloadedMethod info DOMDocumentFragment p, R.HasField t DOMDocumentFragment p) => R.HasField t DOMDocumentFragment p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDOMDocumentFragmentMethod t DOMDocumentFragment, O.OverloadedMethodInfo info DOMDocumentFragment) => OL.IsLabel t (O.MethodProxy info DOMDocumentFragment) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDOMDocumentFragmentChildElementCount :: (MonadIO m, IsDOMDocumentFragment o) => o -> m CULong
getDOMDocumentFragmentChildElementCount :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocumentFragment o) =>
o -> m CULong
getDOMDocumentFragmentChildElementCount o
obj = IO CULong -> m CULong
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 DOMDocumentFragmentChildElementCountPropertyInfo
instance AttrInfo DOMDocumentFragmentChildElementCountPropertyInfo where
type AttrAllowedOps DOMDocumentFragmentChildElementCountPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMDocumentFragmentChildElementCountPropertyInfo = IsDOMDocumentFragment
type AttrSetTypeConstraint DOMDocumentFragmentChildElementCountPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentFragmentChildElementCountPropertyInfo = (~) ()
type AttrTransferType DOMDocumentFragmentChildElementCountPropertyInfo = ()
type AttrGetType DOMDocumentFragmentChildElementCountPropertyInfo = CULong
type AttrLabel DOMDocumentFragmentChildElementCountPropertyInfo = "child-element-count"
type AttrOrigin DOMDocumentFragmentChildElementCountPropertyInfo = DOMDocumentFragment
attrGet = getDOMDocumentFragmentChildElementCount
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocumentFragment.childElementCount"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMDocumentFragment.html#g:attr:childElementCount"
})
#endif
getDOMDocumentFragmentChildren :: (MonadIO m, IsDOMDocumentFragment o) => o -> m (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
getDOMDocumentFragmentChildren :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocumentFragment o) =>
o -> m (Maybe DOMHTMLCollection)
getDOMDocumentFragmentChildren o
obj = IO (Maybe DOMHTMLCollection) -> m (Maybe DOMHTMLCollection)
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 DOMDocumentFragmentChildrenPropertyInfo
instance AttrInfo DOMDocumentFragmentChildrenPropertyInfo where
type AttrAllowedOps DOMDocumentFragmentChildrenPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentFragmentChildrenPropertyInfo = IsDOMDocumentFragment
type AttrSetTypeConstraint DOMDocumentFragmentChildrenPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentFragmentChildrenPropertyInfo = (~) ()
type AttrTransferType DOMDocumentFragmentChildrenPropertyInfo = ()
type AttrGetType DOMDocumentFragmentChildrenPropertyInfo = (Maybe WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
type AttrLabel DOMDocumentFragmentChildrenPropertyInfo = "children"
type AttrOrigin DOMDocumentFragmentChildrenPropertyInfo = DOMDocumentFragment
attrGet = getDOMDocumentFragmentChildren
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocumentFragment.children"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMDocumentFragment.html#g:attr:children"
})
#endif
getDOMDocumentFragmentFirstElementChild :: (MonadIO m, IsDOMDocumentFragment o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentFragmentFirstElementChild :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocumentFragment o) =>
o -> m DOMElement
getDOMDocumentFragmentFirstElementChild o
obj = IO DOMElement -> m DOMElement
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
"getDOMDocumentFragmentFirstElementChild" (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 DOMDocumentFragmentFirstElementChildPropertyInfo
instance AttrInfo DOMDocumentFragmentFirstElementChildPropertyInfo where
type AttrAllowedOps DOMDocumentFragmentFirstElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentFragmentFirstElementChildPropertyInfo = IsDOMDocumentFragment
type AttrSetTypeConstraint DOMDocumentFragmentFirstElementChildPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentFragmentFirstElementChildPropertyInfo = (~) ()
type AttrTransferType DOMDocumentFragmentFirstElementChildPropertyInfo = ()
type AttrGetType DOMDocumentFragmentFirstElementChildPropertyInfo = WebKit2WebExtension.DOMElement.DOMElement
type AttrLabel DOMDocumentFragmentFirstElementChildPropertyInfo = "first-element-child"
type AttrOrigin DOMDocumentFragmentFirstElementChildPropertyInfo = DOMDocumentFragment
attrGet = getDOMDocumentFragmentFirstElementChild
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocumentFragment.firstElementChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMDocumentFragment.html#g:attr:firstElementChild"
})
#endif
getDOMDocumentFragmentLastElementChild :: (MonadIO m, IsDOMDocumentFragment o) => o -> m WebKit2WebExtension.DOMElement.DOMElement
getDOMDocumentFragmentLastElementChild :: forall (m :: * -> *) o.
(MonadIO m, IsDOMDocumentFragment o) =>
o -> m DOMElement
getDOMDocumentFragmentLastElementChild o
obj = IO DOMElement -> m DOMElement
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
"getDOMDocumentFragmentLastElementChild" (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 DOMDocumentFragmentLastElementChildPropertyInfo
instance AttrInfo DOMDocumentFragmentLastElementChildPropertyInfo where
type AttrAllowedOps DOMDocumentFragmentLastElementChildPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMDocumentFragmentLastElementChildPropertyInfo = IsDOMDocumentFragment
type AttrSetTypeConstraint DOMDocumentFragmentLastElementChildPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMDocumentFragmentLastElementChildPropertyInfo = (~) ()
type AttrTransferType DOMDocumentFragmentLastElementChildPropertyInfo = ()
type AttrGetType DOMDocumentFragmentLastElementChildPropertyInfo = WebKit2WebExtension.DOMElement.DOMElement
type AttrLabel DOMDocumentFragmentLastElementChildPropertyInfo = "last-element-child"
type AttrOrigin DOMDocumentFragmentLastElementChildPropertyInfo = DOMDocumentFragment
attrGet = getDOMDocumentFragmentLastElementChild
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocumentFragment.lastElementChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMDocumentFragment.html#g:attr:lastElementChild"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMDocumentFragment
type instance O.AttributeList DOMDocumentFragment = DOMDocumentFragmentAttributeList
type DOMDocumentFragmentAttributeList = ('[ '("baseUri", WebKit2WebExtension.DOMNode.DOMNodeBaseUriPropertyInfo), '("childElementCount", DOMDocumentFragmentChildElementCountPropertyInfo), '("childNodes", WebKit2WebExtension.DOMNode.DOMNodeChildNodesPropertyInfo), '("children", DOMDocumentFragmentChildrenPropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("firstChild", WebKit2WebExtension.DOMNode.DOMNodeFirstChildPropertyInfo), '("firstElementChild", DOMDocumentFragmentFirstElementChildPropertyInfo), '("lastChild", WebKit2WebExtension.DOMNode.DOMNodeLastChildPropertyInfo), '("lastElementChild", DOMDocumentFragmentLastElementChildPropertyInfo), '("nextSibling", WebKit2WebExtension.DOMNode.DOMNodeNextSiblingPropertyInfo), '("nodeName", WebKit2WebExtension.DOMNode.DOMNodeNodeNamePropertyInfo), '("nodeType", WebKit2WebExtension.DOMNode.DOMNodeNodeTypePropertyInfo), '("nodeValue", WebKit2WebExtension.DOMNode.DOMNodeNodeValuePropertyInfo), '("ownerDocument", WebKit2WebExtension.DOMNode.DOMNodeOwnerDocumentPropertyInfo), '("parentElement", WebKit2WebExtension.DOMNode.DOMNodeParentElementPropertyInfo), '("parentNode", WebKit2WebExtension.DOMNode.DOMNodeParentNodePropertyInfo), '("previousSibling", WebKit2WebExtension.DOMNode.DOMNodePreviousSiblingPropertyInfo), '("textContent", WebKit2WebExtension.DOMNode.DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMDocumentFragmentChildElementCount :: AttrLabelProxy "childElementCount"
dOMDocumentFragmentChildElementCount = AttrLabelProxy
dOMDocumentFragmentChildren :: AttrLabelProxy "children"
dOMDocumentFragmentChildren = AttrLabelProxy
dOMDocumentFragmentFirstElementChild :: AttrLabelProxy "firstElementChild"
dOMDocumentFragmentFirstElementChild = AttrLabelProxy
dOMDocumentFragmentLastElementChild :: AttrLabelProxy "lastElementChild"
dOMDocumentFragmentLastElementChild = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMDocumentFragment = DOMDocumentFragmentSignalList
type DOMDocumentFragmentSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_document_fragment_get_child_element_count" webkit_dom_document_fragment_get_child_element_count ::
Ptr DOMDocumentFragment ->
IO CULong
{-# DEPRECATED dOMDocumentFragmentGetChildElementCount ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentFragmentGetChildElementCount ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocumentFragment a) =>
a
-> m CULong
dOMDocumentFragmentGetChildElementCount :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocumentFragment a) =>
a -> m CULong
dOMDocumentFragmentGetChildElementCount a
self = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocumentFragment
self' <- a -> IO (Ptr DOMDocumentFragment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CULong
result <- Ptr DOMDocumentFragment -> IO CULong
webkit_dom_document_fragment_get_child_element_count Ptr DOMDocumentFragment
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result
#if defined(ENABLE_OVERLOADING)
data DOMDocumentFragmentGetChildElementCountMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMDocumentFragment a) => O.OverloadedMethod DOMDocumentFragmentGetChildElementCountMethodInfo a signature where
overloadedMethod = dOMDocumentFragmentGetChildElementCount
instance O.OverloadedMethodInfo DOMDocumentFragmentGetChildElementCountMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocumentFragment.dOMDocumentFragmentGetChildElementCount",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMDocumentFragment.html#v:dOMDocumentFragmentGetChildElementCount"
})
#endif
foreign import ccall "webkit_dom_document_fragment_get_children" webkit_dom_document_fragment_get_children ::
Ptr DOMDocumentFragment ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMDocumentFragmentGetChildren ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentFragmentGetChildren ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocumentFragment a) =>
a
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMDocumentFragmentGetChildren :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocumentFragment a) =>
a -> m DOMHTMLCollection
dOMDocumentFragmentGetChildren a
self = IO DOMHTMLCollection -> m DOMHTMLCollection
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMHTMLCollection -> m DOMHTMLCollection)
-> IO DOMHTMLCollection -> m DOMHTMLCollection
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocumentFragment
self' <- a -> IO (Ptr DOMDocumentFragment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLCollection
result <- Ptr DOMDocumentFragment -> IO (Ptr DOMHTMLCollection)
webkit_dom_document_fragment_get_children Ptr DOMDocumentFragment
self'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentFragmentGetChildren" Ptr DOMHTMLCollection
result
DOMHTMLCollection
result' <- ((ManagedPtr DOMHTMLCollection -> DOMHTMLCollection)
-> Ptr DOMHTMLCollection -> IO DOMHTMLCollection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection) Ptr DOMHTMLCollection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMHTMLCollection -> IO DOMHTMLCollection
forall (m :: * -> *) a. Monad m => a -> m a
return DOMHTMLCollection
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentFragmentGetChildrenMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMDocumentFragment a) => O.OverloadedMethod DOMDocumentFragmentGetChildrenMethodInfo a signature where
overloadedMethod = dOMDocumentFragmentGetChildren
instance O.OverloadedMethodInfo DOMDocumentFragmentGetChildrenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocumentFragment.dOMDocumentFragmentGetChildren",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMDocumentFragment.html#v:dOMDocumentFragmentGetChildren"
})
#endif
foreign import ccall "webkit_dom_document_fragment_get_element_by_id" webkit_dom_document_fragment_get_element_by_id ::
Ptr DOMDocumentFragment ->
CString ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentFragmentGetElementById ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentFragmentGetElementById ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocumentFragment a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentFragmentGetElementById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocumentFragment a) =>
a -> Text -> m DOMElement
dOMDocumentFragmentGetElementById a
self Text
elementId = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocumentFragment
self' <- a -> IO (Ptr DOMDocumentFragment)
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 DOMDocumentFragment -> CString -> IO (Ptr DOMElement)
webkit_dom_document_fragment_get_element_by_id Ptr DOMDocumentFragment
self' CString
elementId'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentFragmentGetElementById" Ptr DOMElement
result
DOMElement
result' <- ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement) Ptr DOMElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
elementId'
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentFragmentGetElementByIdMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocumentFragment a) => O.OverloadedMethod DOMDocumentFragmentGetElementByIdMethodInfo a signature where
overloadedMethod = dOMDocumentFragmentGetElementById
instance O.OverloadedMethodInfo DOMDocumentFragmentGetElementByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocumentFragment.dOMDocumentFragmentGetElementById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMDocumentFragment.html#v:dOMDocumentFragmentGetElementById"
})
#endif
foreign import ccall "webkit_dom_document_fragment_get_first_element_child" webkit_dom_document_fragment_get_first_element_child ::
Ptr DOMDocumentFragment ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentFragmentGetFirstElementChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentFragmentGetFirstElementChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocumentFragment a) =>
a
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentFragmentGetFirstElementChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocumentFragment a) =>
a -> m DOMElement
dOMDocumentFragmentGetFirstElementChild a
self = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocumentFragment
self' <- a -> IO (Ptr DOMDocumentFragment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMDocumentFragment -> IO (Ptr DOMElement)
webkit_dom_document_fragment_get_first_element_child Ptr DOMDocumentFragment
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentFragmentGetFirstElementChild" Ptr DOMElement
result
DOMElement
result' <- ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement) Ptr DOMElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentFragmentGetFirstElementChildMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocumentFragment a) => O.OverloadedMethod DOMDocumentFragmentGetFirstElementChildMethodInfo a signature where
overloadedMethod = dOMDocumentFragmentGetFirstElementChild
instance O.OverloadedMethodInfo DOMDocumentFragmentGetFirstElementChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocumentFragment.dOMDocumentFragmentGetFirstElementChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMDocumentFragment.html#v:dOMDocumentFragmentGetFirstElementChild"
})
#endif
foreign import ccall "webkit_dom_document_fragment_get_last_element_child" webkit_dom_document_fragment_get_last_element_child ::
Ptr DOMDocumentFragment ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentFragmentGetLastElementChild ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentFragmentGetLastElementChild ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocumentFragment a) =>
a
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentFragmentGetLastElementChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocumentFragment a) =>
a -> m DOMElement
dOMDocumentFragmentGetLastElementChild a
self = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocumentFragment
self' <- a -> IO (Ptr DOMDocumentFragment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMElement
result <- Ptr DOMDocumentFragment -> IO (Ptr DOMElement)
webkit_dom_document_fragment_get_last_element_child Ptr DOMDocumentFragment
self'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentFragmentGetLastElementChild" Ptr DOMElement
result
DOMElement
result' <- ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement) Ptr DOMElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
#if defined(ENABLE_OVERLOADING)
data DOMDocumentFragmentGetLastElementChildMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocumentFragment a) => O.OverloadedMethod DOMDocumentFragmentGetLastElementChildMethodInfo a signature where
overloadedMethod = dOMDocumentFragmentGetLastElementChild
instance O.OverloadedMethodInfo DOMDocumentFragmentGetLastElementChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocumentFragment.dOMDocumentFragmentGetLastElementChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMDocumentFragment.html#v:dOMDocumentFragmentGetLastElementChild"
})
#endif
foreign import ccall "webkit_dom_document_fragment_query_selector" webkit_dom_document_fragment_query_selector ::
Ptr DOMDocumentFragment ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMElement.DOMElement)
{-# DEPRECATED dOMDocumentFragmentQuerySelector ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentFragmentQuerySelector ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocumentFragment a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMElement.DOMElement
dOMDocumentFragmentQuerySelector :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocumentFragment a) =>
a -> Text -> m DOMElement
dOMDocumentFragmentQuerySelector a
self Text
selectors = IO DOMElement -> m DOMElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMElement -> m DOMElement) -> IO DOMElement -> m DOMElement
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocumentFragment
self' <- a -> IO (Ptr DOMDocumentFragment)
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 DOMDocumentFragment
-> CString -> Ptr (Ptr GError) -> IO (Ptr DOMElement)
webkit_dom_document_fragment_query_selector Ptr DOMDocumentFragment
self' CString
selectors'
Text -> Ptr DOMElement -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentFragmentQuerySelector" Ptr DOMElement
result
DOMElement
result' <- ((ManagedPtr DOMElement -> DOMElement)
-> Ptr DOMElement -> IO DOMElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMElement -> DOMElement
WebKit2WebExtension.DOMElement.DOMElement) Ptr DOMElement
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selectors'
DOMElement -> IO DOMElement
forall (m :: * -> *) a. Monad m => a -> m a
return DOMElement
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selectors'
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentFragmentQuerySelectorMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMElement.DOMElement), MonadIO m, IsDOMDocumentFragment a) => O.OverloadedMethod DOMDocumentFragmentQuerySelectorMethodInfo a signature where
overloadedMethod = dOMDocumentFragmentQuerySelector
instance O.OverloadedMethodInfo DOMDocumentFragmentQuerySelectorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocumentFragment.dOMDocumentFragmentQuerySelector",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMDocumentFragment.html#v:dOMDocumentFragmentQuerySelector"
})
#endif
foreign import ccall "webkit_dom_document_fragment_query_selector_all" webkit_dom_document_fragment_query_selector_all ::
Ptr DOMDocumentFragment ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNodeList.DOMNodeList)
{-# DEPRECATED dOMDocumentFragmentQuerySelectorAll ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDocumentFragmentQuerySelectorAll ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDocumentFragment a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMNodeList.DOMNodeList
dOMDocumentFragmentQuerySelectorAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMDocumentFragment a) =>
a -> Text -> m DOMNodeList
dOMDocumentFragmentQuerySelectorAll a
self Text
selectors = IO DOMNodeList -> m DOMNodeList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNodeList -> m DOMNodeList)
-> IO DOMNodeList -> m DOMNodeList
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMDocumentFragment
self' <- a -> IO (Ptr DOMDocumentFragment)
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 DOMDocumentFragment
-> CString -> Ptr (Ptr GError) -> IO (Ptr DOMNodeList)
webkit_dom_document_fragment_query_selector_all Ptr DOMDocumentFragment
self' CString
selectors'
Text -> Ptr DOMNodeList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMDocumentFragmentQuerySelectorAll" Ptr DOMNodeList
result
DOMNodeList
result' <- ((ManagedPtr DOMNodeList -> DOMNodeList)
-> Ptr DOMNodeList -> IO DOMNodeList
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMNodeList -> DOMNodeList
WebKit2WebExtension.DOMNodeList.DOMNodeList) Ptr DOMNodeList
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selectors'
DOMNodeList -> IO DOMNodeList
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNodeList
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selectors'
)
#if defined(ENABLE_OVERLOADING)
data DOMDocumentFragmentQuerySelectorAllMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMNodeList.DOMNodeList), MonadIO m, IsDOMDocumentFragment a) => O.OverloadedMethod DOMDocumentFragmentQuerySelectorAllMethodInfo a signature where
overloadedMethod = dOMDocumentFragmentQuerySelectorAll
instance O.OverloadedMethodInfo DOMDocumentFragmentQuerySelectorAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMDocumentFragment.dOMDocumentFragmentQuerySelectorAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.27/docs/GI-WebKit2WebExtension-Objects-DOMDocumentFragment.html#v:dOMDocumentFragmentQuerySelectorAll"
})
#endif