module GI.WebKit.Objects.DOMShadowRoot
(
DOMShadowRoot(..) ,
DOMShadowRootK ,
toDOMShadowRoot ,
noDOMShadowRoot ,
dOMShadowRootElementFromPoint ,
dOMShadowRootGetActiveElement ,
dOMShadowRootGetApplyAuthorStyles ,
dOMShadowRootGetElementById ,
dOMShadowRootGetElementsByClassName ,
dOMShadowRootGetElementsByTagName ,
dOMShadowRootGetElementsByTagNameNs ,
dOMShadowRootGetInnerHtml ,
dOMShadowRootGetResetStyleInheritance ,
dOMShadowRootGetSelection ,
dOMShadowRootSetApplyAuthorStyles ,
dOMShadowRootSetInnerHtml ,
dOMShadowRootSetResetStyleInheritance ,
DOMShadowRootActiveElementPropertyInfo ,
getDOMShadowRootActiveElement ,
DOMShadowRootApplyAuthorStylesPropertyInfo,
constructDOMShadowRootApplyAuthorStyles ,
getDOMShadowRootApplyAuthorStyles ,
setDOMShadowRootApplyAuthorStyles ,
DOMShadowRootInnerHtmlPropertyInfo ,
constructDOMShadowRootInnerHtml ,
getDOMShadowRootInnerHtml ,
setDOMShadowRootInnerHtml ,
DOMShadowRootResetStyleInheritancePropertyInfo,
constructDOMShadowRootResetStyleInheritance,
getDOMShadowRootResetStyleInheritance ,
setDOMShadowRootResetStyleInheritance ,
) 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 DOMShadowRoot = DOMShadowRoot (ForeignPtr DOMShadowRoot)
foreign import ccall "webkit_dom_shadow_root_get_type"
c_webkit_dom_shadow_root_get_type :: IO GType
type instance ParentTypes DOMShadowRoot = DOMShadowRootParentTypes
type DOMShadowRootParentTypes = '[DOMDocumentFragment, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMShadowRoot where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_shadow_root_get_type
class GObject o => DOMShadowRootK o
instance (GObject o, IsDescendantOf DOMShadowRoot o) => DOMShadowRootK o
toDOMShadowRoot :: DOMShadowRootK o => o -> IO DOMShadowRoot
toDOMShadowRoot = unsafeCastTo DOMShadowRoot
noDOMShadowRoot :: Maybe DOMShadowRoot
noDOMShadowRoot = Nothing
getDOMShadowRootActiveElement :: (MonadIO m, DOMShadowRootK o) => o -> m DOMElement
getDOMShadowRootActiveElement obj = liftIO $ getObjectPropertyObject obj "active-element" DOMElement
data DOMShadowRootActiveElementPropertyInfo
instance AttrInfo DOMShadowRootActiveElementPropertyInfo where
type AttrAllowedOps DOMShadowRootActiveElementPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMShadowRootActiveElementPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMShadowRootActiveElementPropertyInfo = DOMShadowRootK
type AttrGetType DOMShadowRootActiveElementPropertyInfo = DOMElement
type AttrLabel DOMShadowRootActiveElementPropertyInfo = "DOMShadowRoot::active-element"
attrGet _ = getDOMShadowRootActiveElement
attrSet _ = undefined
attrConstruct _ = undefined
getDOMShadowRootApplyAuthorStyles :: (MonadIO m, DOMShadowRootK o) => o -> m Bool
getDOMShadowRootApplyAuthorStyles obj = liftIO $ getObjectPropertyBool obj "apply-author-styles"
setDOMShadowRootApplyAuthorStyles :: (MonadIO m, DOMShadowRootK o) => o -> Bool -> m ()
setDOMShadowRootApplyAuthorStyles obj val = liftIO $ setObjectPropertyBool obj "apply-author-styles" val
constructDOMShadowRootApplyAuthorStyles :: Bool -> IO ([Char], GValue)
constructDOMShadowRootApplyAuthorStyles val = constructObjectPropertyBool "apply-author-styles" val
data DOMShadowRootApplyAuthorStylesPropertyInfo
instance AttrInfo DOMShadowRootApplyAuthorStylesPropertyInfo where
type AttrAllowedOps DOMShadowRootApplyAuthorStylesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMShadowRootApplyAuthorStylesPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMShadowRootApplyAuthorStylesPropertyInfo = DOMShadowRootK
type AttrGetType DOMShadowRootApplyAuthorStylesPropertyInfo = Bool
type AttrLabel DOMShadowRootApplyAuthorStylesPropertyInfo = "DOMShadowRoot::apply-author-styles"
attrGet _ = getDOMShadowRootApplyAuthorStyles
attrSet _ = setDOMShadowRootApplyAuthorStyles
attrConstruct _ = constructDOMShadowRootApplyAuthorStyles
getDOMShadowRootInnerHtml :: (MonadIO m, DOMShadowRootK o) => o -> m T.Text
getDOMShadowRootInnerHtml obj = liftIO $ getObjectPropertyString obj "inner-html"
setDOMShadowRootInnerHtml :: (MonadIO m, DOMShadowRootK o) => o -> T.Text -> m ()
setDOMShadowRootInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" val
constructDOMShadowRootInnerHtml :: T.Text -> IO ([Char], GValue)
constructDOMShadowRootInnerHtml val = constructObjectPropertyString "inner-html" val
data DOMShadowRootInnerHtmlPropertyInfo
instance AttrInfo DOMShadowRootInnerHtmlPropertyInfo where
type AttrAllowedOps DOMShadowRootInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMShadowRootInnerHtmlPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMShadowRootInnerHtmlPropertyInfo = DOMShadowRootK
type AttrGetType DOMShadowRootInnerHtmlPropertyInfo = T.Text
type AttrLabel DOMShadowRootInnerHtmlPropertyInfo = "DOMShadowRoot::inner-html"
attrGet _ = getDOMShadowRootInnerHtml
attrSet _ = setDOMShadowRootInnerHtml
attrConstruct _ = constructDOMShadowRootInnerHtml
getDOMShadowRootResetStyleInheritance :: (MonadIO m, DOMShadowRootK o) => o -> m Bool
getDOMShadowRootResetStyleInheritance obj = liftIO $ getObjectPropertyBool obj "reset-style-inheritance"
setDOMShadowRootResetStyleInheritance :: (MonadIO m, DOMShadowRootK o) => o -> Bool -> m ()
setDOMShadowRootResetStyleInheritance obj val = liftIO $ setObjectPropertyBool obj "reset-style-inheritance" val
constructDOMShadowRootResetStyleInheritance :: Bool -> IO ([Char], GValue)
constructDOMShadowRootResetStyleInheritance val = constructObjectPropertyBool "reset-style-inheritance" val
data DOMShadowRootResetStyleInheritancePropertyInfo
instance AttrInfo DOMShadowRootResetStyleInheritancePropertyInfo where
type AttrAllowedOps DOMShadowRootResetStyleInheritancePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMShadowRootResetStyleInheritancePropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMShadowRootResetStyleInheritancePropertyInfo = DOMShadowRootK
type AttrGetType DOMShadowRootResetStyleInheritancePropertyInfo = Bool
type AttrLabel DOMShadowRootResetStyleInheritancePropertyInfo = "DOMShadowRoot::reset-style-inheritance"
attrGet _ = getDOMShadowRootResetStyleInheritance
attrSet _ = setDOMShadowRootResetStyleInheritance
attrConstruct _ = constructDOMShadowRootResetStyleInheritance
type instance AttributeList DOMShadowRoot = DOMShadowRootAttributeList
type DOMShadowRootAttributeList = ('[ '("active-element", DOMShadowRootActiveElementPropertyInfo), '("apply-author-styles", DOMShadowRootApplyAuthorStylesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("inner-html", DOMShadowRootInnerHtmlPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("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), '("reset-style-inheritance", DOMShadowRootResetStyleInheritancePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMShadowRoot = DOMShadowRootSignalList
type DOMShadowRootSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_shadow_root_element_from_point" webkit_dom_shadow_root_element_from_point ::
Ptr DOMShadowRoot ->
Int64 ->
Int64 ->
IO (Ptr DOMElement)
dOMShadowRootElementFromPoint ::
(MonadIO m, DOMShadowRootK a) =>
a ->
Int64 ->
Int64 ->
m DOMElement
dOMShadowRootElementFromPoint _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_shadow_root_element_from_point _obj' x y
checkUnexpectedReturnNULL "webkit_dom_shadow_root_element_from_point" result
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_shadow_root_get_active_element" webkit_dom_shadow_root_get_active_element ::
Ptr DOMShadowRoot ->
IO (Ptr DOMElement)
dOMShadowRootGetActiveElement ::
(MonadIO m, DOMShadowRootK a) =>
a ->
m DOMElement
dOMShadowRootGetActiveElement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_shadow_root_get_active_element _obj'
checkUnexpectedReturnNULL "webkit_dom_shadow_root_get_active_element" result
result' <- (newObject DOMElement) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_shadow_root_get_apply_author_styles" webkit_dom_shadow_root_get_apply_author_styles ::
Ptr DOMShadowRoot ->
IO CInt
dOMShadowRootGetApplyAuthorStyles ::
(MonadIO m, DOMShadowRootK a) =>
a ->
m Bool
dOMShadowRootGetApplyAuthorStyles _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_shadow_root_get_apply_author_styles _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_shadow_root_get_element_by_id" webkit_dom_shadow_root_get_element_by_id ::
Ptr DOMShadowRoot ->
CString ->
IO (Ptr DOMElement)
dOMShadowRootGetElementById ::
(MonadIO m, DOMShadowRootK a) =>
a ->
T.Text ->
m DOMElement
dOMShadowRootGetElementById _obj elementId = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
elementId' <- textToCString elementId
result <- webkit_dom_shadow_root_get_element_by_id _obj' elementId'
checkUnexpectedReturnNULL "webkit_dom_shadow_root_get_element_by_id" result
result' <- (newObject DOMElement) result
touchManagedPtr _obj
freeMem elementId'
return result'
foreign import ccall "webkit_dom_shadow_root_get_elements_by_class_name" webkit_dom_shadow_root_get_elements_by_class_name ::
Ptr DOMShadowRoot ->
CString ->
IO (Ptr DOMNodeList)
dOMShadowRootGetElementsByClassName ::
(MonadIO m, DOMShadowRootK a) =>
a ->
T.Text ->
m DOMNodeList
dOMShadowRootGetElementsByClassName _obj className = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
className' <- textToCString className
result <- webkit_dom_shadow_root_get_elements_by_class_name _obj' className'
checkUnexpectedReturnNULL "webkit_dom_shadow_root_get_elements_by_class_name" result
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem className'
return result'
foreign import ccall "webkit_dom_shadow_root_get_elements_by_tag_name" webkit_dom_shadow_root_get_elements_by_tag_name ::
Ptr DOMShadowRoot ->
CString ->
IO (Ptr DOMNodeList)
dOMShadowRootGetElementsByTagName ::
(MonadIO m, DOMShadowRootK a) =>
a ->
T.Text ->
m DOMNodeList
dOMShadowRootGetElementsByTagName _obj tagName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
tagName' <- textToCString tagName
result <- webkit_dom_shadow_root_get_elements_by_tag_name _obj' tagName'
checkUnexpectedReturnNULL "webkit_dom_shadow_root_get_elements_by_tag_name" result
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem tagName'
return result'
foreign import ccall "webkit_dom_shadow_root_get_elements_by_tag_name_ns" webkit_dom_shadow_root_get_elements_by_tag_name_ns ::
Ptr DOMShadowRoot ->
CString ->
CString ->
IO (Ptr DOMNodeList)
dOMShadowRootGetElementsByTagNameNs ::
(MonadIO m, DOMShadowRootK a) =>
a ->
T.Text ->
T.Text ->
m DOMNodeList
dOMShadowRootGetElementsByTagNameNs _obj namespaceURI localName = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
namespaceURI' <- textToCString namespaceURI
localName' <- textToCString localName
result <- webkit_dom_shadow_root_get_elements_by_tag_name_ns _obj' namespaceURI' localName'
checkUnexpectedReturnNULL "webkit_dom_shadow_root_get_elements_by_tag_name_ns" result
result' <- (wrapObject DOMNodeList) result
touchManagedPtr _obj
freeMem namespaceURI'
freeMem localName'
return result'
foreign import ccall "webkit_dom_shadow_root_get_inner_html" webkit_dom_shadow_root_get_inner_html ::
Ptr DOMShadowRoot ->
IO CString
dOMShadowRootGetInnerHtml ::
(MonadIO m, DOMShadowRootK a) =>
a ->
m T.Text
dOMShadowRootGetInnerHtml _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_shadow_root_get_inner_html _obj'
checkUnexpectedReturnNULL "webkit_dom_shadow_root_get_inner_html" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_shadow_root_get_reset_style_inheritance" webkit_dom_shadow_root_get_reset_style_inheritance ::
Ptr DOMShadowRoot ->
IO CInt
dOMShadowRootGetResetStyleInheritance ::
(MonadIO m, DOMShadowRootK a) =>
a ->
m Bool
dOMShadowRootGetResetStyleInheritance _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_shadow_root_get_reset_style_inheritance _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_shadow_root_get_selection" webkit_dom_shadow_root_get_selection ::
Ptr DOMShadowRoot ->
IO (Ptr DOMDOMSelection)
dOMShadowRootGetSelection ::
(MonadIO m, DOMShadowRootK a) =>
a ->
m DOMDOMSelection
dOMShadowRootGetSelection _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_shadow_root_get_selection _obj'
checkUnexpectedReturnNULL "webkit_dom_shadow_root_get_selection" result
result' <- (wrapObject DOMDOMSelection) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_shadow_root_set_apply_author_styles" webkit_dom_shadow_root_set_apply_author_styles ::
Ptr DOMShadowRoot ->
CInt ->
IO ()
dOMShadowRootSetApplyAuthorStyles ::
(MonadIO m, DOMShadowRootK a) =>
a ->
Bool ->
m ()
dOMShadowRootSetApplyAuthorStyles _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_shadow_root_set_apply_author_styles _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_shadow_root_set_inner_html" webkit_dom_shadow_root_set_inner_html ::
Ptr DOMShadowRoot ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMShadowRootSetInnerHtml ::
(MonadIO m, DOMShadowRootK a) =>
a ->
T.Text ->
m ()
dOMShadowRootSetInnerHtml _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_shadow_root_set_inner_html _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
foreign import ccall "webkit_dom_shadow_root_set_reset_style_inheritance" webkit_dom_shadow_root_set_reset_style_inheritance ::
Ptr DOMShadowRoot ->
CInt ->
IO ()
dOMShadowRootSetResetStyleInheritance ::
(MonadIO m, DOMShadowRootK a) =>
a ->
Bool ->
m ()
dOMShadowRootSetResetStyleInheritance _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_shadow_root_set_reset_style_inheritance _obj' value'
touchManagedPtr _obj
return ()