{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMText
(
DOMText(..) ,
IsDOMText ,
toDOMText ,
noDOMText ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMTextMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMTextGetWholeTextMethodInfo ,
#endif
dOMTextGetWholeText ,
#if defined(ENABLE_OVERLOADING)
DOMTextReplaceWholeTextMethodInfo ,
#endif
dOMTextReplaceWholeText ,
#if defined(ENABLE_OVERLOADING)
DOMTextSplitTextMethodInfo ,
#endif
dOMTextSplitText ,
#if defined(ENABLE_OVERLOADING)
DOMTextWholeTextPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMTextWholeText ,
#endif
getDOMTextWholeText ,
) 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.GI.Base.Signals as B.Signals
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.Interfaces.DOMEventTarget as WebKit2WebExtension.DOMEventTarget
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCharacterData as WebKit2WebExtension.DOMCharacterData
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMText = DOMText (ManagedPtr DOMText)
deriving (DOMText -> DOMText -> Bool
(DOMText -> DOMText -> Bool)
-> (DOMText -> DOMText -> Bool) -> Eq DOMText
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMText -> DOMText -> Bool
$c/= :: DOMText -> DOMText -> Bool
== :: DOMText -> DOMText -> Bool
$c== :: DOMText -> DOMText -> Bool
Eq)
foreign import ccall "webkit_dom_text_get_type"
c_webkit_dom_text_get_type :: IO GType
instance GObject DOMText where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_dom_text_get_type
instance B.GValue.IsGValue DOMText where
toGValue :: DOMText -> IO GValue
toGValue o :: DOMText
o = do
GType
gtype <- IO GType
c_webkit_dom_text_get_type
DOMText -> (Ptr DOMText -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMText
o (GType
-> (GValue -> Ptr DOMText -> IO ()) -> Ptr DOMText -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr DOMText -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO DOMText
fromGValue gv :: GValue
gv = do
Ptr DOMText
ptr <- GValue -> IO (Ptr DOMText)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr DOMText)
(ManagedPtr DOMText -> DOMText) -> Ptr DOMText -> IO DOMText
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMText -> DOMText
DOMText Ptr DOMText
ptr
class (GObject o, O.IsDescendantOf DOMText o) => IsDOMText o
instance (GObject o, O.IsDescendantOf DOMText o) => IsDOMText o
instance O.HasParentTypes DOMText
type instance O.ParentTypes DOMText = '[WebKit2WebExtension.DOMCharacterData.DOMCharacterData, WebKit2WebExtension.DOMNode.DOMNode, WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object, WebKit2WebExtension.DOMEventTarget.DOMEventTarget]
toDOMText :: (MonadIO m, IsDOMText o) => o -> m DOMText
toDOMText :: o -> m DOMText
toDOMText = IO DOMText -> m DOMText
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMText -> m DOMText) -> (o -> IO DOMText) -> o -> m DOMText
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMText -> DOMText) -> o -> IO DOMText
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr DOMText -> DOMText
DOMText
noDOMText :: Maybe DOMText
noDOMText :: Maybe DOMText
noDOMText = Maybe DOMText
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMTextMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMTextMethod "addEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetAddEventListenerMethodInfo
ResolveDOMTextMethod "appendChild" o = WebKit2WebExtension.DOMNode.DOMNodeAppendChildMethodInfo
ResolveDOMTextMethod "appendData" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataAppendDataMethodInfo
ResolveDOMTextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMTextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMTextMethod "cloneNodeWithError" o = WebKit2WebExtension.DOMNode.DOMNodeCloneNodeWithErrorMethodInfo
ResolveDOMTextMethod "compareDocumentPosition" o = WebKit2WebExtension.DOMNode.DOMNodeCompareDocumentPositionMethodInfo
ResolveDOMTextMethod "contains" o = WebKit2WebExtension.DOMNode.DOMNodeContainsMethodInfo
ResolveDOMTextMethod "deleteData" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataDeleteDataMethodInfo
ResolveDOMTextMethod "dispatchEvent" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetDispatchEventMethodInfo
ResolveDOMTextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMTextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMTextMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMTextMethod "hasChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeHasChildNodesMethodInfo
ResolveDOMTextMethod "insertBefore" o = WebKit2WebExtension.DOMNode.DOMNodeInsertBeforeMethodInfo
ResolveDOMTextMethod "insertData" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataInsertDataMethodInfo
ResolveDOMTextMethod "isDefaultNamespace" o = WebKit2WebExtension.DOMNode.DOMNodeIsDefaultNamespaceMethodInfo
ResolveDOMTextMethod "isEqualNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsEqualNodeMethodInfo
ResolveDOMTextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMTextMethod "isSameNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsSameNodeMethodInfo
ResolveDOMTextMethod "isSupported" o = WebKit2WebExtension.DOMNode.DOMNodeIsSupportedMethodInfo
ResolveDOMTextMethod "lookupNamespaceUri" o = WebKit2WebExtension.DOMNode.DOMNodeLookupNamespaceUriMethodInfo
ResolveDOMTextMethod "lookupPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeLookupPrefixMethodInfo
ResolveDOMTextMethod "normalize" o = WebKit2WebExtension.DOMNode.DOMNodeNormalizeMethodInfo
ResolveDOMTextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMTextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMTextMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMTextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMTextMethod "removeChild" o = WebKit2WebExtension.DOMNode.DOMNodeRemoveChildMethodInfo
ResolveDOMTextMethod "removeEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetRemoveEventListenerMethodInfo
ResolveDOMTextMethod "replaceChild" o = WebKit2WebExtension.DOMNode.DOMNodeReplaceChildMethodInfo
ResolveDOMTextMethod "replaceData" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataReplaceDataMethodInfo
ResolveDOMTextMethod "replaceWholeText" o = DOMTextReplaceWholeTextMethodInfo
ResolveDOMTextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMTextMethod "splitText" o = DOMTextSplitTextMethodInfo
ResolveDOMTextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMTextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMTextMethod "substringData" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataSubstringDataMethodInfo
ResolveDOMTextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMTextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMTextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMTextMethod "getBaseUri" o = WebKit2WebExtension.DOMNode.DOMNodeGetBaseUriMethodInfo
ResolveDOMTextMethod "getChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeGetChildNodesMethodInfo
ResolveDOMTextMethod "getData" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataGetDataMethodInfo
ResolveDOMTextMethod "getFirstChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetFirstChildMethodInfo
ResolveDOMTextMethod "getLastChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetLastChildMethodInfo
ResolveDOMTextMethod "getLength" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataGetLengthMethodInfo
ResolveDOMTextMethod "getLocalName" o = WebKit2WebExtension.DOMNode.DOMNodeGetLocalNameMethodInfo
ResolveDOMTextMethod "getNamespaceUri" o = WebKit2WebExtension.DOMNode.DOMNodeGetNamespaceUriMethodInfo
ResolveDOMTextMethod "getNextSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetNextSiblingMethodInfo
ResolveDOMTextMethod "getNodeName" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeNameMethodInfo
ResolveDOMTextMethod "getNodeType" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeTypeMethodInfo
ResolveDOMTextMethod "getNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeValueMethodInfo
ResolveDOMTextMethod "getOwnerDocument" o = WebKit2WebExtension.DOMNode.DOMNodeGetOwnerDocumentMethodInfo
ResolveDOMTextMethod "getParentElement" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentElementMethodInfo
ResolveDOMTextMethod "getParentNode" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentNodeMethodInfo
ResolveDOMTextMethod "getPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeGetPrefixMethodInfo
ResolveDOMTextMethod "getPreviousSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetPreviousSiblingMethodInfo
ResolveDOMTextMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMTextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMTextMethod "getTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeGetTextContentMethodInfo
ResolveDOMTextMethod "getWholeText" o = DOMTextGetWholeTextMethodInfo
ResolveDOMTextMethod "setData" o = WebKit2WebExtension.DOMCharacterData.DOMCharacterDataSetDataMethodInfo
ResolveDOMTextMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMTextMethod "setNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeSetNodeValueMethodInfo
ResolveDOMTextMethod "setPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeSetPrefixMethodInfo
ResolveDOMTextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMTextMethod "setTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeSetTextContentMethodInfo
ResolveDOMTextMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMTextMethod t DOMText, O.MethodInfo info DOMText p) => OL.IsLabel t (DOMText -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getDOMTextWholeText :: (MonadIO m, IsDOMText o) => o -> m (Maybe T.Text)
getDOMTextWholeText :: o -> m (Maybe Text)
getDOMTextWholeText obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "whole-text"
#if defined(ENABLE_OVERLOADING)
data DOMTextWholeTextPropertyInfo
instance AttrInfo DOMTextWholeTextPropertyInfo where
type AttrAllowedOps DOMTextWholeTextPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMTextWholeTextPropertyInfo = IsDOMText
type AttrSetTypeConstraint DOMTextWholeTextPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMTextWholeTextPropertyInfo = (~) ()
type AttrTransferType DOMTextWholeTextPropertyInfo = ()
type AttrGetType DOMTextWholeTextPropertyInfo = (Maybe T.Text)
type AttrLabel DOMTextWholeTextPropertyInfo = "whole-text"
type AttrOrigin DOMTextWholeTextPropertyInfo = DOMText
attrGet = getDOMTextWholeText
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMText
type instance O.AttributeList DOMText = DOMTextAttributeList
type DOMTextAttributeList = ('[ '("baseUri", WebKit2WebExtension.DOMNode.DOMNodeBaseUriPropertyInfo), '("childNodes", WebKit2WebExtension.DOMNode.DOMNodeChildNodesPropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("data", WebKit2WebExtension.DOMCharacterData.DOMCharacterDataDataPropertyInfo), '("firstChild", WebKit2WebExtension.DOMNode.DOMNodeFirstChildPropertyInfo), '("lastChild", WebKit2WebExtension.DOMNode.DOMNodeLastChildPropertyInfo), '("length", WebKit2WebExtension.DOMCharacterData.DOMCharacterDataLengthPropertyInfo), '("nextSibling", WebKit2WebExtension.DOMNode.DOMNodeNextSiblingPropertyInfo), '("nodeName", WebKit2WebExtension.DOMNode.DOMNodeNodeNamePropertyInfo), '("nodeType", WebKit2WebExtension.DOMNode.DOMNodeNodeTypePropertyInfo), '("nodeValue", WebKit2WebExtension.DOMNode.DOMNodeNodeValuePropertyInfo), '("ownerDocument", WebKit2WebExtension.DOMNode.DOMNodeOwnerDocumentPropertyInfo), '("parentElement", WebKit2WebExtension.DOMNode.DOMNodeParentElementPropertyInfo), '("parentNode", WebKit2WebExtension.DOMNode.DOMNodeParentNodePropertyInfo), '("previousSibling", WebKit2WebExtension.DOMNode.DOMNodePreviousSiblingPropertyInfo), '("textContent", WebKit2WebExtension.DOMNode.DOMNodeTextContentPropertyInfo), '("wholeText", DOMTextWholeTextPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMTextWholeText :: AttrLabelProxy "wholeText"
dOMTextWholeText = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMText = DOMTextSignalList
type DOMTextSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_text_get_whole_text" webkit_dom_text_get_whole_text ::
Ptr DOMText ->
IO CString
{-# DEPRECATED dOMTextGetWholeText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTextGetWholeText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMText a) =>
a
-> m T.Text
dOMTextGetWholeText :: a -> m Text
dOMTextGetWholeText self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMText
self' <- a -> IO (Ptr DOMText)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMText -> IO CString
webkit_dom_text_get_whole_text Ptr DOMText
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMTextGetWholeText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMTextGetWholeTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMText a) => O.MethodInfo DOMTextGetWholeTextMethodInfo a signature where
overloadedMethod = dOMTextGetWholeText
#endif
foreign import ccall "webkit_dom_text_replace_whole_text" webkit_dom_text_replace_whole_text ::
Ptr DOMText ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr DOMText)
{-# DEPRECATED dOMTextReplaceWholeText ["(Since version 2.14)"] #-}
dOMTextReplaceWholeText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMText a) =>
a
-> T.Text
-> m DOMText
dOMTextReplaceWholeText :: a -> Text -> m DOMText
dOMTextReplaceWholeText self :: a
self content :: Text
content = IO DOMText -> m DOMText
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMText -> m DOMText) -> IO DOMText -> m DOMText
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMText
self' <- a -> IO (Ptr DOMText)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
content' <- Text -> IO CString
textToCString Text
content
IO DOMText -> IO () -> IO DOMText
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMText
result <- (Ptr (Ptr GError) -> IO (Ptr DOMText)) -> IO (Ptr DOMText)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMText)) -> IO (Ptr DOMText))
-> (Ptr (Ptr GError) -> IO (Ptr DOMText)) -> IO (Ptr DOMText)
forall a b. (a -> b) -> a -> b
$ Ptr DOMText -> CString -> Ptr (Ptr GError) -> IO (Ptr DOMText)
webkit_dom_text_replace_whole_text Ptr DOMText
self' CString
content'
Text -> Ptr DOMText -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMTextReplaceWholeText" Ptr DOMText
result
DOMText
result' <- ((ManagedPtr DOMText -> DOMText) -> Ptr DOMText -> IO DOMText
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMText -> DOMText
DOMText) Ptr DOMText
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
content'
DOMText -> IO DOMText
forall (m :: * -> *) a. Monad m => a -> m a
return DOMText
result'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
content'
)
#if defined(ENABLE_OVERLOADING)
data DOMTextReplaceWholeTextMethodInfo
instance (signature ~ (T.Text -> m DOMText), MonadIO m, IsDOMText a) => O.MethodInfo DOMTextReplaceWholeTextMethodInfo a signature where
overloadedMethod = dOMTextReplaceWholeText
#endif
foreign import ccall "webkit_dom_text_split_text" webkit_dom_text_split_text ::
Ptr DOMText ->
CULong ->
Ptr (Ptr GError) ->
IO (Ptr DOMText)
{-# DEPRECATED dOMTextSplitText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMTextSplitText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMText a) =>
a
-> CULong
-> m DOMText
dOMTextSplitText :: a -> CULong -> m DOMText
dOMTextSplitText self :: a
self offset :: CULong
offset = IO DOMText -> m DOMText
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMText -> m DOMText) -> IO DOMText -> m DOMText
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMText
self' <- a -> IO (Ptr DOMText)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
IO DOMText -> IO () -> IO DOMText
forall a b. IO a -> IO b -> IO a
onException (do
Ptr DOMText
result <- (Ptr (Ptr GError) -> IO (Ptr DOMText)) -> IO (Ptr DOMText)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr DOMText)) -> IO (Ptr DOMText))
-> (Ptr (Ptr GError) -> IO (Ptr DOMText)) -> IO (Ptr DOMText)
forall a b. (a -> b) -> a -> b
$ Ptr DOMText -> CULong -> Ptr (Ptr GError) -> IO (Ptr DOMText)
webkit_dom_text_split_text Ptr DOMText
self' CULong
offset
Text -> Ptr DOMText -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMTextSplitText" Ptr DOMText
result
DOMText
result' <- ((ManagedPtr DOMText -> DOMText) -> Ptr DOMText -> IO DOMText
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMText -> DOMText
DOMText) Ptr DOMText
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMText -> IO DOMText
forall (m :: * -> *) a. Monad m => a -> m a
return DOMText
result'
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMTextSplitTextMethodInfo
instance (signature ~ (CULong -> m DOMText), MonadIO m, IsDOMText a) => O.MethodInfo DOMTextSplitTextMethodInfo a signature where
overloadedMethod = dOMTextSplitText
#endif