{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement
(
DOMHTMLBodyElement(..) ,
IsDOMHTMLBodyElement ,
toDOMHTMLBodyElement ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMHTMLBodyElementMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementGetALinkMethodInfo ,
#endif
dOMHTMLBodyElementGetALink ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementGetBackgroundMethodInfo,
#endif
dOMHTMLBodyElementGetBackground ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementGetBgColorMethodInfo ,
#endif
dOMHTMLBodyElementGetBgColor ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementGetLinkMethodInfo ,
#endif
dOMHTMLBodyElementGetLink ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementGetTextMethodInfo ,
#endif
dOMHTMLBodyElementGetText ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementGetVLinkMethodInfo ,
#endif
dOMHTMLBodyElementGetVLink ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementSetALinkMethodInfo ,
#endif
dOMHTMLBodyElementSetALink ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementSetBackgroundMethodInfo,
#endif
dOMHTMLBodyElementSetBackground ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementSetBgColorMethodInfo ,
#endif
dOMHTMLBodyElementSetBgColor ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementSetLinkMethodInfo ,
#endif
dOMHTMLBodyElementSetLink ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementSetTextMethodInfo ,
#endif
dOMHTMLBodyElementSetText ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementSetVLinkMethodInfo ,
#endif
dOMHTMLBodyElementSetVLink ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementALinkPropertyInfo ,
#endif
constructDOMHTMLBodyElementALink ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLBodyElementALink ,
#endif
getDOMHTMLBodyElementALink ,
setDOMHTMLBodyElementALink ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementBackgroundPropertyInfo,
#endif
constructDOMHTMLBodyElementBackground ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLBodyElementBackground ,
#endif
getDOMHTMLBodyElementBackground ,
setDOMHTMLBodyElementBackground ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementBgColorPropertyInfo ,
#endif
constructDOMHTMLBodyElementBgColor ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLBodyElementBgColor ,
#endif
getDOMHTMLBodyElementBgColor ,
setDOMHTMLBodyElementBgColor ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementLinkPropertyInfo ,
#endif
constructDOMHTMLBodyElementLink ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLBodyElementLink ,
#endif
getDOMHTMLBodyElementLink ,
setDOMHTMLBodyElementLink ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementTextPropertyInfo ,
#endif
constructDOMHTMLBodyElementText ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLBodyElementText ,
#endif
getDOMHTMLBodyElementText ,
setDOMHTMLBodyElementText ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLBodyElementVLinkPropertyInfo ,
#endif
constructDOMHTMLBodyElementVLink ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLBodyElementVLink ,
#endif
getDOMHTMLBodyElementVLink ,
setDOMHTMLBodyElementVLink ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
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 Control.Monad.IO.Class as MIO
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 GHC.Records as R
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.DOMElement as WebKit2WebExtension.DOMElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMHTMLElement as WebKit2WebExtension.DOMHTMLElement
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMHTMLBodyElement = DOMHTMLBodyElement (SP.ManagedPtr DOMHTMLBodyElement)
deriving (DOMHTMLBodyElement -> DOMHTMLBodyElement -> Bool
(DOMHTMLBodyElement -> DOMHTMLBodyElement -> Bool)
-> (DOMHTMLBodyElement -> DOMHTMLBodyElement -> Bool)
-> Eq DOMHTMLBodyElement
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMHTMLBodyElement -> DOMHTMLBodyElement -> Bool
$c/= :: DOMHTMLBodyElement -> DOMHTMLBodyElement -> Bool
== :: DOMHTMLBodyElement -> DOMHTMLBodyElement -> Bool
$c== :: DOMHTMLBodyElement -> DOMHTMLBodyElement -> Bool
Eq)
instance SP.ManagedPtrNewtype DOMHTMLBodyElement where
toManagedPtr :: DOMHTMLBodyElement -> ManagedPtr DOMHTMLBodyElement
toManagedPtr (DOMHTMLBodyElement ManagedPtr DOMHTMLBodyElement
p) = ManagedPtr DOMHTMLBodyElement
p
foreign import ccall "webkit_dom_html_body_element_get_type"
c_webkit_dom_html_body_element_get_type :: IO B.Types.GType
instance B.Types.TypedObject DOMHTMLBodyElement where
glibType :: IO GType
glibType = IO GType
c_webkit_dom_html_body_element_get_type
instance B.Types.GObject DOMHTMLBodyElement
class (SP.GObject o, O.IsDescendantOf DOMHTMLBodyElement o) => IsDOMHTMLBodyElement o
instance (SP.GObject o, O.IsDescendantOf DOMHTMLBodyElement o) => IsDOMHTMLBodyElement o
instance O.HasParentTypes DOMHTMLBodyElement
type instance O.ParentTypes DOMHTMLBodyElement = '[WebKit2WebExtension.DOMHTMLElement.DOMHTMLElement, WebKit2WebExtension.DOMElement.DOMElement, WebKit2WebExtension.DOMNode.DOMNode, WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object, WebKit2WebExtension.DOMEventTarget.DOMEventTarget]
toDOMHTMLBodyElement :: (MIO.MonadIO m, IsDOMHTMLBodyElement o) => o -> m DOMHTMLBodyElement
toDOMHTMLBodyElement :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLBodyElement o) =>
o -> m DOMHTMLBodyElement
toDOMHTMLBodyElement = IO DOMHTMLBodyElement -> m DOMHTMLBodyElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMHTMLBodyElement -> m DOMHTMLBodyElement)
-> (o -> IO DOMHTMLBodyElement) -> o -> m DOMHTMLBodyElement
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMHTMLBodyElement -> DOMHTMLBodyElement)
-> o -> IO DOMHTMLBodyElement
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DOMHTMLBodyElement -> DOMHTMLBodyElement
DOMHTMLBodyElement
instance B.GValue.IsGValue (Maybe DOMHTMLBodyElement) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_dom_html_body_element_get_type
gvalueSet_ :: Ptr GValue -> Maybe DOMHTMLBodyElement -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DOMHTMLBodyElement
P.Nothing = Ptr GValue -> Ptr DOMHTMLBodyElement -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DOMHTMLBodyElement
forall a. Ptr a
FP.nullPtr :: FP.Ptr DOMHTMLBodyElement)
gvalueSet_ Ptr GValue
gv (P.Just DOMHTMLBodyElement
obj) = DOMHTMLBodyElement -> (Ptr DOMHTMLBodyElement -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMHTMLBodyElement
obj (Ptr GValue -> Ptr DOMHTMLBodyElement -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DOMHTMLBodyElement)
gvalueGet_ Ptr GValue
gv = do
Ptr DOMHTMLBodyElement
ptr <- Ptr GValue -> IO (Ptr DOMHTMLBodyElement)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DOMHTMLBodyElement)
if Ptr DOMHTMLBodyElement
ptr Ptr DOMHTMLBodyElement -> Ptr DOMHTMLBodyElement -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DOMHTMLBodyElement
forall a. Ptr a
FP.nullPtr
then DOMHTMLBodyElement -> Maybe DOMHTMLBodyElement
forall a. a -> Maybe a
P.Just (DOMHTMLBodyElement -> Maybe DOMHTMLBodyElement)
-> IO DOMHTMLBodyElement -> IO (Maybe DOMHTMLBodyElement)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DOMHTMLBodyElement -> DOMHTMLBodyElement)
-> Ptr DOMHTMLBodyElement -> IO DOMHTMLBodyElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMHTMLBodyElement -> DOMHTMLBodyElement
DOMHTMLBodyElement Ptr DOMHTMLBodyElement
ptr
else Maybe DOMHTMLBodyElement -> IO (Maybe DOMHTMLBodyElement)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMHTMLBodyElement
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMHTMLBodyElementMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMHTMLBodyElementMethod "addEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetAddEventListenerMethodInfo
ResolveDOMHTMLBodyElementMethod "appendChild" o = WebKit2WebExtension.DOMNode.DOMNodeAppendChildMethodInfo
ResolveDOMHTMLBodyElementMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMHTMLBodyElementMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMHTMLBodyElementMethod "blur" o = WebKit2WebExtension.DOMElement.DOMElementBlurMethodInfo
ResolveDOMHTMLBodyElementMethod "click" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementClickMethodInfo
ResolveDOMHTMLBodyElementMethod "cloneNodeWithError" o = WebKit2WebExtension.DOMNode.DOMNodeCloneNodeWithErrorMethodInfo
ResolveDOMHTMLBodyElementMethod "closest" o = WebKit2WebExtension.DOMElement.DOMElementClosestMethodInfo
ResolveDOMHTMLBodyElementMethod "compareDocumentPosition" o = WebKit2WebExtension.DOMNode.DOMNodeCompareDocumentPositionMethodInfo
ResolveDOMHTMLBodyElementMethod "contains" o = WebKit2WebExtension.DOMNode.DOMNodeContainsMethodInfo
ResolveDOMHTMLBodyElementMethod "dispatchEvent" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetDispatchEventMethodInfo
ResolveDOMHTMLBodyElementMethod "focus" o = WebKit2WebExtension.DOMElement.DOMElementFocusMethodInfo
ResolveDOMHTMLBodyElementMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMHTMLBodyElementMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMHTMLBodyElementMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMHTMLBodyElementMethod "hasAttribute" o = WebKit2WebExtension.DOMElement.DOMElementHasAttributeMethodInfo
ResolveDOMHTMLBodyElementMethod "hasAttributeNs" o = WebKit2WebExtension.DOMElement.DOMElementHasAttributeNsMethodInfo
ResolveDOMHTMLBodyElementMethod "hasAttributes" o = WebKit2WebExtension.DOMElement.DOMElementHasAttributesMethodInfo
ResolveDOMHTMLBodyElementMethod "hasChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeHasChildNodesMethodInfo
ResolveDOMHTMLBodyElementMethod "htmlInputElementGetAutoFilled" o = WebKit2WebExtension.DOMElement.DOMElementHtmlInputElementGetAutoFilledMethodInfo
ResolveDOMHTMLBodyElementMethod "htmlInputElementIsUserEdited" o = WebKit2WebExtension.DOMElement.DOMElementHtmlInputElementIsUserEditedMethodInfo
ResolveDOMHTMLBodyElementMethod "htmlInputElementSetAutoFilled" o = WebKit2WebExtension.DOMElement.DOMElementHtmlInputElementSetAutoFilledMethodInfo
ResolveDOMHTMLBodyElementMethod "htmlInputElementSetEditingValue" o = WebKit2WebExtension.DOMElement.DOMElementHtmlInputElementSetEditingValueMethodInfo
ResolveDOMHTMLBodyElementMethod "insertAdjacentElement" o = WebKit2WebExtension.DOMElement.DOMElementInsertAdjacentElementMethodInfo
ResolveDOMHTMLBodyElementMethod "insertAdjacentHtml" o = WebKit2WebExtension.DOMElement.DOMElementInsertAdjacentHtmlMethodInfo
ResolveDOMHTMLBodyElementMethod "insertAdjacentText" o = WebKit2WebExtension.DOMElement.DOMElementInsertAdjacentTextMethodInfo
ResolveDOMHTMLBodyElementMethod "insertBefore" o = WebKit2WebExtension.DOMNode.DOMNodeInsertBeforeMethodInfo
ResolveDOMHTMLBodyElementMethod "isDefaultNamespace" o = WebKit2WebExtension.DOMNode.DOMNodeIsDefaultNamespaceMethodInfo
ResolveDOMHTMLBodyElementMethod "isEqualNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsEqualNodeMethodInfo
ResolveDOMHTMLBodyElementMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMHTMLBodyElementMethod "isSameNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsSameNodeMethodInfo
ResolveDOMHTMLBodyElementMethod "isSupported" o = WebKit2WebExtension.DOMNode.DOMNodeIsSupportedMethodInfo
ResolveDOMHTMLBodyElementMethod "lookupNamespaceUri" o = WebKit2WebExtension.DOMNode.DOMNodeLookupNamespaceUriMethodInfo
ResolveDOMHTMLBodyElementMethod "lookupPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeLookupPrefixMethodInfo
ResolveDOMHTMLBodyElementMethod "matches" o = WebKit2WebExtension.DOMElement.DOMElementMatchesMethodInfo
ResolveDOMHTMLBodyElementMethod "normalize" o = WebKit2WebExtension.DOMNode.DOMNodeNormalizeMethodInfo
ResolveDOMHTMLBodyElementMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMHTMLBodyElementMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMHTMLBodyElementMethod "querySelector" o = WebKit2WebExtension.DOMElement.DOMElementQuerySelectorMethodInfo
ResolveDOMHTMLBodyElementMethod "querySelectorAll" o = WebKit2WebExtension.DOMElement.DOMElementQuerySelectorAllMethodInfo
ResolveDOMHTMLBodyElementMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMHTMLBodyElementMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMHTMLBodyElementMethod "remove" o = WebKit2WebExtension.DOMElement.DOMElementRemoveMethodInfo
ResolveDOMHTMLBodyElementMethod "removeAttribute" o = WebKit2WebExtension.DOMElement.DOMElementRemoveAttributeMethodInfo
ResolveDOMHTMLBodyElementMethod "removeAttributeNode" o = WebKit2WebExtension.DOMElement.DOMElementRemoveAttributeNodeMethodInfo
ResolveDOMHTMLBodyElementMethod "removeAttributeNs" o = WebKit2WebExtension.DOMElement.DOMElementRemoveAttributeNsMethodInfo
ResolveDOMHTMLBodyElementMethod "removeChild" o = WebKit2WebExtension.DOMNode.DOMNodeRemoveChildMethodInfo
ResolveDOMHTMLBodyElementMethod "removeEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetRemoveEventListenerMethodInfo
ResolveDOMHTMLBodyElementMethod "replaceChild" o = WebKit2WebExtension.DOMNode.DOMNodeReplaceChildMethodInfo
ResolveDOMHTMLBodyElementMethod "requestPointerLock" o = WebKit2WebExtension.DOMElement.DOMElementRequestPointerLockMethodInfo
ResolveDOMHTMLBodyElementMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMHTMLBodyElementMethod "scrollByLines" o = WebKit2WebExtension.DOMElement.DOMElementScrollByLinesMethodInfo
ResolveDOMHTMLBodyElementMethod "scrollByPages" o = WebKit2WebExtension.DOMElement.DOMElementScrollByPagesMethodInfo
ResolveDOMHTMLBodyElementMethod "scrollIntoView" o = WebKit2WebExtension.DOMElement.DOMElementScrollIntoViewMethodInfo
ResolveDOMHTMLBodyElementMethod "scrollIntoViewIfNeeded" o = WebKit2WebExtension.DOMElement.DOMElementScrollIntoViewIfNeededMethodInfo
ResolveDOMHTMLBodyElementMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMHTMLBodyElementMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMHTMLBodyElementMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMHTMLBodyElementMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMHTMLBodyElementMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMHTMLBodyElementMethod "webkitMatchesSelector" o = WebKit2WebExtension.DOMElement.DOMElementWebkitMatchesSelectorMethodInfo
ResolveDOMHTMLBodyElementMethod "webkitRequestFullscreen" o = WebKit2WebExtension.DOMElement.DOMElementWebkitRequestFullscreenMethodInfo
ResolveDOMHTMLBodyElementMethod "getALink" o = DOMHTMLBodyElementGetALinkMethodInfo
ResolveDOMHTMLBodyElementMethod "getAccessKey" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetAccessKeyMethodInfo
ResolveDOMHTMLBodyElementMethod "getAttribute" o = WebKit2WebExtension.DOMElement.DOMElementGetAttributeMethodInfo
ResolveDOMHTMLBodyElementMethod "getAttributeNode" o = WebKit2WebExtension.DOMElement.DOMElementGetAttributeNodeMethodInfo
ResolveDOMHTMLBodyElementMethod "getAttributeNodeNs" o = WebKit2WebExtension.DOMElement.DOMElementGetAttributeNodeNsMethodInfo
ResolveDOMHTMLBodyElementMethod "getAttributeNs" o = WebKit2WebExtension.DOMElement.DOMElementGetAttributeNsMethodInfo
ResolveDOMHTMLBodyElementMethod "getAttributes" o = WebKit2WebExtension.DOMElement.DOMElementGetAttributesMethodInfo
ResolveDOMHTMLBodyElementMethod "getBackground" o = DOMHTMLBodyElementGetBackgroundMethodInfo
ResolveDOMHTMLBodyElementMethod "getBaseUri" o = WebKit2WebExtension.DOMNode.DOMNodeGetBaseUriMethodInfo
ResolveDOMHTMLBodyElementMethod "getBgColor" o = DOMHTMLBodyElementGetBgColorMethodInfo
ResolveDOMHTMLBodyElementMethod "getBoundingClientRect" o = WebKit2WebExtension.DOMElement.DOMElementGetBoundingClientRectMethodInfo
ResolveDOMHTMLBodyElementMethod "getChildElementCount" o = WebKit2WebExtension.DOMElement.DOMElementGetChildElementCountMethodInfo
ResolveDOMHTMLBodyElementMethod "getChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeGetChildNodesMethodInfo
ResolveDOMHTMLBodyElementMethod "getChildren" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetChildrenMethodInfo
ResolveDOMHTMLBodyElementMethod "getClassList" o = WebKit2WebExtension.DOMElement.DOMElementGetClassListMethodInfo
ResolveDOMHTMLBodyElementMethod "getClassName" o = WebKit2WebExtension.DOMElement.DOMElementGetClassNameMethodInfo
ResolveDOMHTMLBodyElementMethod "getClientHeight" o = WebKit2WebExtension.DOMElement.DOMElementGetClientHeightMethodInfo
ResolveDOMHTMLBodyElementMethod "getClientLeft" o = WebKit2WebExtension.DOMElement.DOMElementGetClientLeftMethodInfo
ResolveDOMHTMLBodyElementMethod "getClientRects" o = WebKit2WebExtension.DOMElement.DOMElementGetClientRectsMethodInfo
ResolveDOMHTMLBodyElementMethod "getClientTop" o = WebKit2WebExtension.DOMElement.DOMElementGetClientTopMethodInfo
ResolveDOMHTMLBodyElementMethod "getClientWidth" o = WebKit2WebExtension.DOMElement.DOMElementGetClientWidthMethodInfo
ResolveDOMHTMLBodyElementMethod "getContentEditable" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetContentEditableMethodInfo
ResolveDOMHTMLBodyElementMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMHTMLBodyElementMethod "getDir" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetDirMethodInfo
ResolveDOMHTMLBodyElementMethod "getDraggable" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetDraggableMethodInfo
ResolveDOMHTMLBodyElementMethod "getElementsByClassName" o = WebKit2WebExtension.DOMElement.DOMElementGetElementsByClassNameMethodInfo
ResolveDOMHTMLBodyElementMethod "getElementsByClassNameAsHtmlCollection" o = WebKit2WebExtension.DOMElement.DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo
ResolveDOMHTMLBodyElementMethod "getElementsByTagName" o = WebKit2WebExtension.DOMElement.DOMElementGetElementsByTagNameMethodInfo
ResolveDOMHTMLBodyElementMethod "getElementsByTagNameAsHtmlCollection" o = WebKit2WebExtension.DOMElement.DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo
ResolveDOMHTMLBodyElementMethod "getElementsByTagNameNs" o = WebKit2WebExtension.DOMElement.DOMElementGetElementsByTagNameNsMethodInfo
ResolveDOMHTMLBodyElementMethod "getElementsByTagNameNsAsHtmlCollection" o = WebKit2WebExtension.DOMElement.DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo
ResolveDOMHTMLBodyElementMethod "getFirstChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetFirstChildMethodInfo
ResolveDOMHTMLBodyElementMethod "getFirstElementChild" o = WebKit2WebExtension.DOMElement.DOMElementGetFirstElementChildMethodInfo
ResolveDOMHTMLBodyElementMethod "getHidden" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetHiddenMethodInfo
ResolveDOMHTMLBodyElementMethod "getId" o = WebKit2WebExtension.DOMElement.DOMElementGetIdMethodInfo
ResolveDOMHTMLBodyElementMethod "getInnerHtml" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetInnerHtmlMethodInfo
ResolveDOMHTMLBodyElementMethod "getInnerText" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetInnerTextMethodInfo
ResolveDOMHTMLBodyElementMethod "getIsContentEditable" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetIsContentEditableMethodInfo
ResolveDOMHTMLBodyElementMethod "getLang" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetLangMethodInfo
ResolveDOMHTMLBodyElementMethod "getLastChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetLastChildMethodInfo
ResolveDOMHTMLBodyElementMethod "getLastElementChild" o = WebKit2WebExtension.DOMElement.DOMElementGetLastElementChildMethodInfo
ResolveDOMHTMLBodyElementMethod "getLink" o = DOMHTMLBodyElementGetLinkMethodInfo
ResolveDOMHTMLBodyElementMethod "getLocalName" o = WebKit2WebExtension.DOMElement.DOMElementGetLocalNameMethodInfo
ResolveDOMHTMLBodyElementMethod "getNamespaceUri" o = WebKit2WebExtension.DOMElement.DOMElementGetNamespaceUriMethodInfo
ResolveDOMHTMLBodyElementMethod "getNextElementSibling" o = WebKit2WebExtension.DOMElement.DOMElementGetNextElementSiblingMethodInfo
ResolveDOMHTMLBodyElementMethod "getNextSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetNextSiblingMethodInfo
ResolveDOMHTMLBodyElementMethod "getNodeName" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeNameMethodInfo
ResolveDOMHTMLBodyElementMethod "getNodeType" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeTypeMethodInfo
ResolveDOMHTMLBodyElementMethod "getNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeValueMethodInfo
ResolveDOMHTMLBodyElementMethod "getOffsetHeight" o = WebKit2WebExtension.DOMElement.DOMElementGetOffsetHeightMethodInfo
ResolveDOMHTMLBodyElementMethod "getOffsetLeft" o = WebKit2WebExtension.DOMElement.DOMElementGetOffsetLeftMethodInfo
ResolveDOMHTMLBodyElementMethod "getOffsetParent" o = WebKit2WebExtension.DOMElement.DOMElementGetOffsetParentMethodInfo
ResolveDOMHTMLBodyElementMethod "getOffsetTop" o = WebKit2WebExtension.DOMElement.DOMElementGetOffsetTopMethodInfo
ResolveDOMHTMLBodyElementMethod "getOffsetWidth" o = WebKit2WebExtension.DOMElement.DOMElementGetOffsetWidthMethodInfo
ResolveDOMHTMLBodyElementMethod "getOuterHtml" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetOuterHtmlMethodInfo
ResolveDOMHTMLBodyElementMethod "getOuterText" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetOuterTextMethodInfo
ResolveDOMHTMLBodyElementMethod "getOwnerDocument" o = WebKit2WebExtension.DOMNode.DOMNodeGetOwnerDocumentMethodInfo
ResolveDOMHTMLBodyElementMethod "getParentElement" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentElementMethodInfo
ResolveDOMHTMLBodyElementMethod "getParentNode" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentNodeMethodInfo
ResolveDOMHTMLBodyElementMethod "getPrefix" o = WebKit2WebExtension.DOMElement.DOMElementGetPrefixMethodInfo
ResolveDOMHTMLBodyElementMethod "getPreviousElementSibling" o = WebKit2WebExtension.DOMElement.DOMElementGetPreviousElementSiblingMethodInfo
ResolveDOMHTMLBodyElementMethod "getPreviousSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetPreviousSiblingMethodInfo
ResolveDOMHTMLBodyElementMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMHTMLBodyElementMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMHTMLBodyElementMethod "getScrollHeight" o = WebKit2WebExtension.DOMElement.DOMElementGetScrollHeightMethodInfo
ResolveDOMHTMLBodyElementMethod "getScrollLeft" o = WebKit2WebExtension.DOMElement.DOMElementGetScrollLeftMethodInfo
ResolveDOMHTMLBodyElementMethod "getScrollTop" o = WebKit2WebExtension.DOMElement.DOMElementGetScrollTopMethodInfo
ResolveDOMHTMLBodyElementMethod "getScrollWidth" o = WebKit2WebExtension.DOMElement.DOMElementGetScrollWidthMethodInfo
ResolveDOMHTMLBodyElementMethod "getSpellcheck" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetSpellcheckMethodInfo
ResolveDOMHTMLBodyElementMethod "getStyle" o = WebKit2WebExtension.DOMElement.DOMElementGetStyleMethodInfo
ResolveDOMHTMLBodyElementMethod "getTabIndex" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetTabIndexMethodInfo
ResolveDOMHTMLBodyElementMethod "getTagName" o = WebKit2WebExtension.DOMElement.DOMElementGetTagNameMethodInfo
ResolveDOMHTMLBodyElementMethod "getText" o = DOMHTMLBodyElementGetTextMethodInfo
ResolveDOMHTMLBodyElementMethod "getTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeGetTextContentMethodInfo
ResolveDOMHTMLBodyElementMethod "getTitle" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetTitleMethodInfo
ResolveDOMHTMLBodyElementMethod "getTranslate" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetTranslateMethodInfo
ResolveDOMHTMLBodyElementMethod "getVLink" o = DOMHTMLBodyElementGetVLinkMethodInfo
ResolveDOMHTMLBodyElementMethod "getWebkitRegionOverset" o = WebKit2WebExtension.DOMElement.DOMElementGetWebkitRegionOversetMethodInfo
ResolveDOMHTMLBodyElementMethod "getWebkitdropzone" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementGetWebkitdropzoneMethodInfo
ResolveDOMHTMLBodyElementMethod "setALink" o = DOMHTMLBodyElementSetALinkMethodInfo
ResolveDOMHTMLBodyElementMethod "setAccessKey" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetAccessKeyMethodInfo
ResolveDOMHTMLBodyElementMethod "setAttribute" o = WebKit2WebExtension.DOMElement.DOMElementSetAttributeMethodInfo
ResolveDOMHTMLBodyElementMethod "setAttributeNode" o = WebKit2WebExtension.DOMElement.DOMElementSetAttributeNodeMethodInfo
ResolveDOMHTMLBodyElementMethod "setAttributeNodeNs" o = WebKit2WebExtension.DOMElement.DOMElementSetAttributeNodeNsMethodInfo
ResolveDOMHTMLBodyElementMethod "setAttributeNs" o = WebKit2WebExtension.DOMElement.DOMElementSetAttributeNsMethodInfo
ResolveDOMHTMLBodyElementMethod "setBackground" o = DOMHTMLBodyElementSetBackgroundMethodInfo
ResolveDOMHTMLBodyElementMethod "setBgColor" o = DOMHTMLBodyElementSetBgColorMethodInfo
ResolveDOMHTMLBodyElementMethod "setClassName" o = WebKit2WebExtension.DOMElement.DOMElementSetClassNameMethodInfo
ResolveDOMHTMLBodyElementMethod "setContentEditable" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetContentEditableMethodInfo
ResolveDOMHTMLBodyElementMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMHTMLBodyElementMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMHTMLBodyElementMethod "setDir" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetDirMethodInfo
ResolveDOMHTMLBodyElementMethod "setDraggable" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetDraggableMethodInfo
ResolveDOMHTMLBodyElementMethod "setHidden" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetHiddenMethodInfo
ResolveDOMHTMLBodyElementMethod "setId" o = WebKit2WebExtension.DOMElement.DOMElementSetIdMethodInfo
ResolveDOMHTMLBodyElementMethod "setInnerHtml" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetInnerHtmlMethodInfo
ResolveDOMHTMLBodyElementMethod "setInnerText" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetInnerTextMethodInfo
ResolveDOMHTMLBodyElementMethod "setLang" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetLangMethodInfo
ResolveDOMHTMLBodyElementMethod "setLink" o = DOMHTMLBodyElementSetLinkMethodInfo
ResolveDOMHTMLBodyElementMethod "setNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeSetNodeValueMethodInfo
ResolveDOMHTMLBodyElementMethod "setOuterHtml" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetOuterHtmlMethodInfo
ResolveDOMHTMLBodyElementMethod "setOuterText" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetOuterTextMethodInfo
ResolveDOMHTMLBodyElementMethod "setPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeSetPrefixMethodInfo
ResolveDOMHTMLBodyElementMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMHTMLBodyElementMethod "setScrollLeft" o = WebKit2WebExtension.DOMElement.DOMElementSetScrollLeftMethodInfo
ResolveDOMHTMLBodyElementMethod "setScrollTop" o = WebKit2WebExtension.DOMElement.DOMElementSetScrollTopMethodInfo
ResolveDOMHTMLBodyElementMethod "setSpellcheck" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetSpellcheckMethodInfo
ResolveDOMHTMLBodyElementMethod "setTabIndex" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetTabIndexMethodInfo
ResolveDOMHTMLBodyElementMethod "setText" o = DOMHTMLBodyElementSetTextMethodInfo
ResolveDOMHTMLBodyElementMethod "setTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeSetTextContentMethodInfo
ResolveDOMHTMLBodyElementMethod "setTitle" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetTitleMethodInfo
ResolveDOMHTMLBodyElementMethod "setTranslate" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetTranslateMethodInfo
ResolveDOMHTMLBodyElementMethod "setVLink" o = DOMHTMLBodyElementSetVLinkMethodInfo
ResolveDOMHTMLBodyElementMethod "setWebkitdropzone" o = WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSetWebkitdropzoneMethodInfo
ResolveDOMHTMLBodyElementMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMHTMLBodyElementMethod t DOMHTMLBodyElement, O.OverloadedMethod info DOMHTMLBodyElement p) => OL.IsLabel t (DOMHTMLBodyElement -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveDOMHTMLBodyElementMethod t DOMHTMLBodyElement, O.OverloadedMethod info DOMHTMLBodyElement p, R.HasField t DOMHTMLBodyElement p) => R.HasField t DOMHTMLBodyElement p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDOMHTMLBodyElementMethod t DOMHTMLBodyElement, O.OverloadedMethodInfo info DOMHTMLBodyElement) => OL.IsLabel t (O.MethodProxy info DOMHTMLBodyElement) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDOMHTMLBodyElementALink :: (MonadIO m, IsDOMHTMLBodyElement o) => o -> m (Maybe T.Text)
getDOMHTMLBodyElementALink :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLBodyElement o) =>
o -> m (Maybe Text)
getDOMHTMLBodyElementALink o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"a-link"
setDOMHTMLBodyElementALink :: (MonadIO m, IsDOMHTMLBodyElement o) => o -> T.Text -> m ()
setDOMHTMLBodyElementALink :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLBodyElement o) =>
o -> Text -> m ()
setDOMHTMLBodyElementALink o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"a-link" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMHTMLBodyElementALink :: (IsDOMHTMLBodyElement o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMHTMLBodyElementALink :: forall o (m :: * -> *).
(IsDOMHTMLBodyElement o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMHTMLBodyElementALink Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"a-link" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLBodyElementALinkPropertyInfo
instance AttrInfo DOMHTMLBodyElementALinkPropertyInfo where
type AttrAllowedOps DOMHTMLBodyElementALinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLBodyElementALinkPropertyInfo = IsDOMHTMLBodyElement
type AttrSetTypeConstraint DOMHTMLBodyElementALinkPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMHTMLBodyElementALinkPropertyInfo = (~) T.Text
type AttrTransferType DOMHTMLBodyElementALinkPropertyInfo = T.Text
type AttrGetType DOMHTMLBodyElementALinkPropertyInfo = (Maybe T.Text)
type AttrLabel DOMHTMLBodyElementALinkPropertyInfo = "a-link"
type AttrOrigin DOMHTMLBodyElementALinkPropertyInfo = DOMHTMLBodyElement
attrGet = getDOMHTMLBodyElementALink
attrSet = setDOMHTMLBodyElementALink
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLBodyElementALink
attrClear = undefined
#endif
getDOMHTMLBodyElementBackground :: (MonadIO m, IsDOMHTMLBodyElement o) => o -> m (Maybe T.Text)
getDOMHTMLBodyElementBackground :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLBodyElement o) =>
o -> m (Maybe Text)
getDOMHTMLBodyElementBackground o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"background"
setDOMHTMLBodyElementBackground :: (MonadIO m, IsDOMHTMLBodyElement o) => o -> T.Text -> m ()
setDOMHTMLBodyElementBackground :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLBodyElement o) =>
o -> Text -> m ()
setDOMHTMLBodyElementBackground o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"background" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMHTMLBodyElementBackground :: (IsDOMHTMLBodyElement o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMHTMLBodyElementBackground :: forall o (m :: * -> *).
(IsDOMHTMLBodyElement o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMHTMLBodyElementBackground Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"background" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLBodyElementBackgroundPropertyInfo
instance AttrInfo DOMHTMLBodyElementBackgroundPropertyInfo where
type AttrAllowedOps DOMHTMLBodyElementBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLBodyElementBackgroundPropertyInfo = IsDOMHTMLBodyElement
type AttrSetTypeConstraint DOMHTMLBodyElementBackgroundPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMHTMLBodyElementBackgroundPropertyInfo = (~) T.Text
type AttrTransferType DOMHTMLBodyElementBackgroundPropertyInfo = T.Text
type AttrGetType DOMHTMLBodyElementBackgroundPropertyInfo = (Maybe T.Text)
type AttrLabel DOMHTMLBodyElementBackgroundPropertyInfo = "background"
type AttrOrigin DOMHTMLBodyElementBackgroundPropertyInfo = DOMHTMLBodyElement
attrGet = getDOMHTMLBodyElementBackground
attrSet = setDOMHTMLBodyElementBackground
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLBodyElementBackground
attrClear = undefined
#endif
getDOMHTMLBodyElementBgColor :: (MonadIO m, IsDOMHTMLBodyElement o) => o -> m (Maybe T.Text)
getDOMHTMLBodyElementBgColor :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLBodyElement o) =>
o -> m (Maybe Text)
getDOMHTMLBodyElementBgColor o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"bg-color"
setDOMHTMLBodyElementBgColor :: (MonadIO m, IsDOMHTMLBodyElement o) => o -> T.Text -> m ()
setDOMHTMLBodyElementBgColor :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLBodyElement o) =>
o -> Text -> m ()
setDOMHTMLBodyElementBgColor o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"bg-color" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMHTMLBodyElementBgColor :: (IsDOMHTMLBodyElement o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMHTMLBodyElementBgColor :: forall o (m :: * -> *).
(IsDOMHTMLBodyElement o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMHTMLBodyElementBgColor Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"bg-color" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLBodyElementBgColorPropertyInfo
instance AttrInfo DOMHTMLBodyElementBgColorPropertyInfo where
type AttrAllowedOps DOMHTMLBodyElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLBodyElementBgColorPropertyInfo = IsDOMHTMLBodyElement
type AttrSetTypeConstraint DOMHTMLBodyElementBgColorPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMHTMLBodyElementBgColorPropertyInfo = (~) T.Text
type AttrTransferType DOMHTMLBodyElementBgColorPropertyInfo = T.Text
type AttrGetType DOMHTMLBodyElementBgColorPropertyInfo = (Maybe T.Text)
type AttrLabel DOMHTMLBodyElementBgColorPropertyInfo = "bg-color"
type AttrOrigin DOMHTMLBodyElementBgColorPropertyInfo = DOMHTMLBodyElement
attrGet = getDOMHTMLBodyElementBgColor
attrSet = setDOMHTMLBodyElementBgColor
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLBodyElementBgColor
attrClear = undefined
#endif
getDOMHTMLBodyElementLink :: (MonadIO m, IsDOMHTMLBodyElement o) => o -> m (Maybe T.Text)
getDOMHTMLBodyElementLink :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLBodyElement o) =>
o -> m (Maybe Text)
getDOMHTMLBodyElementLink o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"link"
setDOMHTMLBodyElementLink :: (MonadIO m, IsDOMHTMLBodyElement o) => o -> T.Text -> m ()
setDOMHTMLBodyElementLink :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLBodyElement o) =>
o -> Text -> m ()
setDOMHTMLBodyElementLink o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"link" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMHTMLBodyElementLink :: (IsDOMHTMLBodyElement o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMHTMLBodyElementLink :: forall o (m :: * -> *).
(IsDOMHTMLBodyElement o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMHTMLBodyElementLink Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"link" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLBodyElementLinkPropertyInfo
instance AttrInfo DOMHTMLBodyElementLinkPropertyInfo where
type AttrAllowedOps DOMHTMLBodyElementLinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLBodyElementLinkPropertyInfo = IsDOMHTMLBodyElement
type AttrSetTypeConstraint DOMHTMLBodyElementLinkPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMHTMLBodyElementLinkPropertyInfo = (~) T.Text
type AttrTransferType DOMHTMLBodyElementLinkPropertyInfo = T.Text
type AttrGetType DOMHTMLBodyElementLinkPropertyInfo = (Maybe T.Text)
type AttrLabel DOMHTMLBodyElementLinkPropertyInfo = "link"
type AttrOrigin DOMHTMLBodyElementLinkPropertyInfo = DOMHTMLBodyElement
attrGet = getDOMHTMLBodyElementLink
attrSet = setDOMHTMLBodyElementLink
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLBodyElementLink
attrClear = undefined
#endif
getDOMHTMLBodyElementText :: (MonadIO m, IsDOMHTMLBodyElement o) => o -> m (Maybe T.Text)
getDOMHTMLBodyElementText :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLBodyElement o) =>
o -> m (Maybe Text)
getDOMHTMLBodyElementText o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"text"
setDOMHTMLBodyElementText :: (MonadIO m, IsDOMHTMLBodyElement o) => o -> T.Text -> m ()
setDOMHTMLBodyElementText :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLBodyElement o) =>
o -> Text -> m ()
setDOMHTMLBodyElementText o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMHTMLBodyElementText :: (IsDOMHTMLBodyElement o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMHTMLBodyElementText :: forall o (m :: * -> *).
(IsDOMHTMLBodyElement o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMHTMLBodyElementText Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"text" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLBodyElementTextPropertyInfo
instance AttrInfo DOMHTMLBodyElementTextPropertyInfo where
type AttrAllowedOps DOMHTMLBodyElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLBodyElementTextPropertyInfo = IsDOMHTMLBodyElement
type AttrSetTypeConstraint DOMHTMLBodyElementTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMHTMLBodyElementTextPropertyInfo = (~) T.Text
type AttrTransferType DOMHTMLBodyElementTextPropertyInfo = T.Text
type AttrGetType DOMHTMLBodyElementTextPropertyInfo = (Maybe T.Text)
type AttrLabel DOMHTMLBodyElementTextPropertyInfo = "text"
type AttrOrigin DOMHTMLBodyElementTextPropertyInfo = DOMHTMLBodyElement
attrGet = getDOMHTMLBodyElementText
attrSet = setDOMHTMLBodyElementText
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLBodyElementText
attrClear = undefined
#endif
getDOMHTMLBodyElementVLink :: (MonadIO m, IsDOMHTMLBodyElement o) => o -> m (Maybe T.Text)
getDOMHTMLBodyElementVLink :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLBodyElement o) =>
o -> m (Maybe Text)
getDOMHTMLBodyElementVLink o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"v-link"
setDOMHTMLBodyElementVLink :: (MonadIO m, IsDOMHTMLBodyElement o) => o -> T.Text -> m ()
setDOMHTMLBodyElementVLink :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLBodyElement o) =>
o -> Text -> m ()
setDOMHTMLBodyElementVLink o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"v-link" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMHTMLBodyElementVLink :: (IsDOMHTMLBodyElement o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMHTMLBodyElementVLink :: forall o (m :: * -> *).
(IsDOMHTMLBodyElement o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMHTMLBodyElementVLink Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"v-link" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLBodyElementVLinkPropertyInfo
instance AttrInfo DOMHTMLBodyElementVLinkPropertyInfo where
type AttrAllowedOps DOMHTMLBodyElementVLinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLBodyElementVLinkPropertyInfo = IsDOMHTMLBodyElement
type AttrSetTypeConstraint DOMHTMLBodyElementVLinkPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMHTMLBodyElementVLinkPropertyInfo = (~) T.Text
type AttrTransferType DOMHTMLBodyElementVLinkPropertyInfo = T.Text
type AttrGetType DOMHTMLBodyElementVLinkPropertyInfo = (Maybe T.Text)
type AttrLabel DOMHTMLBodyElementVLinkPropertyInfo = "v-link"
type AttrOrigin DOMHTMLBodyElementVLinkPropertyInfo = DOMHTMLBodyElement
attrGet = getDOMHTMLBodyElementVLink
attrSet = setDOMHTMLBodyElementVLink
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLBodyElementVLink
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMHTMLBodyElement
type instance O.AttributeList DOMHTMLBodyElement = DOMHTMLBodyElementAttributeList
type DOMHTMLBodyElementAttributeList = ('[ '("aLink", DOMHTMLBodyElementALinkPropertyInfo), '("accessKey", WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementAccessKeyPropertyInfo), '("attributes", WebKit2WebExtension.DOMElement.DOMElementAttributesPropertyInfo), '("background", DOMHTMLBodyElementBackgroundPropertyInfo), '("baseUri", WebKit2WebExtension.DOMNode.DOMNodeBaseUriPropertyInfo), '("bgColor", DOMHTMLBodyElementBgColorPropertyInfo), '("childElementCount", WebKit2WebExtension.DOMElement.DOMElementChildElementCountPropertyInfo), '("childNodes", WebKit2WebExtension.DOMNode.DOMNodeChildNodesPropertyInfo), '("children", WebKit2WebExtension.DOMElement.DOMElementChildrenPropertyInfo), '("classList", WebKit2WebExtension.DOMElement.DOMElementClassListPropertyInfo), '("className", WebKit2WebExtension.DOMElement.DOMElementClassNamePropertyInfo), '("clientHeight", WebKit2WebExtension.DOMElement.DOMElementClientHeightPropertyInfo), '("clientLeft", WebKit2WebExtension.DOMElement.DOMElementClientLeftPropertyInfo), '("clientTop", WebKit2WebExtension.DOMElement.DOMElementClientTopPropertyInfo), '("clientWidth", WebKit2WebExtension.DOMElement.DOMElementClientWidthPropertyInfo), '("contentEditable", WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementContentEditablePropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("dir", WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementDirPropertyInfo), '("draggable", WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementDraggablePropertyInfo), '("firstChild", WebKit2WebExtension.DOMNode.DOMNodeFirstChildPropertyInfo), '("firstElementChild", WebKit2WebExtension.DOMElement.DOMElementFirstElementChildPropertyInfo), '("hidden", WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementHiddenPropertyInfo), '("id", WebKit2WebExtension.DOMElement.DOMElementIdPropertyInfo), '("innerHtml", WebKit2WebExtension.DOMElement.DOMElementInnerHtmlPropertyInfo), '("innerText", WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementIsContentEditablePropertyInfo), '("lang", WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementLangPropertyInfo), '("lastChild", WebKit2WebExtension.DOMNode.DOMNodeLastChildPropertyInfo), '("lastElementChild", WebKit2WebExtension.DOMElement.DOMElementLastElementChildPropertyInfo), '("link", DOMHTMLBodyElementLinkPropertyInfo), '("localName", WebKit2WebExtension.DOMElement.DOMElementLocalNamePropertyInfo), '("namespaceUri", WebKit2WebExtension.DOMElement.DOMElementNamespaceUriPropertyInfo), '("nextElementSibling", WebKit2WebExtension.DOMElement.DOMElementNextElementSiblingPropertyInfo), '("nextSibling", WebKit2WebExtension.DOMNode.DOMNodeNextSiblingPropertyInfo), '("nodeName", WebKit2WebExtension.DOMNode.DOMNodeNodeNamePropertyInfo), '("nodeType", WebKit2WebExtension.DOMNode.DOMNodeNodeTypePropertyInfo), '("nodeValue", WebKit2WebExtension.DOMNode.DOMNodeNodeValuePropertyInfo), '("offsetHeight", WebKit2WebExtension.DOMElement.DOMElementOffsetHeightPropertyInfo), '("offsetLeft", WebKit2WebExtension.DOMElement.DOMElementOffsetLeftPropertyInfo), '("offsetParent", WebKit2WebExtension.DOMElement.DOMElementOffsetParentPropertyInfo), '("offsetTop", WebKit2WebExtension.DOMElement.DOMElementOffsetTopPropertyInfo), '("offsetWidth", WebKit2WebExtension.DOMElement.DOMElementOffsetWidthPropertyInfo), '("outerHtml", WebKit2WebExtension.DOMElement.DOMElementOuterHtmlPropertyInfo), '("outerText", WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementOuterTextPropertyInfo), '("ownerDocument", WebKit2WebExtension.DOMNode.DOMNodeOwnerDocumentPropertyInfo), '("parentElement", WebKit2WebExtension.DOMNode.DOMNodeParentElementPropertyInfo), '("parentNode", WebKit2WebExtension.DOMNode.DOMNodeParentNodePropertyInfo), '("prefix", WebKit2WebExtension.DOMElement.DOMElementPrefixPropertyInfo), '("previousElementSibling", WebKit2WebExtension.DOMElement.DOMElementPreviousElementSiblingPropertyInfo), '("previousSibling", WebKit2WebExtension.DOMNode.DOMNodePreviousSiblingPropertyInfo), '("scrollHeight", WebKit2WebExtension.DOMElement.DOMElementScrollHeightPropertyInfo), '("scrollLeft", WebKit2WebExtension.DOMElement.DOMElementScrollLeftPropertyInfo), '("scrollTop", WebKit2WebExtension.DOMElement.DOMElementScrollTopPropertyInfo), '("scrollWidth", WebKit2WebExtension.DOMElement.DOMElementScrollWidthPropertyInfo), '("spellcheck", WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementSpellcheckPropertyInfo), '("style", WebKit2WebExtension.DOMElement.DOMElementStylePropertyInfo), '("tabIndex", WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementTabIndexPropertyInfo), '("tagName", WebKit2WebExtension.DOMElement.DOMElementTagNamePropertyInfo), '("text", DOMHTMLBodyElementTextPropertyInfo), '("textContent", WebKit2WebExtension.DOMNode.DOMNodeTextContentPropertyInfo), '("title", WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementTitlePropertyInfo), '("translate", WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementTranslatePropertyInfo), '("vLink", DOMHTMLBodyElementVLinkPropertyInfo), '("webkitRegionOverset", WebKit2WebExtension.DOMElement.DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", WebKit2WebExtension.DOMHTMLElement.DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMHTMLBodyElementALink :: AttrLabelProxy "aLink"
dOMHTMLBodyElementALink = AttrLabelProxy
dOMHTMLBodyElementBackground :: AttrLabelProxy "background"
dOMHTMLBodyElementBackground = AttrLabelProxy
dOMHTMLBodyElementBgColor :: AttrLabelProxy "bgColor"
dOMHTMLBodyElementBgColor = AttrLabelProxy
dOMHTMLBodyElementLink :: AttrLabelProxy "link"
dOMHTMLBodyElementLink = AttrLabelProxy
dOMHTMLBodyElementText :: AttrLabelProxy "text"
dOMHTMLBodyElementText = AttrLabelProxy
dOMHTMLBodyElementVLink :: AttrLabelProxy "vLink"
dOMHTMLBodyElementVLink = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMHTMLBodyElement = DOMHTMLBodyElementSignalList
type DOMHTMLBodyElementSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_html_body_element_get_a_link" webkit_dom_html_body_element_get_a_link ::
Ptr DOMHTMLBodyElement ->
IO CString
{-# DEPRECATED dOMHTMLBodyElementGetALink ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLBodyElementGetALink ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a
-> m T.Text
dOMHTMLBodyElementGetALink :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a -> m Text
dOMHTMLBodyElementGetALink 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 DOMHTMLBodyElement
self' <- a -> IO (Ptr DOMHTMLBodyElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLBodyElement -> IO CString
webkit_dom_html_body_element_get_a_link Ptr DOMHTMLBodyElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLBodyElementGetALink" 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 DOMHTMLBodyElementGetALinkMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLBodyElement a) => O.OverloadedMethod DOMHTMLBodyElementGetALinkMethodInfo a signature where
overloadedMethod = dOMHTMLBodyElementGetALink
instance O.OverloadedMethodInfo DOMHTMLBodyElementGetALinkMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement.dOMHTMLBodyElementGetALink",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMHTMLBodyElement.html#v:dOMHTMLBodyElementGetALink"
}
#endif
foreign import ccall "webkit_dom_html_body_element_get_background" webkit_dom_html_body_element_get_background ::
Ptr DOMHTMLBodyElement ->
IO CString
{-# DEPRECATED dOMHTMLBodyElementGetBackground ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLBodyElementGetBackground ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a
-> m T.Text
dOMHTMLBodyElementGetBackground :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a -> m Text
dOMHTMLBodyElementGetBackground 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 DOMHTMLBodyElement
self' <- a -> IO (Ptr DOMHTMLBodyElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLBodyElement -> IO CString
webkit_dom_html_body_element_get_background Ptr DOMHTMLBodyElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLBodyElementGetBackground" 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 DOMHTMLBodyElementGetBackgroundMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLBodyElement a) => O.OverloadedMethod DOMHTMLBodyElementGetBackgroundMethodInfo a signature where
overloadedMethod = dOMHTMLBodyElementGetBackground
instance O.OverloadedMethodInfo DOMHTMLBodyElementGetBackgroundMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement.dOMHTMLBodyElementGetBackground",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMHTMLBodyElement.html#v:dOMHTMLBodyElementGetBackground"
}
#endif
foreign import ccall "webkit_dom_html_body_element_get_bg_color" webkit_dom_html_body_element_get_bg_color ::
Ptr DOMHTMLBodyElement ->
IO CString
{-# DEPRECATED dOMHTMLBodyElementGetBgColor ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLBodyElementGetBgColor ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a
-> m T.Text
dOMHTMLBodyElementGetBgColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a -> m Text
dOMHTMLBodyElementGetBgColor 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 DOMHTMLBodyElement
self' <- a -> IO (Ptr DOMHTMLBodyElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLBodyElement -> IO CString
webkit_dom_html_body_element_get_bg_color Ptr DOMHTMLBodyElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLBodyElementGetBgColor" 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 DOMHTMLBodyElementGetBgColorMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLBodyElement a) => O.OverloadedMethod DOMHTMLBodyElementGetBgColorMethodInfo a signature where
overloadedMethod = dOMHTMLBodyElementGetBgColor
instance O.OverloadedMethodInfo DOMHTMLBodyElementGetBgColorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement.dOMHTMLBodyElementGetBgColor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMHTMLBodyElement.html#v:dOMHTMLBodyElementGetBgColor"
}
#endif
foreign import ccall "webkit_dom_html_body_element_get_link" webkit_dom_html_body_element_get_link ::
Ptr DOMHTMLBodyElement ->
IO CString
{-# DEPRECATED dOMHTMLBodyElementGetLink ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLBodyElementGetLink ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a
-> m T.Text
dOMHTMLBodyElementGetLink :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a -> m Text
dOMHTMLBodyElementGetLink 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 DOMHTMLBodyElement
self' <- a -> IO (Ptr DOMHTMLBodyElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLBodyElement -> IO CString
webkit_dom_html_body_element_get_link Ptr DOMHTMLBodyElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLBodyElementGetLink" 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 DOMHTMLBodyElementGetLinkMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLBodyElement a) => O.OverloadedMethod DOMHTMLBodyElementGetLinkMethodInfo a signature where
overloadedMethod = dOMHTMLBodyElementGetLink
instance O.OverloadedMethodInfo DOMHTMLBodyElementGetLinkMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement.dOMHTMLBodyElementGetLink",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMHTMLBodyElement.html#v:dOMHTMLBodyElementGetLink"
}
#endif
foreign import ccall "webkit_dom_html_body_element_get_text" webkit_dom_html_body_element_get_text ::
Ptr DOMHTMLBodyElement ->
IO CString
{-# DEPRECATED dOMHTMLBodyElementGetText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLBodyElementGetText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a
-> m T.Text
dOMHTMLBodyElementGetText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a -> m Text
dOMHTMLBodyElementGetText 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 DOMHTMLBodyElement
self' <- a -> IO (Ptr DOMHTMLBodyElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLBodyElement -> IO CString
webkit_dom_html_body_element_get_text Ptr DOMHTMLBodyElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLBodyElementGetText" 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 DOMHTMLBodyElementGetTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLBodyElement a) => O.OverloadedMethod DOMHTMLBodyElementGetTextMethodInfo a signature where
overloadedMethod = dOMHTMLBodyElementGetText
instance O.OverloadedMethodInfo DOMHTMLBodyElementGetTextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement.dOMHTMLBodyElementGetText",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMHTMLBodyElement.html#v:dOMHTMLBodyElementGetText"
}
#endif
foreign import ccall "webkit_dom_html_body_element_get_v_link" webkit_dom_html_body_element_get_v_link ::
Ptr DOMHTMLBodyElement ->
IO CString
{-# DEPRECATED dOMHTMLBodyElementGetVLink ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLBodyElementGetVLink ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a
-> m T.Text
dOMHTMLBodyElementGetVLink :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a -> m Text
dOMHTMLBodyElementGetVLink 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 DOMHTMLBodyElement
self' <- a -> IO (Ptr DOMHTMLBodyElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLBodyElement -> IO CString
webkit_dom_html_body_element_get_v_link Ptr DOMHTMLBodyElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLBodyElementGetVLink" 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 DOMHTMLBodyElementGetVLinkMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLBodyElement a) => O.OverloadedMethod DOMHTMLBodyElementGetVLinkMethodInfo a signature where
overloadedMethod = dOMHTMLBodyElementGetVLink
instance O.OverloadedMethodInfo DOMHTMLBodyElementGetVLinkMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement.dOMHTMLBodyElementGetVLink",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMHTMLBodyElement.html#v:dOMHTMLBodyElementGetVLink"
}
#endif
foreign import ccall "webkit_dom_html_body_element_set_a_link" webkit_dom_html_body_element_set_a_link ::
Ptr DOMHTMLBodyElement ->
CString ->
IO ()
{-# DEPRECATED dOMHTMLBodyElementSetALink ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLBodyElementSetALink ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a
-> T.Text
-> m ()
dOMHTMLBodyElementSetALink :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a -> Text -> m ()
dOMHTMLBodyElementSetALink a
self Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLBodyElement
self' <- a -> IO (Ptr DOMHTMLBodyElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMHTMLBodyElement -> CString -> IO ()
webkit_dom_html_body_element_set_a_link Ptr DOMHTMLBodyElement
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLBodyElementSetALinkMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLBodyElement a) => O.OverloadedMethod DOMHTMLBodyElementSetALinkMethodInfo a signature where
overloadedMethod = dOMHTMLBodyElementSetALink
instance O.OverloadedMethodInfo DOMHTMLBodyElementSetALinkMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement.dOMHTMLBodyElementSetALink",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMHTMLBodyElement.html#v:dOMHTMLBodyElementSetALink"
}
#endif
foreign import ccall "webkit_dom_html_body_element_set_background" webkit_dom_html_body_element_set_background ::
Ptr DOMHTMLBodyElement ->
CString ->
IO ()
{-# DEPRECATED dOMHTMLBodyElementSetBackground ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLBodyElementSetBackground ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a
-> T.Text
-> m ()
dOMHTMLBodyElementSetBackground :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a -> Text -> m ()
dOMHTMLBodyElementSetBackground a
self Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLBodyElement
self' <- a -> IO (Ptr DOMHTMLBodyElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMHTMLBodyElement -> CString -> IO ()
webkit_dom_html_body_element_set_background Ptr DOMHTMLBodyElement
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLBodyElementSetBackgroundMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLBodyElement a) => O.OverloadedMethod DOMHTMLBodyElementSetBackgroundMethodInfo a signature where
overloadedMethod = dOMHTMLBodyElementSetBackground
instance O.OverloadedMethodInfo DOMHTMLBodyElementSetBackgroundMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement.dOMHTMLBodyElementSetBackground",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMHTMLBodyElement.html#v:dOMHTMLBodyElementSetBackground"
}
#endif
foreign import ccall "webkit_dom_html_body_element_set_bg_color" webkit_dom_html_body_element_set_bg_color ::
Ptr DOMHTMLBodyElement ->
CString ->
IO ()
{-# DEPRECATED dOMHTMLBodyElementSetBgColor ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLBodyElementSetBgColor ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a
-> T.Text
-> m ()
dOMHTMLBodyElementSetBgColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a -> Text -> m ()
dOMHTMLBodyElementSetBgColor a
self Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLBodyElement
self' <- a -> IO (Ptr DOMHTMLBodyElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMHTMLBodyElement -> CString -> IO ()
webkit_dom_html_body_element_set_bg_color Ptr DOMHTMLBodyElement
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLBodyElementSetBgColorMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLBodyElement a) => O.OverloadedMethod DOMHTMLBodyElementSetBgColorMethodInfo a signature where
overloadedMethod = dOMHTMLBodyElementSetBgColor
instance O.OverloadedMethodInfo DOMHTMLBodyElementSetBgColorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement.dOMHTMLBodyElementSetBgColor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMHTMLBodyElement.html#v:dOMHTMLBodyElementSetBgColor"
}
#endif
foreign import ccall "webkit_dom_html_body_element_set_link" webkit_dom_html_body_element_set_link ::
Ptr DOMHTMLBodyElement ->
CString ->
IO ()
{-# DEPRECATED dOMHTMLBodyElementSetLink ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLBodyElementSetLink ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a
-> T.Text
-> m ()
dOMHTMLBodyElementSetLink :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a -> Text -> m ()
dOMHTMLBodyElementSetLink a
self Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLBodyElement
self' <- a -> IO (Ptr DOMHTMLBodyElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMHTMLBodyElement -> CString -> IO ()
webkit_dom_html_body_element_set_link Ptr DOMHTMLBodyElement
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLBodyElementSetLinkMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLBodyElement a) => O.OverloadedMethod DOMHTMLBodyElementSetLinkMethodInfo a signature where
overloadedMethod = dOMHTMLBodyElementSetLink
instance O.OverloadedMethodInfo DOMHTMLBodyElementSetLinkMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement.dOMHTMLBodyElementSetLink",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMHTMLBodyElement.html#v:dOMHTMLBodyElementSetLink"
}
#endif
foreign import ccall "webkit_dom_html_body_element_set_text" webkit_dom_html_body_element_set_text ::
Ptr DOMHTMLBodyElement ->
CString ->
IO ()
{-# DEPRECATED dOMHTMLBodyElementSetText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLBodyElementSetText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a
-> T.Text
-> m ()
dOMHTMLBodyElementSetText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a -> Text -> m ()
dOMHTMLBodyElementSetText a
self Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLBodyElement
self' <- a -> IO (Ptr DOMHTMLBodyElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMHTMLBodyElement -> CString -> IO ()
webkit_dom_html_body_element_set_text Ptr DOMHTMLBodyElement
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLBodyElementSetTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLBodyElement a) => O.OverloadedMethod DOMHTMLBodyElementSetTextMethodInfo a signature where
overloadedMethod = dOMHTMLBodyElementSetText
instance O.OverloadedMethodInfo DOMHTMLBodyElementSetTextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement.dOMHTMLBodyElementSetText",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMHTMLBodyElement.html#v:dOMHTMLBodyElementSetText"
}
#endif
foreign import ccall "webkit_dom_html_body_element_set_v_link" webkit_dom_html_body_element_set_v_link ::
Ptr DOMHTMLBodyElement ->
CString ->
IO ()
{-# DEPRECATED dOMHTMLBodyElementSetVLink ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLBodyElementSetVLink ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a
-> T.Text
-> m ()
dOMHTMLBodyElementSetVLink :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLBodyElement a) =>
a -> Text -> m ()
dOMHTMLBodyElementSetVLink a
self Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLBodyElement
self' <- a -> IO (Ptr DOMHTMLBodyElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMHTMLBodyElement -> CString -> IO ()
webkit_dom_html_body_element_set_v_link Ptr DOMHTMLBodyElement
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLBodyElementSetVLinkMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLBodyElement a) => O.OverloadedMethod DOMHTMLBodyElementSetVLinkMethodInfo a signature where
overloadedMethod = dOMHTMLBodyElementSetVLink
instance O.OverloadedMethodInfo DOMHTMLBodyElementSetVLinkMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMHTMLBodyElement.dOMHTMLBodyElementSetVLink",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMHTMLBodyElement.html#v:dOMHTMLBodyElementSetVLink"
}
#endif