module GI.WebKit.Objects.DOMText
(
DOMText(..) ,
DOMTextK ,
toDOMText ,
noDOMText ,
dOMTextGetWholeText ,
dOMTextReplaceWholeText ,
dOMTextSplitText ,
DOMTextWholeTextPropertyInfo ,
getDOMTextWholeText ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
newtype DOMText = DOMText (ForeignPtr DOMText)
foreign import ccall "webkit_dom_text_get_type"
c_webkit_dom_text_get_type :: IO GType
type instance ParentTypes DOMText = DOMTextParentTypes
type DOMTextParentTypes = '[DOMCharacterData, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMText where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_text_get_type
class GObject o => DOMTextK o
instance (GObject o, IsDescendantOf DOMText o) => DOMTextK o
toDOMText :: DOMTextK o => o -> IO DOMText
toDOMText = unsafeCastTo DOMText
noDOMText :: Maybe DOMText
noDOMText = Nothing
getDOMTextWholeText :: (MonadIO m, DOMTextK o) => o -> m T.Text
getDOMTextWholeText obj = liftIO $ getObjectPropertyString obj "whole-text"
data DOMTextWholeTextPropertyInfo
instance AttrInfo DOMTextWholeTextPropertyInfo where
type AttrAllowedOps DOMTextWholeTextPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMTextWholeTextPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTextWholeTextPropertyInfo = DOMTextK
type AttrGetType DOMTextWholeTextPropertyInfo = T.Text
type AttrLabel DOMTextWholeTextPropertyInfo = "DOMText::whole-text"
attrGet _ = getDOMTextWholeText
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMText = DOMTextAttributeList
type DOMTextAttributeList = ('[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("whole-text", DOMTextWholeTextPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMText = DOMTextSignalList
type DOMTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_text_get_whole_text" webkit_dom_text_get_whole_text ::
Ptr DOMText ->
IO CString
dOMTextGetWholeText ::
(MonadIO m, DOMTextK a) =>
a ->
m T.Text
dOMTextGetWholeText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_get_whole_text _obj'
checkUnexpectedReturnNULL "webkit_dom_text_get_whole_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_text_replace_whole_text" webkit_dom_text_replace_whole_text ::
Ptr DOMText ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr DOMText)
dOMTextReplaceWholeText ::
(MonadIO m, DOMTextK a) =>
a ->
T.Text ->
m DOMText
dOMTextReplaceWholeText _obj content = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
content' <- textToCString content
onException (do
result <- propagateGError $ webkit_dom_text_replace_whole_text _obj' content'
checkUnexpectedReturnNULL "webkit_dom_text_replace_whole_text" result
result' <- (newObject DOMText) result
touchManagedPtr _obj
freeMem content'
return result'
) (do
freeMem content'
)
foreign import ccall "webkit_dom_text_split_text" webkit_dom_text_split_text ::
Ptr DOMText ->
Word64 ->
Ptr (Ptr GError) ->
IO (Ptr DOMText)
dOMTextSplitText ::
(MonadIO m, DOMTextK a) =>
a ->
Word64 ->
m DOMText
dOMTextSplitText _obj offset = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_text_split_text _obj' offset
checkUnexpectedReturnNULL "webkit_dom_text_split_text" result
result' <- (newObject DOMText) result
touchManagedPtr _obj
return result'
) (do
return ()
)