{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMHTMLElement
(
DOMHTMLElement(..) ,
IsDOMHTMLElement ,
toDOMHTMLElement ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMHTMLElementMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementClickMethodInfo ,
#endif
dOMHTMLElementClick ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetAccessKeyMethodInfo ,
#endif
dOMHTMLElementGetAccessKey ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetChildrenMethodInfo ,
#endif
dOMHTMLElementGetChildren ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetContentEditableMethodInfo,
#endif
dOMHTMLElementGetContentEditable ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetDirMethodInfo ,
#endif
dOMHTMLElementGetDir ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetDraggableMethodInfo ,
#endif
dOMHTMLElementGetDraggable ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetHiddenMethodInfo ,
#endif
dOMHTMLElementGetHidden ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetInnerHtmlMethodInfo ,
#endif
dOMHTMLElementGetInnerHtml ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetInnerTextMethodInfo ,
#endif
dOMHTMLElementGetInnerText ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetIsContentEditableMethodInfo,
#endif
dOMHTMLElementGetIsContentEditable ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetLangMethodInfo ,
#endif
dOMHTMLElementGetLang ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetOuterHtmlMethodInfo ,
#endif
dOMHTMLElementGetOuterHtml ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetOuterTextMethodInfo ,
#endif
dOMHTMLElementGetOuterText ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetSpellcheckMethodInfo ,
#endif
dOMHTMLElementGetSpellcheck ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetTabIndexMethodInfo ,
#endif
dOMHTMLElementGetTabIndex ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetTitleMethodInfo ,
#endif
dOMHTMLElementGetTitle ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetTranslateMethodInfo ,
#endif
dOMHTMLElementGetTranslate ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementGetWebkitdropzoneMethodInfo,
#endif
dOMHTMLElementGetWebkitdropzone ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetAccessKeyMethodInfo ,
#endif
dOMHTMLElementSetAccessKey ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetContentEditableMethodInfo,
#endif
dOMHTMLElementSetContentEditable ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetDirMethodInfo ,
#endif
dOMHTMLElementSetDir ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetDraggableMethodInfo ,
#endif
dOMHTMLElementSetDraggable ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetHiddenMethodInfo ,
#endif
dOMHTMLElementSetHidden ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetInnerHtmlMethodInfo ,
#endif
dOMHTMLElementSetInnerHtml ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetInnerTextMethodInfo ,
#endif
dOMHTMLElementSetInnerText ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetLangMethodInfo ,
#endif
dOMHTMLElementSetLang ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetOuterHtmlMethodInfo ,
#endif
dOMHTMLElementSetOuterHtml ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetOuterTextMethodInfo ,
#endif
dOMHTMLElementSetOuterText ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetSpellcheckMethodInfo ,
#endif
dOMHTMLElementSetSpellcheck ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetTabIndexMethodInfo ,
#endif
dOMHTMLElementSetTabIndex ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetTitleMethodInfo ,
#endif
dOMHTMLElementSetTitle ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetTranslateMethodInfo ,
#endif
dOMHTMLElementSetTranslate ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSetWebkitdropzoneMethodInfo,
#endif
dOMHTMLElementSetWebkitdropzone ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementAccessKeyPropertyInfo ,
#endif
constructDOMHTMLElementAccessKey ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementAccessKey ,
#endif
getDOMHTMLElementAccessKey ,
setDOMHTMLElementAccessKey ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementContentEditablePropertyInfo,
#endif
clearDOMHTMLElementContentEditable ,
constructDOMHTMLElementContentEditable ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementContentEditable ,
#endif
getDOMHTMLElementContentEditable ,
setDOMHTMLElementContentEditable ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementDirPropertyInfo ,
#endif
constructDOMHTMLElementDir ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementDir ,
#endif
getDOMHTMLElementDir ,
setDOMHTMLElementDir ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementDraggablePropertyInfo ,
#endif
constructDOMHTMLElementDraggable ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementDraggable ,
#endif
getDOMHTMLElementDraggable ,
setDOMHTMLElementDraggable ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementHiddenPropertyInfo ,
#endif
constructDOMHTMLElementHidden ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementHidden ,
#endif
getDOMHTMLElementHidden ,
setDOMHTMLElementHidden ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementInnerTextPropertyInfo ,
#endif
clearDOMHTMLElementInnerText ,
constructDOMHTMLElementInnerText ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementInnerText ,
#endif
getDOMHTMLElementInnerText ,
setDOMHTMLElementInnerText ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementIsContentEditablePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementIsContentEditable ,
#endif
getDOMHTMLElementIsContentEditable ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementLangPropertyInfo ,
#endif
constructDOMHTMLElementLang ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementLang ,
#endif
getDOMHTMLElementLang ,
setDOMHTMLElementLang ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementOuterTextPropertyInfo ,
#endif
clearDOMHTMLElementOuterText ,
constructDOMHTMLElementOuterText ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementOuterText ,
#endif
getDOMHTMLElementOuterText ,
setDOMHTMLElementOuterText ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementSpellcheckPropertyInfo ,
#endif
constructDOMHTMLElementSpellcheck ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementSpellcheck ,
#endif
getDOMHTMLElementSpellcheck ,
setDOMHTMLElementSpellcheck ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementTabIndexPropertyInfo ,
#endif
constructDOMHTMLElementTabIndex ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementTabIndex ,
#endif
getDOMHTMLElementTabIndex ,
setDOMHTMLElementTabIndex ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementTitlePropertyInfo ,
#endif
constructDOMHTMLElementTitle ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementTitle ,
#endif
getDOMHTMLElementTitle ,
setDOMHTMLElementTitle ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementTranslatePropertyInfo ,
#endif
constructDOMHTMLElementTranslate ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementTranslate ,
#endif
getDOMHTMLElementTranslate ,
setDOMHTMLElementTranslate ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLElementWebkitdropzonePropertyInfo,
#endif
constructDOMHTMLElementWebkitdropzone ,
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementWebkitdropzone ,
#endif
getDOMHTMLElementWebkitdropzone ,
setDOMHTMLElementWebkitdropzone ,
) 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.GHashTable as B.GHT
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.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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.DOMHTMLCollection as WebKit2WebExtension.DOMHTMLCollection
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMHTMLElement = DOMHTMLElement (SP.ManagedPtr DOMHTMLElement)
deriving (DOMHTMLElement -> DOMHTMLElement -> Bool
(DOMHTMLElement -> DOMHTMLElement -> Bool)
-> (DOMHTMLElement -> DOMHTMLElement -> Bool) -> Eq DOMHTMLElement
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DOMHTMLElement -> DOMHTMLElement -> Bool
== :: DOMHTMLElement -> DOMHTMLElement -> Bool
$c/= :: DOMHTMLElement -> DOMHTMLElement -> Bool
/= :: DOMHTMLElement -> DOMHTMLElement -> Bool
Eq)
instance SP.ManagedPtrNewtype DOMHTMLElement where
toManagedPtr :: DOMHTMLElement -> ManagedPtr DOMHTMLElement
toManagedPtr (DOMHTMLElement ManagedPtr DOMHTMLElement
p) = ManagedPtr DOMHTMLElement
p
foreign import ccall "webkit_dom_html_element_get_type"
c_webkit_dom_html_element_get_type :: IO B.Types.GType
instance B.Types.TypedObject DOMHTMLElement where
glibType :: IO GType
glibType = IO GType
c_webkit_dom_html_element_get_type
instance B.Types.GObject DOMHTMLElement
class (SP.GObject o, O.IsDescendantOf DOMHTMLElement o) => IsDOMHTMLElement o
instance (SP.GObject o, O.IsDescendantOf DOMHTMLElement o) => IsDOMHTMLElement o
instance O.HasParentTypes DOMHTMLElement
type instance O.ParentTypes DOMHTMLElement = '[WebKit2WebExtension.DOMElement.DOMElement, WebKit2WebExtension.DOMNode.DOMNode, WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object, WebKit2WebExtension.DOMEventTarget.DOMEventTarget]
toDOMHTMLElement :: (MIO.MonadIO m, IsDOMHTMLElement o) => o -> m DOMHTMLElement
toDOMHTMLElement :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m DOMHTMLElement
toDOMHTMLElement = IO DOMHTMLElement -> m DOMHTMLElement
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMHTMLElement -> m DOMHTMLElement)
-> (o -> IO DOMHTMLElement) -> o -> m DOMHTMLElement
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMHTMLElement -> DOMHTMLElement)
-> o -> IO DOMHTMLElement
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DOMHTMLElement -> DOMHTMLElement
DOMHTMLElement
instance B.GValue.IsGValue (Maybe DOMHTMLElement) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_dom_html_element_get_type
gvalueSet_ :: Ptr GValue -> Maybe DOMHTMLElement -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DOMHTMLElement
P.Nothing = Ptr GValue -> Ptr DOMHTMLElement -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DOMHTMLElement
forall a. Ptr a
FP.nullPtr :: FP.Ptr DOMHTMLElement)
gvalueSet_ Ptr GValue
gv (P.Just DOMHTMLElement
obj) = DOMHTMLElement -> (Ptr DOMHTMLElement -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMHTMLElement
obj (Ptr GValue -> Ptr DOMHTMLElement -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DOMHTMLElement)
gvalueGet_ Ptr GValue
gv = do
Ptr DOMHTMLElement
ptr <- Ptr GValue -> IO (Ptr DOMHTMLElement)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DOMHTMLElement)
if Ptr DOMHTMLElement
ptr Ptr DOMHTMLElement -> Ptr DOMHTMLElement -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DOMHTMLElement
forall a. Ptr a
FP.nullPtr
then DOMHTMLElement -> Maybe DOMHTMLElement
forall a. a -> Maybe a
P.Just (DOMHTMLElement -> Maybe DOMHTMLElement)
-> IO DOMHTMLElement -> IO (Maybe DOMHTMLElement)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DOMHTMLElement -> DOMHTMLElement)
-> Ptr DOMHTMLElement -> IO DOMHTMLElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMHTMLElement -> DOMHTMLElement
DOMHTMLElement Ptr DOMHTMLElement
ptr
else Maybe DOMHTMLElement -> IO (Maybe DOMHTMLElement)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMHTMLElement
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMHTMLElementMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveDOMHTMLElementMethod "addEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetAddEventListenerMethodInfo
ResolveDOMHTMLElementMethod "appendChild" o = WebKit2WebExtension.DOMNode.DOMNodeAppendChildMethodInfo
ResolveDOMHTMLElementMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMHTMLElementMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMHTMLElementMethod "blur" o = WebKit2WebExtension.DOMElement.DOMElementBlurMethodInfo
ResolveDOMHTMLElementMethod "click" o = DOMHTMLElementClickMethodInfo
ResolveDOMHTMLElementMethod "cloneNodeWithError" o = WebKit2WebExtension.DOMNode.DOMNodeCloneNodeWithErrorMethodInfo
ResolveDOMHTMLElementMethod "closest" o = WebKit2WebExtension.DOMElement.DOMElementClosestMethodInfo
ResolveDOMHTMLElementMethod "compareDocumentPosition" o = WebKit2WebExtension.DOMNode.DOMNodeCompareDocumentPositionMethodInfo
ResolveDOMHTMLElementMethod "contains" o = WebKit2WebExtension.DOMNode.DOMNodeContainsMethodInfo
ResolveDOMHTMLElementMethod "dispatchEvent" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetDispatchEventMethodInfo
ResolveDOMHTMLElementMethod "focus" o = WebKit2WebExtension.DOMElement.DOMElementFocusMethodInfo
ResolveDOMHTMLElementMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMHTMLElementMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMHTMLElementMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMHTMLElementMethod "hasAttribute" o = WebKit2WebExtension.DOMElement.DOMElementHasAttributeMethodInfo
ResolveDOMHTMLElementMethod "hasAttributeNs" o = WebKit2WebExtension.DOMElement.DOMElementHasAttributeNsMethodInfo
ResolveDOMHTMLElementMethod "hasAttributes" o = WebKit2WebExtension.DOMElement.DOMElementHasAttributesMethodInfo
ResolveDOMHTMLElementMethod "hasChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeHasChildNodesMethodInfo
ResolveDOMHTMLElementMethod "htmlInputElementGetAutoFilled" o = WebKit2WebExtension.DOMElement.DOMElementHtmlInputElementGetAutoFilledMethodInfo
ResolveDOMHTMLElementMethod "htmlInputElementIsUserEdited" o = WebKit2WebExtension.DOMElement.DOMElementHtmlInputElementIsUserEditedMethodInfo
ResolveDOMHTMLElementMethod "htmlInputElementSetAutoFilled" o = WebKit2WebExtension.DOMElement.DOMElementHtmlInputElementSetAutoFilledMethodInfo
ResolveDOMHTMLElementMethod "htmlInputElementSetEditingValue" o = WebKit2WebExtension.DOMElement.DOMElementHtmlInputElementSetEditingValueMethodInfo
ResolveDOMHTMLElementMethod "insertAdjacentElement" o = WebKit2WebExtension.DOMElement.DOMElementInsertAdjacentElementMethodInfo
ResolveDOMHTMLElementMethod "insertAdjacentHtml" o = WebKit2WebExtension.DOMElement.DOMElementInsertAdjacentHtmlMethodInfo
ResolveDOMHTMLElementMethod "insertAdjacentText" o = WebKit2WebExtension.DOMElement.DOMElementInsertAdjacentTextMethodInfo
ResolveDOMHTMLElementMethod "insertBefore" o = WebKit2WebExtension.DOMNode.DOMNodeInsertBeforeMethodInfo
ResolveDOMHTMLElementMethod "isDefaultNamespace" o = WebKit2WebExtension.DOMNode.DOMNodeIsDefaultNamespaceMethodInfo
ResolveDOMHTMLElementMethod "isEqualNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsEqualNodeMethodInfo
ResolveDOMHTMLElementMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMHTMLElementMethod "isSameNode" o = WebKit2WebExtension.DOMNode.DOMNodeIsSameNodeMethodInfo
ResolveDOMHTMLElementMethod "isSupported" o = WebKit2WebExtension.DOMNode.DOMNodeIsSupportedMethodInfo
ResolveDOMHTMLElementMethod "lookupNamespaceUri" o = WebKit2WebExtension.DOMNode.DOMNodeLookupNamespaceUriMethodInfo
ResolveDOMHTMLElementMethod "lookupPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeLookupPrefixMethodInfo
ResolveDOMHTMLElementMethod "matches" o = WebKit2WebExtension.DOMElement.DOMElementMatchesMethodInfo
ResolveDOMHTMLElementMethod "normalize" o = WebKit2WebExtension.DOMNode.DOMNodeNormalizeMethodInfo
ResolveDOMHTMLElementMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMHTMLElementMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMHTMLElementMethod "querySelector" o = WebKit2WebExtension.DOMElement.DOMElementQuerySelectorMethodInfo
ResolveDOMHTMLElementMethod "querySelectorAll" o = WebKit2WebExtension.DOMElement.DOMElementQuerySelectorAllMethodInfo
ResolveDOMHTMLElementMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMHTMLElementMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMHTMLElementMethod "remove" o = WebKit2WebExtension.DOMElement.DOMElementRemoveMethodInfo
ResolveDOMHTMLElementMethod "removeAttribute" o = WebKit2WebExtension.DOMElement.DOMElementRemoveAttributeMethodInfo
ResolveDOMHTMLElementMethod "removeAttributeNode" o = WebKit2WebExtension.DOMElement.DOMElementRemoveAttributeNodeMethodInfo
ResolveDOMHTMLElementMethod "removeAttributeNs" o = WebKit2WebExtension.DOMElement.DOMElementRemoveAttributeNsMethodInfo
ResolveDOMHTMLElementMethod "removeChild" o = WebKit2WebExtension.DOMNode.DOMNodeRemoveChildMethodInfo
ResolveDOMHTMLElementMethod "removeEventListener" o = WebKit2WebExtension.DOMEventTarget.DOMEventTargetRemoveEventListenerMethodInfo
ResolveDOMHTMLElementMethod "replaceChild" o = WebKit2WebExtension.DOMNode.DOMNodeReplaceChildMethodInfo
ResolveDOMHTMLElementMethod "requestPointerLock" o = WebKit2WebExtension.DOMElement.DOMElementRequestPointerLockMethodInfo
ResolveDOMHTMLElementMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMHTMLElementMethod "scrollByLines" o = WebKit2WebExtension.DOMElement.DOMElementScrollByLinesMethodInfo
ResolveDOMHTMLElementMethod "scrollByPages" o = WebKit2WebExtension.DOMElement.DOMElementScrollByPagesMethodInfo
ResolveDOMHTMLElementMethod "scrollIntoView" o = WebKit2WebExtension.DOMElement.DOMElementScrollIntoViewMethodInfo
ResolveDOMHTMLElementMethod "scrollIntoViewIfNeeded" o = WebKit2WebExtension.DOMElement.DOMElementScrollIntoViewIfNeededMethodInfo
ResolveDOMHTMLElementMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMHTMLElementMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMHTMLElementMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMHTMLElementMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMHTMLElementMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMHTMLElementMethod "webkitMatchesSelector" o = WebKit2WebExtension.DOMElement.DOMElementWebkitMatchesSelectorMethodInfo
ResolveDOMHTMLElementMethod "webkitRequestFullscreen" o = WebKit2WebExtension.DOMElement.DOMElementWebkitRequestFullscreenMethodInfo
ResolveDOMHTMLElementMethod "getAccessKey" o = DOMHTMLElementGetAccessKeyMethodInfo
ResolveDOMHTMLElementMethod "getAttribute" o = WebKit2WebExtension.DOMElement.DOMElementGetAttributeMethodInfo
ResolveDOMHTMLElementMethod "getAttributeNode" o = WebKit2WebExtension.DOMElement.DOMElementGetAttributeNodeMethodInfo
ResolveDOMHTMLElementMethod "getAttributeNodeNs" o = WebKit2WebExtension.DOMElement.DOMElementGetAttributeNodeNsMethodInfo
ResolveDOMHTMLElementMethod "getAttributeNs" o = WebKit2WebExtension.DOMElement.DOMElementGetAttributeNsMethodInfo
ResolveDOMHTMLElementMethod "getAttributes" o = WebKit2WebExtension.DOMElement.DOMElementGetAttributesMethodInfo
ResolveDOMHTMLElementMethod "getBaseUri" o = WebKit2WebExtension.DOMNode.DOMNodeGetBaseUriMethodInfo
ResolveDOMHTMLElementMethod "getBoundingClientRect" o = WebKit2WebExtension.DOMElement.DOMElementGetBoundingClientRectMethodInfo
ResolveDOMHTMLElementMethod "getChildElementCount" o = WebKit2WebExtension.DOMElement.DOMElementGetChildElementCountMethodInfo
ResolveDOMHTMLElementMethod "getChildNodes" o = WebKit2WebExtension.DOMNode.DOMNodeGetChildNodesMethodInfo
ResolveDOMHTMLElementMethod "getChildren" o = DOMHTMLElementGetChildrenMethodInfo
ResolveDOMHTMLElementMethod "getClassList" o = WebKit2WebExtension.DOMElement.DOMElementGetClassListMethodInfo
ResolveDOMHTMLElementMethod "getClassName" o = WebKit2WebExtension.DOMElement.DOMElementGetClassNameMethodInfo
ResolveDOMHTMLElementMethod "getClientHeight" o = WebKit2WebExtension.DOMElement.DOMElementGetClientHeightMethodInfo
ResolveDOMHTMLElementMethod "getClientLeft" o = WebKit2WebExtension.DOMElement.DOMElementGetClientLeftMethodInfo
ResolveDOMHTMLElementMethod "getClientRects" o = WebKit2WebExtension.DOMElement.DOMElementGetClientRectsMethodInfo
ResolveDOMHTMLElementMethod "getClientTop" o = WebKit2WebExtension.DOMElement.DOMElementGetClientTopMethodInfo
ResolveDOMHTMLElementMethod "getClientWidth" o = WebKit2WebExtension.DOMElement.DOMElementGetClientWidthMethodInfo
ResolveDOMHTMLElementMethod "getContentEditable" o = DOMHTMLElementGetContentEditableMethodInfo
ResolveDOMHTMLElementMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMHTMLElementMethod "getDir" o = DOMHTMLElementGetDirMethodInfo
ResolveDOMHTMLElementMethod "getDraggable" o = DOMHTMLElementGetDraggableMethodInfo
ResolveDOMHTMLElementMethod "getElementsByClassName" o = WebKit2WebExtension.DOMElement.DOMElementGetElementsByClassNameMethodInfo
ResolveDOMHTMLElementMethod "getElementsByClassNameAsHtmlCollection" o = WebKit2WebExtension.DOMElement.DOMElementGetElementsByClassNameAsHtmlCollectionMethodInfo
ResolveDOMHTMLElementMethod "getElementsByTagName" o = WebKit2WebExtension.DOMElement.DOMElementGetElementsByTagNameMethodInfo
ResolveDOMHTMLElementMethod "getElementsByTagNameAsHtmlCollection" o = WebKit2WebExtension.DOMElement.DOMElementGetElementsByTagNameAsHtmlCollectionMethodInfo
ResolveDOMHTMLElementMethod "getElementsByTagNameNs" o = WebKit2WebExtension.DOMElement.DOMElementGetElementsByTagNameNsMethodInfo
ResolveDOMHTMLElementMethod "getElementsByTagNameNsAsHtmlCollection" o = WebKit2WebExtension.DOMElement.DOMElementGetElementsByTagNameNsAsHtmlCollectionMethodInfo
ResolveDOMHTMLElementMethod "getFirstChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetFirstChildMethodInfo
ResolveDOMHTMLElementMethod "getFirstElementChild" o = WebKit2WebExtension.DOMElement.DOMElementGetFirstElementChildMethodInfo
ResolveDOMHTMLElementMethod "getHidden" o = DOMHTMLElementGetHiddenMethodInfo
ResolveDOMHTMLElementMethod "getId" o = WebKit2WebExtension.DOMElement.DOMElementGetIdMethodInfo
ResolveDOMHTMLElementMethod "getInnerHtml" o = DOMHTMLElementGetInnerHtmlMethodInfo
ResolveDOMHTMLElementMethod "getInnerText" o = DOMHTMLElementGetInnerTextMethodInfo
ResolveDOMHTMLElementMethod "getIsContentEditable" o = DOMHTMLElementGetIsContentEditableMethodInfo
ResolveDOMHTMLElementMethod "getLang" o = DOMHTMLElementGetLangMethodInfo
ResolveDOMHTMLElementMethod "getLastChild" o = WebKit2WebExtension.DOMNode.DOMNodeGetLastChildMethodInfo
ResolveDOMHTMLElementMethod "getLastElementChild" o = WebKit2WebExtension.DOMElement.DOMElementGetLastElementChildMethodInfo
ResolveDOMHTMLElementMethod "getLocalName" o = WebKit2WebExtension.DOMElement.DOMElementGetLocalNameMethodInfo
ResolveDOMHTMLElementMethod "getNamespaceUri" o = WebKit2WebExtension.DOMElement.DOMElementGetNamespaceUriMethodInfo
ResolveDOMHTMLElementMethod "getNextElementSibling" o = WebKit2WebExtension.DOMElement.DOMElementGetNextElementSiblingMethodInfo
ResolveDOMHTMLElementMethod "getNextSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetNextSiblingMethodInfo
ResolveDOMHTMLElementMethod "getNodeName" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeNameMethodInfo
ResolveDOMHTMLElementMethod "getNodeType" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeTypeMethodInfo
ResolveDOMHTMLElementMethod "getNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeGetNodeValueMethodInfo
ResolveDOMHTMLElementMethod "getOffsetHeight" o = WebKit2WebExtension.DOMElement.DOMElementGetOffsetHeightMethodInfo
ResolveDOMHTMLElementMethod "getOffsetLeft" o = WebKit2WebExtension.DOMElement.DOMElementGetOffsetLeftMethodInfo
ResolveDOMHTMLElementMethod "getOffsetParent" o = WebKit2WebExtension.DOMElement.DOMElementGetOffsetParentMethodInfo
ResolveDOMHTMLElementMethod "getOffsetTop" o = WebKit2WebExtension.DOMElement.DOMElementGetOffsetTopMethodInfo
ResolveDOMHTMLElementMethod "getOffsetWidth" o = WebKit2WebExtension.DOMElement.DOMElementGetOffsetWidthMethodInfo
ResolveDOMHTMLElementMethod "getOuterHtml" o = DOMHTMLElementGetOuterHtmlMethodInfo
ResolveDOMHTMLElementMethod "getOuterText" o = DOMHTMLElementGetOuterTextMethodInfo
ResolveDOMHTMLElementMethod "getOwnerDocument" o = WebKit2WebExtension.DOMNode.DOMNodeGetOwnerDocumentMethodInfo
ResolveDOMHTMLElementMethod "getParentElement" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentElementMethodInfo
ResolveDOMHTMLElementMethod "getParentNode" o = WebKit2WebExtension.DOMNode.DOMNodeGetParentNodeMethodInfo
ResolveDOMHTMLElementMethod "getPrefix" o = WebKit2WebExtension.DOMElement.DOMElementGetPrefixMethodInfo
ResolveDOMHTMLElementMethod "getPreviousElementSibling" o = WebKit2WebExtension.DOMElement.DOMElementGetPreviousElementSiblingMethodInfo
ResolveDOMHTMLElementMethod "getPreviousSibling" o = WebKit2WebExtension.DOMNode.DOMNodeGetPreviousSiblingMethodInfo
ResolveDOMHTMLElementMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMHTMLElementMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMHTMLElementMethod "getScrollHeight" o = WebKit2WebExtension.DOMElement.DOMElementGetScrollHeightMethodInfo
ResolveDOMHTMLElementMethod "getScrollLeft" o = WebKit2WebExtension.DOMElement.DOMElementGetScrollLeftMethodInfo
ResolveDOMHTMLElementMethod "getScrollTop" o = WebKit2WebExtension.DOMElement.DOMElementGetScrollTopMethodInfo
ResolveDOMHTMLElementMethod "getScrollWidth" o = WebKit2WebExtension.DOMElement.DOMElementGetScrollWidthMethodInfo
ResolveDOMHTMLElementMethod "getSpellcheck" o = DOMHTMLElementGetSpellcheckMethodInfo
ResolveDOMHTMLElementMethod "getStyle" o = WebKit2WebExtension.DOMElement.DOMElementGetStyleMethodInfo
ResolveDOMHTMLElementMethod "getTabIndex" o = DOMHTMLElementGetTabIndexMethodInfo
ResolveDOMHTMLElementMethod "getTagName" o = WebKit2WebExtension.DOMElement.DOMElementGetTagNameMethodInfo
ResolveDOMHTMLElementMethod "getTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeGetTextContentMethodInfo
ResolveDOMHTMLElementMethod "getTitle" o = DOMHTMLElementGetTitleMethodInfo
ResolveDOMHTMLElementMethod "getTranslate" o = DOMHTMLElementGetTranslateMethodInfo
ResolveDOMHTMLElementMethod "getWebkitRegionOverset" o = WebKit2WebExtension.DOMElement.DOMElementGetWebkitRegionOversetMethodInfo
ResolveDOMHTMLElementMethod "getWebkitdropzone" o = DOMHTMLElementGetWebkitdropzoneMethodInfo
ResolveDOMHTMLElementMethod "setAccessKey" o = DOMHTMLElementSetAccessKeyMethodInfo
ResolveDOMHTMLElementMethod "setAttribute" o = WebKit2WebExtension.DOMElement.DOMElementSetAttributeMethodInfo
ResolveDOMHTMLElementMethod "setAttributeNode" o = WebKit2WebExtension.DOMElement.DOMElementSetAttributeNodeMethodInfo
ResolveDOMHTMLElementMethod "setAttributeNodeNs" o = WebKit2WebExtension.DOMElement.DOMElementSetAttributeNodeNsMethodInfo
ResolveDOMHTMLElementMethod "setAttributeNs" o = WebKit2WebExtension.DOMElement.DOMElementSetAttributeNsMethodInfo
ResolveDOMHTMLElementMethod "setClassName" o = WebKit2WebExtension.DOMElement.DOMElementSetClassNameMethodInfo
ResolveDOMHTMLElementMethod "setContentEditable" o = DOMHTMLElementSetContentEditableMethodInfo
ResolveDOMHTMLElementMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMHTMLElementMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMHTMLElementMethod "setDir" o = DOMHTMLElementSetDirMethodInfo
ResolveDOMHTMLElementMethod "setDraggable" o = DOMHTMLElementSetDraggableMethodInfo
ResolveDOMHTMLElementMethod "setHidden" o = DOMHTMLElementSetHiddenMethodInfo
ResolveDOMHTMLElementMethod "setId" o = WebKit2WebExtension.DOMElement.DOMElementSetIdMethodInfo
ResolveDOMHTMLElementMethod "setInnerHtml" o = DOMHTMLElementSetInnerHtmlMethodInfo
ResolveDOMHTMLElementMethod "setInnerText" o = DOMHTMLElementSetInnerTextMethodInfo
ResolveDOMHTMLElementMethod "setLang" o = DOMHTMLElementSetLangMethodInfo
ResolveDOMHTMLElementMethod "setNodeValue" o = WebKit2WebExtension.DOMNode.DOMNodeSetNodeValueMethodInfo
ResolveDOMHTMLElementMethod "setOuterHtml" o = DOMHTMLElementSetOuterHtmlMethodInfo
ResolveDOMHTMLElementMethod "setOuterText" o = DOMHTMLElementSetOuterTextMethodInfo
ResolveDOMHTMLElementMethod "setPrefix" o = WebKit2WebExtension.DOMNode.DOMNodeSetPrefixMethodInfo
ResolveDOMHTMLElementMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMHTMLElementMethod "setScrollLeft" o = WebKit2WebExtension.DOMElement.DOMElementSetScrollLeftMethodInfo
ResolveDOMHTMLElementMethod "setScrollTop" o = WebKit2WebExtension.DOMElement.DOMElementSetScrollTopMethodInfo
ResolveDOMHTMLElementMethod "setSpellcheck" o = DOMHTMLElementSetSpellcheckMethodInfo
ResolveDOMHTMLElementMethod "setTabIndex" o = DOMHTMLElementSetTabIndexMethodInfo
ResolveDOMHTMLElementMethod "setTextContent" o = WebKit2WebExtension.DOMNode.DOMNodeSetTextContentMethodInfo
ResolveDOMHTMLElementMethod "setTitle" o = DOMHTMLElementSetTitleMethodInfo
ResolveDOMHTMLElementMethod "setTranslate" o = DOMHTMLElementSetTranslateMethodInfo
ResolveDOMHTMLElementMethod "setWebkitdropzone" o = DOMHTMLElementSetWebkitdropzoneMethodInfo
ResolveDOMHTMLElementMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMHTMLElementMethod t DOMHTMLElement, O.OverloadedMethod info DOMHTMLElement p) => OL.IsLabel t (DOMHTMLElement -> 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 ~ ResolveDOMHTMLElementMethod t DOMHTMLElement, O.OverloadedMethod info DOMHTMLElement p, R.HasField t DOMHTMLElement p) => R.HasField t DOMHTMLElement p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDOMHTMLElementMethod t DOMHTMLElement, O.OverloadedMethodInfo info DOMHTMLElement) => OL.IsLabel t (O.MethodProxy info DOMHTMLElement) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDOMHTMLElementAccessKey :: (MonadIO m, IsDOMHTMLElement o) => o -> m (Maybe T.Text)
getDOMHTMLElementAccessKey :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m (Maybe Text)
getDOMHTMLElementAccessKey o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
"access-key"
setDOMHTMLElementAccessKey :: (MonadIO m, IsDOMHTMLElement o) => o -> T.Text -> m ()
setDOMHTMLElementAccessKey :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> Text -> m ()
setDOMHTMLElementAccessKey o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
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
"access-key" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMHTMLElementAccessKey :: (IsDOMHTMLElement o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMHTMLElementAccessKey :: forall o (m :: * -> *).
(IsDOMHTMLElement o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMHTMLElementAccessKey Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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
"access-key" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementAccessKeyPropertyInfo
instance AttrInfo DOMHTMLElementAccessKeyPropertyInfo where
type AttrAllowedOps DOMHTMLElementAccessKeyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = IsDOMHTMLElement
type AttrSetTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = (~) T.Text
type AttrTransferType DOMHTMLElementAccessKeyPropertyInfo = T.Text
type AttrGetType DOMHTMLElementAccessKeyPropertyInfo = (Maybe T.Text)
type AttrLabel DOMHTMLElementAccessKeyPropertyInfo = "access-key"
type AttrOrigin DOMHTMLElementAccessKeyPropertyInfo = DOMHTMLElement
attrGet = getDOMHTMLElementAccessKey
attrSet = setDOMHTMLElementAccessKey
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLElementAccessKey
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.accessKey"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#g:attr:accessKey"
})
#endif
getDOMHTMLElementContentEditable :: (MonadIO m, IsDOMHTMLElement o) => o -> m (Maybe T.Text)
getDOMHTMLElementContentEditable :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m (Maybe Text)
getDOMHTMLElementContentEditable o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
"content-editable"
setDOMHTMLElementContentEditable :: (MonadIO m, IsDOMHTMLElement o) => o -> T.Text -> m ()
setDOMHTMLElementContentEditable :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> Text -> m ()
setDOMHTMLElementContentEditable o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
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
"content-editable" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMHTMLElementContentEditable :: (IsDOMHTMLElement o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMHTMLElementContentEditable :: forall o (m :: * -> *).
(IsDOMHTMLElement o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMHTMLElementContentEditable Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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
"content-editable" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearDOMHTMLElementContentEditable :: (MonadIO m, IsDOMHTMLElement o) => o -> m ()
clearDOMHTMLElementContentEditable :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m ()
clearDOMHTMLElementContentEditable o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"content-editable" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementContentEditablePropertyInfo
instance AttrInfo DOMHTMLElementContentEditablePropertyInfo where
type AttrAllowedOps DOMHTMLElementContentEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMHTMLElementContentEditablePropertyInfo = IsDOMHTMLElement
type AttrSetTypeConstraint DOMHTMLElementContentEditablePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMHTMLElementContentEditablePropertyInfo = (~) T.Text
type AttrTransferType DOMHTMLElementContentEditablePropertyInfo = T.Text
type AttrGetType DOMHTMLElementContentEditablePropertyInfo = (Maybe T.Text)
type AttrLabel DOMHTMLElementContentEditablePropertyInfo = "content-editable"
type AttrOrigin DOMHTMLElementContentEditablePropertyInfo = DOMHTMLElement
attrGet = getDOMHTMLElementContentEditable
attrSet = setDOMHTMLElementContentEditable
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLElementContentEditable
attrClear = clearDOMHTMLElementContentEditable
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.contentEditable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#g:attr:contentEditable"
})
#endif
getDOMHTMLElementDir :: (MonadIO m, IsDOMHTMLElement o) => o -> m (Maybe T.Text)
getDOMHTMLElementDir :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m (Maybe Text)
getDOMHTMLElementDir o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
"dir"
setDOMHTMLElementDir :: (MonadIO m, IsDOMHTMLElement o) => o -> T.Text -> m ()
setDOMHTMLElementDir :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> Text -> m ()
setDOMHTMLElementDir o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
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
"dir" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMHTMLElementDir :: (IsDOMHTMLElement o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMHTMLElementDir :: forall o (m :: * -> *).
(IsDOMHTMLElement o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMHTMLElementDir Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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
"dir" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementDirPropertyInfo
instance AttrInfo DOMHTMLElementDirPropertyInfo where
type AttrAllowedOps DOMHTMLElementDirPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLElementDirPropertyInfo = IsDOMHTMLElement
type AttrSetTypeConstraint DOMHTMLElementDirPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMHTMLElementDirPropertyInfo = (~) T.Text
type AttrTransferType DOMHTMLElementDirPropertyInfo = T.Text
type AttrGetType DOMHTMLElementDirPropertyInfo = (Maybe T.Text)
type AttrLabel DOMHTMLElementDirPropertyInfo = "dir"
type AttrOrigin DOMHTMLElementDirPropertyInfo = DOMHTMLElement
attrGet = getDOMHTMLElementDir
attrSet = setDOMHTMLElementDir
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLElementDir
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dir"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#g:attr:dir"
})
#endif
getDOMHTMLElementDraggable :: (MonadIO m, IsDOMHTMLElement o) => o -> m Bool
getDOMHTMLElementDraggable :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m Bool
getDOMHTMLElementDraggable o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"draggable"
setDOMHTMLElementDraggable :: (MonadIO m, IsDOMHTMLElement o) => o -> Bool -> m ()
setDOMHTMLElementDraggable :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> Bool -> m ()
setDOMHTMLElementDraggable o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"draggable" Bool
val
constructDOMHTMLElementDraggable :: (IsDOMHTMLElement o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructDOMHTMLElementDraggable :: forall o (m :: * -> *).
(IsDOMHTMLElement o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructDOMHTMLElementDraggable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"draggable" Bool
val
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementDraggablePropertyInfo
instance AttrInfo DOMHTMLElementDraggablePropertyInfo where
type AttrAllowedOps DOMHTMLElementDraggablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLElementDraggablePropertyInfo = IsDOMHTMLElement
type AttrSetTypeConstraint DOMHTMLElementDraggablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint DOMHTMLElementDraggablePropertyInfo = (~) Bool
type AttrTransferType DOMHTMLElementDraggablePropertyInfo = Bool
type AttrGetType DOMHTMLElementDraggablePropertyInfo = Bool
type AttrLabel DOMHTMLElementDraggablePropertyInfo = "draggable"
type AttrOrigin DOMHTMLElementDraggablePropertyInfo = DOMHTMLElement
attrGet = getDOMHTMLElementDraggable
attrSet = setDOMHTMLElementDraggable
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLElementDraggable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.draggable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#g:attr:draggable"
})
#endif
getDOMHTMLElementHidden :: (MonadIO m, IsDOMHTMLElement o) => o -> m Bool
getDOMHTMLElementHidden :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m Bool
getDOMHTMLElementHidden o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"hidden"
setDOMHTMLElementHidden :: (MonadIO m, IsDOMHTMLElement o) => o -> Bool -> m ()
setDOMHTMLElementHidden :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> Bool -> m ()
setDOMHTMLElementHidden o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"hidden" Bool
val
constructDOMHTMLElementHidden :: (IsDOMHTMLElement o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructDOMHTMLElementHidden :: forall o (m :: * -> *).
(IsDOMHTMLElement o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructDOMHTMLElementHidden Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"hidden" Bool
val
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementHiddenPropertyInfo
instance AttrInfo DOMHTMLElementHiddenPropertyInfo where
type AttrAllowedOps DOMHTMLElementHiddenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLElementHiddenPropertyInfo = IsDOMHTMLElement
type AttrSetTypeConstraint DOMHTMLElementHiddenPropertyInfo = (~) Bool
type AttrTransferTypeConstraint DOMHTMLElementHiddenPropertyInfo = (~) Bool
type AttrTransferType DOMHTMLElementHiddenPropertyInfo = Bool
type AttrGetType DOMHTMLElementHiddenPropertyInfo = Bool
type AttrLabel DOMHTMLElementHiddenPropertyInfo = "hidden"
type AttrOrigin DOMHTMLElementHiddenPropertyInfo = DOMHTMLElement
attrGet = getDOMHTMLElementHidden
attrSet = setDOMHTMLElementHidden
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLElementHidden
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.hidden"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#g:attr:hidden"
})
#endif
getDOMHTMLElementInnerText :: (MonadIO m, IsDOMHTMLElement o) => o -> m (Maybe T.Text)
getDOMHTMLElementInnerText :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m (Maybe Text)
getDOMHTMLElementInnerText o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
"inner-text"
setDOMHTMLElementInnerText :: (MonadIO m, IsDOMHTMLElement o) => o -> T.Text -> m ()
setDOMHTMLElementInnerText :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> Text -> m ()
setDOMHTMLElementInnerText o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
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
"inner-text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMHTMLElementInnerText :: (IsDOMHTMLElement o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMHTMLElementInnerText :: forall o (m :: * -> *).
(IsDOMHTMLElement o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMHTMLElementInnerText Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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
"inner-text" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearDOMHTMLElementInnerText :: (MonadIO m, IsDOMHTMLElement o) => o -> m ()
clearDOMHTMLElementInnerText :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m ()
clearDOMHTMLElementInnerText o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"inner-text" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementInnerTextPropertyInfo
instance AttrInfo DOMHTMLElementInnerTextPropertyInfo where
type AttrAllowedOps DOMHTMLElementInnerTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMHTMLElementInnerTextPropertyInfo = IsDOMHTMLElement
type AttrSetTypeConstraint DOMHTMLElementInnerTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMHTMLElementInnerTextPropertyInfo = (~) T.Text
type AttrTransferType DOMHTMLElementInnerTextPropertyInfo = T.Text
type AttrGetType DOMHTMLElementInnerTextPropertyInfo = (Maybe T.Text)
type AttrLabel DOMHTMLElementInnerTextPropertyInfo = "inner-text"
type AttrOrigin DOMHTMLElementInnerTextPropertyInfo = DOMHTMLElement
attrGet = getDOMHTMLElementInnerText
attrSet = setDOMHTMLElementInnerText
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLElementInnerText
attrClear = clearDOMHTMLElementInnerText
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.innerText"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#g:attr:innerText"
})
#endif
getDOMHTMLElementIsContentEditable :: (MonadIO m, IsDOMHTMLElement o) => o -> m Bool
getDOMHTMLElementIsContentEditable :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m Bool
getDOMHTMLElementIsContentEditable o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"is-content-editable"
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementIsContentEditablePropertyInfo
instance AttrInfo DOMHTMLElementIsContentEditablePropertyInfo where
type AttrAllowedOps DOMHTMLElementIsContentEditablePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLElementIsContentEditablePropertyInfo = IsDOMHTMLElement
type AttrSetTypeConstraint DOMHTMLElementIsContentEditablePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMHTMLElementIsContentEditablePropertyInfo = (~) ()
type AttrTransferType DOMHTMLElementIsContentEditablePropertyInfo = ()
type AttrGetType DOMHTMLElementIsContentEditablePropertyInfo = Bool
type AttrLabel DOMHTMLElementIsContentEditablePropertyInfo = "is-content-editable"
type AttrOrigin DOMHTMLElementIsContentEditablePropertyInfo = DOMHTMLElement
attrGet = getDOMHTMLElementIsContentEditable
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.isContentEditable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#g:attr:isContentEditable"
})
#endif
getDOMHTMLElementLang :: (MonadIO m, IsDOMHTMLElement o) => o -> m (Maybe T.Text)
getDOMHTMLElementLang :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m (Maybe Text)
getDOMHTMLElementLang o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
"lang"
setDOMHTMLElementLang :: (MonadIO m, IsDOMHTMLElement o) => o -> T.Text -> m ()
setDOMHTMLElementLang :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> Text -> m ()
setDOMHTMLElementLang o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
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
"lang" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMHTMLElementLang :: (IsDOMHTMLElement o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMHTMLElementLang :: forall o (m :: * -> *).
(IsDOMHTMLElement o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMHTMLElementLang Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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
"lang" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementLangPropertyInfo
instance AttrInfo DOMHTMLElementLangPropertyInfo where
type AttrAllowedOps DOMHTMLElementLangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLElementLangPropertyInfo = IsDOMHTMLElement
type AttrSetTypeConstraint DOMHTMLElementLangPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMHTMLElementLangPropertyInfo = (~) T.Text
type AttrTransferType DOMHTMLElementLangPropertyInfo = T.Text
type AttrGetType DOMHTMLElementLangPropertyInfo = (Maybe T.Text)
type AttrLabel DOMHTMLElementLangPropertyInfo = "lang"
type AttrOrigin DOMHTMLElementLangPropertyInfo = DOMHTMLElement
attrGet = getDOMHTMLElementLang
attrSet = setDOMHTMLElementLang
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLElementLang
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.lang"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#g:attr:lang"
})
#endif
getDOMHTMLElementOuterText :: (MonadIO m, IsDOMHTMLElement o) => o -> m (Maybe T.Text)
getDOMHTMLElementOuterText :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m (Maybe Text)
getDOMHTMLElementOuterText o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
"outer-text"
setDOMHTMLElementOuterText :: (MonadIO m, IsDOMHTMLElement o) => o -> T.Text -> m ()
setDOMHTMLElementOuterText :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> Text -> m ()
setDOMHTMLElementOuterText o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
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
"outer-text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMHTMLElementOuterText :: (IsDOMHTMLElement o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMHTMLElementOuterText :: forall o (m :: * -> *).
(IsDOMHTMLElement o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMHTMLElementOuterText Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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
"outer-text" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearDOMHTMLElementOuterText :: (MonadIO m, IsDOMHTMLElement o) => o -> m ()
clearDOMHTMLElementOuterText :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m ()
clearDOMHTMLElementOuterText o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"outer-text" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementOuterTextPropertyInfo
instance AttrInfo DOMHTMLElementOuterTextPropertyInfo where
type AttrAllowedOps DOMHTMLElementOuterTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMHTMLElementOuterTextPropertyInfo = IsDOMHTMLElement
type AttrSetTypeConstraint DOMHTMLElementOuterTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMHTMLElementOuterTextPropertyInfo = (~) T.Text
type AttrTransferType DOMHTMLElementOuterTextPropertyInfo = T.Text
type AttrGetType DOMHTMLElementOuterTextPropertyInfo = (Maybe T.Text)
type AttrLabel DOMHTMLElementOuterTextPropertyInfo = "outer-text"
type AttrOrigin DOMHTMLElementOuterTextPropertyInfo = DOMHTMLElement
attrGet = getDOMHTMLElementOuterText
attrSet = setDOMHTMLElementOuterText
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLElementOuterText
attrClear = clearDOMHTMLElementOuterText
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.outerText"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#g:attr:outerText"
})
#endif
getDOMHTMLElementSpellcheck :: (MonadIO m, IsDOMHTMLElement o) => o -> m Bool
getDOMHTMLElementSpellcheck :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m Bool
getDOMHTMLElementSpellcheck o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"spellcheck"
setDOMHTMLElementSpellcheck :: (MonadIO m, IsDOMHTMLElement o) => o -> Bool -> m ()
setDOMHTMLElementSpellcheck :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> Bool -> m ()
setDOMHTMLElementSpellcheck o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"spellcheck" Bool
val
constructDOMHTMLElementSpellcheck :: (IsDOMHTMLElement o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructDOMHTMLElementSpellcheck :: forall o (m :: * -> *).
(IsDOMHTMLElement o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructDOMHTMLElementSpellcheck Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"spellcheck" Bool
val
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSpellcheckPropertyInfo
instance AttrInfo DOMHTMLElementSpellcheckPropertyInfo where
type AttrAllowedOps DOMHTMLElementSpellcheckPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLElementSpellcheckPropertyInfo = IsDOMHTMLElement
type AttrSetTypeConstraint DOMHTMLElementSpellcheckPropertyInfo = (~) Bool
type AttrTransferTypeConstraint DOMHTMLElementSpellcheckPropertyInfo = (~) Bool
type AttrTransferType DOMHTMLElementSpellcheckPropertyInfo = Bool
type AttrGetType DOMHTMLElementSpellcheckPropertyInfo = Bool
type AttrLabel DOMHTMLElementSpellcheckPropertyInfo = "spellcheck"
type AttrOrigin DOMHTMLElementSpellcheckPropertyInfo = DOMHTMLElement
attrGet = getDOMHTMLElementSpellcheck
attrSet = setDOMHTMLElementSpellcheck
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLElementSpellcheck
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.spellcheck"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#g:attr:spellcheck"
})
#endif
getDOMHTMLElementTabIndex :: (MonadIO m, IsDOMHTMLElement o) => o -> m CLong
getDOMHTMLElementTabIndex :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m CLong
getDOMHTMLElementTabIndex o
obj = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"tab-index"
setDOMHTMLElementTabIndex :: (MonadIO m, IsDOMHTMLElement o) => o -> CLong -> m ()
setDOMHTMLElementTabIndex :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> CLong -> m ()
setDOMHTMLElementTabIndex o
obj CLong
val = IO () -> m ()
forall a. IO a -> m a
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 -> CLong -> IO ()
forall a. GObject a => a -> String -> CLong -> IO ()
B.Properties.setObjectPropertyLong o
obj String
"tab-index" CLong
val
constructDOMHTMLElementTabIndex :: (IsDOMHTMLElement o, MIO.MonadIO m) => CLong -> m (GValueConstruct o)
constructDOMHTMLElementTabIndex :: forall o (m :: * -> *).
(IsDOMHTMLElement o, MonadIO m) =>
CLong -> m (GValueConstruct o)
constructDOMHTMLElementTabIndex CLong
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> CLong -> IO (GValueConstruct o)
forall o. String -> CLong -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyLong String
"tab-index" CLong
val
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementTabIndexPropertyInfo
instance AttrInfo DOMHTMLElementTabIndexPropertyInfo where
type AttrAllowedOps DOMHTMLElementTabIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLElementTabIndexPropertyInfo = IsDOMHTMLElement
type AttrSetTypeConstraint DOMHTMLElementTabIndexPropertyInfo = (~) CLong
type AttrTransferTypeConstraint DOMHTMLElementTabIndexPropertyInfo = (~) CLong
type AttrTransferType DOMHTMLElementTabIndexPropertyInfo = CLong
type AttrGetType DOMHTMLElementTabIndexPropertyInfo = CLong
type AttrLabel DOMHTMLElementTabIndexPropertyInfo = "tab-index"
type AttrOrigin DOMHTMLElementTabIndexPropertyInfo = DOMHTMLElement
attrGet = getDOMHTMLElementTabIndex
attrSet = setDOMHTMLElementTabIndex
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLElementTabIndex
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.tabIndex"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#g:attr:tabIndex"
})
#endif
getDOMHTMLElementTitle :: (MonadIO m, IsDOMHTMLElement o) => o -> m (Maybe T.Text)
getDOMHTMLElementTitle :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m (Maybe Text)
getDOMHTMLElementTitle o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
"title"
setDOMHTMLElementTitle :: (MonadIO m, IsDOMHTMLElement o) => o -> T.Text -> m ()
setDOMHTMLElementTitle :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> Text -> m ()
setDOMHTMLElementTitle o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
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
"title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMHTMLElementTitle :: (IsDOMHTMLElement o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMHTMLElementTitle :: forall o (m :: * -> *).
(IsDOMHTMLElement o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMHTMLElementTitle Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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
"title" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementTitlePropertyInfo
instance AttrInfo DOMHTMLElementTitlePropertyInfo where
type AttrAllowedOps DOMHTMLElementTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLElementTitlePropertyInfo = IsDOMHTMLElement
type AttrSetTypeConstraint DOMHTMLElementTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMHTMLElementTitlePropertyInfo = (~) T.Text
type AttrTransferType DOMHTMLElementTitlePropertyInfo = T.Text
type AttrGetType DOMHTMLElementTitlePropertyInfo = (Maybe T.Text)
type AttrLabel DOMHTMLElementTitlePropertyInfo = "title"
type AttrOrigin DOMHTMLElementTitlePropertyInfo = DOMHTMLElement
attrGet = getDOMHTMLElementTitle
attrSet = setDOMHTMLElementTitle
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLElementTitle
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#g:attr:title"
})
#endif
getDOMHTMLElementTranslate :: (MonadIO m, IsDOMHTMLElement o) => o -> m Bool
getDOMHTMLElementTranslate :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m Bool
getDOMHTMLElementTranslate o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"translate"
setDOMHTMLElementTranslate :: (MonadIO m, IsDOMHTMLElement o) => o -> Bool -> m ()
setDOMHTMLElementTranslate :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> Bool -> m ()
setDOMHTMLElementTranslate o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"translate" Bool
val
constructDOMHTMLElementTranslate :: (IsDOMHTMLElement o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructDOMHTMLElementTranslate :: forall o (m :: * -> *).
(IsDOMHTMLElement o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructDOMHTMLElementTranslate Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"translate" Bool
val
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementTranslatePropertyInfo
instance AttrInfo DOMHTMLElementTranslatePropertyInfo where
type AttrAllowedOps DOMHTMLElementTranslatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLElementTranslatePropertyInfo = IsDOMHTMLElement
type AttrSetTypeConstraint DOMHTMLElementTranslatePropertyInfo = (~) Bool
type AttrTransferTypeConstraint DOMHTMLElementTranslatePropertyInfo = (~) Bool
type AttrTransferType DOMHTMLElementTranslatePropertyInfo = Bool
type AttrGetType DOMHTMLElementTranslatePropertyInfo = Bool
type AttrLabel DOMHTMLElementTranslatePropertyInfo = "translate"
type AttrOrigin DOMHTMLElementTranslatePropertyInfo = DOMHTMLElement
attrGet = getDOMHTMLElementTranslate
attrSet = setDOMHTMLElementTranslate
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLElementTranslate
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.translate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#g:attr:translate"
})
#endif
getDOMHTMLElementWebkitdropzone :: (MonadIO m, IsDOMHTMLElement o) => o -> m (Maybe T.Text)
getDOMHTMLElementWebkitdropzone :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> m (Maybe Text)
getDOMHTMLElementWebkitdropzone o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
"webkitdropzone"
setDOMHTMLElementWebkitdropzone :: (MonadIO m, IsDOMHTMLElement o) => o -> T.Text -> m ()
setDOMHTMLElementWebkitdropzone :: forall (m :: * -> *) o.
(MonadIO m, IsDOMHTMLElement o) =>
o -> Text -> m ()
setDOMHTMLElementWebkitdropzone o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
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
"webkitdropzone" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMHTMLElementWebkitdropzone :: (IsDOMHTMLElement o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDOMHTMLElementWebkitdropzone :: forall o (m :: * -> *).
(IsDOMHTMLElement o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDOMHTMLElementWebkitdropzone Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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
"webkitdropzone" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementWebkitdropzonePropertyInfo
instance AttrInfo DOMHTMLElementWebkitdropzonePropertyInfo where
type AttrAllowedOps DOMHTMLElementWebkitdropzonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = IsDOMHTMLElement
type AttrSetTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = (~) T.Text
type AttrTransferType DOMHTMLElementWebkitdropzonePropertyInfo = T.Text
type AttrGetType DOMHTMLElementWebkitdropzonePropertyInfo = (Maybe T.Text)
type AttrLabel DOMHTMLElementWebkitdropzonePropertyInfo = "webkitdropzone"
type AttrOrigin DOMHTMLElementWebkitdropzonePropertyInfo = DOMHTMLElement
attrGet = getDOMHTMLElementWebkitdropzone
attrSet = setDOMHTMLElementWebkitdropzone
attrTransfer _ v = do
return v
attrConstruct = constructDOMHTMLElementWebkitdropzone
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.webkitdropzone"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#g:attr:webkitdropzone"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMHTMLElement
type instance O.AttributeList DOMHTMLElement = DOMHTMLElementAttributeList
type DOMHTMLElementAttributeList = ('[ '("accessKey", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", WebKit2WebExtension.DOMElement.DOMElementAttributesPropertyInfo), '("baseUri", WebKit2WebExtension.DOMNode.DOMNodeBaseUriPropertyInfo), '("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", DOMHTMLElementContentEditablePropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("firstChild", WebKit2WebExtension.DOMNode.DOMNodeFirstChildPropertyInfo), '("firstElementChild", WebKit2WebExtension.DOMElement.DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", WebKit2WebExtension.DOMElement.DOMElementIdPropertyInfo), '("innerHtml", WebKit2WebExtension.DOMElement.DOMElementInnerHtmlPropertyInfo), '("innerText", DOMHTMLElementInnerTextPropertyInfo), '("isContentEditable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("lastChild", WebKit2WebExtension.DOMNode.DOMNodeLastChildPropertyInfo), '("lastElementChild", WebKit2WebExtension.DOMElement.DOMElementLastElementChildPropertyInfo), '("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", 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", DOMHTMLElementSpellcheckPropertyInfo), '("style", WebKit2WebExtension.DOMElement.DOMElementStylePropertyInfo), '("tabIndex", DOMHTMLElementTabIndexPropertyInfo), '("tagName", WebKit2WebExtension.DOMElement.DOMElementTagNamePropertyInfo), '("textContent", WebKit2WebExtension.DOMNode.DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkitRegionOverset", WebKit2WebExtension.DOMElement.DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMHTMLElementAccessKey :: AttrLabelProxy "accessKey"
dOMHTMLElementAccessKey = AttrLabelProxy
dOMHTMLElementContentEditable :: AttrLabelProxy "contentEditable"
dOMHTMLElementContentEditable = AttrLabelProxy
dOMHTMLElementDir :: AttrLabelProxy "dir"
dOMHTMLElementDir = AttrLabelProxy
dOMHTMLElementDraggable :: AttrLabelProxy "draggable"
dOMHTMLElementDraggable = AttrLabelProxy
dOMHTMLElementHidden :: AttrLabelProxy "hidden"
dOMHTMLElementHidden = AttrLabelProxy
dOMHTMLElementInnerText :: AttrLabelProxy "innerText"
dOMHTMLElementInnerText = AttrLabelProxy
dOMHTMLElementIsContentEditable :: AttrLabelProxy "isContentEditable"
dOMHTMLElementIsContentEditable = AttrLabelProxy
dOMHTMLElementLang :: AttrLabelProxy "lang"
dOMHTMLElementLang = AttrLabelProxy
dOMHTMLElementOuterText :: AttrLabelProxy "outerText"
dOMHTMLElementOuterText = AttrLabelProxy
dOMHTMLElementSpellcheck :: AttrLabelProxy "spellcheck"
dOMHTMLElementSpellcheck = AttrLabelProxy
dOMHTMLElementTabIndex :: AttrLabelProxy "tabIndex"
dOMHTMLElementTabIndex = AttrLabelProxy
dOMHTMLElementTitle :: AttrLabelProxy "title"
dOMHTMLElementTitle = AttrLabelProxy
dOMHTMLElementTranslate :: AttrLabelProxy "translate"
dOMHTMLElementTranslate = AttrLabelProxy
dOMHTMLElementWebkitdropzone :: AttrLabelProxy "webkitdropzone"
dOMHTMLElementWebkitdropzone = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMHTMLElement = DOMHTMLElementSignalList
type DOMHTMLElementSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "webkit_dom_html_element_click" webkit_dom_html_element_click ::
Ptr DOMHTMLElement ->
IO ()
{-# DEPRECATED dOMHTMLElementClick ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementClick ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m ()
dOMHTMLElementClick :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m ()
dOMHTMLElementClick a
self = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLElement -> IO ()
webkit_dom_html_element_click Ptr DOMHTMLElement
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementClickMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementClickMethodInfo a signature where
overloadedMethod = dOMHTMLElementClick
instance O.OverloadedMethodInfo DOMHTMLElementClickMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementClick",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementClick"
})
#endif
foreign import ccall "webkit_dom_html_element_get_access_key" webkit_dom_html_element_get_access_key ::
Ptr DOMHTMLElement ->
IO CString
{-# DEPRECATED dOMHTMLElementGetAccessKey ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementGetAccessKey ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m T.Text
dOMHTMLElementGetAccessKey :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Text
dOMHTMLElementGetAccessKey a
self = IO Text -> m Text
forall a. IO a -> m a
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 DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLElement -> IO CString
webkit_dom_html_element_get_access_key Ptr DOMHTMLElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLElementGetAccessKey" 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetAccessKeyMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetAccessKeyMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetAccessKey
instance O.OverloadedMethodInfo DOMHTMLElementGetAccessKeyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetAccessKey",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetAccessKey"
})
#endif
foreign import ccall "webkit_dom_html_element_get_children" webkit_dom_html_element_get_children ::
Ptr DOMHTMLElement ->
IO (Ptr WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection)
{-# DEPRECATED dOMHTMLElementGetChildren ["(Since version 2.10)","Use 'GI.WebKit2WebExtension.Objects.DOMElement.dOMElementGetChildren' instead."] #-}
dOMHTMLElementGetChildren ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection
dOMHTMLElementGetChildren :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m DOMHTMLCollection
dOMHTMLElementGetChildren a
self = IO DOMHTMLCollection -> m DOMHTMLCollection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMHTMLCollection -> m DOMHTMLCollection)
-> IO DOMHTMLCollection -> m DOMHTMLCollection
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLCollection
result <- Ptr DOMHTMLElement -> IO (Ptr DOMHTMLCollection)
webkit_dom_html_element_get_children Ptr DOMHTMLElement
self'
Text -> Ptr DOMHTMLCollection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLElementGetChildren" Ptr DOMHTMLCollection
result
DOMHTMLCollection
result' <- ((ManagedPtr DOMHTMLCollection -> DOMHTMLCollection)
-> Ptr DOMHTMLCollection -> IO DOMHTMLCollection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection) Ptr DOMHTMLCollection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMHTMLCollection -> IO DOMHTMLCollection
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMHTMLCollection
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetChildrenMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMHTMLCollection.DOMHTMLCollection), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetChildrenMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetChildren
instance O.OverloadedMethodInfo DOMHTMLElementGetChildrenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetChildren",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetChildren"
})
#endif
foreign import ccall "webkit_dom_html_element_get_content_editable" webkit_dom_html_element_get_content_editable ::
Ptr DOMHTMLElement ->
IO CString
{-# DEPRECATED dOMHTMLElementGetContentEditable ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementGetContentEditable ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m T.Text
dOMHTMLElementGetContentEditable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Text
dOMHTMLElementGetContentEditable a
self = IO Text -> m Text
forall a. IO a -> m a
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 DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLElement -> IO CString
webkit_dom_html_element_get_content_editable Ptr DOMHTMLElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLElementGetContentEditable" 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetContentEditableMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetContentEditableMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetContentEditable
instance O.OverloadedMethodInfo DOMHTMLElementGetContentEditableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetContentEditable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetContentEditable"
})
#endif
foreign import ccall "webkit_dom_html_element_get_dir" webkit_dom_html_element_get_dir ::
Ptr DOMHTMLElement ->
IO CString
{-# DEPRECATED dOMHTMLElementGetDir ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementGetDir ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m T.Text
dOMHTMLElementGetDir :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Text
dOMHTMLElementGetDir a
self = IO Text -> m Text
forall a. IO a -> m a
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 DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLElement -> IO CString
webkit_dom_html_element_get_dir Ptr DOMHTMLElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLElementGetDir" 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetDirMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetDirMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetDir
instance O.OverloadedMethodInfo DOMHTMLElementGetDirMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetDir",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetDir"
})
#endif
foreign import ccall "webkit_dom_html_element_get_draggable" webkit_dom_html_element_get_draggable ::
Ptr DOMHTMLElement ->
IO CInt
{-# DEPRECATED dOMHTMLElementGetDraggable ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementGetDraggable ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m Bool
dOMHTMLElementGetDraggable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Bool
dOMHTMLElementGetDraggable a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMHTMLElement -> IO CInt
webkit_dom_html_element_get_draggable Ptr DOMHTMLElement
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetDraggableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetDraggableMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetDraggable
instance O.OverloadedMethodInfo DOMHTMLElementGetDraggableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetDraggable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetDraggable"
})
#endif
foreign import ccall "webkit_dom_html_element_get_hidden" webkit_dom_html_element_get_hidden ::
Ptr DOMHTMLElement ->
IO CInt
{-# DEPRECATED dOMHTMLElementGetHidden ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementGetHidden ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m Bool
dOMHTMLElementGetHidden :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Bool
dOMHTMLElementGetHidden a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMHTMLElement -> IO CInt
webkit_dom_html_element_get_hidden Ptr DOMHTMLElement
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetHiddenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetHiddenMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetHidden
instance O.OverloadedMethodInfo DOMHTMLElementGetHiddenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetHidden",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetHidden"
})
#endif
foreign import ccall "webkit_dom_html_element_get_inner_html" webkit_dom_html_element_get_inner_html ::
Ptr DOMHTMLElement ->
IO CString
{-# DEPRECATED dOMHTMLElementGetInnerHtml ["(Since version 2.8)","Use 'GI.WebKit2WebExtension.Objects.DOMElement.dOMElementGetInnerHtml' instead."] #-}
dOMHTMLElementGetInnerHtml ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m T.Text
dOMHTMLElementGetInnerHtml :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Text
dOMHTMLElementGetInnerHtml a
self = IO Text -> m Text
forall a. IO a -> m a
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 DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLElement -> IO CString
webkit_dom_html_element_get_inner_html Ptr DOMHTMLElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLElementGetInnerHtml" 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetInnerHtmlMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetInnerHtmlMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetInnerHtml
instance O.OverloadedMethodInfo DOMHTMLElementGetInnerHtmlMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetInnerHtml",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetInnerHtml"
})
#endif
foreign import ccall "webkit_dom_html_element_get_inner_text" webkit_dom_html_element_get_inner_text ::
Ptr DOMHTMLElement ->
IO CString
{-# DEPRECATED dOMHTMLElementGetInnerText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementGetInnerText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m T.Text
dOMHTMLElementGetInnerText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Text
dOMHTMLElementGetInnerText a
self = IO Text -> m Text
forall a. IO a -> m a
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 DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLElement -> IO CString
webkit_dom_html_element_get_inner_text Ptr DOMHTMLElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLElementGetInnerText" 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetInnerTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetInnerTextMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetInnerText
instance O.OverloadedMethodInfo DOMHTMLElementGetInnerTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetInnerText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetInnerText"
})
#endif
foreign import ccall "webkit_dom_html_element_get_is_content_editable" webkit_dom_html_element_get_is_content_editable ::
Ptr DOMHTMLElement ->
IO CInt
{-# DEPRECATED dOMHTMLElementGetIsContentEditable ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementGetIsContentEditable ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m Bool
dOMHTMLElementGetIsContentEditable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Bool
dOMHTMLElementGetIsContentEditable a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMHTMLElement -> IO CInt
webkit_dom_html_element_get_is_content_editable Ptr DOMHTMLElement
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetIsContentEditableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetIsContentEditableMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetIsContentEditable
instance O.OverloadedMethodInfo DOMHTMLElementGetIsContentEditableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetIsContentEditable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetIsContentEditable"
})
#endif
foreign import ccall "webkit_dom_html_element_get_lang" webkit_dom_html_element_get_lang ::
Ptr DOMHTMLElement ->
IO CString
{-# DEPRECATED dOMHTMLElementGetLang ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementGetLang ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m T.Text
dOMHTMLElementGetLang :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Text
dOMHTMLElementGetLang a
self = IO Text -> m Text
forall a. IO a -> m a
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 DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLElement -> IO CString
webkit_dom_html_element_get_lang Ptr DOMHTMLElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLElementGetLang" 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetLangMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetLangMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetLang
instance O.OverloadedMethodInfo DOMHTMLElementGetLangMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetLang",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetLang"
})
#endif
foreign import ccall "webkit_dom_html_element_get_outer_html" webkit_dom_html_element_get_outer_html ::
Ptr DOMHTMLElement ->
IO CString
{-# DEPRECATED dOMHTMLElementGetOuterHtml ["(Since version 2.8)","Use 'GI.WebKit2WebExtension.Objects.DOMElement.dOMElementGetOuterHtml' instead."] #-}
dOMHTMLElementGetOuterHtml ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m T.Text
dOMHTMLElementGetOuterHtml :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Text
dOMHTMLElementGetOuterHtml a
self = IO Text -> m Text
forall a. IO a -> m a
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 DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLElement -> IO CString
webkit_dom_html_element_get_outer_html Ptr DOMHTMLElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLElementGetOuterHtml" 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetOuterHtmlMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetOuterHtmlMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetOuterHtml
instance O.OverloadedMethodInfo DOMHTMLElementGetOuterHtmlMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetOuterHtml",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetOuterHtml"
})
#endif
foreign import ccall "webkit_dom_html_element_get_outer_text" webkit_dom_html_element_get_outer_text ::
Ptr DOMHTMLElement ->
IO CString
{-# DEPRECATED dOMHTMLElementGetOuterText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementGetOuterText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m T.Text
dOMHTMLElementGetOuterText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Text
dOMHTMLElementGetOuterText a
self = IO Text -> m Text
forall a. IO a -> m a
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 DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLElement -> IO CString
webkit_dom_html_element_get_outer_text Ptr DOMHTMLElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLElementGetOuterText" 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetOuterTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetOuterTextMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetOuterText
instance O.OverloadedMethodInfo DOMHTMLElementGetOuterTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetOuterText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetOuterText"
})
#endif
foreign import ccall "webkit_dom_html_element_get_spellcheck" webkit_dom_html_element_get_spellcheck ::
Ptr DOMHTMLElement ->
IO CInt
{-# DEPRECATED dOMHTMLElementGetSpellcheck ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementGetSpellcheck ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m Bool
dOMHTMLElementGetSpellcheck :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Bool
dOMHTMLElementGetSpellcheck a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMHTMLElement -> IO CInt
webkit_dom_html_element_get_spellcheck Ptr DOMHTMLElement
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetSpellcheckMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetSpellcheckMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetSpellcheck
instance O.OverloadedMethodInfo DOMHTMLElementGetSpellcheckMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetSpellcheck",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetSpellcheck"
})
#endif
foreign import ccall "webkit_dom_html_element_get_tab_index" webkit_dom_html_element_get_tab_index ::
Ptr DOMHTMLElement ->
IO CLong
{-# DEPRECATED dOMHTMLElementGetTabIndex ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementGetTabIndex ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m CLong
dOMHTMLElementGetTabIndex :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m CLong
dOMHTMLElementGetTabIndex a
self = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMHTMLElement -> IO CLong
webkit_dom_html_element_get_tab_index Ptr DOMHTMLElement
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetTabIndexMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetTabIndexMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetTabIndex
instance O.OverloadedMethodInfo DOMHTMLElementGetTabIndexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetTabIndex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetTabIndex"
})
#endif
foreign import ccall "webkit_dom_html_element_get_title" webkit_dom_html_element_get_title ::
Ptr DOMHTMLElement ->
IO CString
{-# DEPRECATED dOMHTMLElementGetTitle ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m T.Text
dOMHTMLElementGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Text
dOMHTMLElementGetTitle a
self = IO Text -> m Text
forall a. IO a -> m a
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 DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLElement -> IO CString
webkit_dom_html_element_get_title Ptr DOMHTMLElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLElementGetTitle" 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetTitleMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetTitle
instance O.OverloadedMethodInfo DOMHTMLElementGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetTitle"
})
#endif
foreign import ccall "webkit_dom_html_element_get_translate" webkit_dom_html_element_get_translate ::
Ptr DOMHTMLElement ->
IO CInt
{-# DEPRECATED dOMHTMLElementGetTranslate ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementGetTranslate ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m Bool
dOMHTMLElementGetTranslate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Bool
dOMHTMLElementGetTranslate a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMHTMLElement -> IO CInt
webkit_dom_html_element_get_translate Ptr DOMHTMLElement
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetTranslateMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetTranslateMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetTranslate
instance O.OverloadedMethodInfo DOMHTMLElementGetTranslateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetTranslate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetTranslate"
})
#endif
foreign import ccall "webkit_dom_html_element_get_webkitdropzone" webkit_dom_html_element_get_webkitdropzone ::
Ptr DOMHTMLElement ->
IO CString
{-# DEPRECATED dOMHTMLElementGetWebkitdropzone ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementGetWebkitdropzone ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> m T.Text
dOMHTMLElementGetWebkitdropzone :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> m Text
dOMHTMLElementGetWebkitdropzone a
self = IO Text -> m Text
forall a. IO a -> m a
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 DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMHTMLElement -> IO CString
webkit_dom_html_element_get_webkitdropzone Ptr DOMHTMLElement
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMHTMLElementGetWebkitdropzone" 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementGetWebkitdropzoneMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementGetWebkitdropzoneMethodInfo a signature where
overloadedMethod = dOMHTMLElementGetWebkitdropzone
instance O.OverloadedMethodInfo DOMHTMLElementGetWebkitdropzoneMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementGetWebkitdropzone",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementGetWebkitdropzone"
})
#endif
foreign import ccall "webkit_dom_html_element_set_access_key" webkit_dom_html_element_set_access_key ::
Ptr DOMHTMLElement ->
CString ->
IO ()
{-# DEPRECATED dOMHTMLElementSetAccessKey ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementSetAccessKey ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> T.Text
-> m ()
dOMHTMLElementSetAccessKey :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> Text -> m ()
dOMHTMLElementSetAccessKey a
self Text
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMHTMLElement -> CString -> IO ()
webkit_dom_html_element_set_access_key Ptr DOMHTMLElement
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetAccessKeyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetAccessKeyMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetAccessKey
instance O.OverloadedMethodInfo DOMHTMLElementSetAccessKeyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetAccessKey",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetAccessKey"
})
#endif
foreign import ccall "webkit_dom_html_element_set_content_editable" webkit_dom_html_element_set_content_editable ::
Ptr DOMHTMLElement ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMHTMLElementSetContentEditable ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementSetContentEditable ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> T.Text
-> m ()
dOMHTMLElementSetContentEditable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> Text -> m ()
dOMHTMLElementSetContentEditable a
self Text
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMHTMLElement -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_html_element_set_content_editable Ptr DOMHTMLElement
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetContentEditableMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetContentEditableMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetContentEditable
instance O.OverloadedMethodInfo DOMHTMLElementSetContentEditableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetContentEditable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetContentEditable"
})
#endif
foreign import ccall "webkit_dom_html_element_set_dir" webkit_dom_html_element_set_dir ::
Ptr DOMHTMLElement ->
CString ->
IO ()
{-# DEPRECATED dOMHTMLElementSetDir ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementSetDir ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> T.Text
-> m ()
dOMHTMLElementSetDir :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> Text -> m ()
dOMHTMLElementSetDir a
self Text
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMHTMLElement -> CString -> IO ()
webkit_dom_html_element_set_dir Ptr DOMHTMLElement
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetDirMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetDirMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetDir
instance O.OverloadedMethodInfo DOMHTMLElementSetDirMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetDir",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetDir"
})
#endif
foreign import ccall "webkit_dom_html_element_set_draggable" webkit_dom_html_element_set_draggable ::
Ptr DOMHTMLElement ->
CInt ->
IO ()
{-# DEPRECATED dOMHTMLElementSetDraggable ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementSetDraggable ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> Bool
-> m ()
dOMHTMLElementSetDraggable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> Bool -> m ()
dOMHTMLElementSetDraggable a
self Bool
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CInt
value' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
value
Ptr DOMHTMLElement -> CInt -> IO ()
webkit_dom_html_element_set_draggable Ptr DOMHTMLElement
self' CInt
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetDraggableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetDraggableMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetDraggable
instance O.OverloadedMethodInfo DOMHTMLElementSetDraggableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetDraggable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetDraggable"
})
#endif
foreign import ccall "webkit_dom_html_element_set_hidden" webkit_dom_html_element_set_hidden ::
Ptr DOMHTMLElement ->
CInt ->
IO ()
{-# DEPRECATED dOMHTMLElementSetHidden ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementSetHidden ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> Bool
-> m ()
dOMHTMLElementSetHidden :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> Bool -> m ()
dOMHTMLElementSetHidden a
self Bool
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CInt
value' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
value
Ptr DOMHTMLElement -> CInt -> IO ()
webkit_dom_html_element_set_hidden Ptr DOMHTMLElement
self' CInt
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetHiddenMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetHiddenMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetHidden
instance O.OverloadedMethodInfo DOMHTMLElementSetHiddenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetHidden",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetHidden"
})
#endif
foreign import ccall "webkit_dom_html_element_set_inner_html" webkit_dom_html_element_set_inner_html ::
Ptr DOMHTMLElement ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMHTMLElementSetInnerHtml ["(Since version 2.8)","Use 'GI.WebKit2WebExtension.Objects.DOMElement.dOMElementSetInnerHtml' instead."] #-}
dOMHTMLElementSetInnerHtml ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> T.Text
-> m ()
dOMHTMLElementSetInnerHtml :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> Text -> m ()
dOMHTMLElementSetInnerHtml a
self Text
contents = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
contents' <- Text -> IO CString
textToCString Text
contents
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMHTMLElement -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_html_element_set_inner_html Ptr DOMHTMLElement
self' CString
contents'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
contents'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
contents'
)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetInnerHtmlMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetInnerHtmlMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetInnerHtml
instance O.OverloadedMethodInfo DOMHTMLElementSetInnerHtmlMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetInnerHtml",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetInnerHtml"
})
#endif
foreign import ccall "webkit_dom_html_element_set_inner_text" webkit_dom_html_element_set_inner_text ::
Ptr DOMHTMLElement ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMHTMLElementSetInnerText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementSetInnerText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> T.Text
-> m ()
dOMHTMLElementSetInnerText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> Text -> m ()
dOMHTMLElementSetInnerText a
self Text
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMHTMLElement -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_html_element_set_inner_text Ptr DOMHTMLElement
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetInnerTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetInnerTextMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetInnerText
instance O.OverloadedMethodInfo DOMHTMLElementSetInnerTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetInnerText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetInnerText"
})
#endif
foreign import ccall "webkit_dom_html_element_set_lang" webkit_dom_html_element_set_lang ::
Ptr DOMHTMLElement ->
CString ->
IO ()
{-# DEPRECATED dOMHTMLElementSetLang ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementSetLang ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> T.Text
-> m ()
dOMHTMLElementSetLang :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> Text -> m ()
dOMHTMLElementSetLang a
self Text
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMHTMLElement -> CString -> IO ()
webkit_dom_html_element_set_lang Ptr DOMHTMLElement
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetLangMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetLangMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetLang
instance O.OverloadedMethodInfo DOMHTMLElementSetLangMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetLang",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetLang"
})
#endif
foreign import ccall "webkit_dom_html_element_set_outer_html" webkit_dom_html_element_set_outer_html ::
Ptr DOMHTMLElement ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMHTMLElementSetOuterHtml ["(Since version 2.8)","Use 'GI.WebKit2WebExtension.Objects.DOMElement.dOMElementSetOuterHtml' instead."] #-}
dOMHTMLElementSetOuterHtml ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> T.Text
-> m ()
dOMHTMLElementSetOuterHtml :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> Text -> m ()
dOMHTMLElementSetOuterHtml a
self Text
contents = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
contents' <- Text -> IO CString
textToCString Text
contents
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMHTMLElement -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_html_element_set_outer_html Ptr DOMHTMLElement
self' CString
contents'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
contents'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
contents'
)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetOuterHtmlMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetOuterHtmlMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetOuterHtml
instance O.OverloadedMethodInfo DOMHTMLElementSetOuterHtmlMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetOuterHtml",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetOuterHtml"
})
#endif
foreign import ccall "webkit_dom_html_element_set_outer_text" webkit_dom_html_element_set_outer_text ::
Ptr DOMHTMLElement ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMHTMLElementSetOuterText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementSetOuterText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> T.Text
-> m ()
dOMHTMLElementSetOuterText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> Text -> m ()
dOMHTMLElementSetOuterText a
self Text
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMHTMLElement -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_html_element_set_outer_text Ptr DOMHTMLElement
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
)
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetOuterTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetOuterTextMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetOuterText
instance O.OverloadedMethodInfo DOMHTMLElementSetOuterTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetOuterText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetOuterText"
})
#endif
foreign import ccall "webkit_dom_html_element_set_spellcheck" webkit_dom_html_element_set_spellcheck ::
Ptr DOMHTMLElement ->
CInt ->
IO ()
{-# DEPRECATED dOMHTMLElementSetSpellcheck ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementSetSpellcheck ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> Bool
-> m ()
dOMHTMLElementSetSpellcheck :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> Bool -> m ()
dOMHTMLElementSetSpellcheck a
self Bool
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CInt
value' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
value
Ptr DOMHTMLElement -> CInt -> IO ()
webkit_dom_html_element_set_spellcheck Ptr DOMHTMLElement
self' CInt
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetSpellcheckMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetSpellcheckMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetSpellcheck
instance O.OverloadedMethodInfo DOMHTMLElementSetSpellcheckMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetSpellcheck",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetSpellcheck"
})
#endif
foreign import ccall "webkit_dom_html_element_set_tab_index" webkit_dom_html_element_set_tab_index ::
Ptr DOMHTMLElement ->
CLong ->
IO ()
{-# DEPRECATED dOMHTMLElementSetTabIndex ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementSetTabIndex ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> CLong
-> m ()
dOMHTMLElementSetTabIndex :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> CLong -> m ()
dOMHTMLElementSetTabIndex a
self CLong
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMHTMLElement -> CLong -> IO ()
webkit_dom_html_element_set_tab_index Ptr DOMHTMLElement
self' CLong
value
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetTabIndexMethodInfo
instance (signature ~ (CLong -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetTabIndexMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetTabIndex
instance O.OverloadedMethodInfo DOMHTMLElementSetTabIndexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetTabIndex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetTabIndex"
})
#endif
foreign import ccall "webkit_dom_html_element_set_title" webkit_dom_html_element_set_title ::
Ptr DOMHTMLElement ->
CString ->
IO ()
{-# DEPRECATED dOMHTMLElementSetTitle ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> T.Text
-> m ()
dOMHTMLElementSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> Text -> m ()
dOMHTMLElementSetTitle a
self Text
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMHTMLElement -> CString -> IO ()
webkit_dom_html_element_set_title Ptr DOMHTMLElement
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetTitleMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetTitle
instance O.OverloadedMethodInfo DOMHTMLElementSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetTitle"
})
#endif
foreign import ccall "webkit_dom_html_element_set_translate" webkit_dom_html_element_set_translate ::
Ptr DOMHTMLElement ->
CInt ->
IO ()
{-# DEPRECATED dOMHTMLElementSetTranslate ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementSetTranslate ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> Bool
-> m ()
dOMHTMLElementSetTranslate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> Bool -> m ()
dOMHTMLElementSetTranslate a
self Bool
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CInt
value' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
value
Ptr DOMHTMLElement -> CInt -> IO ()
webkit_dom_html_element_set_translate Ptr DOMHTMLElement
self' CInt
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetTranslateMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetTranslateMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetTranslate
instance O.OverloadedMethodInfo DOMHTMLElementSetTranslateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetTranslate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetTranslate"
})
#endif
foreign import ccall "webkit_dom_html_element_set_webkitdropzone" webkit_dom_html_element_set_webkitdropzone ::
Ptr DOMHTMLElement ->
CString ->
IO ()
{-# DEPRECATED dOMHTMLElementSetWebkitdropzone ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLElementSetWebkitdropzone ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a
-> T.Text
-> m ()
dOMHTMLElementSetWebkitdropzone :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMHTMLElement a) =>
a -> Text -> m ()
dOMHTMLElementSetWebkitdropzone a
self Text
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLElement
self' <- a -> IO (Ptr DOMHTMLElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
Ptr DOMHTMLElement -> CString -> IO ()
webkit_dom_html_element_set_webkitdropzone Ptr DOMHTMLElement
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMHTMLElementSetWebkitdropzoneMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMHTMLElement a) => O.OverloadedMethod DOMHTMLElementSetWebkitdropzoneMethodInfo a signature where
overloadedMethod = dOMHTMLElementSetWebkitdropzone
instance O.OverloadedMethodInfo DOMHTMLElementSetWebkitdropzoneMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMHTMLElement.dOMHTMLElementSetWebkitdropzone",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMHTMLElement.html#v:dOMHTMLElementSetWebkitdropzone"
})
#endif