#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2WebExtension.Objects.DOMDOMSelection
(
DOMDOMSelection(..) ,
IsDOMDOMSelection ,
toDOMDOMSelection ,
noDOMDOMSelection ,
#if ENABLE_OVERLOADING
DOMDOMSelectionAddRangeMethodInfo ,
#endif
dOMDOMSelectionAddRange ,
#if ENABLE_OVERLOADING
DOMDOMSelectionCollapseMethodInfo ,
#endif
dOMDOMSelectionCollapse ,
#if ENABLE_OVERLOADING
DOMDOMSelectionCollapseToEndMethodInfo ,
#endif
dOMDOMSelectionCollapseToEnd ,
#if ENABLE_OVERLOADING
DOMDOMSelectionCollapseToStartMethodInfo,
#endif
dOMDOMSelectionCollapseToStart ,
#if ENABLE_OVERLOADING
DOMDOMSelectionContainsNodeMethodInfo ,
#endif
dOMDOMSelectionContainsNode ,
#if ENABLE_OVERLOADING
DOMDOMSelectionDeleteFromDocumentMethodInfo,
#endif
dOMDOMSelectionDeleteFromDocument ,
#if ENABLE_OVERLOADING
DOMDOMSelectionEmptyMethodInfo ,
#endif
dOMDOMSelectionEmpty ,
#if ENABLE_OVERLOADING
DOMDOMSelectionExtendMethodInfo ,
#endif
dOMDOMSelectionExtend ,
#if ENABLE_OVERLOADING
DOMDOMSelectionGetAnchorNodeMethodInfo ,
#endif
dOMDOMSelectionGetAnchorNode ,
#if ENABLE_OVERLOADING
DOMDOMSelectionGetAnchorOffsetMethodInfo,
#endif
dOMDOMSelectionGetAnchorOffset ,
#if ENABLE_OVERLOADING
DOMDOMSelectionGetBaseNodeMethodInfo ,
#endif
dOMDOMSelectionGetBaseNode ,
#if ENABLE_OVERLOADING
DOMDOMSelectionGetBaseOffsetMethodInfo ,
#endif
dOMDOMSelectionGetBaseOffset ,
#if ENABLE_OVERLOADING
DOMDOMSelectionGetExtentNodeMethodInfo ,
#endif
dOMDOMSelectionGetExtentNode ,
#if ENABLE_OVERLOADING
DOMDOMSelectionGetExtentOffsetMethodInfo,
#endif
dOMDOMSelectionGetExtentOffset ,
#if ENABLE_OVERLOADING
DOMDOMSelectionGetFocusNodeMethodInfo ,
#endif
dOMDOMSelectionGetFocusNode ,
#if ENABLE_OVERLOADING
DOMDOMSelectionGetFocusOffsetMethodInfo ,
#endif
dOMDOMSelectionGetFocusOffset ,
#if ENABLE_OVERLOADING
DOMDOMSelectionGetIsCollapsedMethodInfo ,
#endif
dOMDOMSelectionGetIsCollapsed ,
#if ENABLE_OVERLOADING
DOMDOMSelectionGetRangeAtMethodInfo ,
#endif
dOMDOMSelectionGetRangeAt ,
#if ENABLE_OVERLOADING
DOMDOMSelectionGetRangeCountMethodInfo ,
#endif
dOMDOMSelectionGetRangeCount ,
#if ENABLE_OVERLOADING
DOMDOMSelectionGetSelectionTypeMethodInfo,
#endif
dOMDOMSelectionGetSelectionType ,
#if ENABLE_OVERLOADING
DOMDOMSelectionModifyMethodInfo ,
#endif
dOMDOMSelectionModify ,
#if ENABLE_OVERLOADING
DOMDOMSelectionRemoveAllRangesMethodInfo,
#endif
dOMDOMSelectionRemoveAllRanges ,
#if ENABLE_OVERLOADING
DOMDOMSelectionSelectAllChildrenMethodInfo,
#endif
dOMDOMSelectionSelectAllChildren ,
#if ENABLE_OVERLOADING
DOMDOMSelectionSetBaseAndExtentMethodInfo,
#endif
dOMDOMSelectionSetBaseAndExtent ,
#if ENABLE_OVERLOADING
DOMDOMSelectionSetPositionMethodInfo ,
#endif
dOMDOMSelectionSetPosition ,
#if ENABLE_OVERLOADING
DOMDOMSelectionAnchorNodePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMDOMSelectionAnchorNode ,
#endif
getDOMDOMSelectionAnchorNode ,
#if ENABLE_OVERLOADING
DOMDOMSelectionAnchorOffsetPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMDOMSelectionAnchorOffset ,
#endif
getDOMDOMSelectionAnchorOffset ,
#if ENABLE_OVERLOADING
DOMDOMSelectionBaseNodePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMDOMSelectionBaseNode ,
#endif
getDOMDOMSelectionBaseNode ,
#if ENABLE_OVERLOADING
DOMDOMSelectionBaseOffsetPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMDOMSelectionBaseOffset ,
#endif
getDOMDOMSelectionBaseOffset ,
#if ENABLE_OVERLOADING
DOMDOMSelectionExtentNodePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMDOMSelectionExtentNode ,
#endif
getDOMDOMSelectionExtentNode ,
#if ENABLE_OVERLOADING
DOMDOMSelectionExtentOffsetPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMDOMSelectionExtentOffset ,
#endif
getDOMDOMSelectionExtentOffset ,
#if ENABLE_OVERLOADING
DOMDOMSelectionFocusNodePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMDOMSelectionFocusNode ,
#endif
getDOMDOMSelectionFocusNode ,
#if ENABLE_OVERLOADING
DOMDOMSelectionFocusOffsetPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMDOMSelectionFocusOffset ,
#endif
getDOMDOMSelectionFocusOffset ,
#if ENABLE_OVERLOADING
DOMDOMSelectionIsCollapsedPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMDOMSelectionIsCollapsed ,
#endif
getDOMDOMSelectionIsCollapsed ,
#if ENABLE_OVERLOADING
DOMDOMSelectionRangeCountPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMDOMSelectionRangeCount ,
#endif
getDOMDOMSelectionRangeCount ,
#if ENABLE_OVERLOADING
DOMDOMSelectionTypePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMDOMSelectionType ,
#endif
getDOMDOMSelectionType ,
) 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.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMRange as WebKit2WebExtension.DOMRange
newtype DOMDOMSelection = DOMDOMSelection (ManagedPtr DOMDOMSelection)
foreign import ccall "webkit_dom_dom_selection_get_type"
c_webkit_dom_dom_selection_get_type :: IO GType
instance GObject DOMDOMSelection where
gobjectType = c_webkit_dom_dom_selection_get_type
class (GObject o, O.IsDescendantOf DOMDOMSelection o) => IsDOMDOMSelection o
instance (GObject o, O.IsDescendantOf DOMDOMSelection o) => IsDOMDOMSelection o
instance O.HasParentTypes DOMDOMSelection
type instance O.ParentTypes DOMDOMSelection = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMDOMSelection :: (MonadIO m, IsDOMDOMSelection o) => o -> m DOMDOMSelection
toDOMDOMSelection = liftIO . unsafeCastTo DOMDOMSelection
noDOMDOMSelection :: Maybe DOMDOMSelection
noDOMDOMSelection = Nothing
#if ENABLE_OVERLOADING
type family ResolveDOMDOMSelectionMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMDOMSelectionMethod "addRange" o = DOMDOMSelectionAddRangeMethodInfo
ResolveDOMDOMSelectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMDOMSelectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMDOMSelectionMethod "collapse" o = DOMDOMSelectionCollapseMethodInfo
ResolveDOMDOMSelectionMethod "collapseToEnd" o = DOMDOMSelectionCollapseToEndMethodInfo
ResolveDOMDOMSelectionMethod "collapseToStart" o = DOMDOMSelectionCollapseToStartMethodInfo
ResolveDOMDOMSelectionMethod "containsNode" o = DOMDOMSelectionContainsNodeMethodInfo
ResolveDOMDOMSelectionMethod "deleteFromDocument" o = DOMDOMSelectionDeleteFromDocumentMethodInfo
ResolveDOMDOMSelectionMethod "empty" o = DOMDOMSelectionEmptyMethodInfo
ResolveDOMDOMSelectionMethod "extend" o = DOMDOMSelectionExtendMethodInfo
ResolveDOMDOMSelectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMDOMSelectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMDOMSelectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMDOMSelectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMDOMSelectionMethod "modify" o = DOMDOMSelectionModifyMethodInfo
ResolveDOMDOMSelectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMDOMSelectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMDOMSelectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMDOMSelectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMDOMSelectionMethod "removeAllRanges" o = DOMDOMSelectionRemoveAllRangesMethodInfo
ResolveDOMDOMSelectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMDOMSelectionMethod "selectAllChildren" o = DOMDOMSelectionSelectAllChildrenMethodInfo
ResolveDOMDOMSelectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMDOMSelectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMDOMSelectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMDOMSelectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMDOMSelectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMDOMSelectionMethod "getAnchorNode" o = DOMDOMSelectionGetAnchorNodeMethodInfo
ResolveDOMDOMSelectionMethod "getAnchorOffset" o = DOMDOMSelectionGetAnchorOffsetMethodInfo
ResolveDOMDOMSelectionMethod "getBaseNode" o = DOMDOMSelectionGetBaseNodeMethodInfo
ResolveDOMDOMSelectionMethod "getBaseOffset" o = DOMDOMSelectionGetBaseOffsetMethodInfo
ResolveDOMDOMSelectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMDOMSelectionMethod "getExtentNode" o = DOMDOMSelectionGetExtentNodeMethodInfo
ResolveDOMDOMSelectionMethod "getExtentOffset" o = DOMDOMSelectionGetExtentOffsetMethodInfo
ResolveDOMDOMSelectionMethod "getFocusNode" o = DOMDOMSelectionGetFocusNodeMethodInfo
ResolveDOMDOMSelectionMethod "getFocusOffset" o = DOMDOMSelectionGetFocusOffsetMethodInfo
ResolveDOMDOMSelectionMethod "getIsCollapsed" o = DOMDOMSelectionGetIsCollapsedMethodInfo
ResolveDOMDOMSelectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMDOMSelectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMDOMSelectionMethod "getRangeAt" o = DOMDOMSelectionGetRangeAtMethodInfo
ResolveDOMDOMSelectionMethod "getRangeCount" o = DOMDOMSelectionGetRangeCountMethodInfo
ResolveDOMDOMSelectionMethod "getSelectionType" o = DOMDOMSelectionGetSelectionTypeMethodInfo
ResolveDOMDOMSelectionMethod "setBaseAndExtent" o = DOMDOMSelectionSetBaseAndExtentMethodInfo
ResolveDOMDOMSelectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMDOMSelectionMethod "setPosition" o = DOMDOMSelectionSetPositionMethodInfo
ResolveDOMDOMSelectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMDOMSelectionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMDOMSelectionMethod t DOMDOMSelection, O.MethodInfo info DOMDOMSelection p) => OL.IsLabel t (DOMDOMSelection -> 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
getDOMDOMSelectionAnchorNode :: (MonadIO m, IsDOMDOMSelection o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMDOMSelectionAnchorNode obj = liftIO $ checkUnexpectedNothing "getDOMDOMSelectionAnchorNode" $ B.Properties.getObjectPropertyObject obj "anchor-node" WebKit2WebExtension.DOMNode.DOMNode
#if ENABLE_OVERLOADING
data DOMDOMSelectionAnchorNodePropertyInfo
instance AttrInfo DOMDOMSelectionAnchorNodePropertyInfo where
type AttrAllowedOps DOMDOMSelectionAnchorNodePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMDOMSelectionAnchorNodePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMSelectionAnchorNodePropertyInfo = IsDOMDOMSelection
type AttrGetType DOMDOMSelectionAnchorNodePropertyInfo = WebKit2WebExtension.DOMNode.DOMNode
type AttrLabel DOMDOMSelectionAnchorNodePropertyInfo = "anchor-node"
type AttrOrigin DOMDOMSelectionAnchorNodePropertyInfo = DOMDOMSelection
attrGet _ = getDOMDOMSelectionAnchorNode
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMDOMSelectionAnchorOffset :: (MonadIO m, IsDOMDOMSelection o) => o -> m CULong
getDOMDOMSelectionAnchorOffset obj = liftIO $ B.Properties.getObjectPropertyULong obj "anchor-offset"
#if ENABLE_OVERLOADING
data DOMDOMSelectionAnchorOffsetPropertyInfo
instance AttrInfo DOMDOMSelectionAnchorOffsetPropertyInfo where
type AttrAllowedOps DOMDOMSelectionAnchorOffsetPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDOMSelectionAnchorOffsetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMSelectionAnchorOffsetPropertyInfo = IsDOMDOMSelection
type AttrGetType DOMDOMSelectionAnchorOffsetPropertyInfo = CULong
type AttrLabel DOMDOMSelectionAnchorOffsetPropertyInfo = "anchor-offset"
type AttrOrigin DOMDOMSelectionAnchorOffsetPropertyInfo = DOMDOMSelection
attrGet _ = getDOMDOMSelectionAnchorOffset
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMDOMSelectionBaseNode :: (MonadIO m, IsDOMDOMSelection o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMDOMSelectionBaseNode obj = liftIO $ checkUnexpectedNothing "getDOMDOMSelectionBaseNode" $ B.Properties.getObjectPropertyObject obj "base-node" WebKit2WebExtension.DOMNode.DOMNode
#if ENABLE_OVERLOADING
data DOMDOMSelectionBaseNodePropertyInfo
instance AttrInfo DOMDOMSelectionBaseNodePropertyInfo where
type AttrAllowedOps DOMDOMSelectionBaseNodePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMDOMSelectionBaseNodePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMSelectionBaseNodePropertyInfo = IsDOMDOMSelection
type AttrGetType DOMDOMSelectionBaseNodePropertyInfo = WebKit2WebExtension.DOMNode.DOMNode
type AttrLabel DOMDOMSelectionBaseNodePropertyInfo = "base-node"
type AttrOrigin DOMDOMSelectionBaseNodePropertyInfo = DOMDOMSelection
attrGet _ = getDOMDOMSelectionBaseNode
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMDOMSelectionBaseOffset :: (MonadIO m, IsDOMDOMSelection o) => o -> m CULong
getDOMDOMSelectionBaseOffset obj = liftIO $ B.Properties.getObjectPropertyULong obj "base-offset"
#if ENABLE_OVERLOADING
data DOMDOMSelectionBaseOffsetPropertyInfo
instance AttrInfo DOMDOMSelectionBaseOffsetPropertyInfo where
type AttrAllowedOps DOMDOMSelectionBaseOffsetPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDOMSelectionBaseOffsetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMSelectionBaseOffsetPropertyInfo = IsDOMDOMSelection
type AttrGetType DOMDOMSelectionBaseOffsetPropertyInfo = CULong
type AttrLabel DOMDOMSelectionBaseOffsetPropertyInfo = "base-offset"
type AttrOrigin DOMDOMSelectionBaseOffsetPropertyInfo = DOMDOMSelection
attrGet _ = getDOMDOMSelectionBaseOffset
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMDOMSelectionExtentNode :: (MonadIO m, IsDOMDOMSelection o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMDOMSelectionExtentNode obj = liftIO $ checkUnexpectedNothing "getDOMDOMSelectionExtentNode" $ B.Properties.getObjectPropertyObject obj "extent-node" WebKit2WebExtension.DOMNode.DOMNode
#if ENABLE_OVERLOADING
data DOMDOMSelectionExtentNodePropertyInfo
instance AttrInfo DOMDOMSelectionExtentNodePropertyInfo where
type AttrAllowedOps DOMDOMSelectionExtentNodePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMDOMSelectionExtentNodePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMSelectionExtentNodePropertyInfo = IsDOMDOMSelection
type AttrGetType DOMDOMSelectionExtentNodePropertyInfo = WebKit2WebExtension.DOMNode.DOMNode
type AttrLabel DOMDOMSelectionExtentNodePropertyInfo = "extent-node"
type AttrOrigin DOMDOMSelectionExtentNodePropertyInfo = DOMDOMSelection
attrGet _ = getDOMDOMSelectionExtentNode
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMDOMSelectionExtentOffset :: (MonadIO m, IsDOMDOMSelection o) => o -> m CULong
getDOMDOMSelectionExtentOffset obj = liftIO $ B.Properties.getObjectPropertyULong obj "extent-offset"
#if ENABLE_OVERLOADING
data DOMDOMSelectionExtentOffsetPropertyInfo
instance AttrInfo DOMDOMSelectionExtentOffsetPropertyInfo where
type AttrAllowedOps DOMDOMSelectionExtentOffsetPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDOMSelectionExtentOffsetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMSelectionExtentOffsetPropertyInfo = IsDOMDOMSelection
type AttrGetType DOMDOMSelectionExtentOffsetPropertyInfo = CULong
type AttrLabel DOMDOMSelectionExtentOffsetPropertyInfo = "extent-offset"
type AttrOrigin DOMDOMSelectionExtentOffsetPropertyInfo = DOMDOMSelection
attrGet _ = getDOMDOMSelectionExtentOffset
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMDOMSelectionFocusNode :: (MonadIO m, IsDOMDOMSelection o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMDOMSelectionFocusNode obj = liftIO $ checkUnexpectedNothing "getDOMDOMSelectionFocusNode" $ B.Properties.getObjectPropertyObject obj "focus-node" WebKit2WebExtension.DOMNode.DOMNode
#if ENABLE_OVERLOADING
data DOMDOMSelectionFocusNodePropertyInfo
instance AttrInfo DOMDOMSelectionFocusNodePropertyInfo where
type AttrAllowedOps DOMDOMSelectionFocusNodePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMDOMSelectionFocusNodePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMSelectionFocusNodePropertyInfo = IsDOMDOMSelection
type AttrGetType DOMDOMSelectionFocusNodePropertyInfo = WebKit2WebExtension.DOMNode.DOMNode
type AttrLabel DOMDOMSelectionFocusNodePropertyInfo = "focus-node"
type AttrOrigin DOMDOMSelectionFocusNodePropertyInfo = DOMDOMSelection
attrGet _ = getDOMDOMSelectionFocusNode
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMDOMSelectionFocusOffset :: (MonadIO m, IsDOMDOMSelection o) => o -> m CULong
getDOMDOMSelectionFocusOffset obj = liftIO $ B.Properties.getObjectPropertyULong obj "focus-offset"
#if ENABLE_OVERLOADING
data DOMDOMSelectionFocusOffsetPropertyInfo
instance AttrInfo DOMDOMSelectionFocusOffsetPropertyInfo where
type AttrAllowedOps DOMDOMSelectionFocusOffsetPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDOMSelectionFocusOffsetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMSelectionFocusOffsetPropertyInfo = IsDOMDOMSelection
type AttrGetType DOMDOMSelectionFocusOffsetPropertyInfo = CULong
type AttrLabel DOMDOMSelectionFocusOffsetPropertyInfo = "focus-offset"
type AttrOrigin DOMDOMSelectionFocusOffsetPropertyInfo = DOMDOMSelection
attrGet _ = getDOMDOMSelectionFocusOffset
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMDOMSelectionIsCollapsed :: (MonadIO m, IsDOMDOMSelection o) => o -> m Bool
getDOMDOMSelectionIsCollapsed obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-collapsed"
#if ENABLE_OVERLOADING
data DOMDOMSelectionIsCollapsedPropertyInfo
instance AttrInfo DOMDOMSelectionIsCollapsedPropertyInfo where
type AttrAllowedOps DOMDOMSelectionIsCollapsedPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDOMSelectionIsCollapsedPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMSelectionIsCollapsedPropertyInfo = IsDOMDOMSelection
type AttrGetType DOMDOMSelectionIsCollapsedPropertyInfo = Bool
type AttrLabel DOMDOMSelectionIsCollapsedPropertyInfo = "is-collapsed"
type AttrOrigin DOMDOMSelectionIsCollapsedPropertyInfo = DOMDOMSelection
attrGet _ = getDOMDOMSelectionIsCollapsed
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMDOMSelectionRangeCount :: (MonadIO m, IsDOMDOMSelection o) => o -> m CULong
getDOMDOMSelectionRangeCount obj = liftIO $ B.Properties.getObjectPropertyULong obj "range-count"
#if ENABLE_OVERLOADING
data DOMDOMSelectionRangeCountPropertyInfo
instance AttrInfo DOMDOMSelectionRangeCountPropertyInfo where
type AttrAllowedOps DOMDOMSelectionRangeCountPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDOMSelectionRangeCountPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMSelectionRangeCountPropertyInfo = IsDOMDOMSelection
type AttrGetType DOMDOMSelectionRangeCountPropertyInfo = CULong
type AttrLabel DOMDOMSelectionRangeCountPropertyInfo = "range-count"
type AttrOrigin DOMDOMSelectionRangeCountPropertyInfo = DOMDOMSelection
attrGet _ = getDOMDOMSelectionRangeCount
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMDOMSelectionType :: (MonadIO m, IsDOMDOMSelection o) => o -> m (Maybe T.Text)
getDOMDOMSelectionType obj = liftIO $ B.Properties.getObjectPropertyString obj "type"
#if ENABLE_OVERLOADING
data DOMDOMSelectionTypePropertyInfo
instance AttrInfo DOMDOMSelectionTypePropertyInfo where
type AttrAllowedOps DOMDOMSelectionTypePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMDOMSelectionTypePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMSelectionTypePropertyInfo = IsDOMDOMSelection
type AttrGetType DOMDOMSelectionTypePropertyInfo = (Maybe T.Text)
type AttrLabel DOMDOMSelectionTypePropertyInfo = "type"
type AttrOrigin DOMDOMSelectionTypePropertyInfo = DOMDOMSelection
attrGet _ = getDOMDOMSelectionType
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList DOMDOMSelection
type instance O.AttributeList DOMDOMSelection = DOMDOMSelectionAttributeList
type DOMDOMSelectionAttributeList = ('[ '("anchorNode", DOMDOMSelectionAnchorNodePropertyInfo), '("anchorOffset", DOMDOMSelectionAnchorOffsetPropertyInfo), '("baseNode", DOMDOMSelectionBaseNodePropertyInfo), '("baseOffset", DOMDOMSelectionBaseOffsetPropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("extentNode", DOMDOMSelectionExtentNodePropertyInfo), '("extentOffset", DOMDOMSelectionExtentOffsetPropertyInfo), '("focusNode", DOMDOMSelectionFocusNodePropertyInfo), '("focusOffset", DOMDOMSelectionFocusOffsetPropertyInfo), '("isCollapsed", DOMDOMSelectionIsCollapsedPropertyInfo), '("rangeCount", DOMDOMSelectionRangeCountPropertyInfo), '("type", DOMDOMSelectionTypePropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
dOMDOMSelectionAnchorNode :: AttrLabelProxy "anchorNode"
dOMDOMSelectionAnchorNode = AttrLabelProxy
dOMDOMSelectionAnchorOffset :: AttrLabelProxy "anchorOffset"
dOMDOMSelectionAnchorOffset = AttrLabelProxy
dOMDOMSelectionBaseNode :: AttrLabelProxy "baseNode"
dOMDOMSelectionBaseNode = AttrLabelProxy
dOMDOMSelectionBaseOffset :: AttrLabelProxy "baseOffset"
dOMDOMSelectionBaseOffset = AttrLabelProxy
dOMDOMSelectionExtentNode :: AttrLabelProxy "extentNode"
dOMDOMSelectionExtentNode = AttrLabelProxy
dOMDOMSelectionExtentOffset :: AttrLabelProxy "extentOffset"
dOMDOMSelectionExtentOffset = AttrLabelProxy
dOMDOMSelectionFocusNode :: AttrLabelProxy "focusNode"
dOMDOMSelectionFocusNode = AttrLabelProxy
dOMDOMSelectionFocusOffset :: AttrLabelProxy "focusOffset"
dOMDOMSelectionFocusOffset = AttrLabelProxy
dOMDOMSelectionIsCollapsed :: AttrLabelProxy "isCollapsed"
dOMDOMSelectionIsCollapsed = AttrLabelProxy
dOMDOMSelectionRangeCount :: AttrLabelProxy "rangeCount"
dOMDOMSelectionRangeCount = AttrLabelProxy
dOMDOMSelectionType :: AttrLabelProxy "type"
dOMDOMSelectionType = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList DOMDOMSelection = DOMDOMSelectionSignalList
type DOMDOMSelectionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_dom_selection_add_range" webkit_dom_dom_selection_add_range ::
Ptr DOMDOMSelection ->
Ptr WebKit2WebExtension.DOMRange.DOMRange ->
IO ()
{-# DEPRECATED dOMDOMSelectionAddRange ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionAddRange ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a, WebKit2WebExtension.DOMRange.IsDOMRange b) =>
a
-> b
-> m ()
dOMDOMSelectionAddRange self range = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
range' <- unsafeManagedPtrCastPtr range
webkit_dom_dom_selection_add_range self' range'
touchManagedPtr self
touchManagedPtr range
return ()
#if ENABLE_OVERLOADING
data DOMDOMSelectionAddRangeMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMDOMSelection a, WebKit2WebExtension.DOMRange.IsDOMRange b) => O.MethodInfo DOMDOMSelectionAddRangeMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionAddRange
#endif
foreign import ccall "webkit_dom_dom_selection_collapse" webkit_dom_dom_selection_collapse ::
Ptr DOMDOMSelection ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CULong ->
IO ()
{-# DEPRECATED dOMDOMSelectionCollapse ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionCollapse ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> CULong
-> m ()
dOMDOMSelectionCollapse self node offset = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
node' <- unsafeManagedPtrCastPtr node
webkit_dom_dom_selection_collapse self' node' offset
touchManagedPtr self
touchManagedPtr node
return ()
#if ENABLE_OVERLOADING
data DOMDOMSelectionCollapseMethodInfo
instance (signature ~ (b -> CULong -> m ()), MonadIO m, IsDOMDOMSelection a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMDOMSelectionCollapseMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionCollapse
#endif
foreign import ccall "webkit_dom_dom_selection_collapse_to_end" webkit_dom_dom_selection_collapse_to_end ::
Ptr DOMDOMSelection ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMDOMSelectionCollapseToEnd ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionCollapseToEnd ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m ()
dOMDOMSelectionCollapseToEnd self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
propagateGError $ webkit_dom_dom_selection_collapse_to_end self'
touchManagedPtr self
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMDOMSelectionCollapseToEndMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionCollapseToEndMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionCollapseToEnd
#endif
foreign import ccall "webkit_dom_dom_selection_collapse_to_start" webkit_dom_dom_selection_collapse_to_start ::
Ptr DOMDOMSelection ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMDOMSelectionCollapseToStart ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionCollapseToStart ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m ()
dOMDOMSelectionCollapseToStart self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
propagateGError $ webkit_dom_dom_selection_collapse_to_start self'
touchManagedPtr self
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMDOMSelectionCollapseToStartMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionCollapseToStartMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionCollapseToStart
#endif
foreign import ccall "webkit_dom_dom_selection_contains_node" webkit_dom_dom_selection_contains_node ::
Ptr DOMDOMSelection ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CInt ->
IO CInt
{-# DEPRECATED dOMDOMSelectionContainsNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionContainsNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> Bool
-> m Bool
dOMDOMSelectionContainsNode self node allowPartial = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
node' <- unsafeManagedPtrCastPtr node
let allowPartial' = (fromIntegral . fromEnum) allowPartial
result <- webkit_dom_dom_selection_contains_node self' node' allowPartial'
let result' = (/= 0) result
touchManagedPtr self
touchManagedPtr node
return result'
#if ENABLE_OVERLOADING
data DOMDOMSelectionContainsNodeMethodInfo
instance (signature ~ (b -> Bool -> m Bool), MonadIO m, IsDOMDOMSelection a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMDOMSelectionContainsNodeMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionContainsNode
#endif
foreign import ccall "webkit_dom_dom_selection_delete_from_document" webkit_dom_dom_selection_delete_from_document ::
Ptr DOMDOMSelection ->
IO ()
{-# DEPRECATED dOMDOMSelectionDeleteFromDocument ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionDeleteFromDocument ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m ()
dOMDOMSelectionDeleteFromDocument self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
webkit_dom_dom_selection_delete_from_document self'
touchManagedPtr self
return ()
#if ENABLE_OVERLOADING
data DOMDOMSelectionDeleteFromDocumentMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionDeleteFromDocumentMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionDeleteFromDocument
#endif
foreign import ccall "webkit_dom_dom_selection_empty" webkit_dom_dom_selection_empty ::
Ptr DOMDOMSelection ->
IO ()
{-# DEPRECATED dOMDOMSelectionEmpty ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionEmpty ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m ()
dOMDOMSelectionEmpty self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
webkit_dom_dom_selection_empty self'
touchManagedPtr self
return ()
#if ENABLE_OVERLOADING
data DOMDOMSelectionEmptyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionEmptyMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionEmpty
#endif
foreign import ccall "webkit_dom_dom_selection_extend" webkit_dom_dom_selection_extend ::
Ptr DOMDOMSelection ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CULong ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMDOMSelectionExtend ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionExtend ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> CULong
-> m ()
dOMDOMSelectionExtend self node offset = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
node' <- unsafeManagedPtrCastPtr node
onException (do
propagateGError $ webkit_dom_dom_selection_extend self' node' offset
touchManagedPtr self
touchManagedPtr node
return ()
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMDOMSelectionExtendMethodInfo
instance (signature ~ (b -> CULong -> m ()), MonadIO m, IsDOMDOMSelection a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMDOMSelectionExtendMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionExtend
#endif
foreign import ccall "webkit_dom_dom_selection_get_anchor_node" webkit_dom_dom_selection_get_anchor_node ::
Ptr DOMDOMSelection ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMDOMSelectionGetAnchorNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionGetAnchorNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMDOMSelectionGetAnchorNode self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_selection_get_anchor_node self'
checkUnexpectedReturnNULL "dOMDOMSelectionGetAnchorNode" result
result' <- (newObject WebKit2WebExtension.DOMNode.DOMNode) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMDOMSelectionGetAnchorNodeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionGetAnchorNodeMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionGetAnchorNode
#endif
foreign import ccall "webkit_dom_dom_selection_get_anchor_offset" webkit_dom_dom_selection_get_anchor_offset ::
Ptr DOMDOMSelection ->
IO CULong
{-# DEPRECATED dOMDOMSelectionGetAnchorOffset ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionGetAnchorOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m CULong
dOMDOMSelectionGetAnchorOffset self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_selection_get_anchor_offset self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMDOMSelectionGetAnchorOffsetMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionGetAnchorOffsetMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionGetAnchorOffset
#endif
foreign import ccall "webkit_dom_dom_selection_get_base_node" webkit_dom_dom_selection_get_base_node ::
Ptr DOMDOMSelection ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMDOMSelectionGetBaseNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionGetBaseNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMDOMSelectionGetBaseNode self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_selection_get_base_node self'
checkUnexpectedReturnNULL "dOMDOMSelectionGetBaseNode" result
result' <- (newObject WebKit2WebExtension.DOMNode.DOMNode) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMDOMSelectionGetBaseNodeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionGetBaseNodeMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionGetBaseNode
#endif
foreign import ccall "webkit_dom_dom_selection_get_base_offset" webkit_dom_dom_selection_get_base_offset ::
Ptr DOMDOMSelection ->
IO CULong
{-# DEPRECATED dOMDOMSelectionGetBaseOffset ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionGetBaseOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m CULong
dOMDOMSelectionGetBaseOffset self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_selection_get_base_offset self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMDOMSelectionGetBaseOffsetMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionGetBaseOffsetMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionGetBaseOffset
#endif
foreign import ccall "webkit_dom_dom_selection_get_extent_node" webkit_dom_dom_selection_get_extent_node ::
Ptr DOMDOMSelection ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMDOMSelectionGetExtentNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionGetExtentNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMDOMSelectionGetExtentNode self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_selection_get_extent_node self'
checkUnexpectedReturnNULL "dOMDOMSelectionGetExtentNode" result
result' <- (newObject WebKit2WebExtension.DOMNode.DOMNode) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMDOMSelectionGetExtentNodeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionGetExtentNodeMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionGetExtentNode
#endif
foreign import ccall "webkit_dom_dom_selection_get_extent_offset" webkit_dom_dom_selection_get_extent_offset ::
Ptr DOMDOMSelection ->
IO CULong
{-# DEPRECATED dOMDOMSelectionGetExtentOffset ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionGetExtentOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m CULong
dOMDOMSelectionGetExtentOffset self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_selection_get_extent_offset self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMDOMSelectionGetExtentOffsetMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionGetExtentOffsetMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionGetExtentOffset
#endif
foreign import ccall "webkit_dom_dom_selection_get_focus_node" webkit_dom_dom_selection_get_focus_node ::
Ptr DOMDOMSelection ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMDOMSelectionGetFocusNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionGetFocusNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMDOMSelectionGetFocusNode self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_selection_get_focus_node self'
checkUnexpectedReturnNULL "dOMDOMSelectionGetFocusNode" result
result' <- (newObject WebKit2WebExtension.DOMNode.DOMNode) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMDOMSelectionGetFocusNodeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionGetFocusNodeMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionGetFocusNode
#endif
foreign import ccall "webkit_dom_dom_selection_get_focus_offset" webkit_dom_dom_selection_get_focus_offset ::
Ptr DOMDOMSelection ->
IO CULong
{-# DEPRECATED dOMDOMSelectionGetFocusOffset ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionGetFocusOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m CULong
dOMDOMSelectionGetFocusOffset self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_selection_get_focus_offset self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMDOMSelectionGetFocusOffsetMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionGetFocusOffsetMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionGetFocusOffset
#endif
foreign import ccall "webkit_dom_dom_selection_get_is_collapsed" webkit_dom_dom_selection_get_is_collapsed ::
Ptr DOMDOMSelection ->
IO CInt
{-# DEPRECATED dOMDOMSelectionGetIsCollapsed ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionGetIsCollapsed ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m Bool
dOMDOMSelectionGetIsCollapsed self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_selection_get_is_collapsed self'
let result' = (/= 0) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMDOMSelectionGetIsCollapsedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionGetIsCollapsedMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionGetIsCollapsed
#endif
foreign import ccall "webkit_dom_dom_selection_get_range_at" webkit_dom_dom_selection_get_range_at ::
Ptr DOMDOMSelection ->
CULong ->
Ptr (Ptr GError) ->
IO (Ptr WebKit2WebExtension.DOMRange.DOMRange)
{-# DEPRECATED dOMDOMSelectionGetRangeAt ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionGetRangeAt ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> CULong
-> m WebKit2WebExtension.DOMRange.DOMRange
dOMDOMSelectionGetRangeAt self index = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
result <- propagateGError $ webkit_dom_dom_selection_get_range_at self' index
checkUnexpectedReturnNULL "dOMDOMSelectionGetRangeAt" result
result' <- (wrapObject WebKit2WebExtension.DOMRange.DOMRange) result
touchManagedPtr self
return result'
) (do
return ()
)
#if ENABLE_OVERLOADING
data DOMDOMSelectionGetRangeAtMethodInfo
instance (signature ~ (CULong -> m WebKit2WebExtension.DOMRange.DOMRange), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionGetRangeAtMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionGetRangeAt
#endif
foreign import ccall "webkit_dom_dom_selection_get_range_count" webkit_dom_dom_selection_get_range_count ::
Ptr DOMDOMSelection ->
IO CULong
{-# DEPRECATED dOMDOMSelectionGetRangeCount ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionGetRangeCount ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m CULong
dOMDOMSelectionGetRangeCount self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_selection_get_range_count self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMDOMSelectionGetRangeCountMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionGetRangeCountMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionGetRangeCount
#endif
foreign import ccall "webkit_dom_dom_selection_get_selection_type" webkit_dom_dom_selection_get_selection_type ::
Ptr DOMDOMSelection ->
IO CString
{-# DEPRECATED dOMDOMSelectionGetSelectionType ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionGetSelectionType ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m T.Text
dOMDOMSelectionGetSelectionType self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_selection_get_selection_type self'
checkUnexpectedReturnNULL "dOMDOMSelectionGetSelectionType" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMDOMSelectionGetSelectionTypeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionGetSelectionTypeMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionGetSelectionType
#endif
foreign import ccall "webkit_dom_dom_selection_modify" webkit_dom_dom_selection_modify ::
Ptr DOMDOMSelection ->
CString ->
CString ->
CString ->
IO ()
{-# DEPRECATED dOMDOMSelectionModify ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionModify ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> T.Text
-> T.Text
-> T.Text
-> m ()
dOMDOMSelectionModify self alter direction granularity = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
alter' <- textToCString alter
direction' <- textToCString direction
granularity' <- textToCString granularity
webkit_dom_dom_selection_modify self' alter' direction' granularity'
touchManagedPtr self
freeMem alter'
freeMem direction'
freeMem granularity'
return ()
#if ENABLE_OVERLOADING
data DOMDOMSelectionModifyMethodInfo
instance (signature ~ (T.Text -> T.Text -> T.Text -> m ()), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionModifyMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionModify
#endif
foreign import ccall "webkit_dom_dom_selection_remove_all_ranges" webkit_dom_dom_selection_remove_all_ranges ::
Ptr DOMDOMSelection ->
IO ()
{-# DEPRECATED dOMDOMSelectionRemoveAllRanges ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionRemoveAllRanges ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a) =>
a
-> m ()
dOMDOMSelectionRemoveAllRanges self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
webkit_dom_dom_selection_remove_all_ranges self'
touchManagedPtr self
return ()
#if ENABLE_OVERLOADING
data DOMDOMSelectionRemoveAllRangesMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMDOMSelection a) => O.MethodInfo DOMDOMSelectionRemoveAllRangesMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionRemoveAllRanges
#endif
foreign import ccall "webkit_dom_dom_selection_select_all_children" webkit_dom_dom_selection_select_all_children ::
Ptr DOMDOMSelection ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
IO ()
{-# DEPRECATED dOMDOMSelectionSelectAllChildren ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionSelectAllChildren ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> m ()
dOMDOMSelectionSelectAllChildren self node = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
node' <- unsafeManagedPtrCastPtr node
webkit_dom_dom_selection_select_all_children self' node'
touchManagedPtr self
touchManagedPtr node
return ()
#if ENABLE_OVERLOADING
data DOMDOMSelectionSelectAllChildrenMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDOMDOMSelection a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMDOMSelectionSelectAllChildrenMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionSelectAllChildren
#endif
foreign import ccall "webkit_dom_dom_selection_set_base_and_extent" webkit_dom_dom_selection_set_base_and_extent ::
Ptr DOMDOMSelection ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CULong ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CULong ->
IO ()
{-# DEPRECATED dOMDOMSelectionSetBaseAndExtent ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionSetBaseAndExtent ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a, WebKit2WebExtension.DOMNode.IsDOMNode b, WebKit2WebExtension.DOMNode.IsDOMNode c) =>
a
-> b
-> CULong
-> c
-> CULong
-> m ()
dOMDOMSelectionSetBaseAndExtent self baseNode baseOffset extentNode extentOffset = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
baseNode' <- unsafeManagedPtrCastPtr baseNode
extentNode' <- unsafeManagedPtrCastPtr extentNode
webkit_dom_dom_selection_set_base_and_extent self' baseNode' baseOffset extentNode' extentOffset
touchManagedPtr self
touchManagedPtr baseNode
touchManagedPtr extentNode
return ()
#if ENABLE_OVERLOADING
data DOMDOMSelectionSetBaseAndExtentMethodInfo
instance (signature ~ (b -> CULong -> c -> CULong -> m ()), MonadIO m, IsDOMDOMSelection a, WebKit2WebExtension.DOMNode.IsDOMNode b, WebKit2WebExtension.DOMNode.IsDOMNode c) => O.MethodInfo DOMDOMSelectionSetBaseAndExtentMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionSetBaseAndExtent
#endif
foreign import ccall "webkit_dom_dom_selection_set_position" webkit_dom_dom_selection_set_position ::
Ptr DOMDOMSelection ->
Ptr WebKit2WebExtension.DOMNode.DOMNode ->
CULong ->
IO ()
{-# DEPRECATED dOMDOMSelectionSetPosition ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMSelectionSetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMSelection a, WebKit2WebExtension.DOMNode.IsDOMNode b) =>
a
-> b
-> CULong
-> m ()
dOMDOMSelectionSetPosition self node offset = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
node' <- unsafeManagedPtrCastPtr node
webkit_dom_dom_selection_set_position self' node' offset
touchManagedPtr self
touchManagedPtr node
return ()
#if ENABLE_OVERLOADING
data DOMDOMSelectionSetPositionMethodInfo
instance (signature ~ (b -> CULong -> m ()), MonadIO m, IsDOMDOMSelection a, WebKit2WebExtension.DOMNode.IsDOMNode b) => O.MethodInfo DOMDOMSelectionSetPositionMethodInfo a signature where
overloadedMethod _ = dOMDOMSelectionSetPosition
#endif