module GI.WebKit2WebExtension.Objects.DOMHTMLDocument
(
DOMHTMLDocument(..) ,
DOMHTMLDocumentK ,
toDOMHTMLDocument ,
noDOMHTMLDocument ,
dOMHTMLDocumentCaptureEvents ,
dOMHTMLDocumentClear ,
dOMHTMLDocumentClose ,
dOMHTMLDocumentGetAlinkColor ,
dOMHTMLDocumentGetBgColor ,
dOMHTMLDocumentGetCompatMode ,
dOMHTMLDocumentGetDesignMode ,
dOMHTMLDocumentGetDir ,
dOMHTMLDocumentGetEmbeds ,
dOMHTMLDocumentGetFgColor ,
dOMHTMLDocumentGetHeight ,
dOMHTMLDocumentGetLinkColor ,
dOMHTMLDocumentGetPlugins ,
dOMHTMLDocumentGetScripts ,
dOMHTMLDocumentGetVlinkColor ,
dOMHTMLDocumentGetWidth ,
dOMHTMLDocumentReleaseEvents ,
dOMHTMLDocumentSetAlinkColor ,
dOMHTMLDocumentSetBgColor ,
dOMHTMLDocumentSetDesignMode ,
dOMHTMLDocumentSetDir ,
dOMHTMLDocumentSetFgColor ,
dOMHTMLDocumentSetLinkColor ,
dOMHTMLDocumentSetVlinkColor ,
DOMHTMLDocumentAlinkColorPropertyInfo ,
constructDOMHTMLDocumentAlinkColor ,
getDOMHTMLDocumentAlinkColor ,
setDOMHTMLDocumentAlinkColor ,
DOMHTMLDocumentBgColorPropertyInfo ,
constructDOMHTMLDocumentBgColor ,
getDOMHTMLDocumentBgColor ,
setDOMHTMLDocumentBgColor ,
DOMHTMLDocumentCompatModePropertyInfo ,
getDOMHTMLDocumentCompatMode ,
DOMHTMLDocumentDesignModePropertyInfo ,
constructDOMHTMLDocumentDesignMode ,
getDOMHTMLDocumentDesignMode ,
setDOMHTMLDocumentDesignMode ,
DOMHTMLDocumentDirPropertyInfo ,
constructDOMHTMLDocumentDir ,
getDOMHTMLDocumentDir ,
setDOMHTMLDocumentDir ,
DOMHTMLDocumentEmbedsPropertyInfo ,
getDOMHTMLDocumentEmbeds ,
DOMHTMLDocumentFgColorPropertyInfo ,
constructDOMHTMLDocumentFgColor ,
getDOMHTMLDocumentFgColor ,
setDOMHTMLDocumentFgColor ,
DOMHTMLDocumentHeightPropertyInfo ,
getDOMHTMLDocumentHeight ,
DOMHTMLDocumentLinkColorPropertyInfo ,
constructDOMHTMLDocumentLinkColor ,
getDOMHTMLDocumentLinkColor ,
setDOMHTMLDocumentLinkColor ,
DOMHTMLDocumentPluginsPropertyInfo ,
getDOMHTMLDocumentPlugins ,
DOMHTMLDocumentScriptsPropertyInfo ,
getDOMHTMLDocumentScripts ,
DOMHTMLDocumentVlinkColorPropertyInfo ,
constructDOMHTMLDocumentVlinkColor ,
getDOMHTMLDocumentVlinkColor ,
setDOMHTMLDocumentVlinkColor ,
DOMHTMLDocumentWidthPropertyInfo ,
getDOMHTMLDocumentWidth ,
) 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.WebKit2WebExtension.Types
import GI.WebKit2WebExtension.Callbacks
import qualified GI.GObject as GObject
newtype DOMHTMLDocument = DOMHTMLDocument (ForeignPtr DOMHTMLDocument)
foreign import ccall "webkit_dom_html_document_get_type"
c_webkit_dom_html_document_get_type :: IO GType
type instance ParentTypes DOMHTMLDocument = DOMHTMLDocumentParentTypes
type DOMHTMLDocumentParentTypes = '[DOMDocument, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLDocument where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_document_get_type
class GObject o => DOMHTMLDocumentK o
instance (GObject o, IsDescendantOf DOMHTMLDocument o) => DOMHTMLDocumentK o
toDOMHTMLDocument :: DOMHTMLDocumentK o => o -> IO DOMHTMLDocument
toDOMHTMLDocument = unsafeCastTo DOMHTMLDocument
noDOMHTMLDocument :: Maybe DOMHTMLDocument
noDOMHTMLDocument = Nothing
getDOMHTMLDocumentAlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text
getDOMHTMLDocumentAlinkColor obj = liftIO $ getObjectPropertyString obj "alink-color"
setDOMHTMLDocumentAlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m ()
setDOMHTMLDocumentAlinkColor obj val = liftIO $ setObjectPropertyString obj "alink-color" val
constructDOMHTMLDocumentAlinkColor :: T.Text -> IO ([Char], GValue)
constructDOMHTMLDocumentAlinkColor val = constructObjectPropertyString "alink-color" val
data DOMHTMLDocumentAlinkColorPropertyInfo
instance AttrInfo DOMHTMLDocumentAlinkColorPropertyInfo where
type AttrAllowedOps DOMHTMLDocumentAlinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLDocumentAlinkColorPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLDocumentAlinkColorPropertyInfo = DOMHTMLDocumentK
type AttrGetType DOMHTMLDocumentAlinkColorPropertyInfo = T.Text
type AttrLabel DOMHTMLDocumentAlinkColorPropertyInfo = "DOMHTMLDocument::alink-color"
attrGet _ = getDOMHTMLDocumentAlinkColor
attrSet _ = setDOMHTMLDocumentAlinkColor
attrConstruct _ = constructDOMHTMLDocumentAlinkColor
getDOMHTMLDocumentBgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text
getDOMHTMLDocumentBgColor obj = liftIO $ getObjectPropertyString obj "bg-color"
setDOMHTMLDocumentBgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m ()
setDOMHTMLDocumentBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val
constructDOMHTMLDocumentBgColor :: T.Text -> IO ([Char], GValue)
constructDOMHTMLDocumentBgColor val = constructObjectPropertyString "bg-color" val
data DOMHTMLDocumentBgColorPropertyInfo
instance AttrInfo DOMHTMLDocumentBgColorPropertyInfo where
type AttrAllowedOps DOMHTMLDocumentBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLDocumentBgColorPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLDocumentBgColorPropertyInfo = DOMHTMLDocumentK
type AttrGetType DOMHTMLDocumentBgColorPropertyInfo = T.Text
type AttrLabel DOMHTMLDocumentBgColorPropertyInfo = "DOMHTMLDocument::bg-color"
attrGet _ = getDOMHTMLDocumentBgColor
attrSet _ = setDOMHTMLDocumentBgColor
attrConstruct _ = constructDOMHTMLDocumentBgColor
getDOMHTMLDocumentCompatMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text
getDOMHTMLDocumentCompatMode obj = liftIO $ getObjectPropertyString obj "compat-mode"
data DOMHTMLDocumentCompatModePropertyInfo
instance AttrInfo DOMHTMLDocumentCompatModePropertyInfo where
type AttrAllowedOps DOMHTMLDocumentCompatModePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLDocumentCompatModePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLDocumentCompatModePropertyInfo = DOMHTMLDocumentK
type AttrGetType DOMHTMLDocumentCompatModePropertyInfo = T.Text
type AttrLabel DOMHTMLDocumentCompatModePropertyInfo = "DOMHTMLDocument::compat-mode"
attrGet _ = getDOMHTMLDocumentCompatMode
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLDocumentDesignMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text
getDOMHTMLDocumentDesignMode obj = liftIO $ getObjectPropertyString obj "design-mode"
setDOMHTMLDocumentDesignMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m ()
setDOMHTMLDocumentDesignMode obj val = liftIO $ setObjectPropertyString obj "design-mode" val
constructDOMHTMLDocumentDesignMode :: T.Text -> IO ([Char], GValue)
constructDOMHTMLDocumentDesignMode val = constructObjectPropertyString "design-mode" val
data DOMHTMLDocumentDesignModePropertyInfo
instance AttrInfo DOMHTMLDocumentDesignModePropertyInfo where
type AttrAllowedOps DOMHTMLDocumentDesignModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLDocumentDesignModePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLDocumentDesignModePropertyInfo = DOMHTMLDocumentK
type AttrGetType DOMHTMLDocumentDesignModePropertyInfo = T.Text
type AttrLabel DOMHTMLDocumentDesignModePropertyInfo = "DOMHTMLDocument::design-mode"
attrGet _ = getDOMHTMLDocumentDesignMode
attrSet _ = setDOMHTMLDocumentDesignMode
attrConstruct _ = constructDOMHTMLDocumentDesignMode
getDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text
getDOMHTMLDocumentDir obj = liftIO $ getObjectPropertyString obj "dir"
setDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m ()
setDOMHTMLDocumentDir obj val = liftIO $ setObjectPropertyString obj "dir" val
constructDOMHTMLDocumentDir :: T.Text -> IO ([Char], GValue)
constructDOMHTMLDocumentDir val = constructObjectPropertyString "dir" val
data DOMHTMLDocumentDirPropertyInfo
instance AttrInfo DOMHTMLDocumentDirPropertyInfo where
type AttrAllowedOps DOMHTMLDocumentDirPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLDocumentDirPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLDocumentDirPropertyInfo = DOMHTMLDocumentK
type AttrGetType DOMHTMLDocumentDirPropertyInfo = T.Text
type AttrLabel DOMHTMLDocumentDirPropertyInfo = "DOMHTMLDocument::dir"
attrGet _ = getDOMHTMLDocumentDir
attrSet _ = setDOMHTMLDocumentDir
attrConstruct _ = constructDOMHTMLDocumentDir
getDOMHTMLDocumentEmbeds :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection
getDOMHTMLDocumentEmbeds obj = liftIO $ getObjectPropertyObject obj "embeds" DOMHTMLCollection
data DOMHTMLDocumentEmbedsPropertyInfo
instance AttrInfo DOMHTMLDocumentEmbedsPropertyInfo where
type AttrAllowedOps DOMHTMLDocumentEmbedsPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLDocumentEmbedsPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLDocumentEmbedsPropertyInfo = DOMHTMLDocumentK
type AttrGetType DOMHTMLDocumentEmbedsPropertyInfo = DOMHTMLCollection
type AttrLabel DOMHTMLDocumentEmbedsPropertyInfo = "DOMHTMLDocument::embeds"
attrGet _ = getDOMHTMLDocumentEmbeds
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLDocumentFgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text
getDOMHTMLDocumentFgColor obj = liftIO $ getObjectPropertyString obj "fg-color"
setDOMHTMLDocumentFgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m ()
setDOMHTMLDocumentFgColor obj val = liftIO $ setObjectPropertyString obj "fg-color" val
constructDOMHTMLDocumentFgColor :: T.Text -> IO ([Char], GValue)
constructDOMHTMLDocumentFgColor val = constructObjectPropertyString "fg-color" val
data DOMHTMLDocumentFgColorPropertyInfo
instance AttrInfo DOMHTMLDocumentFgColorPropertyInfo where
type AttrAllowedOps DOMHTMLDocumentFgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLDocumentFgColorPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLDocumentFgColorPropertyInfo = DOMHTMLDocumentK
type AttrGetType DOMHTMLDocumentFgColorPropertyInfo = T.Text
type AttrLabel DOMHTMLDocumentFgColorPropertyInfo = "DOMHTMLDocument::fg-color"
attrGet _ = getDOMHTMLDocumentFgColor
attrSet _ = setDOMHTMLDocumentFgColor
attrConstruct _ = constructDOMHTMLDocumentFgColor
getDOMHTMLDocumentHeight :: (MonadIO m, DOMHTMLDocumentK o) => o -> m Int64
getDOMHTMLDocumentHeight obj = liftIO $ getObjectPropertyInt64 obj "height"
data DOMHTMLDocumentHeightPropertyInfo
instance AttrInfo DOMHTMLDocumentHeightPropertyInfo where
type AttrAllowedOps DOMHTMLDocumentHeightPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLDocumentHeightPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLDocumentHeightPropertyInfo = DOMHTMLDocumentK
type AttrGetType DOMHTMLDocumentHeightPropertyInfo = Int64
type AttrLabel DOMHTMLDocumentHeightPropertyInfo = "DOMHTMLDocument::height"
attrGet _ = getDOMHTMLDocumentHeight
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLDocumentLinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text
getDOMHTMLDocumentLinkColor obj = liftIO $ getObjectPropertyString obj "link-color"
setDOMHTMLDocumentLinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m ()
setDOMHTMLDocumentLinkColor obj val = liftIO $ setObjectPropertyString obj "link-color" val
constructDOMHTMLDocumentLinkColor :: T.Text -> IO ([Char], GValue)
constructDOMHTMLDocumentLinkColor val = constructObjectPropertyString "link-color" val
data DOMHTMLDocumentLinkColorPropertyInfo
instance AttrInfo DOMHTMLDocumentLinkColorPropertyInfo where
type AttrAllowedOps DOMHTMLDocumentLinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLDocumentLinkColorPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLDocumentLinkColorPropertyInfo = DOMHTMLDocumentK
type AttrGetType DOMHTMLDocumentLinkColorPropertyInfo = T.Text
type AttrLabel DOMHTMLDocumentLinkColorPropertyInfo = "DOMHTMLDocument::link-color"
attrGet _ = getDOMHTMLDocumentLinkColor
attrSet _ = setDOMHTMLDocumentLinkColor
attrConstruct _ = constructDOMHTMLDocumentLinkColor
getDOMHTMLDocumentPlugins :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection
getDOMHTMLDocumentPlugins obj = liftIO $ getObjectPropertyObject obj "plugins" DOMHTMLCollection
data DOMHTMLDocumentPluginsPropertyInfo
instance AttrInfo DOMHTMLDocumentPluginsPropertyInfo where
type AttrAllowedOps DOMHTMLDocumentPluginsPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLDocumentPluginsPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLDocumentPluginsPropertyInfo = DOMHTMLDocumentK
type AttrGetType DOMHTMLDocumentPluginsPropertyInfo = DOMHTMLCollection
type AttrLabel DOMHTMLDocumentPluginsPropertyInfo = "DOMHTMLDocument::plugins"
attrGet _ = getDOMHTMLDocumentPlugins
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLDocumentScripts :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection
getDOMHTMLDocumentScripts obj = liftIO $ getObjectPropertyObject obj "scripts" DOMHTMLCollection
data DOMHTMLDocumentScriptsPropertyInfo
instance AttrInfo DOMHTMLDocumentScriptsPropertyInfo where
type AttrAllowedOps DOMHTMLDocumentScriptsPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLDocumentScriptsPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLDocumentScriptsPropertyInfo = DOMHTMLDocumentK
type AttrGetType DOMHTMLDocumentScriptsPropertyInfo = DOMHTMLCollection
type AttrLabel DOMHTMLDocumentScriptsPropertyInfo = "DOMHTMLDocument::scripts"
attrGet _ = getDOMHTMLDocumentScripts
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLDocumentVlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text
getDOMHTMLDocumentVlinkColor obj = liftIO $ getObjectPropertyString obj "vlink-color"
setDOMHTMLDocumentVlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m ()
setDOMHTMLDocumentVlinkColor obj val = liftIO $ setObjectPropertyString obj "vlink-color" val
constructDOMHTMLDocumentVlinkColor :: T.Text -> IO ([Char], GValue)
constructDOMHTMLDocumentVlinkColor val = constructObjectPropertyString "vlink-color" val
data DOMHTMLDocumentVlinkColorPropertyInfo
instance AttrInfo DOMHTMLDocumentVlinkColorPropertyInfo where
type AttrAllowedOps DOMHTMLDocumentVlinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMHTMLDocumentVlinkColorPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMHTMLDocumentVlinkColorPropertyInfo = DOMHTMLDocumentK
type AttrGetType DOMHTMLDocumentVlinkColorPropertyInfo = T.Text
type AttrLabel DOMHTMLDocumentVlinkColorPropertyInfo = "DOMHTMLDocument::vlink-color"
attrGet _ = getDOMHTMLDocumentVlinkColor
attrSet _ = setDOMHTMLDocumentVlinkColor
attrConstruct _ = constructDOMHTMLDocumentVlinkColor
getDOMHTMLDocumentWidth :: (MonadIO m, DOMHTMLDocumentK o) => o -> m Int64
getDOMHTMLDocumentWidth obj = liftIO $ getObjectPropertyInt64 obj "width"
data DOMHTMLDocumentWidthPropertyInfo
instance AttrInfo DOMHTMLDocumentWidthPropertyInfo where
type AttrAllowedOps DOMHTMLDocumentWidthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLDocumentWidthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLDocumentWidthPropertyInfo = DOMHTMLDocumentK
type AttrGetType DOMHTMLDocumentWidthPropertyInfo = Int64
type AttrLabel DOMHTMLDocumentWidthPropertyInfo = "DOMHTMLDocument::width"
attrGet _ = getDOMHTMLDocumentWidth
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMHTMLDocument = DOMHTMLDocumentAttributeList
type DOMHTMLDocumentAttributeList = ('[ '("active-element", DOMDocumentActiveElementPropertyInfo), '("alink-color", DOMHTMLDocumentAlinkColorPropertyInfo), '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLDocumentBgColorPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("character-set", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("child-element-count", DOMDocumentChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMDocumentChildrenPropertyInfo), '("compat-mode", DOMHTMLDocumentCompatModePropertyInfo), '("content-type", DOMDocumentContentTypePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-script", DOMDocumentCurrentScriptPropertyInfo), '("default-charset", DOMDocumentDefaultCharsetPropertyInfo), '("default-view", DOMDocumentDefaultViewPropertyInfo), '("design-mode", DOMHTMLDocumentDesignModePropertyInfo), '("dir", DOMHTMLDocumentDirPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("document-element", DOMDocumentDocumentElementPropertyInfo), '("document-uri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("embeds", DOMHTMLDocumentEmbedsPropertyInfo), '("fg-color", DOMHTMLDocumentFgColorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMDocumentFirstElementChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("height", DOMHTMLDocumentHeightPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("input-encoding", DOMDocumentInputEncodingPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMDocumentLastElementChildPropertyInfo), '("last-modified", DOMDocumentLastModifiedPropertyInfo), '("link-color", DOMHTMLDocumentLinkColorPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("origin", DOMDocumentOriginPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("plugins", DOMHTMLDocumentPluginsPropertyInfo), '("pointer-lock-element", DOMDocumentPointerLockElementPropertyInfo), '("preferred-stylesheet-set", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("scripts", DOMHTMLDocumentScriptsPropertyInfo), '("scrolling-element", DOMDocumentScrollingElementPropertyInfo), '("selected-stylesheet-set", DOMDocumentSelectedStylesheetSetPropertyInfo), '("style-sheets", DOMDocumentStyleSheetsPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibility-state", DOMDocumentVisibilityStatePropertyInfo), '("vlink-color", DOMHTMLDocumentVlinkColorPropertyInfo), '("webkit-current-full-screen-element", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkit-full-screen-keyboard-input-allowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkit-fullscreen-element", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkit-fullscreen-enabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkit-is-full-screen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("width", DOMHTMLDocumentWidthPropertyInfo), '("xml-encoding", DOMDocumentXmlEncodingPropertyInfo), '("xml-standalone", DOMDocumentXmlStandalonePropertyInfo), '("xml-version", DOMDocumentXmlVersionPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMHTMLDocument = DOMHTMLDocumentSignalList
type DOMHTMLDocumentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_html_document_capture_events" webkit_dom_html_document_capture_events ::
Ptr DOMHTMLDocument ->
IO ()
dOMHTMLDocumentCaptureEvents ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m ()
dOMHTMLDocumentCaptureEvents _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_document_capture_events _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_document_clear" webkit_dom_html_document_clear ::
Ptr DOMHTMLDocument ->
IO ()
dOMHTMLDocumentClear ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m ()
dOMHTMLDocumentClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_document_clear _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_document_close" webkit_dom_html_document_close ::
Ptr DOMHTMLDocument ->
IO ()
dOMHTMLDocumentClose ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m ()
dOMHTMLDocumentClose _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_document_close _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_document_get_alink_color" webkit_dom_html_document_get_alink_color ::
Ptr DOMHTMLDocument ->
IO CString
dOMHTMLDocumentGetAlinkColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m T.Text
dOMHTMLDocumentGetAlinkColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_alink_color _obj'
checkUnexpectedReturnNULL "webkit_dom_html_document_get_alink_color" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_document_get_bg_color" webkit_dom_html_document_get_bg_color ::
Ptr DOMHTMLDocument ->
IO CString
dOMHTMLDocumentGetBgColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m T.Text
dOMHTMLDocumentGetBgColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_bg_color _obj'
checkUnexpectedReturnNULL "webkit_dom_html_document_get_bg_color" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_document_get_compat_mode" webkit_dom_html_document_get_compat_mode ::
Ptr DOMHTMLDocument ->
IO CString
dOMHTMLDocumentGetCompatMode ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m T.Text
dOMHTMLDocumentGetCompatMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_compat_mode _obj'
checkUnexpectedReturnNULL "webkit_dom_html_document_get_compat_mode" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_document_get_design_mode" webkit_dom_html_document_get_design_mode ::
Ptr DOMHTMLDocument ->
IO CString
dOMHTMLDocumentGetDesignMode ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m T.Text
dOMHTMLDocumentGetDesignMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_design_mode _obj'
checkUnexpectedReturnNULL "webkit_dom_html_document_get_design_mode" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_document_get_dir" webkit_dom_html_document_get_dir ::
Ptr DOMHTMLDocument ->
IO CString
dOMHTMLDocumentGetDir ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m T.Text
dOMHTMLDocumentGetDir _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_dir _obj'
checkUnexpectedReturnNULL "webkit_dom_html_document_get_dir" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_document_get_embeds" webkit_dom_html_document_get_embeds ::
Ptr DOMHTMLDocument ->
IO (Ptr DOMHTMLCollection)
dOMHTMLDocumentGetEmbeds ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m DOMHTMLCollection
dOMHTMLDocumentGetEmbeds _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_embeds _obj'
checkUnexpectedReturnNULL "webkit_dom_html_document_get_embeds" result
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_document_get_fg_color" webkit_dom_html_document_get_fg_color ::
Ptr DOMHTMLDocument ->
IO CString
dOMHTMLDocumentGetFgColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m T.Text
dOMHTMLDocumentGetFgColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_fg_color _obj'
checkUnexpectedReturnNULL "webkit_dom_html_document_get_fg_color" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_document_get_height" webkit_dom_html_document_get_height ::
Ptr DOMHTMLDocument ->
IO Int64
dOMHTMLDocumentGetHeight ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m Int64
dOMHTMLDocumentGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_height _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_document_get_link_color" webkit_dom_html_document_get_link_color ::
Ptr DOMHTMLDocument ->
IO CString
dOMHTMLDocumentGetLinkColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m T.Text
dOMHTMLDocumentGetLinkColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_link_color _obj'
checkUnexpectedReturnNULL "webkit_dom_html_document_get_link_color" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_document_get_plugins" webkit_dom_html_document_get_plugins ::
Ptr DOMHTMLDocument ->
IO (Ptr DOMHTMLCollection)
dOMHTMLDocumentGetPlugins ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m DOMHTMLCollection
dOMHTMLDocumentGetPlugins _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_plugins _obj'
checkUnexpectedReturnNULL "webkit_dom_html_document_get_plugins" result
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_document_get_scripts" webkit_dom_html_document_get_scripts ::
Ptr DOMHTMLDocument ->
IO (Ptr DOMHTMLCollection)
dOMHTMLDocumentGetScripts ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m DOMHTMLCollection
dOMHTMLDocumentGetScripts _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_scripts _obj'
checkUnexpectedReturnNULL "webkit_dom_html_document_get_scripts" result
result' <- (wrapObject DOMHTMLCollection) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_document_get_vlink_color" webkit_dom_html_document_get_vlink_color ::
Ptr DOMHTMLDocument ->
IO CString
dOMHTMLDocumentGetVlinkColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m T.Text
dOMHTMLDocumentGetVlinkColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_vlink_color _obj'
checkUnexpectedReturnNULL "webkit_dom_html_document_get_vlink_color" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_document_get_width" webkit_dom_html_document_get_width ::
Ptr DOMHTMLDocument ->
IO Int64
dOMHTMLDocumentGetWidth ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m Int64
dOMHTMLDocumentGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_document_get_width _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_document_release_events" webkit_dom_html_document_release_events ::
Ptr DOMHTMLDocument ->
IO ()
dOMHTMLDocumentReleaseEvents ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
m ()
dOMHTMLDocumentReleaseEvents _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_document_release_events _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_document_set_alink_color" webkit_dom_html_document_set_alink_color ::
Ptr DOMHTMLDocument ->
CString ->
IO ()
dOMHTMLDocumentSetAlinkColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
T.Text ->
m ()
dOMHTMLDocumentSetAlinkColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_document_set_alink_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_document_set_bg_color" webkit_dom_html_document_set_bg_color ::
Ptr DOMHTMLDocument ->
CString ->
IO ()
dOMHTMLDocumentSetBgColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
T.Text ->
m ()
dOMHTMLDocumentSetBgColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_document_set_bg_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_document_set_design_mode" webkit_dom_html_document_set_design_mode ::
Ptr DOMHTMLDocument ->
CString ->
IO ()
dOMHTMLDocumentSetDesignMode ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
T.Text ->
m ()
dOMHTMLDocumentSetDesignMode _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_document_set_design_mode _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_document_set_dir" webkit_dom_html_document_set_dir ::
Ptr DOMHTMLDocument ->
CString ->
IO ()
dOMHTMLDocumentSetDir ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
T.Text ->
m ()
dOMHTMLDocumentSetDir _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_document_set_dir _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_document_set_fg_color" webkit_dom_html_document_set_fg_color ::
Ptr DOMHTMLDocument ->
CString ->
IO ()
dOMHTMLDocumentSetFgColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
T.Text ->
m ()
dOMHTMLDocumentSetFgColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_document_set_fg_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_document_set_link_color" webkit_dom_html_document_set_link_color ::
Ptr DOMHTMLDocument ->
CString ->
IO ()
dOMHTMLDocumentSetLinkColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
T.Text ->
m ()
dOMHTMLDocumentSetLinkColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_document_set_link_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_document_set_vlink_color" webkit_dom_html_document_set_vlink_color ::
Ptr DOMHTMLDocument ->
CString ->
IO ()
dOMHTMLDocumentSetVlinkColor ::
(MonadIO m, DOMHTMLDocumentK a) =>
a ->
T.Text ->
m ()
dOMHTMLDocumentSetVlinkColor _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_document_set_vlink_color _obj' value'
touchManagedPtr _obj
freeMem value'
return ()