#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2WebExtension.Objects.DOMRange
(
DOMRange(..) ,
IsDOMRange ,
toDOMRange ,
noDOMRange ,
#if ENABLE_OVERLOADING
DOMRangeCloneContentsMethodInfo ,
#endif
dOMRangeCloneContents ,
#if ENABLE_OVERLOADING
DOMRangeCloneRangeMethodInfo ,
#endif
dOMRangeCloneRange ,
#if ENABLE_OVERLOADING
DOMRangeCollapseMethodInfo ,
#endif
dOMRangeCollapse ,
#if ENABLE_OVERLOADING
DOMRangeCompareBoundaryPointsMethodInfo ,
#endif
dOMRangeCompareBoundaryPoints ,
#if ENABLE_OVERLOADING
DOMRangeCompareNodeMethodInfo ,
#endif
dOMRangeCompareNode ,
#if ENABLE_OVERLOADING
DOMRangeComparePointMethodInfo ,
#endif
dOMRangeComparePoint ,
#if ENABLE_OVERLOADING
DOMRangeCreateContextualFragmentMethodInfo,
#endif
dOMRangeCreateContextualFragment ,
#if ENABLE_OVERLOADING
DOMRangeDeleteContentsMethodInfo ,
#endif
dOMRangeDeleteContents ,
#if ENABLE_OVERLOADING
DOMRangeDetachMethodInfo ,
#endif
dOMRangeDetach ,
#if ENABLE_OVERLOADING
DOMRangeExpandMethodInfo ,
#endif
dOMRangeExpand ,
#if ENABLE_OVERLOADING
DOMRangeExtractContentsMethodInfo ,
#endif
dOMRangeExtractContents ,
#if ENABLE_OVERLOADING
DOMRangeGetCollapsedMethodInfo ,
#endif
dOMRangeGetCollapsed ,
#if ENABLE_OVERLOADING
DOMRangeGetCommonAncestorContainerMethodInfo,
#endif
dOMRangeGetCommonAncestorContainer ,
#if ENABLE_OVERLOADING
DOMRangeGetEndContainerMethodInfo ,
#endif
dOMRangeGetEndContainer ,
#if ENABLE_OVERLOADING
DOMRangeGetEndOffsetMethodInfo ,
#endif
dOMRangeGetEndOffset ,
#if ENABLE_OVERLOADING
DOMRangeGetStartContainerMethodInfo ,
#endif
dOMRangeGetStartContainer ,
#if ENABLE_OVERLOADING
DOMRangeGetStartOffsetMethodInfo ,
#endif
dOMRangeGetStartOffset ,
#if ENABLE_OVERLOADING
DOMRangeGetTextMethodInfo ,
#endif
dOMRangeGetText ,
#if ENABLE_OVERLOADING
DOMRangeInsertNodeMethodInfo ,
#endif
dOMRangeInsertNode ,
#if ENABLE_OVERLOADING
DOMRangeIntersectsNodeMethodInfo ,
#endif
dOMRangeIntersectsNode ,
#if ENABLE_OVERLOADING
DOMRangeIsPointInRangeMethodInfo ,
#endif
dOMRangeIsPointInRange ,
#if ENABLE_OVERLOADING
DOMRangeSelectNodeMethodInfo ,
#endif
dOMRangeSelectNode ,
#if ENABLE_OVERLOADING
DOMRangeSelectNodeContentsMethodInfo ,
#endif
dOMRangeSelectNodeContents ,
#if ENABLE_OVERLOADING
DOMRangeSetEndMethodInfo ,
#endif
dOMRangeSetEnd ,
#if ENABLE_OVERLOADING
DOMRangeSetEndAfterMethodInfo ,
#endif
dOMRangeSetEndAfter ,
#if ENABLE_OVERLOADING
DOMRangeSetEndBeforeMethodInfo ,
#endif
dOMRangeSetEndBefore ,
#if ENABLE_OVERLOADING
DOMRangeSetStartMethodInfo ,
#endif
dOMRangeSetStart ,
#if ENABLE_OVERLOADING
DOMRangeSetStartAfterMethodInfo ,
#endif
dOMRangeSetStartAfter ,
#if ENABLE_OVERLOADING
DOMRangeSetStartBeforeMethodInfo ,
#endif
dOMRangeSetStartBefore ,
#if ENABLE_OVERLOADING
DOMRangeSurroundContentsMethodInfo ,
#endif
dOMRangeSurroundContents ,
#if ENABLE_OVERLOADING
DOMRangeToStringMethodInfo ,
#endif
dOMRangeToString ,
#if ENABLE_OVERLOADING
DOMRangeCollapsedPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMRangeCollapsed ,
#endif
getDOMRangeCollapsed ,
#if ENABLE_OVERLOADING
DOMRangeCommonAncestorContainerPropertyInfo,
#endif
#if ENABLE_OVERLOADING
dOMRangeCommonAncestorContainer ,
#endif
getDOMRangeCommonAncestorContainer ,
#if ENABLE_OVERLOADING
DOMRangeEndContainerPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMRangeEndContainer ,
#endif
getDOMRangeEndContainer ,
#if ENABLE_OVERLOADING
DOMRangeEndOffsetPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMRangeEndOffset ,
#endif
getDOMRangeEndOffset ,
#if ENABLE_OVERLOADING
DOMRangeStartContainerPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMRangeStartContainer ,
#endif
getDOMRangeStartContainer ,
#if ENABLE_OVERLOADING
DOMRangeStartOffsetPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMRangeStartOffset ,
#endif
getDOMRangeStartOffset ,
#if ENABLE_OVERLOADING
DOMRangeTextPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMRangeText ,
#endif
getDOMRangeText ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDocumentFragment as WebKit2WebExtension.DOMDocumentFragment
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMRange = DOMRange (ManagedPtr DOMRange)
foreign import ccall "webkit_dom_range_get_type"
c_webkit_dom_range_get_type :: IO GType
instance GObject DOMRange where
gobjectType = c_webkit_dom_range_get_type
class (GObject o, O.IsDescendantOf DOMRange o) => IsDOMRange o
instance (GObject o, O.IsDescendantOf DOMRange o) => IsDOMRange o
instance O.HasParentTypes DOMRange
type instance O.ParentTypes DOMRange = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMRange :: (MonadIO m, IsDOMRange o) => o -> m DOMRange
toDOMRange = liftIO . unsafeCastTo DOMRange
noDOMRange :: Maybe DOMRange
noDOMRange = Nothing
#if ENABLE_OVERLOADING
type family ResolveDOMRangeMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMRangeMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMRangeMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMRangeMethod "cloneContents" o = DOMRangeCloneContentsMethodInfo
ResolveDOMRangeMethod "cloneRange" o = DOMRangeCloneRangeMethodInfo
ResolveDOMRangeMethod "collapse" o = DOMRangeCollapseMethodInfo
ResolveDOMRangeMethod "compareBoundaryPoints" o = DOMRangeCompareBoundaryPointsMethodInfo
ResolveDOMRangeMethod "compareNode" o = DOMRangeCompareNodeMethodInfo
ResolveDOMRangeMethod "comparePoint" o = DOMRangeComparePointMethodInfo
ResolveDOMRangeMethod "createContextualFragment" o = DOMRangeCreateContextualFragmentMethodInfo
ResolveDOMRangeMethod "deleteContents" o = DOMRangeDeleteContentsMethodInfo
ResolveDOMRangeMethod "detach" o = DOMRangeDetachMethodInfo
ResolveDOMRangeMethod "expand" o = DOMRangeExpandMethodInfo
ResolveDOMRangeMethod "extractContents" o = DOMRangeExtractContentsMethodInfo
ResolveDOMRangeMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMRangeMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMRangeMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMRangeMethod "insertNode" o = DOMRangeInsertNodeMethodInfo
ResolveDOMRangeMethod "intersectsNode" o = DOMRangeIntersectsNodeMethodInfo
ResolveDOMRangeMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMRangeMethod "isPointInRange" o = DOMRangeIsPointInRangeMethodInfo
ResolveDOMRangeMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMRangeMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMRangeMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMRangeMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMRangeMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMRangeMethod "selectNode" o = DOMRangeSelectNodeMethodInfo
ResolveDOMRangeMethod "selectNodeContents" o = DOMRangeSelectNodeContentsMethodInfo
ResolveDOMRangeMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMRangeMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMRangeMethod "surroundContents" o = DOMRangeSurroundContentsMethodInfo
ResolveDOMRangeMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMRangeMethod "toString" o = DOMRangeToStringMethodInfo
ResolveDOMRangeMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMRangeMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMRangeMethod "getCollapsed" o = DOMRangeGetCollapsedMethodInfo
ResolveDOMRangeMethod "getCommonAncestorContainer" o = DOMRangeGetCommonAncestorContainerMethodInfo
ResolveDOMRangeMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMRangeMethod "getEndContainer" o = DOMRangeGetEndContainerMethodInfo
ResolveDOMRangeMethod "getEndOffset" o = DOMRangeGetEndOffsetMethodInfo
ResolveDOMRangeMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMRangeMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMRangeMethod "getStartContainer" o = DOMRangeGetStartContainerMethodInfo
ResolveDOMRangeMethod "getStartOffset" o = DOMRangeGetStartOffsetMethodInfo
ResolveDOMRangeMethod "getText" o = DOMRangeGetTextMethodInfo
ResolveDOMRangeMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMRangeMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMRangeMethod "setEnd" o = DOMRangeSetEndMethodInfo
ResolveDOMRangeMethod "setEndAfter" o = DOMRangeSetEndAfterMethodInfo
ResolveDOMRangeMethod "setEndBefore" o = DOMRangeSetEndBeforeMethodInfo
ResolveDOMRangeMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMRangeMethod "setStart" o = DOMRangeSetStartMethodInfo
ResolveDOMRangeMethod "setStartAfter" o = DOMRangeSetStartAfterMethodInfo
ResolveDOMRangeMethod "setStartBefore" o = DOMRangeSetStartBeforeMethodInfo
ResolveDOMRangeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMRangeMethod t DOMRange, O.MethodInfo info DOMRange p) => OL.IsLabel t (DOMRange -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
getDOMRangeCollapsed :: (MonadIO m, IsDOMRange o) => o -> m Bool
getDOMRangeCollapsed obj = liftIO $ B.Properties.getObjectPropertyBool obj "collapsed"
#if ENABLE_OVERLOADING
data DOMRangeCollapsedPropertyInfo
instance AttrInfo DOMRangeCollapsedPropertyInfo where
type AttrAllowedOps DOMRangeCollapsedPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMRangeCollapsedPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMRangeCollapsedPropertyInfo = IsDOMRange
type AttrGetType DOMRangeCollapsedPropertyInfo = Bool
type AttrLabel DOMRangeCollapsedPropertyInfo = "collapsed"
type AttrOrigin DOMRangeCollapsedPropertyInfo = DOMRange
attrGet _ = getDOMRangeCollapsed
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMRangeCommonAncestorContainer :: (MonadIO m, IsDOMRange o) => o -> m (Maybe WebKit2WebExtension.DOMNode.DOMNode)
getDOMRangeCommonAncestorContainer obj = liftIO $ B.Properties.getObjectPropertyObject obj "common-ancestor-container" WebKit2WebExtension.DOMNode.DOMNode
#if ENABLE_OVERLOADING
data DOMRangeCommonAncestorContainerPropertyInfo
instance AttrInfo DOMRangeCommonAncestorContainerPropertyInfo where
type AttrAllowedOps DOMRangeCommonAncestorContainerPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = IsDOMRange
type AttrGetType DOMRangeCommonAncestorContainerPropertyInfo = (Maybe WebKit2WebExtension.DOMNode.DOMNode)
type AttrLabel DOMRangeCommonAncestorContainerPropertyInfo = "common-ancestor-container"
type AttrOrigin DOMRangeCommonAncestorContainerPropertyInfo = DOMRange
attrGet _ = getDOMRangeCommonAncestorContainer
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMRangeEndContainer :: (MonadIO m, IsDOMRange o) => o -> m (Maybe WebKit2WebExtension.DOMNode.DOMNode)
getDOMRangeEndContainer obj = liftIO $ B.Properties.getObjectPropertyObject obj "end-container" WebKit2WebExtension.DOMNode.DOMNode
#if ENABLE_OVERLOADING
data DOMRangeEndContainerPropertyInfo
instance AttrInfo DOMRangeEndContainerPropertyInfo where
type AttrAllowedOps DOMRangeEndContainerPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMRangeEndContainerPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMRangeEndContainerPropertyInfo = IsDOMRange
type AttrGetType DOMRangeEndContainerPropertyInfo = (Maybe WebKit2WebExtension.DOMNode.DOMNode)
type AttrLabel DOMRangeEndContainerPropertyInfo = "end-container"
type AttrOrigin DOMRangeEndContainerPropertyInfo = DOMRange
attrGet _ = getDOMRangeEndContainer
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMRangeEndOffset :: (MonadIO m, IsDOMRange o) => o -> m CLong
getDOMRangeEndOffset obj = liftIO $ B.Properties.getObjectPropertyLong obj "end-offset"
#if ENABLE_OVERLOADING
data DOMRangeEndOffsetPropertyInfo
instance AttrInfo DOMRangeEndOffsetPropertyInfo where
type AttrAllowedOps DOMRangeEndOffsetPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMRangeEndOffsetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMRangeEndOffsetPropertyInfo = IsDOMRange
type AttrGetType DOMRangeEndOffsetPropertyInfo = CLong
type AttrLabel DOMRangeEndOffsetPropertyInfo = "end-offset"
type AttrOrigin DOMRangeEndOffsetPropertyInfo = DOMRange
attrGet _ = getDOMRangeEndOffset
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMRangeStartContainer :: (MonadIO m, IsDOMRange o) => o -> m (Maybe WebKit2WebExtension.DOMNode.DOMNode)
getDOMRangeStartContainer obj = liftIO $ B.Properties.getObjectPropertyObject obj "start-container" WebKit2WebExtension.DOMNode.DOMNode
#if ENABLE_OVERLOADING
data DOMRangeStartContainerPropertyInfo
instance AttrInfo DOMRangeStartContainerPropertyInfo where
type AttrAllowedOps DOMRangeStartContainerPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMRangeStartContainerPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMRangeStartContainerPropertyInfo = IsDOMRange
type AttrGetType DOMRangeStartContainerPropertyInfo = (Maybe WebKit2WebExtension.DOMNode.DOMNode)
type AttrLabel DOMRangeStartContainerPropertyInfo = "start-container"
type AttrOrigin DOMRangeStartContainerPropertyInfo = DOMRange
attrGet _ = getDOMRangeStartContainer
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMRangeStartOffset :: (MonadIO m, IsDOMRange o) => o -> m CLong
getDOMRangeStartOffset obj = liftIO $ B.Properties.getObjectPropertyLong obj "start-offset"
#if ENABLE_OVERLOADING
data DOMRangeStartOffsetPropertyInfo
instance AttrInfo DOMRangeStartOffsetPropertyInfo where
type AttrAllowedOps DOMRangeStartOffsetPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMRangeStartOffsetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMRangeStartOffsetPropertyInfo = IsDOMRange
type AttrGetType DOMRangeStartOffsetPropertyInfo = CLong
type AttrLabel DOMRangeStartOffsetPropertyInfo = "start-offset"
type AttrOrigin DOMRangeStartOffsetPropertyInfo = DOMRange
attrGet _ = getDOMRangeStartOffset
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMRangeText :: (MonadIO m, IsDOMRange o) => o -> m (Maybe T.Text)
getDOMRangeText obj = liftIO $ B.Properties.getObjectPropertyString obj "text"
#if ENABLE_OVERLOADING
data DOMRangeTextPropertyInfo
instance AttrInfo DOMRangeTextPropertyInfo where
type AttrAllowedOps DOMRangeTextPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMRangeTextPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMRangeTextPropertyInfo = IsDOMRange
type AttrGetType DOMRangeTextPropertyInfo = (Maybe T.Text)
type AttrLabel DOMRangeTextPropertyInfo = "text"
type AttrOrigin DOMRangeTextPropertyInfo = DOMRange
attrGet _ = getDOMRangeText
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList DOMRange
type instance O.AttributeList DOMRange = DOMRangeAttributeList
type DOMRangeAttributeList = ('[ '("collapsed", DOMRangeCollapsedPropertyInfo), '("commonAncestorContainer", DOMRangeCommonAncestorContainerPropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("endContainer", DOMRangeEndContainerPropertyInfo), '("endOffset", DOMRangeEndOffsetPropertyInfo), '("startContainer", DOMRangeStartContainerPropertyInfo), '("startOffset", DOMRangeStartOffsetPropertyInfo), '("text", DOMRangeTextPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
dOMRangeCollapsed :: AttrLabelProxy "collapsed"
dOMRangeCollapsed = AttrLabelProxy
dOMRangeCommonAncestorContainer :: AttrLabelProxy "commonAncestorContainer"
dOMRangeCommonAncestorContainer = AttrLabelProxy
dOMRangeEndContainer :: AttrLabelProxy "endContainer"
dOMRangeEndContainer = AttrLabelProxy
dOMRangeEndOffset :: AttrLabelProxy "endOffset"
dOMRangeEndOffset = AttrLabelProxy
dOMRangeStartContainer :: AttrLabelProxy "startContainer"
dOMRangeStartContainer = AttrLabelProxy
dOMRangeStartOffset :: AttrLabelProxy "startOffset"
dOMRangeStartOffset = AttrLabelProxy
dOMRangeText :: AttrLabelProxy "text"
dOMRangeText = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList DOMRange = DOMRangeSignalList
type DOMRangeSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_range_clone_contents" webkit_dom_range_clone_contents ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment)
{-# DEPRECATED dOMRangeCloneContents ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeCloneContents ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment
dOMRangeCloneContents self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
result <- propagateGError $ webkit_dom_range_clone_contents self'
checkUnexpectedReturnNULL "dOMRangeCloneContents" result
result' <- (newObject WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment) result
touchManagedPtr self
return result'
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeCloneContentsMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeCloneContentsMethodInfo a signature where
overloadedMethod _ = dOMRangeCloneContents
#endif
foreign import ccall "webkit_dom_range_clone_range" webkit_dom_range_clone_range ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO (Ptr DOMRange)
{-# DEPRECATED dOMRangeCloneRange ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeCloneRange ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m DOMRange
dOMRangeCloneRange self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
result <- propagateGError $ webkit_dom_range_clone_range self'
checkUnexpectedReturnNULL "dOMRangeCloneRange" result
result' <- (wrapObject DOMRange) result
touchManagedPtr self
return result'
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeCloneRangeMethodInfo
instance (signature ~ (m DOMRange), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeCloneRangeMethodInfo a signature where
overloadedMethod _ = dOMRangeCloneRange
#endif
foreign import ccall "webkit_dom_range_collapse" webkit_dom_range_collapse ::
Ptr DOMRange ->
CInt ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeCollapse ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeCollapse ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> Bool
-> m ()
dOMRangeCollapse self toStart = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
let toStart' = (fromIntegral . fromEnum) toStart
onException (do
propagateGError $ webkit_dom_range_collapse self' toStart'
touchManagedPtr self
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeCollapseMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeCollapseMethodInfo a signature where
overloadedMethod _ = dOMRangeCollapse
#endif
foreign import ccall "webkit_dom_range_compare_boundary_points" webkit_dom_range_compare_boundary_points ::
Ptr DOMRange ->
Word16 ->
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO Int16
{-# DEPRECATED dOMRangeCompareBoundaryPoints ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeCompareBoundaryPoints ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, IsDOMRange b) =>
a
-> Word16
-> b
-> m Int16
dOMRangeCompareBoundaryPoints self how sourceRange = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
sourceRange' <- unsafeManagedPtrCastPtr sourceRange
onException (do
result <- propagateGError $ webkit_dom_range_compare_boundary_points self' how sourceRange'
touchManagedPtr self
touchManagedPtr sourceRange
return result
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeCompareBoundaryPointsMethodInfo
instance (signature ~ (Word16 -> b -> m Int16), MonadIO m, IsDOMRange a, IsDOMRange b) => O.MethodInfo DOMRangeCompareBoundaryPointsMethodInfo a signature where
overloadedMethod _ = dOMRangeCompareBoundaryPoints
#endif
foreign import ccall "webkit_dom_range_compare_node" webkit_dom_range_compare_node ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO Int16
{-# DEPRECATED dOMRangeCompareNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeCompareNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m Int16
dOMRangeCompareNode self refNode = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
refNode' <- unsafeManagedPtrCastPtr refNode
onException (do
result <- propagateGError $ webkit_dom_range_compare_node self' refNode'
touchManagedPtr self
touchManagedPtr refNode
return result
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeCompareNodeMethodInfo
instance (signature ~ (b -> m Int16), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeCompareNodeMethodInfo a signature where
overloadedMethod _ = dOMRangeCompareNode
#endif
foreign import ccall "webkit_dom_range_compare_point" webkit_dom_range_compare_point ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CLong ->
Ptr (Ptr GError) ->
IO Int16
{-# DEPRECATED dOMRangeComparePoint ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeComparePoint ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> CLong
-> m Int16
dOMRangeComparePoint self refNode offset = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
refNode' <- unsafeManagedPtrCastPtr refNode
onException (do
result <- propagateGError $ webkit_dom_range_compare_point self' refNode' offset
touchManagedPtr self
touchManagedPtr refNode
return result
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeComparePointMethodInfo
instance (signature ~ (b -> CLong -> m Int16), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeComparePointMethodInfo a signature where
overloadedMethod _ = dOMRangeComparePoint
#endif
foreign import ccall "webkit_dom_range_create_contextual_fragment" webkit_dom_range_create_contextual_fragment ::
Ptr DOMRange ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment)
{-# DEPRECATED dOMRangeCreateContextualFragment ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeCreateContextualFragment ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment
dOMRangeCreateContextualFragment self html = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
html' <- textToCString html
onException (do
result <- propagateGError $ webkit_dom_range_create_contextual_fragment self' html'
checkUnexpectedReturnNULL "dOMRangeCreateContextualFragment" result
result' <- (newObject WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment) result
touchManagedPtr self
freeMem html'
return result'
) (do
freeMem html'
)
#if ENABLE_OVERLOADING
data DOMRangeCreateContextualFragmentMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeCreateContextualFragmentMethodInfo a signature where
overloadedMethod _ = dOMRangeCreateContextualFragment
#endif
foreign import ccall "webkit_dom_range_delete_contents" webkit_dom_range_delete_contents ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeDeleteContents ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeDeleteContents ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m ()
dOMRangeDeleteContents self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
propagateGError $ webkit_dom_range_delete_contents self'
touchManagedPtr self
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeDeleteContentsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeDeleteContentsMethodInfo a signature where
overloadedMethod _ = dOMRangeDeleteContents
#endif
foreign import ccall "webkit_dom_range_detach" webkit_dom_range_detach ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeDetach ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeDetach ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m ()
dOMRangeDetach self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
propagateGError $ webkit_dom_range_detach self'
touchManagedPtr self
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeDetachMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeDetachMethodInfo a signature where
overloadedMethod _ = dOMRangeDetach
#endif
foreign import ccall "webkit_dom_range_expand" webkit_dom_range_expand ::
Ptr DOMRange ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeExpand ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> T.Text
-> m ()
dOMRangeExpand self unit = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
unit' <- textToCString unit
onException (do
propagateGError $ webkit_dom_range_expand self' unit'
touchManagedPtr self
freeMem unit'
return ()
) (do
freeMem unit'
)
#if ENABLE_OVERLOADING
data DOMRangeExpandMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeExpandMethodInfo a signature where
overloadedMethod _ = dOMRangeExpand
#endif
foreign import ccall "webkit_dom_range_extract_contents" webkit_dom_range_extract_contents ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment)
{-# DEPRECATED dOMRangeExtractContents ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeExtractContents ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment
dOMRangeExtractContents self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
result <- propagateGError $ webkit_dom_range_extract_contents self'
checkUnexpectedReturnNULL "dOMRangeExtractContents" result
result' <- (newObject WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment) result
touchManagedPtr self
return result'
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeExtractContentsMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMDocumentFragment.DOMDocumentFragment), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeExtractContentsMethodInfo a signature where
overloadedMethod _ = dOMRangeExtractContents
#endif
foreign import ccall "webkit_dom_range_get_collapsed" webkit_dom_range_get_collapsed ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED dOMRangeGetCollapsed ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeGetCollapsed ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m ()
dOMRangeGetCollapsed self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
_ <- propagateGError $ webkit_dom_range_get_collapsed self'
touchManagedPtr self
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeGetCollapsedMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeGetCollapsedMethodInfo a signature where
overloadedMethod _ = dOMRangeGetCollapsed
#endif
foreign import ccall "webkit_dom_range_get_common_ancestor_container" webkit_dom_range_get_common_ancestor_container ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMRangeGetCommonAncestorContainer ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeGetCommonAncestorContainer ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMRangeGetCommonAncestorContainer self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
result <- propagateGError $ webkit_dom_range_get_common_ancestor_container self'
checkUnexpectedReturnNULL "dOMRangeGetCommonAncestorContainer" result
result' <- (newObject WebKit2WebExtension.DOMNode.DOMNode) result
touchManagedPtr self
return result'
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeGetCommonAncestorContainerMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeGetCommonAncestorContainerMethodInfo a signature where
overloadedMethod _ = dOMRangeGetCommonAncestorContainer
#endif
foreign import ccall "webkit_dom_range_get_end_container" webkit_dom_range_get_end_container ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMRangeGetEndContainer ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeGetEndContainer ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMRangeGetEndContainer self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
result <- propagateGError $ webkit_dom_range_get_end_container self'
checkUnexpectedReturnNULL "dOMRangeGetEndContainer" result
result' <- (newObject WebKit2WebExtension.DOMNode.DOMNode) result
touchManagedPtr self
return result'
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeGetEndContainerMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeGetEndContainerMethodInfo a signature where
overloadedMethod _ = dOMRangeGetEndContainer
#endif
foreign import ccall "webkit_dom_range_get_end_offset" webkit_dom_range_get_end_offset ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO CLong
{-# DEPRECATED dOMRangeGetEndOffset ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeGetEndOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m CLong
dOMRangeGetEndOffset self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
result <- propagateGError $ webkit_dom_range_get_end_offset self'
touchManagedPtr self
return result
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeGetEndOffsetMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeGetEndOffsetMethodInfo a signature where
overloadedMethod _ = dOMRangeGetEndOffset
#endif
foreign import ccall "webkit_dom_range_get_start_container" webkit_dom_range_get_start_container ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMRangeGetStartContainer ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeGetStartContainer ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMRangeGetStartContainer self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
result <- propagateGError $ webkit_dom_range_get_start_container self'
checkUnexpectedReturnNULL "dOMRangeGetStartContainer" result
result' <- (newObject WebKit2WebExtension.DOMNode.DOMNode) result
touchManagedPtr self
return result'
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeGetStartContainerMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeGetStartContainerMethodInfo a signature where
overloadedMethod _ = dOMRangeGetStartContainer
#endif
foreign import ccall "webkit_dom_range_get_start_offset" webkit_dom_range_get_start_offset ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO CLong
{-# DEPRECATED dOMRangeGetStartOffset ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeGetStartOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m CLong
dOMRangeGetStartOffset self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
result <- propagateGError $ webkit_dom_range_get_start_offset self'
touchManagedPtr self
return result
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeGetStartOffsetMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeGetStartOffsetMethodInfo a signature where
overloadedMethod _ = dOMRangeGetStartOffset
#endif
foreign import ccall "webkit_dom_range_get_text" webkit_dom_range_get_text ::
Ptr DOMRange ->
IO CString
{-# DEPRECATED dOMRangeGetText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeGetText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m T.Text
dOMRangeGetText self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_range_get_text self'
checkUnexpectedReturnNULL "dOMRangeGetText" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMRangeGetTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeGetTextMethodInfo a signature where
overloadedMethod _ = dOMRangeGetText
#endif
foreign import ccall "webkit_dom_range_insert_node" webkit_dom_range_insert_node ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeInsertNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeInsertNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeInsertNode self newNode = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
newNode' <- unsafeManagedPtrCastPtr newNode
onException (do
propagateGError $ webkit_dom_range_insert_node self' newNode'
touchManagedPtr self
touchManagedPtr newNode
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeInsertNodeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeInsertNodeMethodInfo a signature where
overloadedMethod _ = dOMRangeInsertNode
#endif
foreign import ccall "webkit_dom_range_intersects_node" webkit_dom_range_intersects_node ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED dOMRangeIntersectsNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeIntersectsNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeIntersectsNode self refNode = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
refNode' <- unsafeManagedPtrCastPtr refNode
onException (do
_ <- propagateGError $ webkit_dom_range_intersects_node self' refNode'
touchManagedPtr self
touchManagedPtr refNode
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeIntersectsNodeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeIntersectsNodeMethodInfo a signature where
overloadedMethod _ = dOMRangeIntersectsNode
#endif
foreign import ccall "webkit_dom_range_is_point_in_range" webkit_dom_range_is_point_in_range ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CLong ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED dOMRangeIsPointInRange ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeIsPointInRange ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> CLong
-> m ()
dOMRangeIsPointInRange self refNode offset = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
refNode' <- unsafeManagedPtrCastPtr refNode
onException (do
_ <- propagateGError $ webkit_dom_range_is_point_in_range self' refNode' offset
touchManagedPtr self
touchManagedPtr refNode
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeIsPointInRangeMethodInfo
instance (signature ~ (b -> CLong -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeIsPointInRangeMethodInfo a signature where
overloadedMethod _ = dOMRangeIsPointInRange
#endif
foreign import ccall "webkit_dom_range_select_node" webkit_dom_range_select_node ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSelectNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSelectNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeSelectNode self refNode = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
refNode' <- unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_select_node self' refNode'
touchManagedPtr self
touchManagedPtr refNode
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeSelectNodeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSelectNodeMethodInfo a signature where
overloadedMethod _ = dOMRangeSelectNode
#endif
foreign import ccall "webkit_dom_range_select_node_contents" webkit_dom_range_select_node_contents ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSelectNodeContents ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSelectNodeContents ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeSelectNodeContents self refNode = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
refNode' <- unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_select_node_contents self' refNode'
touchManagedPtr self
touchManagedPtr refNode
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeSelectNodeContentsMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSelectNodeContentsMethodInfo a signature where
overloadedMethod _ = dOMRangeSelectNodeContents
#endif
foreign import ccall "webkit_dom_range_set_end" webkit_dom_range_set_end ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CLong ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSetEnd ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSetEnd ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> CLong
-> m ()
dOMRangeSetEnd self refNode offset = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
refNode' <- unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_set_end self' refNode' offset
touchManagedPtr self
touchManagedPtr refNode
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeSetEndMethodInfo
instance (signature ~ (b -> CLong -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSetEndMethodInfo a signature where
overloadedMethod _ = dOMRangeSetEnd
#endif
foreign import ccall "webkit_dom_range_set_end_after" webkit_dom_range_set_end_after ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSetEndAfter ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSetEndAfter ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeSetEndAfter self refNode = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
refNode' <- unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_set_end_after self' refNode'
touchManagedPtr self
touchManagedPtr refNode
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeSetEndAfterMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSetEndAfterMethodInfo a signature where
overloadedMethod _ = dOMRangeSetEndAfter
#endif
foreign import ccall "webkit_dom_range_set_end_before" webkit_dom_range_set_end_before ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSetEndBefore ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSetEndBefore ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeSetEndBefore self refNode = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
refNode' <- unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_set_end_before self' refNode'
touchManagedPtr self
touchManagedPtr refNode
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeSetEndBeforeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSetEndBeforeMethodInfo a signature where
overloadedMethod _ = dOMRangeSetEndBefore
#endif
foreign import ccall "webkit_dom_range_set_start" webkit_dom_range_set_start ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CLong ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSetStart ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSetStart ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> CLong
-> m ()
dOMRangeSetStart self refNode offset = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
refNode' <- unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_set_start self' refNode' offset
touchManagedPtr self
touchManagedPtr refNode
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeSetStartMethodInfo
instance (signature ~ (b -> CLong -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSetStartMethodInfo a signature where
overloadedMethod _ = dOMRangeSetStart
#endif
foreign import ccall "webkit_dom_range_set_start_after" webkit_dom_range_set_start_after ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSetStartAfter ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSetStartAfter ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeSetStartAfter self refNode = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
refNode' <- unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_set_start_after self' refNode'
touchManagedPtr self
touchManagedPtr refNode
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeSetStartAfterMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSetStartAfterMethodInfo a signature where
overloadedMethod _ = dOMRangeSetStartAfter
#endif
foreign import ccall "webkit_dom_range_set_start_before" webkit_dom_range_set_start_before ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSetStartBefore ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSetStartBefore ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeSetStartBefore self refNode = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
refNode' <- unsafeManagedPtrCastPtr refNode
onException (do
propagateGError $ webkit_dom_range_set_start_before self' refNode'
touchManagedPtr self
touchManagedPtr refNode
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeSetStartBeforeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSetStartBeforeMethodInfo a signature where
overloadedMethod _ = dOMRangeSetStartBefore
#endif
foreign import ccall "webkit_dom_range_surround_contents" webkit_dom_range_surround_contents ::
Ptr DOMRange ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMRangeSurroundContents ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeSurroundContents ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMRangeSurroundContents self newParent = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
newParent' <- unsafeManagedPtrCastPtr newParent
onException (do
propagateGError $ webkit_dom_range_surround_contents self' newParent'
touchManagedPtr self
touchManagedPtr newParent
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeSurroundContentsMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMRange a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMRangeSurroundContentsMethodInfo a signature where
overloadedMethod _ = dOMRangeSurroundContents
#endif
foreign import ccall "webkit_dom_range_to_string" webkit_dom_range_to_string ::
Ptr DOMRange ->
Ptr (Ptr GError) ->
IO CString
{-# DEPRECATED dOMRangeToString ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMRangeToString ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMRange a) =>
a
-> m T.Text
dOMRangeToString self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
result <- propagateGError $ webkit_dom_range_to_string self'
checkUnexpectedReturnNULL "dOMRangeToString" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMRangeToStringMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMRange a) => O.MethodInfo DOMRangeToStringMethodInfo a signature where
overloadedMethod _ = dOMRangeToString
#endif