#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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
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 => IsDOMRange o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError DOMRange a) =>
IsDOMRange a
#endif
instance IsDOMRange DOMRange
instance WebKit2WebExtension.DOMObject.IsDOMObject DOMRange
instance GObject.Object.IsObject DOMRange
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 "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) => O.IsLabelProxy t (DOMRange -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMRangeMethod t DOMRange, O.MethodInfo info DOMRange p) => O.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
#endif
getDOMRangeCollapsed :: (MonadIO m, IsDOMRange o) => o -> m Bool
getDOMRangeCollapsed obj = liftIO $ 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 $ 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 $ 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 $ 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 $ 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 $ 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 $ 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)
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)
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 ()
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
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
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
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)
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 ()
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 ()
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 ()
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)
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
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)
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)
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
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)
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
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
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 ()
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
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
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 ()
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 ()
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 ()
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 ()
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 ()
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 ()
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 ()
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 ()
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 ()
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
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