diff --git a/GI/WebKit.hs b/GI/WebKit.hs new file mode 100644 # file too large to diff: GI/WebKit.hs diff --git a/GI/WebKitAttributes.hs b/GI/WebKitAttributes.hs new file mode 100644 --- /dev/null +++ b/GI/WebKitAttributes.hs @@ -0,0 +1,23498 @@ +{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-} + +-- Generated code. + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds, + TypeFamilies, MultiParamTypeClasses, KindSignatures, + FlexibleInstances, UndecidableInstances, DataKinds, + OverloadedStrings, NegativeLiterals, FlexibleContexts #-} + +module GI.WebKitAttributes where + +import Prelude () +import Data.GI.Base.ShortPrelude +import Data.Char +import Data.Int +import Data.Word +import qualified Data.ByteString.Char8 as B +import Data.ByteString.Char8 (ByteString) +import qualified Data.Map as Map +import Foreign.C +import Foreign.Ptr +import Foreign.ForeignPtr +import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) +import Foreign.Storable (peek, poke, sizeOf) +import Control.Applicative ((<$>)) +import Control.Exception (onException) +import Control.Monad.IO.Class +import qualified Data.Text as T + +import Data.GI.Base.Attributes hiding (get, set) +import Data.GI.Base.BasicTypes +import Data.GI.Base.BasicConversions +import Data.GI.Base.Closure +import Data.GI.Base.GError +import Data.GI.Base.GHashTable +import Data.GI.Base.GParamSpec +import Data.GI.Base.GVariant +import Data.GI.Base.GValue +import Data.GI.Base.ManagedPtr +import Data.GI.Base.Overloading +import Data.GI.Base.Properties hiding (new) +import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId) +import Data.GI.Base.Utils + +import qualified GI.Gtk as Gtk +import qualified GI.GtkAttributes as GtkA +import qualified GI.Soup as Soup +import qualified GI.SoupAttributes as SoupA +import GI.WebKit + +-- VVV Prop "is-id" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMAttrIsId :: (MonadIO m, DOMAttrK o) => o -> m Bool +getDOMAttrIsId obj = liftIO $ getObjectPropertyBool obj "is-id" + +data DOMAttrIsIdPropertyInfo +instance AttrInfo DOMAttrIsIdPropertyInfo where + type AttrAllowedOps DOMAttrIsIdPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAttrIsIdPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAttrIsIdPropertyInfo = DOMAttrK + type AttrGetType DOMAttrIsIdPropertyInfo = Bool + type AttrLabel DOMAttrIsIdPropertyInfo = "DOMAttr::is-id" + attrGet _ = getDOMAttrIsId + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMAttrName :: (MonadIO m, DOMAttrK o) => o -> m T.Text +getDOMAttrName obj = liftIO $ getObjectPropertyString obj "name" + +data DOMAttrNamePropertyInfo +instance AttrInfo DOMAttrNamePropertyInfo where + type AttrAllowedOps DOMAttrNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAttrNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAttrNamePropertyInfo = DOMAttrK + type AttrGetType DOMAttrNamePropertyInfo = T.Text + type AttrLabel DOMAttrNamePropertyInfo = "DOMAttr::name" + attrGet _ = getDOMAttrName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "owner-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMAttrOwnerElement :: (MonadIO m, DOMAttrK o) => o -> m DOMElement +getDOMAttrOwnerElement obj = liftIO $ getObjectPropertyObject obj "owner-element" DOMElement + +data DOMAttrOwnerElementPropertyInfo +instance AttrInfo DOMAttrOwnerElementPropertyInfo where + type AttrAllowedOps DOMAttrOwnerElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAttrOwnerElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAttrOwnerElementPropertyInfo = DOMAttrK + type AttrGetType DOMAttrOwnerElementPropertyInfo = DOMElement + type AttrLabel DOMAttrOwnerElementPropertyInfo = "DOMAttr::owner-element" + attrGet _ = getDOMAttrOwnerElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "specified" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMAttrSpecified :: (MonadIO m, DOMAttrK o) => o -> m Bool +getDOMAttrSpecified obj = liftIO $ getObjectPropertyBool obj "specified" + +data DOMAttrSpecifiedPropertyInfo +instance AttrInfo DOMAttrSpecifiedPropertyInfo where + type AttrAllowedOps DOMAttrSpecifiedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAttrSpecifiedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAttrSpecifiedPropertyInfo = DOMAttrK + type AttrGetType DOMAttrSpecifiedPropertyInfo = Bool + type AttrLabel DOMAttrSpecifiedPropertyInfo = "DOMAttr::specified" + attrGet _ = getDOMAttrSpecified + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> m T.Text +getDOMAttrValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMAttrValue :: (MonadIO m, DOMAttrK o) => o -> T.Text -> m () +setDOMAttrValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMAttrValue :: T.Text -> IO ([Char], GValue) +constructDOMAttrValue val = constructObjectPropertyString "value" val + +data DOMAttrValuePropertyInfo +instance AttrInfo DOMAttrValuePropertyInfo where + type AttrAllowedOps DOMAttrValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMAttrValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMAttrValuePropertyInfo = DOMAttrK + type AttrGetType DOMAttrValuePropertyInfo = T.Text + type AttrLabel DOMAttrValuePropertyInfo = "DOMAttr::value" + attrGet _ = getDOMAttrValue + attrSet _ = setDOMAttrValue + attrConstruct _ = constructDOMAttrValue + +type instance AttributeList DOMAttr = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("is-id", DOMAttrIsIdPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMAttrNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("owner-element", DOMAttrOwnerElementPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("specified", DOMAttrSpecifiedPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("value", DOMAttrValuePropertyInfo)] + +-- VVV Prop "enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMAudioTrackEnabled :: (MonadIO m, DOMAudioTrackK o) => o -> m Bool +getDOMAudioTrackEnabled obj = liftIO $ getObjectPropertyBool obj "enabled" + +setDOMAudioTrackEnabled :: (MonadIO m, DOMAudioTrackK o) => o -> Bool -> m () +setDOMAudioTrackEnabled obj val = liftIO $ setObjectPropertyBool obj "enabled" val + +constructDOMAudioTrackEnabled :: Bool -> IO ([Char], GValue) +constructDOMAudioTrackEnabled val = constructObjectPropertyBool "enabled" val + +data DOMAudioTrackEnabledPropertyInfo +instance AttrInfo DOMAudioTrackEnabledPropertyInfo where + type AttrAllowedOps DOMAudioTrackEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMAudioTrackEnabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMAudioTrackEnabledPropertyInfo = DOMAudioTrackK + type AttrGetType DOMAudioTrackEnabledPropertyInfo = Bool + type AttrLabel DOMAudioTrackEnabledPropertyInfo = "DOMAudioTrack::enabled" + attrGet _ = getDOMAudioTrackEnabled + attrSet _ = setDOMAudioTrackEnabled + attrConstruct _ = constructDOMAudioTrackEnabled + +-- VVV Prop "id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMAudioTrackId :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text +getDOMAudioTrackId obj = liftIO $ getObjectPropertyString obj "id" + +data DOMAudioTrackIdPropertyInfo +instance AttrInfo DOMAudioTrackIdPropertyInfo where + type AttrAllowedOps DOMAudioTrackIdPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAudioTrackIdPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAudioTrackIdPropertyInfo = DOMAudioTrackK + type AttrGetType DOMAudioTrackIdPropertyInfo = T.Text + type AttrLabel DOMAudioTrackIdPropertyInfo = "DOMAudioTrack::id" + attrGet _ = getDOMAudioTrackId + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "kind" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMAudioTrackKind :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text +getDOMAudioTrackKind obj = liftIO $ getObjectPropertyString obj "kind" + +data DOMAudioTrackKindPropertyInfo +instance AttrInfo DOMAudioTrackKindPropertyInfo where + type AttrAllowedOps DOMAudioTrackKindPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAudioTrackKindPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAudioTrackKindPropertyInfo = DOMAudioTrackK + type AttrGetType DOMAudioTrackKindPropertyInfo = T.Text + type AttrLabel DOMAudioTrackKindPropertyInfo = "DOMAudioTrack::kind" + attrGet _ = getDOMAudioTrackKind + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMAudioTrackLabel :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text +getDOMAudioTrackLabel obj = liftIO $ getObjectPropertyString obj "label" + +data DOMAudioTrackLabelPropertyInfo +instance AttrInfo DOMAudioTrackLabelPropertyInfo where + type AttrAllowedOps DOMAudioTrackLabelPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAudioTrackLabelPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAudioTrackLabelPropertyInfo = DOMAudioTrackK + type AttrGetType DOMAudioTrackLabelPropertyInfo = T.Text + type AttrLabel DOMAudioTrackLabelPropertyInfo = "DOMAudioTrack::label" + attrGet _ = getDOMAudioTrackLabel + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "language" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMAudioTrackLanguage :: (MonadIO m, DOMAudioTrackK o) => o -> m T.Text +getDOMAudioTrackLanguage obj = liftIO $ getObjectPropertyString obj "language" + +data DOMAudioTrackLanguagePropertyInfo +instance AttrInfo DOMAudioTrackLanguagePropertyInfo where + type AttrAllowedOps DOMAudioTrackLanguagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAudioTrackLanguagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAudioTrackLanguagePropertyInfo = DOMAudioTrackK + type AttrGetType DOMAudioTrackLanguagePropertyInfo = T.Text + type AttrLabel DOMAudioTrackLanguagePropertyInfo = "DOMAudioTrack::language" + attrGet _ = getDOMAudioTrackLanguage + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMAudioTrack = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("enabled", DOMAudioTrackEnabledPropertyInfo), '("id", DOMAudioTrackIdPropertyInfo), '("kind", DOMAudioTrackKindPropertyInfo), '("label", DOMAudioTrackLabelPropertyInfo), '("language", DOMAudioTrackLanguagePropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMAudioTrackListLength :: (MonadIO m, DOMAudioTrackListK o) => o -> m Word64 +getDOMAudioTrackListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMAudioTrackListLengthPropertyInfo +instance AttrInfo DOMAudioTrackListLengthPropertyInfo where + type AttrAllowedOps DOMAudioTrackListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMAudioTrackListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMAudioTrackListLengthPropertyInfo = DOMAudioTrackListK + type AttrGetType DOMAudioTrackListLengthPropertyInfo = Word64 + type AttrLabel DOMAudioTrackListLengthPropertyInfo = "DOMAudioTrackList::length" + attrGet _ = getDOMAudioTrackListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMAudioTrackList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMAudioTrackListLengthPropertyInfo)] + +-- VVV Prop "visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMBarInfoVisible :: (MonadIO m, DOMBarInfoK o) => o -> m Bool +getDOMBarInfoVisible obj = liftIO $ getObjectPropertyBool obj "visible" + +data DOMBarInfoVisiblePropertyInfo +instance AttrInfo DOMBarInfoVisiblePropertyInfo where + type AttrAllowedOps DOMBarInfoVisiblePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBarInfoVisiblePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBarInfoVisiblePropertyInfo = DOMBarInfoK + type AttrGetType DOMBarInfoVisiblePropertyInfo = Bool + type AttrLabel DOMBarInfoVisiblePropertyInfo = "DOMBarInfo::visible" + attrGet _ = getDOMBarInfoVisible + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMBarInfo = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("visible", DOMBarInfoVisiblePropertyInfo)] + +-- VVV Prop "visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMBarPropVisible :: (MonadIO m, DOMBarPropK o) => o -> m Bool +getDOMBarPropVisible obj = liftIO $ getObjectPropertyBool obj "visible" + +data DOMBarPropVisiblePropertyInfo +instance AttrInfo DOMBarPropVisiblePropertyInfo where + type AttrAllowedOps DOMBarPropVisiblePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBarPropVisiblePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBarPropVisiblePropertyInfo = DOMBarPropK + type AttrGetType DOMBarPropVisiblePropertyInfo = Bool + type AttrLabel DOMBarPropVisiblePropertyInfo = "DOMBarProp::visible" + attrGet _ = getDOMBarPropVisible + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMBarProp = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("visible", DOMBarPropVisiblePropertyInfo)] + +-- VVV Prop "charging" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMBatteryManagerCharging :: (MonadIO m, DOMBatteryManagerK o) => o -> m Bool +getDOMBatteryManagerCharging obj = liftIO $ getObjectPropertyBool obj "charging" + +data DOMBatteryManagerChargingPropertyInfo +instance AttrInfo DOMBatteryManagerChargingPropertyInfo where + type AttrAllowedOps DOMBatteryManagerChargingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBatteryManagerChargingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBatteryManagerChargingPropertyInfo = DOMBatteryManagerK + type AttrGetType DOMBatteryManagerChargingPropertyInfo = Bool + type AttrLabel DOMBatteryManagerChargingPropertyInfo = "DOMBatteryManager::charging" + attrGet _ = getDOMBatteryManagerCharging + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "charging-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMBatteryManagerChargingTime :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double +getDOMBatteryManagerChargingTime obj = liftIO $ getObjectPropertyDouble obj "charging-time" + +data DOMBatteryManagerChargingTimePropertyInfo +instance AttrInfo DOMBatteryManagerChargingTimePropertyInfo where + type AttrAllowedOps DOMBatteryManagerChargingTimePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBatteryManagerChargingTimePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBatteryManagerChargingTimePropertyInfo = DOMBatteryManagerK + type AttrGetType DOMBatteryManagerChargingTimePropertyInfo = Double + type AttrLabel DOMBatteryManagerChargingTimePropertyInfo = "DOMBatteryManager::charging-time" + attrGet _ = getDOMBatteryManagerChargingTime + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "discharging-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMBatteryManagerDischargingTime :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double +getDOMBatteryManagerDischargingTime obj = liftIO $ getObjectPropertyDouble obj "discharging-time" + +data DOMBatteryManagerDischargingTimePropertyInfo +instance AttrInfo DOMBatteryManagerDischargingTimePropertyInfo where + type AttrAllowedOps DOMBatteryManagerDischargingTimePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBatteryManagerDischargingTimePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBatteryManagerDischargingTimePropertyInfo = DOMBatteryManagerK + type AttrGetType DOMBatteryManagerDischargingTimePropertyInfo = Double + type AttrLabel DOMBatteryManagerDischargingTimePropertyInfo = "DOMBatteryManager::discharging-time" + attrGet _ = getDOMBatteryManagerDischargingTime + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "level" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMBatteryManagerLevel :: (MonadIO m, DOMBatteryManagerK o) => o -> m Double +getDOMBatteryManagerLevel obj = liftIO $ getObjectPropertyDouble obj "level" + +data DOMBatteryManagerLevelPropertyInfo +instance AttrInfo DOMBatteryManagerLevelPropertyInfo where + type AttrAllowedOps DOMBatteryManagerLevelPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBatteryManagerLevelPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBatteryManagerLevelPropertyInfo = DOMBatteryManagerK + type AttrGetType DOMBatteryManagerLevelPropertyInfo = Double + type AttrLabel DOMBatteryManagerLevelPropertyInfo = "DOMBatteryManager::level" + attrGet _ = getDOMBatteryManagerLevel + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMBatteryManager = '[ '("charging", DOMBatteryManagerChargingPropertyInfo), '("charging-time", DOMBatteryManagerChargingTimePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("discharging-time", DOMBatteryManagerDischargingTimePropertyInfo), '("level", DOMBatteryManagerLevelPropertyInfo)] + +-- VVV Prop "size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMBlobSize :: (MonadIO m, DOMBlobK o) => o -> m Word64 +getDOMBlobSize obj = liftIO $ getObjectPropertyUInt64 obj "size" + +data DOMBlobSizePropertyInfo +instance AttrInfo DOMBlobSizePropertyInfo where + type AttrAllowedOps DOMBlobSizePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBlobSizePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBlobSizePropertyInfo = DOMBlobK + type AttrGetType DOMBlobSizePropertyInfo = Word64 + type AttrLabel DOMBlobSizePropertyInfo = "DOMBlob::size" + attrGet _ = getDOMBlobSize + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMBlobType :: (MonadIO m, DOMBlobK o) => o -> m T.Text +getDOMBlobType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMBlobTypePropertyInfo +instance AttrInfo DOMBlobTypePropertyInfo where + type AttrAllowedOps DOMBlobTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMBlobTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMBlobTypePropertyInfo = DOMBlobK + type AttrGetType DOMBlobTypePropertyInfo = T.Text + type AttrLabel DOMBlobTypePropertyInfo = "DOMBlob::type" + attrGet _ = getDOMBlobType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMBlob = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("size", DOMBlobSizePropertyInfo), '("type", DOMBlobTypePropertyInfo)] + +type instance AttributeList DOMCDATASection = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("whole-text", DOMTextWholeTextPropertyInfo)] + +-- VVV Prop "css-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> m T.Text +getDOMCSSRuleCssText obj = liftIO $ getObjectPropertyString obj "css-text" + +setDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> T.Text -> m () +setDOMCSSRuleCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val + +constructDOMCSSRuleCssText :: T.Text -> IO ([Char], GValue) +constructDOMCSSRuleCssText val = constructObjectPropertyString "css-text" val + +data DOMCSSRuleCssTextPropertyInfo +instance AttrInfo DOMCSSRuleCssTextPropertyInfo where + type AttrAllowedOps DOMCSSRuleCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMCSSRuleCssTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMCSSRuleCssTextPropertyInfo = DOMCSSRuleK + type AttrGetType DOMCSSRuleCssTextPropertyInfo = T.Text + type AttrLabel DOMCSSRuleCssTextPropertyInfo = "DOMCSSRule::css-text" + attrGet _ = getDOMCSSRuleCssText + attrSet _ = setDOMCSSRuleCssText + attrConstruct _ = constructDOMCSSRuleCssText + +-- VVV Prop "parent-rule" + -- Type: TInterface "WebKit" "DOMCSSRule" + -- Flags: [PropertyReadable] + +getDOMCSSRuleParentRule :: (MonadIO m, DOMCSSRuleK o) => o -> m DOMCSSRule +getDOMCSSRuleParentRule obj = liftIO $ getObjectPropertyObject obj "parent-rule" DOMCSSRule + +data DOMCSSRuleParentRulePropertyInfo +instance AttrInfo DOMCSSRuleParentRulePropertyInfo where + type AttrAllowedOps DOMCSSRuleParentRulePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSRuleParentRulePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSRuleParentRulePropertyInfo = DOMCSSRuleK + type AttrGetType DOMCSSRuleParentRulePropertyInfo = DOMCSSRule + type AttrLabel DOMCSSRuleParentRulePropertyInfo = "DOMCSSRule::parent-rule" + attrGet _ = getDOMCSSRuleParentRule + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "parent-style-sheet" + -- Type: TInterface "WebKit" "DOMCSSStyleSheet" + -- Flags: [PropertyReadable] + +getDOMCSSRuleParentStyleSheet :: (MonadIO m, DOMCSSRuleK o) => o -> m DOMCSSStyleSheet +getDOMCSSRuleParentStyleSheet obj = liftIO $ getObjectPropertyObject obj "parent-style-sheet" DOMCSSStyleSheet + +data DOMCSSRuleParentStyleSheetPropertyInfo +instance AttrInfo DOMCSSRuleParentStyleSheetPropertyInfo where + type AttrAllowedOps DOMCSSRuleParentStyleSheetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = DOMCSSRuleK + type AttrGetType DOMCSSRuleParentStyleSheetPropertyInfo = DOMCSSStyleSheet + type AttrLabel DOMCSSRuleParentStyleSheetPropertyInfo = "DOMCSSRule::parent-style-sheet" + attrGet _ = getDOMCSSRuleParentStyleSheet + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMCSSRuleType :: (MonadIO m, DOMCSSRuleK o) => o -> m Word32 +getDOMCSSRuleType obj = liftIO $ getObjectPropertyCUInt obj "type" + +data DOMCSSRuleTypePropertyInfo +instance AttrInfo DOMCSSRuleTypePropertyInfo where + type AttrAllowedOps DOMCSSRuleTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSRuleTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSRuleTypePropertyInfo = DOMCSSRuleK + type AttrGetType DOMCSSRuleTypePropertyInfo = Word32 + type AttrLabel DOMCSSRuleTypePropertyInfo = "DOMCSSRule::type" + attrGet _ = getDOMCSSRuleType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMCSSRule = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-text", DOMCSSRuleCssTextPropertyInfo), '("parent-rule", DOMCSSRuleParentRulePropertyInfo), '("parent-style-sheet", DOMCSSRuleParentStyleSheetPropertyInfo), '("type", DOMCSSRuleTypePropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMCSSRuleListLength :: (MonadIO m, DOMCSSRuleListK o) => o -> m Word64 +getDOMCSSRuleListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMCSSRuleListLengthPropertyInfo +instance AttrInfo DOMCSSRuleListLengthPropertyInfo where + type AttrAllowedOps DOMCSSRuleListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSRuleListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSRuleListLengthPropertyInfo = DOMCSSRuleListK + type AttrGetType DOMCSSRuleListLengthPropertyInfo = Word64 + type AttrLabel DOMCSSRuleListLengthPropertyInfo = "DOMCSSRuleList::length" + attrGet _ = getDOMCSSRuleListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMCSSRuleList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMCSSRuleListLengthPropertyInfo)] + +-- VVV Prop "css-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMCSSStyleDeclarationCssText :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m T.Text +getDOMCSSStyleDeclarationCssText obj = liftIO $ getObjectPropertyString obj "css-text" + +setDOMCSSStyleDeclarationCssText :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> T.Text -> m () +setDOMCSSStyleDeclarationCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val + +constructDOMCSSStyleDeclarationCssText :: T.Text -> IO ([Char], GValue) +constructDOMCSSStyleDeclarationCssText val = constructObjectPropertyString "css-text" val + +data DOMCSSStyleDeclarationCssTextPropertyInfo +instance AttrInfo DOMCSSStyleDeclarationCssTextPropertyInfo where + type AttrAllowedOps DOMCSSStyleDeclarationCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMCSSStyleDeclarationCssTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMCSSStyleDeclarationCssTextPropertyInfo = DOMCSSStyleDeclarationK + type AttrGetType DOMCSSStyleDeclarationCssTextPropertyInfo = T.Text + type AttrLabel DOMCSSStyleDeclarationCssTextPropertyInfo = "DOMCSSStyleDeclaration::css-text" + attrGet _ = getDOMCSSStyleDeclarationCssText + attrSet _ = setDOMCSSStyleDeclarationCssText + attrConstruct _ = constructDOMCSSStyleDeclarationCssText + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMCSSStyleDeclarationLength :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m Word64 +getDOMCSSStyleDeclarationLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMCSSStyleDeclarationLengthPropertyInfo +instance AttrInfo DOMCSSStyleDeclarationLengthPropertyInfo where + type AttrAllowedOps DOMCSSStyleDeclarationLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSStyleDeclarationLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSStyleDeclarationLengthPropertyInfo = DOMCSSStyleDeclarationK + type AttrGetType DOMCSSStyleDeclarationLengthPropertyInfo = Word64 + type AttrLabel DOMCSSStyleDeclarationLengthPropertyInfo = "DOMCSSStyleDeclaration::length" + attrGet _ = getDOMCSSStyleDeclarationLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "parent-rule" + -- Type: TInterface "WebKit" "DOMCSSRule" + -- Flags: [PropertyReadable] + +getDOMCSSStyleDeclarationParentRule :: (MonadIO m, DOMCSSStyleDeclarationK o) => o -> m DOMCSSRule +getDOMCSSStyleDeclarationParentRule obj = liftIO $ getObjectPropertyObject obj "parent-rule" DOMCSSRule + +data DOMCSSStyleDeclarationParentRulePropertyInfo +instance AttrInfo DOMCSSStyleDeclarationParentRulePropertyInfo where + type AttrAllowedOps DOMCSSStyleDeclarationParentRulePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSStyleDeclarationParentRulePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSStyleDeclarationParentRulePropertyInfo = DOMCSSStyleDeclarationK + type AttrGetType DOMCSSStyleDeclarationParentRulePropertyInfo = DOMCSSRule + type AttrLabel DOMCSSStyleDeclarationParentRulePropertyInfo = "DOMCSSStyleDeclaration::parent-rule" + attrGet _ = getDOMCSSStyleDeclarationParentRule + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMCSSStyleDeclaration = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-text", DOMCSSStyleDeclarationCssTextPropertyInfo), '("length", DOMCSSStyleDeclarationLengthPropertyInfo), '("parent-rule", DOMCSSStyleDeclarationParentRulePropertyInfo)] + +-- VVV Prop "css-rules" + -- Type: TInterface "WebKit" "DOMCSSRuleList" + -- Flags: [PropertyReadable] + +getDOMCSSStyleSheetCssRules :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRuleList +getDOMCSSStyleSheetCssRules obj = liftIO $ getObjectPropertyObject obj "css-rules" DOMCSSRuleList + +data DOMCSSStyleSheetCssRulesPropertyInfo +instance AttrInfo DOMCSSStyleSheetCssRulesPropertyInfo where + type AttrAllowedOps DOMCSSStyleSheetCssRulesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = DOMCSSStyleSheetK + type AttrGetType DOMCSSStyleSheetCssRulesPropertyInfo = DOMCSSRuleList + type AttrLabel DOMCSSStyleSheetCssRulesPropertyInfo = "DOMCSSStyleSheet::css-rules" + attrGet _ = getDOMCSSStyleSheetCssRules + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "owner-rule" + -- Type: TInterface "WebKit" "DOMCSSRule" + -- Flags: [PropertyReadable] + +getDOMCSSStyleSheetOwnerRule :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRule +getDOMCSSStyleSheetOwnerRule obj = liftIO $ getObjectPropertyObject obj "owner-rule" DOMCSSRule + +data DOMCSSStyleSheetOwnerRulePropertyInfo +instance AttrInfo DOMCSSStyleSheetOwnerRulePropertyInfo where + type AttrAllowedOps DOMCSSStyleSheetOwnerRulePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = DOMCSSStyleSheetK + type AttrGetType DOMCSSStyleSheetOwnerRulePropertyInfo = DOMCSSRule + type AttrLabel DOMCSSStyleSheetOwnerRulePropertyInfo = "DOMCSSStyleSheet::owner-rule" + attrGet _ = getDOMCSSStyleSheetOwnerRule + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "rules" + -- Type: TInterface "WebKit" "DOMCSSRuleList" + -- Flags: [PropertyReadable] + +getDOMCSSStyleSheetRules :: (MonadIO m, DOMCSSStyleSheetK o) => o -> m DOMCSSRuleList +getDOMCSSStyleSheetRules obj = liftIO $ getObjectPropertyObject obj "rules" DOMCSSRuleList + +data DOMCSSStyleSheetRulesPropertyInfo +instance AttrInfo DOMCSSStyleSheetRulesPropertyInfo where + type AttrAllowedOps DOMCSSStyleSheetRulesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = DOMCSSStyleSheetK + type AttrGetType DOMCSSStyleSheetRulesPropertyInfo = DOMCSSRuleList + type AttrLabel DOMCSSStyleSheetRulesPropertyInfo = "DOMCSSStyleSheet::rules" + attrGet _ = getDOMCSSStyleSheetRules + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMCSSStyleSheet = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-rules", DOMCSSStyleSheetCssRulesPropertyInfo), '("disabled", DOMStyleSheetDisabledPropertyInfo), '("href", DOMStyleSheetHrefPropertyInfo), '("media", DOMStyleSheetMediaPropertyInfo), '("owner-node", DOMStyleSheetOwnerNodePropertyInfo), '("owner-rule", DOMCSSStyleSheetOwnerRulePropertyInfo), '("parent-style-sheet", DOMStyleSheetParentStyleSheetPropertyInfo), '("rules", DOMCSSStyleSheetRulesPropertyInfo), '("title", DOMStyleSheetTitlePropertyInfo), '("type", DOMStyleSheetTypePropertyInfo)] + +-- VVV Prop "css-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMCSSValueCssText :: (MonadIO m, DOMCSSValueK o) => o -> m T.Text +getDOMCSSValueCssText obj = liftIO $ getObjectPropertyString obj "css-text" + +setDOMCSSValueCssText :: (MonadIO m, DOMCSSValueK o) => o -> T.Text -> m () +setDOMCSSValueCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val + +constructDOMCSSValueCssText :: T.Text -> IO ([Char], GValue) +constructDOMCSSValueCssText val = constructObjectPropertyString "css-text" val + +data DOMCSSValueCssTextPropertyInfo +instance AttrInfo DOMCSSValueCssTextPropertyInfo where + type AttrAllowedOps DOMCSSValueCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMCSSValueCssTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMCSSValueCssTextPropertyInfo = DOMCSSValueK + type AttrGetType DOMCSSValueCssTextPropertyInfo = T.Text + type AttrLabel DOMCSSValueCssTextPropertyInfo = "DOMCSSValue::css-text" + attrGet _ = getDOMCSSValueCssText + attrSet _ = setDOMCSSValueCssText + attrConstruct _ = constructDOMCSSValueCssText + +-- VVV Prop "css-value-type" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMCSSValueCssValueType :: (MonadIO m, DOMCSSValueK o) => o -> m Word32 +getDOMCSSValueCssValueType obj = liftIO $ getObjectPropertyCUInt obj "css-value-type" + +data DOMCSSValueCssValueTypePropertyInfo +instance AttrInfo DOMCSSValueCssValueTypePropertyInfo where + type AttrAllowedOps DOMCSSValueCssValueTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCSSValueCssValueTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCSSValueCssValueTypePropertyInfo = DOMCSSValueK + type AttrGetType DOMCSSValueCssValueTypePropertyInfo = Word32 + type AttrLabel DOMCSSValueCssValueTypePropertyInfo = "DOMCSSValue::css-value-type" + attrGet _ = getDOMCSSValueCssValueType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMCSSValue = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-text", DOMCSSValueCssTextPropertyInfo), '("css-value-type", DOMCSSValueCssValueTypePropertyInfo)] + +-- VVV Prop "data" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> m T.Text +getDOMCharacterDataData obj = liftIO $ getObjectPropertyString obj "data" + +setDOMCharacterDataData :: (MonadIO m, DOMCharacterDataK o) => o -> T.Text -> m () +setDOMCharacterDataData obj val = liftIO $ setObjectPropertyString obj "data" val + +constructDOMCharacterDataData :: T.Text -> IO ([Char], GValue) +constructDOMCharacterDataData val = constructObjectPropertyString "data" val + +data DOMCharacterDataDataPropertyInfo +instance AttrInfo DOMCharacterDataDataPropertyInfo where + type AttrAllowedOps DOMCharacterDataDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMCharacterDataDataPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMCharacterDataDataPropertyInfo = DOMCharacterDataK + type AttrGetType DOMCharacterDataDataPropertyInfo = T.Text + type AttrLabel DOMCharacterDataDataPropertyInfo = "DOMCharacterData::data" + attrGet _ = getDOMCharacterDataData + attrSet _ = setDOMCharacterDataData + attrConstruct _ = constructDOMCharacterDataData + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMCharacterDataLength :: (MonadIO m, DOMCharacterDataK o) => o -> m Word64 +getDOMCharacterDataLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMCharacterDataLengthPropertyInfo +instance AttrInfo DOMCharacterDataLengthPropertyInfo where + type AttrAllowedOps DOMCharacterDataLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMCharacterDataLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMCharacterDataLengthPropertyInfo = DOMCharacterDataK + type AttrGetType DOMCharacterDataLengthPropertyInfo = Word64 + type AttrLabel DOMCharacterDataLengthPropertyInfo = "DOMCharacterData::length" + attrGet _ = getDOMCharacterDataLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMCharacterData = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] + +type instance AttributeList DOMComment = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] + +type instance AttributeList DOMConsole = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] + +-- VVV Prop "status" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMDOMApplicationCacheStatus :: (MonadIO m, DOMDOMApplicationCacheK o) => o -> m Word32 +getDOMDOMApplicationCacheStatus obj = liftIO $ getObjectPropertyCUInt obj "status" + +data DOMDOMApplicationCacheStatusPropertyInfo +instance AttrInfo DOMDOMApplicationCacheStatusPropertyInfo where + type AttrAllowedOps DOMDOMApplicationCacheStatusPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMApplicationCacheStatusPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMApplicationCacheStatusPropertyInfo = DOMDOMApplicationCacheK + type AttrGetType DOMDOMApplicationCacheStatusPropertyInfo = Word32 + type AttrLabel DOMDOMApplicationCacheStatusPropertyInfo = "DOMDOMApplicationCache::status" + attrGet _ = getDOMDOMApplicationCacheStatus + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMApplicationCache = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("status", DOMDOMApplicationCacheStatusPropertyInfo)] + +type instance AttributeList DOMDOMImplementation = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] + +-- VVV Prop "description" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDOMMimeTypeDescription :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m T.Text +getDOMDOMMimeTypeDescription obj = liftIO $ getObjectPropertyString obj "description" + +data DOMDOMMimeTypeDescriptionPropertyInfo +instance AttrInfo DOMDOMMimeTypeDescriptionPropertyInfo where + type AttrAllowedOps DOMDOMMimeTypeDescriptionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMMimeTypeDescriptionPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMMimeTypeDescriptionPropertyInfo = DOMDOMMimeTypeK + type AttrGetType DOMDOMMimeTypeDescriptionPropertyInfo = T.Text + type AttrLabel DOMDOMMimeTypeDescriptionPropertyInfo = "DOMDOMMimeType::description" + attrGet _ = getDOMDOMMimeTypeDescription + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "enabled-plugin" + -- Type: TInterface "WebKit" "DOMDOMPlugin" + -- Flags: [PropertyReadable] + +getDOMDOMMimeTypeEnabledPlugin :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m DOMDOMPlugin +getDOMDOMMimeTypeEnabledPlugin obj = liftIO $ getObjectPropertyObject obj "enabled-plugin" DOMDOMPlugin + +data DOMDOMMimeTypeEnabledPluginPropertyInfo +instance AttrInfo DOMDOMMimeTypeEnabledPluginPropertyInfo where + type AttrAllowedOps DOMDOMMimeTypeEnabledPluginPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMMimeTypeEnabledPluginPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMMimeTypeEnabledPluginPropertyInfo = DOMDOMMimeTypeK + type AttrGetType DOMDOMMimeTypeEnabledPluginPropertyInfo = DOMDOMPlugin + type AttrLabel DOMDOMMimeTypeEnabledPluginPropertyInfo = "DOMDOMMimeType::enabled-plugin" + attrGet _ = getDOMDOMMimeTypeEnabledPlugin + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "suffixes" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDOMMimeTypeSuffixes :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m T.Text +getDOMDOMMimeTypeSuffixes obj = liftIO $ getObjectPropertyString obj "suffixes" + +data DOMDOMMimeTypeSuffixesPropertyInfo +instance AttrInfo DOMDOMMimeTypeSuffixesPropertyInfo where + type AttrAllowedOps DOMDOMMimeTypeSuffixesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMMimeTypeSuffixesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMMimeTypeSuffixesPropertyInfo = DOMDOMMimeTypeK + type AttrGetType DOMDOMMimeTypeSuffixesPropertyInfo = T.Text + type AttrLabel DOMDOMMimeTypeSuffixesPropertyInfo = "DOMDOMMimeType::suffixes" + attrGet _ = getDOMDOMMimeTypeSuffixes + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDOMMimeTypeType :: (MonadIO m, DOMDOMMimeTypeK o) => o -> m T.Text +getDOMDOMMimeTypeType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMDOMMimeTypeTypePropertyInfo +instance AttrInfo DOMDOMMimeTypeTypePropertyInfo where + type AttrAllowedOps DOMDOMMimeTypeTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMMimeTypeTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMMimeTypeTypePropertyInfo = DOMDOMMimeTypeK + type AttrGetType DOMDOMMimeTypeTypePropertyInfo = T.Text + type AttrLabel DOMDOMMimeTypeTypePropertyInfo = "DOMDOMMimeType::type" + attrGet _ = getDOMDOMMimeTypeType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMMimeType = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("description", DOMDOMMimeTypeDescriptionPropertyInfo), '("enabled-plugin", DOMDOMMimeTypeEnabledPluginPropertyInfo), '("suffixes", DOMDOMMimeTypeSuffixesPropertyInfo), '("type", DOMDOMMimeTypeTypePropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMDOMMimeTypeArrayLength :: (MonadIO m, DOMDOMMimeTypeArrayK o) => o -> m Word64 +getDOMDOMMimeTypeArrayLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMDOMMimeTypeArrayLengthPropertyInfo +instance AttrInfo DOMDOMMimeTypeArrayLengthPropertyInfo where + type AttrAllowedOps DOMDOMMimeTypeArrayLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMMimeTypeArrayLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMMimeTypeArrayLengthPropertyInfo = DOMDOMMimeTypeArrayK + type AttrGetType DOMDOMMimeTypeArrayLengthPropertyInfo = Word64 + type AttrLabel DOMDOMMimeTypeArrayLengthPropertyInfo = "DOMDOMMimeTypeArray::length" + attrGet _ = getDOMDOMMimeTypeArrayLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMMimeTypeArray = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMMimeTypeArrayLengthPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMDOMNamedFlowCollectionLength :: (MonadIO m, DOMDOMNamedFlowCollectionK o) => o -> m Word64 +getDOMDOMNamedFlowCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMDOMNamedFlowCollectionLengthPropertyInfo +instance AttrInfo DOMDOMNamedFlowCollectionLengthPropertyInfo where + type AttrAllowedOps DOMDOMNamedFlowCollectionLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMNamedFlowCollectionLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMNamedFlowCollectionLengthPropertyInfo = DOMDOMNamedFlowCollectionK + type AttrGetType DOMDOMNamedFlowCollectionLengthPropertyInfo = Word64 + type AttrLabel DOMDOMNamedFlowCollectionLengthPropertyInfo = "DOMDOMNamedFlowCollection::length" + attrGet _ = getDOMDOMNamedFlowCollectionLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMNamedFlowCollection = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMNamedFlowCollectionLengthPropertyInfo)] + +-- VVV Prop "description" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDOMPluginDescription :: (MonadIO m, DOMDOMPluginK o) => o -> m T.Text +getDOMDOMPluginDescription obj = liftIO $ getObjectPropertyString obj "description" + +data DOMDOMPluginDescriptionPropertyInfo +instance AttrInfo DOMDOMPluginDescriptionPropertyInfo where + type AttrAllowedOps DOMDOMPluginDescriptionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMPluginDescriptionPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMPluginDescriptionPropertyInfo = DOMDOMPluginK + type AttrGetType DOMDOMPluginDescriptionPropertyInfo = T.Text + type AttrLabel DOMDOMPluginDescriptionPropertyInfo = "DOMDOMPlugin::description" + attrGet _ = getDOMDOMPluginDescription + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "filename" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDOMPluginFilename :: (MonadIO m, DOMDOMPluginK o) => o -> m T.Text +getDOMDOMPluginFilename obj = liftIO $ getObjectPropertyString obj "filename" + +data DOMDOMPluginFilenamePropertyInfo +instance AttrInfo DOMDOMPluginFilenamePropertyInfo where + type AttrAllowedOps DOMDOMPluginFilenamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMPluginFilenamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMPluginFilenamePropertyInfo = DOMDOMPluginK + type AttrGetType DOMDOMPluginFilenamePropertyInfo = T.Text + type AttrLabel DOMDOMPluginFilenamePropertyInfo = "DOMDOMPlugin::filename" + attrGet _ = getDOMDOMPluginFilename + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMDOMPluginLength :: (MonadIO m, DOMDOMPluginK o) => o -> m Word64 +getDOMDOMPluginLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMDOMPluginLengthPropertyInfo +instance AttrInfo DOMDOMPluginLengthPropertyInfo where + type AttrAllowedOps DOMDOMPluginLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMPluginLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMPluginLengthPropertyInfo = DOMDOMPluginK + type AttrGetType DOMDOMPluginLengthPropertyInfo = Word64 + type AttrLabel DOMDOMPluginLengthPropertyInfo = "DOMDOMPlugin::length" + attrGet _ = getDOMDOMPluginLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDOMPluginName :: (MonadIO m, DOMDOMPluginK o) => o -> m T.Text +getDOMDOMPluginName obj = liftIO $ getObjectPropertyString obj "name" + +data DOMDOMPluginNamePropertyInfo +instance AttrInfo DOMDOMPluginNamePropertyInfo where + type AttrAllowedOps DOMDOMPluginNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMPluginNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMPluginNamePropertyInfo = DOMDOMPluginK + type AttrGetType DOMDOMPluginNamePropertyInfo = T.Text + type AttrLabel DOMDOMPluginNamePropertyInfo = "DOMDOMPlugin::name" + attrGet _ = getDOMDOMPluginName + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMPlugin = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("description", DOMDOMPluginDescriptionPropertyInfo), '("filename", DOMDOMPluginFilenamePropertyInfo), '("length", DOMDOMPluginLengthPropertyInfo), '("name", DOMDOMPluginNamePropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMDOMPluginArrayLength :: (MonadIO m, DOMDOMPluginArrayK o) => o -> m Word64 +getDOMDOMPluginArrayLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMDOMPluginArrayLengthPropertyInfo +instance AttrInfo DOMDOMPluginArrayLengthPropertyInfo where + type AttrAllowedOps DOMDOMPluginArrayLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMPluginArrayLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMPluginArrayLengthPropertyInfo = DOMDOMPluginArrayK + type AttrGetType DOMDOMPluginArrayLengthPropertyInfo = Word64 + type AttrLabel DOMDOMPluginArrayLengthPropertyInfo = "DOMDOMPluginArray::length" + attrGet _ = getDOMDOMPluginArrayLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMPluginArray = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMPluginArrayLengthPropertyInfo)] + +-- VVV Prop "allows-eval" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDOMSecurityPolicyAllowsEval :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool +getDOMDOMSecurityPolicyAllowsEval obj = liftIO $ getObjectPropertyBool obj "allows-eval" + +data DOMDOMSecurityPolicyAllowsEvalPropertyInfo +instance AttrInfo DOMDOMSecurityPolicyAllowsEvalPropertyInfo where + type AttrAllowedOps DOMDOMSecurityPolicyAllowsEvalPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSecurityPolicyAllowsEvalPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSecurityPolicyAllowsEvalPropertyInfo = DOMDOMSecurityPolicyK + type AttrGetType DOMDOMSecurityPolicyAllowsEvalPropertyInfo = Bool + type AttrLabel DOMDOMSecurityPolicyAllowsEvalPropertyInfo = "DOMDOMSecurityPolicy::allows-eval" + attrGet _ = getDOMDOMSecurityPolicyAllowsEval + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "allows-inline-script" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDOMSecurityPolicyAllowsInlineScript :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool +getDOMDOMSecurityPolicyAllowsInlineScript obj = liftIO $ getObjectPropertyBool obj "allows-inline-script" + +data DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo +instance AttrInfo DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo where + type AttrAllowedOps DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = DOMDOMSecurityPolicyK + type AttrGetType DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = Bool + type AttrLabel DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo = "DOMDOMSecurityPolicy::allows-inline-script" + attrGet _ = getDOMDOMSecurityPolicyAllowsInlineScript + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "allows-inline-style" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDOMSecurityPolicyAllowsInlineStyle :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool +getDOMDOMSecurityPolicyAllowsInlineStyle obj = liftIO $ getObjectPropertyBool obj "allows-inline-style" + +data DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo +instance AttrInfo DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo where + type AttrAllowedOps DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = DOMDOMSecurityPolicyK + type AttrGetType DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = Bool + type AttrLabel DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo = "DOMDOMSecurityPolicy::allows-inline-style" + attrGet _ = getDOMDOMSecurityPolicyAllowsInlineStyle + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "is-active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDOMSecurityPolicyIsActive :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m Bool +getDOMDOMSecurityPolicyIsActive obj = liftIO $ getObjectPropertyBool obj "is-active" + +data DOMDOMSecurityPolicyIsActivePropertyInfo +instance AttrInfo DOMDOMSecurityPolicyIsActivePropertyInfo where + type AttrAllowedOps DOMDOMSecurityPolicyIsActivePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSecurityPolicyIsActivePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSecurityPolicyIsActivePropertyInfo = DOMDOMSecurityPolicyK + type AttrGetType DOMDOMSecurityPolicyIsActivePropertyInfo = Bool + type AttrLabel DOMDOMSecurityPolicyIsActivePropertyInfo = "DOMDOMSecurityPolicy::is-active" + attrGet _ = getDOMDOMSecurityPolicyIsActive + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "report-ur-is" + -- Type: TInterface "WebKit" "DOMDOMStringList" + -- Flags: [PropertyReadable] + +getDOMDOMSecurityPolicyReportUrIs :: (MonadIO m, DOMDOMSecurityPolicyK o) => o -> m DOMDOMStringList +getDOMDOMSecurityPolicyReportUrIs obj = liftIO $ getObjectPropertyObject obj "report-ur-is" DOMDOMStringList + +data DOMDOMSecurityPolicyReportUrIsPropertyInfo +instance AttrInfo DOMDOMSecurityPolicyReportUrIsPropertyInfo where + type AttrAllowedOps DOMDOMSecurityPolicyReportUrIsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSecurityPolicyReportUrIsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSecurityPolicyReportUrIsPropertyInfo = DOMDOMSecurityPolicyK + type AttrGetType DOMDOMSecurityPolicyReportUrIsPropertyInfo = DOMDOMStringList + type AttrLabel DOMDOMSecurityPolicyReportUrIsPropertyInfo = "DOMDOMSecurityPolicy::report-ur-is" + attrGet _ = getDOMDOMSecurityPolicyReportUrIs + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMSecurityPolicy = '[ '("allows-eval", DOMDOMSecurityPolicyAllowsEvalPropertyInfo), '("allows-inline-script", DOMDOMSecurityPolicyAllowsInlineScriptPropertyInfo), '("allows-inline-style", DOMDOMSecurityPolicyAllowsInlineStylePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("is-active", DOMDOMSecurityPolicyIsActivePropertyInfo), '("report-ur-is", DOMDOMSecurityPolicyReportUrIsPropertyInfo)] + +-- VVV Prop "anchor-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMDOMSelectionAnchorNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode +getDOMDOMSelectionAnchorNode obj = liftIO $ getObjectPropertyObject obj "anchor-node" DOMNode + +data DOMDOMSelectionAnchorNodePropertyInfo +instance AttrInfo DOMDOMSelectionAnchorNodePropertyInfo where + type AttrAllowedOps DOMDOMSelectionAnchorNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionAnchorNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionAnchorNodePropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionAnchorNodePropertyInfo = DOMNode + type AttrLabel DOMDOMSelectionAnchorNodePropertyInfo = "DOMDOMSelection::anchor-node" + attrGet _ = getDOMDOMSelectionAnchorNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "anchor-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMSelectionAnchorOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 +getDOMDOMSelectionAnchorOffset obj = liftIO $ getObjectPropertyInt64 obj "anchor-offset" + +data DOMDOMSelectionAnchorOffsetPropertyInfo +instance AttrInfo DOMDOMSelectionAnchorOffsetPropertyInfo where + type AttrAllowedOps DOMDOMSelectionAnchorOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionAnchorOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionAnchorOffsetPropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionAnchorOffsetPropertyInfo = Int64 + type AttrLabel DOMDOMSelectionAnchorOffsetPropertyInfo = "DOMDOMSelection::anchor-offset" + attrGet _ = getDOMDOMSelectionAnchorOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "base-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMDOMSelectionBaseNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode +getDOMDOMSelectionBaseNode obj = liftIO $ getObjectPropertyObject obj "base-node" DOMNode + +data DOMDOMSelectionBaseNodePropertyInfo +instance AttrInfo DOMDOMSelectionBaseNodePropertyInfo where + type AttrAllowedOps DOMDOMSelectionBaseNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionBaseNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionBaseNodePropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionBaseNodePropertyInfo = DOMNode + type AttrLabel DOMDOMSelectionBaseNodePropertyInfo = "DOMDOMSelection::base-node" + attrGet _ = getDOMDOMSelectionBaseNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "base-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMSelectionBaseOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 +getDOMDOMSelectionBaseOffset obj = liftIO $ getObjectPropertyInt64 obj "base-offset" + +data DOMDOMSelectionBaseOffsetPropertyInfo +instance AttrInfo DOMDOMSelectionBaseOffsetPropertyInfo where + type AttrAllowedOps DOMDOMSelectionBaseOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionBaseOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionBaseOffsetPropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionBaseOffsetPropertyInfo = Int64 + type AttrLabel DOMDOMSelectionBaseOffsetPropertyInfo = "DOMDOMSelection::base-offset" + attrGet _ = getDOMDOMSelectionBaseOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "extent-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMDOMSelectionExtentNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode +getDOMDOMSelectionExtentNode obj = liftIO $ getObjectPropertyObject obj "extent-node" DOMNode + +data DOMDOMSelectionExtentNodePropertyInfo +instance AttrInfo DOMDOMSelectionExtentNodePropertyInfo where + type AttrAllowedOps DOMDOMSelectionExtentNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionExtentNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionExtentNodePropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionExtentNodePropertyInfo = DOMNode + type AttrLabel DOMDOMSelectionExtentNodePropertyInfo = "DOMDOMSelection::extent-node" + attrGet _ = getDOMDOMSelectionExtentNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "extent-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMSelectionExtentOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 +getDOMDOMSelectionExtentOffset obj = liftIO $ getObjectPropertyInt64 obj "extent-offset" + +data DOMDOMSelectionExtentOffsetPropertyInfo +instance AttrInfo DOMDOMSelectionExtentOffsetPropertyInfo where + type AttrAllowedOps DOMDOMSelectionExtentOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionExtentOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionExtentOffsetPropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionExtentOffsetPropertyInfo = Int64 + type AttrLabel DOMDOMSelectionExtentOffsetPropertyInfo = "DOMDOMSelection::extent-offset" + attrGet _ = getDOMDOMSelectionExtentOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "focus-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMDOMSelectionFocusNode :: (MonadIO m, DOMDOMSelectionK o) => o -> m DOMNode +getDOMDOMSelectionFocusNode obj = liftIO $ getObjectPropertyObject obj "focus-node" DOMNode + +data DOMDOMSelectionFocusNodePropertyInfo +instance AttrInfo DOMDOMSelectionFocusNodePropertyInfo where + type AttrAllowedOps DOMDOMSelectionFocusNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionFocusNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionFocusNodePropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionFocusNodePropertyInfo = DOMNode + type AttrLabel DOMDOMSelectionFocusNodePropertyInfo = "DOMDOMSelection::focus-node" + attrGet _ = getDOMDOMSelectionFocusNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "focus-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMSelectionFocusOffset :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 +getDOMDOMSelectionFocusOffset obj = liftIO $ getObjectPropertyInt64 obj "focus-offset" + +data DOMDOMSelectionFocusOffsetPropertyInfo +instance AttrInfo DOMDOMSelectionFocusOffsetPropertyInfo where + type AttrAllowedOps DOMDOMSelectionFocusOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionFocusOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionFocusOffsetPropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionFocusOffsetPropertyInfo = Int64 + type AttrLabel DOMDOMSelectionFocusOffsetPropertyInfo = "DOMDOMSelection::focus-offset" + attrGet _ = getDOMDOMSelectionFocusOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "is-collapsed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDOMSelectionIsCollapsed :: (MonadIO m, DOMDOMSelectionK o) => o -> m Bool +getDOMDOMSelectionIsCollapsed obj = liftIO $ getObjectPropertyBool obj "is-collapsed" + +data DOMDOMSelectionIsCollapsedPropertyInfo +instance AttrInfo DOMDOMSelectionIsCollapsedPropertyInfo where + type AttrAllowedOps DOMDOMSelectionIsCollapsedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionIsCollapsedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionIsCollapsedPropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionIsCollapsedPropertyInfo = Bool + type AttrLabel DOMDOMSelectionIsCollapsedPropertyInfo = "DOMDOMSelection::is-collapsed" + attrGet _ = getDOMDOMSelectionIsCollapsed + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "range-count" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMSelectionRangeCount :: (MonadIO m, DOMDOMSelectionK o) => o -> m Int64 +getDOMDOMSelectionRangeCount obj = liftIO $ getObjectPropertyInt64 obj "range-count" + +data DOMDOMSelectionRangeCountPropertyInfo +instance AttrInfo DOMDOMSelectionRangeCountPropertyInfo where + type AttrAllowedOps DOMDOMSelectionRangeCountPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionRangeCountPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionRangeCountPropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionRangeCountPropertyInfo = Int64 + type AttrLabel DOMDOMSelectionRangeCountPropertyInfo = "DOMDOMSelection::range-count" + attrGet _ = getDOMDOMSelectionRangeCount + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDOMSelectionType :: (MonadIO m, DOMDOMSelectionK o) => o -> m T.Text +getDOMDOMSelectionType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMDOMSelectionTypePropertyInfo +instance AttrInfo DOMDOMSelectionTypePropertyInfo where + type AttrAllowedOps DOMDOMSelectionTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMSelectionTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMSelectionTypePropertyInfo = DOMDOMSelectionK + type AttrGetType DOMDOMSelectionTypePropertyInfo = T.Text + type AttrLabel DOMDOMSelectionTypePropertyInfo = "DOMDOMSelection::type" + attrGet _ = getDOMDOMSelectionType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMSelection = '[ '("anchor-node", DOMDOMSelectionAnchorNodePropertyInfo), '("anchor-offset", DOMDOMSelectionAnchorOffsetPropertyInfo), '("base-node", DOMDOMSelectionBaseNodePropertyInfo), '("base-offset", DOMDOMSelectionBaseOffsetPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("extent-node", DOMDOMSelectionExtentNodePropertyInfo), '("extent-offset", DOMDOMSelectionExtentOffsetPropertyInfo), '("focus-node", DOMDOMSelectionFocusNodePropertyInfo), '("focus-offset", DOMDOMSelectionFocusOffsetPropertyInfo), '("is-collapsed", DOMDOMSelectionIsCollapsedPropertyInfo), '("range-count", DOMDOMSelectionRangeCountPropertyInfo), '("type", DOMDOMSelectionTypePropertyInfo)] + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDOMSettableTokenListValue :: (MonadIO m, DOMDOMSettableTokenListK o) => o -> m T.Text +getDOMDOMSettableTokenListValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMDOMSettableTokenListValue :: (MonadIO m, DOMDOMSettableTokenListK o) => o -> T.Text -> m () +setDOMDOMSettableTokenListValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMDOMSettableTokenListValue :: T.Text -> IO ([Char], GValue) +constructDOMDOMSettableTokenListValue val = constructObjectPropertyString "value" val + +data DOMDOMSettableTokenListValuePropertyInfo +instance AttrInfo DOMDOMSettableTokenListValuePropertyInfo where + type AttrAllowedOps DOMDOMSettableTokenListValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDOMSettableTokenListValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDOMSettableTokenListValuePropertyInfo = DOMDOMSettableTokenListK + type AttrGetType DOMDOMSettableTokenListValuePropertyInfo = T.Text + type AttrLabel DOMDOMSettableTokenListValuePropertyInfo = "DOMDOMSettableTokenList::value" + attrGet _ = getDOMDOMSettableTokenListValue + attrSet _ = setDOMDOMSettableTokenListValue + attrConstruct _ = constructDOMDOMSettableTokenListValue + +type instance AttributeList DOMDOMSettableTokenList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMTokenListLengthPropertyInfo), '("value", DOMDOMSettableTokenListValuePropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMDOMStringListLength :: (MonadIO m, DOMDOMStringListK o) => o -> m Word64 +getDOMDOMStringListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMDOMStringListLengthPropertyInfo +instance AttrInfo DOMDOMStringListLengthPropertyInfo where + type AttrAllowedOps DOMDOMStringListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMStringListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMStringListLengthPropertyInfo = DOMDOMStringListK + type AttrGetType DOMDOMStringListLengthPropertyInfo = Word64 + type AttrLabel DOMDOMStringListLengthPropertyInfo = "DOMDOMStringList::length" + attrGet _ = getDOMDOMStringListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMStringList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMStringListLengthPropertyInfo)] + +type instance AttributeList DOMDOMStringMap = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMDOMTokenListLength :: (MonadIO m, DOMDOMTokenListK o) => o -> m Word64 +getDOMDOMTokenListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMDOMTokenListLengthPropertyInfo +instance AttrInfo DOMDOMTokenListLengthPropertyInfo where + type AttrAllowedOps DOMDOMTokenListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMTokenListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMTokenListLengthPropertyInfo = DOMDOMTokenListK + type AttrGetType DOMDOMTokenListLengthPropertyInfo = Word64 + type AttrLabel DOMDOMTokenListLengthPropertyInfo = "DOMDOMTokenList::length" + attrGet _ = getDOMDOMTokenListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMTokenList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMTokenListLengthPropertyInfo)] + +-- VVV Prop "application-cache" + -- Type: TInterface "WebKit" "DOMDOMApplicationCache" + -- Flags: [PropertyReadable] + +getDOMDOMWindowApplicationCache :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMApplicationCache +getDOMDOMWindowApplicationCache obj = liftIO $ getObjectPropertyObject obj "application-cache" DOMDOMApplicationCache + +data DOMDOMWindowApplicationCachePropertyInfo +instance AttrInfo DOMDOMWindowApplicationCachePropertyInfo where + type AttrAllowedOps DOMDOMWindowApplicationCachePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowApplicationCachePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowApplicationCachePropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowApplicationCachePropertyInfo = DOMDOMApplicationCache + type AttrLabel DOMDOMWindowApplicationCachePropertyInfo = "DOMDOMWindow::application-cache" + attrGet _ = getDOMDOMWindowApplicationCache + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "client-information" + -- Type: TInterface "WebKit" "DOMNavigator" + -- Flags: [PropertyReadable] + +getDOMDOMWindowClientInformation :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMNavigator +getDOMDOMWindowClientInformation obj = liftIO $ getObjectPropertyObject obj "client-information" DOMNavigator + +data DOMDOMWindowClientInformationPropertyInfo +instance AttrInfo DOMDOMWindowClientInformationPropertyInfo where + type AttrAllowedOps DOMDOMWindowClientInformationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowClientInformationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowClientInformationPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowClientInformationPropertyInfo = DOMNavigator + type AttrLabel DOMDOMWindowClientInformationPropertyInfo = "DOMDOMWindow::client-information" + attrGet _ = getDOMDOMWindowClientInformation + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "closed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDOMWindowClosed :: (MonadIO m, DOMDOMWindowK o) => o -> m Bool +getDOMDOMWindowClosed obj = liftIO $ getObjectPropertyBool obj "closed" + +data DOMDOMWindowClosedPropertyInfo +instance AttrInfo DOMDOMWindowClosedPropertyInfo where + type AttrAllowedOps DOMDOMWindowClosedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowClosedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowClosedPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowClosedPropertyInfo = Bool + type AttrLabel DOMDOMWindowClosedPropertyInfo = "DOMDOMWindow::closed" + attrGet _ = getDOMDOMWindowClosed + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "console" + -- Type: TInterface "WebKit" "DOMConsole" + -- Flags: [PropertyReadable] + +getDOMDOMWindowConsole :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMConsole +getDOMDOMWindowConsole obj = liftIO $ getObjectPropertyObject obj "console" DOMConsole + +data DOMDOMWindowConsolePropertyInfo +instance AttrInfo DOMDOMWindowConsolePropertyInfo where + type AttrAllowedOps DOMDOMWindowConsolePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowConsolePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowConsolePropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowConsolePropertyInfo = DOMConsole + type AttrLabel DOMDOMWindowConsolePropertyInfo = "DOMDOMWindow::console" + attrGet _ = getDOMDOMWindowConsole + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "css" + -- Type: TInterface "WebKit" "DOMDOMWindowCSS" + -- Flags: [PropertyReadable] + +getDOMDOMWindowCss :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindowCSS +getDOMDOMWindowCss obj = liftIO $ getObjectPropertyObject obj "css" DOMDOMWindowCSS + +data DOMDOMWindowCssPropertyInfo +instance AttrInfo DOMDOMWindowCssPropertyInfo where + type AttrAllowedOps DOMDOMWindowCssPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowCssPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowCssPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowCssPropertyInfo = DOMDOMWindowCSS + type AttrLabel DOMDOMWindowCssPropertyInfo = "DOMDOMWindow::css" + attrGet _ = getDOMDOMWindowCss + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "default-status" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text +getDOMDOMWindowDefaultStatus obj = liftIO $ getObjectPropertyString obj "default-status" + +setDOMDOMWindowDefaultStatus :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () +setDOMDOMWindowDefaultStatus obj val = liftIO $ setObjectPropertyString obj "default-status" val + +constructDOMDOMWindowDefaultStatus :: T.Text -> IO ([Char], GValue) +constructDOMDOMWindowDefaultStatus val = constructObjectPropertyString "default-status" val + +data DOMDOMWindowDefaultStatusPropertyInfo +instance AttrInfo DOMDOMWindowDefaultStatusPropertyInfo where + type AttrAllowedOps DOMDOMWindowDefaultStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowDefaultStatusPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDOMWindowDefaultStatusPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowDefaultStatusPropertyInfo = T.Text + type AttrLabel DOMDOMWindowDefaultStatusPropertyInfo = "DOMDOMWindow::default-status" + attrGet _ = getDOMDOMWindowDefaultStatus + attrSet _ = setDOMDOMWindowDefaultStatus + attrConstruct _ = constructDOMDOMWindowDefaultStatus + +-- VVV Prop "device-pixel-ratio" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMDOMWindowDevicePixelRatio :: (MonadIO m, DOMDOMWindowK o) => o -> m Double +getDOMDOMWindowDevicePixelRatio obj = liftIO $ getObjectPropertyDouble obj "device-pixel-ratio" + +data DOMDOMWindowDevicePixelRatioPropertyInfo +instance AttrInfo DOMDOMWindowDevicePixelRatioPropertyInfo where + type AttrAllowedOps DOMDOMWindowDevicePixelRatioPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowDevicePixelRatioPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowDevicePixelRatioPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowDevicePixelRatioPropertyInfo = Double + type AttrLabel DOMDOMWindowDevicePixelRatioPropertyInfo = "DOMDOMWindow::device-pixel-ratio" + attrGet _ = getDOMDOMWindowDevicePixelRatio + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "document" + -- Type: TInterface "WebKit" "DOMDocument" + -- Flags: [PropertyReadable] + +getDOMDOMWindowDocument :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDocument +getDOMDOMWindowDocument obj = liftIO $ getObjectPropertyObject obj "document" DOMDocument + +data DOMDOMWindowDocumentPropertyInfo +instance AttrInfo DOMDOMWindowDocumentPropertyInfo where + type AttrAllowedOps DOMDOMWindowDocumentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowDocumentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowDocumentPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowDocumentPropertyInfo = DOMDocument + type AttrLabel DOMDOMWindowDocumentPropertyInfo = "DOMDOMWindow::document" + attrGet _ = getDOMDOMWindowDocument + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "frame-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMDOMWindowFrameElement :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMElement +getDOMDOMWindowFrameElement obj = liftIO $ getObjectPropertyObject obj "frame-element" DOMElement + +data DOMDOMWindowFrameElementPropertyInfo +instance AttrInfo DOMDOMWindowFrameElementPropertyInfo where + type AttrAllowedOps DOMDOMWindowFrameElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowFrameElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowFrameElementPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowFrameElementPropertyInfo = DOMElement + type AttrLabel DOMDOMWindowFrameElementPropertyInfo = "DOMDOMWindow::frame-element" + attrGet _ = getDOMDOMWindowFrameElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "frames" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMDOMWindowFrames :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowFrames obj = liftIO $ getObjectPropertyObject obj "frames" DOMDOMWindow + +data DOMDOMWindowFramesPropertyInfo +instance AttrInfo DOMDOMWindowFramesPropertyInfo where + type AttrAllowedOps DOMDOMWindowFramesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowFramesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowFramesPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowFramesPropertyInfo = DOMDOMWindow + type AttrLabel DOMDOMWindowFramesPropertyInfo = "DOMDOMWindow::frames" + attrGet _ = getDOMDOMWindowFrames + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "history" + -- Type: TInterface "WebKit" "DOMHistory" + -- Flags: [PropertyReadable] + +getDOMDOMWindowHistory :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMHistory +getDOMDOMWindowHistory obj = liftIO $ getObjectPropertyObject obj "history" DOMHistory + +data DOMDOMWindowHistoryPropertyInfo +instance AttrInfo DOMDOMWindowHistoryPropertyInfo where + type AttrAllowedOps DOMDOMWindowHistoryPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowHistoryPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowHistoryPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowHistoryPropertyInfo = DOMHistory + type AttrLabel DOMDOMWindowHistoryPropertyInfo = "DOMDOMWindow::history" + attrGet _ = getDOMDOMWindowHistory + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "inner-height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowInnerHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowInnerHeight obj = liftIO $ getObjectPropertyInt64 obj "inner-height" + +data DOMDOMWindowInnerHeightPropertyInfo +instance AttrInfo DOMDOMWindowInnerHeightPropertyInfo where + type AttrAllowedOps DOMDOMWindowInnerHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowInnerHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowInnerHeightPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowInnerHeightPropertyInfo = Int64 + type AttrLabel DOMDOMWindowInnerHeightPropertyInfo = "DOMDOMWindow::inner-height" + attrGet _ = getDOMDOMWindowInnerHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "inner-width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowInnerWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowInnerWidth obj = liftIO $ getObjectPropertyInt64 obj "inner-width" + +data DOMDOMWindowInnerWidthPropertyInfo +instance AttrInfo DOMDOMWindowInnerWidthPropertyInfo where + type AttrAllowedOps DOMDOMWindowInnerWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowInnerWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowInnerWidthPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowInnerWidthPropertyInfo = Int64 + type AttrLabel DOMDOMWindowInnerWidthPropertyInfo = "DOMDOMWindow::inner-width" + attrGet _ = getDOMDOMWindowInnerWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowLength :: (MonadIO m, DOMDOMWindowK o) => o -> m Word64 +getDOMDOMWindowLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMDOMWindowLengthPropertyInfo +instance AttrInfo DOMDOMWindowLengthPropertyInfo where + type AttrAllowedOps DOMDOMWindowLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowLengthPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowLengthPropertyInfo = Word64 + type AttrLabel DOMDOMWindowLengthPropertyInfo = "DOMDOMWindow::length" + attrGet _ = getDOMDOMWindowLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "local-storage" + -- Type: TInterface "WebKit" "DOMStorage" + -- Flags: [PropertyReadable] + +getDOMDOMWindowLocalStorage :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorage +getDOMDOMWindowLocalStorage obj = liftIO $ getObjectPropertyObject obj "local-storage" DOMStorage + +data DOMDOMWindowLocalStoragePropertyInfo +instance AttrInfo DOMDOMWindowLocalStoragePropertyInfo where + type AttrAllowedOps DOMDOMWindowLocalStoragePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowLocalStoragePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowLocalStoragePropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowLocalStoragePropertyInfo = DOMStorage + type AttrLabel DOMDOMWindowLocalStoragePropertyInfo = "DOMDOMWindow::local-storage" + attrGet _ = getDOMDOMWindowLocalStorage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "locationbar" + -- Type: TInterface "WebKit" "DOMBarProp" + -- Flags: [PropertyReadable] + +getDOMDOMWindowLocationbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowLocationbar obj = liftIO $ getObjectPropertyObject obj "locationbar" DOMBarProp + +data DOMDOMWindowLocationbarPropertyInfo +instance AttrInfo DOMDOMWindowLocationbarPropertyInfo where + type AttrAllowedOps DOMDOMWindowLocationbarPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowLocationbarPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowLocationbarPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowLocationbarPropertyInfo = DOMBarProp + type AttrLabel DOMDOMWindowLocationbarPropertyInfo = "DOMDOMWindow::locationbar" + attrGet _ = getDOMDOMWindowLocationbar + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "menubar" + -- Type: TInterface "WebKit" "DOMBarProp" + -- Flags: [PropertyReadable] + +getDOMDOMWindowMenubar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowMenubar obj = liftIO $ getObjectPropertyObject obj "menubar" DOMBarProp + +data DOMDOMWindowMenubarPropertyInfo +instance AttrInfo DOMDOMWindowMenubarPropertyInfo where + type AttrAllowedOps DOMDOMWindowMenubarPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowMenubarPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowMenubarPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowMenubarPropertyInfo = DOMBarProp + type AttrLabel DOMDOMWindowMenubarPropertyInfo = "DOMDOMWindow::menubar" + attrGet _ = getDOMDOMWindowMenubar + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text +getDOMDOMWindowName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMDOMWindowName :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () +setDOMDOMWindowName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMDOMWindowName :: T.Text -> IO ([Char], GValue) +constructDOMDOMWindowName val = constructObjectPropertyString "name" val + +data DOMDOMWindowNamePropertyInfo +instance AttrInfo DOMDOMWindowNamePropertyInfo where + type AttrAllowedOps DOMDOMWindowNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDOMWindowNamePropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowNamePropertyInfo = T.Text + type AttrLabel DOMDOMWindowNamePropertyInfo = "DOMDOMWindow::name" + attrGet _ = getDOMDOMWindowName + attrSet _ = setDOMDOMWindowName + attrConstruct _ = constructDOMDOMWindowName + +-- VVV Prop "navigator" + -- Type: TInterface "WebKit" "DOMNavigator" + -- Flags: [PropertyReadable] + +getDOMDOMWindowNavigator :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMNavigator +getDOMDOMWindowNavigator obj = liftIO $ getObjectPropertyObject obj "navigator" DOMNavigator + +data DOMDOMWindowNavigatorPropertyInfo +instance AttrInfo DOMDOMWindowNavigatorPropertyInfo where + type AttrAllowedOps DOMDOMWindowNavigatorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowNavigatorPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowNavigatorPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowNavigatorPropertyInfo = DOMNavigator + type AttrLabel DOMDOMWindowNavigatorPropertyInfo = "DOMDOMWindow::navigator" + attrGet _ = getDOMDOMWindowNavigator + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offscreen-buffering" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDOMWindowOffscreenBuffering :: (MonadIO m, DOMDOMWindowK o) => o -> m Bool +getDOMDOMWindowOffscreenBuffering obj = liftIO $ getObjectPropertyBool obj "offscreen-buffering" + +data DOMDOMWindowOffscreenBufferingPropertyInfo +instance AttrInfo DOMDOMWindowOffscreenBufferingPropertyInfo where + type AttrAllowedOps DOMDOMWindowOffscreenBufferingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowOffscreenBufferingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowOffscreenBufferingPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowOffscreenBufferingPropertyInfo = Bool + type AttrLabel DOMDOMWindowOffscreenBufferingPropertyInfo = "DOMDOMWindow::offscreen-buffering" + attrGet _ = getDOMDOMWindowOffscreenBuffering + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "opener" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMDOMWindowOpener :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowOpener obj = liftIO $ getObjectPropertyObject obj "opener" DOMDOMWindow + +data DOMDOMWindowOpenerPropertyInfo +instance AttrInfo DOMDOMWindowOpenerPropertyInfo where + type AttrAllowedOps DOMDOMWindowOpenerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowOpenerPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowOpenerPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowOpenerPropertyInfo = DOMDOMWindow + type AttrLabel DOMDOMWindowOpenerPropertyInfo = "DOMDOMWindow::opener" + attrGet _ = getDOMDOMWindowOpener + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "outer-height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowOuterHeight :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowOuterHeight obj = liftIO $ getObjectPropertyInt64 obj "outer-height" + +data DOMDOMWindowOuterHeightPropertyInfo +instance AttrInfo DOMDOMWindowOuterHeightPropertyInfo where + type AttrAllowedOps DOMDOMWindowOuterHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowOuterHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowOuterHeightPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowOuterHeightPropertyInfo = Int64 + type AttrLabel DOMDOMWindowOuterHeightPropertyInfo = "DOMDOMWindow::outer-height" + attrGet _ = getDOMDOMWindowOuterHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "outer-width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowOuterWidth :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowOuterWidth obj = liftIO $ getObjectPropertyInt64 obj "outer-width" + +data DOMDOMWindowOuterWidthPropertyInfo +instance AttrInfo DOMDOMWindowOuterWidthPropertyInfo where + type AttrAllowedOps DOMDOMWindowOuterWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowOuterWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowOuterWidthPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowOuterWidthPropertyInfo = Int64 + type AttrLabel DOMDOMWindowOuterWidthPropertyInfo = "DOMDOMWindow::outer-width" + attrGet _ = getDOMDOMWindowOuterWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "page-x-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowPageXOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowPageXOffset obj = liftIO $ getObjectPropertyInt64 obj "page-x-offset" + +data DOMDOMWindowPageXOffsetPropertyInfo +instance AttrInfo DOMDOMWindowPageXOffsetPropertyInfo where + type AttrAllowedOps DOMDOMWindowPageXOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowPageXOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowPageXOffsetPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowPageXOffsetPropertyInfo = Int64 + type AttrLabel DOMDOMWindowPageXOffsetPropertyInfo = "DOMDOMWindow::page-x-offset" + attrGet _ = getDOMDOMWindowPageXOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "page-y-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowPageYOffset :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowPageYOffset obj = liftIO $ getObjectPropertyInt64 obj "page-y-offset" + +data DOMDOMWindowPageYOffsetPropertyInfo +instance AttrInfo DOMDOMWindowPageYOffsetPropertyInfo where + type AttrAllowedOps DOMDOMWindowPageYOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowPageYOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowPageYOffsetPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowPageYOffsetPropertyInfo = Int64 + type AttrLabel DOMDOMWindowPageYOffsetPropertyInfo = "DOMDOMWindow::page-y-offset" + attrGet _ = getDOMDOMWindowPageYOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "parent" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMDOMWindowParent :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowParent obj = liftIO $ getObjectPropertyObject obj "parent" DOMDOMWindow + +data DOMDOMWindowParentPropertyInfo +instance AttrInfo DOMDOMWindowParentPropertyInfo where + type AttrAllowedOps DOMDOMWindowParentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowParentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowParentPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowParentPropertyInfo = DOMDOMWindow + type AttrLabel DOMDOMWindowParentPropertyInfo = "DOMDOMWindow::parent" + attrGet _ = getDOMDOMWindowParent + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "performance" + -- Type: TInterface "WebKit" "DOMPerformance" + -- Flags: [PropertyReadable] + +getDOMDOMWindowPerformance :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMPerformance +getDOMDOMWindowPerformance obj = liftIO $ getObjectPropertyObject obj "performance" DOMPerformance + +data DOMDOMWindowPerformancePropertyInfo +instance AttrInfo DOMDOMWindowPerformancePropertyInfo where + type AttrAllowedOps DOMDOMWindowPerformancePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowPerformancePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowPerformancePropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowPerformancePropertyInfo = DOMPerformance + type AttrLabel DOMDOMWindowPerformancePropertyInfo = "DOMDOMWindow::performance" + attrGet _ = getDOMDOMWindowPerformance + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "personalbar" + -- Type: TInterface "WebKit" "DOMBarProp" + -- Flags: [PropertyReadable] + +getDOMDOMWindowPersonalbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowPersonalbar obj = liftIO $ getObjectPropertyObject obj "personalbar" DOMBarProp + +data DOMDOMWindowPersonalbarPropertyInfo +instance AttrInfo DOMDOMWindowPersonalbarPropertyInfo where + type AttrAllowedOps DOMDOMWindowPersonalbarPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowPersonalbarPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowPersonalbarPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowPersonalbarPropertyInfo = DOMBarProp + type AttrLabel DOMDOMWindowPersonalbarPropertyInfo = "DOMDOMWindow::personalbar" + attrGet _ = getDOMDOMWindowPersonalbar + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen" + -- Type: TInterface "WebKit" "DOMScreen" + -- Flags: [PropertyReadable] + +getDOMDOMWindowScreen :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMScreen +getDOMDOMWindowScreen obj = liftIO $ getObjectPropertyObject obj "screen" DOMScreen + +data DOMDOMWindowScreenPropertyInfo +instance AttrInfo DOMDOMWindowScreenPropertyInfo where + type AttrAllowedOps DOMDOMWindowScreenPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScreenPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScreenPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScreenPropertyInfo = DOMScreen + type AttrLabel DOMDOMWindowScreenPropertyInfo = "DOMDOMWindow::screen" + attrGet _ = getDOMDOMWindowScreen + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-left" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowScreenLeft :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowScreenLeft obj = liftIO $ getObjectPropertyInt64 obj "screen-left" + +data DOMDOMWindowScreenLeftPropertyInfo +instance AttrInfo DOMDOMWindowScreenLeftPropertyInfo where + type AttrAllowedOps DOMDOMWindowScreenLeftPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScreenLeftPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScreenLeftPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScreenLeftPropertyInfo = Int64 + type AttrLabel DOMDOMWindowScreenLeftPropertyInfo = "DOMDOMWindow::screen-left" + attrGet _ = getDOMDOMWindowScreenLeft + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-top" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowScreenTop :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowScreenTop obj = liftIO $ getObjectPropertyInt64 obj "screen-top" + +data DOMDOMWindowScreenTopPropertyInfo +instance AttrInfo DOMDOMWindowScreenTopPropertyInfo where + type AttrAllowedOps DOMDOMWindowScreenTopPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScreenTopPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScreenTopPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScreenTopPropertyInfo = Int64 + type AttrLabel DOMDOMWindowScreenTopPropertyInfo = "DOMDOMWindow::screen-top" + attrGet _ = getDOMDOMWindowScreenTop + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowScreenX :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x" + +data DOMDOMWindowScreenXPropertyInfo +instance AttrInfo DOMDOMWindowScreenXPropertyInfo where + type AttrAllowedOps DOMDOMWindowScreenXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScreenXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScreenXPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScreenXPropertyInfo = Int64 + type AttrLabel DOMDOMWindowScreenXPropertyInfo = "DOMDOMWindow::screen-x" + attrGet _ = getDOMDOMWindowScreenX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowScreenY :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y" + +data DOMDOMWindowScreenYPropertyInfo +instance AttrInfo DOMDOMWindowScreenYPropertyInfo where + type AttrAllowedOps DOMDOMWindowScreenYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScreenYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScreenYPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScreenYPropertyInfo = Int64 + type AttrLabel DOMDOMWindowScreenYPropertyInfo = "DOMDOMWindow::screen-y" + attrGet _ = getDOMDOMWindowScreenY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "scroll-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowScrollX :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowScrollX obj = liftIO $ getObjectPropertyInt64 obj "scroll-x" + +data DOMDOMWindowScrollXPropertyInfo +instance AttrInfo DOMDOMWindowScrollXPropertyInfo where + type AttrAllowedOps DOMDOMWindowScrollXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScrollXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScrollXPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScrollXPropertyInfo = Int64 + type AttrLabel DOMDOMWindowScrollXPropertyInfo = "DOMDOMWindow::scroll-x" + attrGet _ = getDOMDOMWindowScrollX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "scroll-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMDOMWindowScrollY :: (MonadIO m, DOMDOMWindowK o) => o -> m Int64 +getDOMDOMWindowScrollY obj = liftIO $ getObjectPropertyInt64 obj "scroll-y" + +data DOMDOMWindowScrollYPropertyInfo +instance AttrInfo DOMDOMWindowScrollYPropertyInfo where + type AttrAllowedOps DOMDOMWindowScrollYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScrollYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScrollYPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScrollYPropertyInfo = Int64 + type AttrLabel DOMDOMWindowScrollYPropertyInfo = "DOMDOMWindow::scroll-y" + attrGet _ = getDOMDOMWindowScrollY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "scrollbars" + -- Type: TInterface "WebKit" "DOMBarProp" + -- Flags: [PropertyReadable] + +getDOMDOMWindowScrollbars :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowScrollbars obj = liftIO $ getObjectPropertyObject obj "scrollbars" DOMBarProp + +data DOMDOMWindowScrollbarsPropertyInfo +instance AttrInfo DOMDOMWindowScrollbarsPropertyInfo where + type AttrAllowedOps DOMDOMWindowScrollbarsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowScrollbarsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowScrollbarsPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowScrollbarsPropertyInfo = DOMBarProp + type AttrLabel DOMDOMWindowScrollbarsPropertyInfo = "DOMDOMWindow::scrollbars" + attrGet _ = getDOMDOMWindowScrollbars + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "self" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMDOMWindowSelf :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowSelf obj = liftIO $ getObjectPropertyObject obj "self" DOMDOMWindow + +data DOMDOMWindowSelfPropertyInfo +instance AttrInfo DOMDOMWindowSelfPropertyInfo where + type AttrAllowedOps DOMDOMWindowSelfPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowSelfPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowSelfPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowSelfPropertyInfo = DOMDOMWindow + type AttrLabel DOMDOMWindowSelfPropertyInfo = "DOMDOMWindow::self" + attrGet _ = getDOMDOMWindowSelf + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "session-storage" + -- Type: TInterface "WebKit" "DOMStorage" + -- Flags: [PropertyReadable] + +getDOMDOMWindowSessionStorage :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorage +getDOMDOMWindowSessionStorage obj = liftIO $ getObjectPropertyObject obj "session-storage" DOMStorage + +data DOMDOMWindowSessionStoragePropertyInfo +instance AttrInfo DOMDOMWindowSessionStoragePropertyInfo where + type AttrAllowedOps DOMDOMWindowSessionStoragePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowSessionStoragePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowSessionStoragePropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowSessionStoragePropertyInfo = DOMStorage + type AttrLabel DOMDOMWindowSessionStoragePropertyInfo = "DOMDOMWindow::session-storage" + attrGet _ = getDOMDOMWindowSessionStorage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "status" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> m T.Text +getDOMDOMWindowStatus obj = liftIO $ getObjectPropertyString obj "status" + +setDOMDOMWindowStatus :: (MonadIO m, DOMDOMWindowK o) => o -> T.Text -> m () +setDOMDOMWindowStatus obj val = liftIO $ setObjectPropertyString obj "status" val + +constructDOMDOMWindowStatus :: T.Text -> IO ([Char], GValue) +constructDOMDOMWindowStatus val = constructObjectPropertyString "status" val + +data DOMDOMWindowStatusPropertyInfo +instance AttrInfo DOMDOMWindowStatusPropertyInfo where + type AttrAllowedOps DOMDOMWindowStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowStatusPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDOMWindowStatusPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowStatusPropertyInfo = T.Text + type AttrLabel DOMDOMWindowStatusPropertyInfo = "DOMDOMWindow::status" + attrGet _ = getDOMDOMWindowStatus + attrSet _ = setDOMDOMWindowStatus + attrConstruct _ = constructDOMDOMWindowStatus + +-- VVV Prop "statusbar" + -- Type: TInterface "WebKit" "DOMBarProp" + -- Flags: [PropertyReadable] + +getDOMDOMWindowStatusbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowStatusbar obj = liftIO $ getObjectPropertyObject obj "statusbar" DOMBarProp + +data DOMDOMWindowStatusbarPropertyInfo +instance AttrInfo DOMDOMWindowStatusbarPropertyInfo where + type AttrAllowedOps DOMDOMWindowStatusbarPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowStatusbarPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowStatusbarPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowStatusbarPropertyInfo = DOMBarProp + type AttrLabel DOMDOMWindowStatusbarPropertyInfo = "DOMDOMWindow::statusbar" + attrGet _ = getDOMDOMWindowStatusbar + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "style-media" + -- Type: TInterface "WebKit" "DOMStyleMedia" + -- Flags: [PropertyReadable] + +getDOMDOMWindowStyleMedia :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStyleMedia +getDOMDOMWindowStyleMedia obj = liftIO $ getObjectPropertyObject obj "style-media" DOMStyleMedia + +data DOMDOMWindowStyleMediaPropertyInfo +instance AttrInfo DOMDOMWindowStyleMediaPropertyInfo where + type AttrAllowedOps DOMDOMWindowStyleMediaPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowStyleMediaPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowStyleMediaPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowStyleMediaPropertyInfo = DOMStyleMedia + type AttrLabel DOMDOMWindowStyleMediaPropertyInfo = "DOMDOMWindow::style-media" + attrGet _ = getDOMDOMWindowStyleMedia + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "toolbar" + -- Type: TInterface "WebKit" "DOMBarProp" + -- Flags: [PropertyReadable] + +getDOMDOMWindowToolbar :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMBarProp +getDOMDOMWindowToolbar obj = liftIO $ getObjectPropertyObject obj "toolbar" DOMBarProp + +data DOMDOMWindowToolbarPropertyInfo +instance AttrInfo DOMDOMWindowToolbarPropertyInfo where + type AttrAllowedOps DOMDOMWindowToolbarPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowToolbarPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowToolbarPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowToolbarPropertyInfo = DOMBarProp + type AttrLabel DOMDOMWindowToolbarPropertyInfo = "DOMDOMWindow::toolbar" + attrGet _ = getDOMDOMWindowToolbar + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "top" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMDOMWindowTop :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowTop obj = liftIO $ getObjectPropertyObject obj "top" DOMDOMWindow + +data DOMDOMWindowTopPropertyInfo +instance AttrInfo DOMDOMWindowTopPropertyInfo where + type AttrAllowedOps DOMDOMWindowTopPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowTopPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowTopPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowTopPropertyInfo = DOMDOMWindow + type AttrLabel DOMDOMWindowTopPropertyInfo = "DOMDOMWindow::top" + attrGet _ = getDOMDOMWindowTop + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-storage-info" + -- Type: TInterface "WebKit" "DOMStorageInfo" + -- Flags: [PropertyReadable] + +getDOMDOMWindowWebkitStorageInfo :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMStorageInfo +getDOMDOMWindowWebkitStorageInfo obj = liftIO $ getObjectPropertyObject obj "webkit-storage-info" DOMStorageInfo + +data DOMDOMWindowWebkitStorageInfoPropertyInfo +instance AttrInfo DOMDOMWindowWebkitStorageInfoPropertyInfo where + type AttrAllowedOps DOMDOMWindowWebkitStorageInfoPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowWebkitStorageInfoPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowWebkitStorageInfoPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowWebkitStorageInfoPropertyInfo = DOMStorageInfo + type AttrLabel DOMDOMWindowWebkitStorageInfoPropertyInfo = "DOMDOMWindow::webkit-storage-info" + attrGet _ = getDOMDOMWindowWebkitStorageInfo + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "window" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMDOMWindowWindow :: (MonadIO m, DOMDOMWindowK o) => o -> m DOMDOMWindow +getDOMDOMWindowWindow obj = liftIO $ getObjectPropertyObject obj "window" DOMDOMWindow + +data DOMDOMWindowWindowPropertyInfo +instance AttrInfo DOMDOMWindowWindowPropertyInfo where + type AttrAllowedOps DOMDOMWindowWindowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDOMWindowWindowPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDOMWindowWindowPropertyInfo = DOMDOMWindowK + type AttrGetType DOMDOMWindowWindowPropertyInfo = DOMDOMWindow + type AttrLabel DOMDOMWindowWindowPropertyInfo = "DOMDOMWindow::window" + attrGet _ = getDOMDOMWindowWindow + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDOMWindow = '[ '("application-cache", DOMDOMWindowApplicationCachePropertyInfo), '("client-information", DOMDOMWindowClientInformationPropertyInfo), '("closed", DOMDOMWindowClosedPropertyInfo), '("console", DOMDOMWindowConsolePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("css", DOMDOMWindowCssPropertyInfo), '("default-status", DOMDOMWindowDefaultStatusPropertyInfo), '("device-pixel-ratio", DOMDOMWindowDevicePixelRatioPropertyInfo), '("document", DOMDOMWindowDocumentPropertyInfo), '("frame-element", DOMDOMWindowFrameElementPropertyInfo), '("frames", DOMDOMWindowFramesPropertyInfo), '("history", DOMDOMWindowHistoryPropertyInfo), '("inner-height", DOMDOMWindowInnerHeightPropertyInfo), '("inner-width", DOMDOMWindowInnerWidthPropertyInfo), '("length", DOMDOMWindowLengthPropertyInfo), '("local-storage", DOMDOMWindowLocalStoragePropertyInfo), '("locationbar", DOMDOMWindowLocationbarPropertyInfo), '("menubar", DOMDOMWindowMenubarPropertyInfo), '("name", DOMDOMWindowNamePropertyInfo), '("navigator", DOMDOMWindowNavigatorPropertyInfo), '("offscreen-buffering", DOMDOMWindowOffscreenBufferingPropertyInfo), '("opener", DOMDOMWindowOpenerPropertyInfo), '("outer-height", DOMDOMWindowOuterHeightPropertyInfo), '("outer-width", DOMDOMWindowOuterWidthPropertyInfo), '("page-x-offset", DOMDOMWindowPageXOffsetPropertyInfo), '("page-y-offset", DOMDOMWindowPageYOffsetPropertyInfo), '("parent", DOMDOMWindowParentPropertyInfo), '("performance", DOMDOMWindowPerformancePropertyInfo), '("personalbar", DOMDOMWindowPersonalbarPropertyInfo), '("screen", DOMDOMWindowScreenPropertyInfo), '("screen-left", DOMDOMWindowScreenLeftPropertyInfo), '("screen-top", DOMDOMWindowScreenTopPropertyInfo), '("screen-x", DOMDOMWindowScreenXPropertyInfo), '("screen-y", DOMDOMWindowScreenYPropertyInfo), '("scroll-x", DOMDOMWindowScrollXPropertyInfo), '("scroll-y", DOMDOMWindowScrollYPropertyInfo), '("scrollbars", DOMDOMWindowScrollbarsPropertyInfo), '("self", DOMDOMWindowSelfPropertyInfo), '("session-storage", DOMDOMWindowSessionStoragePropertyInfo), '("status", DOMDOMWindowStatusPropertyInfo), '("statusbar", DOMDOMWindowStatusbarPropertyInfo), '("style-media", DOMDOMWindowStyleMediaPropertyInfo), '("toolbar", DOMDOMWindowToolbarPropertyInfo), '("top", DOMDOMWindowTopPropertyInfo), '("webkit-storage-info", DOMDOMWindowWebkitStorageInfoPropertyInfo), '("window", DOMDOMWindowWindowPropertyInfo)] + +type instance AttributeList DOMDOMWindowCSS = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] + +-- VVV Prop "version" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDatabaseVersion :: (MonadIO m, DOMDatabaseK o) => o -> m T.Text +getDOMDatabaseVersion obj = liftIO $ getObjectPropertyString obj "version" + +data DOMDatabaseVersionPropertyInfo +instance AttrInfo DOMDatabaseVersionPropertyInfo where + type AttrAllowedOps DOMDatabaseVersionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDatabaseVersionPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDatabaseVersionPropertyInfo = DOMDatabaseK + type AttrGetType DOMDatabaseVersionPropertyInfo = T.Text + type AttrLabel DOMDatabaseVersionPropertyInfo = "DOMDatabase::version" + attrGet _ = getDOMDatabaseVersion + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDatabase = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("version", DOMDatabaseVersionPropertyInfo)] + +-- VVV Prop "anchors" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMDocumentAnchors :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentAnchors obj = liftIO $ getObjectPropertyObject obj "anchors" DOMHTMLCollection + +data DOMDocumentAnchorsPropertyInfo +instance AttrInfo DOMDocumentAnchorsPropertyInfo where + type AttrAllowedOps DOMDocumentAnchorsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentAnchorsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentAnchorsPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentAnchorsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMDocumentAnchorsPropertyInfo = "DOMDocument::anchors" + attrGet _ = getDOMDocumentAnchors + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "applets" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMDocumentApplets :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentApplets obj = liftIO $ getObjectPropertyObject obj "applets" DOMHTMLCollection + +data DOMDocumentAppletsPropertyInfo +instance AttrInfo DOMDocumentAppletsPropertyInfo where + type AttrAllowedOps DOMDocumentAppletsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentAppletsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentAppletsPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentAppletsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMDocumentAppletsPropertyInfo = "DOMDocument::applets" + attrGet _ = getDOMDocumentApplets + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "body" + -- Type: TInterface "WebKit" "DOMHTMLElement" + -- Flags: [PropertyReadable] + +getDOMDocumentBody :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLElement +getDOMDocumentBody obj = liftIO $ getObjectPropertyObject obj "body" DOMHTMLElement + +data DOMDocumentBodyPropertyInfo +instance AttrInfo DOMDocumentBodyPropertyInfo where + type AttrAllowedOps DOMDocumentBodyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentBodyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentBodyPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentBodyPropertyInfo = DOMHTMLElement + type AttrLabel DOMDocumentBodyPropertyInfo = "DOMDocument::body" + attrGet _ = getDOMDocumentBody + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "character-set" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentCharacterSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentCharacterSet obj = liftIO $ getObjectPropertyString obj "character-set" + +data DOMDocumentCharacterSetPropertyInfo +instance AttrInfo DOMDocumentCharacterSetPropertyInfo where + type AttrAllowedOps DOMDocumentCharacterSetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentCharacterSetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentCharacterSetPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentCharacterSetPropertyInfo = T.Text + type AttrLabel DOMDocumentCharacterSetPropertyInfo = "DOMDocument::character-set" + attrGet _ = getDOMDocumentCharacterSet + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "charset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDocumentCharset :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentCharset obj = liftIO $ getObjectPropertyString obj "charset" + +setDOMDocumentCharset :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () +setDOMDocumentCharset obj val = liftIO $ setObjectPropertyString obj "charset" val + +constructDOMDocumentCharset :: T.Text -> IO ([Char], GValue) +constructDOMDocumentCharset val = constructObjectPropertyString "charset" val + +data DOMDocumentCharsetPropertyInfo +instance AttrInfo DOMDocumentCharsetPropertyInfo where + type AttrAllowedOps DOMDocumentCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDocumentCharsetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDocumentCharsetPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentCharsetPropertyInfo = T.Text + type AttrLabel DOMDocumentCharsetPropertyInfo = "DOMDocument::charset" + attrGet _ = getDOMDocumentCharset + attrSet _ = setDOMDocumentCharset + attrConstruct _ = constructDOMDocumentCharset + +-- VVV Prop "compat-mode" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentCompatMode :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentCompatMode obj = liftIO $ getObjectPropertyString obj "compat-mode" + +data DOMDocumentCompatModePropertyInfo +instance AttrInfo DOMDocumentCompatModePropertyInfo where + type AttrAllowedOps DOMDocumentCompatModePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentCompatModePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentCompatModePropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentCompatModePropertyInfo = T.Text + type AttrLabel DOMDocumentCompatModePropertyInfo = "DOMDocument::compat-mode" + attrGet _ = getDOMDocumentCompatMode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "cookie" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentCookie obj = liftIO $ getObjectPropertyString obj "cookie" + +setDOMDocumentCookie :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () +setDOMDocumentCookie obj val = liftIO $ setObjectPropertyString obj "cookie" val + +constructDOMDocumentCookie :: T.Text -> IO ([Char], GValue) +constructDOMDocumentCookie val = constructObjectPropertyString "cookie" val + +data DOMDocumentCookiePropertyInfo +instance AttrInfo DOMDocumentCookiePropertyInfo where + type AttrAllowedOps DOMDocumentCookiePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDocumentCookiePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDocumentCookiePropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentCookiePropertyInfo = T.Text + type AttrLabel DOMDocumentCookiePropertyInfo = "DOMDocument::cookie" + attrGet _ = getDOMDocumentCookie + attrSet _ = setDOMDocumentCookie + attrConstruct _ = constructDOMDocumentCookie + +-- VVV Prop "current-script" + -- Type: TInterface "WebKit" "DOMHTMLScriptElement" + -- Flags: [PropertyReadable] + +getDOMDocumentCurrentScript :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLScriptElement +getDOMDocumentCurrentScript obj = liftIO $ getObjectPropertyObject obj "current-script" DOMHTMLScriptElement + +data DOMDocumentCurrentScriptPropertyInfo +instance AttrInfo DOMDocumentCurrentScriptPropertyInfo where + type AttrAllowedOps DOMDocumentCurrentScriptPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentCurrentScriptPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentCurrentScriptPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentCurrentScriptPropertyInfo = DOMHTMLScriptElement + type AttrLabel DOMDocumentCurrentScriptPropertyInfo = "DOMDocument::current-script" + attrGet _ = getDOMDocumentCurrentScript + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "default-charset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentDefaultCharset :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentDefaultCharset obj = liftIO $ getObjectPropertyString obj "default-charset" + +data DOMDocumentDefaultCharsetPropertyInfo +instance AttrInfo DOMDocumentDefaultCharsetPropertyInfo where + type AttrAllowedOps DOMDocumentDefaultCharsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentDefaultCharsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentDefaultCharsetPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentDefaultCharsetPropertyInfo = T.Text + type AttrLabel DOMDocumentDefaultCharsetPropertyInfo = "DOMDocument::default-charset" + attrGet _ = getDOMDocumentDefaultCharset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "default-view" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMDocumentDefaultView :: (MonadIO m, DOMDocumentK o) => o -> m DOMDOMWindow +getDOMDocumentDefaultView obj = liftIO $ getObjectPropertyObject obj "default-view" DOMDOMWindow + +data DOMDocumentDefaultViewPropertyInfo +instance AttrInfo DOMDocumentDefaultViewPropertyInfo where + type AttrAllowedOps DOMDocumentDefaultViewPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentDefaultViewPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentDefaultViewPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentDefaultViewPropertyInfo = DOMDOMWindow + type AttrLabel DOMDocumentDefaultViewPropertyInfo = "DOMDocument::default-view" + attrGet _ = getDOMDocumentDefaultView + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "doctype" + -- Type: TInterface "WebKit" "DOMDocumentType" + -- Flags: [PropertyReadable] + +getDOMDocumentDoctype :: (MonadIO m, DOMDocumentK o) => o -> m DOMDocumentType +getDOMDocumentDoctype obj = liftIO $ getObjectPropertyObject obj "doctype" DOMDocumentType + +data DOMDocumentDoctypePropertyInfo +instance AttrInfo DOMDocumentDoctypePropertyInfo where + type AttrAllowedOps DOMDocumentDoctypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentDoctypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentDoctypePropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentDoctypePropertyInfo = DOMDocumentType + type AttrLabel DOMDocumentDoctypePropertyInfo = "DOMDocument::doctype" + attrGet _ = getDOMDocumentDoctype + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "document-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMDocumentDocumentElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement +getDOMDocumentDocumentElement obj = liftIO $ getObjectPropertyObject obj "document-element" DOMElement + +data DOMDocumentDocumentElementPropertyInfo +instance AttrInfo DOMDocumentDocumentElementPropertyInfo where + type AttrAllowedOps DOMDocumentDocumentElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentDocumentElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentDocumentElementPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentDocumentElementPropertyInfo = DOMElement + type AttrLabel DOMDocumentDocumentElementPropertyInfo = "DOMDocument::document-element" + attrGet _ = getDOMDocumentDocumentElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "document-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDocumentDocumentUri :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentDocumentUri obj = liftIO $ getObjectPropertyString obj "document-uri" + +setDOMDocumentDocumentUri :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () +setDOMDocumentDocumentUri obj val = liftIO $ setObjectPropertyString obj "document-uri" val + +constructDOMDocumentDocumentUri :: T.Text -> IO ([Char], GValue) +constructDOMDocumentDocumentUri val = constructObjectPropertyString "document-uri" val + +data DOMDocumentDocumentUriPropertyInfo +instance AttrInfo DOMDocumentDocumentUriPropertyInfo where + type AttrAllowedOps DOMDocumentDocumentUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDocumentDocumentUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDocumentDocumentUriPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentDocumentUriPropertyInfo = T.Text + type AttrLabel DOMDocumentDocumentUriPropertyInfo = "DOMDocument::document-uri" + attrGet _ = getDOMDocumentDocumentUri + attrSet _ = setDOMDocumentDocumentUri + attrConstruct _ = constructDOMDocumentDocumentUri + +-- VVV Prop "domain" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentDomain :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentDomain obj = liftIO $ getObjectPropertyString obj "domain" + +data DOMDocumentDomainPropertyInfo +instance AttrInfo DOMDocumentDomainPropertyInfo where + type AttrAllowedOps DOMDocumentDomainPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentDomainPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentDomainPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentDomainPropertyInfo = T.Text + type AttrLabel DOMDocumentDomainPropertyInfo = "DOMDocument::domain" + attrGet _ = getDOMDocumentDomain + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "forms" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMDocumentForms :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentForms obj = liftIO $ getObjectPropertyObject obj "forms" DOMHTMLCollection + +data DOMDocumentFormsPropertyInfo +instance AttrInfo DOMDocumentFormsPropertyInfo where + type AttrAllowedOps DOMDocumentFormsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentFormsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentFormsPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentFormsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMDocumentFormsPropertyInfo = "DOMDocument::forms" + attrGet _ = getDOMDocumentForms + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "head" + -- Type: TInterface "WebKit" "DOMHTMLHeadElement" + -- Flags: [PropertyReadable] + +getDOMDocumentHead :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLHeadElement +getDOMDocumentHead obj = liftIO $ getObjectPropertyObject obj "head" DOMHTMLHeadElement + +data DOMDocumentHeadPropertyInfo +instance AttrInfo DOMDocumentHeadPropertyInfo where + type AttrAllowedOps DOMDocumentHeadPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentHeadPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentHeadPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentHeadPropertyInfo = DOMHTMLHeadElement + type AttrLabel DOMDocumentHeadPropertyInfo = "DOMDocument::head" + attrGet _ = getDOMDocumentHead + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "hidden" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDocumentHidden :: (MonadIO m, DOMDocumentK o) => o -> m Bool +getDOMDocumentHidden obj = liftIO $ getObjectPropertyBool obj "hidden" + +data DOMDocumentHiddenPropertyInfo +instance AttrInfo DOMDocumentHiddenPropertyInfo where + type AttrAllowedOps DOMDocumentHiddenPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentHiddenPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentHiddenPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentHiddenPropertyInfo = Bool + type AttrLabel DOMDocumentHiddenPropertyInfo = "DOMDocument::hidden" + attrGet _ = getDOMDocumentHidden + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "images" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMDocumentImages :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentImages obj = liftIO $ getObjectPropertyObject obj "images" DOMHTMLCollection + +data DOMDocumentImagesPropertyInfo +instance AttrInfo DOMDocumentImagesPropertyInfo where + type AttrAllowedOps DOMDocumentImagesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentImagesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentImagesPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentImagesPropertyInfo = DOMHTMLCollection + type AttrLabel DOMDocumentImagesPropertyInfo = "DOMDocument::images" + attrGet _ = getDOMDocumentImages + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "implementation" + -- Type: TInterface "WebKit" "DOMDOMImplementation" + -- Flags: [PropertyReadable] + +getDOMDocumentImplementation :: (MonadIO m, DOMDocumentK o) => o -> m DOMDOMImplementation +getDOMDocumentImplementation obj = liftIO $ getObjectPropertyObject obj "implementation" DOMDOMImplementation + +data DOMDocumentImplementationPropertyInfo +instance AttrInfo DOMDocumentImplementationPropertyInfo where + type AttrAllowedOps DOMDocumentImplementationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentImplementationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentImplementationPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentImplementationPropertyInfo = DOMDOMImplementation + type AttrLabel DOMDocumentImplementationPropertyInfo = "DOMDocument::implementation" + attrGet _ = getDOMDocumentImplementation + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "input-encoding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentInputEncoding :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentInputEncoding obj = liftIO $ getObjectPropertyString obj "input-encoding" + +data DOMDocumentInputEncodingPropertyInfo +instance AttrInfo DOMDocumentInputEncodingPropertyInfo where + type AttrAllowedOps DOMDocumentInputEncodingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentInputEncodingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentInputEncodingPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentInputEncodingPropertyInfo = T.Text + type AttrLabel DOMDocumentInputEncodingPropertyInfo = "DOMDocument::input-encoding" + attrGet _ = getDOMDocumentInputEncoding + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "last-modified" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentLastModified :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentLastModified obj = liftIO $ getObjectPropertyString obj "last-modified" + +data DOMDocumentLastModifiedPropertyInfo +instance AttrInfo DOMDocumentLastModifiedPropertyInfo where + type AttrAllowedOps DOMDocumentLastModifiedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentLastModifiedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentLastModifiedPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentLastModifiedPropertyInfo = T.Text + type AttrLabel DOMDocumentLastModifiedPropertyInfo = "DOMDocument::last-modified" + attrGet _ = getDOMDocumentLastModified + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "links" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMDocumentLinks :: (MonadIO m, DOMDocumentK o) => o -> m DOMHTMLCollection +getDOMDocumentLinks obj = liftIO $ getObjectPropertyObject obj "links" DOMHTMLCollection + +data DOMDocumentLinksPropertyInfo +instance AttrInfo DOMDocumentLinksPropertyInfo where + type AttrAllowedOps DOMDocumentLinksPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentLinksPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentLinksPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentLinksPropertyInfo = DOMHTMLCollection + type AttrLabel DOMDocumentLinksPropertyInfo = "DOMDocument::links" + attrGet _ = getDOMDocumentLinks + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "preferred-stylesheet-set" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentPreferredStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentPreferredStylesheetSet obj = liftIO $ getObjectPropertyString obj "preferred-stylesheet-set" + +data DOMDocumentPreferredStylesheetSetPropertyInfo +instance AttrInfo DOMDocumentPreferredStylesheetSetPropertyInfo where + type AttrAllowedOps DOMDocumentPreferredStylesheetSetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentPreferredStylesheetSetPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentPreferredStylesheetSetPropertyInfo = T.Text + type AttrLabel DOMDocumentPreferredStylesheetSetPropertyInfo = "DOMDocument::preferred-stylesheet-set" + attrGet _ = getDOMDocumentPreferredStylesheetSet + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ready-state" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentReadyState :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentReadyState obj = liftIO $ getObjectPropertyString obj "ready-state" + +data DOMDocumentReadyStatePropertyInfo +instance AttrInfo DOMDocumentReadyStatePropertyInfo where + type AttrAllowedOps DOMDocumentReadyStatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentReadyStatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentReadyStatePropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentReadyStatePropertyInfo = T.Text + type AttrLabel DOMDocumentReadyStatePropertyInfo = "DOMDocument::ready-state" + attrGet _ = getDOMDocumentReadyState + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "referrer" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentReferrer :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentReferrer obj = liftIO $ getObjectPropertyString obj "referrer" + +data DOMDocumentReferrerPropertyInfo +instance AttrInfo DOMDocumentReferrerPropertyInfo where + type AttrAllowedOps DOMDocumentReferrerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentReferrerPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentReferrerPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentReferrerPropertyInfo = T.Text + type AttrLabel DOMDocumentReferrerPropertyInfo = "DOMDocument::referrer" + attrGet _ = getDOMDocumentReferrer + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "security-policy" + -- Type: TInterface "WebKit" "DOMDOMSecurityPolicy" + -- Flags: [PropertyReadable] + +getDOMDocumentSecurityPolicy :: (MonadIO m, DOMDocumentK o) => o -> m DOMDOMSecurityPolicy +getDOMDocumentSecurityPolicy obj = liftIO $ getObjectPropertyObject obj "security-policy" DOMDOMSecurityPolicy + +data DOMDocumentSecurityPolicyPropertyInfo +instance AttrInfo DOMDocumentSecurityPolicyPropertyInfo where + type AttrAllowedOps DOMDocumentSecurityPolicyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentSecurityPolicyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentSecurityPolicyPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentSecurityPolicyPropertyInfo = DOMDOMSecurityPolicy + type AttrLabel DOMDocumentSecurityPolicyPropertyInfo = "DOMDocument::security-policy" + attrGet _ = getDOMDocumentSecurityPolicy + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "selected-stylesheet-set" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDocumentSelectedStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentSelectedStylesheetSet obj = liftIO $ getObjectPropertyString obj "selected-stylesheet-set" + +setDOMDocumentSelectedStylesheetSet :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () +setDOMDocumentSelectedStylesheetSet obj val = liftIO $ setObjectPropertyString obj "selected-stylesheet-set" val + +constructDOMDocumentSelectedStylesheetSet :: T.Text -> IO ([Char], GValue) +constructDOMDocumentSelectedStylesheetSet val = constructObjectPropertyString "selected-stylesheet-set" val + +data DOMDocumentSelectedStylesheetSetPropertyInfo +instance AttrInfo DOMDocumentSelectedStylesheetSetPropertyInfo where + type AttrAllowedOps DOMDocumentSelectedStylesheetSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDocumentSelectedStylesheetSetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDocumentSelectedStylesheetSetPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentSelectedStylesheetSetPropertyInfo = T.Text + type AttrLabel DOMDocumentSelectedStylesheetSetPropertyInfo = "DOMDocument::selected-stylesheet-set" + attrGet _ = getDOMDocumentSelectedStylesheetSet + attrSet _ = setDOMDocumentSelectedStylesheetSet + attrConstruct _ = constructDOMDocumentSelectedStylesheetSet + +-- VVV Prop "style-sheets" + -- Type: TInterface "WebKit" "DOMStyleSheetList" + -- Flags: [PropertyReadable] + +getDOMDocumentStyleSheets :: (MonadIO m, DOMDocumentK o) => o -> m DOMStyleSheetList +getDOMDocumentStyleSheets obj = liftIO $ getObjectPropertyObject obj "style-sheets" DOMStyleSheetList + +data DOMDocumentStyleSheetsPropertyInfo +instance AttrInfo DOMDocumentStyleSheetsPropertyInfo where + type AttrAllowedOps DOMDocumentStyleSheetsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentStyleSheetsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentStyleSheetsPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentStyleSheetsPropertyInfo = DOMStyleSheetList + type AttrLabel DOMDocumentStyleSheetsPropertyInfo = "DOMDocument::style-sheets" + attrGet _ = getDOMDocumentStyleSheets + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDocumentTitle :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentTitle obj = liftIO $ getObjectPropertyString obj "title" + +setDOMDocumentTitle :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () +setDOMDocumentTitle obj val = liftIO $ setObjectPropertyString obj "title" val + +constructDOMDocumentTitle :: T.Text -> IO ([Char], GValue) +constructDOMDocumentTitle val = constructObjectPropertyString "title" val + +data DOMDocumentTitlePropertyInfo +instance AttrInfo DOMDocumentTitlePropertyInfo where + type AttrAllowedOps DOMDocumentTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDocumentTitlePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDocumentTitlePropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentTitlePropertyInfo = T.Text + type AttrLabel DOMDocumentTitlePropertyInfo = "DOMDocument::title" + attrGet _ = getDOMDocumentTitle + attrSet _ = setDOMDocumentTitle + attrConstruct _ = constructDOMDocumentTitle + +-- VVV Prop "url" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentUrl :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentUrl obj = liftIO $ getObjectPropertyString obj "url" + +data DOMDocumentUrlPropertyInfo +instance AttrInfo DOMDocumentUrlPropertyInfo where + type AttrAllowedOps DOMDocumentUrlPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentUrlPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentUrlPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentUrlPropertyInfo = T.Text + type AttrLabel DOMDocumentUrlPropertyInfo = "DOMDocument::url" + attrGet _ = getDOMDocumentUrl + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "visibility-state" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentVisibilityState :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentVisibilityState obj = liftIO $ getObjectPropertyString obj "visibility-state" + +data DOMDocumentVisibilityStatePropertyInfo +instance AttrInfo DOMDocumentVisibilityStatePropertyInfo where + type AttrAllowedOps DOMDocumentVisibilityStatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentVisibilityStatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentVisibilityStatePropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentVisibilityStatePropertyInfo = T.Text + type AttrLabel DOMDocumentVisibilityStatePropertyInfo = "DOMDocument::visibility-state" + attrGet _ = getDOMDocumentVisibilityState + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-current-full-screen-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMDocumentWebkitCurrentFullScreenElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement +getDOMDocumentWebkitCurrentFullScreenElement obj = liftIO $ getObjectPropertyObject obj "webkit-current-full-screen-element" DOMElement + +data DOMDocumentWebkitCurrentFullScreenElementPropertyInfo +instance AttrInfo DOMDocumentWebkitCurrentFullScreenElementPropertyInfo where + type AttrAllowedOps DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = DOMElement + type AttrLabel DOMDocumentWebkitCurrentFullScreenElementPropertyInfo = "DOMDocument::webkit-current-full-screen-element" + attrGet _ = getDOMDocumentWebkitCurrentFullScreenElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-full-screen-keyboard-input-allowed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDocumentWebkitFullScreenKeyboardInputAllowed :: (MonadIO m, DOMDocumentK o) => o -> m Bool +getDOMDocumentWebkitFullScreenKeyboardInputAllowed obj = liftIO $ getObjectPropertyBool obj "webkit-full-screen-keyboard-input-allowed" + +data DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo +instance AttrInfo DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo where + type AttrAllowedOps DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = Bool + type AttrLabel DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo = "DOMDocument::webkit-full-screen-keyboard-input-allowed" + attrGet _ = getDOMDocumentWebkitFullScreenKeyboardInputAllowed + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-fullscreen-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMDocumentWebkitFullscreenElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement +getDOMDocumentWebkitFullscreenElement obj = liftIO $ getObjectPropertyObject obj "webkit-fullscreen-element" DOMElement + +data DOMDocumentWebkitFullscreenElementPropertyInfo +instance AttrInfo DOMDocumentWebkitFullscreenElementPropertyInfo where + type AttrAllowedOps DOMDocumentWebkitFullscreenElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentWebkitFullscreenElementPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentWebkitFullscreenElementPropertyInfo = DOMElement + type AttrLabel DOMDocumentWebkitFullscreenElementPropertyInfo = "DOMDocument::webkit-fullscreen-element" + attrGet _ = getDOMDocumentWebkitFullscreenElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-fullscreen-enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDocumentWebkitFullscreenEnabled :: (MonadIO m, DOMDocumentK o) => o -> m Bool +getDOMDocumentWebkitFullscreenEnabled obj = liftIO $ getObjectPropertyBool obj "webkit-fullscreen-enabled" + +data DOMDocumentWebkitFullscreenEnabledPropertyInfo +instance AttrInfo DOMDocumentWebkitFullscreenEnabledPropertyInfo where + type AttrAllowedOps DOMDocumentWebkitFullscreenEnabledPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentWebkitFullscreenEnabledPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentWebkitFullscreenEnabledPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentWebkitFullscreenEnabledPropertyInfo = Bool + type AttrLabel DOMDocumentWebkitFullscreenEnabledPropertyInfo = "DOMDocument::webkit-fullscreen-enabled" + attrGet _ = getDOMDocumentWebkitFullscreenEnabled + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-is-full-screen" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMDocumentWebkitIsFullScreen :: (MonadIO m, DOMDocumentK o) => o -> m Bool +getDOMDocumentWebkitIsFullScreen obj = liftIO $ getObjectPropertyBool obj "webkit-is-full-screen" + +data DOMDocumentWebkitIsFullScreenPropertyInfo +instance AttrInfo DOMDocumentWebkitIsFullScreenPropertyInfo where + type AttrAllowedOps DOMDocumentWebkitIsFullScreenPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentWebkitIsFullScreenPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentWebkitIsFullScreenPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentWebkitIsFullScreenPropertyInfo = Bool + type AttrLabel DOMDocumentWebkitIsFullScreenPropertyInfo = "DOMDocument::webkit-is-full-screen" + attrGet _ = getDOMDocumentWebkitIsFullScreen + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-pointer-lock-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMDocumentWebkitPointerLockElement :: (MonadIO m, DOMDocumentK o) => o -> m DOMElement +getDOMDocumentWebkitPointerLockElement obj = liftIO $ getObjectPropertyObject obj "webkit-pointer-lock-element" DOMElement + +data DOMDocumentWebkitPointerLockElementPropertyInfo +instance AttrInfo DOMDocumentWebkitPointerLockElementPropertyInfo where + type AttrAllowedOps DOMDocumentWebkitPointerLockElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentWebkitPointerLockElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentWebkitPointerLockElementPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentWebkitPointerLockElementPropertyInfo = DOMElement + type AttrLabel DOMDocumentWebkitPointerLockElementPropertyInfo = "DOMDocument::webkit-pointer-lock-element" + attrGet _ = getDOMDocumentWebkitPointerLockElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "xml-encoding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentXmlEncoding :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentXmlEncoding obj = liftIO $ getObjectPropertyString obj "xml-encoding" + +data DOMDocumentXmlEncodingPropertyInfo +instance AttrInfo DOMDocumentXmlEncodingPropertyInfo where + type AttrAllowedOps DOMDocumentXmlEncodingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentXmlEncodingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentXmlEncodingPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentXmlEncodingPropertyInfo = T.Text + type AttrLabel DOMDocumentXmlEncodingPropertyInfo = "DOMDocument::xml-encoding" + attrGet _ = getDOMDocumentXmlEncoding + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "xml-standalone" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDocumentXmlStandalone :: (MonadIO m, DOMDocumentK o) => o -> m Bool +getDOMDocumentXmlStandalone obj = liftIO $ getObjectPropertyBool obj "xml-standalone" + +setDOMDocumentXmlStandalone :: (MonadIO m, DOMDocumentK o) => o -> Bool -> m () +setDOMDocumentXmlStandalone obj val = liftIO $ setObjectPropertyBool obj "xml-standalone" val + +constructDOMDocumentXmlStandalone :: Bool -> IO ([Char], GValue) +constructDOMDocumentXmlStandalone val = constructObjectPropertyBool "xml-standalone" val + +data DOMDocumentXmlStandalonePropertyInfo +instance AttrInfo DOMDocumentXmlStandalonePropertyInfo where + type AttrAllowedOps DOMDocumentXmlStandalonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDocumentXmlStandalonePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMDocumentXmlStandalonePropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentXmlStandalonePropertyInfo = Bool + type AttrLabel DOMDocumentXmlStandalonePropertyInfo = "DOMDocument::xml-standalone" + attrGet _ = getDOMDocumentXmlStandalone + attrSet _ = setDOMDocumentXmlStandalone + attrConstruct _ = constructDOMDocumentXmlStandalone + +-- VVV Prop "xml-version" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMDocumentXmlVersion :: (MonadIO m, DOMDocumentK o) => o -> m T.Text +getDOMDocumentXmlVersion obj = liftIO $ getObjectPropertyString obj "xml-version" + +setDOMDocumentXmlVersion :: (MonadIO m, DOMDocumentK o) => o -> T.Text -> m () +setDOMDocumentXmlVersion obj val = liftIO $ setObjectPropertyString obj "xml-version" val + +constructDOMDocumentXmlVersion :: T.Text -> IO ([Char], GValue) +constructDOMDocumentXmlVersion val = constructObjectPropertyString "xml-version" val + +data DOMDocumentXmlVersionPropertyInfo +instance AttrInfo DOMDocumentXmlVersionPropertyInfo where + type AttrAllowedOps DOMDocumentXmlVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMDocumentXmlVersionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMDocumentXmlVersionPropertyInfo = DOMDocumentK + type AttrGetType DOMDocumentXmlVersionPropertyInfo = T.Text + type AttrLabel DOMDocumentXmlVersionPropertyInfo = "DOMDocument::xml-version" + attrGet _ = getDOMDocumentXmlVersion + attrSet _ = setDOMDocumentXmlVersion + attrConstruct _ = constructDOMDocumentXmlVersion + +type instance AttributeList DOMDocument = '[ '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("character-set", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("compat-mode", DOMDocumentCompatModePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-script", DOMDocumentCurrentScriptPropertyInfo), '("default-charset", DOMDocumentDefaultCharsetPropertyInfo), '("default-view", DOMDocumentDefaultViewPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("document-element", DOMDocumentDocumentElementPropertyInfo), '("document-uri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("input-encoding", DOMDocumentInputEncodingPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-modified", DOMDocumentLastModifiedPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("preferred-stylesheet-set", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("security-policy", DOMDocumentSecurityPolicyPropertyInfo), '("selected-stylesheet-set", DOMDocumentSelectedStylesheetSetPropertyInfo), '("style-sheets", DOMDocumentStyleSheetsPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibility-state", DOMDocumentVisibilityStatePropertyInfo), '("webkit-current-full-screen-element", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkit-full-screen-keyboard-input-allowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkit-fullscreen-element", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkit-fullscreen-enabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkit-is-full-screen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("webkit-pointer-lock-element", DOMDocumentWebkitPointerLockElementPropertyInfo), '("xml-encoding", DOMDocumentXmlEncodingPropertyInfo), '("xml-standalone", DOMDocumentXmlStandalonePropertyInfo), '("xml-version", DOMDocumentXmlVersionPropertyInfo)] + +type instance AttributeList DOMDocumentFragment = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] + +-- VVV Prop "entities" + -- Type: TInterface "WebKit" "DOMNamedNodeMap" + -- Flags: [PropertyReadable] + +getDOMDocumentTypeEntities :: (MonadIO m, DOMDocumentTypeK o) => o -> m DOMNamedNodeMap +getDOMDocumentTypeEntities obj = liftIO $ getObjectPropertyObject obj "entities" DOMNamedNodeMap + +data DOMDocumentTypeEntitiesPropertyInfo +instance AttrInfo DOMDocumentTypeEntitiesPropertyInfo where + type AttrAllowedOps DOMDocumentTypeEntitiesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentTypeEntitiesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentTypeEntitiesPropertyInfo = DOMDocumentTypeK + type AttrGetType DOMDocumentTypeEntitiesPropertyInfo = DOMNamedNodeMap + type AttrLabel DOMDocumentTypeEntitiesPropertyInfo = "DOMDocumentType::entities" + attrGet _ = getDOMDocumentTypeEntities + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "internal-subset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentTypeInternalSubset :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text +getDOMDocumentTypeInternalSubset obj = liftIO $ getObjectPropertyString obj "internal-subset" + +data DOMDocumentTypeInternalSubsetPropertyInfo +instance AttrInfo DOMDocumentTypeInternalSubsetPropertyInfo where + type AttrAllowedOps DOMDocumentTypeInternalSubsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentTypeInternalSubsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentTypeInternalSubsetPropertyInfo = DOMDocumentTypeK + type AttrGetType DOMDocumentTypeInternalSubsetPropertyInfo = T.Text + type AttrLabel DOMDocumentTypeInternalSubsetPropertyInfo = "DOMDocumentType::internal-subset" + attrGet _ = getDOMDocumentTypeInternalSubset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentTypeName :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text +getDOMDocumentTypeName obj = liftIO $ getObjectPropertyString obj "name" + +data DOMDocumentTypeNamePropertyInfo +instance AttrInfo DOMDocumentTypeNamePropertyInfo where + type AttrAllowedOps DOMDocumentTypeNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentTypeNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentTypeNamePropertyInfo = DOMDocumentTypeK + type AttrGetType DOMDocumentTypeNamePropertyInfo = T.Text + type AttrLabel DOMDocumentTypeNamePropertyInfo = "DOMDocumentType::name" + attrGet _ = getDOMDocumentTypeName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "notations" + -- Type: TInterface "WebKit" "DOMNamedNodeMap" + -- Flags: [PropertyReadable] + +getDOMDocumentTypeNotations :: (MonadIO m, DOMDocumentTypeK o) => o -> m DOMNamedNodeMap +getDOMDocumentTypeNotations obj = liftIO $ getObjectPropertyObject obj "notations" DOMNamedNodeMap + +data DOMDocumentTypeNotationsPropertyInfo +instance AttrInfo DOMDocumentTypeNotationsPropertyInfo where + type AttrAllowedOps DOMDocumentTypeNotationsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentTypeNotationsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentTypeNotationsPropertyInfo = DOMDocumentTypeK + type AttrGetType DOMDocumentTypeNotationsPropertyInfo = DOMNamedNodeMap + type AttrLabel DOMDocumentTypeNotationsPropertyInfo = "DOMDocumentType::notations" + attrGet _ = getDOMDocumentTypeNotations + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "public-id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentTypePublicId :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text +getDOMDocumentTypePublicId obj = liftIO $ getObjectPropertyString obj "public-id" + +data DOMDocumentTypePublicIdPropertyInfo +instance AttrInfo DOMDocumentTypePublicIdPropertyInfo where + type AttrAllowedOps DOMDocumentTypePublicIdPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentTypePublicIdPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentTypePublicIdPropertyInfo = DOMDocumentTypeK + type AttrGetType DOMDocumentTypePublicIdPropertyInfo = T.Text + type AttrLabel DOMDocumentTypePublicIdPropertyInfo = "DOMDocumentType::public-id" + attrGet _ = getDOMDocumentTypePublicId + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "system-id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMDocumentTypeSystemId :: (MonadIO m, DOMDocumentTypeK o) => o -> m T.Text +getDOMDocumentTypeSystemId obj = liftIO $ getObjectPropertyString obj "system-id" + +data DOMDocumentTypeSystemIdPropertyInfo +instance AttrInfo DOMDocumentTypeSystemIdPropertyInfo where + type AttrAllowedOps DOMDocumentTypeSystemIdPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMDocumentTypeSystemIdPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMDocumentTypeSystemIdPropertyInfo = DOMDocumentTypeK + type AttrGetType DOMDocumentTypeSystemIdPropertyInfo = T.Text + type AttrLabel DOMDocumentTypeSystemIdPropertyInfo = "DOMDocumentType::system-id" + attrGet _ = getDOMDocumentTypeSystemId + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMDocumentType = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("entities", DOMDocumentTypeEntitiesPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("internal-subset", DOMDocumentTypeInternalSubsetPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMDocumentTypeNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("notations", DOMDocumentTypeNotationsPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("public-id", DOMDocumentTypePublicIdPropertyInfo), '("system-id", DOMDocumentTypeSystemIdPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] + +-- VVV Prop "attributes" + -- Type: TInterface "WebKit" "DOMNamedNodeMap" + -- Flags: [PropertyReadable] + +getDOMElementAttributes :: (MonadIO m, DOMElementK o) => o -> m DOMNamedNodeMap +getDOMElementAttributes obj = liftIO $ getObjectPropertyObject obj "attributes" DOMNamedNodeMap + +data DOMElementAttributesPropertyInfo +instance AttrInfo DOMElementAttributesPropertyInfo where + type AttrAllowedOps DOMElementAttributesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementAttributesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementAttributesPropertyInfo = DOMElementK + type AttrGetType DOMElementAttributesPropertyInfo = DOMNamedNodeMap + type AttrLabel DOMElementAttributesPropertyInfo = "DOMElement::attributes" + attrGet _ = getDOMElementAttributes + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "child-element-count" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMElementChildElementCount :: (MonadIO m, DOMElementK o) => o -> m Word64 +getDOMElementChildElementCount obj = liftIO $ getObjectPropertyUInt64 obj "child-element-count" + +data DOMElementChildElementCountPropertyInfo +instance AttrInfo DOMElementChildElementCountPropertyInfo where + type AttrAllowedOps DOMElementChildElementCountPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementChildElementCountPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementChildElementCountPropertyInfo = DOMElementK + type AttrGetType DOMElementChildElementCountPropertyInfo = Word64 + type AttrLabel DOMElementChildElementCountPropertyInfo = "DOMElement::child-element-count" + attrGet _ = getDOMElementChildElementCount + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "class-list" + -- Type: TInterface "WebKit" "DOMDOMTokenList" + -- Flags: [PropertyReadable] + +getDOMElementClassList :: (MonadIO m, DOMElementK o) => o -> m DOMDOMTokenList +getDOMElementClassList obj = liftIO $ getObjectPropertyObject obj "class-list" DOMDOMTokenList + +data DOMElementClassListPropertyInfo +instance AttrInfo DOMElementClassListPropertyInfo where + type AttrAllowedOps DOMElementClassListPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementClassListPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementClassListPropertyInfo = DOMElementK + type AttrGetType DOMElementClassListPropertyInfo = DOMDOMTokenList + type AttrLabel DOMElementClassListPropertyInfo = "DOMElement::class-list" + attrGet _ = getDOMElementClassList + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "class-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMElementClassName :: (MonadIO m, DOMElementK o) => o -> m T.Text +getDOMElementClassName obj = liftIO $ getObjectPropertyString obj "class-name" + +setDOMElementClassName :: (MonadIO m, DOMElementK o) => o -> T.Text -> m () +setDOMElementClassName obj val = liftIO $ setObjectPropertyString obj "class-name" val + +constructDOMElementClassName :: T.Text -> IO ([Char], GValue) +constructDOMElementClassName val = constructObjectPropertyString "class-name" val + +data DOMElementClassNamePropertyInfo +instance AttrInfo DOMElementClassNamePropertyInfo where + type AttrAllowedOps DOMElementClassNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMElementClassNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMElementClassNamePropertyInfo = DOMElementK + type AttrGetType DOMElementClassNamePropertyInfo = T.Text + type AttrLabel DOMElementClassNamePropertyInfo = "DOMElement::class-name" + attrGet _ = getDOMElementClassName + attrSet _ = setDOMElementClassName + attrConstruct _ = constructDOMElementClassName + +-- VVV Prop "client-height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementClientHeight :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementClientHeight obj = liftIO $ getObjectPropertyInt64 obj "client-height" + +data DOMElementClientHeightPropertyInfo +instance AttrInfo DOMElementClientHeightPropertyInfo where + type AttrAllowedOps DOMElementClientHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementClientHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementClientHeightPropertyInfo = DOMElementK + type AttrGetType DOMElementClientHeightPropertyInfo = Int64 + type AttrLabel DOMElementClientHeightPropertyInfo = "DOMElement::client-height" + attrGet _ = getDOMElementClientHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "client-left" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementClientLeft :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementClientLeft obj = liftIO $ getObjectPropertyInt64 obj "client-left" + +data DOMElementClientLeftPropertyInfo +instance AttrInfo DOMElementClientLeftPropertyInfo where + type AttrAllowedOps DOMElementClientLeftPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementClientLeftPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementClientLeftPropertyInfo = DOMElementK + type AttrGetType DOMElementClientLeftPropertyInfo = Int64 + type AttrLabel DOMElementClientLeftPropertyInfo = "DOMElement::client-left" + attrGet _ = getDOMElementClientLeft + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "client-top" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementClientTop :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementClientTop obj = liftIO $ getObjectPropertyInt64 obj "client-top" + +data DOMElementClientTopPropertyInfo +instance AttrInfo DOMElementClientTopPropertyInfo where + type AttrAllowedOps DOMElementClientTopPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementClientTopPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementClientTopPropertyInfo = DOMElementK + type AttrGetType DOMElementClientTopPropertyInfo = Int64 + type AttrLabel DOMElementClientTopPropertyInfo = "DOMElement::client-top" + attrGet _ = getDOMElementClientTop + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "client-width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementClientWidth :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementClientWidth obj = liftIO $ getObjectPropertyInt64 obj "client-width" + +data DOMElementClientWidthPropertyInfo +instance AttrInfo DOMElementClientWidthPropertyInfo where + type AttrAllowedOps DOMElementClientWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementClientWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementClientWidthPropertyInfo = DOMElementK + type AttrGetType DOMElementClientWidthPropertyInfo = Int64 + type AttrLabel DOMElementClientWidthPropertyInfo = "DOMElement::client-width" + attrGet _ = getDOMElementClientWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "first-element-child" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMElementFirstElementChild :: (MonadIO m, DOMElementK o) => o -> m DOMElement +getDOMElementFirstElementChild obj = liftIO $ getObjectPropertyObject obj "first-element-child" DOMElement + +data DOMElementFirstElementChildPropertyInfo +instance AttrInfo DOMElementFirstElementChildPropertyInfo where + type AttrAllowedOps DOMElementFirstElementChildPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementFirstElementChildPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementFirstElementChildPropertyInfo = DOMElementK + type AttrGetType DOMElementFirstElementChildPropertyInfo = DOMElement + type AttrLabel DOMElementFirstElementChildPropertyInfo = "DOMElement::first-element-child" + attrGet _ = getDOMElementFirstElementChild + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMElementId :: (MonadIO m, DOMElementK o) => o -> m T.Text +getDOMElementId obj = liftIO $ getObjectPropertyString obj "id" + +setDOMElementId :: (MonadIO m, DOMElementK o) => o -> T.Text -> m () +setDOMElementId obj val = liftIO $ setObjectPropertyString obj "id" val + +constructDOMElementId :: T.Text -> IO ([Char], GValue) +constructDOMElementId val = constructObjectPropertyString "id" val + +data DOMElementIdPropertyInfo +instance AttrInfo DOMElementIdPropertyInfo where + type AttrAllowedOps DOMElementIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMElementIdPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMElementIdPropertyInfo = DOMElementK + type AttrGetType DOMElementIdPropertyInfo = T.Text + type AttrLabel DOMElementIdPropertyInfo = "DOMElement::id" + attrGet _ = getDOMElementId + attrSet _ = setDOMElementId + attrConstruct _ = constructDOMElementId + +-- VVV Prop "last-element-child" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMElementLastElementChild :: (MonadIO m, DOMElementK o) => o -> m DOMElement +getDOMElementLastElementChild obj = liftIO $ getObjectPropertyObject obj "last-element-child" DOMElement + +data DOMElementLastElementChildPropertyInfo +instance AttrInfo DOMElementLastElementChildPropertyInfo where + type AttrAllowedOps DOMElementLastElementChildPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementLastElementChildPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementLastElementChildPropertyInfo = DOMElementK + type AttrGetType DOMElementLastElementChildPropertyInfo = DOMElement + type AttrLabel DOMElementLastElementChildPropertyInfo = "DOMElement::last-element-child" + attrGet _ = getDOMElementLastElementChild + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "next-element-sibling" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMElementNextElementSibling :: (MonadIO m, DOMElementK o) => o -> m DOMElement +getDOMElementNextElementSibling obj = liftIO $ getObjectPropertyObject obj "next-element-sibling" DOMElement + +data DOMElementNextElementSiblingPropertyInfo +instance AttrInfo DOMElementNextElementSiblingPropertyInfo where + type AttrAllowedOps DOMElementNextElementSiblingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementNextElementSiblingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementNextElementSiblingPropertyInfo = DOMElementK + type AttrGetType DOMElementNextElementSiblingPropertyInfo = DOMElement + type AttrLabel DOMElementNextElementSiblingPropertyInfo = "DOMElement::next-element-sibling" + attrGet _ = getDOMElementNextElementSibling + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offset-height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementOffsetHeight :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementOffsetHeight obj = liftIO $ getObjectPropertyInt64 obj "offset-height" + +data DOMElementOffsetHeightPropertyInfo +instance AttrInfo DOMElementOffsetHeightPropertyInfo where + type AttrAllowedOps DOMElementOffsetHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementOffsetHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementOffsetHeightPropertyInfo = DOMElementK + type AttrGetType DOMElementOffsetHeightPropertyInfo = Int64 + type AttrLabel DOMElementOffsetHeightPropertyInfo = "DOMElement::offset-height" + attrGet _ = getDOMElementOffsetHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offset-left" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementOffsetLeft :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementOffsetLeft obj = liftIO $ getObjectPropertyInt64 obj "offset-left" + +data DOMElementOffsetLeftPropertyInfo +instance AttrInfo DOMElementOffsetLeftPropertyInfo where + type AttrAllowedOps DOMElementOffsetLeftPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementOffsetLeftPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementOffsetLeftPropertyInfo = DOMElementK + type AttrGetType DOMElementOffsetLeftPropertyInfo = Int64 + type AttrLabel DOMElementOffsetLeftPropertyInfo = "DOMElement::offset-left" + attrGet _ = getDOMElementOffsetLeft + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offset-parent" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMElementOffsetParent :: (MonadIO m, DOMElementK o) => o -> m DOMElement +getDOMElementOffsetParent obj = liftIO $ getObjectPropertyObject obj "offset-parent" DOMElement + +data DOMElementOffsetParentPropertyInfo +instance AttrInfo DOMElementOffsetParentPropertyInfo where + type AttrAllowedOps DOMElementOffsetParentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementOffsetParentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementOffsetParentPropertyInfo = DOMElementK + type AttrGetType DOMElementOffsetParentPropertyInfo = DOMElement + type AttrLabel DOMElementOffsetParentPropertyInfo = "DOMElement::offset-parent" + attrGet _ = getDOMElementOffsetParent + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offset-top" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementOffsetTop :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementOffsetTop obj = liftIO $ getObjectPropertyInt64 obj "offset-top" + +data DOMElementOffsetTopPropertyInfo +instance AttrInfo DOMElementOffsetTopPropertyInfo where + type AttrAllowedOps DOMElementOffsetTopPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementOffsetTopPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementOffsetTopPropertyInfo = DOMElementK + type AttrGetType DOMElementOffsetTopPropertyInfo = Int64 + type AttrLabel DOMElementOffsetTopPropertyInfo = "DOMElement::offset-top" + attrGet _ = getDOMElementOffsetTop + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offset-width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementOffsetWidth :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementOffsetWidth obj = liftIO $ getObjectPropertyInt64 obj "offset-width" + +data DOMElementOffsetWidthPropertyInfo +instance AttrInfo DOMElementOffsetWidthPropertyInfo where + type AttrAllowedOps DOMElementOffsetWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementOffsetWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementOffsetWidthPropertyInfo = DOMElementK + type AttrGetType DOMElementOffsetWidthPropertyInfo = Int64 + type AttrLabel DOMElementOffsetWidthPropertyInfo = "DOMElement::offset-width" + attrGet _ = getDOMElementOffsetWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "previous-element-sibling" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMElementPreviousElementSibling :: (MonadIO m, DOMElementK o) => o -> m DOMElement +getDOMElementPreviousElementSibling obj = liftIO $ getObjectPropertyObject obj "previous-element-sibling" DOMElement + +data DOMElementPreviousElementSiblingPropertyInfo +instance AttrInfo DOMElementPreviousElementSiblingPropertyInfo where + type AttrAllowedOps DOMElementPreviousElementSiblingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementPreviousElementSiblingPropertyInfo = DOMElementK + type AttrGetType DOMElementPreviousElementSiblingPropertyInfo = DOMElement + type AttrLabel DOMElementPreviousElementSiblingPropertyInfo = "DOMElement::previous-element-sibling" + attrGet _ = getDOMElementPreviousElementSibling + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "scroll-height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementScrollHeight :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementScrollHeight obj = liftIO $ getObjectPropertyInt64 obj "scroll-height" + +data DOMElementScrollHeightPropertyInfo +instance AttrInfo DOMElementScrollHeightPropertyInfo where + type AttrAllowedOps DOMElementScrollHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementScrollHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementScrollHeightPropertyInfo = DOMElementK + type AttrGetType DOMElementScrollHeightPropertyInfo = Int64 + type AttrLabel DOMElementScrollHeightPropertyInfo = "DOMElement::scroll-height" + attrGet _ = getDOMElementScrollHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "scroll-left" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMElementScrollLeft :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementScrollLeft obj = liftIO $ getObjectPropertyInt64 obj "scroll-left" + +setDOMElementScrollLeft :: (MonadIO m, DOMElementK o) => o -> Int64 -> m () +setDOMElementScrollLeft obj val = liftIO $ setObjectPropertyInt64 obj "scroll-left" val + +constructDOMElementScrollLeft :: Int64 -> IO ([Char], GValue) +constructDOMElementScrollLeft val = constructObjectPropertyInt64 "scroll-left" val + +data DOMElementScrollLeftPropertyInfo +instance AttrInfo DOMElementScrollLeftPropertyInfo where + type AttrAllowedOps DOMElementScrollLeftPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMElementScrollLeftPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMElementScrollLeftPropertyInfo = DOMElementK + type AttrGetType DOMElementScrollLeftPropertyInfo = Int64 + type AttrLabel DOMElementScrollLeftPropertyInfo = "DOMElement::scroll-left" + attrGet _ = getDOMElementScrollLeft + attrSet _ = setDOMElementScrollLeft + attrConstruct _ = constructDOMElementScrollLeft + +-- VVV Prop "scroll-top" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMElementScrollTop :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementScrollTop obj = liftIO $ getObjectPropertyInt64 obj "scroll-top" + +setDOMElementScrollTop :: (MonadIO m, DOMElementK o) => o -> Int64 -> m () +setDOMElementScrollTop obj val = liftIO $ setObjectPropertyInt64 obj "scroll-top" val + +constructDOMElementScrollTop :: Int64 -> IO ([Char], GValue) +constructDOMElementScrollTop val = constructObjectPropertyInt64 "scroll-top" val + +data DOMElementScrollTopPropertyInfo +instance AttrInfo DOMElementScrollTopPropertyInfo where + type AttrAllowedOps DOMElementScrollTopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMElementScrollTopPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMElementScrollTopPropertyInfo = DOMElementK + type AttrGetType DOMElementScrollTopPropertyInfo = Int64 + type AttrLabel DOMElementScrollTopPropertyInfo = "DOMElement::scroll-top" + attrGet _ = getDOMElementScrollTop + attrSet _ = setDOMElementScrollTop + attrConstruct _ = constructDOMElementScrollTop + +-- VVV Prop "scroll-width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMElementScrollWidth :: (MonadIO m, DOMElementK o) => o -> m Int64 +getDOMElementScrollWidth obj = liftIO $ getObjectPropertyInt64 obj "scroll-width" + +data DOMElementScrollWidthPropertyInfo +instance AttrInfo DOMElementScrollWidthPropertyInfo where + type AttrAllowedOps DOMElementScrollWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementScrollWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementScrollWidthPropertyInfo = DOMElementK + type AttrGetType DOMElementScrollWidthPropertyInfo = Int64 + type AttrLabel DOMElementScrollWidthPropertyInfo = "DOMElement::scroll-width" + attrGet _ = getDOMElementScrollWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "style" + -- Type: TInterface "WebKit" "DOMCSSStyleDeclaration" + -- Flags: [PropertyReadable] + +getDOMElementStyle :: (MonadIO m, DOMElementK o) => o -> m DOMCSSStyleDeclaration +getDOMElementStyle obj = liftIO $ getObjectPropertyObject obj "style" DOMCSSStyleDeclaration + +data DOMElementStylePropertyInfo +instance AttrInfo DOMElementStylePropertyInfo where + type AttrAllowedOps DOMElementStylePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementStylePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementStylePropertyInfo = DOMElementK + type AttrGetType DOMElementStylePropertyInfo = DOMCSSStyleDeclaration + type AttrLabel DOMElementStylePropertyInfo = "DOMElement::style" + attrGet _ = getDOMElementStyle + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "tag-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMElementTagName :: (MonadIO m, DOMElementK o) => o -> m T.Text +getDOMElementTagName obj = liftIO $ getObjectPropertyString obj "tag-name" + +data DOMElementTagNamePropertyInfo +instance AttrInfo DOMElementTagNamePropertyInfo where + type AttrAllowedOps DOMElementTagNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementTagNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementTagNamePropertyInfo = DOMElementK + type AttrGetType DOMElementTagNamePropertyInfo = T.Text + type AttrLabel DOMElementTagNamePropertyInfo = "DOMElement::tag-name" + attrGet _ = getDOMElementTagName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-region-overset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMElementWebkitRegionOverset :: (MonadIO m, DOMElementK o) => o -> m T.Text +getDOMElementWebkitRegionOverset obj = liftIO $ getObjectPropertyString obj "webkit-region-overset" + +data DOMElementWebkitRegionOversetPropertyInfo +instance AttrInfo DOMElementWebkitRegionOversetPropertyInfo where + type AttrAllowedOps DOMElementWebkitRegionOversetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMElementWebkitRegionOversetPropertyInfo = DOMElementK + type AttrGetType DOMElementWebkitRegionOversetPropertyInfo = T.Text + type AttrLabel DOMElementWebkitRegionOversetPropertyInfo = "DOMElement::webkit-region-overset" + attrGet _ = getDOMElementWebkitRegionOverset + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMElement = '[ '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("id", DOMElementIdPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo)] + +type instance AttributeList DOMEntityReference = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] + +-- VVV Prop "bubbles" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMEventBubbles :: (MonadIO m, DOMEventK o) => o -> m Bool +getDOMEventBubbles obj = liftIO $ getObjectPropertyBool obj "bubbles" + +data DOMEventBubblesPropertyInfo +instance AttrInfo DOMEventBubblesPropertyInfo where + type AttrAllowedOps DOMEventBubblesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventBubblesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventBubblesPropertyInfo = DOMEventK + type AttrGetType DOMEventBubblesPropertyInfo = Bool + type AttrLabel DOMEventBubblesPropertyInfo = "DOMEvent::bubbles" + attrGet _ = getDOMEventBubbles + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "cancel-bubble" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMEventCancelBubble :: (MonadIO m, DOMEventK o) => o -> m Bool +getDOMEventCancelBubble obj = liftIO $ getObjectPropertyBool obj "cancel-bubble" + +setDOMEventCancelBubble :: (MonadIO m, DOMEventK o) => o -> Bool -> m () +setDOMEventCancelBubble obj val = liftIO $ setObjectPropertyBool obj "cancel-bubble" val + +constructDOMEventCancelBubble :: Bool -> IO ([Char], GValue) +constructDOMEventCancelBubble val = constructObjectPropertyBool "cancel-bubble" val + +data DOMEventCancelBubblePropertyInfo +instance AttrInfo DOMEventCancelBubblePropertyInfo where + type AttrAllowedOps DOMEventCancelBubblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMEventCancelBubblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMEventCancelBubblePropertyInfo = DOMEventK + type AttrGetType DOMEventCancelBubblePropertyInfo = Bool + type AttrLabel DOMEventCancelBubblePropertyInfo = "DOMEvent::cancel-bubble" + attrGet _ = getDOMEventCancelBubble + attrSet _ = setDOMEventCancelBubble + attrConstruct _ = constructDOMEventCancelBubble + +-- VVV Prop "cancelable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMEventCancelable :: (MonadIO m, DOMEventK o) => o -> m Bool +getDOMEventCancelable obj = liftIO $ getObjectPropertyBool obj "cancelable" + +data DOMEventCancelablePropertyInfo +instance AttrInfo DOMEventCancelablePropertyInfo where + type AttrAllowedOps DOMEventCancelablePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventCancelablePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventCancelablePropertyInfo = DOMEventK + type AttrGetType DOMEventCancelablePropertyInfo = Bool + type AttrLabel DOMEventCancelablePropertyInfo = "DOMEvent::cancelable" + attrGet _ = getDOMEventCancelable + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "current-target" + -- Type: TInterface "WebKit" "DOMEventTarget" + -- Flags: [PropertyReadable] + +getDOMEventCurrentTarget :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget +getDOMEventCurrentTarget obj = liftIO $ getObjectPropertyObject obj "current-target" DOMEventTarget + +data DOMEventCurrentTargetPropertyInfo +instance AttrInfo DOMEventCurrentTargetPropertyInfo where + type AttrAllowedOps DOMEventCurrentTargetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventCurrentTargetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventCurrentTargetPropertyInfo = DOMEventK + type AttrGetType DOMEventCurrentTargetPropertyInfo = DOMEventTarget + type AttrLabel DOMEventCurrentTargetPropertyInfo = "DOMEvent::current-target" + attrGet _ = getDOMEventCurrentTarget + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "default-prevented" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMEventDefaultPrevented :: (MonadIO m, DOMEventK o) => o -> m Bool +getDOMEventDefaultPrevented obj = liftIO $ getObjectPropertyBool obj "default-prevented" + +data DOMEventDefaultPreventedPropertyInfo +instance AttrInfo DOMEventDefaultPreventedPropertyInfo where + type AttrAllowedOps DOMEventDefaultPreventedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventDefaultPreventedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventDefaultPreventedPropertyInfo = DOMEventK + type AttrGetType DOMEventDefaultPreventedPropertyInfo = Bool + type AttrLabel DOMEventDefaultPreventedPropertyInfo = "DOMEvent::default-prevented" + attrGet _ = getDOMEventDefaultPrevented + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "event-phase" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMEventEventPhase :: (MonadIO m, DOMEventK o) => o -> m Word32 +getDOMEventEventPhase obj = liftIO $ getObjectPropertyCUInt obj "event-phase" + +data DOMEventEventPhasePropertyInfo +instance AttrInfo DOMEventEventPhasePropertyInfo where + type AttrAllowedOps DOMEventEventPhasePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventEventPhasePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventEventPhasePropertyInfo = DOMEventK + type AttrGetType DOMEventEventPhasePropertyInfo = Word32 + type AttrLabel DOMEventEventPhasePropertyInfo = "DOMEvent::event-phase" + attrGet _ = getDOMEventEventPhase + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "return-value" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMEventReturnValue :: (MonadIO m, DOMEventK o) => o -> m Bool +getDOMEventReturnValue obj = liftIO $ getObjectPropertyBool obj "return-value" + +setDOMEventReturnValue :: (MonadIO m, DOMEventK o) => o -> Bool -> m () +setDOMEventReturnValue obj val = liftIO $ setObjectPropertyBool obj "return-value" val + +constructDOMEventReturnValue :: Bool -> IO ([Char], GValue) +constructDOMEventReturnValue val = constructObjectPropertyBool "return-value" val + +data DOMEventReturnValuePropertyInfo +instance AttrInfo DOMEventReturnValuePropertyInfo where + type AttrAllowedOps DOMEventReturnValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMEventReturnValuePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMEventReturnValuePropertyInfo = DOMEventK + type AttrGetType DOMEventReturnValuePropertyInfo = Bool + type AttrLabel DOMEventReturnValuePropertyInfo = "DOMEvent::return-value" + attrGet _ = getDOMEventReturnValue + attrSet _ = setDOMEventReturnValue + attrConstruct _ = constructDOMEventReturnValue + +-- VVV Prop "src-element" + -- Type: TInterface "WebKit" "DOMEventTarget" + -- Flags: [PropertyReadable] + +getDOMEventSrcElement :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget +getDOMEventSrcElement obj = liftIO $ getObjectPropertyObject obj "src-element" DOMEventTarget + +data DOMEventSrcElementPropertyInfo +instance AttrInfo DOMEventSrcElementPropertyInfo where + type AttrAllowedOps DOMEventSrcElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventSrcElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventSrcElementPropertyInfo = DOMEventK + type AttrGetType DOMEventSrcElementPropertyInfo = DOMEventTarget + type AttrLabel DOMEventSrcElementPropertyInfo = "DOMEvent::src-element" + attrGet _ = getDOMEventSrcElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "target" + -- Type: TInterface "WebKit" "DOMEventTarget" + -- Flags: [PropertyReadable] + +getDOMEventTarget :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget +getDOMEventTarget obj = liftIO $ getObjectPropertyObject obj "target" DOMEventTarget + +data DOMEventTargetPropertyInfo +instance AttrInfo DOMEventTargetPropertyInfo where + type AttrAllowedOps DOMEventTargetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventTargetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventTargetPropertyInfo = DOMEventK + type AttrGetType DOMEventTargetPropertyInfo = DOMEventTarget + type AttrLabel DOMEventTargetPropertyInfo = "DOMEvent::target" + attrGet _ = getDOMEventTarget + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "time-stamp" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMEventTimeStamp :: (MonadIO m, DOMEventK o) => o -> m Word32 +getDOMEventTimeStamp obj = liftIO $ getObjectPropertyCUInt obj "time-stamp" + +data DOMEventTimeStampPropertyInfo +instance AttrInfo DOMEventTimeStampPropertyInfo where + type AttrAllowedOps DOMEventTimeStampPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventTimeStampPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventTimeStampPropertyInfo = DOMEventK + type AttrGetType DOMEventTimeStampPropertyInfo = Word32 + type AttrLabel DOMEventTimeStampPropertyInfo = "DOMEvent::time-stamp" + attrGet _ = getDOMEventTimeStamp + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMEventType :: (MonadIO m, DOMEventK o) => o -> m T.Text +getDOMEventType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMEventTypePropertyInfo +instance AttrInfo DOMEventTypePropertyInfo where + type AttrAllowedOps DOMEventTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMEventTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMEventTypePropertyInfo = DOMEventK + type AttrGetType DOMEventTypePropertyInfo = T.Text + type AttrLabel DOMEventTypePropertyInfo = "DOMEvent::type" + attrGet _ = getDOMEventType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMEvent = '[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo)] + +type instance AttributeList DOMEventTarget = '[ ] + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMFileName :: (MonadIO m, DOMFileK o) => o -> m T.Text +getDOMFileName obj = liftIO $ getObjectPropertyString obj "name" + +data DOMFileNamePropertyInfo +instance AttrInfo DOMFileNamePropertyInfo where + type AttrAllowedOps DOMFileNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMFileNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMFileNamePropertyInfo = DOMFileK + type AttrGetType DOMFileNamePropertyInfo = T.Text + type AttrLabel DOMFileNamePropertyInfo = "DOMFile::name" + attrGet _ = getDOMFileName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-relative-path" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMFileWebkitRelativePath :: (MonadIO m, DOMFileK o) => o -> m T.Text +getDOMFileWebkitRelativePath obj = liftIO $ getObjectPropertyString obj "webkit-relative-path" + +data DOMFileWebkitRelativePathPropertyInfo +instance AttrInfo DOMFileWebkitRelativePathPropertyInfo where + type AttrAllowedOps DOMFileWebkitRelativePathPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMFileWebkitRelativePathPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMFileWebkitRelativePathPropertyInfo = DOMFileK + type AttrGetType DOMFileWebkitRelativePathPropertyInfo = T.Text + type AttrLabel DOMFileWebkitRelativePathPropertyInfo = "DOMFile::webkit-relative-path" + attrGet _ = getDOMFileWebkitRelativePath + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMFile = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("name", DOMFileNamePropertyInfo), '("size", DOMBlobSizePropertyInfo), '("type", DOMBlobTypePropertyInfo), '("webkit-relative-path", DOMFileWebkitRelativePathPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMFileListLength :: (MonadIO m, DOMFileListK o) => o -> m Word64 +getDOMFileListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMFileListLengthPropertyInfo +instance AttrInfo DOMFileListLengthPropertyInfo where + type AttrAllowedOps DOMFileListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMFileListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMFileListLengthPropertyInfo = DOMFileListK + type AttrGetType DOMFileListLengthPropertyInfo = Word64 + type AttrLabel DOMFileListLengthPropertyInfo = "DOMFileList::length" + attrGet _ = getDOMFileListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMFileList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMFileListLengthPropertyInfo)] + +-- VVV Prop "id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMGamepadId :: (MonadIO m, DOMGamepadK o) => o -> m T.Text +getDOMGamepadId obj = liftIO $ getObjectPropertyString obj "id" + +data DOMGamepadIdPropertyInfo +instance AttrInfo DOMGamepadIdPropertyInfo where + type AttrAllowedOps DOMGamepadIdPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMGamepadIdPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMGamepadIdPropertyInfo = DOMGamepadK + type AttrGetType DOMGamepadIdPropertyInfo = T.Text + type AttrLabel DOMGamepadIdPropertyInfo = "DOMGamepad::id" + attrGet _ = getDOMGamepadId + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "index" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMGamepadIndex :: (MonadIO m, DOMGamepadK o) => o -> m Word64 +getDOMGamepadIndex obj = liftIO $ getObjectPropertyUInt64 obj "index" + +data DOMGamepadIndexPropertyInfo +instance AttrInfo DOMGamepadIndexPropertyInfo where + type AttrAllowedOps DOMGamepadIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMGamepadIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMGamepadIndexPropertyInfo = DOMGamepadK + type AttrGetType DOMGamepadIndexPropertyInfo = Word64 + type AttrLabel DOMGamepadIndexPropertyInfo = "DOMGamepad::index" + attrGet _ = getDOMGamepadIndex + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "timestamp" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMGamepadTimestamp :: (MonadIO m, DOMGamepadK o) => o -> m Word64 +getDOMGamepadTimestamp obj = liftIO $ getObjectPropertyUInt64 obj "timestamp" + +data DOMGamepadTimestampPropertyInfo +instance AttrInfo DOMGamepadTimestampPropertyInfo where + type AttrAllowedOps DOMGamepadTimestampPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMGamepadTimestampPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMGamepadTimestampPropertyInfo = DOMGamepadK + type AttrGetType DOMGamepadTimestampPropertyInfo = Word64 + type AttrLabel DOMGamepadTimestampPropertyInfo = "DOMGamepad::timestamp" + attrGet _ = getDOMGamepadTimestamp + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMGamepad = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("id", DOMGamepadIdPropertyInfo), '("index", DOMGamepadIndexPropertyInfo), '("timestamp", DOMGamepadTimestampPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMGamepadListLength :: (MonadIO m, DOMGamepadListK o) => o -> m Word64 +getDOMGamepadListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMGamepadListLengthPropertyInfo +instance AttrInfo DOMGamepadListLengthPropertyInfo where + type AttrAllowedOps DOMGamepadListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMGamepadListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMGamepadListLengthPropertyInfo = DOMGamepadListK + type AttrGetType DOMGamepadListLengthPropertyInfo = Word64 + type AttrLabel DOMGamepadListLengthPropertyInfo = "DOMGamepadList::length" + attrGet _ = getDOMGamepadListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMGamepadList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMGamepadListLengthPropertyInfo)] + +type instance AttributeList DOMGeolocation = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] + +-- VVV Prop "charset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementCharset :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementCharset obj = liftIO $ getObjectPropertyString obj "charset" + +setDOMHTMLAnchorElementCharset :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val + +constructDOMHTMLAnchorElementCharset :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementCharset val = constructObjectPropertyString "charset" val + +data DOMHTMLAnchorElementCharsetPropertyInfo +instance AttrInfo DOMHTMLAnchorElementCharsetPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementCharsetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementCharsetPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementCharsetPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementCharsetPropertyInfo = "DOMHTMLAnchorElement::charset" + attrGet _ = getDOMHTMLAnchorElementCharset + attrSet _ = setDOMHTMLAnchorElementCharset + attrConstruct _ = constructDOMHTMLAnchorElementCharset + +-- VVV Prop "coords" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementCoords :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementCoords obj = liftIO $ getObjectPropertyString obj "coords" + +setDOMHTMLAnchorElementCoords :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementCoords obj val = liftIO $ setObjectPropertyString obj "coords" val + +constructDOMHTMLAnchorElementCoords :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementCoords val = constructObjectPropertyString "coords" val + +data DOMHTMLAnchorElementCoordsPropertyInfo +instance AttrInfo DOMHTMLAnchorElementCoordsPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementCoordsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementCoordsPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementCoordsPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementCoordsPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementCoordsPropertyInfo = "DOMHTMLAnchorElement::coords" + attrGet _ = getDOMHTMLAnchorElementCoords + attrSet _ = setDOMHTMLAnchorElementCoords + attrConstruct _ = constructDOMHTMLAnchorElementCoords + +-- VVV Prop "download" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementDownload obj = liftIO $ getObjectPropertyString obj "download" + +setDOMHTMLAnchorElementDownload :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementDownload obj val = liftIO $ setObjectPropertyString obj "download" val + +constructDOMHTMLAnchorElementDownload :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementDownload val = constructObjectPropertyString "download" val + +data DOMHTMLAnchorElementDownloadPropertyInfo +instance AttrInfo DOMHTMLAnchorElementDownloadPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementDownloadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementDownloadPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementDownloadPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementDownloadPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementDownloadPropertyInfo = "DOMHTMLAnchorElement::download" + attrGet _ = getDOMHTMLAnchorElementDownload + attrSet _ = setDOMHTMLAnchorElementDownload + attrConstruct _ = constructDOMHTMLAnchorElementDownload + +-- VVV Prop "hash" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementHash :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHash obj = liftIO $ getObjectPropertyString obj "hash" + +setDOMHTMLAnchorElementHash :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementHash obj val = liftIO $ setObjectPropertyString obj "hash" val + +constructDOMHTMLAnchorElementHash :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementHash val = constructObjectPropertyString "hash" val + +data DOMHTMLAnchorElementHashPropertyInfo +instance AttrInfo DOMHTMLAnchorElementHashPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementHashPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementHashPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementHashPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementHashPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementHashPropertyInfo = "DOMHTMLAnchorElement::hash" + attrGet _ = getDOMHTMLAnchorElementHash + attrSet _ = setDOMHTMLAnchorElementHash + attrConstruct _ = constructDOMHTMLAnchorElementHash + +-- VVV Prop "host" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementHost :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHost obj = liftIO $ getObjectPropertyString obj "host" + +setDOMHTMLAnchorElementHost :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementHost obj val = liftIO $ setObjectPropertyString obj "host" val + +constructDOMHTMLAnchorElementHost :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementHost val = constructObjectPropertyString "host" val + +data DOMHTMLAnchorElementHostPropertyInfo +instance AttrInfo DOMHTMLAnchorElementHostPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementHostPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementHostPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementHostPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementHostPropertyInfo = "DOMHTMLAnchorElement::host" + attrGet _ = getDOMHTMLAnchorElementHost + attrSet _ = setDOMHTMLAnchorElementHost + attrConstruct _ = constructDOMHTMLAnchorElementHost + +-- VVV Prop "hostname" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementHostname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHostname obj = liftIO $ getObjectPropertyString obj "hostname" + +setDOMHTMLAnchorElementHostname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementHostname obj val = liftIO $ setObjectPropertyString obj "hostname" val + +constructDOMHTMLAnchorElementHostname :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementHostname val = constructObjectPropertyString "hostname" val + +data DOMHTMLAnchorElementHostnamePropertyInfo +instance AttrInfo DOMHTMLAnchorElementHostnamePropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementHostnamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementHostnamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementHostnamePropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementHostnamePropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementHostnamePropertyInfo = "DOMHTMLAnchorElement::hostname" + attrGet _ = getDOMHTMLAnchorElementHostname + attrSet _ = setDOMHTMLAnchorElementHostname + attrConstruct _ = constructDOMHTMLAnchorElementHostname + +-- VVV Prop "href" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementHref :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHref obj = liftIO $ getObjectPropertyString obj "href" + +setDOMHTMLAnchorElementHref :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementHref obj val = liftIO $ setObjectPropertyString obj "href" val + +constructDOMHTMLAnchorElementHref :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementHref val = constructObjectPropertyString "href" val + +data DOMHTMLAnchorElementHrefPropertyInfo +instance AttrInfo DOMHTMLAnchorElementHrefPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementHrefPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementHrefPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementHrefPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementHrefPropertyInfo = "DOMHTMLAnchorElement::href" + attrGet _ = getDOMHTMLAnchorElementHref + attrSet _ = setDOMHTMLAnchorElementHref + attrConstruct _ = constructDOMHTMLAnchorElementHref + +-- VVV Prop "hreflang" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementHreflang :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementHreflang obj = liftIO $ getObjectPropertyString obj "hreflang" + +setDOMHTMLAnchorElementHreflang :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" val + +constructDOMHTMLAnchorElementHreflang :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementHreflang val = constructObjectPropertyString "hreflang" val + +data DOMHTMLAnchorElementHreflangPropertyInfo +instance AttrInfo DOMHTMLAnchorElementHreflangPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementHreflangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementHreflangPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementHreflangPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementHreflangPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementHreflangPropertyInfo = "DOMHTMLAnchorElement::hreflang" + attrGet _ = getDOMHTMLAnchorElementHreflang + attrSet _ = setDOMHTMLAnchorElementHreflang + attrConstruct _ = constructDOMHTMLAnchorElementHreflang + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementName :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLAnchorElementName :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLAnchorElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementName val = constructObjectPropertyString "name" val + +data DOMHTMLAnchorElementNamePropertyInfo +instance AttrInfo DOMHTMLAnchorElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementNamePropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementNamePropertyInfo = "DOMHTMLAnchorElement::name" + attrGet _ = getDOMHTMLAnchorElementName + attrSet _ = setDOMHTMLAnchorElementName + attrConstruct _ = constructDOMHTMLAnchorElementName + +-- VVV Prop "origin" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAnchorElementOrigin :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementOrigin obj = liftIO $ getObjectPropertyString obj "origin" + +data DOMHTMLAnchorElementOriginPropertyInfo +instance AttrInfo DOMHTMLAnchorElementOriginPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementOriginPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementOriginPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAnchorElementOriginPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementOriginPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementOriginPropertyInfo = "DOMHTMLAnchorElement::origin" + attrGet _ = getDOMHTMLAnchorElementOrigin + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "pathname" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementPathname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementPathname obj = liftIO $ getObjectPropertyString obj "pathname" + +setDOMHTMLAnchorElementPathname :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementPathname obj val = liftIO $ setObjectPropertyString obj "pathname" val + +constructDOMHTMLAnchorElementPathname :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementPathname val = constructObjectPropertyString "pathname" val + +data DOMHTMLAnchorElementPathnamePropertyInfo +instance AttrInfo DOMHTMLAnchorElementPathnamePropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementPathnamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementPathnamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementPathnamePropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementPathnamePropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementPathnamePropertyInfo = "DOMHTMLAnchorElement::pathname" + attrGet _ = getDOMHTMLAnchorElementPathname + attrSet _ = setDOMHTMLAnchorElementPathname + attrConstruct _ = constructDOMHTMLAnchorElementPathname + +-- VVV Prop "ping" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementPing obj = liftIO $ getObjectPropertyString obj "ping" + +setDOMHTMLAnchorElementPing :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementPing obj val = liftIO $ setObjectPropertyString obj "ping" val + +constructDOMHTMLAnchorElementPing :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementPing val = constructObjectPropertyString "ping" val + +data DOMHTMLAnchorElementPingPropertyInfo +instance AttrInfo DOMHTMLAnchorElementPingPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementPingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementPingPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementPingPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementPingPropertyInfo = "DOMHTMLAnchorElement::ping" + attrGet _ = getDOMHTMLAnchorElementPing + attrSet _ = setDOMHTMLAnchorElementPing + attrConstruct _ = constructDOMHTMLAnchorElementPing + +-- VVV Prop "port" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementPort :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementPort obj = liftIO $ getObjectPropertyString obj "port" + +setDOMHTMLAnchorElementPort :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementPort obj val = liftIO $ setObjectPropertyString obj "port" val + +constructDOMHTMLAnchorElementPort :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementPort val = constructObjectPropertyString "port" val + +data DOMHTMLAnchorElementPortPropertyInfo +instance AttrInfo DOMHTMLAnchorElementPortPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementPortPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementPortPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementPortPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementPortPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementPortPropertyInfo = "DOMHTMLAnchorElement::port" + attrGet _ = getDOMHTMLAnchorElementPort + attrSet _ = setDOMHTMLAnchorElementPort + attrConstruct _ = constructDOMHTMLAnchorElementPort + +-- VVV Prop "protocol" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementProtocol :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementProtocol obj = liftIO $ getObjectPropertyString obj "protocol" + +setDOMHTMLAnchorElementProtocol :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementProtocol obj val = liftIO $ setObjectPropertyString obj "protocol" val + +constructDOMHTMLAnchorElementProtocol :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementProtocol val = constructObjectPropertyString "protocol" val + +data DOMHTMLAnchorElementProtocolPropertyInfo +instance AttrInfo DOMHTMLAnchorElementProtocolPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementProtocolPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementProtocolPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementProtocolPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementProtocolPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementProtocolPropertyInfo = "DOMHTMLAnchorElement::protocol" + attrGet _ = getDOMHTMLAnchorElementProtocol + attrSet _ = setDOMHTMLAnchorElementProtocol + attrConstruct _ = constructDOMHTMLAnchorElementProtocol + +-- VVV Prop "rel" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementRel :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementRel obj = liftIO $ getObjectPropertyString obj "rel" + +setDOMHTMLAnchorElementRel :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementRel obj val = liftIO $ setObjectPropertyString obj "rel" val + +constructDOMHTMLAnchorElementRel :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementRel val = constructObjectPropertyString "rel" val + +data DOMHTMLAnchorElementRelPropertyInfo +instance AttrInfo DOMHTMLAnchorElementRelPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementRelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementRelPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementRelPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementRelPropertyInfo = "DOMHTMLAnchorElement::rel" + attrGet _ = getDOMHTMLAnchorElementRel + attrSet _ = setDOMHTMLAnchorElementRel + attrConstruct _ = constructDOMHTMLAnchorElementRel + +-- VVV Prop "rev" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementRev :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementRev obj = liftIO $ getObjectPropertyString obj "rev" + +setDOMHTMLAnchorElementRev :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementRev obj val = liftIO $ setObjectPropertyString obj "rev" val + +constructDOMHTMLAnchorElementRev :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementRev val = constructObjectPropertyString "rev" val + +data DOMHTMLAnchorElementRevPropertyInfo +instance AttrInfo DOMHTMLAnchorElementRevPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementRevPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementRevPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementRevPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementRevPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementRevPropertyInfo = "DOMHTMLAnchorElement::rev" + attrGet _ = getDOMHTMLAnchorElementRev + attrSet _ = setDOMHTMLAnchorElementRev + attrConstruct _ = constructDOMHTMLAnchorElementRev + +-- VVV Prop "search" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementSearch :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementSearch obj = liftIO $ getObjectPropertyString obj "search" + +setDOMHTMLAnchorElementSearch :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementSearch obj val = liftIO $ setObjectPropertyString obj "search" val + +constructDOMHTMLAnchorElementSearch :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementSearch val = constructObjectPropertyString "search" val + +data DOMHTMLAnchorElementSearchPropertyInfo +instance AttrInfo DOMHTMLAnchorElementSearchPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementSearchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementSearchPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementSearchPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementSearchPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementSearchPropertyInfo = "DOMHTMLAnchorElement::search" + attrGet _ = getDOMHTMLAnchorElementSearch + attrSet _ = setDOMHTMLAnchorElementSearch + attrConstruct _ = constructDOMHTMLAnchorElementSearch + +-- VVV Prop "shape" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementShape :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementShape obj = liftIO $ getObjectPropertyString obj "shape" + +setDOMHTMLAnchorElementShape :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementShape obj val = liftIO $ setObjectPropertyString obj "shape" val + +constructDOMHTMLAnchorElementShape :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementShape val = constructObjectPropertyString "shape" val + +data DOMHTMLAnchorElementShapePropertyInfo +instance AttrInfo DOMHTMLAnchorElementShapePropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementShapePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementShapePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementShapePropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementShapePropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementShapePropertyInfo = "DOMHTMLAnchorElement::shape" + attrGet _ = getDOMHTMLAnchorElementShape + attrSet _ = setDOMHTMLAnchorElementShape + attrConstruct _ = constructDOMHTMLAnchorElementShape + +-- VVV Prop "target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementTarget :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementTarget obj = liftIO $ getObjectPropertyString obj "target" + +setDOMHTMLAnchorElementTarget :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val + +constructDOMHTMLAnchorElementTarget :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementTarget val = constructObjectPropertyString "target" val + +data DOMHTMLAnchorElementTargetPropertyInfo +instance AttrInfo DOMHTMLAnchorElementTargetPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementTargetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementTargetPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementTargetPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementTargetPropertyInfo = "DOMHTMLAnchorElement::target" + attrGet _ = getDOMHTMLAnchorElementTarget + attrSet _ = setDOMHTMLAnchorElementTarget + attrConstruct _ = constructDOMHTMLAnchorElementTarget + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAnchorElementText :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementText obj = liftIO $ getObjectPropertyString obj "text" + +data DOMHTMLAnchorElementTextPropertyInfo +instance AttrInfo DOMHTMLAnchorElementTextPropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementTextPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementTextPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAnchorElementTextPropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementTextPropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementTextPropertyInfo = "DOMHTMLAnchorElement::text" + attrGet _ = getDOMHTMLAnchorElementText + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> m T.Text +getDOMHTMLAnchorElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLAnchorElementType :: (MonadIO m, DOMHTMLAnchorElementK o) => o -> T.Text -> m () +setDOMHTMLAnchorElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLAnchorElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAnchorElementType val = constructObjectPropertyString "type" val + +data DOMHTMLAnchorElementTypePropertyInfo +instance AttrInfo DOMHTMLAnchorElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLAnchorElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAnchorElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAnchorElementTypePropertyInfo = DOMHTMLAnchorElementK + type AttrGetType DOMHTMLAnchorElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLAnchorElementTypePropertyInfo = "DOMHTMLAnchorElement::type" + attrGet _ = getDOMHTMLAnchorElementType + attrSet _ = setDOMHTMLAnchorElementType + attrConstruct _ = constructDOMHTMLAnchorElementType + +type instance AttributeList DOMHTMLAnchorElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLAnchorElementCharsetPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("coords", DOMHTMLAnchorElementCoordsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("download", DOMHTMLAnchorElementDownloadPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hash", DOMHTMLAnchorElementHashPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("host", DOMHTMLAnchorElementHostPropertyInfo), '("hostname", DOMHTMLAnchorElementHostnamePropertyInfo), '("href", DOMHTMLAnchorElementHrefPropertyInfo), '("hreflang", DOMHTMLAnchorElementHreflangPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLAnchorElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("origin", DOMHTMLAnchorElementOriginPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("pathname", DOMHTMLAnchorElementPathnamePropertyInfo), '("ping", DOMHTMLAnchorElementPingPropertyInfo), '("port", DOMHTMLAnchorElementPortPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("protocol", DOMHTMLAnchorElementProtocolPropertyInfo), '("rel", DOMHTMLAnchorElementRelPropertyInfo), '("rev", DOMHTMLAnchorElementRevPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("search", DOMHTMLAnchorElementSearchPropertyInfo), '("shape", DOMHTMLAnchorElementShapePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLAnchorElementTargetPropertyInfo), '("text", DOMHTMLAnchorElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLAnchorElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementAlign :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLAppletElementAlign :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLAppletElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLAppletElementAlignPropertyInfo +instance AttrInfo DOMHTMLAppletElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementAlignPropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementAlignPropertyInfo = "DOMHTMLAppletElement::align" + attrGet _ = getDOMHTMLAppletElementAlign + attrSet _ = setDOMHTMLAppletElementAlign + attrConstruct _ = constructDOMHTMLAppletElementAlign + +-- VVV Prop "alt" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementAlt :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementAlt obj = liftIO $ getObjectPropertyString obj "alt" + +setDOMHTMLAppletElementAlt :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val + +constructDOMHTMLAppletElementAlt :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementAlt val = constructObjectPropertyString "alt" val + +data DOMHTMLAppletElementAltPropertyInfo +instance AttrInfo DOMHTMLAppletElementAltPropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementAltPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementAltPropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementAltPropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementAltPropertyInfo = "DOMHTMLAppletElement::alt" + attrGet _ = getDOMHTMLAppletElementAlt + attrSet _ = setDOMHTMLAppletElementAlt + attrConstruct _ = constructDOMHTMLAppletElementAlt + +-- VVV Prop "archive" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementArchive :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementArchive obj = liftIO $ getObjectPropertyString obj "archive" + +setDOMHTMLAppletElementArchive :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementArchive obj val = liftIO $ setObjectPropertyString obj "archive" val + +constructDOMHTMLAppletElementArchive :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementArchive val = constructObjectPropertyString "archive" val + +data DOMHTMLAppletElementArchivePropertyInfo +instance AttrInfo DOMHTMLAppletElementArchivePropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementArchivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementArchivePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementArchivePropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementArchivePropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementArchivePropertyInfo = "DOMHTMLAppletElement::archive" + attrGet _ = getDOMHTMLAppletElementArchive + attrSet _ = setDOMHTMLAppletElementArchive + attrConstruct _ = constructDOMHTMLAppletElementArchive + +-- VVV Prop "code" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementCode :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementCode obj = liftIO $ getObjectPropertyString obj "code" + +setDOMHTMLAppletElementCode :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementCode obj val = liftIO $ setObjectPropertyString obj "code" val + +constructDOMHTMLAppletElementCode :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementCode val = constructObjectPropertyString "code" val + +data DOMHTMLAppletElementCodePropertyInfo +instance AttrInfo DOMHTMLAppletElementCodePropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementCodePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementCodePropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementCodePropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementCodePropertyInfo = "DOMHTMLAppletElement::code" + attrGet _ = getDOMHTMLAppletElementCode + attrSet _ = setDOMHTMLAppletElementCode + attrConstruct _ = constructDOMHTMLAppletElementCode + +-- VVV Prop "code-base" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementCodeBase :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementCodeBase obj = liftIO $ getObjectPropertyString obj "code-base" + +setDOMHTMLAppletElementCodeBase :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementCodeBase obj val = liftIO $ setObjectPropertyString obj "code-base" val + +constructDOMHTMLAppletElementCodeBase :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementCodeBase val = constructObjectPropertyString "code-base" val + +data DOMHTMLAppletElementCodeBasePropertyInfo +instance AttrInfo DOMHTMLAppletElementCodeBasePropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementCodeBasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementCodeBasePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementCodeBasePropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementCodeBasePropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementCodeBasePropertyInfo = "DOMHTMLAppletElement::code-base" + attrGet _ = getDOMHTMLAppletElementCodeBase + attrSet _ = setDOMHTMLAppletElementCodeBase + attrConstruct _ = constructDOMHTMLAppletElementCodeBase + +-- VVV Prop "height" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementHeight :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementHeight obj = liftIO $ getObjectPropertyString obj "height" + +setDOMHTMLAppletElementHeight :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val + +constructDOMHTMLAppletElementHeight :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementHeight val = constructObjectPropertyString "height" val + +data DOMHTMLAppletElementHeightPropertyInfo +instance AttrInfo DOMHTMLAppletElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementHeightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementHeightPropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementHeightPropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementHeightPropertyInfo = "DOMHTMLAppletElement::height" + attrGet _ = getDOMHTMLAppletElementHeight + attrSet _ = setDOMHTMLAppletElementHeight + attrConstruct _ = constructDOMHTMLAppletElementHeight + +-- VVV Prop "hspace" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementHspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m Int64 +getDOMHTMLAppletElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace" + +setDOMHTMLAppletElementHspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> Int64 -> m () +setDOMHTMLAppletElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val + +constructDOMHTMLAppletElementHspace :: Int64 -> IO ([Char], GValue) +constructDOMHTMLAppletElementHspace val = constructObjectPropertyInt64 "hspace" val + +data DOMHTMLAppletElementHspacePropertyInfo +instance AttrInfo DOMHTMLAppletElementHspacePropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementHspacePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLAppletElementHspacePropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementHspacePropertyInfo = Int64 + type AttrLabel DOMHTMLAppletElementHspacePropertyInfo = "DOMHTMLAppletElement::hspace" + attrGet _ = getDOMHTMLAppletElementHspace + attrSet _ = setDOMHTMLAppletElementHspace + attrConstruct _ = constructDOMHTMLAppletElementHspace + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementName :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLAppletElementName :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLAppletElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementName val = constructObjectPropertyString "name" val + +data DOMHTMLAppletElementNamePropertyInfo +instance AttrInfo DOMHTMLAppletElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementNamePropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementNamePropertyInfo = "DOMHTMLAppletElement::name" + attrGet _ = getDOMHTMLAppletElementName + attrSet _ = setDOMHTMLAppletElementName + attrConstruct _ = constructDOMHTMLAppletElementName + +-- VVV Prop "object" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementObject :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementObject obj = liftIO $ getObjectPropertyString obj "object" + +setDOMHTMLAppletElementObject :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementObject obj val = liftIO $ setObjectPropertyString obj "object" val + +constructDOMHTMLAppletElementObject :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementObject val = constructObjectPropertyString "object" val + +data DOMHTMLAppletElementObjectPropertyInfo +instance AttrInfo DOMHTMLAppletElementObjectPropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementObjectPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementObjectPropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementObjectPropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementObjectPropertyInfo = "DOMHTMLAppletElement::object" + attrGet _ = getDOMHTMLAppletElementObject + attrSet _ = setDOMHTMLAppletElementObject + attrConstruct _ = constructDOMHTMLAppletElementObject + +-- VVV Prop "vspace" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementVspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m Int64 +getDOMHTMLAppletElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace" + +setDOMHTMLAppletElementVspace :: (MonadIO m, DOMHTMLAppletElementK o) => o -> Int64 -> m () +setDOMHTMLAppletElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val + +constructDOMHTMLAppletElementVspace :: Int64 -> IO ([Char], GValue) +constructDOMHTMLAppletElementVspace val = constructObjectPropertyInt64 "vspace" val + +data DOMHTMLAppletElementVspacePropertyInfo +instance AttrInfo DOMHTMLAppletElementVspacePropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementVspacePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLAppletElementVspacePropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementVspacePropertyInfo = Int64 + type AttrLabel DOMHTMLAppletElementVspacePropertyInfo = "DOMHTMLAppletElement::vspace" + attrGet _ = getDOMHTMLAppletElementVspace + attrSet _ = setDOMHTMLAppletElementVspace + attrConstruct _ = constructDOMHTMLAppletElementVspace + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAppletElementWidth :: (MonadIO m, DOMHTMLAppletElementK o) => o -> m T.Text +getDOMHTMLAppletElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLAppletElementWidth :: (MonadIO m, DOMHTMLAppletElementK o) => o -> T.Text -> m () +setDOMHTMLAppletElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLAppletElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAppletElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLAppletElementWidthPropertyInfo +instance AttrInfo DOMHTMLAppletElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLAppletElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAppletElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAppletElementWidthPropertyInfo = DOMHTMLAppletElementK + type AttrGetType DOMHTMLAppletElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLAppletElementWidthPropertyInfo = "DOMHTMLAppletElement::width" + attrGet _ = getDOMHTMLAppletElementWidth + attrSet _ = setDOMHTMLAppletElementWidth + attrConstruct _ = constructDOMHTMLAppletElementWidth + +type instance AttributeList DOMHTMLAppletElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLAppletElementAlignPropertyInfo), '("alt", DOMHTMLAppletElementAltPropertyInfo), '("archive", DOMHTMLAppletElementArchivePropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("code", DOMHTMLAppletElementCodePropertyInfo), '("code-base", DOMHTMLAppletElementCodeBasePropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLAppletElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLAppletElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLAppletElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("object", DOMHTMLAppletElementObjectPropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("vspace", DOMHTMLAppletElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLAppletElementWidthPropertyInfo)] + +-- VVV Prop "alt" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAreaElementAlt :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementAlt obj = liftIO $ getObjectPropertyString obj "alt" + +setDOMHTMLAreaElementAlt :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () +setDOMHTMLAreaElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val + +constructDOMHTMLAreaElementAlt :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAreaElementAlt val = constructObjectPropertyString "alt" val + +data DOMHTMLAreaElementAltPropertyInfo +instance AttrInfo DOMHTMLAreaElementAltPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementAltPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAreaElementAltPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementAltPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementAltPropertyInfo = "DOMHTMLAreaElement::alt" + attrGet _ = getDOMHTMLAreaElementAlt + attrSet _ = setDOMHTMLAreaElementAlt + attrConstruct _ = constructDOMHTMLAreaElementAlt + +-- VVV Prop "coords" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAreaElementCoords :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementCoords obj = liftIO $ getObjectPropertyString obj "coords" + +setDOMHTMLAreaElementCoords :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () +setDOMHTMLAreaElementCoords obj val = liftIO $ setObjectPropertyString obj "coords" val + +constructDOMHTMLAreaElementCoords :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAreaElementCoords val = constructObjectPropertyString "coords" val + +data DOMHTMLAreaElementCoordsPropertyInfo +instance AttrInfo DOMHTMLAreaElementCoordsPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementCoordsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementCoordsPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAreaElementCoordsPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementCoordsPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementCoordsPropertyInfo = "DOMHTMLAreaElement::coords" + attrGet _ = getDOMHTMLAreaElementCoords + attrSet _ = setDOMHTMLAreaElementCoords + attrConstruct _ = constructDOMHTMLAreaElementCoords + +-- VVV Prop "hash" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAreaElementHash :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementHash obj = liftIO $ getObjectPropertyString obj "hash" + +data DOMHTMLAreaElementHashPropertyInfo +instance AttrInfo DOMHTMLAreaElementHashPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementHashPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementHashPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAreaElementHashPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementHashPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementHashPropertyInfo = "DOMHTMLAreaElement::hash" + attrGet _ = getDOMHTMLAreaElementHash + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "host" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAreaElementHost :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementHost obj = liftIO $ getObjectPropertyString obj "host" + +data DOMHTMLAreaElementHostPropertyInfo +instance AttrInfo DOMHTMLAreaElementHostPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementHostPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementHostPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAreaElementHostPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementHostPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementHostPropertyInfo = "DOMHTMLAreaElement::host" + attrGet _ = getDOMHTMLAreaElementHost + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "hostname" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAreaElementHostname :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementHostname obj = liftIO $ getObjectPropertyString obj "hostname" + +data DOMHTMLAreaElementHostnamePropertyInfo +instance AttrInfo DOMHTMLAreaElementHostnamePropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementHostnamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementHostnamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAreaElementHostnamePropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementHostnamePropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementHostnamePropertyInfo = "DOMHTMLAreaElement::hostname" + attrGet _ = getDOMHTMLAreaElementHostname + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "href" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAreaElementHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementHref obj = liftIO $ getObjectPropertyString obj "href" + +setDOMHTMLAreaElementHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () +setDOMHTMLAreaElementHref obj val = liftIO $ setObjectPropertyString obj "href" val + +constructDOMHTMLAreaElementHref :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAreaElementHref val = constructObjectPropertyString "href" val + +data DOMHTMLAreaElementHrefPropertyInfo +instance AttrInfo DOMHTMLAreaElementHrefPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementHrefPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAreaElementHrefPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementHrefPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementHrefPropertyInfo = "DOMHTMLAreaElement::href" + attrGet _ = getDOMHTMLAreaElementHref + attrSet _ = setDOMHTMLAreaElementHref + attrConstruct _ = constructDOMHTMLAreaElementHref + +-- VVV Prop "no-href" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAreaElementNoHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m Bool +getDOMHTMLAreaElementNoHref obj = liftIO $ getObjectPropertyBool obj "no-href" + +setDOMHTMLAreaElementNoHref :: (MonadIO m, DOMHTMLAreaElementK o) => o -> Bool -> m () +setDOMHTMLAreaElementNoHref obj val = liftIO $ setObjectPropertyBool obj "no-href" val + +constructDOMHTMLAreaElementNoHref :: Bool -> IO ([Char], GValue) +constructDOMHTMLAreaElementNoHref val = constructObjectPropertyBool "no-href" val + +data DOMHTMLAreaElementNoHrefPropertyInfo +instance AttrInfo DOMHTMLAreaElementNoHrefPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementNoHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementNoHrefPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLAreaElementNoHrefPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementNoHrefPropertyInfo = Bool + type AttrLabel DOMHTMLAreaElementNoHrefPropertyInfo = "DOMHTMLAreaElement::no-href" + attrGet _ = getDOMHTMLAreaElementNoHref + attrSet _ = setDOMHTMLAreaElementNoHref + attrConstruct _ = constructDOMHTMLAreaElementNoHref + +-- VVV Prop "pathname" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAreaElementPathname :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementPathname obj = liftIO $ getObjectPropertyString obj "pathname" + +data DOMHTMLAreaElementPathnamePropertyInfo +instance AttrInfo DOMHTMLAreaElementPathnamePropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementPathnamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementPathnamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAreaElementPathnamePropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementPathnamePropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementPathnamePropertyInfo = "DOMHTMLAreaElement::pathname" + attrGet _ = getDOMHTMLAreaElementPathname + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ping" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementPing obj = liftIO $ getObjectPropertyString obj "ping" + +setDOMHTMLAreaElementPing :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () +setDOMHTMLAreaElementPing obj val = liftIO $ setObjectPropertyString obj "ping" val + +constructDOMHTMLAreaElementPing :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAreaElementPing val = constructObjectPropertyString "ping" val + +data DOMHTMLAreaElementPingPropertyInfo +instance AttrInfo DOMHTMLAreaElementPingPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementPingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementPingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAreaElementPingPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementPingPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementPingPropertyInfo = "DOMHTMLAreaElement::ping" + attrGet _ = getDOMHTMLAreaElementPing + attrSet _ = setDOMHTMLAreaElementPing + attrConstruct _ = constructDOMHTMLAreaElementPing + +-- VVV Prop "port" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAreaElementPort :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementPort obj = liftIO $ getObjectPropertyString obj "port" + +data DOMHTMLAreaElementPortPropertyInfo +instance AttrInfo DOMHTMLAreaElementPortPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementPortPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementPortPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAreaElementPortPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementPortPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementPortPropertyInfo = "DOMHTMLAreaElement::port" + attrGet _ = getDOMHTMLAreaElementPort + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "protocol" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAreaElementProtocol :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementProtocol obj = liftIO $ getObjectPropertyString obj "protocol" + +data DOMHTMLAreaElementProtocolPropertyInfo +instance AttrInfo DOMHTMLAreaElementProtocolPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementProtocolPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementProtocolPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAreaElementProtocolPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementProtocolPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementProtocolPropertyInfo = "DOMHTMLAreaElement::protocol" + attrGet _ = getDOMHTMLAreaElementProtocol + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "search" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLAreaElementSearch :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementSearch obj = liftIO $ getObjectPropertyString obj "search" + +data DOMHTMLAreaElementSearchPropertyInfo +instance AttrInfo DOMHTMLAreaElementSearchPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementSearchPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementSearchPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLAreaElementSearchPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementSearchPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementSearchPropertyInfo = "DOMHTMLAreaElement::search" + attrGet _ = getDOMHTMLAreaElementSearch + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "shape" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAreaElementShape :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementShape obj = liftIO $ getObjectPropertyString obj "shape" + +setDOMHTMLAreaElementShape :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () +setDOMHTMLAreaElementShape obj val = liftIO $ setObjectPropertyString obj "shape" val + +constructDOMHTMLAreaElementShape :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAreaElementShape val = constructObjectPropertyString "shape" val + +data DOMHTMLAreaElementShapePropertyInfo +instance AttrInfo DOMHTMLAreaElementShapePropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementShapePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementShapePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAreaElementShapePropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementShapePropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementShapePropertyInfo = "DOMHTMLAreaElement::shape" + attrGet _ = getDOMHTMLAreaElementShape + attrSet _ = setDOMHTMLAreaElementShape + attrConstruct _ = constructDOMHTMLAreaElementShape + +-- VVV Prop "target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLAreaElementTarget :: (MonadIO m, DOMHTMLAreaElementK o) => o -> m T.Text +getDOMHTMLAreaElementTarget obj = liftIO $ getObjectPropertyString obj "target" + +setDOMHTMLAreaElementTarget :: (MonadIO m, DOMHTMLAreaElementK o) => o -> T.Text -> m () +setDOMHTMLAreaElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val + +constructDOMHTMLAreaElementTarget :: T.Text -> IO ([Char], GValue) +constructDOMHTMLAreaElementTarget val = constructObjectPropertyString "target" val + +data DOMHTMLAreaElementTargetPropertyInfo +instance AttrInfo DOMHTMLAreaElementTargetPropertyInfo where + type AttrAllowedOps DOMHTMLAreaElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLAreaElementTargetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLAreaElementTargetPropertyInfo = DOMHTMLAreaElementK + type AttrGetType DOMHTMLAreaElementTargetPropertyInfo = T.Text + type AttrLabel DOMHTMLAreaElementTargetPropertyInfo = "DOMHTMLAreaElement::target" + attrGet _ = getDOMHTMLAreaElementTarget + attrSet _ = setDOMHTMLAreaElementTarget + attrConstruct _ = constructDOMHTMLAreaElementTarget + +type instance AttributeList DOMHTMLAreaElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("alt", DOMHTMLAreaElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("coords", DOMHTMLAreaElementCoordsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hash", DOMHTMLAreaElementHashPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("host", DOMHTMLAreaElementHostPropertyInfo), '("hostname", DOMHTMLAreaElementHostnamePropertyInfo), '("href", DOMHTMLAreaElementHrefPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-href", DOMHTMLAreaElementNoHrefPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("pathname", DOMHTMLAreaElementPathnamePropertyInfo), '("ping", DOMHTMLAreaElementPingPropertyInfo), '("port", DOMHTMLAreaElementPortPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("protocol", DOMHTMLAreaElementProtocolPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("search", DOMHTMLAreaElementSearchPropertyInfo), '("shape", DOMHTMLAreaElementShapePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLAreaElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +type instance AttributeList DOMHTMLAudioElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("audio-tracks", DOMHTMLMediaElementAudioTracksPropertyInfo), '("autoplay", DOMHTMLMediaElementAutoplayPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("buffered", DOMHTMLMediaElementBufferedPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("controller", DOMHTMLMediaElementControllerPropertyInfo), '("controls", DOMHTMLMediaElementControlsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-src", DOMHTMLMediaElementCurrentSrcPropertyInfo), '("current-time", DOMHTMLMediaElementCurrentTimePropertyInfo), '("default-muted", DOMHTMLMediaElementDefaultMutedPropertyInfo), '("default-playback-rate", DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("duration", DOMHTMLMediaElementDurationPropertyInfo), '("ended", DOMHTMLMediaElementEndedPropertyInfo), '("error", DOMHTMLMediaElementErrorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMediaElementLoopPropertyInfo), '("media-group", DOMHTMLMediaElementMediaGroupPropertyInfo), '("muted", DOMHTMLMediaElementMutedPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("network-state", DOMHTMLMediaElementNetworkStatePropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("paused", DOMHTMLMediaElementPausedPropertyInfo), '("playback-rate", DOMHTMLMediaElementPlaybackRatePropertyInfo), '("played", DOMHTMLMediaElementPlayedPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("preload", DOMHTMLMediaElementPreloadPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMHTMLMediaElementReadyStatePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("seekable", DOMHTMLMediaElementSeekablePropertyInfo), '("seeking", DOMHTMLMediaElementSeekingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLMediaElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("text-tracks", DOMHTMLMediaElementTextTracksPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("video-tracks", DOMHTMLMediaElementVideoTracksPropertyInfo), '("volume", DOMHTMLMediaElementVolumePropertyInfo), '("webkit-audio-decoded-byte-count", DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo), '("webkit-closed-captions-visible", DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo), '("webkit-current-playback-target-is-wireless", DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo), '("webkit-has-closed-captions", DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo), '("webkit-preserves-pitch", DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkit-video-decoded-byte-count", DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "clear" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBRElementClear :: (MonadIO m, DOMHTMLBRElementK o) => o -> m T.Text +getDOMHTMLBRElementClear obj = liftIO $ getObjectPropertyString obj "clear" + +setDOMHTMLBRElementClear :: (MonadIO m, DOMHTMLBRElementK o) => o -> T.Text -> m () +setDOMHTMLBRElementClear obj val = liftIO $ setObjectPropertyString obj "clear" val + +constructDOMHTMLBRElementClear :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBRElementClear val = constructObjectPropertyString "clear" val + +data DOMHTMLBRElementClearPropertyInfo +instance AttrInfo DOMHTMLBRElementClearPropertyInfo where + type AttrAllowedOps DOMHTMLBRElementClearPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBRElementClearPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBRElementClearPropertyInfo = DOMHTMLBRElementK + type AttrGetType DOMHTMLBRElementClearPropertyInfo = T.Text + type AttrLabel DOMHTMLBRElementClearPropertyInfo = "DOMHTMLBRElement::clear" + attrGet _ = getDOMHTMLBRElementClear + attrSet _ = setDOMHTMLBRElementClear + attrConstruct _ = constructDOMHTMLBRElementClear + +type instance AttributeList DOMHTMLBRElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("clear", DOMHTMLBRElementClearPropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "href" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBaseElementHref :: (MonadIO m, DOMHTMLBaseElementK o) => o -> m T.Text +getDOMHTMLBaseElementHref obj = liftIO $ getObjectPropertyString obj "href" + +setDOMHTMLBaseElementHref :: (MonadIO m, DOMHTMLBaseElementK o) => o -> T.Text -> m () +setDOMHTMLBaseElementHref obj val = liftIO $ setObjectPropertyString obj "href" val + +constructDOMHTMLBaseElementHref :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBaseElementHref val = constructObjectPropertyString "href" val + +data DOMHTMLBaseElementHrefPropertyInfo +instance AttrInfo DOMHTMLBaseElementHrefPropertyInfo where + type AttrAllowedOps DOMHTMLBaseElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBaseElementHrefPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBaseElementHrefPropertyInfo = DOMHTMLBaseElementK + type AttrGetType DOMHTMLBaseElementHrefPropertyInfo = T.Text + type AttrLabel DOMHTMLBaseElementHrefPropertyInfo = "DOMHTMLBaseElement::href" + attrGet _ = getDOMHTMLBaseElementHref + attrSet _ = setDOMHTMLBaseElementHref + attrConstruct _ = constructDOMHTMLBaseElementHref + +-- VVV Prop "target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBaseElementTarget :: (MonadIO m, DOMHTMLBaseElementK o) => o -> m T.Text +getDOMHTMLBaseElementTarget obj = liftIO $ getObjectPropertyString obj "target" + +setDOMHTMLBaseElementTarget :: (MonadIO m, DOMHTMLBaseElementK o) => o -> T.Text -> m () +setDOMHTMLBaseElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val + +constructDOMHTMLBaseElementTarget :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBaseElementTarget val = constructObjectPropertyString "target" val + +data DOMHTMLBaseElementTargetPropertyInfo +instance AttrInfo DOMHTMLBaseElementTargetPropertyInfo where + type AttrAllowedOps DOMHTMLBaseElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBaseElementTargetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBaseElementTargetPropertyInfo = DOMHTMLBaseElementK + type AttrGetType DOMHTMLBaseElementTargetPropertyInfo = T.Text + type AttrLabel DOMHTMLBaseElementTargetPropertyInfo = "DOMHTMLBaseElement::target" + attrGet _ = getDOMHTMLBaseElementTarget + attrSet _ = setDOMHTMLBaseElementTarget + attrConstruct _ = constructDOMHTMLBaseElementTarget + +type instance AttributeList DOMHTMLBaseElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("href", DOMHTMLBaseElementHrefPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLBaseElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBaseFontElementColor :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m T.Text +getDOMHTMLBaseFontElementColor obj = liftIO $ getObjectPropertyString obj "color" + +setDOMHTMLBaseFontElementColor :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> T.Text -> m () +setDOMHTMLBaseFontElementColor obj val = liftIO $ setObjectPropertyString obj "color" val + +constructDOMHTMLBaseFontElementColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBaseFontElementColor val = constructObjectPropertyString "color" val + +data DOMHTMLBaseFontElementColorPropertyInfo +instance AttrInfo DOMHTMLBaseFontElementColorPropertyInfo where + type AttrAllowedOps DOMHTMLBaseFontElementColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBaseFontElementColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBaseFontElementColorPropertyInfo = DOMHTMLBaseFontElementK + type AttrGetType DOMHTMLBaseFontElementColorPropertyInfo = T.Text + type AttrLabel DOMHTMLBaseFontElementColorPropertyInfo = "DOMHTMLBaseFontElement::color" + attrGet _ = getDOMHTMLBaseFontElementColor + attrSet _ = setDOMHTMLBaseFontElementColor + attrConstruct _ = constructDOMHTMLBaseFontElementColor + +-- VVV Prop "face" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBaseFontElementFace :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m T.Text +getDOMHTMLBaseFontElementFace obj = liftIO $ getObjectPropertyString obj "face" + +setDOMHTMLBaseFontElementFace :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> T.Text -> m () +setDOMHTMLBaseFontElementFace obj val = liftIO $ setObjectPropertyString obj "face" val + +constructDOMHTMLBaseFontElementFace :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBaseFontElementFace val = constructObjectPropertyString "face" val + +data DOMHTMLBaseFontElementFacePropertyInfo +instance AttrInfo DOMHTMLBaseFontElementFacePropertyInfo where + type AttrAllowedOps DOMHTMLBaseFontElementFacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBaseFontElementFacePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBaseFontElementFacePropertyInfo = DOMHTMLBaseFontElementK + type AttrGetType DOMHTMLBaseFontElementFacePropertyInfo = T.Text + type AttrLabel DOMHTMLBaseFontElementFacePropertyInfo = "DOMHTMLBaseFontElement::face" + attrGet _ = getDOMHTMLBaseFontElementFace + attrSet _ = setDOMHTMLBaseFontElementFace + attrConstruct _ = constructDOMHTMLBaseFontElementFace + +-- VVV Prop "size" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBaseFontElementSize :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> m Int64 +getDOMHTMLBaseFontElementSize obj = liftIO $ getObjectPropertyInt64 obj "size" + +setDOMHTMLBaseFontElementSize :: (MonadIO m, DOMHTMLBaseFontElementK o) => o -> Int64 -> m () +setDOMHTMLBaseFontElementSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val + +constructDOMHTMLBaseFontElementSize :: Int64 -> IO ([Char], GValue) +constructDOMHTMLBaseFontElementSize val = constructObjectPropertyInt64 "size" val + +data DOMHTMLBaseFontElementSizePropertyInfo +instance AttrInfo DOMHTMLBaseFontElementSizePropertyInfo where + type AttrAllowedOps DOMHTMLBaseFontElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBaseFontElementSizePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLBaseFontElementSizePropertyInfo = DOMHTMLBaseFontElementK + type AttrGetType DOMHTMLBaseFontElementSizePropertyInfo = Int64 + type AttrLabel DOMHTMLBaseFontElementSizePropertyInfo = "DOMHTMLBaseFontElement::size" + attrGet _ = getDOMHTMLBaseFontElementSize + attrSet _ = setDOMHTMLBaseFontElementSize + attrConstruct _ = constructDOMHTMLBaseFontElementSize + +type instance AttributeList DOMHTMLBaseFontElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("color", DOMHTMLBaseFontElementColorPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("face", DOMHTMLBaseFontElementFacePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLBaseFontElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "a-link" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBodyElementALink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementALink obj = liftIO $ getObjectPropertyString obj "a-link" + +setDOMHTMLBodyElementALink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () +setDOMHTMLBodyElementALink obj val = liftIO $ setObjectPropertyString obj "a-link" val + +constructDOMHTMLBodyElementALink :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBodyElementALink val = constructObjectPropertyString "a-link" val + +data DOMHTMLBodyElementALinkPropertyInfo +instance AttrInfo DOMHTMLBodyElementALinkPropertyInfo where + type AttrAllowedOps DOMHTMLBodyElementALinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBodyElementALinkPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBodyElementALinkPropertyInfo = DOMHTMLBodyElementK + type AttrGetType DOMHTMLBodyElementALinkPropertyInfo = T.Text + type AttrLabel DOMHTMLBodyElementALinkPropertyInfo = "DOMHTMLBodyElement::a-link" + attrGet _ = getDOMHTMLBodyElementALink + attrSet _ = setDOMHTMLBodyElementALink + attrConstruct _ = constructDOMHTMLBodyElementALink + +-- VVV Prop "background" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBodyElementBackground :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementBackground obj = liftIO $ getObjectPropertyString obj "background" + +setDOMHTMLBodyElementBackground :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () +setDOMHTMLBodyElementBackground obj val = liftIO $ setObjectPropertyString obj "background" val + +constructDOMHTMLBodyElementBackground :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBodyElementBackground val = constructObjectPropertyString "background" val + +data DOMHTMLBodyElementBackgroundPropertyInfo +instance AttrInfo DOMHTMLBodyElementBackgroundPropertyInfo where + type AttrAllowedOps DOMHTMLBodyElementBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBodyElementBackgroundPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBodyElementBackgroundPropertyInfo = DOMHTMLBodyElementK + type AttrGetType DOMHTMLBodyElementBackgroundPropertyInfo = T.Text + type AttrLabel DOMHTMLBodyElementBackgroundPropertyInfo = "DOMHTMLBodyElement::background" + attrGet _ = getDOMHTMLBodyElementBackground + attrSet _ = setDOMHTMLBodyElementBackground + attrConstruct _ = constructDOMHTMLBodyElementBackground + +-- VVV Prop "bg-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBodyElementBgColor :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" + +setDOMHTMLBodyElementBgColor :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () +setDOMHTMLBodyElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val + +constructDOMHTMLBodyElementBgColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBodyElementBgColor val = constructObjectPropertyString "bg-color" val + +data DOMHTMLBodyElementBgColorPropertyInfo +instance AttrInfo DOMHTMLBodyElementBgColorPropertyInfo where + type AttrAllowedOps DOMHTMLBodyElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBodyElementBgColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBodyElementBgColorPropertyInfo = DOMHTMLBodyElementK + type AttrGetType DOMHTMLBodyElementBgColorPropertyInfo = T.Text + type AttrLabel DOMHTMLBodyElementBgColorPropertyInfo = "DOMHTMLBodyElement::bg-color" + attrGet _ = getDOMHTMLBodyElementBgColor + attrSet _ = setDOMHTMLBodyElementBgColor + attrConstruct _ = constructDOMHTMLBodyElementBgColor + +-- VVV Prop "link" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBodyElementLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementLink obj = liftIO $ getObjectPropertyString obj "link" + +setDOMHTMLBodyElementLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () +setDOMHTMLBodyElementLink obj val = liftIO $ setObjectPropertyString obj "link" val + +constructDOMHTMLBodyElementLink :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBodyElementLink val = constructObjectPropertyString "link" val + +data DOMHTMLBodyElementLinkPropertyInfo +instance AttrInfo DOMHTMLBodyElementLinkPropertyInfo where + type AttrAllowedOps DOMHTMLBodyElementLinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBodyElementLinkPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBodyElementLinkPropertyInfo = DOMHTMLBodyElementK + type AttrGetType DOMHTMLBodyElementLinkPropertyInfo = T.Text + type AttrLabel DOMHTMLBodyElementLinkPropertyInfo = "DOMHTMLBodyElement::link" + attrGet _ = getDOMHTMLBodyElementLink + attrSet _ = setDOMHTMLBodyElementLink + attrConstruct _ = constructDOMHTMLBodyElementLink + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBodyElementText :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementText obj = liftIO $ getObjectPropertyString obj "text" + +setDOMHTMLBodyElementText :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () +setDOMHTMLBodyElementText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructDOMHTMLBodyElementText :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBodyElementText val = constructObjectPropertyString "text" val + +data DOMHTMLBodyElementTextPropertyInfo +instance AttrInfo DOMHTMLBodyElementTextPropertyInfo where + type AttrAllowedOps DOMHTMLBodyElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBodyElementTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBodyElementTextPropertyInfo = DOMHTMLBodyElementK + type AttrGetType DOMHTMLBodyElementTextPropertyInfo = T.Text + type AttrLabel DOMHTMLBodyElementTextPropertyInfo = "DOMHTMLBodyElement::text" + attrGet _ = getDOMHTMLBodyElementText + attrSet _ = setDOMHTMLBodyElementText + attrConstruct _ = constructDOMHTMLBodyElementText + +-- VVV Prop "v-link" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLBodyElementVLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> m T.Text +getDOMHTMLBodyElementVLink obj = liftIO $ getObjectPropertyString obj "v-link" + +setDOMHTMLBodyElementVLink :: (MonadIO m, DOMHTMLBodyElementK o) => o -> T.Text -> m () +setDOMHTMLBodyElementVLink obj val = liftIO $ setObjectPropertyString obj "v-link" val + +constructDOMHTMLBodyElementVLink :: T.Text -> IO ([Char], GValue) +constructDOMHTMLBodyElementVLink val = constructObjectPropertyString "v-link" val + +data DOMHTMLBodyElementVLinkPropertyInfo +instance AttrInfo DOMHTMLBodyElementVLinkPropertyInfo where + type AttrAllowedOps DOMHTMLBodyElementVLinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLBodyElementVLinkPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLBodyElementVLinkPropertyInfo = DOMHTMLBodyElementK + type AttrGetType DOMHTMLBodyElementVLinkPropertyInfo = T.Text + type AttrLabel DOMHTMLBodyElementVLinkPropertyInfo = "DOMHTMLBodyElement::v-link" + attrGet _ = getDOMHTMLBodyElementVLink + attrSet _ = setDOMHTMLBodyElementVLink + attrConstruct _ = constructDOMHTMLBodyElementVLink + +type instance AttributeList DOMHTMLBodyElement = '[ '("a-link", DOMHTMLBodyElementALinkPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("background", DOMHTMLBodyElementBackgroundPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLBodyElementBgColorPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("link", DOMHTMLBodyElementLinkPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLBodyElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-link", DOMHTMLBodyElementVLinkPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "autofocus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementAutofocus :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool +getDOMHTMLButtonElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" + +setDOMHTMLButtonElementAutofocus :: (MonadIO m, DOMHTMLButtonElementK o) => o -> Bool -> m () +setDOMHTMLButtonElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val + +constructDOMHTMLButtonElementAutofocus :: Bool -> IO ([Char], GValue) +constructDOMHTMLButtonElementAutofocus val = constructObjectPropertyBool "autofocus" val + +data DOMHTMLButtonElementAutofocusPropertyInfo +instance AttrInfo DOMHTMLButtonElementAutofocusPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementAutofocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLButtonElementAutofocusPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementAutofocusPropertyInfo = Bool + type AttrLabel DOMHTMLButtonElementAutofocusPropertyInfo = "DOMHTMLButtonElement::autofocus" + attrGet _ = getDOMHTMLButtonElementAutofocus + attrSet _ = setDOMHTMLButtonElementAutofocus + attrConstruct _ = constructDOMHTMLButtonElementAutofocus + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementDisabled :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool +getDOMHTMLButtonElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLButtonElementDisabled :: (MonadIO m, DOMHTMLButtonElementK o) => o -> Bool -> m () +setDOMHTMLButtonElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLButtonElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLButtonElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLButtonElementDisabledPropertyInfo +instance AttrInfo DOMHTMLButtonElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLButtonElementDisabledPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLButtonElementDisabledPropertyInfo = "DOMHTMLButtonElement::disabled" + attrGet _ = getDOMHTMLButtonElementDisabled + attrSet _ = setDOMHTMLButtonElementDisabled + attrConstruct _ = constructDOMHTMLButtonElementDisabled + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLButtonElementForm :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLButtonElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLButtonElementFormPropertyInfo +instance AttrInfo DOMHTMLButtonElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLButtonElementFormPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLButtonElementFormPropertyInfo = "DOMHTMLButtonElement::form" + attrGet _ = getDOMHTMLButtonElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "form-action" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementFormAction :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementFormAction obj = liftIO $ getObjectPropertyString obj "form-action" + +setDOMHTMLButtonElementFormAction :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () +setDOMHTMLButtonElementFormAction obj val = liftIO $ setObjectPropertyString obj "form-action" val + +constructDOMHTMLButtonElementFormAction :: T.Text -> IO ([Char], GValue) +constructDOMHTMLButtonElementFormAction val = constructObjectPropertyString "form-action" val + +data DOMHTMLButtonElementFormActionPropertyInfo +instance AttrInfo DOMHTMLButtonElementFormActionPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementFormActionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLButtonElementFormActionPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementFormActionPropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementFormActionPropertyInfo = "DOMHTMLButtonElement::form-action" + attrGet _ = getDOMHTMLButtonElementFormAction + attrSet _ = setDOMHTMLButtonElementFormAction + attrConstruct _ = constructDOMHTMLButtonElementFormAction + +-- VVV Prop "form-enctype" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementFormEnctype :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementFormEnctype obj = liftIO $ getObjectPropertyString obj "form-enctype" + +setDOMHTMLButtonElementFormEnctype :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () +setDOMHTMLButtonElementFormEnctype obj val = liftIO $ setObjectPropertyString obj "form-enctype" val + +constructDOMHTMLButtonElementFormEnctype :: T.Text -> IO ([Char], GValue) +constructDOMHTMLButtonElementFormEnctype val = constructObjectPropertyString "form-enctype" val + +data DOMHTMLButtonElementFormEnctypePropertyInfo +instance AttrInfo DOMHTMLButtonElementFormEnctypePropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementFormEnctypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLButtonElementFormEnctypePropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementFormEnctypePropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementFormEnctypePropertyInfo = "DOMHTMLButtonElement::form-enctype" + attrGet _ = getDOMHTMLButtonElementFormEnctype + attrSet _ = setDOMHTMLButtonElementFormEnctype + attrConstruct _ = constructDOMHTMLButtonElementFormEnctype + +-- VVV Prop "form-method" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementFormMethod :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementFormMethod obj = liftIO $ getObjectPropertyString obj "form-method" + +setDOMHTMLButtonElementFormMethod :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () +setDOMHTMLButtonElementFormMethod obj val = liftIO $ setObjectPropertyString obj "form-method" val + +constructDOMHTMLButtonElementFormMethod :: T.Text -> IO ([Char], GValue) +constructDOMHTMLButtonElementFormMethod val = constructObjectPropertyString "form-method" val + +data DOMHTMLButtonElementFormMethodPropertyInfo +instance AttrInfo DOMHTMLButtonElementFormMethodPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementFormMethodPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLButtonElementFormMethodPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementFormMethodPropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementFormMethodPropertyInfo = "DOMHTMLButtonElement::form-method" + attrGet _ = getDOMHTMLButtonElementFormMethod + attrSet _ = setDOMHTMLButtonElementFormMethod + attrConstruct _ = constructDOMHTMLButtonElementFormMethod + +-- VVV Prop "form-no-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementFormNoValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool +getDOMHTMLButtonElementFormNoValidate obj = liftIO $ getObjectPropertyBool obj "form-no-validate" + +setDOMHTMLButtonElementFormNoValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> Bool -> m () +setDOMHTMLButtonElementFormNoValidate obj val = liftIO $ setObjectPropertyBool obj "form-no-validate" val + +constructDOMHTMLButtonElementFormNoValidate :: Bool -> IO ([Char], GValue) +constructDOMHTMLButtonElementFormNoValidate val = constructObjectPropertyBool "form-no-validate" val + +data DOMHTMLButtonElementFormNoValidatePropertyInfo +instance AttrInfo DOMHTMLButtonElementFormNoValidatePropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementFormNoValidatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementFormNoValidatePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLButtonElementFormNoValidatePropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementFormNoValidatePropertyInfo = Bool + type AttrLabel DOMHTMLButtonElementFormNoValidatePropertyInfo = "DOMHTMLButtonElement::form-no-validate" + attrGet _ = getDOMHTMLButtonElementFormNoValidate + attrSet _ = setDOMHTMLButtonElementFormNoValidate + attrConstruct _ = constructDOMHTMLButtonElementFormNoValidate + +-- VVV Prop "form-target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementFormTarget :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementFormTarget obj = liftIO $ getObjectPropertyString obj "form-target" + +setDOMHTMLButtonElementFormTarget :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () +setDOMHTMLButtonElementFormTarget obj val = liftIO $ setObjectPropertyString obj "form-target" val + +constructDOMHTMLButtonElementFormTarget :: T.Text -> IO ([Char], GValue) +constructDOMHTMLButtonElementFormTarget val = constructObjectPropertyString "form-target" val + +data DOMHTMLButtonElementFormTargetPropertyInfo +instance AttrInfo DOMHTMLButtonElementFormTargetPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementFormTargetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLButtonElementFormTargetPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementFormTargetPropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementFormTargetPropertyInfo = "DOMHTMLButtonElement::form-target" + attrGet _ = getDOMHTMLButtonElementFormTarget + attrSet _ = setDOMHTMLButtonElementFormTarget + attrConstruct _ = constructDOMHTMLButtonElementFormTarget + +-- VVV Prop "labels" + -- Type: TInterface "WebKit" "DOMNodeList" + -- Flags: [PropertyReadable] + +getDOMHTMLButtonElementLabels :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMNodeList +getDOMHTMLButtonElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList + +data DOMHTMLButtonElementLabelsPropertyInfo +instance AttrInfo DOMHTMLButtonElementLabelsPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementLabelsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLButtonElementLabelsPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementLabelsPropertyInfo = DOMNodeList + type AttrLabel DOMHTMLButtonElementLabelsPropertyInfo = "DOMHTMLButtonElement::labels" + attrGet _ = getDOMHTMLButtonElementLabels + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementName :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLButtonElementName :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () +setDOMHTMLButtonElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLButtonElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLButtonElementName val = constructObjectPropertyString "name" val + +data DOMHTMLButtonElementNamePropertyInfo +instance AttrInfo DOMHTMLButtonElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLButtonElementNamePropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementNamePropertyInfo = "DOMHTMLButtonElement::name" + attrGet _ = getDOMHTMLButtonElementName + attrSet _ = setDOMHTMLButtonElementName + attrConstruct _ = constructDOMHTMLButtonElementName + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLButtonElementType :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () +setDOMHTMLButtonElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLButtonElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLButtonElementType val = constructObjectPropertyString "type" val + +data DOMHTMLButtonElementTypePropertyInfo +instance AttrInfo DOMHTMLButtonElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLButtonElementTypePropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementTypePropertyInfo = "DOMHTMLButtonElement::type" + attrGet _ = getDOMHTMLButtonElementType + attrSet _ = setDOMHTMLButtonElementType + attrConstruct _ = constructDOMHTMLButtonElementType + +-- VVV Prop "validation-message" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLButtonElementValidationMessage :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" + +data DOMHTMLButtonElementValidationMessagePropertyInfo +instance AttrInfo DOMHTMLButtonElementValidationMessagePropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementValidationMessagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLButtonElementValidationMessagePropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementValidationMessagePropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementValidationMessagePropertyInfo = "DOMHTMLButtonElement::validation-message" + attrGet _ = getDOMHTMLButtonElementValidationMessage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validity" + -- Type: TInterface "WebKit" "DOMValidityState" + -- Flags: [PropertyReadable] + +getDOMHTMLButtonElementValidity :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m DOMValidityState +getDOMHTMLButtonElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState + +data DOMHTMLButtonElementValidityPropertyInfo +instance AttrInfo DOMHTMLButtonElementValidityPropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementValidityPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementValidityPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLButtonElementValidityPropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementValidityPropertyInfo = DOMValidityState + type AttrLabel DOMHTMLButtonElementValidityPropertyInfo = "DOMHTMLButtonElement::validity" + attrGet _ = getDOMHTMLButtonElementValidity + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLButtonElementValue :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m T.Text +getDOMHTMLButtonElementValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMHTMLButtonElementValue :: (MonadIO m, DOMHTMLButtonElementK o) => o -> T.Text -> m () +setDOMHTMLButtonElementValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMHTMLButtonElementValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLButtonElementValue val = constructObjectPropertyString "value" val + +data DOMHTMLButtonElementValuePropertyInfo +instance AttrInfo DOMHTMLButtonElementValuePropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLButtonElementValuePropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementValuePropertyInfo = T.Text + type AttrLabel DOMHTMLButtonElementValuePropertyInfo = "DOMHTMLButtonElement::value" + attrGet _ = getDOMHTMLButtonElementValue + attrSet _ = setDOMHTMLButtonElementValue + attrConstruct _ = constructDOMHTMLButtonElementValue + +-- VVV Prop "will-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLButtonElementWillValidate :: (MonadIO m, DOMHTMLButtonElementK o) => o -> m Bool +getDOMHTMLButtonElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" + +data DOMHTMLButtonElementWillValidatePropertyInfo +instance AttrInfo DOMHTMLButtonElementWillValidatePropertyInfo where + type AttrAllowedOps DOMHTMLButtonElementWillValidatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLButtonElementWillValidatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLButtonElementWillValidatePropertyInfo = DOMHTMLButtonElementK + type AttrGetType DOMHTMLButtonElementWillValidatePropertyInfo = Bool + type AttrLabel DOMHTMLButtonElementWillValidatePropertyInfo = "DOMHTMLButtonElement::will-validate" + attrGet _ = getDOMHTMLButtonElementWillValidate + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLButtonElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLButtonElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLButtonElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLButtonElementFormPropertyInfo), '("form-action", DOMHTMLButtonElementFormActionPropertyInfo), '("form-enctype", DOMHTMLButtonElementFormEnctypePropertyInfo), '("form-method", DOMHTMLButtonElementFormMethodPropertyInfo), '("form-no-validate", DOMHTMLButtonElementFormNoValidatePropertyInfo), '("form-target", DOMHTMLButtonElementFormTargetPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLButtonElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLButtonElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLButtonElementTypePropertyInfo), '("validation-message", DOMHTMLButtonElementValidationMessagePropertyInfo), '("validity", DOMHTMLButtonElementValidityPropertyInfo), '("value", DOMHTMLButtonElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLButtonElementWillValidatePropertyInfo)] + +-- VVV Prop "height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLCanvasElementHeight :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> m Int64 +getDOMHTMLCanvasElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" + +setDOMHTMLCanvasElementHeight :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> Int64 -> m () +setDOMHTMLCanvasElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val + +constructDOMHTMLCanvasElementHeight :: Int64 -> IO ([Char], GValue) +constructDOMHTMLCanvasElementHeight val = constructObjectPropertyInt64 "height" val + +data DOMHTMLCanvasElementHeightPropertyInfo +instance AttrInfo DOMHTMLCanvasElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLCanvasElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLCanvasElementHeightPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLCanvasElementHeightPropertyInfo = DOMHTMLCanvasElementK + type AttrGetType DOMHTMLCanvasElementHeightPropertyInfo = Int64 + type AttrLabel DOMHTMLCanvasElementHeightPropertyInfo = "DOMHTMLCanvasElement::height" + attrGet _ = getDOMHTMLCanvasElementHeight + attrSet _ = setDOMHTMLCanvasElementHeight + attrConstruct _ = constructDOMHTMLCanvasElementHeight + +-- VVV Prop "width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLCanvasElementWidth :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> m Int64 +getDOMHTMLCanvasElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" + +setDOMHTMLCanvasElementWidth :: (MonadIO m, DOMHTMLCanvasElementK o) => o -> Int64 -> m () +setDOMHTMLCanvasElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val + +constructDOMHTMLCanvasElementWidth :: Int64 -> IO ([Char], GValue) +constructDOMHTMLCanvasElementWidth val = constructObjectPropertyInt64 "width" val + +data DOMHTMLCanvasElementWidthPropertyInfo +instance AttrInfo DOMHTMLCanvasElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLCanvasElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLCanvasElementWidthPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLCanvasElementWidthPropertyInfo = DOMHTMLCanvasElementK + type AttrGetType DOMHTMLCanvasElementWidthPropertyInfo = Int64 + type AttrLabel DOMHTMLCanvasElementWidthPropertyInfo = "DOMHTMLCanvasElement::width" + attrGet _ = getDOMHTMLCanvasElementWidth + attrSet _ = setDOMHTMLCanvasElementWidth + attrConstruct _ = constructDOMHTMLCanvasElementWidth + +type instance AttributeList DOMHTMLCanvasElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLCanvasElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLCanvasElementWidthPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLCollectionLength :: (MonadIO m, DOMHTMLCollectionK o) => o -> m Word64 +getDOMHTMLCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMHTMLCollectionLengthPropertyInfo +instance AttrInfo DOMHTMLCollectionLengthPropertyInfo where + type AttrAllowedOps DOMHTMLCollectionLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLCollectionLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLCollectionLengthPropertyInfo = DOMHTMLCollectionK + type AttrGetType DOMHTMLCollectionLengthPropertyInfo = Word64 + type AttrLabel DOMHTMLCollectionLengthPropertyInfo = "DOMHTMLCollection::length" + attrGet _ = getDOMHTMLCollectionLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLCollection = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLCollectionLengthPropertyInfo)] + +-- VVV Prop "compact" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDListElementCompact :: (MonadIO m, DOMHTMLDListElementK o) => o -> m Bool +getDOMHTMLDListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" + +setDOMHTMLDListElementCompact :: (MonadIO m, DOMHTMLDListElementK o) => o -> Bool -> m () +setDOMHTMLDListElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val + +constructDOMHTMLDListElementCompact :: Bool -> IO ([Char], GValue) +constructDOMHTMLDListElementCompact val = constructObjectPropertyBool "compact" val + +data DOMHTMLDListElementCompactPropertyInfo +instance AttrInfo DOMHTMLDListElementCompactPropertyInfo where + type AttrAllowedOps DOMHTMLDListElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDListElementCompactPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLDListElementCompactPropertyInfo = DOMHTMLDListElementK + type AttrGetType DOMHTMLDListElementCompactPropertyInfo = Bool + type AttrLabel DOMHTMLDListElementCompactPropertyInfo = "DOMHTMLDListElement::compact" + attrGet _ = getDOMHTMLDListElementCompact + attrSet _ = setDOMHTMLDListElementCompact + attrConstruct _ = constructDOMHTMLDListElementCompact + +type instance AttributeList DOMHTMLDListElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLDListElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "open" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDetailsElementOpen :: (MonadIO m, DOMHTMLDetailsElementK o) => o -> m Bool +getDOMHTMLDetailsElementOpen obj = liftIO $ getObjectPropertyBool obj "open" + +setDOMHTMLDetailsElementOpen :: (MonadIO m, DOMHTMLDetailsElementK o) => o -> Bool -> m () +setDOMHTMLDetailsElementOpen obj val = liftIO $ setObjectPropertyBool obj "open" val + +constructDOMHTMLDetailsElementOpen :: Bool -> IO ([Char], GValue) +constructDOMHTMLDetailsElementOpen val = constructObjectPropertyBool "open" val + +data DOMHTMLDetailsElementOpenPropertyInfo +instance AttrInfo DOMHTMLDetailsElementOpenPropertyInfo where + type AttrAllowedOps DOMHTMLDetailsElementOpenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDetailsElementOpenPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLDetailsElementOpenPropertyInfo = DOMHTMLDetailsElementK + type AttrGetType DOMHTMLDetailsElementOpenPropertyInfo = Bool + type AttrLabel DOMHTMLDetailsElementOpenPropertyInfo = "DOMHTMLDetailsElement::open" + attrGet _ = getDOMHTMLDetailsElementOpen + attrSet _ = setDOMHTMLDetailsElementOpen + attrConstruct _ = constructDOMHTMLDetailsElementOpen + +type instance AttributeList DOMHTMLDetailsElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("open", DOMHTMLDetailsElementOpenPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "compact" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDirectoryElementCompact :: (MonadIO m, DOMHTMLDirectoryElementK o) => o -> m Bool +getDOMHTMLDirectoryElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" + +setDOMHTMLDirectoryElementCompact :: (MonadIO m, DOMHTMLDirectoryElementK o) => o -> Bool -> m () +setDOMHTMLDirectoryElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val + +constructDOMHTMLDirectoryElementCompact :: Bool -> IO ([Char], GValue) +constructDOMHTMLDirectoryElementCompact val = constructObjectPropertyBool "compact" val + +data DOMHTMLDirectoryElementCompactPropertyInfo +instance AttrInfo DOMHTMLDirectoryElementCompactPropertyInfo where + type AttrAllowedOps DOMHTMLDirectoryElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDirectoryElementCompactPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLDirectoryElementCompactPropertyInfo = DOMHTMLDirectoryElementK + type AttrGetType DOMHTMLDirectoryElementCompactPropertyInfo = Bool + type AttrLabel DOMHTMLDirectoryElementCompactPropertyInfo = "DOMHTMLDirectoryElement::compact" + attrGet _ = getDOMHTMLDirectoryElementCompact + attrSet _ = setDOMHTMLDirectoryElementCompact + attrConstruct _ = constructDOMHTMLDirectoryElementCompact + +type instance AttributeList DOMHTMLDirectoryElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLDirectoryElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDivElementAlign :: (MonadIO m, DOMHTMLDivElementK o) => o -> m T.Text +getDOMHTMLDivElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLDivElementAlign :: (MonadIO m, DOMHTMLDivElementK o) => o -> T.Text -> m () +setDOMHTMLDivElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLDivElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDivElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLDivElementAlignPropertyInfo +instance AttrInfo DOMHTMLDivElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLDivElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDivElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDivElementAlignPropertyInfo = DOMHTMLDivElementK + type AttrGetType DOMHTMLDivElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLDivElementAlignPropertyInfo = "DOMHTMLDivElement::align" + attrGet _ = getDOMHTMLDivElementAlign + attrSet _ = setDOMHTMLDivElementAlign + attrConstruct _ = constructDOMHTMLDivElementAlign + +type instance AttributeList DOMHTMLDivElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLDivElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "active-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMHTMLDocumentActiveElement :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMElement +getDOMHTMLDocumentActiveElement obj = liftIO $ getObjectPropertyObject obj "active-element" DOMElement + +data DOMHTMLDocumentActiveElementPropertyInfo +instance AttrInfo DOMHTMLDocumentActiveElementPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentActiveElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentActiveElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLDocumentActiveElementPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentActiveElementPropertyInfo = DOMElement + type AttrLabel DOMHTMLDocumentActiveElementPropertyInfo = "DOMHTMLDocument::active-element" + attrGet _ = getDOMHTMLDocumentActiveElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "alink-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDocumentAlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentAlinkColor obj = liftIO $ getObjectPropertyString obj "alink-color" + +setDOMHTMLDocumentAlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () +setDOMHTMLDocumentAlinkColor obj val = liftIO $ setObjectPropertyString obj "alink-color" val + +constructDOMHTMLDocumentAlinkColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDocumentAlinkColor val = constructObjectPropertyString "alink-color" val + +data DOMHTMLDocumentAlinkColorPropertyInfo +instance AttrInfo DOMHTMLDocumentAlinkColorPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentAlinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentAlinkColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDocumentAlinkColorPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentAlinkColorPropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentAlinkColorPropertyInfo = "DOMHTMLDocument::alink-color" + attrGet _ = getDOMHTMLDocumentAlinkColor + attrSet _ = setDOMHTMLDocumentAlinkColor + attrConstruct _ = constructDOMHTMLDocumentAlinkColor + +-- VVV Prop "bg-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDocumentBgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" + +setDOMHTMLDocumentBgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () +setDOMHTMLDocumentBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val + +constructDOMHTMLDocumentBgColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDocumentBgColor val = constructObjectPropertyString "bg-color" val + +data DOMHTMLDocumentBgColorPropertyInfo +instance AttrInfo DOMHTMLDocumentBgColorPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentBgColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDocumentBgColorPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentBgColorPropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentBgColorPropertyInfo = "DOMHTMLDocument::bg-color" + attrGet _ = getDOMHTMLDocumentBgColor + attrSet _ = setDOMHTMLDocumentBgColor + attrConstruct _ = constructDOMHTMLDocumentBgColor + +-- VVV Prop "compat-mode" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLDocumentCompatMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentCompatMode obj = liftIO $ getObjectPropertyString obj "compat-mode" + +data DOMHTMLDocumentCompatModePropertyInfo +instance AttrInfo DOMHTMLDocumentCompatModePropertyInfo where + type AttrAllowedOps DOMHTMLDocumentCompatModePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentCompatModePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLDocumentCompatModePropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentCompatModePropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentCompatModePropertyInfo = "DOMHTMLDocument::compat-mode" + attrGet _ = getDOMHTMLDocumentCompatMode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "design-mode" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDocumentDesignMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentDesignMode obj = liftIO $ getObjectPropertyString obj "design-mode" + +setDOMHTMLDocumentDesignMode :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () +setDOMHTMLDocumentDesignMode obj val = liftIO $ setObjectPropertyString obj "design-mode" val + +constructDOMHTMLDocumentDesignMode :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDocumentDesignMode val = constructObjectPropertyString "design-mode" val + +data DOMHTMLDocumentDesignModePropertyInfo +instance AttrInfo DOMHTMLDocumentDesignModePropertyInfo where + type AttrAllowedOps DOMHTMLDocumentDesignModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentDesignModePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDocumentDesignModePropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentDesignModePropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentDesignModePropertyInfo = "DOMHTMLDocument::design-mode" + attrGet _ = getDOMHTMLDocumentDesignMode + attrSet _ = setDOMHTMLDocumentDesignMode + attrConstruct _ = constructDOMHTMLDocumentDesignMode + +-- VVV Prop "dir" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentDir obj = liftIO $ getObjectPropertyString obj "dir" + +setDOMHTMLDocumentDir :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () +setDOMHTMLDocumentDir obj val = liftIO $ setObjectPropertyString obj "dir" val + +constructDOMHTMLDocumentDir :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDocumentDir val = constructObjectPropertyString "dir" val + +data DOMHTMLDocumentDirPropertyInfo +instance AttrInfo DOMHTMLDocumentDirPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentDirPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentDirPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDocumentDirPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentDirPropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentDirPropertyInfo = "DOMHTMLDocument::dir" + attrGet _ = getDOMHTMLDocumentDir + attrSet _ = setDOMHTMLDocumentDir + attrConstruct _ = constructDOMHTMLDocumentDir + +-- VVV Prop "embeds" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLDocumentEmbeds :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection +getDOMHTMLDocumentEmbeds obj = liftIO $ getObjectPropertyObject obj "embeds" DOMHTMLCollection + +data DOMHTMLDocumentEmbedsPropertyInfo +instance AttrInfo DOMHTMLDocumentEmbedsPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentEmbedsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentEmbedsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLDocumentEmbedsPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentEmbedsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLDocumentEmbedsPropertyInfo = "DOMHTMLDocument::embeds" + attrGet _ = getDOMHTMLDocumentEmbeds + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "fg-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDocumentFgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentFgColor obj = liftIO $ getObjectPropertyString obj "fg-color" + +setDOMHTMLDocumentFgColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () +setDOMHTMLDocumentFgColor obj val = liftIO $ setObjectPropertyString obj "fg-color" val + +constructDOMHTMLDocumentFgColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDocumentFgColor val = constructObjectPropertyString "fg-color" val + +data DOMHTMLDocumentFgColorPropertyInfo +instance AttrInfo DOMHTMLDocumentFgColorPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentFgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentFgColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDocumentFgColorPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentFgColorPropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentFgColorPropertyInfo = "DOMHTMLDocument::fg-color" + attrGet _ = getDOMHTMLDocumentFgColor + attrSet _ = setDOMHTMLDocumentFgColor + attrConstruct _ = constructDOMHTMLDocumentFgColor + +-- VVV Prop "height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLDocumentHeight :: (MonadIO m, DOMHTMLDocumentK o) => o -> m Int64 +getDOMHTMLDocumentHeight obj = liftIO $ getObjectPropertyInt64 obj "height" + +data DOMHTMLDocumentHeightPropertyInfo +instance AttrInfo DOMHTMLDocumentHeightPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLDocumentHeightPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentHeightPropertyInfo = Int64 + type AttrLabel DOMHTMLDocumentHeightPropertyInfo = "DOMHTMLDocument::height" + attrGet _ = getDOMHTMLDocumentHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "link-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDocumentLinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentLinkColor obj = liftIO $ getObjectPropertyString obj "link-color" + +setDOMHTMLDocumentLinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () +setDOMHTMLDocumentLinkColor obj val = liftIO $ setObjectPropertyString obj "link-color" val + +constructDOMHTMLDocumentLinkColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDocumentLinkColor val = constructObjectPropertyString "link-color" val + +data DOMHTMLDocumentLinkColorPropertyInfo +instance AttrInfo DOMHTMLDocumentLinkColorPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentLinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentLinkColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDocumentLinkColorPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentLinkColorPropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentLinkColorPropertyInfo = "DOMHTMLDocument::link-color" + attrGet _ = getDOMHTMLDocumentLinkColor + attrSet _ = setDOMHTMLDocumentLinkColor + attrConstruct _ = constructDOMHTMLDocumentLinkColor + +-- VVV Prop "plugins" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLDocumentPlugins :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection +getDOMHTMLDocumentPlugins obj = liftIO $ getObjectPropertyObject obj "plugins" DOMHTMLCollection + +data DOMHTMLDocumentPluginsPropertyInfo +instance AttrInfo DOMHTMLDocumentPluginsPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentPluginsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentPluginsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLDocumentPluginsPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentPluginsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLDocumentPluginsPropertyInfo = "DOMHTMLDocument::plugins" + attrGet _ = getDOMHTMLDocumentPlugins + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "scripts" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLDocumentScripts :: (MonadIO m, DOMHTMLDocumentK o) => o -> m DOMHTMLCollection +getDOMHTMLDocumentScripts obj = liftIO $ getObjectPropertyObject obj "scripts" DOMHTMLCollection + +data DOMHTMLDocumentScriptsPropertyInfo +instance AttrInfo DOMHTMLDocumentScriptsPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentScriptsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentScriptsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLDocumentScriptsPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentScriptsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLDocumentScriptsPropertyInfo = "DOMHTMLDocument::scripts" + attrGet _ = getDOMHTMLDocumentScripts + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "vlink-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLDocumentVlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> m T.Text +getDOMHTMLDocumentVlinkColor obj = liftIO $ getObjectPropertyString obj "vlink-color" + +setDOMHTMLDocumentVlinkColor :: (MonadIO m, DOMHTMLDocumentK o) => o -> T.Text -> m () +setDOMHTMLDocumentVlinkColor obj val = liftIO $ setObjectPropertyString obj "vlink-color" val + +constructDOMHTMLDocumentVlinkColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLDocumentVlinkColor val = constructObjectPropertyString "vlink-color" val + +data DOMHTMLDocumentVlinkColorPropertyInfo +instance AttrInfo DOMHTMLDocumentVlinkColorPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentVlinkColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentVlinkColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLDocumentVlinkColorPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentVlinkColorPropertyInfo = T.Text + type AttrLabel DOMHTMLDocumentVlinkColorPropertyInfo = "DOMHTMLDocument::vlink-color" + attrGet _ = getDOMHTMLDocumentVlinkColor + attrSet _ = setDOMHTMLDocumentVlinkColor + attrConstruct _ = constructDOMHTMLDocumentVlinkColor + +-- VVV Prop "width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLDocumentWidth :: (MonadIO m, DOMHTMLDocumentK o) => o -> m Int64 +getDOMHTMLDocumentWidth obj = liftIO $ getObjectPropertyInt64 obj "width" + +data DOMHTMLDocumentWidthPropertyInfo +instance AttrInfo DOMHTMLDocumentWidthPropertyInfo where + type AttrAllowedOps DOMHTMLDocumentWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLDocumentWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLDocumentWidthPropertyInfo = DOMHTMLDocumentK + type AttrGetType DOMHTMLDocumentWidthPropertyInfo = Int64 + type AttrLabel DOMHTMLDocumentWidthPropertyInfo = "DOMHTMLDocument::width" + attrGet _ = getDOMHTMLDocumentWidth + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLDocument = '[ '("active-element", DOMHTMLDocumentActiveElementPropertyInfo), '("alink-color", DOMHTMLDocumentAlinkColorPropertyInfo), '("anchors", DOMDocumentAnchorsPropertyInfo), '("applets", DOMDocumentAppletsPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLDocumentBgColorPropertyInfo), '("body", DOMDocumentBodyPropertyInfo), '("character-set", DOMDocumentCharacterSetPropertyInfo), '("charset", DOMDocumentCharsetPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("compat-mode", DOMHTMLDocumentCompatModePropertyInfo), '("cookie", DOMDocumentCookiePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-script", DOMDocumentCurrentScriptPropertyInfo), '("default-charset", DOMDocumentDefaultCharsetPropertyInfo), '("default-view", DOMDocumentDefaultViewPropertyInfo), '("design-mode", DOMHTMLDocumentDesignModePropertyInfo), '("dir", DOMHTMLDocumentDirPropertyInfo), '("doctype", DOMDocumentDoctypePropertyInfo), '("document-element", DOMDocumentDocumentElementPropertyInfo), '("document-uri", DOMDocumentDocumentUriPropertyInfo), '("domain", DOMDocumentDomainPropertyInfo), '("embeds", DOMHTMLDocumentEmbedsPropertyInfo), '("fg-color", DOMHTMLDocumentFgColorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("forms", DOMDocumentFormsPropertyInfo), '("head", DOMDocumentHeadPropertyInfo), '("height", DOMHTMLDocumentHeightPropertyInfo), '("hidden", DOMDocumentHiddenPropertyInfo), '("images", DOMDocumentImagesPropertyInfo), '("implementation", DOMDocumentImplementationPropertyInfo), '("input-encoding", DOMDocumentInputEncodingPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-modified", DOMDocumentLastModifiedPropertyInfo), '("link-color", DOMHTMLDocumentLinkColorPropertyInfo), '("links", DOMDocumentLinksPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("plugins", DOMHTMLDocumentPluginsPropertyInfo), '("preferred-stylesheet-set", DOMDocumentPreferredStylesheetSetPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMDocumentReadyStatePropertyInfo), '("referrer", DOMDocumentReferrerPropertyInfo), '("scripts", DOMHTMLDocumentScriptsPropertyInfo), '("security-policy", DOMDocumentSecurityPolicyPropertyInfo), '("selected-stylesheet-set", DOMDocumentSelectedStylesheetSetPropertyInfo), '("style-sheets", DOMDocumentStyleSheetsPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMDocumentTitlePropertyInfo), '("url", DOMDocumentUrlPropertyInfo), '("visibility-state", DOMDocumentVisibilityStatePropertyInfo), '("vlink-color", DOMHTMLDocumentVlinkColorPropertyInfo), '("webkit-current-full-screen-element", DOMDocumentWebkitCurrentFullScreenElementPropertyInfo), '("webkit-full-screen-keyboard-input-allowed", DOMDocumentWebkitFullScreenKeyboardInputAllowedPropertyInfo), '("webkit-fullscreen-element", DOMDocumentWebkitFullscreenElementPropertyInfo), '("webkit-fullscreen-enabled", DOMDocumentWebkitFullscreenEnabledPropertyInfo), '("webkit-is-full-screen", DOMDocumentWebkitIsFullScreenPropertyInfo), '("webkit-pointer-lock-element", DOMDocumentWebkitPointerLockElementPropertyInfo), '("width", DOMHTMLDocumentWidthPropertyInfo), '("xml-encoding", DOMDocumentXmlEncodingPropertyInfo), '("xml-standalone", DOMDocumentXmlStandalonePropertyInfo), '("xml-version", DOMDocumentXmlVersionPropertyInfo)] + +-- VVV Prop "access-key" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementAccessKey :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementAccessKey obj = liftIO $ getObjectPropertyString obj "access-key" + +setDOMHTMLElementAccessKey :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementAccessKey obj val = liftIO $ setObjectPropertyString obj "access-key" val + +constructDOMHTMLElementAccessKey :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementAccessKey val = constructObjectPropertyString "access-key" val + +data DOMHTMLElementAccessKeyPropertyInfo +instance AttrInfo DOMHTMLElementAccessKeyPropertyInfo where + type AttrAllowedOps DOMHTMLElementAccessKeyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementAccessKeyPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementAccessKeyPropertyInfo = T.Text + type AttrLabel DOMHTMLElementAccessKeyPropertyInfo = "DOMHTMLElement::access-key" + attrGet _ = getDOMHTMLElementAccessKey + attrSet _ = setDOMHTMLElementAccessKey + attrConstruct _ = constructDOMHTMLElementAccessKey + +-- VVV Prop "children" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLElementChildren :: (MonadIO m, DOMHTMLElementK o) => o -> m DOMHTMLCollection +getDOMHTMLElementChildren obj = liftIO $ getObjectPropertyObject obj "children" DOMHTMLCollection + +data DOMHTMLElementChildrenPropertyInfo +instance AttrInfo DOMHTMLElementChildrenPropertyInfo where + type AttrAllowedOps DOMHTMLElementChildrenPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementChildrenPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLElementChildrenPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementChildrenPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLElementChildrenPropertyInfo = "DOMHTMLElement::children" + attrGet _ = getDOMHTMLElementChildren + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "content-editable" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementContentEditable obj = liftIO $ getObjectPropertyString obj "content-editable" + +setDOMHTMLElementContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementContentEditable obj val = liftIO $ setObjectPropertyString obj "content-editable" val + +constructDOMHTMLElementContentEditable :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementContentEditable val = constructObjectPropertyString "content-editable" val + +data DOMHTMLElementContentEditablePropertyInfo +instance AttrInfo DOMHTMLElementContentEditablePropertyInfo where + type AttrAllowedOps DOMHTMLElementContentEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementContentEditablePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementContentEditablePropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementContentEditablePropertyInfo = T.Text + type AttrLabel DOMHTMLElementContentEditablePropertyInfo = "DOMHTMLElement::content-editable" + attrGet _ = getDOMHTMLElementContentEditable + attrSet _ = setDOMHTMLElementContentEditable + attrConstruct _ = constructDOMHTMLElementContentEditable + +-- VVV Prop "dir" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementDir obj = liftIO $ getObjectPropertyString obj "dir" + +setDOMHTMLElementDir :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementDir obj val = liftIO $ setObjectPropertyString obj "dir" val + +constructDOMHTMLElementDir :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementDir val = constructObjectPropertyString "dir" val + +data DOMHTMLElementDirPropertyInfo +instance AttrInfo DOMHTMLElementDirPropertyInfo where + type AttrAllowedOps DOMHTMLElementDirPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementDirPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementDirPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementDirPropertyInfo = T.Text + type AttrLabel DOMHTMLElementDirPropertyInfo = "DOMHTMLElement::dir" + attrGet _ = getDOMHTMLElementDir + attrSet _ = setDOMHTMLElementDir + attrConstruct _ = constructDOMHTMLElementDir + +-- VVV Prop "draggable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementDraggable :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool +getDOMHTMLElementDraggable obj = liftIO $ getObjectPropertyBool obj "draggable" + +setDOMHTMLElementDraggable :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m () +setDOMHTMLElementDraggable obj val = liftIO $ setObjectPropertyBool obj "draggable" val + +constructDOMHTMLElementDraggable :: Bool -> IO ([Char], GValue) +constructDOMHTMLElementDraggable val = constructObjectPropertyBool "draggable" val + +data DOMHTMLElementDraggablePropertyInfo +instance AttrInfo DOMHTMLElementDraggablePropertyInfo where + type AttrAllowedOps DOMHTMLElementDraggablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementDraggablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLElementDraggablePropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementDraggablePropertyInfo = Bool + type AttrLabel DOMHTMLElementDraggablePropertyInfo = "DOMHTMLElement::draggable" + attrGet _ = getDOMHTMLElementDraggable + attrSet _ = setDOMHTMLElementDraggable + attrConstruct _ = constructDOMHTMLElementDraggable + +-- VVV Prop "hidden" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementHidden :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool +getDOMHTMLElementHidden obj = liftIO $ getObjectPropertyBool obj "hidden" + +setDOMHTMLElementHidden :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m () +setDOMHTMLElementHidden obj val = liftIO $ setObjectPropertyBool obj "hidden" val + +constructDOMHTMLElementHidden :: Bool -> IO ([Char], GValue) +constructDOMHTMLElementHidden val = constructObjectPropertyBool "hidden" val + +data DOMHTMLElementHiddenPropertyInfo +instance AttrInfo DOMHTMLElementHiddenPropertyInfo where + type AttrAllowedOps DOMHTMLElementHiddenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementHiddenPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLElementHiddenPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementHiddenPropertyInfo = Bool + type AttrLabel DOMHTMLElementHiddenPropertyInfo = "DOMHTMLElement::hidden" + attrGet _ = getDOMHTMLElementHidden + attrSet _ = setDOMHTMLElementHidden + attrConstruct _ = constructDOMHTMLElementHidden + +-- VVV Prop "inner-html" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementInnerHtml :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementInnerHtml obj = liftIO $ getObjectPropertyString obj "inner-html" + +setDOMHTMLElementInnerHtml :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" val + +constructDOMHTMLElementInnerHtml :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementInnerHtml val = constructObjectPropertyString "inner-html" val + +data DOMHTMLElementInnerHtmlPropertyInfo +instance AttrInfo DOMHTMLElementInnerHtmlPropertyInfo where + type AttrAllowedOps DOMHTMLElementInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementInnerHtmlPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementInnerHtmlPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementInnerHtmlPropertyInfo = T.Text + type AttrLabel DOMHTMLElementInnerHtmlPropertyInfo = "DOMHTMLElement::inner-html" + attrGet _ = getDOMHTMLElementInnerHtml + attrSet _ = setDOMHTMLElementInnerHtml + attrConstruct _ = constructDOMHTMLElementInnerHtml + +-- VVV Prop "inner-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementInnerText obj = liftIO $ getObjectPropertyString obj "inner-text" + +setDOMHTMLElementInnerText :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementInnerText obj val = liftIO $ setObjectPropertyString obj "inner-text" val + +constructDOMHTMLElementInnerText :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementInnerText val = constructObjectPropertyString "inner-text" val + +data DOMHTMLElementInnerTextPropertyInfo +instance AttrInfo DOMHTMLElementInnerTextPropertyInfo where + type AttrAllowedOps DOMHTMLElementInnerTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementInnerTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementInnerTextPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementInnerTextPropertyInfo = T.Text + type AttrLabel DOMHTMLElementInnerTextPropertyInfo = "DOMHTMLElement::inner-text" + attrGet _ = getDOMHTMLElementInnerText + attrSet _ = setDOMHTMLElementInnerText + attrConstruct _ = constructDOMHTMLElementInnerText + +-- VVV Prop "is-content-editable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLElementIsContentEditable :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool +getDOMHTMLElementIsContentEditable obj = liftIO $ getObjectPropertyBool obj "is-content-editable" + +data DOMHTMLElementIsContentEditablePropertyInfo +instance AttrInfo DOMHTMLElementIsContentEditablePropertyInfo where + type AttrAllowedOps DOMHTMLElementIsContentEditablePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementIsContentEditablePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLElementIsContentEditablePropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementIsContentEditablePropertyInfo = Bool + type AttrLabel DOMHTMLElementIsContentEditablePropertyInfo = "DOMHTMLElement::is-content-editable" + attrGet _ = getDOMHTMLElementIsContentEditable + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "lang" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementLang obj = liftIO $ getObjectPropertyString obj "lang" + +setDOMHTMLElementLang :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementLang obj val = liftIO $ setObjectPropertyString obj "lang" val + +constructDOMHTMLElementLang :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementLang val = constructObjectPropertyString "lang" val + +data DOMHTMLElementLangPropertyInfo +instance AttrInfo DOMHTMLElementLangPropertyInfo where + type AttrAllowedOps DOMHTMLElementLangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementLangPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementLangPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementLangPropertyInfo = T.Text + type AttrLabel DOMHTMLElementLangPropertyInfo = "DOMHTMLElement::lang" + attrGet _ = getDOMHTMLElementLang + attrSet _ = setDOMHTMLElementLang + attrConstruct _ = constructDOMHTMLElementLang + +-- VVV Prop "outer-html" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementOuterHtml :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementOuterHtml obj = liftIO $ getObjectPropertyString obj "outer-html" + +setDOMHTMLElementOuterHtml :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementOuterHtml obj val = liftIO $ setObjectPropertyString obj "outer-html" val + +constructDOMHTMLElementOuterHtml :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementOuterHtml val = constructObjectPropertyString "outer-html" val + +data DOMHTMLElementOuterHtmlPropertyInfo +instance AttrInfo DOMHTMLElementOuterHtmlPropertyInfo where + type AttrAllowedOps DOMHTMLElementOuterHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementOuterHtmlPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementOuterHtmlPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementOuterHtmlPropertyInfo = T.Text + type AttrLabel DOMHTMLElementOuterHtmlPropertyInfo = "DOMHTMLElement::outer-html" + attrGet _ = getDOMHTMLElementOuterHtml + attrSet _ = setDOMHTMLElementOuterHtml + attrConstruct _ = constructDOMHTMLElementOuterHtml + +-- VVV Prop "outer-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementOuterText obj = liftIO $ getObjectPropertyString obj "outer-text" + +setDOMHTMLElementOuterText :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementOuterText obj val = liftIO $ setObjectPropertyString obj "outer-text" val + +constructDOMHTMLElementOuterText :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementOuterText val = constructObjectPropertyString "outer-text" val + +data DOMHTMLElementOuterTextPropertyInfo +instance AttrInfo DOMHTMLElementOuterTextPropertyInfo where + type AttrAllowedOps DOMHTMLElementOuterTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementOuterTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementOuterTextPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementOuterTextPropertyInfo = T.Text + type AttrLabel DOMHTMLElementOuterTextPropertyInfo = "DOMHTMLElement::outer-text" + attrGet _ = getDOMHTMLElementOuterText + attrSet _ = setDOMHTMLElementOuterText + attrConstruct _ = constructDOMHTMLElementOuterText + +-- VVV Prop "spellcheck" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementSpellcheck :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool +getDOMHTMLElementSpellcheck obj = liftIO $ getObjectPropertyBool obj "spellcheck" + +setDOMHTMLElementSpellcheck :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m () +setDOMHTMLElementSpellcheck obj val = liftIO $ setObjectPropertyBool obj "spellcheck" val + +constructDOMHTMLElementSpellcheck :: Bool -> IO ([Char], GValue) +constructDOMHTMLElementSpellcheck val = constructObjectPropertyBool "spellcheck" val + +data DOMHTMLElementSpellcheckPropertyInfo +instance AttrInfo DOMHTMLElementSpellcheckPropertyInfo where + type AttrAllowedOps DOMHTMLElementSpellcheckPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementSpellcheckPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLElementSpellcheckPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementSpellcheckPropertyInfo = Bool + type AttrLabel DOMHTMLElementSpellcheckPropertyInfo = "DOMHTMLElement::spellcheck" + attrGet _ = getDOMHTMLElementSpellcheck + attrSet _ = setDOMHTMLElementSpellcheck + attrConstruct _ = constructDOMHTMLElementSpellcheck + +-- VVV Prop "tab-index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> m Int64 +getDOMHTMLElementTabIndex obj = liftIO $ getObjectPropertyInt64 obj "tab-index" + +setDOMHTMLElementTabIndex :: (MonadIO m, DOMHTMLElementK o) => o -> Int64 -> m () +setDOMHTMLElementTabIndex obj val = liftIO $ setObjectPropertyInt64 obj "tab-index" val + +constructDOMHTMLElementTabIndex :: Int64 -> IO ([Char], GValue) +constructDOMHTMLElementTabIndex val = constructObjectPropertyInt64 "tab-index" val + +data DOMHTMLElementTabIndexPropertyInfo +instance AttrInfo DOMHTMLElementTabIndexPropertyInfo where + type AttrAllowedOps DOMHTMLElementTabIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementTabIndexPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLElementTabIndexPropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementTabIndexPropertyInfo = Int64 + type AttrLabel DOMHTMLElementTabIndexPropertyInfo = "DOMHTMLElement::tab-index" + attrGet _ = getDOMHTMLElementTabIndex + attrSet _ = setDOMHTMLElementTabIndex + attrConstruct _ = constructDOMHTMLElementTabIndex + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementTitle obj = liftIO $ getObjectPropertyString obj "title" + +setDOMHTMLElementTitle :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementTitle obj val = liftIO $ setObjectPropertyString obj "title" val + +constructDOMHTMLElementTitle :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementTitle val = constructObjectPropertyString "title" val + +data DOMHTMLElementTitlePropertyInfo +instance AttrInfo DOMHTMLElementTitlePropertyInfo where + type AttrAllowedOps DOMHTMLElementTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementTitlePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementTitlePropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementTitlePropertyInfo = T.Text + type AttrLabel DOMHTMLElementTitlePropertyInfo = "DOMHTMLElement::title" + attrGet _ = getDOMHTMLElementTitle + attrSet _ = setDOMHTMLElementTitle + attrConstruct _ = constructDOMHTMLElementTitle + +-- VVV Prop "translate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementTranslate :: (MonadIO m, DOMHTMLElementK o) => o -> m Bool +getDOMHTMLElementTranslate obj = liftIO $ getObjectPropertyBool obj "translate" + +setDOMHTMLElementTranslate :: (MonadIO m, DOMHTMLElementK o) => o -> Bool -> m () +setDOMHTMLElementTranslate obj val = liftIO $ setObjectPropertyBool obj "translate" val + +constructDOMHTMLElementTranslate :: Bool -> IO ([Char], GValue) +constructDOMHTMLElementTranslate val = constructObjectPropertyBool "translate" val + +data DOMHTMLElementTranslatePropertyInfo +instance AttrInfo DOMHTMLElementTranslatePropertyInfo where + type AttrAllowedOps DOMHTMLElementTranslatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementTranslatePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLElementTranslatePropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementTranslatePropertyInfo = Bool + type AttrLabel DOMHTMLElementTranslatePropertyInfo = "DOMHTMLElement::translate" + attrGet _ = getDOMHTMLElementTranslate + attrSet _ = setDOMHTMLElementTranslate + attrConstruct _ = constructDOMHTMLElementTranslate + +-- VVV Prop "webkitdropzone" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> m T.Text +getDOMHTMLElementWebkitdropzone obj = liftIO $ getObjectPropertyString obj "webkitdropzone" + +setDOMHTMLElementWebkitdropzone :: (MonadIO m, DOMHTMLElementK o) => o -> T.Text -> m () +setDOMHTMLElementWebkitdropzone obj val = liftIO $ setObjectPropertyString obj "webkitdropzone" val + +constructDOMHTMLElementWebkitdropzone :: T.Text -> IO ([Char], GValue) +constructDOMHTMLElementWebkitdropzone val = constructObjectPropertyString "webkitdropzone" val + +data DOMHTMLElementWebkitdropzonePropertyInfo +instance AttrInfo DOMHTMLElementWebkitdropzonePropertyInfo where + type AttrAllowedOps DOMHTMLElementWebkitdropzonePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLElementWebkitdropzonePropertyInfo = DOMHTMLElementK + type AttrGetType DOMHTMLElementWebkitdropzonePropertyInfo = T.Text + type AttrLabel DOMHTMLElementWebkitdropzonePropertyInfo = "DOMHTMLElement::webkitdropzone" + attrGet _ = getDOMHTMLElementWebkitdropzone + attrSet _ = setDOMHTMLElementWebkitdropzone + attrConstruct _ = constructDOMHTMLElementWebkitdropzone + +type instance AttributeList DOMHTMLElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLEmbedElementAlign :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text +getDOMHTMLEmbedElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLEmbedElementAlign :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () +setDOMHTMLEmbedElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLEmbedElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLEmbedElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLEmbedElementAlignPropertyInfo +instance AttrInfo DOMHTMLEmbedElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLEmbedElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLEmbedElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLEmbedElementAlignPropertyInfo = DOMHTMLEmbedElementK + type AttrGetType DOMHTMLEmbedElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLEmbedElementAlignPropertyInfo = "DOMHTMLEmbedElement::align" + attrGet _ = getDOMHTMLEmbedElementAlign + attrSet _ = setDOMHTMLEmbedElementAlign + attrConstruct _ = constructDOMHTMLEmbedElementAlign + +-- VVV Prop "height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLEmbedElementHeight :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m Int64 +getDOMHTMLEmbedElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" + +setDOMHTMLEmbedElementHeight :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> Int64 -> m () +setDOMHTMLEmbedElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val + +constructDOMHTMLEmbedElementHeight :: Int64 -> IO ([Char], GValue) +constructDOMHTMLEmbedElementHeight val = constructObjectPropertyInt64 "height" val + +data DOMHTMLEmbedElementHeightPropertyInfo +instance AttrInfo DOMHTMLEmbedElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLEmbedElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLEmbedElementHeightPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLEmbedElementHeightPropertyInfo = DOMHTMLEmbedElementK + type AttrGetType DOMHTMLEmbedElementHeightPropertyInfo = Int64 + type AttrLabel DOMHTMLEmbedElementHeightPropertyInfo = "DOMHTMLEmbedElement::height" + attrGet _ = getDOMHTMLEmbedElementHeight + attrSet _ = setDOMHTMLEmbedElementHeight + attrConstruct _ = constructDOMHTMLEmbedElementHeight + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLEmbedElementName :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text +getDOMHTMLEmbedElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLEmbedElementName :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () +setDOMHTMLEmbedElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLEmbedElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLEmbedElementName val = constructObjectPropertyString "name" val + +data DOMHTMLEmbedElementNamePropertyInfo +instance AttrInfo DOMHTMLEmbedElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLEmbedElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLEmbedElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLEmbedElementNamePropertyInfo = DOMHTMLEmbedElementK + type AttrGetType DOMHTMLEmbedElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLEmbedElementNamePropertyInfo = "DOMHTMLEmbedElement::name" + attrGet _ = getDOMHTMLEmbedElementName + attrSet _ = setDOMHTMLEmbedElementName + attrConstruct _ = constructDOMHTMLEmbedElementName + +-- VVV Prop "src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLEmbedElementSrc :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text +getDOMHTMLEmbedElementSrc obj = liftIO $ getObjectPropertyString obj "src" + +setDOMHTMLEmbedElementSrc :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () +setDOMHTMLEmbedElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val + +constructDOMHTMLEmbedElementSrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLEmbedElementSrc val = constructObjectPropertyString "src" val + +data DOMHTMLEmbedElementSrcPropertyInfo +instance AttrInfo DOMHTMLEmbedElementSrcPropertyInfo where + type AttrAllowedOps DOMHTMLEmbedElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLEmbedElementSrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLEmbedElementSrcPropertyInfo = DOMHTMLEmbedElementK + type AttrGetType DOMHTMLEmbedElementSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLEmbedElementSrcPropertyInfo = "DOMHTMLEmbedElement::src" + attrGet _ = getDOMHTMLEmbedElementSrc + attrSet _ = setDOMHTMLEmbedElementSrc + attrConstruct _ = constructDOMHTMLEmbedElementSrc + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m T.Text +getDOMHTMLEmbedElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLEmbedElementType :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> T.Text -> m () +setDOMHTMLEmbedElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLEmbedElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLEmbedElementType val = constructObjectPropertyString "type" val + +data DOMHTMLEmbedElementTypePropertyInfo +instance AttrInfo DOMHTMLEmbedElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLEmbedElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLEmbedElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLEmbedElementTypePropertyInfo = DOMHTMLEmbedElementK + type AttrGetType DOMHTMLEmbedElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLEmbedElementTypePropertyInfo = "DOMHTMLEmbedElement::type" + attrGet _ = getDOMHTMLEmbedElementType + attrSet _ = setDOMHTMLEmbedElementType + attrConstruct _ = constructDOMHTMLEmbedElementType + +-- VVV Prop "width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLEmbedElementWidth :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> m Int64 +getDOMHTMLEmbedElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" + +setDOMHTMLEmbedElementWidth :: (MonadIO m, DOMHTMLEmbedElementK o) => o -> Int64 -> m () +setDOMHTMLEmbedElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val + +constructDOMHTMLEmbedElementWidth :: Int64 -> IO ([Char], GValue) +constructDOMHTMLEmbedElementWidth val = constructObjectPropertyInt64 "width" val + +data DOMHTMLEmbedElementWidthPropertyInfo +instance AttrInfo DOMHTMLEmbedElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLEmbedElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLEmbedElementWidthPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLEmbedElementWidthPropertyInfo = DOMHTMLEmbedElementK + type AttrGetType DOMHTMLEmbedElementWidthPropertyInfo = Int64 + type AttrLabel DOMHTMLEmbedElementWidthPropertyInfo = "DOMHTMLEmbedElement::width" + attrGet _ = getDOMHTMLEmbedElementWidth + attrSet _ = setDOMHTMLEmbedElementWidth + attrConstruct _ = constructDOMHTMLEmbedElementWidth + +type instance AttributeList DOMHTMLEmbedElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLEmbedElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLEmbedElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLEmbedElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLEmbedElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLEmbedElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLEmbedElementWidthPropertyInfo)] + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFieldSetElementDisabled :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m Bool +getDOMHTMLFieldSetElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLFieldSetElementDisabled :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> Bool -> m () +setDOMHTMLFieldSetElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLFieldSetElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLFieldSetElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLFieldSetElementDisabledPropertyInfo +instance AttrInfo DOMHTMLFieldSetElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLFieldSetElementDisabledPropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLFieldSetElementDisabledPropertyInfo = "DOMHTMLFieldSetElement::disabled" + attrGet _ = getDOMHTMLFieldSetElementDisabled + attrSet _ = setDOMHTMLFieldSetElementDisabled + attrConstruct _ = constructDOMHTMLFieldSetElementDisabled + +-- VVV Prop "elements" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLFieldSetElementElements :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMHTMLCollection +getDOMHTMLFieldSetElementElements obj = liftIO $ getObjectPropertyObject obj "elements" DOMHTMLCollection + +data DOMHTMLFieldSetElementElementsPropertyInfo +instance AttrInfo DOMHTMLFieldSetElementElementsPropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementElementsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementElementsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFieldSetElementElementsPropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementElementsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLFieldSetElementElementsPropertyInfo = "DOMHTMLFieldSetElement::elements" + attrGet _ = getDOMHTMLFieldSetElementElements + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLFieldSetElementForm :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLFieldSetElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLFieldSetElementFormPropertyInfo +instance AttrInfo DOMHTMLFieldSetElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFieldSetElementFormPropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLFieldSetElementFormPropertyInfo = "DOMHTMLFieldSetElement::form" + attrGet _ = getDOMHTMLFieldSetElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text +getDOMHTMLFieldSetElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLFieldSetElementName :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> T.Text -> m () +setDOMHTMLFieldSetElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLFieldSetElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFieldSetElementName val = constructObjectPropertyString "name" val + +data DOMHTMLFieldSetElementNamePropertyInfo +instance AttrInfo DOMHTMLFieldSetElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFieldSetElementNamePropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLFieldSetElementNamePropertyInfo = "DOMHTMLFieldSetElement::name" + attrGet _ = getDOMHTMLFieldSetElementName + attrSet _ = setDOMHTMLFieldSetElementName + attrConstruct _ = constructDOMHTMLFieldSetElementName + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLFieldSetElementType :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text +getDOMHTMLFieldSetElementType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMHTMLFieldSetElementTypePropertyInfo +instance AttrInfo DOMHTMLFieldSetElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFieldSetElementTypePropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLFieldSetElementTypePropertyInfo = "DOMHTMLFieldSetElement::type" + attrGet _ = getDOMHTMLFieldSetElementType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validation-message" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLFieldSetElementValidationMessage :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m T.Text +getDOMHTMLFieldSetElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" + +data DOMHTMLFieldSetElementValidationMessagePropertyInfo +instance AttrInfo DOMHTMLFieldSetElementValidationMessagePropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementValidationMessagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFieldSetElementValidationMessagePropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementValidationMessagePropertyInfo = T.Text + type AttrLabel DOMHTMLFieldSetElementValidationMessagePropertyInfo = "DOMHTMLFieldSetElement::validation-message" + attrGet _ = getDOMHTMLFieldSetElementValidationMessage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validity" + -- Type: TInterface "WebKit" "DOMValidityState" + -- Flags: [PropertyReadable] + +getDOMHTMLFieldSetElementValidity :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m DOMValidityState +getDOMHTMLFieldSetElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState + +data DOMHTMLFieldSetElementValidityPropertyInfo +instance AttrInfo DOMHTMLFieldSetElementValidityPropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementValidityPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementValidityPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFieldSetElementValidityPropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementValidityPropertyInfo = DOMValidityState + type AttrLabel DOMHTMLFieldSetElementValidityPropertyInfo = "DOMHTMLFieldSetElement::validity" + attrGet _ = getDOMHTMLFieldSetElementValidity + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "will-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLFieldSetElementWillValidate :: (MonadIO m, DOMHTMLFieldSetElementK o) => o -> m Bool +getDOMHTMLFieldSetElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" + +data DOMHTMLFieldSetElementWillValidatePropertyInfo +instance AttrInfo DOMHTMLFieldSetElementWillValidatePropertyInfo where + type AttrAllowedOps DOMHTMLFieldSetElementWillValidatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFieldSetElementWillValidatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFieldSetElementWillValidatePropertyInfo = DOMHTMLFieldSetElementK + type AttrGetType DOMHTMLFieldSetElementWillValidatePropertyInfo = Bool + type AttrLabel DOMHTMLFieldSetElementWillValidatePropertyInfo = "DOMHTMLFieldSetElement::will-validate" + attrGet _ = getDOMHTMLFieldSetElementWillValidate + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLFieldSetElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLFieldSetElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("elements", DOMHTMLFieldSetElementElementsPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLFieldSetElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLFieldSetElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLFieldSetElementTypePropertyInfo), '("validation-message", DOMHTMLFieldSetElementValidationMessagePropertyInfo), '("validity", DOMHTMLFieldSetElementValidityPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLFieldSetElementWillValidatePropertyInfo)] + +-- VVV Prop "color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFontElementColor :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text +getDOMHTMLFontElementColor obj = liftIO $ getObjectPropertyString obj "color" + +setDOMHTMLFontElementColor :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () +setDOMHTMLFontElementColor obj val = liftIO $ setObjectPropertyString obj "color" val + +constructDOMHTMLFontElementColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFontElementColor val = constructObjectPropertyString "color" val + +data DOMHTMLFontElementColorPropertyInfo +instance AttrInfo DOMHTMLFontElementColorPropertyInfo where + type AttrAllowedOps DOMHTMLFontElementColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFontElementColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFontElementColorPropertyInfo = DOMHTMLFontElementK + type AttrGetType DOMHTMLFontElementColorPropertyInfo = T.Text + type AttrLabel DOMHTMLFontElementColorPropertyInfo = "DOMHTMLFontElement::color" + attrGet _ = getDOMHTMLFontElementColor + attrSet _ = setDOMHTMLFontElementColor + attrConstruct _ = constructDOMHTMLFontElementColor + +-- VVV Prop "face" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFontElementFace :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text +getDOMHTMLFontElementFace obj = liftIO $ getObjectPropertyString obj "face" + +setDOMHTMLFontElementFace :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () +setDOMHTMLFontElementFace obj val = liftIO $ setObjectPropertyString obj "face" val + +constructDOMHTMLFontElementFace :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFontElementFace val = constructObjectPropertyString "face" val + +data DOMHTMLFontElementFacePropertyInfo +instance AttrInfo DOMHTMLFontElementFacePropertyInfo where + type AttrAllowedOps DOMHTMLFontElementFacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFontElementFacePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFontElementFacePropertyInfo = DOMHTMLFontElementK + type AttrGetType DOMHTMLFontElementFacePropertyInfo = T.Text + type AttrLabel DOMHTMLFontElementFacePropertyInfo = "DOMHTMLFontElement::face" + attrGet _ = getDOMHTMLFontElementFace + attrSet _ = setDOMHTMLFontElementFace + attrConstruct _ = constructDOMHTMLFontElementFace + +-- VVV Prop "size" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFontElementSize :: (MonadIO m, DOMHTMLFontElementK o) => o -> m T.Text +getDOMHTMLFontElementSize obj = liftIO $ getObjectPropertyString obj "size" + +setDOMHTMLFontElementSize :: (MonadIO m, DOMHTMLFontElementK o) => o -> T.Text -> m () +setDOMHTMLFontElementSize obj val = liftIO $ setObjectPropertyString obj "size" val + +constructDOMHTMLFontElementSize :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFontElementSize val = constructObjectPropertyString "size" val + +data DOMHTMLFontElementSizePropertyInfo +instance AttrInfo DOMHTMLFontElementSizePropertyInfo where + type AttrAllowedOps DOMHTMLFontElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFontElementSizePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFontElementSizePropertyInfo = DOMHTMLFontElementK + type AttrGetType DOMHTMLFontElementSizePropertyInfo = T.Text + type AttrLabel DOMHTMLFontElementSizePropertyInfo = "DOMHTMLFontElement::size" + attrGet _ = getDOMHTMLFontElementSize + attrSet _ = setDOMHTMLFontElementSize + attrConstruct _ = constructDOMHTMLFontElementSize + +type instance AttributeList DOMHTMLFontElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("color", DOMHTMLFontElementColorPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("face", DOMHTMLFontElementFacePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLFontElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "accept-charset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementAcceptCharset :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementAcceptCharset obj = liftIO $ getObjectPropertyString obj "accept-charset" + +setDOMHTMLFormElementAcceptCharset :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementAcceptCharset obj val = liftIO $ setObjectPropertyString obj "accept-charset" val + +constructDOMHTMLFormElementAcceptCharset :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementAcceptCharset val = constructObjectPropertyString "accept-charset" val + +data DOMHTMLFormElementAcceptCharsetPropertyInfo +instance AttrInfo DOMHTMLFormElementAcceptCharsetPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementAcceptCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementAcceptCharsetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementAcceptCharsetPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementAcceptCharsetPropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementAcceptCharsetPropertyInfo = "DOMHTMLFormElement::accept-charset" + attrGet _ = getDOMHTMLFormElementAcceptCharset + attrSet _ = setDOMHTMLFormElementAcceptCharset + attrConstruct _ = constructDOMHTMLFormElementAcceptCharset + +-- VVV Prop "action" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementAction :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementAction obj = liftIO $ getObjectPropertyString obj "action" + +setDOMHTMLFormElementAction :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementAction obj val = liftIO $ setObjectPropertyString obj "action" val + +constructDOMHTMLFormElementAction :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementAction val = constructObjectPropertyString "action" val + +data DOMHTMLFormElementActionPropertyInfo +instance AttrInfo DOMHTMLFormElementActionPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementActionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementActionPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementActionPropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementActionPropertyInfo = "DOMHTMLFormElement::action" + attrGet _ = getDOMHTMLFormElementAction + attrSet _ = setDOMHTMLFormElementAction + attrConstruct _ = constructDOMHTMLFormElementAction + +-- VVV Prop "autocapitalize" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" + +setDOMHTMLFormElementAutocapitalize :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val + +constructDOMHTMLFormElementAutocapitalize :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val + +data DOMHTMLFormElementAutocapitalizePropertyInfo +instance AttrInfo DOMHTMLFormElementAutocapitalizePropertyInfo where + type AttrAllowedOps DOMHTMLFormElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementAutocapitalizePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementAutocapitalizePropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementAutocapitalizePropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementAutocapitalizePropertyInfo = "DOMHTMLFormElement::autocapitalize" + attrGet _ = getDOMHTMLFormElementAutocapitalize + attrSet _ = setDOMHTMLFormElementAutocapitalize + attrConstruct _ = constructDOMHTMLFormElementAutocapitalize + +-- VVV Prop "autocomplete" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete" + +setDOMHTMLFormElementAutocomplete :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" val + +constructDOMHTMLFormElementAutocomplete :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementAutocomplete val = constructObjectPropertyString "autocomplete" val + +data DOMHTMLFormElementAutocompletePropertyInfo +instance AttrInfo DOMHTMLFormElementAutocompletePropertyInfo where + type AttrAllowedOps DOMHTMLFormElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementAutocompletePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementAutocompletePropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementAutocompletePropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementAutocompletePropertyInfo = "DOMHTMLFormElement::autocomplete" + attrGet _ = getDOMHTMLFormElementAutocomplete + attrSet _ = setDOMHTMLFormElementAutocomplete + attrConstruct _ = constructDOMHTMLFormElementAutocomplete + +-- VVV Prop "autocorrect" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementAutocorrect :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Bool +getDOMHTMLFormElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" + +setDOMHTMLFormElementAutocorrect :: (MonadIO m, DOMHTMLFormElementK o) => o -> Bool -> m () +setDOMHTMLFormElementAutocorrect obj val = liftIO $ setObjectPropertyBool obj "autocorrect" val + +constructDOMHTMLFormElementAutocorrect :: Bool -> IO ([Char], GValue) +constructDOMHTMLFormElementAutocorrect val = constructObjectPropertyBool "autocorrect" val + +data DOMHTMLFormElementAutocorrectPropertyInfo +instance AttrInfo DOMHTMLFormElementAutocorrectPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementAutocorrectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementAutocorrectPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLFormElementAutocorrectPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementAutocorrectPropertyInfo = Bool + type AttrLabel DOMHTMLFormElementAutocorrectPropertyInfo = "DOMHTMLFormElement::autocorrect" + attrGet _ = getDOMHTMLFormElementAutocorrect + attrSet _ = setDOMHTMLFormElementAutocorrect + attrConstruct _ = constructDOMHTMLFormElementAutocorrect + +-- VVV Prop "elements" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLFormElementElements :: (MonadIO m, DOMHTMLFormElementK o) => o -> m DOMHTMLCollection +getDOMHTMLFormElementElements obj = liftIO $ getObjectPropertyObject obj "elements" DOMHTMLCollection + +data DOMHTMLFormElementElementsPropertyInfo +instance AttrInfo DOMHTMLFormElementElementsPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementElementsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementElementsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFormElementElementsPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementElementsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLFormElementElementsPropertyInfo = "DOMHTMLFormElement::elements" + attrGet _ = getDOMHTMLFormElementElements + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "encoding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementEncoding :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementEncoding obj = liftIO $ getObjectPropertyString obj "encoding" + +setDOMHTMLFormElementEncoding :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementEncoding obj val = liftIO $ setObjectPropertyString obj "encoding" val + +constructDOMHTMLFormElementEncoding :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementEncoding val = constructObjectPropertyString "encoding" val + +data DOMHTMLFormElementEncodingPropertyInfo +instance AttrInfo DOMHTMLFormElementEncodingPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementEncodingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementEncodingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementEncodingPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementEncodingPropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementEncodingPropertyInfo = "DOMHTMLFormElement::encoding" + attrGet _ = getDOMHTMLFormElementEncoding + attrSet _ = setDOMHTMLFormElementEncoding + attrConstruct _ = constructDOMHTMLFormElementEncoding + +-- VVV Prop "enctype" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementEnctype :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementEnctype obj = liftIO $ getObjectPropertyString obj "enctype" + +setDOMHTMLFormElementEnctype :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementEnctype obj val = liftIO $ setObjectPropertyString obj "enctype" val + +constructDOMHTMLFormElementEnctype :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementEnctype val = constructObjectPropertyString "enctype" val + +data DOMHTMLFormElementEnctypePropertyInfo +instance AttrInfo DOMHTMLFormElementEnctypePropertyInfo where + type AttrAllowedOps DOMHTMLFormElementEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementEnctypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementEnctypePropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementEnctypePropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementEnctypePropertyInfo = "DOMHTMLFormElement::enctype" + attrGet _ = getDOMHTMLFormElementEnctype + attrSet _ = setDOMHTMLFormElementEnctype + attrConstruct _ = constructDOMHTMLFormElementEnctype + +-- VVV Prop "length" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLFormElementLength :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Int64 +getDOMHTMLFormElementLength obj = liftIO $ getObjectPropertyInt64 obj "length" + +data DOMHTMLFormElementLengthPropertyInfo +instance AttrInfo DOMHTMLFormElementLengthPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFormElementLengthPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementLengthPropertyInfo = Int64 + type AttrLabel DOMHTMLFormElementLengthPropertyInfo = "DOMHTMLFormElement::length" + attrGet _ = getDOMHTMLFormElementLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "method" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementMethod :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementMethod obj = liftIO $ getObjectPropertyString obj "method" + +setDOMHTMLFormElementMethod :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementMethod obj val = liftIO $ setObjectPropertyString obj "method" val + +constructDOMHTMLFormElementMethod :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementMethod val = constructObjectPropertyString "method" val + +data DOMHTMLFormElementMethodPropertyInfo +instance AttrInfo DOMHTMLFormElementMethodPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementMethodPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementMethodPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementMethodPropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementMethodPropertyInfo = "DOMHTMLFormElement::method" + attrGet _ = getDOMHTMLFormElementMethod + attrSet _ = setDOMHTMLFormElementMethod + attrConstruct _ = constructDOMHTMLFormElementMethod + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementName :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLFormElementName :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLFormElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementName val = constructObjectPropertyString "name" val + +data DOMHTMLFormElementNamePropertyInfo +instance AttrInfo DOMHTMLFormElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLFormElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementNamePropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementNamePropertyInfo = "DOMHTMLFormElement::name" + attrGet _ = getDOMHTMLFormElementName + attrSet _ = setDOMHTMLFormElementName + attrConstruct _ = constructDOMHTMLFormElementName + +-- VVV Prop "no-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementNoValidate :: (MonadIO m, DOMHTMLFormElementK o) => o -> m Bool +getDOMHTMLFormElementNoValidate obj = liftIO $ getObjectPropertyBool obj "no-validate" + +setDOMHTMLFormElementNoValidate :: (MonadIO m, DOMHTMLFormElementK o) => o -> Bool -> m () +setDOMHTMLFormElementNoValidate obj val = liftIO $ setObjectPropertyBool obj "no-validate" val + +constructDOMHTMLFormElementNoValidate :: Bool -> IO ([Char], GValue) +constructDOMHTMLFormElementNoValidate val = constructObjectPropertyBool "no-validate" val + +data DOMHTMLFormElementNoValidatePropertyInfo +instance AttrInfo DOMHTMLFormElementNoValidatePropertyInfo where + type AttrAllowedOps DOMHTMLFormElementNoValidatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementNoValidatePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLFormElementNoValidatePropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementNoValidatePropertyInfo = Bool + type AttrLabel DOMHTMLFormElementNoValidatePropertyInfo = "DOMHTMLFormElement::no-validate" + attrGet _ = getDOMHTMLFormElementNoValidate + attrSet _ = setDOMHTMLFormElementNoValidate + attrConstruct _ = constructDOMHTMLFormElementNoValidate + +-- VVV Prop "target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFormElementTarget :: (MonadIO m, DOMHTMLFormElementK o) => o -> m T.Text +getDOMHTMLFormElementTarget obj = liftIO $ getObjectPropertyString obj "target" + +setDOMHTMLFormElementTarget :: (MonadIO m, DOMHTMLFormElementK o) => o -> T.Text -> m () +setDOMHTMLFormElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val + +constructDOMHTMLFormElementTarget :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFormElementTarget val = constructObjectPropertyString "target" val + +data DOMHTMLFormElementTargetPropertyInfo +instance AttrInfo DOMHTMLFormElementTargetPropertyInfo where + type AttrAllowedOps DOMHTMLFormElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFormElementTargetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFormElementTargetPropertyInfo = DOMHTMLFormElementK + type AttrGetType DOMHTMLFormElementTargetPropertyInfo = T.Text + type AttrLabel DOMHTMLFormElementTargetPropertyInfo = "DOMHTMLFormElement::target" + attrGet _ = getDOMHTMLFormElementTarget + attrSet _ = setDOMHTMLFormElementTarget + attrConstruct _ = constructDOMHTMLFormElementTarget + +type instance AttributeList DOMHTMLFormElement = '[ '("accept-charset", DOMHTMLFormElementAcceptCharsetPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("action", DOMHTMLFormElementActionPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLFormElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLFormElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLFormElementAutocorrectPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("elements", DOMHTMLFormElementElementsPropertyInfo), '("encoding", DOMHTMLFormElementEncodingPropertyInfo), '("enctype", DOMHTMLFormElementEnctypePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("length", DOMHTMLFormElementLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("method", DOMHTMLFormElementMethodPropertyInfo), '("name", DOMHTMLFormElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-validate", DOMHTMLFormElementNoValidatePropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLFormElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "content-document" + -- Type: TInterface "WebKit" "DOMDocument" + -- Flags: [PropertyReadable] + +getDOMHTMLFrameElementContentDocument :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m DOMDocument +getDOMHTMLFrameElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument + +data DOMHTMLFrameElementContentDocumentPropertyInfo +instance AttrInfo DOMHTMLFrameElementContentDocumentPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementContentDocumentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementContentDocumentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFrameElementContentDocumentPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementContentDocumentPropertyInfo = DOMDocument + type AttrLabel DOMHTMLFrameElementContentDocumentPropertyInfo = "DOMHTMLFrameElement::content-document" + attrGet _ = getDOMHTMLFrameElementContentDocument + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "content-window" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMHTMLFrameElementContentWindow :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m DOMDOMWindow +getDOMHTMLFrameElementContentWindow obj = liftIO $ getObjectPropertyObject obj "content-window" DOMDOMWindow + +data DOMHTMLFrameElementContentWindowPropertyInfo +instance AttrInfo DOMHTMLFrameElementContentWindowPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementContentWindowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementContentWindowPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFrameElementContentWindowPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementContentWindowPropertyInfo = DOMDOMWindow + type AttrLabel DOMHTMLFrameElementContentWindowPropertyInfo = "DOMHTMLFrameElement::content-window" + attrGet _ = getDOMHTMLFrameElementContentWindow + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "frame-border" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementFrameBorder :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementFrameBorder obj = liftIO $ getObjectPropertyString obj "frame-border" + +setDOMHTMLFrameElementFrameBorder :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () +setDOMHTMLFrameElementFrameBorder obj val = liftIO $ setObjectPropertyString obj "frame-border" val + +constructDOMHTMLFrameElementFrameBorder :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameElementFrameBorder val = constructObjectPropertyString "frame-border" val + +data DOMHTMLFrameElementFrameBorderPropertyInfo +instance AttrInfo DOMHTMLFrameElementFrameBorderPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementFrameBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementFrameBorderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameElementFrameBorderPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementFrameBorderPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameElementFrameBorderPropertyInfo = "DOMHTMLFrameElement::frame-border" + attrGet _ = getDOMHTMLFrameElementFrameBorder + attrSet _ = setDOMHTMLFrameElementFrameBorder + attrConstruct _ = constructDOMHTMLFrameElementFrameBorder + +-- VVV Prop "height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLFrameElementHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Int64 +getDOMHTMLFrameElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" + +data DOMHTMLFrameElementHeightPropertyInfo +instance AttrInfo DOMHTMLFrameElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFrameElementHeightPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementHeightPropertyInfo = Int64 + type AttrLabel DOMHTMLFrameElementHeightPropertyInfo = "DOMHTMLFrameElement::height" + attrGet _ = getDOMHTMLFrameElementHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "long-desc" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementLongDesc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc" + +setDOMHTMLFrameElementLongDesc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () +setDOMHTMLFrameElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val + +constructDOMHTMLFrameElementLongDesc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameElementLongDesc val = constructObjectPropertyString "long-desc" val + +data DOMHTMLFrameElementLongDescPropertyInfo +instance AttrInfo DOMHTMLFrameElementLongDescPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementLongDescPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameElementLongDescPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementLongDescPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameElementLongDescPropertyInfo = "DOMHTMLFrameElement::long-desc" + attrGet _ = getDOMHTMLFrameElementLongDesc + attrSet _ = setDOMHTMLFrameElementLongDesc + attrConstruct _ = constructDOMHTMLFrameElementLongDesc + +-- VVV Prop "margin-height" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementMarginHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementMarginHeight obj = liftIO $ getObjectPropertyString obj "margin-height" + +setDOMHTMLFrameElementMarginHeight :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () +setDOMHTMLFrameElementMarginHeight obj val = liftIO $ setObjectPropertyString obj "margin-height" val + +constructDOMHTMLFrameElementMarginHeight :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameElementMarginHeight val = constructObjectPropertyString "margin-height" val + +data DOMHTMLFrameElementMarginHeightPropertyInfo +instance AttrInfo DOMHTMLFrameElementMarginHeightPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementMarginHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementMarginHeightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameElementMarginHeightPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementMarginHeightPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameElementMarginHeightPropertyInfo = "DOMHTMLFrameElement::margin-height" + attrGet _ = getDOMHTMLFrameElementMarginHeight + attrSet _ = setDOMHTMLFrameElementMarginHeight + attrConstruct _ = constructDOMHTMLFrameElementMarginHeight + +-- VVV Prop "margin-width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementMarginWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementMarginWidth obj = liftIO $ getObjectPropertyString obj "margin-width" + +setDOMHTMLFrameElementMarginWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () +setDOMHTMLFrameElementMarginWidth obj val = liftIO $ setObjectPropertyString obj "margin-width" val + +constructDOMHTMLFrameElementMarginWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameElementMarginWidth val = constructObjectPropertyString "margin-width" val + +data DOMHTMLFrameElementMarginWidthPropertyInfo +instance AttrInfo DOMHTMLFrameElementMarginWidthPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementMarginWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementMarginWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameElementMarginWidthPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementMarginWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameElementMarginWidthPropertyInfo = "DOMHTMLFrameElement::margin-width" + attrGet _ = getDOMHTMLFrameElementMarginWidth + attrSet _ = setDOMHTMLFrameElementMarginWidth + attrConstruct _ = constructDOMHTMLFrameElementMarginWidth + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementName :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLFrameElementName :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () +setDOMHTMLFrameElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLFrameElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameElementName val = constructObjectPropertyString "name" val + +data DOMHTMLFrameElementNamePropertyInfo +instance AttrInfo DOMHTMLFrameElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameElementNamePropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLFrameElementNamePropertyInfo = "DOMHTMLFrameElement::name" + attrGet _ = getDOMHTMLFrameElementName + attrSet _ = setDOMHTMLFrameElementName + attrConstruct _ = constructDOMHTMLFrameElementName + +-- VVV Prop "no-resize" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementNoResize :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Bool +getDOMHTMLFrameElementNoResize obj = liftIO $ getObjectPropertyBool obj "no-resize" + +setDOMHTMLFrameElementNoResize :: (MonadIO m, DOMHTMLFrameElementK o) => o -> Bool -> m () +setDOMHTMLFrameElementNoResize obj val = liftIO $ setObjectPropertyBool obj "no-resize" val + +constructDOMHTMLFrameElementNoResize :: Bool -> IO ([Char], GValue) +constructDOMHTMLFrameElementNoResize val = constructObjectPropertyBool "no-resize" val + +data DOMHTMLFrameElementNoResizePropertyInfo +instance AttrInfo DOMHTMLFrameElementNoResizePropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementNoResizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementNoResizePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLFrameElementNoResizePropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementNoResizePropertyInfo = Bool + type AttrLabel DOMHTMLFrameElementNoResizePropertyInfo = "DOMHTMLFrameElement::no-resize" + attrGet _ = getDOMHTMLFrameElementNoResize + attrSet _ = setDOMHTMLFrameElementNoResize + attrConstruct _ = constructDOMHTMLFrameElementNoResize + +-- VVV Prop "scrolling" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementScrolling :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementScrolling obj = liftIO $ getObjectPropertyString obj "scrolling" + +setDOMHTMLFrameElementScrolling :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () +setDOMHTMLFrameElementScrolling obj val = liftIO $ setObjectPropertyString obj "scrolling" val + +constructDOMHTMLFrameElementScrolling :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameElementScrolling val = constructObjectPropertyString "scrolling" val + +data DOMHTMLFrameElementScrollingPropertyInfo +instance AttrInfo DOMHTMLFrameElementScrollingPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementScrollingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameElementScrollingPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementScrollingPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameElementScrollingPropertyInfo = "DOMHTMLFrameElement::scrolling" + attrGet _ = getDOMHTMLFrameElementScrolling + attrSet _ = setDOMHTMLFrameElementScrolling + attrConstruct _ = constructDOMHTMLFrameElementScrolling + +-- VVV Prop "src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameElementSrc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m T.Text +getDOMHTMLFrameElementSrc obj = liftIO $ getObjectPropertyString obj "src" + +setDOMHTMLFrameElementSrc :: (MonadIO m, DOMHTMLFrameElementK o) => o -> T.Text -> m () +setDOMHTMLFrameElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val + +constructDOMHTMLFrameElementSrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameElementSrc val = constructObjectPropertyString "src" val + +data DOMHTMLFrameElementSrcPropertyInfo +instance AttrInfo DOMHTMLFrameElementSrcPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementSrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameElementSrcPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameElementSrcPropertyInfo = "DOMHTMLFrameElement::src" + attrGet _ = getDOMHTMLFrameElementSrc + attrSet _ = setDOMHTMLFrameElementSrc + attrConstruct _ = constructDOMHTMLFrameElementSrc + +-- VVV Prop "width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLFrameElementWidth :: (MonadIO m, DOMHTMLFrameElementK o) => o -> m Int64 +getDOMHTMLFrameElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" + +data DOMHTMLFrameElementWidthPropertyInfo +instance AttrInfo DOMHTMLFrameElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLFrameElementWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameElementWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLFrameElementWidthPropertyInfo = DOMHTMLFrameElementK + type AttrGetType DOMHTMLFrameElementWidthPropertyInfo = Int64 + type AttrLabel DOMHTMLFrameElementWidthPropertyInfo = "DOMHTMLFrameElement::width" + attrGet _ = getDOMHTMLFrameElementWidth + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLFrameElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-document", DOMHTMLFrameElementContentDocumentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("content-window", DOMHTMLFrameElementContentWindowPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("frame-border", DOMHTMLFrameElementFrameBorderPropertyInfo), '("height", DOMHTMLFrameElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("long-desc", DOMHTMLFrameElementLongDescPropertyInfo), '("margin-height", DOMHTMLFrameElementMarginHeightPropertyInfo), '("margin-width", DOMHTMLFrameElementMarginWidthPropertyInfo), '("name", DOMHTMLFrameElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-resize", DOMHTMLFrameElementNoResizePropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("scrolling", DOMHTMLFrameElementScrollingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLFrameElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLFrameElementWidthPropertyInfo)] + +-- VVV Prop "cols" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameSetElementCols :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> m T.Text +getDOMHTMLFrameSetElementCols obj = liftIO $ getObjectPropertyString obj "cols" + +setDOMHTMLFrameSetElementCols :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> T.Text -> m () +setDOMHTMLFrameSetElementCols obj val = liftIO $ setObjectPropertyString obj "cols" val + +constructDOMHTMLFrameSetElementCols :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameSetElementCols val = constructObjectPropertyString "cols" val + +data DOMHTMLFrameSetElementColsPropertyInfo +instance AttrInfo DOMHTMLFrameSetElementColsPropertyInfo where + type AttrAllowedOps DOMHTMLFrameSetElementColsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameSetElementColsPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameSetElementColsPropertyInfo = DOMHTMLFrameSetElementK + type AttrGetType DOMHTMLFrameSetElementColsPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameSetElementColsPropertyInfo = "DOMHTMLFrameSetElement::cols" + attrGet _ = getDOMHTMLFrameSetElementCols + attrSet _ = setDOMHTMLFrameSetElementCols + attrConstruct _ = constructDOMHTMLFrameSetElementCols + +-- VVV Prop "rows" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLFrameSetElementRows :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> m T.Text +getDOMHTMLFrameSetElementRows obj = liftIO $ getObjectPropertyString obj "rows" + +setDOMHTMLFrameSetElementRows :: (MonadIO m, DOMHTMLFrameSetElementK o) => o -> T.Text -> m () +setDOMHTMLFrameSetElementRows obj val = liftIO $ setObjectPropertyString obj "rows" val + +constructDOMHTMLFrameSetElementRows :: T.Text -> IO ([Char], GValue) +constructDOMHTMLFrameSetElementRows val = constructObjectPropertyString "rows" val + +data DOMHTMLFrameSetElementRowsPropertyInfo +instance AttrInfo DOMHTMLFrameSetElementRowsPropertyInfo where + type AttrAllowedOps DOMHTMLFrameSetElementRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLFrameSetElementRowsPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLFrameSetElementRowsPropertyInfo = DOMHTMLFrameSetElementK + type AttrGetType DOMHTMLFrameSetElementRowsPropertyInfo = T.Text + type AttrLabel DOMHTMLFrameSetElementRowsPropertyInfo = "DOMHTMLFrameSetElement::rows" + attrGet _ = getDOMHTMLFrameSetElementRows + attrSet _ = setDOMHTMLFrameSetElementRows + attrConstruct _ = constructDOMHTMLFrameSetElementRows + +type instance AttributeList DOMHTMLFrameSetElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("cols", DOMHTMLFrameSetElementColsPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLFrameSetElementRowsPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHRElementAlign :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text +getDOMHTMLHRElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLHRElementAlign :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () +setDOMHTMLHRElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLHRElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLHRElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLHRElementAlignPropertyInfo +instance AttrInfo DOMHTMLHRElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLHRElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHRElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLHRElementAlignPropertyInfo = DOMHTMLHRElementK + type AttrGetType DOMHTMLHRElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLHRElementAlignPropertyInfo = "DOMHTMLHRElement::align" + attrGet _ = getDOMHTMLHRElementAlign + attrSet _ = setDOMHTMLHRElementAlign + attrConstruct _ = constructDOMHTMLHRElementAlign + +-- VVV Prop "no-shade" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHRElementNoShade :: (MonadIO m, DOMHTMLHRElementK o) => o -> m Bool +getDOMHTMLHRElementNoShade obj = liftIO $ getObjectPropertyBool obj "no-shade" + +setDOMHTMLHRElementNoShade :: (MonadIO m, DOMHTMLHRElementK o) => o -> Bool -> m () +setDOMHTMLHRElementNoShade obj val = liftIO $ setObjectPropertyBool obj "no-shade" val + +constructDOMHTMLHRElementNoShade :: Bool -> IO ([Char], GValue) +constructDOMHTMLHRElementNoShade val = constructObjectPropertyBool "no-shade" val + +data DOMHTMLHRElementNoShadePropertyInfo +instance AttrInfo DOMHTMLHRElementNoShadePropertyInfo where + type AttrAllowedOps DOMHTMLHRElementNoShadePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHRElementNoShadePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLHRElementNoShadePropertyInfo = DOMHTMLHRElementK + type AttrGetType DOMHTMLHRElementNoShadePropertyInfo = Bool + type AttrLabel DOMHTMLHRElementNoShadePropertyInfo = "DOMHTMLHRElement::no-shade" + attrGet _ = getDOMHTMLHRElementNoShade + attrSet _ = setDOMHTMLHRElementNoShade + attrConstruct _ = constructDOMHTMLHRElementNoShade + +-- VVV Prop "size" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHRElementSize :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text +getDOMHTMLHRElementSize obj = liftIO $ getObjectPropertyString obj "size" + +setDOMHTMLHRElementSize :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () +setDOMHTMLHRElementSize obj val = liftIO $ setObjectPropertyString obj "size" val + +constructDOMHTMLHRElementSize :: T.Text -> IO ([Char], GValue) +constructDOMHTMLHRElementSize val = constructObjectPropertyString "size" val + +data DOMHTMLHRElementSizePropertyInfo +instance AttrInfo DOMHTMLHRElementSizePropertyInfo where + type AttrAllowedOps DOMHTMLHRElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHRElementSizePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLHRElementSizePropertyInfo = DOMHTMLHRElementK + type AttrGetType DOMHTMLHRElementSizePropertyInfo = T.Text + type AttrLabel DOMHTMLHRElementSizePropertyInfo = "DOMHTMLHRElement::size" + attrGet _ = getDOMHTMLHRElementSize + attrSet _ = setDOMHTMLHRElementSize + attrConstruct _ = constructDOMHTMLHRElementSize + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHRElementWidth :: (MonadIO m, DOMHTMLHRElementK o) => o -> m T.Text +getDOMHTMLHRElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLHRElementWidth :: (MonadIO m, DOMHTMLHRElementK o) => o -> T.Text -> m () +setDOMHTMLHRElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLHRElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLHRElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLHRElementWidthPropertyInfo +instance AttrInfo DOMHTMLHRElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLHRElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHRElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLHRElementWidthPropertyInfo = DOMHTMLHRElementK + type AttrGetType DOMHTMLHRElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLHRElementWidthPropertyInfo = "DOMHTMLHRElement::width" + attrGet _ = getDOMHTMLHRElementWidth + attrSet _ = setDOMHTMLHRElementWidth + attrConstruct _ = constructDOMHTMLHRElementWidth + +type instance AttributeList DOMHTMLHRElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLHRElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-shade", DOMHTMLHRElementNoShadePropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLHRElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLHRElementWidthPropertyInfo)] + +-- VVV Prop "profile" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHeadElementProfile :: (MonadIO m, DOMHTMLHeadElementK o) => o -> m T.Text +getDOMHTMLHeadElementProfile obj = liftIO $ getObjectPropertyString obj "profile" + +setDOMHTMLHeadElementProfile :: (MonadIO m, DOMHTMLHeadElementK o) => o -> T.Text -> m () +setDOMHTMLHeadElementProfile obj val = liftIO $ setObjectPropertyString obj "profile" val + +constructDOMHTMLHeadElementProfile :: T.Text -> IO ([Char], GValue) +constructDOMHTMLHeadElementProfile val = constructObjectPropertyString "profile" val + +data DOMHTMLHeadElementProfilePropertyInfo +instance AttrInfo DOMHTMLHeadElementProfilePropertyInfo where + type AttrAllowedOps DOMHTMLHeadElementProfilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHeadElementProfilePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLHeadElementProfilePropertyInfo = DOMHTMLHeadElementK + type AttrGetType DOMHTMLHeadElementProfilePropertyInfo = T.Text + type AttrLabel DOMHTMLHeadElementProfilePropertyInfo = "DOMHTMLHeadElement::profile" + attrGet _ = getDOMHTMLHeadElementProfile + attrSet _ = setDOMHTMLHeadElementProfile + attrConstruct _ = constructDOMHTMLHeadElementProfile + +type instance AttributeList DOMHTMLHeadElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("profile", DOMHTMLHeadElementProfilePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHeadingElementAlign :: (MonadIO m, DOMHTMLHeadingElementK o) => o -> m T.Text +getDOMHTMLHeadingElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLHeadingElementAlign :: (MonadIO m, DOMHTMLHeadingElementK o) => o -> T.Text -> m () +setDOMHTMLHeadingElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLHeadingElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLHeadingElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLHeadingElementAlignPropertyInfo +instance AttrInfo DOMHTMLHeadingElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLHeadingElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHeadingElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLHeadingElementAlignPropertyInfo = DOMHTMLHeadingElementK + type AttrGetType DOMHTMLHeadingElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLHeadingElementAlignPropertyInfo = "DOMHTMLHeadingElement::align" + attrGet _ = getDOMHTMLHeadingElementAlign + attrSet _ = setDOMHTMLHeadingElementAlign + attrConstruct _ = constructDOMHTMLHeadingElementAlign + +type instance AttributeList DOMHTMLHeadingElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLHeadingElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "manifest" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m T.Text +getDOMHTMLHtmlElementManifest obj = liftIO $ getObjectPropertyString obj "manifest" + +setDOMHTMLHtmlElementManifest :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> T.Text -> m () +setDOMHTMLHtmlElementManifest obj val = liftIO $ setObjectPropertyString obj "manifest" val + +constructDOMHTMLHtmlElementManifest :: T.Text -> IO ([Char], GValue) +constructDOMHTMLHtmlElementManifest val = constructObjectPropertyString "manifest" val + +data DOMHTMLHtmlElementManifestPropertyInfo +instance AttrInfo DOMHTMLHtmlElementManifestPropertyInfo where + type AttrAllowedOps DOMHTMLHtmlElementManifestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHtmlElementManifestPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLHtmlElementManifestPropertyInfo = DOMHTMLHtmlElementK + type AttrGetType DOMHTMLHtmlElementManifestPropertyInfo = T.Text + type AttrLabel DOMHTMLHtmlElementManifestPropertyInfo = "DOMHTMLHtmlElement::manifest" + attrGet _ = getDOMHTMLHtmlElementManifest + attrSet _ = setDOMHTMLHtmlElementManifest + attrConstruct _ = constructDOMHTMLHtmlElementManifest + +-- VVV Prop "version" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLHtmlElementVersion :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> m T.Text +getDOMHTMLHtmlElementVersion obj = liftIO $ getObjectPropertyString obj "version" + +setDOMHTMLHtmlElementVersion :: (MonadIO m, DOMHTMLHtmlElementK o) => o -> T.Text -> m () +setDOMHTMLHtmlElementVersion obj val = liftIO $ setObjectPropertyString obj "version" val + +constructDOMHTMLHtmlElementVersion :: T.Text -> IO ([Char], GValue) +constructDOMHTMLHtmlElementVersion val = constructObjectPropertyString "version" val + +data DOMHTMLHtmlElementVersionPropertyInfo +instance AttrInfo DOMHTMLHtmlElementVersionPropertyInfo where + type AttrAllowedOps DOMHTMLHtmlElementVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLHtmlElementVersionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLHtmlElementVersionPropertyInfo = DOMHTMLHtmlElementK + type AttrGetType DOMHTMLHtmlElementVersionPropertyInfo = T.Text + type AttrLabel DOMHTMLHtmlElementVersionPropertyInfo = "DOMHTMLHtmlElement::version" + attrGet _ = getDOMHTMLHtmlElementVersion + attrSet _ = setDOMHTMLHtmlElementVersion + attrConstruct _ = constructDOMHTMLHtmlElementVersion + +type instance AttributeList DOMHTMLHtmlElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("manifest", DOMHTMLHtmlElementManifestPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("version", DOMHTMLHtmlElementVersionPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementAlign :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLIFrameElementAlign :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLIFrameElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLIFrameElementAlignPropertyInfo +instance AttrInfo DOMHTMLIFrameElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementAlignPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementAlignPropertyInfo = "DOMHTMLIFrameElement::align" + attrGet _ = getDOMHTMLIFrameElementAlign + attrSet _ = setDOMHTMLIFrameElementAlign + attrConstruct _ = constructDOMHTMLIFrameElementAlign + +-- VVV Prop "content-document" + -- Type: TInterface "WebKit" "DOMDocument" + -- Flags: [PropertyReadable] + +getDOMHTMLIFrameElementContentDocument :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m DOMDocument +getDOMHTMLIFrameElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument + +data DOMHTMLIFrameElementContentDocumentPropertyInfo +instance AttrInfo DOMHTMLIFrameElementContentDocumentPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementContentDocumentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementContentDocumentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLIFrameElementContentDocumentPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementContentDocumentPropertyInfo = DOMDocument + type AttrLabel DOMHTMLIFrameElementContentDocumentPropertyInfo = "DOMHTMLIFrameElement::content-document" + attrGet _ = getDOMHTMLIFrameElementContentDocument + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "content-window" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMHTMLIFrameElementContentWindow :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m DOMDOMWindow +getDOMHTMLIFrameElementContentWindow obj = liftIO $ getObjectPropertyObject obj "content-window" DOMDOMWindow + +data DOMHTMLIFrameElementContentWindowPropertyInfo +instance AttrInfo DOMHTMLIFrameElementContentWindowPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementContentWindowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementContentWindowPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLIFrameElementContentWindowPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementContentWindowPropertyInfo = DOMDOMWindow + type AttrLabel DOMHTMLIFrameElementContentWindowPropertyInfo = "DOMHTMLIFrameElement::content-window" + attrGet _ = getDOMHTMLIFrameElementContentWindow + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "frame-border" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementFrameBorder :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementFrameBorder obj = liftIO $ getObjectPropertyString obj "frame-border" + +setDOMHTMLIFrameElementFrameBorder :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementFrameBorder obj val = liftIO $ setObjectPropertyString obj "frame-border" val + +constructDOMHTMLIFrameElementFrameBorder :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementFrameBorder val = constructObjectPropertyString "frame-border" val + +data DOMHTMLIFrameElementFrameBorderPropertyInfo +instance AttrInfo DOMHTMLIFrameElementFrameBorderPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementFrameBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementFrameBorderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementFrameBorderPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementFrameBorderPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementFrameBorderPropertyInfo = "DOMHTMLIFrameElement::frame-border" + attrGet _ = getDOMHTMLIFrameElementFrameBorder + attrSet _ = setDOMHTMLIFrameElementFrameBorder + attrConstruct _ = constructDOMHTMLIFrameElementFrameBorder + +-- VVV Prop "height" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementHeight obj = liftIO $ getObjectPropertyString obj "height" + +setDOMHTMLIFrameElementHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val + +constructDOMHTMLIFrameElementHeight :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementHeight val = constructObjectPropertyString "height" val + +data DOMHTMLIFrameElementHeightPropertyInfo +instance AttrInfo DOMHTMLIFrameElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementHeightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementHeightPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementHeightPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementHeightPropertyInfo = "DOMHTMLIFrameElement::height" + attrGet _ = getDOMHTMLIFrameElementHeight + attrSet _ = setDOMHTMLIFrameElementHeight + attrConstruct _ = constructDOMHTMLIFrameElementHeight + +-- VVV Prop "long-desc" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementLongDesc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc" + +setDOMHTMLIFrameElementLongDesc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val + +constructDOMHTMLIFrameElementLongDesc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementLongDesc val = constructObjectPropertyString "long-desc" val + +data DOMHTMLIFrameElementLongDescPropertyInfo +instance AttrInfo DOMHTMLIFrameElementLongDescPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementLongDescPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementLongDescPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementLongDescPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementLongDescPropertyInfo = "DOMHTMLIFrameElement::long-desc" + attrGet _ = getDOMHTMLIFrameElementLongDesc + attrSet _ = setDOMHTMLIFrameElementLongDesc + attrConstruct _ = constructDOMHTMLIFrameElementLongDesc + +-- VVV Prop "margin-height" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementMarginHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementMarginHeight obj = liftIO $ getObjectPropertyString obj "margin-height" + +setDOMHTMLIFrameElementMarginHeight :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementMarginHeight obj val = liftIO $ setObjectPropertyString obj "margin-height" val + +constructDOMHTMLIFrameElementMarginHeight :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementMarginHeight val = constructObjectPropertyString "margin-height" val + +data DOMHTMLIFrameElementMarginHeightPropertyInfo +instance AttrInfo DOMHTMLIFrameElementMarginHeightPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementMarginHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementMarginHeightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementMarginHeightPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementMarginHeightPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementMarginHeightPropertyInfo = "DOMHTMLIFrameElement::margin-height" + attrGet _ = getDOMHTMLIFrameElementMarginHeight + attrSet _ = setDOMHTMLIFrameElementMarginHeight + attrConstruct _ = constructDOMHTMLIFrameElementMarginHeight + +-- VVV Prop "margin-width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementMarginWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementMarginWidth obj = liftIO $ getObjectPropertyString obj "margin-width" + +setDOMHTMLIFrameElementMarginWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementMarginWidth obj val = liftIO $ setObjectPropertyString obj "margin-width" val + +constructDOMHTMLIFrameElementMarginWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementMarginWidth val = constructObjectPropertyString "margin-width" val + +data DOMHTMLIFrameElementMarginWidthPropertyInfo +instance AttrInfo DOMHTMLIFrameElementMarginWidthPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementMarginWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementMarginWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementMarginWidthPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementMarginWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementMarginWidthPropertyInfo = "DOMHTMLIFrameElement::margin-width" + attrGet _ = getDOMHTMLIFrameElementMarginWidth + attrSet _ = setDOMHTMLIFrameElementMarginWidth + attrConstruct _ = constructDOMHTMLIFrameElementMarginWidth + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementName :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLIFrameElementName :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLIFrameElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementName val = constructObjectPropertyString "name" val + +data DOMHTMLIFrameElementNamePropertyInfo +instance AttrInfo DOMHTMLIFrameElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementNamePropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementNamePropertyInfo = "DOMHTMLIFrameElement::name" + attrGet _ = getDOMHTMLIFrameElementName + attrSet _ = setDOMHTMLIFrameElementName + attrConstruct _ = constructDOMHTMLIFrameElementName + +-- VVV Prop "sandbox" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementSandbox obj = liftIO $ getObjectPropertyString obj "sandbox" + +setDOMHTMLIFrameElementSandbox :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementSandbox obj val = liftIO $ setObjectPropertyString obj "sandbox" val + +constructDOMHTMLIFrameElementSandbox :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementSandbox val = constructObjectPropertyString "sandbox" val + +data DOMHTMLIFrameElementSandboxPropertyInfo +instance AttrInfo DOMHTMLIFrameElementSandboxPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementSandboxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementSandboxPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementSandboxPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementSandboxPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementSandboxPropertyInfo = "DOMHTMLIFrameElement::sandbox" + attrGet _ = getDOMHTMLIFrameElementSandbox + attrSet _ = setDOMHTMLIFrameElementSandbox + attrConstruct _ = constructDOMHTMLIFrameElementSandbox + +-- VVV Prop "scrolling" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementScrolling :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementScrolling obj = liftIO $ getObjectPropertyString obj "scrolling" + +setDOMHTMLIFrameElementScrolling :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementScrolling obj val = liftIO $ setObjectPropertyString obj "scrolling" val + +constructDOMHTMLIFrameElementScrolling :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementScrolling val = constructObjectPropertyString "scrolling" val + +data DOMHTMLIFrameElementScrollingPropertyInfo +instance AttrInfo DOMHTMLIFrameElementScrollingPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementScrollingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementScrollingPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementScrollingPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementScrollingPropertyInfo = "DOMHTMLIFrameElement::scrolling" + attrGet _ = getDOMHTMLIFrameElementScrolling + attrSet _ = setDOMHTMLIFrameElementScrolling + attrConstruct _ = constructDOMHTMLIFrameElementScrolling + +-- VVV Prop "seamless" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementSeamless :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m Bool +getDOMHTMLIFrameElementSeamless obj = liftIO $ getObjectPropertyBool obj "seamless" + +setDOMHTMLIFrameElementSeamless :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> Bool -> m () +setDOMHTMLIFrameElementSeamless obj val = liftIO $ setObjectPropertyBool obj "seamless" val + +constructDOMHTMLIFrameElementSeamless :: Bool -> IO ([Char], GValue) +constructDOMHTMLIFrameElementSeamless val = constructObjectPropertyBool "seamless" val + +data DOMHTMLIFrameElementSeamlessPropertyInfo +instance AttrInfo DOMHTMLIFrameElementSeamlessPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementSeamlessPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementSeamlessPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLIFrameElementSeamlessPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementSeamlessPropertyInfo = Bool + type AttrLabel DOMHTMLIFrameElementSeamlessPropertyInfo = "DOMHTMLIFrameElement::seamless" + attrGet _ = getDOMHTMLIFrameElementSeamless + attrSet _ = setDOMHTMLIFrameElementSeamless + attrConstruct _ = constructDOMHTMLIFrameElementSeamless + +-- VVV Prop "src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementSrc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementSrc obj = liftIO $ getObjectPropertyString obj "src" + +setDOMHTMLIFrameElementSrc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val + +constructDOMHTMLIFrameElementSrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementSrc val = constructObjectPropertyString "src" val + +data DOMHTMLIFrameElementSrcPropertyInfo +instance AttrInfo DOMHTMLIFrameElementSrcPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementSrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementSrcPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementSrcPropertyInfo = "DOMHTMLIFrameElement::src" + attrGet _ = getDOMHTMLIFrameElementSrc + attrSet _ = setDOMHTMLIFrameElementSrc + attrConstruct _ = constructDOMHTMLIFrameElementSrc + +-- VVV Prop "srcdoc" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementSrcdoc obj = liftIO $ getObjectPropertyString obj "srcdoc" + +setDOMHTMLIFrameElementSrcdoc :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementSrcdoc obj val = liftIO $ setObjectPropertyString obj "srcdoc" val + +constructDOMHTMLIFrameElementSrcdoc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementSrcdoc val = constructObjectPropertyString "srcdoc" val + +data DOMHTMLIFrameElementSrcdocPropertyInfo +instance AttrInfo DOMHTMLIFrameElementSrcdocPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementSrcdocPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementSrcdocPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementSrcdocPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementSrcdocPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementSrcdocPropertyInfo = "DOMHTMLIFrameElement::srcdoc" + attrGet _ = getDOMHTMLIFrameElementSrcdoc + attrSet _ = setDOMHTMLIFrameElementSrcdoc + attrConstruct _ = constructDOMHTMLIFrameElementSrcdoc + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLIFrameElementWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> m T.Text +getDOMHTMLIFrameElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLIFrameElementWidth :: (MonadIO m, DOMHTMLIFrameElementK o) => o -> T.Text -> m () +setDOMHTMLIFrameElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLIFrameElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLIFrameElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLIFrameElementWidthPropertyInfo +instance AttrInfo DOMHTMLIFrameElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLIFrameElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLIFrameElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLIFrameElementWidthPropertyInfo = DOMHTMLIFrameElementK + type AttrGetType DOMHTMLIFrameElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLIFrameElementWidthPropertyInfo = "DOMHTMLIFrameElement::width" + attrGet _ = getDOMHTMLIFrameElementWidth + attrSet _ = setDOMHTMLIFrameElementWidth + attrConstruct _ = constructDOMHTMLIFrameElementWidth + +type instance AttributeList DOMHTMLIFrameElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLIFrameElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-document", DOMHTMLIFrameElementContentDocumentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("content-window", DOMHTMLIFrameElementContentWindowPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("frame-border", DOMHTMLIFrameElementFrameBorderPropertyInfo), '("height", DOMHTMLIFrameElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("long-desc", DOMHTMLIFrameElementLongDescPropertyInfo), '("margin-height", DOMHTMLIFrameElementMarginHeightPropertyInfo), '("margin-width", DOMHTMLIFrameElementMarginWidthPropertyInfo), '("name", DOMHTMLIFrameElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("sandbox", DOMHTMLIFrameElementSandboxPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("scrolling", DOMHTMLIFrameElementScrollingPropertyInfo), '("seamless", DOMHTMLIFrameElementSeamlessPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLIFrameElementSrcPropertyInfo), '("srcdoc", DOMHTMLIFrameElementSrcdocPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLIFrameElementWidthPropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementAlign :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLImageElementAlign :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLImageElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLImageElementAlignPropertyInfo +instance AttrInfo DOMHTMLImageElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementAlignPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementAlignPropertyInfo = "DOMHTMLImageElement::align" + attrGet _ = getDOMHTMLImageElementAlign + attrSet _ = setDOMHTMLImageElementAlign + attrConstruct _ = constructDOMHTMLImageElementAlign + +-- VVV Prop "alt" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementAlt :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementAlt obj = liftIO $ getObjectPropertyString obj "alt" + +setDOMHTMLImageElementAlt :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val + +constructDOMHTMLImageElementAlt :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementAlt val = constructObjectPropertyString "alt" val + +data DOMHTMLImageElementAltPropertyInfo +instance AttrInfo DOMHTMLImageElementAltPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementAltPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementAltPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementAltPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementAltPropertyInfo = "DOMHTMLImageElement::alt" + attrGet _ = getDOMHTMLImageElementAlt + attrSet _ = setDOMHTMLImageElementAlt + attrConstruct _ = constructDOMHTMLImageElementAlt + +-- VVV Prop "border" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementBorder :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementBorder obj = liftIO $ getObjectPropertyString obj "border" + +setDOMHTMLImageElementBorder :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val + +constructDOMHTMLImageElementBorder :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementBorder val = constructObjectPropertyString "border" val + +data DOMHTMLImageElementBorderPropertyInfo +instance AttrInfo DOMHTMLImageElementBorderPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementBorderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementBorderPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementBorderPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementBorderPropertyInfo = "DOMHTMLImageElement::border" + attrGet _ = getDOMHTMLImageElementBorder + attrSet _ = setDOMHTMLImageElementBorder + attrConstruct _ = constructDOMHTMLImageElementBorder + +-- VVV Prop "complete" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLImageElementComplete :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Bool +getDOMHTMLImageElementComplete obj = liftIO $ getObjectPropertyBool obj "complete" + +data DOMHTMLImageElementCompletePropertyInfo +instance AttrInfo DOMHTMLImageElementCompletePropertyInfo where + type AttrAllowedOps DOMHTMLImageElementCompletePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementCompletePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLImageElementCompletePropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementCompletePropertyInfo = Bool + type AttrLabel DOMHTMLImageElementCompletePropertyInfo = "DOMHTMLImageElement::complete" + attrGet _ = getDOMHTMLImageElementComplete + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "cross-origin" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementCrossOrigin :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementCrossOrigin obj = liftIO $ getObjectPropertyString obj "cross-origin" + +setDOMHTMLImageElementCrossOrigin :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementCrossOrigin obj val = liftIO $ setObjectPropertyString obj "cross-origin" val + +constructDOMHTMLImageElementCrossOrigin :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementCrossOrigin val = constructObjectPropertyString "cross-origin" val + +data DOMHTMLImageElementCrossOriginPropertyInfo +instance AttrInfo DOMHTMLImageElementCrossOriginPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementCrossOriginPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementCrossOriginPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementCrossOriginPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementCrossOriginPropertyInfo = "DOMHTMLImageElement::cross-origin" + attrGet _ = getDOMHTMLImageElementCrossOrigin + attrSet _ = setDOMHTMLImageElementCrossOrigin + attrConstruct _ = constructDOMHTMLImageElementCrossOrigin + +-- VVV Prop "height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementHeight obj = liftIO $ getObjectPropertyInt64 obj "height" + +setDOMHTMLImageElementHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () +setDOMHTMLImageElementHeight obj val = liftIO $ setObjectPropertyInt64 obj "height" val + +constructDOMHTMLImageElementHeight :: Int64 -> IO ([Char], GValue) +constructDOMHTMLImageElementHeight val = constructObjectPropertyInt64 "height" val + +data DOMHTMLImageElementHeightPropertyInfo +instance AttrInfo DOMHTMLImageElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementHeightPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLImageElementHeightPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementHeightPropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementHeightPropertyInfo = "DOMHTMLImageElement::height" + attrGet _ = getDOMHTMLImageElementHeight + attrSet _ = setDOMHTMLImageElementHeight + attrConstruct _ = constructDOMHTMLImageElementHeight + +-- VVV Prop "hspace" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementHspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace" + +setDOMHTMLImageElementHspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () +setDOMHTMLImageElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val + +constructDOMHTMLImageElementHspace :: Int64 -> IO ([Char], GValue) +constructDOMHTMLImageElementHspace val = constructObjectPropertyInt64 "hspace" val + +data DOMHTMLImageElementHspacePropertyInfo +instance AttrInfo DOMHTMLImageElementHspacePropertyInfo where + type AttrAllowedOps DOMHTMLImageElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementHspacePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLImageElementHspacePropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementHspacePropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementHspacePropertyInfo = "DOMHTMLImageElement::hspace" + attrGet _ = getDOMHTMLImageElementHspace + attrSet _ = setDOMHTMLImageElementHspace + attrConstruct _ = constructDOMHTMLImageElementHspace + +-- VVV Prop "is-map" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementIsMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Bool +getDOMHTMLImageElementIsMap obj = liftIO $ getObjectPropertyBool obj "is-map" + +setDOMHTMLImageElementIsMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> Bool -> m () +setDOMHTMLImageElementIsMap obj val = liftIO $ setObjectPropertyBool obj "is-map" val + +constructDOMHTMLImageElementIsMap :: Bool -> IO ([Char], GValue) +constructDOMHTMLImageElementIsMap val = constructObjectPropertyBool "is-map" val + +data DOMHTMLImageElementIsMapPropertyInfo +instance AttrInfo DOMHTMLImageElementIsMapPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementIsMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementIsMapPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLImageElementIsMapPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementIsMapPropertyInfo = Bool + type AttrLabel DOMHTMLImageElementIsMapPropertyInfo = "DOMHTMLImageElement::is-map" + attrGet _ = getDOMHTMLImageElementIsMap + attrSet _ = setDOMHTMLImageElementIsMap + attrConstruct _ = constructDOMHTMLImageElementIsMap + +-- VVV Prop "long-desc" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementLongDesc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementLongDesc obj = liftIO $ getObjectPropertyString obj "long-desc" + +setDOMHTMLImageElementLongDesc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementLongDesc obj val = liftIO $ setObjectPropertyString obj "long-desc" val + +constructDOMHTMLImageElementLongDesc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementLongDesc val = constructObjectPropertyString "long-desc" val + +data DOMHTMLImageElementLongDescPropertyInfo +instance AttrInfo DOMHTMLImageElementLongDescPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementLongDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementLongDescPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementLongDescPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementLongDescPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementLongDescPropertyInfo = "DOMHTMLImageElement::long-desc" + attrGet _ = getDOMHTMLImageElementLongDesc + attrSet _ = setDOMHTMLImageElementLongDesc + attrConstruct _ = constructDOMHTMLImageElementLongDesc + +-- VVV Prop "lowsrc" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementLowsrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementLowsrc obj = liftIO $ getObjectPropertyString obj "lowsrc" + +setDOMHTMLImageElementLowsrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementLowsrc obj val = liftIO $ setObjectPropertyString obj "lowsrc" val + +constructDOMHTMLImageElementLowsrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementLowsrc val = constructObjectPropertyString "lowsrc" val + +data DOMHTMLImageElementLowsrcPropertyInfo +instance AttrInfo DOMHTMLImageElementLowsrcPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementLowsrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementLowsrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementLowsrcPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementLowsrcPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementLowsrcPropertyInfo = "DOMHTMLImageElement::lowsrc" + attrGet _ = getDOMHTMLImageElementLowsrc + attrSet _ = setDOMHTMLImageElementLowsrc + attrConstruct _ = constructDOMHTMLImageElementLowsrc + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementName :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLImageElementName :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLImageElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementName val = constructObjectPropertyString "name" val + +data DOMHTMLImageElementNamePropertyInfo +instance AttrInfo DOMHTMLImageElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLImageElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementNamePropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementNamePropertyInfo = "DOMHTMLImageElement::name" + attrGet _ = getDOMHTMLImageElementName + attrSet _ = setDOMHTMLImageElementName + attrConstruct _ = constructDOMHTMLImageElementName + +-- VVV Prop "natural-height" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLImageElementNaturalHeight :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementNaturalHeight obj = liftIO $ getObjectPropertyInt64 obj "natural-height" + +data DOMHTMLImageElementNaturalHeightPropertyInfo +instance AttrInfo DOMHTMLImageElementNaturalHeightPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementNaturalHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementNaturalHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLImageElementNaturalHeightPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementNaturalHeightPropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementNaturalHeightPropertyInfo = "DOMHTMLImageElement::natural-height" + attrGet _ = getDOMHTMLImageElementNaturalHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "natural-width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLImageElementNaturalWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementNaturalWidth obj = liftIO $ getObjectPropertyInt64 obj "natural-width" + +data DOMHTMLImageElementNaturalWidthPropertyInfo +instance AttrInfo DOMHTMLImageElementNaturalWidthPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementNaturalWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementNaturalWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLImageElementNaturalWidthPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementNaturalWidthPropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementNaturalWidthPropertyInfo = "DOMHTMLImageElement::natural-width" + attrGet _ = getDOMHTMLImageElementNaturalWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementSrc obj = liftIO $ getObjectPropertyString obj "src" + +setDOMHTMLImageElementSrc :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val + +constructDOMHTMLImageElementSrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementSrc val = constructObjectPropertyString "src" val + +data DOMHTMLImageElementSrcPropertyInfo +instance AttrInfo DOMHTMLImageElementSrcPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementSrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementSrcPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementSrcPropertyInfo = "DOMHTMLImageElement::src" + attrGet _ = getDOMHTMLImageElementSrc + attrSet _ = setDOMHTMLImageElementSrc + attrConstruct _ = constructDOMHTMLImageElementSrc + +-- VVV Prop "srcset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementSrcset obj = liftIO $ getObjectPropertyString obj "srcset" + +setDOMHTMLImageElementSrcset :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementSrcset obj val = liftIO $ setObjectPropertyString obj "srcset" val + +constructDOMHTMLImageElementSrcset :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementSrcset val = constructObjectPropertyString "srcset" val + +data DOMHTMLImageElementSrcsetPropertyInfo +instance AttrInfo DOMHTMLImageElementSrcsetPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementSrcsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementSrcsetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementSrcsetPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementSrcsetPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementSrcsetPropertyInfo = "DOMHTMLImageElement::srcset" + attrGet _ = getDOMHTMLImageElementSrcset + attrSet _ = setDOMHTMLImageElementSrcset + attrConstruct _ = constructDOMHTMLImageElementSrcset + +-- VVV Prop "use-map" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementUseMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> m T.Text +getDOMHTMLImageElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map" + +setDOMHTMLImageElementUseMap :: (MonadIO m, DOMHTMLImageElementK o) => o -> T.Text -> m () +setDOMHTMLImageElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val + +constructDOMHTMLImageElementUseMap :: T.Text -> IO ([Char], GValue) +constructDOMHTMLImageElementUseMap val = constructObjectPropertyString "use-map" val + +data DOMHTMLImageElementUseMapPropertyInfo +instance AttrInfo DOMHTMLImageElementUseMapPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementUseMapPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLImageElementUseMapPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementUseMapPropertyInfo = T.Text + type AttrLabel DOMHTMLImageElementUseMapPropertyInfo = "DOMHTMLImageElement::use-map" + attrGet _ = getDOMHTMLImageElementUseMap + attrSet _ = setDOMHTMLImageElementUseMap + attrConstruct _ = constructDOMHTMLImageElementUseMap + +-- VVV Prop "vspace" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementVspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace" + +setDOMHTMLImageElementVspace :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () +setDOMHTMLImageElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val + +constructDOMHTMLImageElementVspace :: Int64 -> IO ([Char], GValue) +constructDOMHTMLImageElementVspace val = constructObjectPropertyInt64 "vspace" val + +data DOMHTMLImageElementVspacePropertyInfo +instance AttrInfo DOMHTMLImageElementVspacePropertyInfo where + type AttrAllowedOps DOMHTMLImageElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementVspacePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLImageElementVspacePropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementVspacePropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementVspacePropertyInfo = "DOMHTMLImageElement::vspace" + attrGet _ = getDOMHTMLImageElementVspace + attrSet _ = setDOMHTMLImageElementVspace + attrConstruct _ = constructDOMHTMLImageElementVspace + +-- VVV Prop "width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLImageElementWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" + +setDOMHTMLImageElementWidth :: (MonadIO m, DOMHTMLImageElementK o) => o -> Int64 -> m () +setDOMHTMLImageElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val + +constructDOMHTMLImageElementWidth :: Int64 -> IO ([Char], GValue) +constructDOMHTMLImageElementWidth val = constructObjectPropertyInt64 "width" val + +data DOMHTMLImageElementWidthPropertyInfo +instance AttrInfo DOMHTMLImageElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementWidthPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLImageElementWidthPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementWidthPropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementWidthPropertyInfo = "DOMHTMLImageElement::width" + attrGet _ = getDOMHTMLImageElementWidth + attrSet _ = setDOMHTMLImageElementWidth + attrConstruct _ = constructDOMHTMLImageElementWidth + +-- VVV Prop "x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLImageElementX :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementX obj = liftIO $ getObjectPropertyInt64 obj "x" + +data DOMHTMLImageElementXPropertyInfo +instance AttrInfo DOMHTMLImageElementXPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLImageElementXPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementXPropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementXPropertyInfo = "DOMHTMLImageElement::x" + attrGet _ = getDOMHTMLImageElementX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLImageElementY :: (MonadIO m, DOMHTMLImageElementK o) => o -> m Int64 +getDOMHTMLImageElementY obj = liftIO $ getObjectPropertyInt64 obj "y" + +data DOMHTMLImageElementYPropertyInfo +instance AttrInfo DOMHTMLImageElementYPropertyInfo where + type AttrAllowedOps DOMHTMLImageElementYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLImageElementYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLImageElementYPropertyInfo = DOMHTMLImageElementK + type AttrGetType DOMHTMLImageElementYPropertyInfo = Int64 + type AttrLabel DOMHTMLImageElementYPropertyInfo = "DOMHTMLImageElement::y" + attrGet _ = getDOMHTMLImageElementY + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLImageElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLImageElementAlignPropertyInfo), '("alt", DOMHTMLImageElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("border", DOMHTMLImageElementBorderPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("complete", DOMHTMLImageElementCompletePropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("cross-origin", DOMHTMLImageElementCrossOriginPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLImageElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLImageElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("is-map", DOMHTMLImageElementIsMapPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("long-desc", DOMHTMLImageElementLongDescPropertyInfo), '("lowsrc", DOMHTMLImageElementLowsrcPropertyInfo), '("name", DOMHTMLImageElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("natural-height", DOMHTMLImageElementNaturalHeightPropertyInfo), '("natural-width", DOMHTMLImageElementNaturalWidthPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLImageElementSrcPropertyInfo), '("srcset", DOMHTMLImageElementSrcsetPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("use-map", DOMHTMLImageElementUseMapPropertyInfo), '("vspace", DOMHTMLImageElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLImageElementWidthPropertyInfo), '("x", DOMHTMLImageElementXPropertyInfo), '("y", DOMHTMLImageElementYPropertyInfo)] + +-- VVV Prop "accept" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementAccept :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAccept obj = liftIO $ getObjectPropertyString obj "accept" + +setDOMHTMLInputElementAccept :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementAccept obj val = liftIO $ setObjectPropertyString obj "accept" val + +constructDOMHTMLInputElementAccept :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementAccept val = constructObjectPropertyString "accept" val + +data DOMHTMLInputElementAcceptPropertyInfo +instance AttrInfo DOMHTMLInputElementAcceptPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementAcceptPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementAcceptPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementAcceptPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementAcceptPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementAcceptPropertyInfo = "DOMHTMLInputElement::accept" + attrGet _ = getDOMHTMLInputElementAccept + attrSet _ = setDOMHTMLInputElementAccept + attrConstruct _ = constructDOMHTMLInputElementAccept + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementAlign :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLInputElementAlign :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLInputElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLInputElementAlignPropertyInfo +instance AttrInfo DOMHTMLInputElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementAlignPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementAlignPropertyInfo = "DOMHTMLInputElement::align" + attrGet _ = getDOMHTMLInputElementAlign + attrSet _ = setDOMHTMLInputElementAlign + attrConstruct _ = constructDOMHTMLInputElementAlign + +-- VVV Prop "alt" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementAlt :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAlt obj = liftIO $ getObjectPropertyString obj "alt" + +setDOMHTMLInputElementAlt :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementAlt obj val = liftIO $ setObjectPropertyString obj "alt" val + +constructDOMHTMLInputElementAlt :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementAlt val = constructObjectPropertyString "alt" val + +data DOMHTMLInputElementAltPropertyInfo +instance AttrInfo DOMHTMLInputElementAltPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementAltPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementAltPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementAltPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementAltPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementAltPropertyInfo = "DOMHTMLInputElement::alt" + attrGet _ = getDOMHTMLInputElementAlt + attrSet _ = setDOMHTMLInputElementAlt + attrConstruct _ = constructDOMHTMLInputElementAlt + +-- VVV Prop "autocapitalize" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" + +setDOMHTMLInputElementAutocapitalize :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val + +constructDOMHTMLInputElementAutocapitalize :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val + +data DOMHTMLInputElementAutocapitalizePropertyInfo +instance AttrInfo DOMHTMLInputElementAutocapitalizePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementAutocapitalizePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementAutocapitalizePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementAutocapitalizePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementAutocapitalizePropertyInfo = "DOMHTMLInputElement::autocapitalize" + attrGet _ = getDOMHTMLInputElementAutocapitalize + attrSet _ = setDOMHTMLInputElementAutocapitalize + attrConstruct _ = constructDOMHTMLInputElementAutocapitalize + +-- VVV Prop "autocomplete" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementAutocomplete obj = liftIO $ getObjectPropertyString obj "autocomplete" + +setDOMHTMLInputElementAutocomplete :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementAutocomplete obj val = liftIO $ setObjectPropertyString obj "autocomplete" val + +constructDOMHTMLInputElementAutocomplete :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementAutocomplete val = constructObjectPropertyString "autocomplete" val + +data DOMHTMLInputElementAutocompletePropertyInfo +instance AttrInfo DOMHTMLInputElementAutocompletePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementAutocompletePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementAutocompletePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementAutocompletePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementAutocompletePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementAutocompletePropertyInfo = "DOMHTMLInputElement::autocomplete" + attrGet _ = getDOMHTMLInputElementAutocomplete + attrSet _ = setDOMHTMLInputElementAutocomplete + attrConstruct _ = constructDOMHTMLInputElementAutocomplete + +-- VVV Prop "autocorrect" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementAutocorrect :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" + +setDOMHTMLInputElementAutocorrect :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementAutocorrect obj val = liftIO $ setObjectPropertyBool obj "autocorrect" val + +constructDOMHTMLInputElementAutocorrect :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementAutocorrect val = constructObjectPropertyBool "autocorrect" val + +data DOMHTMLInputElementAutocorrectPropertyInfo +instance AttrInfo DOMHTMLInputElementAutocorrectPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementAutocorrectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementAutocorrectPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementAutocorrectPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementAutocorrectPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementAutocorrectPropertyInfo = "DOMHTMLInputElement::autocorrect" + attrGet _ = getDOMHTMLInputElementAutocorrect + attrSet _ = setDOMHTMLInputElementAutocorrect + attrConstruct _ = constructDOMHTMLInputElementAutocorrect + +-- VVV Prop "autofocus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementAutofocus :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" + +setDOMHTMLInputElementAutofocus :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val + +constructDOMHTMLInputElementAutofocus :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementAutofocus val = constructObjectPropertyBool "autofocus" val + +data DOMHTMLInputElementAutofocusPropertyInfo +instance AttrInfo DOMHTMLInputElementAutofocusPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementAutofocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementAutofocusPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementAutofocusPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementAutofocusPropertyInfo = "DOMHTMLInputElement::autofocus" + attrGet _ = getDOMHTMLInputElementAutofocus + attrSet _ = setDOMHTMLInputElementAutofocus + attrConstruct _ = constructDOMHTMLInputElementAutofocus + +-- VVV Prop "capture" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementCapture :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementCapture obj = liftIO $ getObjectPropertyString obj "capture" + +setDOMHTMLInputElementCapture :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementCapture obj val = liftIO $ setObjectPropertyString obj "capture" val + +constructDOMHTMLInputElementCapture :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementCapture val = constructObjectPropertyString "capture" val + +data DOMHTMLInputElementCapturePropertyInfo +instance AttrInfo DOMHTMLInputElementCapturePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementCapturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementCapturePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementCapturePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementCapturePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementCapturePropertyInfo = "DOMHTMLInputElement::capture" + attrGet _ = getDOMHTMLInputElementCapture + attrSet _ = setDOMHTMLInputElementCapture + attrConstruct _ = constructDOMHTMLInputElementCapture + +-- VVV Prop "checked" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementChecked obj = liftIO $ getObjectPropertyBool obj "checked" + +setDOMHTMLInputElementChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementChecked obj val = liftIO $ setObjectPropertyBool obj "checked" val + +constructDOMHTMLInputElementChecked :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementChecked val = constructObjectPropertyBool "checked" val + +data DOMHTMLInputElementCheckedPropertyInfo +instance AttrInfo DOMHTMLInputElementCheckedPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementCheckedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementCheckedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementCheckedPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementCheckedPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementCheckedPropertyInfo = "DOMHTMLInputElement::checked" + attrGet _ = getDOMHTMLInputElementChecked + attrSet _ = setDOMHTMLInputElementChecked + attrConstruct _ = constructDOMHTMLInputElementChecked + +-- VVV Prop "default-checked" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementDefaultChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementDefaultChecked obj = liftIO $ getObjectPropertyBool obj "default-checked" + +setDOMHTMLInputElementDefaultChecked :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementDefaultChecked obj val = liftIO $ setObjectPropertyBool obj "default-checked" val + +constructDOMHTMLInputElementDefaultChecked :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementDefaultChecked val = constructObjectPropertyBool "default-checked" val + +data DOMHTMLInputElementDefaultCheckedPropertyInfo +instance AttrInfo DOMHTMLInputElementDefaultCheckedPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementDefaultCheckedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementDefaultCheckedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementDefaultCheckedPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementDefaultCheckedPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementDefaultCheckedPropertyInfo = "DOMHTMLInputElement::default-checked" + attrGet _ = getDOMHTMLInputElementDefaultChecked + attrSet _ = setDOMHTMLInputElementDefaultChecked + attrConstruct _ = constructDOMHTMLInputElementDefaultChecked + +-- VVV Prop "default-value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementDefaultValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementDefaultValue obj = liftIO $ getObjectPropertyString obj "default-value" + +setDOMHTMLInputElementDefaultValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementDefaultValue obj val = liftIO $ setObjectPropertyString obj "default-value" val + +constructDOMHTMLInputElementDefaultValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementDefaultValue val = constructObjectPropertyString "default-value" val + +data DOMHTMLInputElementDefaultValuePropertyInfo +instance AttrInfo DOMHTMLInputElementDefaultValuePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementDefaultValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementDefaultValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementDefaultValuePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementDefaultValuePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementDefaultValuePropertyInfo = "DOMHTMLInputElement::default-value" + attrGet _ = getDOMHTMLInputElementDefaultValue + attrSet _ = setDOMHTMLInputElementDefaultValue + attrConstruct _ = constructDOMHTMLInputElementDefaultValue + +-- VVV Prop "dir-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementDirName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementDirName obj = liftIO $ getObjectPropertyString obj "dir-name" + +setDOMHTMLInputElementDirName :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementDirName obj val = liftIO $ setObjectPropertyString obj "dir-name" val + +constructDOMHTMLInputElementDirName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementDirName val = constructObjectPropertyString "dir-name" val + +data DOMHTMLInputElementDirNamePropertyInfo +instance AttrInfo DOMHTMLInputElementDirNamePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementDirNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementDirNamePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementDirNamePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementDirNamePropertyInfo = "DOMHTMLInputElement::dir-name" + attrGet _ = getDOMHTMLInputElementDirName + attrSet _ = setDOMHTMLInputElementDirName + attrConstruct _ = constructDOMHTMLInputElementDirName + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementDisabled :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLInputElementDisabled :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLInputElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLInputElementDisabledPropertyInfo +instance AttrInfo DOMHTMLInputElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementDisabledPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementDisabledPropertyInfo = "DOMHTMLInputElement::disabled" + attrGet _ = getDOMHTMLInputElementDisabled + attrSet _ = setDOMHTMLInputElementDisabled + attrConstruct _ = constructDOMHTMLInputElementDisabled + +-- VVV Prop "files" + -- Type: TInterface "WebKit" "DOMFileList" + -- Flags: [PropertyReadable] + +getDOMHTMLInputElementFiles :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMFileList +getDOMHTMLInputElementFiles obj = liftIO $ getObjectPropertyObject obj "files" DOMFileList + +data DOMHTMLInputElementFilesPropertyInfo +instance AttrInfo DOMHTMLInputElementFilesPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementFilesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementFilesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLInputElementFilesPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementFilesPropertyInfo = DOMFileList + type AttrLabel DOMHTMLInputElementFilesPropertyInfo = "DOMHTMLInputElement::files" + attrGet _ = getDOMHTMLInputElementFiles + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLInputElementForm :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLInputElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLInputElementFormPropertyInfo +instance AttrInfo DOMHTMLInputElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLInputElementFormPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLInputElementFormPropertyInfo = "DOMHTMLInputElement::form" + attrGet _ = getDOMHTMLInputElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "form-action" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementFormAction :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementFormAction obj = liftIO $ getObjectPropertyString obj "form-action" + +setDOMHTMLInputElementFormAction :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementFormAction obj val = liftIO $ setObjectPropertyString obj "form-action" val + +constructDOMHTMLInputElementFormAction :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementFormAction val = constructObjectPropertyString "form-action" val + +data DOMHTMLInputElementFormActionPropertyInfo +instance AttrInfo DOMHTMLInputElementFormActionPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementFormActionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementFormActionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementFormActionPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementFormActionPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementFormActionPropertyInfo = "DOMHTMLInputElement::form-action" + attrGet _ = getDOMHTMLInputElementFormAction + attrSet _ = setDOMHTMLInputElementFormAction + attrConstruct _ = constructDOMHTMLInputElementFormAction + +-- VVV Prop "form-enctype" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementFormEnctype :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementFormEnctype obj = liftIO $ getObjectPropertyString obj "form-enctype" + +setDOMHTMLInputElementFormEnctype :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementFormEnctype obj val = liftIO $ setObjectPropertyString obj "form-enctype" val + +constructDOMHTMLInputElementFormEnctype :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementFormEnctype val = constructObjectPropertyString "form-enctype" val + +data DOMHTMLInputElementFormEnctypePropertyInfo +instance AttrInfo DOMHTMLInputElementFormEnctypePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementFormEnctypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementFormEnctypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementFormEnctypePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementFormEnctypePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementFormEnctypePropertyInfo = "DOMHTMLInputElement::form-enctype" + attrGet _ = getDOMHTMLInputElementFormEnctype + attrSet _ = setDOMHTMLInputElementFormEnctype + attrConstruct _ = constructDOMHTMLInputElementFormEnctype + +-- VVV Prop "form-method" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementFormMethod :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementFormMethod obj = liftIO $ getObjectPropertyString obj "form-method" + +setDOMHTMLInputElementFormMethod :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementFormMethod obj val = liftIO $ setObjectPropertyString obj "form-method" val + +constructDOMHTMLInputElementFormMethod :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementFormMethod val = constructObjectPropertyString "form-method" val + +data DOMHTMLInputElementFormMethodPropertyInfo +instance AttrInfo DOMHTMLInputElementFormMethodPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementFormMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementFormMethodPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementFormMethodPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementFormMethodPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementFormMethodPropertyInfo = "DOMHTMLInputElement::form-method" + attrGet _ = getDOMHTMLInputElementFormMethod + attrSet _ = setDOMHTMLInputElementFormMethod + attrConstruct _ = constructDOMHTMLInputElementFormMethod + +-- VVV Prop "form-no-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementFormNoValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementFormNoValidate obj = liftIO $ getObjectPropertyBool obj "form-no-validate" + +setDOMHTMLInputElementFormNoValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementFormNoValidate obj val = liftIO $ setObjectPropertyBool obj "form-no-validate" val + +constructDOMHTMLInputElementFormNoValidate :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementFormNoValidate val = constructObjectPropertyBool "form-no-validate" val + +data DOMHTMLInputElementFormNoValidatePropertyInfo +instance AttrInfo DOMHTMLInputElementFormNoValidatePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementFormNoValidatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementFormNoValidatePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementFormNoValidatePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementFormNoValidatePropertyInfo = Bool + type AttrLabel DOMHTMLInputElementFormNoValidatePropertyInfo = "DOMHTMLInputElement::form-no-validate" + attrGet _ = getDOMHTMLInputElementFormNoValidate + attrSet _ = setDOMHTMLInputElementFormNoValidate + attrConstruct _ = constructDOMHTMLInputElementFormNoValidate + +-- VVV Prop "form-target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementFormTarget :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementFormTarget obj = liftIO $ getObjectPropertyString obj "form-target" + +setDOMHTMLInputElementFormTarget :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementFormTarget obj val = liftIO $ setObjectPropertyString obj "form-target" val + +constructDOMHTMLInputElementFormTarget :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementFormTarget val = constructObjectPropertyString "form-target" val + +data DOMHTMLInputElementFormTargetPropertyInfo +instance AttrInfo DOMHTMLInputElementFormTargetPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementFormTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementFormTargetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementFormTargetPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementFormTargetPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementFormTargetPropertyInfo = "DOMHTMLInputElement::form-target" + attrGet _ = getDOMHTMLInputElementFormTarget + attrSet _ = setDOMHTMLInputElementFormTarget + attrConstruct _ = constructDOMHTMLInputElementFormTarget + +-- VVV Prop "height" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementHeight :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64 +getDOMHTMLInputElementHeight obj = liftIO $ getObjectPropertyUInt64 obj "height" + +setDOMHTMLInputElementHeight :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m () +setDOMHTMLInputElementHeight obj val = liftIO $ setObjectPropertyUInt64 obj "height" val + +constructDOMHTMLInputElementHeight :: Word64 -> IO ([Char], GValue) +constructDOMHTMLInputElementHeight val = constructObjectPropertyUInt64 "height" val + +data DOMHTMLInputElementHeightPropertyInfo +instance AttrInfo DOMHTMLInputElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementHeightPropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLInputElementHeightPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementHeightPropertyInfo = Word64 + type AttrLabel DOMHTMLInputElementHeightPropertyInfo = "DOMHTMLInputElement::height" + attrGet _ = getDOMHTMLInputElementHeight + attrSet _ = setDOMHTMLInputElementHeight + attrConstruct _ = constructDOMHTMLInputElementHeight + +-- VVV Prop "incremental" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementIncremental :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementIncremental obj = liftIO $ getObjectPropertyBool obj "incremental" + +setDOMHTMLInputElementIncremental :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementIncremental obj val = liftIO $ setObjectPropertyBool obj "incremental" val + +constructDOMHTMLInputElementIncremental :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementIncremental val = constructObjectPropertyBool "incremental" val + +data DOMHTMLInputElementIncrementalPropertyInfo +instance AttrInfo DOMHTMLInputElementIncrementalPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementIncrementalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementIncrementalPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementIncrementalPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementIncrementalPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementIncrementalPropertyInfo = "DOMHTMLInputElement::incremental" + attrGet _ = getDOMHTMLInputElementIncremental + attrSet _ = setDOMHTMLInputElementIncremental + attrConstruct _ = constructDOMHTMLInputElementIncremental + +-- VVV Prop "indeterminate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementIndeterminate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementIndeterminate obj = liftIO $ getObjectPropertyBool obj "indeterminate" + +setDOMHTMLInputElementIndeterminate :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementIndeterminate obj val = liftIO $ setObjectPropertyBool obj "indeterminate" val + +constructDOMHTMLInputElementIndeterminate :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementIndeterminate val = constructObjectPropertyBool "indeterminate" val + +data DOMHTMLInputElementIndeterminatePropertyInfo +instance AttrInfo DOMHTMLInputElementIndeterminatePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementIndeterminatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementIndeterminatePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementIndeterminatePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementIndeterminatePropertyInfo = Bool + type AttrLabel DOMHTMLInputElementIndeterminatePropertyInfo = "DOMHTMLInputElement::indeterminate" + attrGet _ = getDOMHTMLInputElementIndeterminate + attrSet _ = setDOMHTMLInputElementIndeterminate + attrConstruct _ = constructDOMHTMLInputElementIndeterminate + +-- VVV Prop "labels" + -- Type: TInterface "WebKit" "DOMNodeList" + -- Flags: [PropertyReadable] + +getDOMHTMLInputElementLabels :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMNodeList +getDOMHTMLInputElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList + +data DOMHTMLInputElementLabelsPropertyInfo +instance AttrInfo DOMHTMLInputElementLabelsPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementLabelsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLInputElementLabelsPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementLabelsPropertyInfo = DOMNodeList + type AttrLabel DOMHTMLInputElementLabelsPropertyInfo = "DOMHTMLInputElement::labels" + attrGet _ = getDOMHTMLInputElementLabels + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "list" + -- Type: TInterface "WebKit" "DOMHTMLElement" + -- Flags: [PropertyReadable] + +getDOMHTMLInputElementList :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMHTMLElement +getDOMHTMLInputElementList obj = liftIO $ getObjectPropertyObject obj "list" DOMHTMLElement + +data DOMHTMLInputElementListPropertyInfo +instance AttrInfo DOMHTMLInputElementListPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementListPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementListPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLInputElementListPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementListPropertyInfo = DOMHTMLElement + type AttrLabel DOMHTMLInputElementListPropertyInfo = "DOMHTMLInputElement::list" + attrGet _ = getDOMHTMLInputElementList + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "max" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementMax obj = liftIO $ getObjectPropertyString obj "max" + +setDOMHTMLInputElementMax :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementMax obj val = liftIO $ setObjectPropertyString obj "max" val + +constructDOMHTMLInputElementMax :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementMax val = constructObjectPropertyString "max" val + +data DOMHTMLInputElementMaxPropertyInfo +instance AttrInfo DOMHTMLInputElementMaxPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementMaxPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementMaxPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementMaxPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementMaxPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementMaxPropertyInfo = "DOMHTMLInputElement::max" + attrGet _ = getDOMHTMLInputElementMax + attrSet _ = setDOMHTMLInputElementMax + attrConstruct _ = constructDOMHTMLInputElementMax + +-- VVV Prop "max-length" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementMaxLength :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Int64 +getDOMHTMLInputElementMaxLength obj = liftIO $ getObjectPropertyInt64 obj "max-length" + +setDOMHTMLInputElementMaxLength :: (MonadIO m, DOMHTMLInputElementK o) => o -> Int64 -> m () +setDOMHTMLInputElementMaxLength obj val = liftIO $ setObjectPropertyInt64 obj "max-length" val + +constructDOMHTMLInputElementMaxLength :: Int64 -> IO ([Char], GValue) +constructDOMHTMLInputElementMaxLength val = constructObjectPropertyInt64 "max-length" val + +data DOMHTMLInputElementMaxLengthPropertyInfo +instance AttrInfo DOMHTMLInputElementMaxLengthPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementMaxLengthPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLInputElementMaxLengthPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementMaxLengthPropertyInfo = Int64 + type AttrLabel DOMHTMLInputElementMaxLengthPropertyInfo = "DOMHTMLInputElement::max-length" + attrGet _ = getDOMHTMLInputElementMaxLength + attrSet _ = setDOMHTMLInputElementMaxLength + attrConstruct _ = constructDOMHTMLInputElementMaxLength + +-- VVV Prop "min" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementMin obj = liftIO $ getObjectPropertyString obj "min" + +setDOMHTMLInputElementMin :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementMin obj val = liftIO $ setObjectPropertyString obj "min" val + +constructDOMHTMLInputElementMin :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementMin val = constructObjectPropertyString "min" val + +data DOMHTMLInputElementMinPropertyInfo +instance AttrInfo DOMHTMLInputElementMinPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementMinPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementMinPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementMinPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementMinPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementMinPropertyInfo = "DOMHTMLInputElement::min" + attrGet _ = getDOMHTMLInputElementMin + attrSet _ = setDOMHTMLInputElementMin + attrConstruct _ = constructDOMHTMLInputElementMin + +-- VVV Prop "multiple" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementMultiple :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementMultiple obj = liftIO $ getObjectPropertyBool obj "multiple" + +setDOMHTMLInputElementMultiple :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementMultiple obj val = liftIO $ setObjectPropertyBool obj "multiple" val + +constructDOMHTMLInputElementMultiple :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementMultiple val = constructObjectPropertyBool "multiple" val + +data DOMHTMLInputElementMultiplePropertyInfo +instance AttrInfo DOMHTMLInputElementMultiplePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementMultiplePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementMultiplePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementMultiplePropertyInfo = Bool + type AttrLabel DOMHTMLInputElementMultiplePropertyInfo = "DOMHTMLInputElement::multiple" + attrGet _ = getDOMHTMLInputElementMultiple + attrSet _ = setDOMHTMLInputElementMultiple + attrConstruct _ = constructDOMHTMLInputElementMultiple + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementName :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLInputElementName :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLInputElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementName val = constructObjectPropertyString "name" val + +data DOMHTMLInputElementNamePropertyInfo +instance AttrInfo DOMHTMLInputElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementNamePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementNamePropertyInfo = "DOMHTMLInputElement::name" + attrGet _ = getDOMHTMLInputElementName + attrSet _ = setDOMHTMLInputElementName + attrConstruct _ = constructDOMHTMLInputElementName + +-- VVV Prop "pattern" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementPattern obj = liftIO $ getObjectPropertyString obj "pattern" + +setDOMHTMLInputElementPattern :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementPattern obj val = liftIO $ setObjectPropertyString obj "pattern" val + +constructDOMHTMLInputElementPattern :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementPattern val = constructObjectPropertyString "pattern" val + +data DOMHTMLInputElementPatternPropertyInfo +instance AttrInfo DOMHTMLInputElementPatternPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementPatternPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementPatternPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementPatternPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementPatternPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementPatternPropertyInfo = "DOMHTMLInputElement::pattern" + attrGet _ = getDOMHTMLInputElementPattern + attrSet _ = setDOMHTMLInputElementPattern + attrConstruct _ = constructDOMHTMLInputElementPattern + +-- VVV Prop "placeholder" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementPlaceholder obj = liftIO $ getObjectPropertyString obj "placeholder" + +setDOMHTMLInputElementPlaceholder :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementPlaceholder obj val = liftIO $ setObjectPropertyString obj "placeholder" val + +constructDOMHTMLInputElementPlaceholder :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementPlaceholder val = constructObjectPropertyString "placeholder" val + +data DOMHTMLInputElementPlaceholderPropertyInfo +instance AttrInfo DOMHTMLInputElementPlaceholderPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementPlaceholderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementPlaceholderPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementPlaceholderPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementPlaceholderPropertyInfo = "DOMHTMLInputElement::placeholder" + attrGet _ = getDOMHTMLInputElementPlaceholder + attrSet _ = setDOMHTMLInputElementPlaceholder + attrConstruct _ = constructDOMHTMLInputElementPlaceholder + +-- VVV Prop "read-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementReadOnly :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only" + +setDOMHTMLInputElementReadOnly :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementReadOnly obj val = liftIO $ setObjectPropertyBool obj "read-only" val + +constructDOMHTMLInputElementReadOnly :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementReadOnly val = constructObjectPropertyBool "read-only" val + +data DOMHTMLInputElementReadOnlyPropertyInfo +instance AttrInfo DOMHTMLInputElementReadOnlyPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementReadOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementReadOnlyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementReadOnlyPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementReadOnlyPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementReadOnlyPropertyInfo = "DOMHTMLInputElement::read-only" + attrGet _ = getDOMHTMLInputElementReadOnly + attrSet _ = setDOMHTMLInputElementReadOnly + attrConstruct _ = constructDOMHTMLInputElementReadOnly + +-- VVV Prop "required" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementRequired :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementRequired obj = liftIO $ getObjectPropertyBool obj "required" + +setDOMHTMLInputElementRequired :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementRequired obj val = liftIO $ setObjectPropertyBool obj "required" val + +constructDOMHTMLInputElementRequired :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementRequired val = constructObjectPropertyBool "required" val + +data DOMHTMLInputElementRequiredPropertyInfo +instance AttrInfo DOMHTMLInputElementRequiredPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementRequiredPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementRequiredPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementRequiredPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementRequiredPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementRequiredPropertyInfo = "DOMHTMLInputElement::required" + attrGet _ = getDOMHTMLInputElementRequired + attrSet _ = setDOMHTMLInputElementRequired + attrConstruct _ = constructDOMHTMLInputElementRequired + +-- VVV Prop "size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementSize :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64 +getDOMHTMLInputElementSize obj = liftIO $ getObjectPropertyUInt64 obj "size" + +setDOMHTMLInputElementSize :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m () +setDOMHTMLInputElementSize obj val = liftIO $ setObjectPropertyUInt64 obj "size" val + +constructDOMHTMLInputElementSize :: Word64 -> IO ([Char], GValue) +constructDOMHTMLInputElementSize val = constructObjectPropertyUInt64 "size" val + +data DOMHTMLInputElementSizePropertyInfo +instance AttrInfo DOMHTMLInputElementSizePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementSizePropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLInputElementSizePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementSizePropertyInfo = Word64 + type AttrLabel DOMHTMLInputElementSizePropertyInfo = "DOMHTMLInputElement::size" + attrGet _ = getDOMHTMLInputElementSize + attrSet _ = setDOMHTMLInputElementSize + attrConstruct _ = constructDOMHTMLInputElementSize + +-- VVV Prop "src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementSrc :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementSrc obj = liftIO $ getObjectPropertyString obj "src" + +setDOMHTMLInputElementSrc :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val + +constructDOMHTMLInputElementSrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementSrc val = constructObjectPropertyString "src" val + +data DOMHTMLInputElementSrcPropertyInfo +instance AttrInfo DOMHTMLInputElementSrcPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementSrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementSrcPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementSrcPropertyInfo = "DOMHTMLInputElement::src" + attrGet _ = getDOMHTMLInputElementSrc + attrSet _ = setDOMHTMLInputElementSrc + attrConstruct _ = constructDOMHTMLInputElementSrc + +-- VVV Prop "step" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementStep obj = liftIO $ getObjectPropertyString obj "step" + +setDOMHTMLInputElementStep :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementStep obj val = liftIO $ setObjectPropertyString obj "step" val + +constructDOMHTMLInputElementStep :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementStep val = constructObjectPropertyString "step" val + +data DOMHTMLInputElementStepPropertyInfo +instance AttrInfo DOMHTMLInputElementStepPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementStepPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementStepPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementStepPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementStepPropertyInfo = "DOMHTMLInputElement::step" + attrGet _ = getDOMHTMLInputElementStep + attrSet _ = setDOMHTMLInputElementStep + attrConstruct _ = constructDOMHTMLInputElementStep + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLInputElementType :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLInputElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementType val = constructObjectPropertyString "type" val + +data DOMHTMLInputElementTypePropertyInfo +instance AttrInfo DOMHTMLInputElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementTypePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementTypePropertyInfo = "DOMHTMLInputElement::type" + attrGet _ = getDOMHTMLInputElementType + attrSet _ = setDOMHTMLInputElementType + attrConstruct _ = constructDOMHTMLInputElementType + +-- VVV Prop "use-map" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementUseMap :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map" + +setDOMHTMLInputElementUseMap :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val + +constructDOMHTMLInputElementUseMap :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementUseMap val = constructObjectPropertyString "use-map" val + +data DOMHTMLInputElementUseMapPropertyInfo +instance AttrInfo DOMHTMLInputElementUseMapPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementUseMapPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementUseMapPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementUseMapPropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementUseMapPropertyInfo = "DOMHTMLInputElement::use-map" + attrGet _ = getDOMHTMLInputElementUseMap + attrSet _ = setDOMHTMLInputElementUseMap + attrConstruct _ = constructDOMHTMLInputElementUseMap + +-- VVV Prop "validation-message" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLInputElementValidationMessage :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" + +data DOMHTMLInputElementValidationMessagePropertyInfo +instance AttrInfo DOMHTMLInputElementValidationMessagePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementValidationMessagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLInputElementValidationMessagePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementValidationMessagePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementValidationMessagePropertyInfo = "DOMHTMLInputElement::validation-message" + attrGet _ = getDOMHTMLInputElementValidationMessage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validity" + -- Type: TInterface "WebKit" "DOMValidityState" + -- Flags: [PropertyReadable] + +getDOMHTMLInputElementValidity :: (MonadIO m, DOMHTMLInputElementK o) => o -> m DOMValidityState +getDOMHTMLInputElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState + +data DOMHTMLInputElementValidityPropertyInfo +instance AttrInfo DOMHTMLInputElementValidityPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementValidityPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementValidityPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLInputElementValidityPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementValidityPropertyInfo = DOMValidityState + type AttrLabel DOMHTMLInputElementValidityPropertyInfo = "DOMHTMLInputElement::validity" + attrGet _ = getDOMHTMLInputElementValidity + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> m T.Text +getDOMHTMLInputElementValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMHTMLInputElementValue :: (MonadIO m, DOMHTMLInputElementK o) => o -> T.Text -> m () +setDOMHTMLInputElementValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMHTMLInputElementValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLInputElementValue val = constructObjectPropertyString "value" val + +data DOMHTMLInputElementValuePropertyInfo +instance AttrInfo DOMHTMLInputElementValuePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLInputElementValuePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementValuePropertyInfo = T.Text + type AttrLabel DOMHTMLInputElementValuePropertyInfo = "DOMHTMLInputElement::value" + attrGet _ = getDOMHTMLInputElementValue + attrSet _ = setDOMHTMLInputElementValue + attrConstruct _ = constructDOMHTMLInputElementValue + +-- VVV Prop "value-as-number" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementValueAsNumber :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Double +getDOMHTMLInputElementValueAsNumber obj = liftIO $ getObjectPropertyDouble obj "value-as-number" + +setDOMHTMLInputElementValueAsNumber :: (MonadIO m, DOMHTMLInputElementK o) => o -> Double -> m () +setDOMHTMLInputElementValueAsNumber obj val = liftIO $ setObjectPropertyDouble obj "value-as-number" val + +constructDOMHTMLInputElementValueAsNumber :: Double -> IO ([Char], GValue) +constructDOMHTMLInputElementValueAsNumber val = constructObjectPropertyDouble "value-as-number" val + +data DOMHTMLInputElementValueAsNumberPropertyInfo +instance AttrInfo DOMHTMLInputElementValueAsNumberPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementValueAsNumberPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementValueAsNumberPropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMHTMLInputElementValueAsNumberPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementValueAsNumberPropertyInfo = Double + type AttrLabel DOMHTMLInputElementValueAsNumberPropertyInfo = "DOMHTMLInputElement::value-as-number" + attrGet _ = getDOMHTMLInputElementValueAsNumber + attrSet _ = setDOMHTMLInputElementValueAsNumber + attrConstruct _ = constructDOMHTMLInputElementValueAsNumber + +-- VVV Prop "webkit-grammar" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementWebkitGrammar :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementWebkitGrammar obj = liftIO $ getObjectPropertyBool obj "webkit-grammar" + +setDOMHTMLInputElementWebkitGrammar :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementWebkitGrammar obj val = liftIO $ setObjectPropertyBool obj "webkit-grammar" val + +constructDOMHTMLInputElementWebkitGrammar :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementWebkitGrammar val = constructObjectPropertyBool "webkit-grammar" val + +data DOMHTMLInputElementWebkitGrammarPropertyInfo +instance AttrInfo DOMHTMLInputElementWebkitGrammarPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementWebkitGrammarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementWebkitGrammarPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementWebkitGrammarPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementWebkitGrammarPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementWebkitGrammarPropertyInfo = "DOMHTMLInputElement::webkit-grammar" + attrGet _ = getDOMHTMLInputElementWebkitGrammar + attrSet _ = setDOMHTMLInputElementWebkitGrammar + attrConstruct _ = constructDOMHTMLInputElementWebkitGrammar + +-- VVV Prop "webkit-speech" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementWebkitSpeech :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementWebkitSpeech obj = liftIO $ getObjectPropertyBool obj "webkit-speech" + +setDOMHTMLInputElementWebkitSpeech :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementWebkitSpeech obj val = liftIO $ setObjectPropertyBool obj "webkit-speech" val + +constructDOMHTMLInputElementWebkitSpeech :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementWebkitSpeech val = constructObjectPropertyBool "webkit-speech" val + +data DOMHTMLInputElementWebkitSpeechPropertyInfo +instance AttrInfo DOMHTMLInputElementWebkitSpeechPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementWebkitSpeechPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementWebkitSpeechPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementWebkitSpeechPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementWebkitSpeechPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementWebkitSpeechPropertyInfo = "DOMHTMLInputElement::webkit-speech" + attrGet _ = getDOMHTMLInputElementWebkitSpeech + attrSet _ = setDOMHTMLInputElementWebkitSpeech + attrConstruct _ = constructDOMHTMLInputElementWebkitSpeech + +-- VVV Prop "webkitdirectory" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementWebkitdirectory :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementWebkitdirectory obj = liftIO $ getObjectPropertyBool obj "webkitdirectory" + +setDOMHTMLInputElementWebkitdirectory :: (MonadIO m, DOMHTMLInputElementK o) => o -> Bool -> m () +setDOMHTMLInputElementWebkitdirectory obj val = liftIO $ setObjectPropertyBool obj "webkitdirectory" val + +constructDOMHTMLInputElementWebkitdirectory :: Bool -> IO ([Char], GValue) +constructDOMHTMLInputElementWebkitdirectory val = constructObjectPropertyBool "webkitdirectory" val + +data DOMHTMLInputElementWebkitdirectoryPropertyInfo +instance AttrInfo DOMHTMLInputElementWebkitdirectoryPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementWebkitdirectoryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementWebkitdirectoryPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLInputElementWebkitdirectoryPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementWebkitdirectoryPropertyInfo = Bool + type AttrLabel DOMHTMLInputElementWebkitdirectoryPropertyInfo = "DOMHTMLInputElement::webkitdirectory" + attrGet _ = getDOMHTMLInputElementWebkitdirectory + attrSet _ = setDOMHTMLInputElementWebkitdirectory + attrConstruct _ = constructDOMHTMLInputElementWebkitdirectory + +-- VVV Prop "width" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLInputElementWidth :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Word64 +getDOMHTMLInputElementWidth obj = liftIO $ getObjectPropertyUInt64 obj "width" + +setDOMHTMLInputElementWidth :: (MonadIO m, DOMHTMLInputElementK o) => o -> Word64 -> m () +setDOMHTMLInputElementWidth obj val = liftIO $ setObjectPropertyUInt64 obj "width" val + +constructDOMHTMLInputElementWidth :: Word64 -> IO ([Char], GValue) +constructDOMHTMLInputElementWidth val = constructObjectPropertyUInt64 "width" val + +data DOMHTMLInputElementWidthPropertyInfo +instance AttrInfo DOMHTMLInputElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLInputElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementWidthPropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLInputElementWidthPropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementWidthPropertyInfo = Word64 + type AttrLabel DOMHTMLInputElementWidthPropertyInfo = "DOMHTMLInputElement::width" + attrGet _ = getDOMHTMLInputElementWidth + attrSet _ = setDOMHTMLInputElementWidth + attrConstruct _ = constructDOMHTMLInputElementWidth + +-- VVV Prop "will-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLInputElementWillValidate :: (MonadIO m, DOMHTMLInputElementK o) => o -> m Bool +getDOMHTMLInputElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" + +data DOMHTMLInputElementWillValidatePropertyInfo +instance AttrInfo DOMHTMLInputElementWillValidatePropertyInfo where + type AttrAllowedOps DOMHTMLInputElementWillValidatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLInputElementWillValidatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLInputElementWillValidatePropertyInfo = DOMHTMLInputElementK + type AttrGetType DOMHTMLInputElementWillValidatePropertyInfo = Bool + type AttrLabel DOMHTMLInputElementWillValidatePropertyInfo = "DOMHTMLInputElement::will-validate" + attrGet _ = getDOMHTMLInputElementWillValidate + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLInputElement = '[ '("accept", DOMHTMLInputElementAcceptPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLInputElementAlignPropertyInfo), '("alt", DOMHTMLInputElementAltPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLInputElementAutocapitalizePropertyInfo), '("autocomplete", DOMHTMLInputElementAutocompletePropertyInfo), '("autocorrect", DOMHTMLInputElementAutocorrectPropertyInfo), '("autofocus", DOMHTMLInputElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("capture", DOMHTMLInputElementCapturePropertyInfo), '("checked", DOMHTMLInputElementCheckedPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("default-checked", DOMHTMLInputElementDefaultCheckedPropertyInfo), '("default-value", DOMHTMLInputElementDefaultValuePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("dir-name", DOMHTMLInputElementDirNamePropertyInfo), '("disabled", DOMHTMLInputElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("files", DOMHTMLInputElementFilesPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLInputElementFormPropertyInfo), '("form-action", DOMHTMLInputElementFormActionPropertyInfo), '("form-enctype", DOMHTMLInputElementFormEnctypePropertyInfo), '("form-method", DOMHTMLInputElementFormMethodPropertyInfo), '("form-no-validate", DOMHTMLInputElementFormNoValidatePropertyInfo), '("form-target", DOMHTMLInputElementFormTargetPropertyInfo), '("height", DOMHTMLInputElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("incremental", DOMHTMLInputElementIncrementalPropertyInfo), '("indeterminate", DOMHTMLInputElementIndeterminatePropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLInputElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("list", DOMHTMLInputElementListPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("max", DOMHTMLInputElementMaxPropertyInfo), '("max-length", DOMHTMLInputElementMaxLengthPropertyInfo), '("min", DOMHTMLInputElementMinPropertyInfo), '("multiple", DOMHTMLInputElementMultiplePropertyInfo), '("name", DOMHTMLInputElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("pattern", DOMHTMLInputElementPatternPropertyInfo), '("placeholder", DOMHTMLInputElementPlaceholderPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("read-only", DOMHTMLInputElementReadOnlyPropertyInfo), '("required", DOMHTMLInputElementRequiredPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("size", DOMHTMLInputElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLInputElementSrcPropertyInfo), '("step", DOMHTMLInputElementStepPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLInputElementTypePropertyInfo), '("use-map", DOMHTMLInputElementUseMapPropertyInfo), '("validation-message", DOMHTMLInputElementValidationMessagePropertyInfo), '("validity", DOMHTMLInputElementValidityPropertyInfo), '("value", DOMHTMLInputElementValuePropertyInfo), '("value-as-number", DOMHTMLInputElementValueAsNumberPropertyInfo), '("webkit-grammar", DOMHTMLInputElementWebkitGrammarPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkit-speech", DOMHTMLInputElementWebkitSpeechPropertyInfo), '("webkitdirectory", DOMHTMLInputElementWebkitdirectoryPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLInputElementWidthPropertyInfo), '("will-validate", DOMHTMLInputElementWillValidatePropertyInfo)] + +-- VVV Prop "autofocus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLKeygenElementAutofocus :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool +getDOMHTMLKeygenElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" + +setDOMHTMLKeygenElementAutofocus :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> Bool -> m () +setDOMHTMLKeygenElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val + +constructDOMHTMLKeygenElementAutofocus :: Bool -> IO ([Char], GValue) +constructDOMHTMLKeygenElementAutofocus val = constructObjectPropertyBool "autofocus" val + +data DOMHTMLKeygenElementAutofocusPropertyInfo +instance AttrInfo DOMHTMLKeygenElementAutofocusPropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementAutofocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLKeygenElementAutofocusPropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementAutofocusPropertyInfo = Bool + type AttrLabel DOMHTMLKeygenElementAutofocusPropertyInfo = "DOMHTMLKeygenElement::autofocus" + attrGet _ = getDOMHTMLKeygenElementAutofocus + attrSet _ = setDOMHTMLKeygenElementAutofocus + attrConstruct _ = constructDOMHTMLKeygenElementAutofocus + +-- VVV Prop "challenge" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLKeygenElementChallenge :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementChallenge obj = liftIO $ getObjectPropertyString obj "challenge" + +setDOMHTMLKeygenElementChallenge :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m () +setDOMHTMLKeygenElementChallenge obj val = liftIO $ setObjectPropertyString obj "challenge" val + +constructDOMHTMLKeygenElementChallenge :: T.Text -> IO ([Char], GValue) +constructDOMHTMLKeygenElementChallenge val = constructObjectPropertyString "challenge" val + +data DOMHTMLKeygenElementChallengePropertyInfo +instance AttrInfo DOMHTMLKeygenElementChallengePropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementChallengePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementChallengePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLKeygenElementChallengePropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementChallengePropertyInfo = T.Text + type AttrLabel DOMHTMLKeygenElementChallengePropertyInfo = "DOMHTMLKeygenElement::challenge" + attrGet _ = getDOMHTMLKeygenElementChallenge + attrSet _ = setDOMHTMLKeygenElementChallenge + attrConstruct _ = constructDOMHTMLKeygenElementChallenge + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLKeygenElementDisabled :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool +getDOMHTMLKeygenElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLKeygenElementDisabled :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> Bool -> m () +setDOMHTMLKeygenElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLKeygenElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLKeygenElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLKeygenElementDisabledPropertyInfo +instance AttrInfo DOMHTMLKeygenElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLKeygenElementDisabledPropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLKeygenElementDisabledPropertyInfo = "DOMHTMLKeygenElement::disabled" + attrGet _ = getDOMHTMLKeygenElementDisabled + attrSet _ = setDOMHTMLKeygenElementDisabled + attrConstruct _ = constructDOMHTMLKeygenElementDisabled + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLKeygenElementForm :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLKeygenElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLKeygenElementFormPropertyInfo +instance AttrInfo DOMHTMLKeygenElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLKeygenElementFormPropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLKeygenElementFormPropertyInfo = "DOMHTMLKeygenElement::form" + attrGet _ = getDOMHTMLKeygenElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "keytype" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLKeygenElementKeytype :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementKeytype obj = liftIO $ getObjectPropertyString obj "keytype" + +setDOMHTMLKeygenElementKeytype :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m () +setDOMHTMLKeygenElementKeytype obj val = liftIO $ setObjectPropertyString obj "keytype" val + +constructDOMHTMLKeygenElementKeytype :: T.Text -> IO ([Char], GValue) +constructDOMHTMLKeygenElementKeytype val = constructObjectPropertyString "keytype" val + +data DOMHTMLKeygenElementKeytypePropertyInfo +instance AttrInfo DOMHTMLKeygenElementKeytypePropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementKeytypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementKeytypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLKeygenElementKeytypePropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementKeytypePropertyInfo = T.Text + type AttrLabel DOMHTMLKeygenElementKeytypePropertyInfo = "DOMHTMLKeygenElement::keytype" + attrGet _ = getDOMHTMLKeygenElementKeytype + attrSet _ = setDOMHTMLKeygenElementKeytype + attrConstruct _ = constructDOMHTMLKeygenElementKeytype + +-- VVV Prop "labels" + -- Type: TInterface "WebKit" "DOMNodeList" + -- Flags: [PropertyReadable] + +getDOMHTMLKeygenElementLabels :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMNodeList +getDOMHTMLKeygenElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList + +data DOMHTMLKeygenElementLabelsPropertyInfo +instance AttrInfo DOMHTMLKeygenElementLabelsPropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementLabelsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLKeygenElementLabelsPropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementLabelsPropertyInfo = DOMNodeList + type AttrLabel DOMHTMLKeygenElementLabelsPropertyInfo = "DOMHTMLKeygenElement::labels" + attrGet _ = getDOMHTMLKeygenElementLabels + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLKeygenElementName :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLKeygenElementName :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> T.Text -> m () +setDOMHTMLKeygenElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLKeygenElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLKeygenElementName val = constructObjectPropertyString "name" val + +data DOMHTMLKeygenElementNamePropertyInfo +instance AttrInfo DOMHTMLKeygenElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLKeygenElementNamePropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLKeygenElementNamePropertyInfo = "DOMHTMLKeygenElement::name" + attrGet _ = getDOMHTMLKeygenElementName + attrSet _ = setDOMHTMLKeygenElementName + attrConstruct _ = constructDOMHTMLKeygenElementName + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLKeygenElementType :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMHTMLKeygenElementTypePropertyInfo +instance AttrInfo DOMHTMLKeygenElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLKeygenElementTypePropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLKeygenElementTypePropertyInfo = "DOMHTMLKeygenElement::type" + attrGet _ = getDOMHTMLKeygenElementType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validation-message" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLKeygenElementValidationMessage :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m T.Text +getDOMHTMLKeygenElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" + +data DOMHTMLKeygenElementValidationMessagePropertyInfo +instance AttrInfo DOMHTMLKeygenElementValidationMessagePropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementValidationMessagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLKeygenElementValidationMessagePropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementValidationMessagePropertyInfo = T.Text + type AttrLabel DOMHTMLKeygenElementValidationMessagePropertyInfo = "DOMHTMLKeygenElement::validation-message" + attrGet _ = getDOMHTMLKeygenElementValidationMessage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validity" + -- Type: TInterface "WebKit" "DOMValidityState" + -- Flags: [PropertyReadable] + +getDOMHTMLKeygenElementValidity :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m DOMValidityState +getDOMHTMLKeygenElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState + +data DOMHTMLKeygenElementValidityPropertyInfo +instance AttrInfo DOMHTMLKeygenElementValidityPropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementValidityPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementValidityPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLKeygenElementValidityPropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementValidityPropertyInfo = DOMValidityState + type AttrLabel DOMHTMLKeygenElementValidityPropertyInfo = "DOMHTMLKeygenElement::validity" + attrGet _ = getDOMHTMLKeygenElementValidity + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "will-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLKeygenElementWillValidate :: (MonadIO m, DOMHTMLKeygenElementK o) => o -> m Bool +getDOMHTMLKeygenElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" + +data DOMHTMLKeygenElementWillValidatePropertyInfo +instance AttrInfo DOMHTMLKeygenElementWillValidatePropertyInfo where + type AttrAllowedOps DOMHTMLKeygenElementWillValidatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLKeygenElementWillValidatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLKeygenElementWillValidatePropertyInfo = DOMHTMLKeygenElementK + type AttrGetType DOMHTMLKeygenElementWillValidatePropertyInfo = Bool + type AttrLabel DOMHTMLKeygenElementWillValidatePropertyInfo = "DOMHTMLKeygenElement::will-validate" + attrGet _ = getDOMHTMLKeygenElementWillValidate + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLKeygenElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLKeygenElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("challenge", DOMHTMLKeygenElementChallengePropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLKeygenElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLKeygenElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("keytype", DOMHTMLKeygenElementKeytypePropertyInfo), '("labels", DOMHTMLKeygenElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLKeygenElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLKeygenElementTypePropertyInfo), '("validation-message", DOMHTMLKeygenElementValidationMessagePropertyInfo), '("validity", DOMHTMLKeygenElementValidityPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLKeygenElementWillValidatePropertyInfo)] + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> m T.Text +getDOMHTMLLIElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLLIElementType :: (MonadIO m, DOMHTMLLIElementK o) => o -> T.Text -> m () +setDOMHTMLLIElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLLIElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLIElementType val = constructObjectPropertyString "type" val + +data DOMHTMLLIElementTypePropertyInfo +instance AttrInfo DOMHTMLLIElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLLIElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLIElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLIElementTypePropertyInfo = DOMHTMLLIElementK + type AttrGetType DOMHTMLLIElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLLIElementTypePropertyInfo = "DOMHTMLLIElement::type" + attrGet _ = getDOMHTMLLIElementType + attrSet _ = setDOMHTMLLIElementType + attrConstruct _ = constructDOMHTMLLIElementType + +-- VVV Prop "value" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLIElementValue :: (MonadIO m, DOMHTMLLIElementK o) => o -> m Int64 +getDOMHTMLLIElementValue obj = liftIO $ getObjectPropertyInt64 obj "value" + +setDOMHTMLLIElementValue :: (MonadIO m, DOMHTMLLIElementK o) => o -> Int64 -> m () +setDOMHTMLLIElementValue obj val = liftIO $ setObjectPropertyInt64 obj "value" val + +constructDOMHTMLLIElementValue :: Int64 -> IO ([Char], GValue) +constructDOMHTMLLIElementValue val = constructObjectPropertyInt64 "value" val + +data DOMHTMLLIElementValuePropertyInfo +instance AttrInfo DOMHTMLLIElementValuePropertyInfo where + type AttrAllowedOps DOMHTMLLIElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLIElementValuePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLLIElementValuePropertyInfo = DOMHTMLLIElementK + type AttrGetType DOMHTMLLIElementValuePropertyInfo = Int64 + type AttrLabel DOMHTMLLIElementValuePropertyInfo = "DOMHTMLLIElement::value" + attrGet _ = getDOMHTMLLIElementValue + attrSet _ = setDOMHTMLLIElementValue + attrConstruct _ = constructDOMHTMLLIElementValue + +type instance AttributeList DOMHTMLLIElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLLIElementTypePropertyInfo), '("value", DOMHTMLLIElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "control" + -- Type: TInterface "WebKit" "DOMHTMLElement" + -- Flags: [PropertyReadable] + +getDOMHTMLLabelElementControl :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m DOMHTMLElement +getDOMHTMLLabelElementControl obj = liftIO $ getObjectPropertyObject obj "control" DOMHTMLElement + +data DOMHTMLLabelElementControlPropertyInfo +instance AttrInfo DOMHTMLLabelElementControlPropertyInfo where + type AttrAllowedOps DOMHTMLLabelElementControlPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLabelElementControlPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLLabelElementControlPropertyInfo = DOMHTMLLabelElementK + type AttrGetType DOMHTMLLabelElementControlPropertyInfo = DOMHTMLElement + type AttrLabel DOMHTMLLabelElementControlPropertyInfo = "DOMHTMLLabelElement::control" + attrGet _ = getDOMHTMLLabelElementControl + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLLabelElementForm :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLLabelElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLLabelElementFormPropertyInfo +instance AttrInfo DOMHTMLLabelElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLLabelElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLabelElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLLabelElementFormPropertyInfo = DOMHTMLLabelElementK + type AttrGetType DOMHTMLLabelElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLLabelElementFormPropertyInfo = "DOMHTMLLabelElement::form" + attrGet _ = getDOMHTMLLabelElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "html-for" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLabelElementHtmlFor :: (MonadIO m, DOMHTMLLabelElementK o) => o -> m T.Text +getDOMHTMLLabelElementHtmlFor obj = liftIO $ getObjectPropertyString obj "html-for" + +setDOMHTMLLabelElementHtmlFor :: (MonadIO m, DOMHTMLLabelElementK o) => o -> T.Text -> m () +setDOMHTMLLabelElementHtmlFor obj val = liftIO $ setObjectPropertyString obj "html-for" val + +constructDOMHTMLLabelElementHtmlFor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLabelElementHtmlFor val = constructObjectPropertyString "html-for" val + +data DOMHTMLLabelElementHtmlForPropertyInfo +instance AttrInfo DOMHTMLLabelElementHtmlForPropertyInfo where + type AttrAllowedOps DOMHTMLLabelElementHtmlForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLabelElementHtmlForPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLabelElementHtmlForPropertyInfo = DOMHTMLLabelElementK + type AttrGetType DOMHTMLLabelElementHtmlForPropertyInfo = T.Text + type AttrLabel DOMHTMLLabelElementHtmlForPropertyInfo = "DOMHTMLLabelElement::html-for" + attrGet _ = getDOMHTMLLabelElementHtmlFor + attrSet _ = setDOMHTMLLabelElementHtmlFor + attrConstruct _ = constructDOMHTMLLabelElementHtmlFor + +type instance AttributeList DOMHTMLLabelElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("control", DOMHTMLLabelElementControlPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLLabelElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("html-for", DOMHTMLLabelElementHtmlForPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLegendElementAlign :: (MonadIO m, DOMHTMLLegendElementK o) => o -> m T.Text +getDOMHTMLLegendElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLLegendElementAlign :: (MonadIO m, DOMHTMLLegendElementK o) => o -> T.Text -> m () +setDOMHTMLLegendElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLLegendElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLegendElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLLegendElementAlignPropertyInfo +instance AttrInfo DOMHTMLLegendElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLLegendElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLegendElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLegendElementAlignPropertyInfo = DOMHTMLLegendElementK + type AttrGetType DOMHTMLLegendElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLLegendElementAlignPropertyInfo = "DOMHTMLLegendElement::align" + attrGet _ = getDOMHTMLLegendElementAlign + attrSet _ = setDOMHTMLLegendElementAlign + attrConstruct _ = constructDOMHTMLLegendElementAlign + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLLegendElementForm :: (MonadIO m, DOMHTMLLegendElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLLegendElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLLegendElementFormPropertyInfo +instance AttrInfo DOMHTMLLegendElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLLegendElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLegendElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLLegendElementFormPropertyInfo = DOMHTMLLegendElementK + type AttrGetType DOMHTMLLegendElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLLegendElementFormPropertyInfo = "DOMHTMLLegendElement::form" + attrGet _ = getDOMHTMLLegendElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLLegendElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLLegendElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLLegendElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "charset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementCharset obj = liftIO $ getObjectPropertyString obj "charset" + +setDOMHTMLLinkElementCharset :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val + +constructDOMHTMLLinkElementCharset :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementCharset val = constructObjectPropertyString "charset" val + +data DOMHTMLLinkElementCharsetPropertyInfo +instance AttrInfo DOMHTMLLinkElementCharsetPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementCharsetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementCharsetPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementCharsetPropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementCharsetPropertyInfo = "DOMHTMLLinkElement::charset" + attrGet _ = getDOMHTMLLinkElementCharset + attrSet _ = setDOMHTMLLinkElementCharset + attrConstruct _ = constructDOMHTMLLinkElementCharset + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementDisabled :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m Bool +getDOMHTMLLinkElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLLinkElementDisabled :: (MonadIO m, DOMHTMLLinkElementK o) => o -> Bool -> m () +setDOMHTMLLinkElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLLinkElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLLinkElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLLinkElementDisabledPropertyInfo +instance AttrInfo DOMHTMLLinkElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLLinkElementDisabledPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLLinkElementDisabledPropertyInfo = "DOMHTMLLinkElement::disabled" + attrGet _ = getDOMHTMLLinkElementDisabled + attrSet _ = setDOMHTMLLinkElementDisabled + attrConstruct _ = constructDOMHTMLLinkElementDisabled + +-- VVV Prop "href" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementHref obj = liftIO $ getObjectPropertyString obj "href" + +setDOMHTMLLinkElementHref :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementHref obj val = liftIO $ setObjectPropertyString obj "href" val + +constructDOMHTMLLinkElementHref :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementHref val = constructObjectPropertyString "href" val + +data DOMHTMLLinkElementHrefPropertyInfo +instance AttrInfo DOMHTMLLinkElementHrefPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementHrefPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementHrefPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementHrefPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementHrefPropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementHrefPropertyInfo = "DOMHTMLLinkElement::href" + attrGet _ = getDOMHTMLLinkElementHref + attrSet _ = setDOMHTMLLinkElementHref + attrConstruct _ = constructDOMHTMLLinkElementHref + +-- VVV Prop "hreflang" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementHreflang obj = liftIO $ getObjectPropertyString obj "hreflang" + +setDOMHTMLLinkElementHreflang :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementHreflang obj val = liftIO $ setObjectPropertyString obj "hreflang" val + +constructDOMHTMLLinkElementHreflang :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementHreflang val = constructObjectPropertyString "hreflang" val + +data DOMHTMLLinkElementHreflangPropertyInfo +instance AttrInfo DOMHTMLLinkElementHreflangPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementHreflangPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementHreflangPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementHreflangPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementHreflangPropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementHreflangPropertyInfo = "DOMHTMLLinkElement::hreflang" + attrGet _ = getDOMHTMLLinkElementHreflang + attrSet _ = setDOMHTMLLinkElementHreflang + attrConstruct _ = constructDOMHTMLLinkElementHreflang + +-- VVV Prop "media" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementMedia obj = liftIO $ getObjectPropertyString obj "media" + +setDOMHTMLLinkElementMedia :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementMedia obj val = liftIO $ setObjectPropertyString obj "media" val + +constructDOMHTMLLinkElementMedia :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementMedia val = constructObjectPropertyString "media" val + +data DOMHTMLLinkElementMediaPropertyInfo +instance AttrInfo DOMHTMLLinkElementMediaPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementMediaPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementMediaPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementMediaPropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementMediaPropertyInfo = "DOMHTMLLinkElement::media" + attrGet _ = getDOMHTMLLinkElementMedia + attrSet _ = setDOMHTMLLinkElementMedia + attrConstruct _ = constructDOMHTMLLinkElementMedia + +-- VVV Prop "rel" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementRel obj = liftIO $ getObjectPropertyString obj "rel" + +setDOMHTMLLinkElementRel :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementRel obj val = liftIO $ setObjectPropertyString obj "rel" val + +constructDOMHTMLLinkElementRel :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementRel val = constructObjectPropertyString "rel" val + +data DOMHTMLLinkElementRelPropertyInfo +instance AttrInfo DOMHTMLLinkElementRelPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementRelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementRelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementRelPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementRelPropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementRelPropertyInfo = "DOMHTMLLinkElement::rel" + attrGet _ = getDOMHTMLLinkElementRel + attrSet _ = setDOMHTMLLinkElementRel + attrConstruct _ = constructDOMHTMLLinkElementRel + +-- VVV Prop "rev" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementRev obj = liftIO $ getObjectPropertyString obj "rev" + +setDOMHTMLLinkElementRev :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementRev obj val = liftIO $ setObjectPropertyString obj "rev" val + +constructDOMHTMLLinkElementRev :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementRev val = constructObjectPropertyString "rev" val + +data DOMHTMLLinkElementRevPropertyInfo +instance AttrInfo DOMHTMLLinkElementRevPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementRevPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementRevPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementRevPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementRevPropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementRevPropertyInfo = "DOMHTMLLinkElement::rev" + attrGet _ = getDOMHTMLLinkElementRev + attrSet _ = setDOMHTMLLinkElementRev + attrConstruct _ = constructDOMHTMLLinkElementRev + +-- VVV Prop "sheet" + -- Type: TInterface "WebKit" "DOMStyleSheet" + -- Flags: [PropertyReadable] + +getDOMHTMLLinkElementSheet :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m DOMStyleSheet +getDOMHTMLLinkElementSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet + +data DOMHTMLLinkElementSheetPropertyInfo +instance AttrInfo DOMHTMLLinkElementSheetPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementSheetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementSheetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLLinkElementSheetPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementSheetPropertyInfo = DOMStyleSheet + type AttrLabel DOMHTMLLinkElementSheetPropertyInfo = "DOMHTMLLinkElement::sheet" + attrGet _ = getDOMHTMLLinkElementSheet + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementTarget obj = liftIO $ getObjectPropertyString obj "target" + +setDOMHTMLLinkElementTarget :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementTarget obj val = liftIO $ setObjectPropertyString obj "target" val + +constructDOMHTMLLinkElementTarget :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementTarget val = constructObjectPropertyString "target" val + +data DOMHTMLLinkElementTargetPropertyInfo +instance AttrInfo DOMHTMLLinkElementTargetPropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementTargetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementTargetPropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementTargetPropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementTargetPropertyInfo = "DOMHTMLLinkElement::target" + attrGet _ = getDOMHTMLLinkElementTarget + attrSet _ = setDOMHTMLLinkElementTarget + attrConstruct _ = constructDOMHTMLLinkElementTarget + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> m T.Text +getDOMHTMLLinkElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLLinkElementType :: (MonadIO m, DOMHTMLLinkElementK o) => o -> T.Text -> m () +setDOMHTMLLinkElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLLinkElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLLinkElementType val = constructObjectPropertyString "type" val + +data DOMHTMLLinkElementTypePropertyInfo +instance AttrInfo DOMHTMLLinkElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLLinkElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLLinkElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLLinkElementTypePropertyInfo = DOMHTMLLinkElementK + type AttrGetType DOMHTMLLinkElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLLinkElementTypePropertyInfo = "DOMHTMLLinkElement::type" + attrGet _ = getDOMHTMLLinkElementType + attrSet _ = setDOMHTMLLinkElementType + attrConstruct _ = constructDOMHTMLLinkElementType + +type instance AttributeList DOMHTMLLinkElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLLinkElementCharsetPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLLinkElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("href", DOMHTMLLinkElementHrefPropertyInfo), '("hreflang", DOMHTMLLinkElementHreflangPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("media", DOMHTMLLinkElementMediaPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rel", DOMHTMLLinkElementRelPropertyInfo), '("rev", DOMHTMLLinkElementRevPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("sheet", DOMHTMLLinkElementSheetPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("target", DOMHTMLLinkElementTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLLinkElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "areas" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLMapElementAreas :: (MonadIO m, DOMHTMLMapElementK o) => o -> m DOMHTMLCollection +getDOMHTMLMapElementAreas obj = liftIO $ getObjectPropertyObject obj "areas" DOMHTMLCollection + +data DOMHTMLMapElementAreasPropertyInfo +instance AttrInfo DOMHTMLMapElementAreasPropertyInfo where + type AttrAllowedOps DOMHTMLMapElementAreasPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMapElementAreasPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMapElementAreasPropertyInfo = DOMHTMLMapElementK + type AttrGetType DOMHTMLMapElementAreasPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLMapElementAreasPropertyInfo = "DOMHTMLMapElement::areas" + attrGet _ = getDOMHTMLMapElementAreas + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMapElementName :: (MonadIO m, DOMHTMLMapElementK o) => o -> m T.Text +getDOMHTMLMapElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLMapElementName :: (MonadIO m, DOMHTMLMapElementK o) => o -> T.Text -> m () +setDOMHTMLMapElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLMapElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMapElementName val = constructObjectPropertyString "name" val + +data DOMHTMLMapElementNamePropertyInfo +instance AttrInfo DOMHTMLMapElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLMapElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMapElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMapElementNamePropertyInfo = DOMHTMLMapElementK + type AttrGetType DOMHTMLMapElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLMapElementNamePropertyInfo = "DOMHTMLMapElement::name" + attrGet _ = getDOMHTMLMapElementName + attrSet _ = setDOMHTMLMapElementName + attrConstruct _ = constructDOMHTMLMapElementName + +type instance AttributeList DOMHTMLMapElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("areas", DOMHTMLMapElementAreasPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLMapElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "behavior" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementBehavior obj = liftIO $ getObjectPropertyString obj "behavior" + +setDOMHTMLMarqueeElementBehavior :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () +setDOMHTMLMarqueeElementBehavior obj val = liftIO $ setObjectPropertyString obj "behavior" val + +constructDOMHTMLMarqueeElementBehavior :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementBehavior val = constructObjectPropertyString "behavior" val + +data DOMHTMLMarqueeElementBehaviorPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementBehaviorPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementBehaviorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementBehaviorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMarqueeElementBehaviorPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementBehaviorPropertyInfo = T.Text + type AttrLabel DOMHTMLMarqueeElementBehaviorPropertyInfo = "DOMHTMLMarqueeElement::behavior" + attrGet _ = getDOMHTMLMarqueeElementBehavior + attrSet _ = setDOMHTMLMarqueeElementBehavior + attrConstruct _ = constructDOMHTMLMarqueeElementBehavior + +-- VVV Prop "bg-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementBgColor :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" + +setDOMHTMLMarqueeElementBgColor :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () +setDOMHTMLMarqueeElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val + +constructDOMHTMLMarqueeElementBgColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementBgColor val = constructObjectPropertyString "bg-color" val + +data DOMHTMLMarqueeElementBgColorPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementBgColorPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementBgColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMarqueeElementBgColorPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementBgColorPropertyInfo = T.Text + type AttrLabel DOMHTMLMarqueeElementBgColorPropertyInfo = "DOMHTMLMarqueeElement::bg-color" + attrGet _ = getDOMHTMLMarqueeElementBgColor + attrSet _ = setDOMHTMLMarqueeElementBgColor + attrConstruct _ = constructDOMHTMLMarqueeElementBgColor + +-- VVV Prop "direction" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementDirection obj = liftIO $ getObjectPropertyString obj "direction" + +setDOMHTMLMarqueeElementDirection :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () +setDOMHTMLMarqueeElementDirection obj val = liftIO $ setObjectPropertyString obj "direction" val + +constructDOMHTMLMarqueeElementDirection :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementDirection val = constructObjectPropertyString "direction" val + +data DOMHTMLMarqueeElementDirectionPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementDirectionPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementDirectionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMarqueeElementDirectionPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementDirectionPropertyInfo = T.Text + type AttrLabel DOMHTMLMarqueeElementDirectionPropertyInfo = "DOMHTMLMarqueeElement::direction" + attrGet _ = getDOMHTMLMarqueeElementDirection + attrSet _ = setDOMHTMLMarqueeElementDirection + attrConstruct _ = constructDOMHTMLMarqueeElementDirection + +-- VVV Prop "height" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementHeight obj = liftIO $ getObjectPropertyString obj "height" + +setDOMHTMLMarqueeElementHeight :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () +setDOMHTMLMarqueeElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val + +constructDOMHTMLMarqueeElementHeight :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementHeight val = constructObjectPropertyString "height" val + +data DOMHTMLMarqueeElementHeightPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementHeightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMarqueeElementHeightPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementHeightPropertyInfo = T.Text + type AttrLabel DOMHTMLMarqueeElementHeightPropertyInfo = "DOMHTMLMarqueeElement::height" + attrGet _ = getDOMHTMLMarqueeElementHeight + attrSet _ = setDOMHTMLMarqueeElementHeight + attrConstruct _ = constructDOMHTMLMarqueeElementHeight + +-- VVV Prop "hspace" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementHspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Word64 +getDOMHTMLMarqueeElementHspace obj = liftIO $ getObjectPropertyUInt64 obj "hspace" + +setDOMHTMLMarqueeElementHspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Word64 -> m () +setDOMHTMLMarqueeElementHspace obj val = liftIO $ setObjectPropertyUInt64 obj "hspace" val + +constructDOMHTMLMarqueeElementHspace :: Word64 -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementHspace val = constructObjectPropertyUInt64 "hspace" val + +data DOMHTMLMarqueeElementHspacePropertyInfo +instance AttrInfo DOMHTMLMarqueeElementHspacePropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementHspacePropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLMarqueeElementHspacePropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementHspacePropertyInfo = Word64 + type AttrLabel DOMHTMLMarqueeElementHspacePropertyInfo = "DOMHTMLMarqueeElement::hspace" + attrGet _ = getDOMHTMLMarqueeElementHspace + attrSet _ = setDOMHTMLMarqueeElementHspace + attrConstruct _ = constructDOMHTMLMarqueeElementHspace + +-- VVV Prop "loop" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementLoop :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64 +getDOMHTMLMarqueeElementLoop obj = liftIO $ getObjectPropertyInt64 obj "loop" + +setDOMHTMLMarqueeElementLoop :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m () +setDOMHTMLMarqueeElementLoop obj val = liftIO $ setObjectPropertyInt64 obj "loop" val + +constructDOMHTMLMarqueeElementLoop :: Int64 -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementLoop val = constructObjectPropertyInt64 "loop" val + +data DOMHTMLMarqueeElementLoopPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementLoopPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementLoopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementLoopPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLMarqueeElementLoopPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementLoopPropertyInfo = Int64 + type AttrLabel DOMHTMLMarqueeElementLoopPropertyInfo = "DOMHTMLMarqueeElement::loop" + attrGet _ = getDOMHTMLMarqueeElementLoop + attrSet _ = setDOMHTMLMarqueeElementLoop + attrConstruct _ = constructDOMHTMLMarqueeElementLoop + +-- VVV Prop "scroll-amount" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64 +getDOMHTMLMarqueeElementScrollAmount obj = liftIO $ getObjectPropertyInt64 obj "scroll-amount" + +setDOMHTMLMarqueeElementScrollAmount :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m () +setDOMHTMLMarqueeElementScrollAmount obj val = liftIO $ setObjectPropertyInt64 obj "scroll-amount" val + +constructDOMHTMLMarqueeElementScrollAmount :: Int64 -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementScrollAmount val = constructObjectPropertyInt64 "scroll-amount" val + +data DOMHTMLMarqueeElementScrollAmountPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementScrollAmountPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementScrollAmountPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementScrollAmountPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLMarqueeElementScrollAmountPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementScrollAmountPropertyInfo = Int64 + type AttrLabel DOMHTMLMarqueeElementScrollAmountPropertyInfo = "DOMHTMLMarqueeElement::scroll-amount" + attrGet _ = getDOMHTMLMarqueeElementScrollAmount + attrSet _ = setDOMHTMLMarqueeElementScrollAmount + attrConstruct _ = constructDOMHTMLMarqueeElementScrollAmount + +-- VVV Prop "scroll-delay" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Int64 +getDOMHTMLMarqueeElementScrollDelay obj = liftIO $ getObjectPropertyInt64 obj "scroll-delay" + +setDOMHTMLMarqueeElementScrollDelay :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Int64 -> m () +setDOMHTMLMarqueeElementScrollDelay obj val = liftIO $ setObjectPropertyInt64 obj "scroll-delay" val + +constructDOMHTMLMarqueeElementScrollDelay :: Int64 -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementScrollDelay val = constructObjectPropertyInt64 "scroll-delay" val + +data DOMHTMLMarqueeElementScrollDelayPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementScrollDelayPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementScrollDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementScrollDelayPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLMarqueeElementScrollDelayPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementScrollDelayPropertyInfo = Int64 + type AttrLabel DOMHTMLMarqueeElementScrollDelayPropertyInfo = "DOMHTMLMarqueeElement::scroll-delay" + attrGet _ = getDOMHTMLMarqueeElementScrollDelay + attrSet _ = setDOMHTMLMarqueeElementScrollDelay + attrConstruct _ = constructDOMHTMLMarqueeElementScrollDelay + +-- VVV Prop "true-speed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementTrueSpeed :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Bool +getDOMHTMLMarqueeElementTrueSpeed obj = liftIO $ getObjectPropertyBool obj "true-speed" + +setDOMHTMLMarqueeElementTrueSpeed :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Bool -> m () +setDOMHTMLMarqueeElementTrueSpeed obj val = liftIO $ setObjectPropertyBool obj "true-speed" val + +constructDOMHTMLMarqueeElementTrueSpeed :: Bool -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementTrueSpeed val = constructObjectPropertyBool "true-speed" val + +data DOMHTMLMarqueeElementTrueSpeedPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementTrueSpeedPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementTrueSpeedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementTrueSpeedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMarqueeElementTrueSpeedPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementTrueSpeedPropertyInfo = Bool + type AttrLabel DOMHTMLMarqueeElementTrueSpeedPropertyInfo = "DOMHTMLMarqueeElement::true-speed" + attrGet _ = getDOMHTMLMarqueeElementTrueSpeed + attrSet _ = setDOMHTMLMarqueeElementTrueSpeed + attrConstruct _ = constructDOMHTMLMarqueeElementTrueSpeed + +-- VVV Prop "vspace" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementVspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m Word64 +getDOMHTMLMarqueeElementVspace obj = liftIO $ getObjectPropertyUInt64 obj "vspace" + +setDOMHTMLMarqueeElementVspace :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> Word64 -> m () +setDOMHTMLMarqueeElementVspace obj val = liftIO $ setObjectPropertyUInt64 obj "vspace" val + +constructDOMHTMLMarqueeElementVspace :: Word64 -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementVspace val = constructObjectPropertyUInt64 "vspace" val + +data DOMHTMLMarqueeElementVspacePropertyInfo +instance AttrInfo DOMHTMLMarqueeElementVspacePropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementVspacePropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLMarqueeElementVspacePropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementVspacePropertyInfo = Word64 + type AttrLabel DOMHTMLMarqueeElementVspacePropertyInfo = "DOMHTMLMarqueeElement::vspace" + attrGet _ = getDOMHTMLMarqueeElementVspace + attrSet _ = setDOMHTMLMarqueeElementVspace + attrConstruct _ = constructDOMHTMLMarqueeElementVspace + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> m T.Text +getDOMHTMLMarqueeElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLMarqueeElementWidth :: (MonadIO m, DOMHTMLMarqueeElementK o) => o -> T.Text -> m () +setDOMHTMLMarqueeElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLMarqueeElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMarqueeElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLMarqueeElementWidthPropertyInfo +instance AttrInfo DOMHTMLMarqueeElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLMarqueeElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMarqueeElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMarqueeElementWidthPropertyInfo = DOMHTMLMarqueeElementK + type AttrGetType DOMHTMLMarqueeElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLMarqueeElementWidthPropertyInfo = "DOMHTMLMarqueeElement::width" + attrGet _ = getDOMHTMLMarqueeElementWidth + attrSet _ = setDOMHTMLMarqueeElementWidth + attrConstruct _ = constructDOMHTMLMarqueeElementWidth + +type instance AttributeList DOMHTMLMarqueeElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("behavior", DOMHTMLMarqueeElementBehaviorPropertyInfo), '("bg-color", DOMHTMLMarqueeElementBgColorPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("direction", DOMHTMLMarqueeElementDirectionPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLMarqueeElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLMarqueeElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMarqueeElementLoopPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-amount", DOMHTMLMarqueeElementScrollAmountPropertyInfo), '("scroll-delay", DOMHTMLMarqueeElementScrollDelayPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("true-speed", DOMHTMLMarqueeElementTrueSpeedPropertyInfo), '("vspace", DOMHTMLMarqueeElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLMarqueeElementWidthPropertyInfo)] + +-- VVV Prop "audio-tracks" + -- Type: TInterface "WebKit" "DOMAudioTrackList" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementAudioTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMAudioTrackList +getDOMHTMLMediaElementAudioTracks obj = liftIO $ getObjectPropertyObject obj "audio-tracks" DOMAudioTrackList + +data DOMHTMLMediaElementAudioTracksPropertyInfo +instance AttrInfo DOMHTMLMediaElementAudioTracksPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementAudioTracksPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementAudioTracksPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementAudioTracksPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementAudioTracksPropertyInfo = DOMAudioTrackList + type AttrLabel DOMHTMLMediaElementAudioTracksPropertyInfo = "DOMHTMLMediaElement::audio-tracks" + attrGet _ = getDOMHTMLMediaElementAudioTracks + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "autoplay" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementAutoplay :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementAutoplay obj = liftIO $ getObjectPropertyBool obj "autoplay" + +setDOMHTMLMediaElementAutoplay :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () +setDOMHTMLMediaElementAutoplay obj val = liftIO $ setObjectPropertyBool obj "autoplay" val + +constructDOMHTMLMediaElementAutoplay :: Bool -> IO ([Char], GValue) +constructDOMHTMLMediaElementAutoplay val = constructObjectPropertyBool "autoplay" val + +data DOMHTMLMediaElementAutoplayPropertyInfo +instance AttrInfo DOMHTMLMediaElementAutoplayPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementAutoplayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementAutoplayPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMediaElementAutoplayPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementAutoplayPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementAutoplayPropertyInfo = "DOMHTMLMediaElement::autoplay" + attrGet _ = getDOMHTMLMediaElementAutoplay + attrSet _ = setDOMHTMLMediaElementAutoplay + attrConstruct _ = constructDOMHTMLMediaElementAutoplay + +-- VVV Prop "buffered" + -- Type: TInterface "WebKit" "DOMTimeRanges" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementBuffered :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges +getDOMHTMLMediaElementBuffered obj = liftIO $ getObjectPropertyObject obj "buffered" DOMTimeRanges + +data DOMHTMLMediaElementBufferedPropertyInfo +instance AttrInfo DOMHTMLMediaElementBufferedPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementBufferedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementBufferedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementBufferedPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementBufferedPropertyInfo = DOMTimeRanges + type AttrLabel DOMHTMLMediaElementBufferedPropertyInfo = "DOMHTMLMediaElement::buffered" + attrGet _ = getDOMHTMLMediaElementBuffered + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "controller" + -- Type: TInterface "WebKit" "DOMMediaController" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementController :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMMediaController +getDOMHTMLMediaElementController obj = liftIO $ getObjectPropertyObject obj "controller" DOMMediaController + +data DOMHTMLMediaElementControllerPropertyInfo +instance AttrInfo DOMHTMLMediaElementControllerPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementControllerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementControllerPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementControllerPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementControllerPropertyInfo = DOMMediaController + type AttrLabel DOMHTMLMediaElementControllerPropertyInfo = "DOMHTMLMediaElement::controller" + attrGet _ = getDOMHTMLMediaElementController + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "controls" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementControls :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementControls obj = liftIO $ getObjectPropertyBool obj "controls" + +setDOMHTMLMediaElementControls :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () +setDOMHTMLMediaElementControls obj val = liftIO $ setObjectPropertyBool obj "controls" val + +constructDOMHTMLMediaElementControls :: Bool -> IO ([Char], GValue) +constructDOMHTMLMediaElementControls val = constructObjectPropertyBool "controls" val + +data DOMHTMLMediaElementControlsPropertyInfo +instance AttrInfo DOMHTMLMediaElementControlsPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementControlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementControlsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMediaElementControlsPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementControlsPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementControlsPropertyInfo = "DOMHTMLMediaElement::controls" + attrGet _ = getDOMHTMLMediaElementControls + attrSet _ = setDOMHTMLMediaElementControls + attrConstruct _ = constructDOMHTMLMediaElementControls + +-- VVV Prop "current-src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementCurrentSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text +getDOMHTMLMediaElementCurrentSrc obj = liftIO $ getObjectPropertyString obj "current-src" + +data DOMHTMLMediaElementCurrentSrcPropertyInfo +instance AttrInfo DOMHTMLMediaElementCurrentSrcPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementCurrentSrcPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementCurrentSrcPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementCurrentSrcPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementCurrentSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLMediaElementCurrentSrcPropertyInfo = "DOMHTMLMediaElement::current-src" + attrGet _ = getDOMHTMLMediaElementCurrentSrc + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "current-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementCurrentTime :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double +getDOMHTMLMediaElementCurrentTime obj = liftIO $ getObjectPropertyDouble obj "current-time" + +setDOMHTMLMediaElementCurrentTime :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m () +setDOMHTMLMediaElementCurrentTime obj val = liftIO $ setObjectPropertyDouble obj "current-time" val + +constructDOMHTMLMediaElementCurrentTime :: Double -> IO ([Char], GValue) +constructDOMHTMLMediaElementCurrentTime val = constructObjectPropertyDouble "current-time" val + +data DOMHTMLMediaElementCurrentTimePropertyInfo +instance AttrInfo DOMHTMLMediaElementCurrentTimePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementCurrentTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementCurrentTimePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMHTMLMediaElementCurrentTimePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementCurrentTimePropertyInfo = Double + type AttrLabel DOMHTMLMediaElementCurrentTimePropertyInfo = "DOMHTMLMediaElement::current-time" + attrGet _ = getDOMHTMLMediaElementCurrentTime + attrSet _ = setDOMHTMLMediaElementCurrentTime + attrConstruct _ = constructDOMHTMLMediaElementCurrentTime + +-- VVV Prop "default-muted" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementDefaultMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementDefaultMuted obj = liftIO $ getObjectPropertyBool obj "default-muted" + +setDOMHTMLMediaElementDefaultMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () +setDOMHTMLMediaElementDefaultMuted obj val = liftIO $ setObjectPropertyBool obj "default-muted" val + +constructDOMHTMLMediaElementDefaultMuted :: Bool -> IO ([Char], GValue) +constructDOMHTMLMediaElementDefaultMuted val = constructObjectPropertyBool "default-muted" val + +data DOMHTMLMediaElementDefaultMutedPropertyInfo +instance AttrInfo DOMHTMLMediaElementDefaultMutedPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementDefaultMutedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementDefaultMutedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMediaElementDefaultMutedPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementDefaultMutedPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementDefaultMutedPropertyInfo = "DOMHTMLMediaElement::default-muted" + attrGet _ = getDOMHTMLMediaElementDefaultMuted + attrSet _ = setDOMHTMLMediaElementDefaultMuted + attrConstruct _ = constructDOMHTMLMediaElementDefaultMuted + +-- VVV Prop "default-playback-rate" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementDefaultPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double +getDOMHTMLMediaElementDefaultPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "default-playback-rate" + +setDOMHTMLMediaElementDefaultPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m () +setDOMHTMLMediaElementDefaultPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "default-playback-rate" val + +constructDOMHTMLMediaElementDefaultPlaybackRate :: Double -> IO ([Char], GValue) +constructDOMHTMLMediaElementDefaultPlaybackRate val = constructObjectPropertyDouble "default-playback-rate" val + +data DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo +instance AttrInfo DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = Double + type AttrLabel DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo = "DOMHTMLMediaElement::default-playback-rate" + attrGet _ = getDOMHTMLMediaElementDefaultPlaybackRate + attrSet _ = setDOMHTMLMediaElementDefaultPlaybackRate + attrConstruct _ = constructDOMHTMLMediaElementDefaultPlaybackRate + +-- VVV Prop "duration" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementDuration :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double +getDOMHTMLMediaElementDuration obj = liftIO $ getObjectPropertyDouble obj "duration" + +data DOMHTMLMediaElementDurationPropertyInfo +instance AttrInfo DOMHTMLMediaElementDurationPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementDurationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementDurationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementDurationPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementDurationPropertyInfo = Double + type AttrLabel DOMHTMLMediaElementDurationPropertyInfo = "DOMHTMLMediaElement::duration" + attrGet _ = getDOMHTMLMediaElementDuration + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ended" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementEnded :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementEnded obj = liftIO $ getObjectPropertyBool obj "ended" + +data DOMHTMLMediaElementEndedPropertyInfo +instance AttrInfo DOMHTMLMediaElementEndedPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementEndedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementEndedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementEndedPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementEndedPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementEndedPropertyInfo = "DOMHTMLMediaElement::ended" + attrGet _ = getDOMHTMLMediaElementEnded + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "error" + -- Type: TInterface "WebKit" "DOMMediaError" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementError :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMMediaError +getDOMHTMLMediaElementError obj = liftIO $ getObjectPropertyObject obj "error" DOMMediaError + +data DOMHTMLMediaElementErrorPropertyInfo +instance AttrInfo DOMHTMLMediaElementErrorPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementErrorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementErrorPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementErrorPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementErrorPropertyInfo = DOMMediaError + type AttrLabel DOMHTMLMediaElementErrorPropertyInfo = "DOMHTMLMediaElement::error" + attrGet _ = getDOMHTMLMediaElementError + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "loop" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementLoop :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementLoop obj = liftIO $ getObjectPropertyBool obj "loop" + +setDOMHTMLMediaElementLoop :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () +setDOMHTMLMediaElementLoop obj val = liftIO $ setObjectPropertyBool obj "loop" val + +constructDOMHTMLMediaElementLoop :: Bool -> IO ([Char], GValue) +constructDOMHTMLMediaElementLoop val = constructObjectPropertyBool "loop" val + +data DOMHTMLMediaElementLoopPropertyInfo +instance AttrInfo DOMHTMLMediaElementLoopPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementLoopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementLoopPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMediaElementLoopPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementLoopPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementLoopPropertyInfo = "DOMHTMLMediaElement::loop" + attrGet _ = getDOMHTMLMediaElementLoop + attrSet _ = setDOMHTMLMediaElementLoop + attrConstruct _ = constructDOMHTMLMediaElementLoop + +-- VVV Prop "media-group" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementMediaGroup :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text +getDOMHTMLMediaElementMediaGroup obj = liftIO $ getObjectPropertyString obj "media-group" + +setDOMHTMLMediaElementMediaGroup :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m () +setDOMHTMLMediaElementMediaGroup obj val = liftIO $ setObjectPropertyString obj "media-group" val + +constructDOMHTMLMediaElementMediaGroup :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMediaElementMediaGroup val = constructObjectPropertyString "media-group" val + +data DOMHTMLMediaElementMediaGroupPropertyInfo +instance AttrInfo DOMHTMLMediaElementMediaGroupPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementMediaGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementMediaGroupPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMediaElementMediaGroupPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementMediaGroupPropertyInfo = T.Text + type AttrLabel DOMHTMLMediaElementMediaGroupPropertyInfo = "DOMHTMLMediaElement::media-group" + attrGet _ = getDOMHTMLMediaElementMediaGroup + attrSet _ = setDOMHTMLMediaElementMediaGroup + attrConstruct _ = constructDOMHTMLMediaElementMediaGroup + +-- VVV Prop "muted" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementMuted obj = liftIO $ getObjectPropertyBool obj "muted" + +setDOMHTMLMediaElementMuted :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () +setDOMHTMLMediaElementMuted obj val = liftIO $ setObjectPropertyBool obj "muted" val + +constructDOMHTMLMediaElementMuted :: Bool -> IO ([Char], GValue) +constructDOMHTMLMediaElementMuted val = constructObjectPropertyBool "muted" val + +data DOMHTMLMediaElementMutedPropertyInfo +instance AttrInfo DOMHTMLMediaElementMutedPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementMutedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementMutedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMediaElementMutedPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementMutedPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementMutedPropertyInfo = "DOMHTMLMediaElement::muted" + attrGet _ = getDOMHTMLMediaElementMuted + attrSet _ = setDOMHTMLMediaElementMuted + attrConstruct _ = constructDOMHTMLMediaElementMuted + +-- VVV Prop "network-state" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementNetworkState :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word32 +getDOMHTMLMediaElementNetworkState obj = liftIO $ getObjectPropertyCUInt obj "network-state" + +data DOMHTMLMediaElementNetworkStatePropertyInfo +instance AttrInfo DOMHTMLMediaElementNetworkStatePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementNetworkStatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementNetworkStatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementNetworkStatePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementNetworkStatePropertyInfo = Word32 + type AttrLabel DOMHTMLMediaElementNetworkStatePropertyInfo = "DOMHTMLMediaElement::network-state" + attrGet _ = getDOMHTMLMediaElementNetworkState + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "paused" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementPaused :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementPaused obj = liftIO $ getObjectPropertyBool obj "paused" + +data DOMHTMLMediaElementPausedPropertyInfo +instance AttrInfo DOMHTMLMediaElementPausedPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementPausedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementPausedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementPausedPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementPausedPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementPausedPropertyInfo = "DOMHTMLMediaElement::paused" + attrGet _ = getDOMHTMLMediaElementPaused + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "playback-rate" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double +getDOMHTMLMediaElementPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "playback-rate" + +setDOMHTMLMediaElementPlaybackRate :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m () +setDOMHTMLMediaElementPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "playback-rate" val + +constructDOMHTMLMediaElementPlaybackRate :: Double -> IO ([Char], GValue) +constructDOMHTMLMediaElementPlaybackRate val = constructObjectPropertyDouble "playback-rate" val + +data DOMHTMLMediaElementPlaybackRatePropertyInfo +instance AttrInfo DOMHTMLMediaElementPlaybackRatePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementPlaybackRatePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMHTMLMediaElementPlaybackRatePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementPlaybackRatePropertyInfo = Double + type AttrLabel DOMHTMLMediaElementPlaybackRatePropertyInfo = "DOMHTMLMediaElement::playback-rate" + attrGet _ = getDOMHTMLMediaElementPlaybackRate + attrSet _ = setDOMHTMLMediaElementPlaybackRate + attrConstruct _ = constructDOMHTMLMediaElementPlaybackRate + +-- VVV Prop "played" + -- Type: TInterface "WebKit" "DOMTimeRanges" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementPlayed :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges +getDOMHTMLMediaElementPlayed obj = liftIO $ getObjectPropertyObject obj "played" DOMTimeRanges + +data DOMHTMLMediaElementPlayedPropertyInfo +instance AttrInfo DOMHTMLMediaElementPlayedPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementPlayedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementPlayedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementPlayedPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementPlayedPropertyInfo = DOMTimeRanges + type AttrLabel DOMHTMLMediaElementPlayedPropertyInfo = "DOMHTMLMediaElement::played" + attrGet _ = getDOMHTMLMediaElementPlayed + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "preload" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementPreload :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text +getDOMHTMLMediaElementPreload obj = liftIO $ getObjectPropertyString obj "preload" + +setDOMHTMLMediaElementPreload :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m () +setDOMHTMLMediaElementPreload obj val = liftIO $ setObjectPropertyString obj "preload" val + +constructDOMHTMLMediaElementPreload :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMediaElementPreload val = constructObjectPropertyString "preload" val + +data DOMHTMLMediaElementPreloadPropertyInfo +instance AttrInfo DOMHTMLMediaElementPreloadPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementPreloadPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementPreloadPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMediaElementPreloadPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementPreloadPropertyInfo = T.Text + type AttrLabel DOMHTMLMediaElementPreloadPropertyInfo = "DOMHTMLMediaElement::preload" + attrGet _ = getDOMHTMLMediaElementPreload + attrSet _ = setDOMHTMLMediaElementPreload + attrConstruct _ = constructDOMHTMLMediaElementPreload + +-- VVV Prop "ready-state" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementReadyState :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word32 +getDOMHTMLMediaElementReadyState obj = liftIO $ getObjectPropertyCUInt obj "ready-state" + +data DOMHTMLMediaElementReadyStatePropertyInfo +instance AttrInfo DOMHTMLMediaElementReadyStatePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementReadyStatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementReadyStatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementReadyStatePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementReadyStatePropertyInfo = Word32 + type AttrLabel DOMHTMLMediaElementReadyStatePropertyInfo = "DOMHTMLMediaElement::ready-state" + attrGet _ = getDOMHTMLMediaElementReadyState + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "seekable" + -- Type: TInterface "WebKit" "DOMTimeRanges" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementSeekable :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTimeRanges +getDOMHTMLMediaElementSeekable obj = liftIO $ getObjectPropertyObject obj "seekable" DOMTimeRanges + +data DOMHTMLMediaElementSeekablePropertyInfo +instance AttrInfo DOMHTMLMediaElementSeekablePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementSeekablePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementSeekablePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementSeekablePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementSeekablePropertyInfo = DOMTimeRanges + type AttrLabel DOMHTMLMediaElementSeekablePropertyInfo = "DOMHTMLMediaElement::seekable" + attrGet _ = getDOMHTMLMediaElementSeekable + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "seeking" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementSeeking :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementSeeking obj = liftIO $ getObjectPropertyBool obj "seeking" + +data DOMHTMLMediaElementSeekingPropertyInfo +instance AttrInfo DOMHTMLMediaElementSeekingPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementSeekingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementSeekingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementSeekingPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementSeekingPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementSeekingPropertyInfo = "DOMHTMLMediaElement::seeking" + attrGet _ = getDOMHTMLMediaElementSeeking + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m T.Text +getDOMHTMLMediaElementSrc obj = liftIO $ getObjectPropertyString obj "src" + +setDOMHTMLMediaElementSrc :: (MonadIO m, DOMHTMLMediaElementK o) => o -> T.Text -> m () +setDOMHTMLMediaElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val + +constructDOMHTMLMediaElementSrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMediaElementSrc val = constructObjectPropertyString "src" val + +data DOMHTMLMediaElementSrcPropertyInfo +instance AttrInfo DOMHTMLMediaElementSrcPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementSrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMediaElementSrcPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLMediaElementSrcPropertyInfo = "DOMHTMLMediaElement::src" + attrGet _ = getDOMHTMLMediaElementSrc + attrSet _ = setDOMHTMLMediaElementSrc + attrConstruct _ = constructDOMHTMLMediaElementSrc + +-- VVV Prop "text-tracks" + -- Type: TInterface "WebKit" "DOMTextTrackList" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementTextTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMTextTrackList +getDOMHTMLMediaElementTextTracks obj = liftIO $ getObjectPropertyObject obj "text-tracks" DOMTextTrackList + +data DOMHTMLMediaElementTextTracksPropertyInfo +instance AttrInfo DOMHTMLMediaElementTextTracksPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementTextTracksPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementTextTracksPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementTextTracksPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementTextTracksPropertyInfo = DOMTextTrackList + type AttrLabel DOMHTMLMediaElementTextTracksPropertyInfo = "DOMHTMLMediaElement::text-tracks" + attrGet _ = getDOMHTMLMediaElementTextTracks + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "video-tracks" + -- Type: TInterface "WebKit" "DOMVideoTrackList" + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementVideoTracks :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m DOMVideoTrackList +getDOMHTMLMediaElementVideoTracks obj = liftIO $ getObjectPropertyObject obj "video-tracks" DOMVideoTrackList + +data DOMHTMLMediaElementVideoTracksPropertyInfo +instance AttrInfo DOMHTMLMediaElementVideoTracksPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementVideoTracksPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementVideoTracksPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementVideoTracksPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementVideoTracksPropertyInfo = DOMVideoTrackList + type AttrLabel DOMHTMLMediaElementVideoTracksPropertyInfo = "DOMHTMLMediaElement::video-tracks" + attrGet _ = getDOMHTMLMediaElementVideoTracks + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "volume" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementVolume :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Double +getDOMHTMLMediaElementVolume obj = liftIO $ getObjectPropertyDouble obj "volume" + +setDOMHTMLMediaElementVolume :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Double -> m () +setDOMHTMLMediaElementVolume obj val = liftIO $ setObjectPropertyDouble obj "volume" val + +constructDOMHTMLMediaElementVolume :: Double -> IO ([Char], GValue) +constructDOMHTMLMediaElementVolume val = constructObjectPropertyDouble "volume" val + +data DOMHTMLMediaElementVolumePropertyInfo +instance AttrInfo DOMHTMLMediaElementVolumePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementVolumePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMHTMLMediaElementVolumePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementVolumePropertyInfo = Double + type AttrLabel DOMHTMLMediaElementVolumePropertyInfo = "DOMHTMLMediaElement::volume" + attrGet _ = getDOMHTMLMediaElementVolume + attrSet _ = setDOMHTMLMediaElementVolume + attrConstruct _ = constructDOMHTMLMediaElementVolume + +-- VVV Prop "webkit-audio-decoded-byte-count" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementWebkitAudioDecodedByteCount :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word64 +getDOMHTMLMediaElementWebkitAudioDecodedByteCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-audio-decoded-byte-count" + +data DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo +instance AttrInfo DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = Word64 + type AttrLabel DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo = "DOMHTMLMediaElement::webkit-audio-decoded-byte-count" + attrGet _ = getDOMHTMLMediaElementWebkitAudioDecodedByteCount + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-closed-captions-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementWebkitClosedCaptionsVisible :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementWebkitClosedCaptionsVisible obj = liftIO $ getObjectPropertyBool obj "webkit-closed-captions-visible" + +setDOMHTMLMediaElementWebkitClosedCaptionsVisible :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () +setDOMHTMLMediaElementWebkitClosedCaptionsVisible obj val = liftIO $ setObjectPropertyBool obj "webkit-closed-captions-visible" val + +constructDOMHTMLMediaElementWebkitClosedCaptionsVisible :: Bool -> IO ([Char], GValue) +constructDOMHTMLMediaElementWebkitClosedCaptionsVisible val = constructObjectPropertyBool "webkit-closed-captions-visible" val + +data DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo +instance AttrInfo DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo = "DOMHTMLMediaElement::webkit-closed-captions-visible" + attrGet _ = getDOMHTMLMediaElementWebkitClosedCaptionsVisible + attrSet _ = setDOMHTMLMediaElementWebkitClosedCaptionsVisible + attrConstruct _ = constructDOMHTMLMediaElementWebkitClosedCaptionsVisible + +-- VVV Prop "webkit-current-playback-target-is-wireless" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless obj = liftIO $ getObjectPropertyBool obj "webkit-current-playback-target-is-wireless" + +data DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo +instance AttrInfo DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo = "DOMHTMLMediaElement::webkit-current-playback-target-is-wireless" + attrGet _ = getDOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWireless + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-has-closed-captions" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementWebkitHasClosedCaptions :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementWebkitHasClosedCaptions obj = liftIO $ getObjectPropertyBool obj "webkit-has-closed-captions" + +data DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo +instance AttrInfo DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo = "DOMHTMLMediaElement::webkit-has-closed-captions" + attrGet _ = getDOMHTMLMediaElementWebkitHasClosedCaptions + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-preserves-pitch" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMediaElementWebkitPreservesPitch :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Bool +getDOMHTMLMediaElementWebkitPreservesPitch obj = liftIO $ getObjectPropertyBool obj "webkit-preserves-pitch" + +setDOMHTMLMediaElementWebkitPreservesPitch :: (MonadIO m, DOMHTMLMediaElementK o) => o -> Bool -> m () +setDOMHTMLMediaElementWebkitPreservesPitch obj val = liftIO $ setObjectPropertyBool obj "webkit-preserves-pitch" val + +constructDOMHTMLMediaElementWebkitPreservesPitch :: Bool -> IO ([Char], GValue) +constructDOMHTMLMediaElementWebkitPreservesPitch val = constructObjectPropertyBool "webkit-preserves-pitch" val + +data DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo +instance AttrInfo DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = Bool + type AttrLabel DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo = "DOMHTMLMediaElement::webkit-preserves-pitch" + attrGet _ = getDOMHTMLMediaElementWebkitPreservesPitch + attrSet _ = setDOMHTMLMediaElementWebkitPreservesPitch + attrConstruct _ = constructDOMHTMLMediaElementWebkitPreservesPitch + +-- VVV Prop "webkit-video-decoded-byte-count" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLMediaElementWebkitVideoDecodedByteCount :: (MonadIO m, DOMHTMLMediaElementK o) => o -> m Word64 +getDOMHTMLMediaElementWebkitVideoDecodedByteCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-video-decoded-byte-count" + +data DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo +instance AttrInfo DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo where + type AttrAllowedOps DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = DOMHTMLMediaElementK + type AttrGetType DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = Word64 + type AttrLabel DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo = "DOMHTMLMediaElement::webkit-video-decoded-byte-count" + attrGet _ = getDOMHTMLMediaElementWebkitVideoDecodedByteCount + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLMediaElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("audio-tracks", DOMHTMLMediaElementAudioTracksPropertyInfo), '("autoplay", DOMHTMLMediaElementAutoplayPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("buffered", DOMHTMLMediaElementBufferedPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("controller", DOMHTMLMediaElementControllerPropertyInfo), '("controls", DOMHTMLMediaElementControlsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-src", DOMHTMLMediaElementCurrentSrcPropertyInfo), '("current-time", DOMHTMLMediaElementCurrentTimePropertyInfo), '("default-muted", DOMHTMLMediaElementDefaultMutedPropertyInfo), '("default-playback-rate", DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("duration", DOMHTMLMediaElementDurationPropertyInfo), '("ended", DOMHTMLMediaElementEndedPropertyInfo), '("error", DOMHTMLMediaElementErrorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMediaElementLoopPropertyInfo), '("media-group", DOMHTMLMediaElementMediaGroupPropertyInfo), '("muted", DOMHTMLMediaElementMutedPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("network-state", DOMHTMLMediaElementNetworkStatePropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("paused", DOMHTMLMediaElementPausedPropertyInfo), '("playback-rate", DOMHTMLMediaElementPlaybackRatePropertyInfo), '("played", DOMHTMLMediaElementPlayedPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("preload", DOMHTMLMediaElementPreloadPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMHTMLMediaElementReadyStatePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("seekable", DOMHTMLMediaElementSeekablePropertyInfo), '("seeking", DOMHTMLMediaElementSeekingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLMediaElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("text-tracks", DOMHTMLMediaElementTextTracksPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("video-tracks", DOMHTMLMediaElementVideoTracksPropertyInfo), '("volume", DOMHTMLMediaElementVolumePropertyInfo), '("webkit-audio-decoded-byte-count", DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo), '("webkit-closed-captions-visible", DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo), '("webkit-current-playback-target-is-wireless", DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo), '("webkit-has-closed-captions", DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo), '("webkit-preserves-pitch", DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkit-video-decoded-byte-count", DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "compact" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMenuElementCompact :: (MonadIO m, DOMHTMLMenuElementK o) => o -> m Bool +getDOMHTMLMenuElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" + +setDOMHTMLMenuElementCompact :: (MonadIO m, DOMHTMLMenuElementK o) => o -> Bool -> m () +setDOMHTMLMenuElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val + +constructDOMHTMLMenuElementCompact :: Bool -> IO ([Char], GValue) +constructDOMHTMLMenuElementCompact val = constructObjectPropertyBool "compact" val + +data DOMHTMLMenuElementCompactPropertyInfo +instance AttrInfo DOMHTMLMenuElementCompactPropertyInfo where + type AttrAllowedOps DOMHTMLMenuElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMenuElementCompactPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLMenuElementCompactPropertyInfo = DOMHTMLMenuElementK + type AttrGetType DOMHTMLMenuElementCompactPropertyInfo = Bool + type AttrLabel DOMHTMLMenuElementCompactPropertyInfo = "DOMHTMLMenuElement::compact" + attrGet _ = getDOMHTMLMenuElementCompact + attrSet _ = setDOMHTMLMenuElementCompact + attrConstruct _ = constructDOMHTMLMenuElementCompact + +type instance AttributeList DOMHTMLMenuElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLMenuElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "content" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMetaElementContent :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text +getDOMHTMLMetaElementContent obj = liftIO $ getObjectPropertyString obj "content" + +setDOMHTMLMetaElementContent :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () +setDOMHTMLMetaElementContent obj val = liftIO $ setObjectPropertyString obj "content" val + +constructDOMHTMLMetaElementContent :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMetaElementContent val = constructObjectPropertyString "content" val + +data DOMHTMLMetaElementContentPropertyInfo +instance AttrInfo DOMHTMLMetaElementContentPropertyInfo where + type AttrAllowedOps DOMHTMLMetaElementContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMetaElementContentPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMetaElementContentPropertyInfo = DOMHTMLMetaElementK + type AttrGetType DOMHTMLMetaElementContentPropertyInfo = T.Text + type AttrLabel DOMHTMLMetaElementContentPropertyInfo = "DOMHTMLMetaElement::content" + attrGet _ = getDOMHTMLMetaElementContent + attrSet _ = setDOMHTMLMetaElementContent + attrConstruct _ = constructDOMHTMLMetaElementContent + +-- VVV Prop "http-equiv" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMetaElementHttpEquiv :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text +getDOMHTMLMetaElementHttpEquiv obj = liftIO $ getObjectPropertyString obj "http-equiv" + +setDOMHTMLMetaElementHttpEquiv :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () +setDOMHTMLMetaElementHttpEquiv obj val = liftIO $ setObjectPropertyString obj "http-equiv" val + +constructDOMHTMLMetaElementHttpEquiv :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMetaElementHttpEquiv val = constructObjectPropertyString "http-equiv" val + +data DOMHTMLMetaElementHttpEquivPropertyInfo +instance AttrInfo DOMHTMLMetaElementHttpEquivPropertyInfo where + type AttrAllowedOps DOMHTMLMetaElementHttpEquivPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMetaElementHttpEquivPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMetaElementHttpEquivPropertyInfo = DOMHTMLMetaElementK + type AttrGetType DOMHTMLMetaElementHttpEquivPropertyInfo = T.Text + type AttrLabel DOMHTMLMetaElementHttpEquivPropertyInfo = "DOMHTMLMetaElement::http-equiv" + attrGet _ = getDOMHTMLMetaElementHttpEquiv + attrSet _ = setDOMHTMLMetaElementHttpEquiv + attrConstruct _ = constructDOMHTMLMetaElementHttpEquiv + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMetaElementName :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text +getDOMHTMLMetaElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLMetaElementName :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () +setDOMHTMLMetaElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLMetaElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMetaElementName val = constructObjectPropertyString "name" val + +data DOMHTMLMetaElementNamePropertyInfo +instance AttrInfo DOMHTMLMetaElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLMetaElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMetaElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMetaElementNamePropertyInfo = DOMHTMLMetaElementK + type AttrGetType DOMHTMLMetaElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLMetaElementNamePropertyInfo = "DOMHTMLMetaElement::name" + attrGet _ = getDOMHTMLMetaElementName + attrSet _ = setDOMHTMLMetaElementName + attrConstruct _ = constructDOMHTMLMetaElementName + +-- VVV Prop "scheme" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLMetaElementScheme :: (MonadIO m, DOMHTMLMetaElementK o) => o -> m T.Text +getDOMHTMLMetaElementScheme obj = liftIO $ getObjectPropertyString obj "scheme" + +setDOMHTMLMetaElementScheme :: (MonadIO m, DOMHTMLMetaElementK o) => o -> T.Text -> m () +setDOMHTMLMetaElementScheme obj val = liftIO $ setObjectPropertyString obj "scheme" val + +constructDOMHTMLMetaElementScheme :: T.Text -> IO ([Char], GValue) +constructDOMHTMLMetaElementScheme val = constructObjectPropertyString "scheme" val + +data DOMHTMLMetaElementSchemePropertyInfo +instance AttrInfo DOMHTMLMetaElementSchemePropertyInfo where + type AttrAllowedOps DOMHTMLMetaElementSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLMetaElementSchemePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLMetaElementSchemePropertyInfo = DOMHTMLMetaElementK + type AttrGetType DOMHTMLMetaElementSchemePropertyInfo = T.Text + type AttrLabel DOMHTMLMetaElementSchemePropertyInfo = "DOMHTMLMetaElement::scheme" + attrGet _ = getDOMHTMLMetaElementScheme + attrSet _ = setDOMHTMLMetaElementScheme + attrConstruct _ = constructDOMHTMLMetaElementScheme + +type instance AttributeList DOMHTMLMetaElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content", DOMHTMLMetaElementContentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("http-equiv", DOMHTMLMetaElementHttpEquivPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLMetaElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scheme", DOMHTMLMetaElementSchemePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "cite" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLModElementCite :: (MonadIO m, DOMHTMLModElementK o) => o -> m T.Text +getDOMHTMLModElementCite obj = liftIO $ getObjectPropertyString obj "cite" + +setDOMHTMLModElementCite :: (MonadIO m, DOMHTMLModElementK o) => o -> T.Text -> m () +setDOMHTMLModElementCite obj val = liftIO $ setObjectPropertyString obj "cite" val + +constructDOMHTMLModElementCite :: T.Text -> IO ([Char], GValue) +constructDOMHTMLModElementCite val = constructObjectPropertyString "cite" val + +data DOMHTMLModElementCitePropertyInfo +instance AttrInfo DOMHTMLModElementCitePropertyInfo where + type AttrAllowedOps DOMHTMLModElementCitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLModElementCitePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLModElementCitePropertyInfo = DOMHTMLModElementK + type AttrGetType DOMHTMLModElementCitePropertyInfo = T.Text + type AttrLabel DOMHTMLModElementCitePropertyInfo = "DOMHTMLModElement::cite" + attrGet _ = getDOMHTMLModElementCite + attrSet _ = setDOMHTMLModElementCite + attrConstruct _ = constructDOMHTMLModElementCite + +-- VVV Prop "date-time" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLModElementDateTime :: (MonadIO m, DOMHTMLModElementK o) => o -> m T.Text +getDOMHTMLModElementDateTime obj = liftIO $ getObjectPropertyString obj "date-time" + +setDOMHTMLModElementDateTime :: (MonadIO m, DOMHTMLModElementK o) => o -> T.Text -> m () +setDOMHTMLModElementDateTime obj val = liftIO $ setObjectPropertyString obj "date-time" val + +constructDOMHTMLModElementDateTime :: T.Text -> IO ([Char], GValue) +constructDOMHTMLModElementDateTime val = constructObjectPropertyString "date-time" val + +data DOMHTMLModElementDateTimePropertyInfo +instance AttrInfo DOMHTMLModElementDateTimePropertyInfo where + type AttrAllowedOps DOMHTMLModElementDateTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLModElementDateTimePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLModElementDateTimePropertyInfo = DOMHTMLModElementK + type AttrGetType DOMHTMLModElementDateTimePropertyInfo = T.Text + type AttrLabel DOMHTMLModElementDateTimePropertyInfo = "DOMHTMLModElement::date-time" + attrGet _ = getDOMHTMLModElementDateTime + attrSet _ = setDOMHTMLModElementDateTime + attrConstruct _ = constructDOMHTMLModElementDateTime + +type instance AttributeList DOMHTMLModElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("cite", DOMHTMLModElementCitePropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("date-time", DOMHTMLModElementDateTimePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "compact" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOListElementCompact :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Bool +getDOMHTMLOListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" + +setDOMHTMLOListElementCompact :: (MonadIO m, DOMHTMLOListElementK o) => o -> Bool -> m () +setDOMHTMLOListElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val + +constructDOMHTMLOListElementCompact :: Bool -> IO ([Char], GValue) +constructDOMHTMLOListElementCompact val = constructObjectPropertyBool "compact" val + +data DOMHTMLOListElementCompactPropertyInfo +instance AttrInfo DOMHTMLOListElementCompactPropertyInfo where + type AttrAllowedOps DOMHTMLOListElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOListElementCompactPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLOListElementCompactPropertyInfo = DOMHTMLOListElementK + type AttrGetType DOMHTMLOListElementCompactPropertyInfo = Bool + type AttrLabel DOMHTMLOListElementCompactPropertyInfo = "DOMHTMLOListElement::compact" + attrGet _ = getDOMHTMLOListElementCompact + attrSet _ = setDOMHTMLOListElementCompact + attrConstruct _ = constructDOMHTMLOListElementCompact + +-- VVV Prop "reversed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOListElementReversed :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Bool +getDOMHTMLOListElementReversed obj = liftIO $ getObjectPropertyBool obj "reversed" + +setDOMHTMLOListElementReversed :: (MonadIO m, DOMHTMLOListElementK o) => o -> Bool -> m () +setDOMHTMLOListElementReversed obj val = liftIO $ setObjectPropertyBool obj "reversed" val + +constructDOMHTMLOListElementReversed :: Bool -> IO ([Char], GValue) +constructDOMHTMLOListElementReversed val = constructObjectPropertyBool "reversed" val + +data DOMHTMLOListElementReversedPropertyInfo +instance AttrInfo DOMHTMLOListElementReversedPropertyInfo where + type AttrAllowedOps DOMHTMLOListElementReversedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOListElementReversedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLOListElementReversedPropertyInfo = DOMHTMLOListElementK + type AttrGetType DOMHTMLOListElementReversedPropertyInfo = Bool + type AttrLabel DOMHTMLOListElementReversedPropertyInfo = "DOMHTMLOListElement::reversed" + attrGet _ = getDOMHTMLOListElementReversed + attrSet _ = setDOMHTMLOListElementReversed + attrConstruct _ = constructDOMHTMLOListElementReversed + +-- VVV Prop "start" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOListElementStart :: (MonadIO m, DOMHTMLOListElementK o) => o -> m Int64 +getDOMHTMLOListElementStart obj = liftIO $ getObjectPropertyInt64 obj "start" + +setDOMHTMLOListElementStart :: (MonadIO m, DOMHTMLOListElementK o) => o -> Int64 -> m () +setDOMHTMLOListElementStart obj val = liftIO $ setObjectPropertyInt64 obj "start" val + +constructDOMHTMLOListElementStart :: Int64 -> IO ([Char], GValue) +constructDOMHTMLOListElementStart val = constructObjectPropertyInt64 "start" val + +data DOMHTMLOListElementStartPropertyInfo +instance AttrInfo DOMHTMLOListElementStartPropertyInfo where + type AttrAllowedOps DOMHTMLOListElementStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOListElementStartPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLOListElementStartPropertyInfo = DOMHTMLOListElementK + type AttrGetType DOMHTMLOListElementStartPropertyInfo = Int64 + type AttrLabel DOMHTMLOListElementStartPropertyInfo = "DOMHTMLOListElement::start" + attrGet _ = getDOMHTMLOListElementStart + attrSet _ = setDOMHTMLOListElementStart + attrConstruct _ = constructDOMHTMLOListElementStart + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> m T.Text +getDOMHTMLOListElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLOListElementType :: (MonadIO m, DOMHTMLOListElementK o) => o -> T.Text -> m () +setDOMHTMLOListElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLOListElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLOListElementType val = constructObjectPropertyString "type" val + +data DOMHTMLOListElementTypePropertyInfo +instance AttrInfo DOMHTMLOListElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLOListElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOListElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLOListElementTypePropertyInfo = DOMHTMLOListElementK + type AttrGetType DOMHTMLOListElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLOListElementTypePropertyInfo = "DOMHTMLOListElement::type" + attrGet _ = getDOMHTMLOListElementType + attrSet _ = setDOMHTMLOListElementType + attrConstruct _ = constructDOMHTMLOListElementType + +type instance AttributeList DOMHTMLOListElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLOListElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("reversed", DOMHTMLOListElementReversedPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("start", DOMHTMLOListElementStartPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLOListElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementAlign :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLObjectElementAlign :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLObjectElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLObjectElementAlignPropertyInfo +instance AttrInfo DOMHTMLObjectElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementAlignPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementAlignPropertyInfo = "DOMHTMLObjectElement::align" + attrGet _ = getDOMHTMLObjectElementAlign + attrSet _ = setDOMHTMLObjectElementAlign + attrConstruct _ = constructDOMHTMLObjectElementAlign + +-- VVV Prop "archive" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementArchive :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementArchive obj = liftIO $ getObjectPropertyString obj "archive" + +setDOMHTMLObjectElementArchive :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementArchive obj val = liftIO $ setObjectPropertyString obj "archive" val + +constructDOMHTMLObjectElementArchive :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementArchive val = constructObjectPropertyString "archive" val + +data DOMHTMLObjectElementArchivePropertyInfo +instance AttrInfo DOMHTMLObjectElementArchivePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementArchivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementArchivePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementArchivePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementArchivePropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementArchivePropertyInfo = "DOMHTMLObjectElement::archive" + attrGet _ = getDOMHTMLObjectElementArchive + attrSet _ = setDOMHTMLObjectElementArchive + attrConstruct _ = constructDOMHTMLObjectElementArchive + +-- VVV Prop "border" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementBorder :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementBorder obj = liftIO $ getObjectPropertyString obj "border" + +setDOMHTMLObjectElementBorder :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val + +constructDOMHTMLObjectElementBorder :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementBorder val = constructObjectPropertyString "border" val + +data DOMHTMLObjectElementBorderPropertyInfo +instance AttrInfo DOMHTMLObjectElementBorderPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementBorderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementBorderPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementBorderPropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementBorderPropertyInfo = "DOMHTMLObjectElement::border" + attrGet _ = getDOMHTMLObjectElementBorder + attrSet _ = setDOMHTMLObjectElementBorder + attrConstruct _ = constructDOMHTMLObjectElementBorder + +-- VVV Prop "code" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementCode :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementCode obj = liftIO $ getObjectPropertyString obj "code" + +setDOMHTMLObjectElementCode :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementCode obj val = liftIO $ setObjectPropertyString obj "code" val + +constructDOMHTMLObjectElementCode :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementCode val = constructObjectPropertyString "code" val + +data DOMHTMLObjectElementCodePropertyInfo +instance AttrInfo DOMHTMLObjectElementCodePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementCodePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementCodePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementCodePropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementCodePropertyInfo = "DOMHTMLObjectElement::code" + attrGet _ = getDOMHTMLObjectElementCode + attrSet _ = setDOMHTMLObjectElementCode + attrConstruct _ = constructDOMHTMLObjectElementCode + +-- VVV Prop "code-base" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementCodeBase :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementCodeBase obj = liftIO $ getObjectPropertyString obj "code-base" + +setDOMHTMLObjectElementCodeBase :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementCodeBase obj val = liftIO $ setObjectPropertyString obj "code-base" val + +constructDOMHTMLObjectElementCodeBase :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementCodeBase val = constructObjectPropertyString "code-base" val + +data DOMHTMLObjectElementCodeBasePropertyInfo +instance AttrInfo DOMHTMLObjectElementCodeBasePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementCodeBasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementCodeBasePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementCodeBasePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementCodeBasePropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementCodeBasePropertyInfo = "DOMHTMLObjectElement::code-base" + attrGet _ = getDOMHTMLObjectElementCodeBase + attrSet _ = setDOMHTMLObjectElementCodeBase + attrConstruct _ = constructDOMHTMLObjectElementCodeBase + +-- VVV Prop "code-type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementCodeType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementCodeType obj = liftIO $ getObjectPropertyString obj "code-type" + +setDOMHTMLObjectElementCodeType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementCodeType obj val = liftIO $ setObjectPropertyString obj "code-type" val + +constructDOMHTMLObjectElementCodeType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementCodeType val = constructObjectPropertyString "code-type" val + +data DOMHTMLObjectElementCodeTypePropertyInfo +instance AttrInfo DOMHTMLObjectElementCodeTypePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementCodeTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementCodeTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementCodeTypePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementCodeTypePropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementCodeTypePropertyInfo = "DOMHTMLObjectElement::code-type" + attrGet _ = getDOMHTMLObjectElementCodeType + attrSet _ = setDOMHTMLObjectElementCodeType + attrConstruct _ = constructDOMHTMLObjectElementCodeType + +-- VVV Prop "content-document" + -- Type: TInterface "WebKit" "DOMDocument" + -- Flags: [PropertyReadable] + +getDOMHTMLObjectElementContentDocument :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMDocument +getDOMHTMLObjectElementContentDocument obj = liftIO $ getObjectPropertyObject obj "content-document" DOMDocument + +data DOMHTMLObjectElementContentDocumentPropertyInfo +instance AttrInfo DOMHTMLObjectElementContentDocumentPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementContentDocumentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementContentDocumentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLObjectElementContentDocumentPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementContentDocumentPropertyInfo = DOMDocument + type AttrLabel DOMHTMLObjectElementContentDocumentPropertyInfo = "DOMHTMLObjectElement::content-document" + attrGet _ = getDOMHTMLObjectElementContentDocument + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "data" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementData :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementData obj = liftIO $ getObjectPropertyString obj "data" + +setDOMHTMLObjectElementData :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementData obj val = liftIO $ setObjectPropertyString obj "data" val + +constructDOMHTMLObjectElementData :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementData val = constructObjectPropertyString "data" val + +data DOMHTMLObjectElementDataPropertyInfo +instance AttrInfo DOMHTMLObjectElementDataPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementDataPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementDataPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementDataPropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementDataPropertyInfo = "DOMHTMLObjectElement::data" + attrGet _ = getDOMHTMLObjectElementData + attrSet _ = setDOMHTMLObjectElementData + attrConstruct _ = constructDOMHTMLObjectElementData + +-- VVV Prop "declare" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementDeclare :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Bool +getDOMHTMLObjectElementDeclare obj = liftIO $ getObjectPropertyBool obj "declare" + +setDOMHTMLObjectElementDeclare :: (MonadIO m, DOMHTMLObjectElementK o) => o -> Bool -> m () +setDOMHTMLObjectElementDeclare obj val = liftIO $ setObjectPropertyBool obj "declare" val + +constructDOMHTMLObjectElementDeclare :: Bool -> IO ([Char], GValue) +constructDOMHTMLObjectElementDeclare val = constructObjectPropertyBool "declare" val + +data DOMHTMLObjectElementDeclarePropertyInfo +instance AttrInfo DOMHTMLObjectElementDeclarePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementDeclarePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementDeclarePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLObjectElementDeclarePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementDeclarePropertyInfo = Bool + type AttrLabel DOMHTMLObjectElementDeclarePropertyInfo = "DOMHTMLObjectElement::declare" + attrGet _ = getDOMHTMLObjectElementDeclare + attrSet _ = setDOMHTMLObjectElementDeclare + attrConstruct _ = constructDOMHTMLObjectElementDeclare + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLObjectElementForm :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLObjectElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLObjectElementFormPropertyInfo +instance AttrInfo DOMHTMLObjectElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLObjectElementFormPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLObjectElementFormPropertyInfo = "DOMHTMLObjectElement::form" + attrGet _ = getDOMHTMLObjectElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "height" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementHeight :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementHeight obj = liftIO $ getObjectPropertyString obj "height" + +setDOMHTMLObjectElementHeight :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val + +constructDOMHTMLObjectElementHeight :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementHeight val = constructObjectPropertyString "height" val + +data DOMHTMLObjectElementHeightPropertyInfo +instance AttrInfo DOMHTMLObjectElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementHeightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementHeightPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementHeightPropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementHeightPropertyInfo = "DOMHTMLObjectElement::height" + attrGet _ = getDOMHTMLObjectElementHeight + attrSet _ = setDOMHTMLObjectElementHeight + attrConstruct _ = constructDOMHTMLObjectElementHeight + +-- VVV Prop "hspace" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementHspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Int64 +getDOMHTMLObjectElementHspace obj = liftIO $ getObjectPropertyInt64 obj "hspace" + +setDOMHTMLObjectElementHspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> Int64 -> m () +setDOMHTMLObjectElementHspace obj val = liftIO $ setObjectPropertyInt64 obj "hspace" val + +constructDOMHTMLObjectElementHspace :: Int64 -> IO ([Char], GValue) +constructDOMHTMLObjectElementHspace val = constructObjectPropertyInt64 "hspace" val + +data DOMHTMLObjectElementHspacePropertyInfo +instance AttrInfo DOMHTMLObjectElementHspacePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementHspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementHspacePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLObjectElementHspacePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementHspacePropertyInfo = Int64 + type AttrLabel DOMHTMLObjectElementHspacePropertyInfo = "DOMHTMLObjectElement::hspace" + attrGet _ = getDOMHTMLObjectElementHspace + attrSet _ = setDOMHTMLObjectElementHspace + attrConstruct _ = constructDOMHTMLObjectElementHspace + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementName :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLObjectElementName :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLObjectElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementName val = constructObjectPropertyString "name" val + +data DOMHTMLObjectElementNamePropertyInfo +instance AttrInfo DOMHTMLObjectElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementNamePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementNamePropertyInfo = "DOMHTMLObjectElement::name" + attrGet _ = getDOMHTMLObjectElementName + attrSet _ = setDOMHTMLObjectElementName + attrConstruct _ = constructDOMHTMLObjectElementName + +-- VVV Prop "standby" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementStandby :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementStandby obj = liftIO $ getObjectPropertyString obj "standby" + +setDOMHTMLObjectElementStandby :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementStandby obj val = liftIO $ setObjectPropertyString obj "standby" val + +constructDOMHTMLObjectElementStandby :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementStandby val = constructObjectPropertyString "standby" val + +data DOMHTMLObjectElementStandbyPropertyInfo +instance AttrInfo DOMHTMLObjectElementStandbyPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementStandbyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementStandbyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementStandbyPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementStandbyPropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementStandbyPropertyInfo = "DOMHTMLObjectElement::standby" + attrGet _ = getDOMHTMLObjectElementStandby + attrSet _ = setDOMHTMLObjectElementStandby + attrConstruct _ = constructDOMHTMLObjectElementStandby + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLObjectElementType :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLObjectElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementType val = constructObjectPropertyString "type" val + +data DOMHTMLObjectElementTypePropertyInfo +instance AttrInfo DOMHTMLObjectElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementTypePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementTypePropertyInfo = "DOMHTMLObjectElement::type" + attrGet _ = getDOMHTMLObjectElementType + attrSet _ = setDOMHTMLObjectElementType + attrConstruct _ = constructDOMHTMLObjectElementType + +-- VVV Prop "use-map" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementUseMap :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementUseMap obj = liftIO $ getObjectPropertyString obj "use-map" + +setDOMHTMLObjectElementUseMap :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementUseMap obj val = liftIO $ setObjectPropertyString obj "use-map" val + +constructDOMHTMLObjectElementUseMap :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementUseMap val = constructObjectPropertyString "use-map" val + +data DOMHTMLObjectElementUseMapPropertyInfo +instance AttrInfo DOMHTMLObjectElementUseMapPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementUseMapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementUseMapPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementUseMapPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementUseMapPropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementUseMapPropertyInfo = "DOMHTMLObjectElement::use-map" + attrGet _ = getDOMHTMLObjectElementUseMap + attrSet _ = setDOMHTMLObjectElementUseMap + attrConstruct _ = constructDOMHTMLObjectElementUseMap + +-- VVV Prop "validation-message" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLObjectElementValidationMessage :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" + +data DOMHTMLObjectElementValidationMessagePropertyInfo +instance AttrInfo DOMHTMLObjectElementValidationMessagePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementValidationMessagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLObjectElementValidationMessagePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementValidationMessagePropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementValidationMessagePropertyInfo = "DOMHTMLObjectElement::validation-message" + attrGet _ = getDOMHTMLObjectElementValidationMessage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validity" + -- Type: TInterface "WebKit" "DOMValidityState" + -- Flags: [PropertyReadable] + +getDOMHTMLObjectElementValidity :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m DOMValidityState +getDOMHTMLObjectElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState + +data DOMHTMLObjectElementValidityPropertyInfo +instance AttrInfo DOMHTMLObjectElementValidityPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementValidityPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementValidityPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLObjectElementValidityPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementValidityPropertyInfo = DOMValidityState + type AttrLabel DOMHTMLObjectElementValidityPropertyInfo = "DOMHTMLObjectElement::validity" + attrGet _ = getDOMHTMLObjectElementValidity + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "vspace" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementVspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Int64 +getDOMHTMLObjectElementVspace obj = liftIO $ getObjectPropertyInt64 obj "vspace" + +setDOMHTMLObjectElementVspace :: (MonadIO m, DOMHTMLObjectElementK o) => o -> Int64 -> m () +setDOMHTMLObjectElementVspace obj val = liftIO $ setObjectPropertyInt64 obj "vspace" val + +constructDOMHTMLObjectElementVspace :: Int64 -> IO ([Char], GValue) +constructDOMHTMLObjectElementVspace val = constructObjectPropertyInt64 "vspace" val + +data DOMHTMLObjectElementVspacePropertyInfo +instance AttrInfo DOMHTMLObjectElementVspacePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementVspacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementVspacePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLObjectElementVspacePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementVspacePropertyInfo = Int64 + type AttrLabel DOMHTMLObjectElementVspacePropertyInfo = "DOMHTMLObjectElement::vspace" + attrGet _ = getDOMHTMLObjectElementVspace + attrSet _ = setDOMHTMLObjectElementVspace + attrConstruct _ = constructDOMHTMLObjectElementVspace + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLObjectElementWidth :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m T.Text +getDOMHTMLObjectElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLObjectElementWidth :: (MonadIO m, DOMHTMLObjectElementK o) => o -> T.Text -> m () +setDOMHTMLObjectElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLObjectElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLObjectElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLObjectElementWidthPropertyInfo +instance AttrInfo DOMHTMLObjectElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLObjectElementWidthPropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLObjectElementWidthPropertyInfo = "DOMHTMLObjectElement::width" + attrGet _ = getDOMHTMLObjectElementWidth + attrSet _ = setDOMHTMLObjectElementWidth + attrConstruct _ = constructDOMHTMLObjectElementWidth + +-- VVV Prop "will-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLObjectElementWillValidate :: (MonadIO m, DOMHTMLObjectElementK o) => o -> m Bool +getDOMHTMLObjectElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" + +data DOMHTMLObjectElementWillValidatePropertyInfo +instance AttrInfo DOMHTMLObjectElementWillValidatePropertyInfo where + type AttrAllowedOps DOMHTMLObjectElementWillValidatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLObjectElementWillValidatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLObjectElementWillValidatePropertyInfo = DOMHTMLObjectElementK + type AttrGetType DOMHTMLObjectElementWillValidatePropertyInfo = Bool + type AttrLabel DOMHTMLObjectElementWillValidatePropertyInfo = "DOMHTMLObjectElement::will-validate" + attrGet _ = getDOMHTMLObjectElementWillValidate + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLObjectElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLObjectElementAlignPropertyInfo), '("archive", DOMHTMLObjectElementArchivePropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("border", DOMHTMLObjectElementBorderPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("code", DOMHTMLObjectElementCodePropertyInfo), '("code-base", DOMHTMLObjectElementCodeBasePropertyInfo), '("code-type", DOMHTMLObjectElementCodeTypePropertyInfo), '("content-document", DOMHTMLObjectElementContentDocumentPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMHTMLObjectElementDataPropertyInfo), '("declare", DOMHTMLObjectElementDeclarePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLObjectElementFormPropertyInfo), '("height", DOMHTMLObjectElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("hspace", DOMHTMLObjectElementHspacePropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLObjectElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("standby", DOMHTMLObjectElementStandbyPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLObjectElementTypePropertyInfo), '("use-map", DOMHTMLObjectElementUseMapPropertyInfo), '("validation-message", DOMHTMLObjectElementValidationMessagePropertyInfo), '("validity", DOMHTMLObjectElementValidityPropertyInfo), '("vspace", DOMHTMLObjectElementVspacePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLObjectElementWidthPropertyInfo), '("will-validate", DOMHTMLObjectElementWillValidatePropertyInfo)] + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptGroupElementDisabled :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> m Bool +getDOMHTMLOptGroupElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLOptGroupElementDisabled :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> Bool -> m () +setDOMHTMLOptGroupElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLOptGroupElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLOptGroupElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLOptGroupElementDisabledPropertyInfo +instance AttrInfo DOMHTMLOptGroupElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLOptGroupElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptGroupElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLOptGroupElementDisabledPropertyInfo = DOMHTMLOptGroupElementK + type AttrGetType DOMHTMLOptGroupElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLOptGroupElementDisabledPropertyInfo = "DOMHTMLOptGroupElement::disabled" + attrGet _ = getDOMHTMLOptGroupElementDisabled + attrSet _ = setDOMHTMLOptGroupElementDisabled + attrConstruct _ = constructDOMHTMLOptGroupElementDisabled + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptGroupElementLabel :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> m T.Text +getDOMHTMLOptGroupElementLabel obj = liftIO $ getObjectPropertyString obj "label" + +setDOMHTMLOptGroupElementLabel :: (MonadIO m, DOMHTMLOptGroupElementK o) => o -> T.Text -> m () +setDOMHTMLOptGroupElementLabel obj val = liftIO $ setObjectPropertyString obj "label" val + +constructDOMHTMLOptGroupElementLabel :: T.Text -> IO ([Char], GValue) +constructDOMHTMLOptGroupElementLabel val = constructObjectPropertyString "label" val + +data DOMHTMLOptGroupElementLabelPropertyInfo +instance AttrInfo DOMHTMLOptGroupElementLabelPropertyInfo where + type AttrAllowedOps DOMHTMLOptGroupElementLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptGroupElementLabelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLOptGroupElementLabelPropertyInfo = DOMHTMLOptGroupElementK + type AttrGetType DOMHTMLOptGroupElementLabelPropertyInfo = T.Text + type AttrLabel DOMHTMLOptGroupElementLabelPropertyInfo = "DOMHTMLOptGroupElement::label" + attrGet _ = getDOMHTMLOptGroupElementLabel + attrSet _ = setDOMHTMLOptGroupElementLabel + attrConstruct _ = constructDOMHTMLOptGroupElementLabel + +type instance AttributeList DOMHTMLOptGroupElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLOptGroupElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("label", DOMHTMLOptGroupElementLabelPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "default-selected" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptionElementDefaultSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool +getDOMHTMLOptionElementDefaultSelected obj = liftIO $ getObjectPropertyBool obj "default-selected" + +setDOMHTMLOptionElementDefaultSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> Bool -> m () +setDOMHTMLOptionElementDefaultSelected obj val = liftIO $ setObjectPropertyBool obj "default-selected" val + +constructDOMHTMLOptionElementDefaultSelected :: Bool -> IO ([Char], GValue) +constructDOMHTMLOptionElementDefaultSelected val = constructObjectPropertyBool "default-selected" val + +data DOMHTMLOptionElementDefaultSelectedPropertyInfo +instance AttrInfo DOMHTMLOptionElementDefaultSelectedPropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementDefaultSelectedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementDefaultSelectedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLOptionElementDefaultSelectedPropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementDefaultSelectedPropertyInfo = Bool + type AttrLabel DOMHTMLOptionElementDefaultSelectedPropertyInfo = "DOMHTMLOptionElement::default-selected" + attrGet _ = getDOMHTMLOptionElementDefaultSelected + attrSet _ = setDOMHTMLOptionElementDefaultSelected + attrConstruct _ = constructDOMHTMLOptionElementDefaultSelected + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptionElementDisabled :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool +getDOMHTMLOptionElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLOptionElementDisabled :: (MonadIO m, DOMHTMLOptionElementK o) => o -> Bool -> m () +setDOMHTMLOptionElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLOptionElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLOptionElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLOptionElementDisabledPropertyInfo +instance AttrInfo DOMHTMLOptionElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLOptionElementDisabledPropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLOptionElementDisabledPropertyInfo = "DOMHTMLOptionElement::disabled" + attrGet _ = getDOMHTMLOptionElementDisabled + attrSet _ = setDOMHTMLOptionElementDisabled + attrConstruct _ = constructDOMHTMLOptionElementDisabled + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLOptionElementForm :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLOptionElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLOptionElementFormPropertyInfo +instance AttrInfo DOMHTMLOptionElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLOptionElementFormPropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLOptionElementFormPropertyInfo = "DOMHTMLOptionElement::form" + attrGet _ = getDOMHTMLOptionElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLOptionElementIndex :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Int64 +getDOMHTMLOptionElementIndex obj = liftIO $ getObjectPropertyInt64 obj "index" + +data DOMHTMLOptionElementIndexPropertyInfo +instance AttrInfo DOMHTMLOptionElementIndexPropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLOptionElementIndexPropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementIndexPropertyInfo = Int64 + type AttrLabel DOMHTMLOptionElementIndexPropertyInfo = "DOMHTMLOptionElement::index" + attrGet _ = getDOMHTMLOptionElementIndex + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptionElementLabel :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text +getDOMHTMLOptionElementLabel obj = liftIO $ getObjectPropertyString obj "label" + +setDOMHTMLOptionElementLabel :: (MonadIO m, DOMHTMLOptionElementK o) => o -> T.Text -> m () +setDOMHTMLOptionElementLabel obj val = liftIO $ setObjectPropertyString obj "label" val + +constructDOMHTMLOptionElementLabel :: T.Text -> IO ([Char], GValue) +constructDOMHTMLOptionElementLabel val = constructObjectPropertyString "label" val + +data DOMHTMLOptionElementLabelPropertyInfo +instance AttrInfo DOMHTMLOptionElementLabelPropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementLabelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLOptionElementLabelPropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementLabelPropertyInfo = T.Text + type AttrLabel DOMHTMLOptionElementLabelPropertyInfo = "DOMHTMLOptionElement::label" + attrGet _ = getDOMHTMLOptionElementLabel + attrSet _ = setDOMHTMLOptionElementLabel + attrConstruct _ = constructDOMHTMLOptionElementLabel + +-- VVV Prop "selected" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptionElementSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m Bool +getDOMHTMLOptionElementSelected obj = liftIO $ getObjectPropertyBool obj "selected" + +setDOMHTMLOptionElementSelected :: (MonadIO m, DOMHTMLOptionElementK o) => o -> Bool -> m () +setDOMHTMLOptionElementSelected obj val = liftIO $ setObjectPropertyBool obj "selected" val + +constructDOMHTMLOptionElementSelected :: Bool -> IO ([Char], GValue) +constructDOMHTMLOptionElementSelected val = constructObjectPropertyBool "selected" val + +data DOMHTMLOptionElementSelectedPropertyInfo +instance AttrInfo DOMHTMLOptionElementSelectedPropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementSelectedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementSelectedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLOptionElementSelectedPropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementSelectedPropertyInfo = Bool + type AttrLabel DOMHTMLOptionElementSelectedPropertyInfo = "DOMHTMLOptionElement::selected" + attrGet _ = getDOMHTMLOptionElementSelected + attrSet _ = setDOMHTMLOptionElementSelected + attrConstruct _ = constructDOMHTMLOptionElementSelected + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLOptionElementText :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text +getDOMHTMLOptionElementText obj = liftIO $ getObjectPropertyString obj "text" + +data DOMHTMLOptionElementTextPropertyInfo +instance AttrInfo DOMHTMLOptionElementTextPropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementTextPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementTextPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLOptionElementTextPropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementTextPropertyInfo = T.Text + type AttrLabel DOMHTMLOptionElementTextPropertyInfo = "DOMHTMLOptionElement::text" + attrGet _ = getDOMHTMLOptionElementText + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptionElementValue :: (MonadIO m, DOMHTMLOptionElementK o) => o -> m T.Text +getDOMHTMLOptionElementValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMHTMLOptionElementValue :: (MonadIO m, DOMHTMLOptionElementK o) => o -> T.Text -> m () +setDOMHTMLOptionElementValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMHTMLOptionElementValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLOptionElementValue val = constructObjectPropertyString "value" val + +data DOMHTMLOptionElementValuePropertyInfo +instance AttrInfo DOMHTMLOptionElementValuePropertyInfo where + type AttrAllowedOps DOMHTMLOptionElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionElementValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLOptionElementValuePropertyInfo = DOMHTMLOptionElementK + type AttrGetType DOMHTMLOptionElementValuePropertyInfo = T.Text + type AttrLabel DOMHTMLOptionElementValuePropertyInfo = "DOMHTMLOptionElement::value" + attrGet _ = getDOMHTMLOptionElementValue + attrSet _ = setDOMHTMLOptionElementValue + attrConstruct _ = constructDOMHTMLOptionElementValue + +type instance AttributeList DOMHTMLOptionElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("default-selected", DOMHTMLOptionElementDefaultSelectedPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLOptionElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLOptionElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("index", DOMHTMLOptionElementIndexPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("label", DOMHTMLOptionElementLabelPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("selected", DOMHTMLOptionElementSelectedPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLOptionElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("value", DOMHTMLOptionElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLOptionsCollectionLength :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> m Word64 +getDOMHTMLOptionsCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMHTMLOptionsCollectionLengthPropertyInfo +instance AttrInfo DOMHTMLOptionsCollectionLengthPropertyInfo where + type AttrAllowedOps DOMHTMLOptionsCollectionLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionsCollectionLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLOptionsCollectionLengthPropertyInfo = DOMHTMLOptionsCollectionK + type AttrGetType DOMHTMLOptionsCollectionLengthPropertyInfo = Word64 + type AttrLabel DOMHTMLOptionsCollectionLengthPropertyInfo = "DOMHTMLOptionsCollection::length" + attrGet _ = getDOMHTMLOptionsCollectionLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "selected-index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLOptionsCollectionSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> m Int64 +getDOMHTMLOptionsCollectionSelectedIndex obj = liftIO $ getObjectPropertyInt64 obj "selected-index" + +setDOMHTMLOptionsCollectionSelectedIndex :: (MonadIO m, DOMHTMLOptionsCollectionK o) => o -> Int64 -> m () +setDOMHTMLOptionsCollectionSelectedIndex obj val = liftIO $ setObjectPropertyInt64 obj "selected-index" val + +constructDOMHTMLOptionsCollectionSelectedIndex :: Int64 -> IO ([Char], GValue) +constructDOMHTMLOptionsCollectionSelectedIndex val = constructObjectPropertyInt64 "selected-index" val + +data DOMHTMLOptionsCollectionSelectedIndexPropertyInfo +instance AttrInfo DOMHTMLOptionsCollectionSelectedIndexPropertyInfo where + type AttrAllowedOps DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = DOMHTMLOptionsCollectionK + type AttrGetType DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = Int64 + type AttrLabel DOMHTMLOptionsCollectionSelectedIndexPropertyInfo = "DOMHTMLOptionsCollection::selected-index" + attrGet _ = getDOMHTMLOptionsCollectionSelectedIndex + attrSet _ = setDOMHTMLOptionsCollectionSelectedIndex + attrConstruct _ = constructDOMHTMLOptionsCollectionSelectedIndex + +type instance AttributeList DOMHTMLOptionsCollection = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLOptionsCollectionLengthPropertyInfo), '("selected-index", DOMHTMLOptionsCollectionSelectedIndexPropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLParagraphElementAlign :: (MonadIO m, DOMHTMLParagraphElementK o) => o -> m T.Text +getDOMHTMLParagraphElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLParagraphElementAlign :: (MonadIO m, DOMHTMLParagraphElementK o) => o -> T.Text -> m () +setDOMHTMLParagraphElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLParagraphElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLParagraphElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLParagraphElementAlignPropertyInfo +instance AttrInfo DOMHTMLParagraphElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLParagraphElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLParagraphElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLParagraphElementAlignPropertyInfo = DOMHTMLParagraphElementK + type AttrGetType DOMHTMLParagraphElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLParagraphElementAlignPropertyInfo = "DOMHTMLParagraphElement::align" + attrGet _ = getDOMHTMLParagraphElementAlign + attrSet _ = setDOMHTMLParagraphElementAlign + attrConstruct _ = constructDOMHTMLParagraphElementAlign + +type instance AttributeList DOMHTMLParagraphElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLParagraphElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLParamElementName :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text +getDOMHTMLParamElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLParamElementName :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () +setDOMHTMLParamElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLParamElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLParamElementName val = constructObjectPropertyString "name" val + +data DOMHTMLParamElementNamePropertyInfo +instance AttrInfo DOMHTMLParamElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLParamElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLParamElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLParamElementNamePropertyInfo = DOMHTMLParamElementK + type AttrGetType DOMHTMLParamElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLParamElementNamePropertyInfo = "DOMHTMLParamElement::name" + attrGet _ = getDOMHTMLParamElementName + attrSet _ = setDOMHTMLParamElementName + attrConstruct _ = constructDOMHTMLParamElementName + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text +getDOMHTMLParamElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLParamElementType :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () +setDOMHTMLParamElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLParamElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLParamElementType val = constructObjectPropertyString "type" val + +data DOMHTMLParamElementTypePropertyInfo +instance AttrInfo DOMHTMLParamElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLParamElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLParamElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLParamElementTypePropertyInfo = DOMHTMLParamElementK + type AttrGetType DOMHTMLParamElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLParamElementTypePropertyInfo = "DOMHTMLParamElement::type" + attrGet _ = getDOMHTMLParamElementType + attrSet _ = setDOMHTMLParamElementType + attrConstruct _ = constructDOMHTMLParamElementType + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLParamElementValue :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text +getDOMHTMLParamElementValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMHTMLParamElementValue :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () +setDOMHTMLParamElementValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMHTMLParamElementValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLParamElementValue val = constructObjectPropertyString "value" val + +data DOMHTMLParamElementValuePropertyInfo +instance AttrInfo DOMHTMLParamElementValuePropertyInfo where + type AttrAllowedOps DOMHTMLParamElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLParamElementValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLParamElementValuePropertyInfo = DOMHTMLParamElementK + type AttrGetType DOMHTMLParamElementValuePropertyInfo = T.Text + type AttrLabel DOMHTMLParamElementValuePropertyInfo = "DOMHTMLParamElement::value" + attrGet _ = getDOMHTMLParamElementValue + attrSet _ = setDOMHTMLParamElementValue + attrConstruct _ = constructDOMHTMLParamElementValue + +-- VVV Prop "value-type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLParamElementValueType :: (MonadIO m, DOMHTMLParamElementK o) => o -> m T.Text +getDOMHTMLParamElementValueType obj = liftIO $ getObjectPropertyString obj "value-type" + +setDOMHTMLParamElementValueType :: (MonadIO m, DOMHTMLParamElementK o) => o -> T.Text -> m () +setDOMHTMLParamElementValueType obj val = liftIO $ setObjectPropertyString obj "value-type" val + +constructDOMHTMLParamElementValueType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLParamElementValueType val = constructObjectPropertyString "value-type" val + +data DOMHTMLParamElementValueTypePropertyInfo +instance AttrInfo DOMHTMLParamElementValueTypePropertyInfo where + type AttrAllowedOps DOMHTMLParamElementValueTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLParamElementValueTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLParamElementValueTypePropertyInfo = DOMHTMLParamElementK + type AttrGetType DOMHTMLParamElementValueTypePropertyInfo = T.Text + type AttrLabel DOMHTMLParamElementValueTypePropertyInfo = "DOMHTMLParamElement::value-type" + attrGet _ = getDOMHTMLParamElementValueType + attrSet _ = setDOMHTMLParamElementValueType + attrConstruct _ = constructDOMHTMLParamElementValueType + +type instance AttributeList DOMHTMLParamElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("name", DOMHTMLParamElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLParamElementTypePropertyInfo), '("value", DOMHTMLParamElementValuePropertyInfo), '("value-type", DOMHTMLParamElementValueTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "width" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLPreElementWidth :: (MonadIO m, DOMHTMLPreElementK o) => o -> m Int64 +getDOMHTMLPreElementWidth obj = liftIO $ getObjectPropertyInt64 obj "width" + +setDOMHTMLPreElementWidth :: (MonadIO m, DOMHTMLPreElementK o) => o -> Int64 -> m () +setDOMHTMLPreElementWidth obj val = liftIO $ setObjectPropertyInt64 obj "width" val + +constructDOMHTMLPreElementWidth :: Int64 -> IO ([Char], GValue) +constructDOMHTMLPreElementWidth val = constructObjectPropertyInt64 "width" val + +data DOMHTMLPreElementWidthPropertyInfo +instance AttrInfo DOMHTMLPreElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLPreElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLPreElementWidthPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLPreElementWidthPropertyInfo = DOMHTMLPreElementK + type AttrGetType DOMHTMLPreElementWidthPropertyInfo = Int64 + type AttrLabel DOMHTMLPreElementWidthPropertyInfo = "DOMHTMLPreElement::width" + attrGet _ = getDOMHTMLPreElementWidth + attrSet _ = setDOMHTMLPreElementWidth + attrConstruct _ = constructDOMHTMLPreElementWidth + +-- VVV Prop "wrap" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLPreElementWrap :: (MonadIO m, DOMHTMLPreElementK o) => o -> m Bool +getDOMHTMLPreElementWrap obj = liftIO $ getObjectPropertyBool obj "wrap" + +setDOMHTMLPreElementWrap :: (MonadIO m, DOMHTMLPreElementK o) => o -> Bool -> m () +setDOMHTMLPreElementWrap obj val = liftIO $ setObjectPropertyBool obj "wrap" val + +constructDOMHTMLPreElementWrap :: Bool -> IO ([Char], GValue) +constructDOMHTMLPreElementWrap val = constructObjectPropertyBool "wrap" val + +data DOMHTMLPreElementWrapPropertyInfo +instance AttrInfo DOMHTMLPreElementWrapPropertyInfo where + type AttrAllowedOps DOMHTMLPreElementWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLPreElementWrapPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLPreElementWrapPropertyInfo = DOMHTMLPreElementK + type AttrGetType DOMHTMLPreElementWrapPropertyInfo = Bool + type AttrLabel DOMHTMLPreElementWrapPropertyInfo = "DOMHTMLPreElement::wrap" + attrGet _ = getDOMHTMLPreElementWrap + attrSet _ = setDOMHTMLPreElementWrap + attrConstruct _ = constructDOMHTMLPreElementWrap + +type instance AttributeList DOMHTMLPreElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLPreElementWidthPropertyInfo), '("wrap", DOMHTMLPreElementWrapPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLPropertiesCollectionLength :: (MonadIO m, DOMHTMLPropertiesCollectionK o) => o -> m Word64 +getDOMHTMLPropertiesCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMHTMLPropertiesCollectionLengthPropertyInfo +instance AttrInfo DOMHTMLPropertiesCollectionLengthPropertyInfo where + type AttrAllowedOps DOMHTMLPropertiesCollectionLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLPropertiesCollectionLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLPropertiesCollectionLengthPropertyInfo = DOMHTMLPropertiesCollectionK + type AttrGetType DOMHTMLPropertiesCollectionLengthPropertyInfo = Word64 + type AttrLabel DOMHTMLPropertiesCollectionLengthPropertyInfo = "DOMHTMLPropertiesCollection::length" + attrGet _ = getDOMHTMLPropertiesCollectionLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "names" + -- Type: TInterface "WebKit" "DOMDOMStringList" + -- Flags: [PropertyReadable] + +getDOMHTMLPropertiesCollectionNames :: (MonadIO m, DOMHTMLPropertiesCollectionK o) => o -> m DOMDOMStringList +getDOMHTMLPropertiesCollectionNames obj = liftIO $ getObjectPropertyObject obj "names" DOMDOMStringList + +data DOMHTMLPropertiesCollectionNamesPropertyInfo +instance AttrInfo DOMHTMLPropertiesCollectionNamesPropertyInfo where + type AttrAllowedOps DOMHTMLPropertiesCollectionNamesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLPropertiesCollectionNamesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLPropertiesCollectionNamesPropertyInfo = DOMHTMLPropertiesCollectionK + type AttrGetType DOMHTMLPropertiesCollectionNamesPropertyInfo = DOMDOMStringList + type AttrLabel DOMHTMLPropertiesCollectionNamesPropertyInfo = "DOMHTMLPropertiesCollection::names" + attrGet _ = getDOMHTMLPropertiesCollectionNames + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLPropertiesCollection = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLPropertiesCollectionLengthPropertyInfo), '("names", DOMHTMLPropertiesCollectionNamesPropertyInfo)] + +-- VVV Prop "cite" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLQuoteElementCite :: (MonadIO m, DOMHTMLQuoteElementK o) => o -> m T.Text +getDOMHTMLQuoteElementCite obj = liftIO $ getObjectPropertyString obj "cite" + +setDOMHTMLQuoteElementCite :: (MonadIO m, DOMHTMLQuoteElementK o) => o -> T.Text -> m () +setDOMHTMLQuoteElementCite obj val = liftIO $ setObjectPropertyString obj "cite" val + +constructDOMHTMLQuoteElementCite :: T.Text -> IO ([Char], GValue) +constructDOMHTMLQuoteElementCite val = constructObjectPropertyString "cite" val + +data DOMHTMLQuoteElementCitePropertyInfo +instance AttrInfo DOMHTMLQuoteElementCitePropertyInfo where + type AttrAllowedOps DOMHTMLQuoteElementCitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLQuoteElementCitePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLQuoteElementCitePropertyInfo = DOMHTMLQuoteElementK + type AttrGetType DOMHTMLQuoteElementCitePropertyInfo = T.Text + type AttrLabel DOMHTMLQuoteElementCitePropertyInfo = "DOMHTMLQuoteElement::cite" + attrGet _ = getDOMHTMLQuoteElementCite + attrSet _ = setDOMHTMLQuoteElementCite + attrConstruct _ = constructDOMHTMLQuoteElementCite + +type instance AttributeList DOMHTMLQuoteElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("cite", DOMHTMLQuoteElementCitePropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "async" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementAsync :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m Bool +getDOMHTMLScriptElementAsync obj = liftIO $ getObjectPropertyBool obj "async" + +setDOMHTMLScriptElementAsync :: (MonadIO m, DOMHTMLScriptElementK o) => o -> Bool -> m () +setDOMHTMLScriptElementAsync obj val = liftIO $ setObjectPropertyBool obj "async" val + +constructDOMHTMLScriptElementAsync :: Bool -> IO ([Char], GValue) +constructDOMHTMLScriptElementAsync val = constructObjectPropertyBool "async" val + +data DOMHTMLScriptElementAsyncPropertyInfo +instance AttrInfo DOMHTMLScriptElementAsyncPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementAsyncPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementAsyncPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLScriptElementAsyncPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementAsyncPropertyInfo = Bool + type AttrLabel DOMHTMLScriptElementAsyncPropertyInfo = "DOMHTMLScriptElement::async" + attrGet _ = getDOMHTMLScriptElementAsync + attrSet _ = setDOMHTMLScriptElementAsync + attrConstruct _ = constructDOMHTMLScriptElementAsync + +-- VVV Prop "charset" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementCharset obj = liftIO $ getObjectPropertyString obj "charset" + +setDOMHTMLScriptElementCharset :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementCharset obj val = liftIO $ setObjectPropertyString obj "charset" val + +constructDOMHTMLScriptElementCharset :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementCharset val = constructObjectPropertyString "charset" val + +data DOMHTMLScriptElementCharsetPropertyInfo +instance AttrInfo DOMHTMLScriptElementCharsetPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementCharsetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementCharsetPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementCharsetPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementCharsetPropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementCharsetPropertyInfo = "DOMHTMLScriptElement::charset" + attrGet _ = getDOMHTMLScriptElementCharset + attrSet _ = setDOMHTMLScriptElementCharset + attrConstruct _ = constructDOMHTMLScriptElementCharset + +-- VVV Prop "cross-origin" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementCrossOrigin :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementCrossOrigin obj = liftIO $ getObjectPropertyString obj "cross-origin" + +setDOMHTMLScriptElementCrossOrigin :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementCrossOrigin obj val = liftIO $ setObjectPropertyString obj "cross-origin" val + +constructDOMHTMLScriptElementCrossOrigin :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementCrossOrigin val = constructObjectPropertyString "cross-origin" val + +data DOMHTMLScriptElementCrossOriginPropertyInfo +instance AttrInfo DOMHTMLScriptElementCrossOriginPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementCrossOriginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementCrossOriginPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementCrossOriginPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementCrossOriginPropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementCrossOriginPropertyInfo = "DOMHTMLScriptElement::cross-origin" + attrGet _ = getDOMHTMLScriptElementCrossOrigin + attrSet _ = setDOMHTMLScriptElementCrossOrigin + attrConstruct _ = constructDOMHTMLScriptElementCrossOrigin + +-- VVV Prop "defer" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementDefer :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m Bool +getDOMHTMLScriptElementDefer obj = liftIO $ getObjectPropertyBool obj "defer" + +setDOMHTMLScriptElementDefer :: (MonadIO m, DOMHTMLScriptElementK o) => o -> Bool -> m () +setDOMHTMLScriptElementDefer obj val = liftIO $ setObjectPropertyBool obj "defer" val + +constructDOMHTMLScriptElementDefer :: Bool -> IO ([Char], GValue) +constructDOMHTMLScriptElementDefer val = constructObjectPropertyBool "defer" val + +data DOMHTMLScriptElementDeferPropertyInfo +instance AttrInfo DOMHTMLScriptElementDeferPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementDeferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementDeferPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLScriptElementDeferPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementDeferPropertyInfo = Bool + type AttrLabel DOMHTMLScriptElementDeferPropertyInfo = "DOMHTMLScriptElement::defer" + attrGet _ = getDOMHTMLScriptElementDefer + attrSet _ = setDOMHTMLScriptElementDefer + attrConstruct _ = constructDOMHTMLScriptElementDefer + +-- VVV Prop "event" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementEvent :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementEvent obj = liftIO $ getObjectPropertyString obj "event" + +setDOMHTMLScriptElementEvent :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementEvent obj val = liftIO $ setObjectPropertyString obj "event" val + +constructDOMHTMLScriptElementEvent :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementEvent val = constructObjectPropertyString "event" val + +data DOMHTMLScriptElementEventPropertyInfo +instance AttrInfo DOMHTMLScriptElementEventPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementEventPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementEventPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementEventPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementEventPropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementEventPropertyInfo = "DOMHTMLScriptElement::event" + attrGet _ = getDOMHTMLScriptElementEvent + attrSet _ = setDOMHTMLScriptElementEvent + attrConstruct _ = constructDOMHTMLScriptElementEvent + +-- VVV Prop "html-for" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementHtmlFor :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementHtmlFor obj = liftIO $ getObjectPropertyString obj "html-for" + +setDOMHTMLScriptElementHtmlFor :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementHtmlFor obj val = liftIO $ setObjectPropertyString obj "html-for" val + +constructDOMHTMLScriptElementHtmlFor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementHtmlFor val = constructObjectPropertyString "html-for" val + +data DOMHTMLScriptElementHtmlForPropertyInfo +instance AttrInfo DOMHTMLScriptElementHtmlForPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementHtmlForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementHtmlForPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementHtmlForPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementHtmlForPropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementHtmlForPropertyInfo = "DOMHTMLScriptElement::html-for" + attrGet _ = getDOMHTMLScriptElementHtmlFor + attrSet _ = setDOMHTMLScriptElementHtmlFor + attrConstruct _ = constructDOMHTMLScriptElementHtmlFor + +-- VVV Prop "nonce" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementNonce obj = liftIO $ getObjectPropertyString obj "nonce" + +setDOMHTMLScriptElementNonce :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementNonce obj val = liftIO $ setObjectPropertyString obj "nonce" val + +constructDOMHTMLScriptElementNonce :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementNonce val = constructObjectPropertyString "nonce" val + +data DOMHTMLScriptElementNoncePropertyInfo +instance AttrInfo DOMHTMLScriptElementNoncePropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementNoncePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementNoncePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementNoncePropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementNoncePropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementNoncePropertyInfo = "DOMHTMLScriptElement::nonce" + attrGet _ = getDOMHTMLScriptElementNonce + attrSet _ = setDOMHTMLScriptElementNonce + attrConstruct _ = constructDOMHTMLScriptElementNonce + +-- VVV Prop "src" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementSrc :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementSrc obj = liftIO $ getObjectPropertyString obj "src" + +setDOMHTMLScriptElementSrc :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementSrc obj val = liftIO $ setObjectPropertyString obj "src" val + +constructDOMHTMLScriptElementSrc :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementSrc val = constructObjectPropertyString "src" val + +data DOMHTMLScriptElementSrcPropertyInfo +instance AttrInfo DOMHTMLScriptElementSrcPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementSrcPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementSrcPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementSrcPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementSrcPropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementSrcPropertyInfo = "DOMHTMLScriptElement::src" + attrGet _ = getDOMHTMLScriptElementSrc + attrSet _ = setDOMHTMLScriptElementSrc + attrConstruct _ = constructDOMHTMLScriptElementSrc + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementText :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementText obj = liftIO $ getObjectPropertyString obj "text" + +setDOMHTMLScriptElementText :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructDOMHTMLScriptElementText :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementText val = constructObjectPropertyString "text" val + +data DOMHTMLScriptElementTextPropertyInfo +instance AttrInfo DOMHTMLScriptElementTextPropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementTextPropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementTextPropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementTextPropertyInfo = "DOMHTMLScriptElement::text" + attrGet _ = getDOMHTMLScriptElementText + attrSet _ = setDOMHTMLScriptElementText + attrConstruct _ = constructDOMHTMLScriptElementText + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> m T.Text +getDOMHTMLScriptElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLScriptElementType :: (MonadIO m, DOMHTMLScriptElementK o) => o -> T.Text -> m () +setDOMHTMLScriptElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLScriptElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLScriptElementType val = constructObjectPropertyString "type" val + +data DOMHTMLScriptElementTypePropertyInfo +instance AttrInfo DOMHTMLScriptElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLScriptElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLScriptElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLScriptElementTypePropertyInfo = DOMHTMLScriptElementK + type AttrGetType DOMHTMLScriptElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLScriptElementTypePropertyInfo = "DOMHTMLScriptElement::type" + attrGet _ = getDOMHTMLScriptElementType + attrSet _ = setDOMHTMLScriptElementType + attrConstruct _ = constructDOMHTMLScriptElementType + +type instance AttributeList DOMHTMLScriptElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("async", DOMHTMLScriptElementAsyncPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("charset", DOMHTMLScriptElementCharsetPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("cross-origin", DOMHTMLScriptElementCrossOriginPropertyInfo), '("defer", DOMHTMLScriptElementDeferPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("event", DOMHTMLScriptElementEventPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("html-for", DOMHTMLScriptElementHtmlForPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("nonce", DOMHTMLScriptElementNoncePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLScriptElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLScriptElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLScriptElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "autofocus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementAutofocus :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool +getDOMHTMLSelectElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" + +setDOMHTMLSelectElementAutofocus :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m () +setDOMHTMLSelectElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val + +constructDOMHTMLSelectElementAutofocus :: Bool -> IO ([Char], GValue) +constructDOMHTMLSelectElementAutofocus val = constructObjectPropertyBool "autofocus" val + +data DOMHTMLSelectElementAutofocusPropertyInfo +instance AttrInfo DOMHTMLSelectElementAutofocusPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementAutofocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLSelectElementAutofocusPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementAutofocusPropertyInfo = Bool + type AttrLabel DOMHTMLSelectElementAutofocusPropertyInfo = "DOMHTMLSelectElement::autofocus" + attrGet _ = getDOMHTMLSelectElementAutofocus + attrSet _ = setDOMHTMLSelectElementAutofocus + attrConstruct _ = constructDOMHTMLSelectElementAutofocus + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementDisabled :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool +getDOMHTMLSelectElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLSelectElementDisabled :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m () +setDOMHTMLSelectElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLSelectElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLSelectElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLSelectElementDisabledPropertyInfo +instance AttrInfo DOMHTMLSelectElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLSelectElementDisabledPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLSelectElementDisabledPropertyInfo = "DOMHTMLSelectElement::disabled" + attrGet _ = getDOMHTMLSelectElementDisabled + attrSet _ = setDOMHTMLSelectElementDisabled + attrConstruct _ = constructDOMHTMLSelectElementDisabled + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementForm :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLSelectElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLSelectElementFormPropertyInfo +instance AttrInfo DOMHTMLSelectElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementFormPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLSelectElementFormPropertyInfo = "DOMHTMLSelectElement::form" + attrGet _ = getDOMHTMLSelectElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "labels" + -- Type: TInterface "WebKit" "DOMNodeList" + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementLabels :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMNodeList +getDOMHTMLSelectElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList + +data DOMHTMLSelectElementLabelsPropertyInfo +instance AttrInfo DOMHTMLSelectElementLabelsPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementLabelsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementLabelsPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementLabelsPropertyInfo = DOMNodeList + type AttrLabel DOMHTMLSelectElementLabelsPropertyInfo = "DOMHTMLSelectElement::labels" + attrGet _ = getDOMHTMLSelectElementLabels + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementLength :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Word64 +getDOMHTMLSelectElementLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +setDOMHTMLSelectElementLength :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Word64 -> m () +setDOMHTMLSelectElementLength obj val = liftIO $ setObjectPropertyUInt64 obj "length" val + +constructDOMHTMLSelectElementLength :: Word64 -> IO ([Char], GValue) +constructDOMHTMLSelectElementLength val = constructObjectPropertyUInt64 "length" val + +data DOMHTMLSelectElementLengthPropertyInfo +instance AttrInfo DOMHTMLSelectElementLengthPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementLengthPropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLSelectElementLengthPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementLengthPropertyInfo = Word64 + type AttrLabel DOMHTMLSelectElementLengthPropertyInfo = "DOMHTMLSelectElement::length" + attrGet _ = getDOMHTMLSelectElementLength + attrSet _ = setDOMHTMLSelectElementLength + attrConstruct _ = constructDOMHTMLSelectElementLength + +-- VVV Prop "multiple" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementMultiple :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool +getDOMHTMLSelectElementMultiple obj = liftIO $ getObjectPropertyBool obj "multiple" + +setDOMHTMLSelectElementMultiple :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m () +setDOMHTMLSelectElementMultiple obj val = liftIO $ setObjectPropertyBool obj "multiple" val + +constructDOMHTMLSelectElementMultiple :: Bool -> IO ([Char], GValue) +constructDOMHTMLSelectElementMultiple val = constructObjectPropertyBool "multiple" val + +data DOMHTMLSelectElementMultiplePropertyInfo +instance AttrInfo DOMHTMLSelectElementMultiplePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementMultiplePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementMultiplePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLSelectElementMultiplePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementMultiplePropertyInfo = Bool + type AttrLabel DOMHTMLSelectElementMultiplePropertyInfo = "DOMHTMLSelectElement::multiple" + attrGet _ = getDOMHTMLSelectElementMultiple + attrSet _ = setDOMHTMLSelectElementMultiple + attrConstruct _ = constructDOMHTMLSelectElementMultiple + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementName :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text +getDOMHTMLSelectElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLSelectElementName :: (MonadIO m, DOMHTMLSelectElementK o) => o -> T.Text -> m () +setDOMHTMLSelectElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLSelectElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLSelectElementName val = constructObjectPropertyString "name" val + +data DOMHTMLSelectElementNamePropertyInfo +instance AttrInfo DOMHTMLSelectElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLSelectElementNamePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLSelectElementNamePropertyInfo = "DOMHTMLSelectElement::name" + attrGet _ = getDOMHTMLSelectElementName + attrSet _ = setDOMHTMLSelectElementName + attrConstruct _ = constructDOMHTMLSelectElementName + +-- VVV Prop "options" + -- Type: TInterface "WebKit" "DOMHTMLOptionsCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementOptions :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLOptionsCollection +getDOMHTMLSelectElementOptions obj = liftIO $ getObjectPropertyObject obj "options" DOMHTMLOptionsCollection + +data DOMHTMLSelectElementOptionsPropertyInfo +instance AttrInfo DOMHTMLSelectElementOptionsPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementOptionsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementOptionsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementOptionsPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementOptionsPropertyInfo = DOMHTMLOptionsCollection + type AttrLabel DOMHTMLSelectElementOptionsPropertyInfo = "DOMHTMLSelectElement::options" + attrGet _ = getDOMHTMLSelectElementOptions + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "required" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementRequired :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool +getDOMHTMLSelectElementRequired obj = liftIO $ getObjectPropertyBool obj "required" + +setDOMHTMLSelectElementRequired :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Bool -> m () +setDOMHTMLSelectElementRequired obj val = liftIO $ setObjectPropertyBool obj "required" val + +constructDOMHTMLSelectElementRequired :: Bool -> IO ([Char], GValue) +constructDOMHTMLSelectElementRequired val = constructObjectPropertyBool "required" val + +data DOMHTMLSelectElementRequiredPropertyInfo +instance AttrInfo DOMHTMLSelectElementRequiredPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementRequiredPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementRequiredPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLSelectElementRequiredPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementRequiredPropertyInfo = Bool + type AttrLabel DOMHTMLSelectElementRequiredPropertyInfo = "DOMHTMLSelectElement::required" + attrGet _ = getDOMHTMLSelectElementRequired + attrSet _ = setDOMHTMLSelectElementRequired + attrConstruct _ = constructDOMHTMLSelectElementRequired + +-- VVV Prop "selected-index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Int64 +getDOMHTMLSelectElementSelectedIndex obj = liftIO $ getObjectPropertyInt64 obj "selected-index" + +setDOMHTMLSelectElementSelectedIndex :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Int64 -> m () +setDOMHTMLSelectElementSelectedIndex obj val = liftIO $ setObjectPropertyInt64 obj "selected-index" val + +constructDOMHTMLSelectElementSelectedIndex :: Int64 -> IO ([Char], GValue) +constructDOMHTMLSelectElementSelectedIndex val = constructObjectPropertyInt64 "selected-index" val + +data DOMHTMLSelectElementSelectedIndexPropertyInfo +instance AttrInfo DOMHTMLSelectElementSelectedIndexPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementSelectedIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementSelectedIndexPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLSelectElementSelectedIndexPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementSelectedIndexPropertyInfo = Int64 + type AttrLabel DOMHTMLSelectElementSelectedIndexPropertyInfo = "DOMHTMLSelectElement::selected-index" + attrGet _ = getDOMHTMLSelectElementSelectedIndex + attrSet _ = setDOMHTMLSelectElementSelectedIndex + attrConstruct _ = constructDOMHTMLSelectElementSelectedIndex + +-- VVV Prop "selected-options" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementSelectedOptions :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMHTMLCollection +getDOMHTMLSelectElementSelectedOptions obj = liftIO $ getObjectPropertyObject obj "selected-options" DOMHTMLCollection + +data DOMHTMLSelectElementSelectedOptionsPropertyInfo +instance AttrInfo DOMHTMLSelectElementSelectedOptionsPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementSelectedOptionsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementSelectedOptionsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementSelectedOptionsPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementSelectedOptionsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLSelectElementSelectedOptionsPropertyInfo = "DOMHTMLSelectElement::selected-options" + attrGet _ = getDOMHTMLSelectElementSelectedOptions + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "size" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementSize :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Int64 +getDOMHTMLSelectElementSize obj = liftIO $ getObjectPropertyInt64 obj "size" + +setDOMHTMLSelectElementSize :: (MonadIO m, DOMHTMLSelectElementK o) => o -> Int64 -> m () +setDOMHTMLSelectElementSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val + +constructDOMHTMLSelectElementSize :: Int64 -> IO ([Char], GValue) +constructDOMHTMLSelectElementSize val = constructObjectPropertyInt64 "size" val + +data DOMHTMLSelectElementSizePropertyInfo +instance AttrInfo DOMHTMLSelectElementSizePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementSizePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLSelectElementSizePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementSizePropertyInfo = Int64 + type AttrLabel DOMHTMLSelectElementSizePropertyInfo = "DOMHTMLSelectElement::size" + attrGet _ = getDOMHTMLSelectElementSize + attrSet _ = setDOMHTMLSelectElementSize + attrConstruct _ = constructDOMHTMLSelectElementSize + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementType :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text +getDOMHTMLSelectElementType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMHTMLSelectElementTypePropertyInfo +instance AttrInfo DOMHTMLSelectElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementTypePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLSelectElementTypePropertyInfo = "DOMHTMLSelectElement::type" + attrGet _ = getDOMHTMLSelectElementType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validation-message" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementValidationMessage :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text +getDOMHTMLSelectElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" + +data DOMHTMLSelectElementValidationMessagePropertyInfo +instance AttrInfo DOMHTMLSelectElementValidationMessagePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementValidationMessagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementValidationMessagePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementValidationMessagePropertyInfo = T.Text + type AttrLabel DOMHTMLSelectElementValidationMessagePropertyInfo = "DOMHTMLSelectElement::validation-message" + attrGet _ = getDOMHTMLSelectElementValidationMessage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validity" + -- Type: TInterface "WebKit" "DOMValidityState" + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementValidity :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m DOMValidityState +getDOMHTMLSelectElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState + +data DOMHTMLSelectElementValidityPropertyInfo +instance AttrInfo DOMHTMLSelectElementValidityPropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementValidityPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementValidityPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementValidityPropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementValidityPropertyInfo = DOMValidityState + type AttrLabel DOMHTMLSelectElementValidityPropertyInfo = "DOMHTMLSelectElement::validity" + attrGet _ = getDOMHTMLSelectElementValidity + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLSelectElementValue :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m T.Text +getDOMHTMLSelectElementValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMHTMLSelectElementValue :: (MonadIO m, DOMHTMLSelectElementK o) => o -> T.Text -> m () +setDOMHTMLSelectElementValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMHTMLSelectElementValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLSelectElementValue val = constructObjectPropertyString "value" val + +data DOMHTMLSelectElementValuePropertyInfo +instance AttrInfo DOMHTMLSelectElementValuePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLSelectElementValuePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementValuePropertyInfo = T.Text + type AttrLabel DOMHTMLSelectElementValuePropertyInfo = "DOMHTMLSelectElement::value" + attrGet _ = getDOMHTMLSelectElementValue + attrSet _ = setDOMHTMLSelectElementValue + attrConstruct _ = constructDOMHTMLSelectElementValue + +-- VVV Prop "will-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLSelectElementWillValidate :: (MonadIO m, DOMHTMLSelectElementK o) => o -> m Bool +getDOMHTMLSelectElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" + +data DOMHTMLSelectElementWillValidatePropertyInfo +instance AttrInfo DOMHTMLSelectElementWillValidatePropertyInfo where + type AttrAllowedOps DOMHTMLSelectElementWillValidatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLSelectElementWillValidatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLSelectElementWillValidatePropertyInfo = DOMHTMLSelectElementK + type AttrGetType DOMHTMLSelectElementWillValidatePropertyInfo = Bool + type AttrLabel DOMHTMLSelectElementWillValidatePropertyInfo = "DOMHTMLSelectElement::will-validate" + attrGet _ = getDOMHTMLSelectElementWillValidate + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHTMLSelectElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autofocus", DOMHTMLSelectElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLSelectElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLSelectElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLSelectElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("length", DOMHTMLSelectElementLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("multiple", DOMHTMLSelectElementMultiplePropertyInfo), '("name", DOMHTMLSelectElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("options", DOMHTMLSelectElementOptionsPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("required", DOMHTMLSelectElementRequiredPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("selected-index", DOMHTMLSelectElementSelectedIndexPropertyInfo), '("selected-options", DOMHTMLSelectElementSelectedOptionsPropertyInfo), '("size", DOMHTMLSelectElementSizePropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLSelectElementTypePropertyInfo), '("validation-message", DOMHTMLSelectElementValidationMessagePropertyInfo), '("validity", DOMHTMLSelectElementValidityPropertyInfo), '("value", DOMHTMLSelectElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLSelectElementWillValidatePropertyInfo)] + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLStyleElementDisabled :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m Bool +getDOMHTMLStyleElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLStyleElementDisabled :: (MonadIO m, DOMHTMLStyleElementK o) => o -> Bool -> m () +setDOMHTMLStyleElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLStyleElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLStyleElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLStyleElementDisabledPropertyInfo +instance AttrInfo DOMHTMLStyleElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLStyleElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLStyleElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLStyleElementDisabledPropertyInfo = DOMHTMLStyleElementK + type AttrGetType DOMHTMLStyleElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLStyleElementDisabledPropertyInfo = "DOMHTMLStyleElement::disabled" + attrGet _ = getDOMHTMLStyleElementDisabled + attrSet _ = setDOMHTMLStyleElementDisabled + attrConstruct _ = constructDOMHTMLStyleElementDisabled + +-- VVV Prop "media" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLStyleElementMedia :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m T.Text +getDOMHTMLStyleElementMedia obj = liftIO $ getObjectPropertyString obj "media" + +setDOMHTMLStyleElementMedia :: (MonadIO m, DOMHTMLStyleElementK o) => o -> T.Text -> m () +setDOMHTMLStyleElementMedia obj val = liftIO $ setObjectPropertyString obj "media" val + +constructDOMHTMLStyleElementMedia :: T.Text -> IO ([Char], GValue) +constructDOMHTMLStyleElementMedia val = constructObjectPropertyString "media" val + +data DOMHTMLStyleElementMediaPropertyInfo +instance AttrInfo DOMHTMLStyleElementMediaPropertyInfo where + type AttrAllowedOps DOMHTMLStyleElementMediaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLStyleElementMediaPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLStyleElementMediaPropertyInfo = DOMHTMLStyleElementK + type AttrGetType DOMHTMLStyleElementMediaPropertyInfo = T.Text + type AttrLabel DOMHTMLStyleElementMediaPropertyInfo = "DOMHTMLStyleElement::media" + attrGet _ = getDOMHTMLStyleElementMedia + attrSet _ = setDOMHTMLStyleElementMedia + attrConstruct _ = constructDOMHTMLStyleElementMedia + +-- VVV Prop "sheet" + -- Type: TInterface "WebKit" "DOMStyleSheet" + -- Flags: [PropertyReadable] + +getDOMHTMLStyleElementSheet :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m DOMStyleSheet +getDOMHTMLStyleElementSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet + +data DOMHTMLStyleElementSheetPropertyInfo +instance AttrInfo DOMHTMLStyleElementSheetPropertyInfo where + type AttrAllowedOps DOMHTMLStyleElementSheetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLStyleElementSheetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLStyleElementSheetPropertyInfo = DOMHTMLStyleElementK + type AttrGetType DOMHTMLStyleElementSheetPropertyInfo = DOMStyleSheet + type AttrLabel DOMHTMLStyleElementSheetPropertyInfo = "DOMHTMLStyleElement::sheet" + attrGet _ = getDOMHTMLStyleElementSheet + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> m T.Text +getDOMHTMLStyleElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLStyleElementType :: (MonadIO m, DOMHTMLStyleElementK o) => o -> T.Text -> m () +setDOMHTMLStyleElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLStyleElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLStyleElementType val = constructObjectPropertyString "type" val + +data DOMHTMLStyleElementTypePropertyInfo +instance AttrInfo DOMHTMLStyleElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLStyleElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLStyleElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLStyleElementTypePropertyInfo = DOMHTMLStyleElementK + type AttrGetType DOMHTMLStyleElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLStyleElementTypePropertyInfo = "DOMHTMLStyleElement::type" + attrGet _ = getDOMHTMLStyleElementType + attrSet _ = setDOMHTMLStyleElementType + attrConstruct _ = constructDOMHTMLStyleElementType + +type instance AttributeList DOMHTMLStyleElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("disabled", DOMHTMLStyleElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("media", DOMHTMLStyleElementMediaPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("sheet", DOMHTMLStyleElementSheetPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLStyleElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCaptionElementAlign :: (MonadIO m, DOMHTMLTableCaptionElementK o) => o -> m T.Text +getDOMHTMLTableCaptionElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLTableCaptionElementAlign :: (MonadIO m, DOMHTMLTableCaptionElementK o) => o -> T.Text -> m () +setDOMHTMLTableCaptionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLTableCaptionElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCaptionElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLTableCaptionElementAlignPropertyInfo +instance AttrInfo DOMHTMLTableCaptionElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableCaptionElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCaptionElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCaptionElementAlignPropertyInfo = DOMHTMLTableCaptionElementK + type AttrGetType DOMHTMLTableCaptionElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCaptionElementAlignPropertyInfo = "DOMHTMLTableCaptionElement::align" + attrGet _ = getDOMHTMLTableCaptionElementAlign + attrSet _ = setDOMHTMLTableCaptionElementAlign + attrConstruct _ = constructDOMHTMLTableCaptionElementAlign + +type instance AttributeList DOMHTMLTableCaptionElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableCaptionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "abbr" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementAbbr :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementAbbr obj = liftIO $ getObjectPropertyString obj "abbr" + +setDOMHTMLTableCellElementAbbr :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementAbbr obj val = liftIO $ setObjectPropertyString obj "abbr" val + +constructDOMHTMLTableCellElementAbbr :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementAbbr val = constructObjectPropertyString "abbr" val + +data DOMHTMLTableCellElementAbbrPropertyInfo +instance AttrInfo DOMHTMLTableCellElementAbbrPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementAbbrPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementAbbrPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementAbbrPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementAbbrPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementAbbrPropertyInfo = "DOMHTMLTableCellElement::abbr" + attrGet _ = getDOMHTMLTableCellElementAbbr + attrSet _ = setDOMHTMLTableCellElementAbbr + attrConstruct _ = constructDOMHTMLTableCellElementAbbr + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLTableCellElementAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLTableCellElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLTableCellElementAlignPropertyInfo +instance AttrInfo DOMHTMLTableCellElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementAlignPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementAlignPropertyInfo = "DOMHTMLTableCellElement::align" + attrGet _ = getDOMHTMLTableCellElementAlign + attrSet _ = setDOMHTMLTableCellElementAlign + attrConstruct _ = constructDOMHTMLTableCellElementAlign + +-- VVV Prop "axis" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementAxis :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementAxis obj = liftIO $ getObjectPropertyString obj "axis" + +setDOMHTMLTableCellElementAxis :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementAxis obj val = liftIO $ setObjectPropertyString obj "axis" val + +constructDOMHTMLTableCellElementAxis :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementAxis val = constructObjectPropertyString "axis" val + +data DOMHTMLTableCellElementAxisPropertyInfo +instance AttrInfo DOMHTMLTableCellElementAxisPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementAxisPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementAxisPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementAxisPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementAxisPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementAxisPropertyInfo = "DOMHTMLTableCellElement::axis" + attrGet _ = getDOMHTMLTableCellElementAxis + attrSet _ = setDOMHTMLTableCellElementAxis + attrConstruct _ = constructDOMHTMLTableCellElementAxis + +-- VVV Prop "bg-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementBgColor :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" + +setDOMHTMLTableCellElementBgColor :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val + +constructDOMHTMLTableCellElementBgColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementBgColor val = constructObjectPropertyString "bg-color" val + +data DOMHTMLTableCellElementBgColorPropertyInfo +instance AttrInfo DOMHTMLTableCellElementBgColorPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementBgColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementBgColorPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementBgColorPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementBgColorPropertyInfo = "DOMHTMLTableCellElement::bg-color" + attrGet _ = getDOMHTMLTableCellElementBgColor + attrSet _ = setDOMHTMLTableCellElementBgColor + attrConstruct _ = constructDOMHTMLTableCellElementBgColor + +-- VVV Prop "cell-index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLTableCellElementCellIndex :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64 +getDOMHTMLTableCellElementCellIndex obj = liftIO $ getObjectPropertyInt64 obj "cell-index" + +data DOMHTMLTableCellElementCellIndexPropertyInfo +instance AttrInfo DOMHTMLTableCellElementCellIndexPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementCellIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementCellIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableCellElementCellIndexPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementCellIndexPropertyInfo = Int64 + type AttrLabel DOMHTMLTableCellElementCellIndexPropertyInfo = "DOMHTMLTableCellElement::cell-index" + attrGet _ = getDOMHTMLTableCellElementCellIndex + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ch" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementCh :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementCh obj = liftIO $ getObjectPropertyString obj "ch" + +setDOMHTMLTableCellElementCh :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val + +constructDOMHTMLTableCellElementCh :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementCh val = constructObjectPropertyString "ch" val + +data DOMHTMLTableCellElementChPropertyInfo +instance AttrInfo DOMHTMLTableCellElementChPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementChPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementChPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementChPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementChPropertyInfo = "DOMHTMLTableCellElement::ch" + attrGet _ = getDOMHTMLTableCellElementCh + attrSet _ = setDOMHTMLTableCellElementCh + attrConstruct _ = constructDOMHTMLTableCellElementCh + +-- VVV Prop "ch-off" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementChOff :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" + +setDOMHTMLTableCellElementChOff :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val + +constructDOMHTMLTableCellElementChOff :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementChOff val = constructObjectPropertyString "ch-off" val + +data DOMHTMLTableCellElementChOffPropertyInfo +instance AttrInfo DOMHTMLTableCellElementChOffPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementChOffPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementChOffPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementChOffPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementChOffPropertyInfo = "DOMHTMLTableCellElement::ch-off" + attrGet _ = getDOMHTMLTableCellElementChOff + attrSet _ = setDOMHTMLTableCellElementChOff + attrConstruct _ = constructDOMHTMLTableCellElementChOff + +-- VVV Prop "col-span" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementColSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64 +getDOMHTMLTableCellElementColSpan obj = liftIO $ getObjectPropertyInt64 obj "col-span" + +setDOMHTMLTableCellElementColSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> Int64 -> m () +setDOMHTMLTableCellElementColSpan obj val = liftIO $ setObjectPropertyInt64 obj "col-span" val + +constructDOMHTMLTableCellElementColSpan :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTableCellElementColSpan val = constructObjectPropertyInt64 "col-span" val + +data DOMHTMLTableCellElementColSpanPropertyInfo +instance AttrInfo DOMHTMLTableCellElementColSpanPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementColSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementColSpanPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTableCellElementColSpanPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementColSpanPropertyInfo = Int64 + type AttrLabel DOMHTMLTableCellElementColSpanPropertyInfo = "DOMHTMLTableCellElement::col-span" + attrGet _ = getDOMHTMLTableCellElementColSpan + attrSet _ = setDOMHTMLTableCellElementColSpan + attrConstruct _ = constructDOMHTMLTableCellElementColSpan + +-- VVV Prop "headers" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementHeaders :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementHeaders obj = liftIO $ getObjectPropertyString obj "headers" + +setDOMHTMLTableCellElementHeaders :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementHeaders obj val = liftIO $ setObjectPropertyString obj "headers" val + +constructDOMHTMLTableCellElementHeaders :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementHeaders val = constructObjectPropertyString "headers" val + +data DOMHTMLTableCellElementHeadersPropertyInfo +instance AttrInfo DOMHTMLTableCellElementHeadersPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementHeadersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementHeadersPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementHeadersPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementHeadersPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementHeadersPropertyInfo = "DOMHTMLTableCellElement::headers" + attrGet _ = getDOMHTMLTableCellElementHeaders + attrSet _ = setDOMHTMLTableCellElementHeaders + attrConstruct _ = constructDOMHTMLTableCellElementHeaders + +-- VVV Prop "height" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementHeight :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementHeight obj = liftIO $ getObjectPropertyString obj "height" + +setDOMHTMLTableCellElementHeight :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementHeight obj val = liftIO $ setObjectPropertyString obj "height" val + +constructDOMHTMLTableCellElementHeight :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementHeight val = constructObjectPropertyString "height" val + +data DOMHTMLTableCellElementHeightPropertyInfo +instance AttrInfo DOMHTMLTableCellElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementHeightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementHeightPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementHeightPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementHeightPropertyInfo = "DOMHTMLTableCellElement::height" + attrGet _ = getDOMHTMLTableCellElementHeight + attrSet _ = setDOMHTMLTableCellElementHeight + attrConstruct _ = constructDOMHTMLTableCellElementHeight + +-- VVV Prop "no-wrap" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementNoWrap :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Bool +getDOMHTMLTableCellElementNoWrap obj = liftIO $ getObjectPropertyBool obj "no-wrap" + +setDOMHTMLTableCellElementNoWrap :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> Bool -> m () +setDOMHTMLTableCellElementNoWrap obj val = liftIO $ setObjectPropertyBool obj "no-wrap" val + +constructDOMHTMLTableCellElementNoWrap :: Bool -> IO ([Char], GValue) +constructDOMHTMLTableCellElementNoWrap val = constructObjectPropertyBool "no-wrap" val + +data DOMHTMLTableCellElementNoWrapPropertyInfo +instance AttrInfo DOMHTMLTableCellElementNoWrapPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementNoWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementNoWrapPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLTableCellElementNoWrapPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementNoWrapPropertyInfo = Bool + type AttrLabel DOMHTMLTableCellElementNoWrapPropertyInfo = "DOMHTMLTableCellElement::no-wrap" + attrGet _ = getDOMHTMLTableCellElementNoWrap + attrSet _ = setDOMHTMLTableCellElementNoWrap + attrConstruct _ = constructDOMHTMLTableCellElementNoWrap + +-- VVV Prop "row-span" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementRowSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m Int64 +getDOMHTMLTableCellElementRowSpan obj = liftIO $ getObjectPropertyInt64 obj "row-span" + +setDOMHTMLTableCellElementRowSpan :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> Int64 -> m () +setDOMHTMLTableCellElementRowSpan obj val = liftIO $ setObjectPropertyInt64 obj "row-span" val + +constructDOMHTMLTableCellElementRowSpan :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTableCellElementRowSpan val = constructObjectPropertyInt64 "row-span" val + +data DOMHTMLTableCellElementRowSpanPropertyInfo +instance AttrInfo DOMHTMLTableCellElementRowSpanPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementRowSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementRowSpanPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTableCellElementRowSpanPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementRowSpanPropertyInfo = Int64 + type AttrLabel DOMHTMLTableCellElementRowSpanPropertyInfo = "DOMHTMLTableCellElement::row-span" + attrGet _ = getDOMHTMLTableCellElementRowSpan + attrSet _ = setDOMHTMLTableCellElementRowSpan + attrConstruct _ = constructDOMHTMLTableCellElementRowSpan + +-- VVV Prop "scope" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementScope :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementScope obj = liftIO $ getObjectPropertyString obj "scope" + +setDOMHTMLTableCellElementScope :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementScope obj val = liftIO $ setObjectPropertyString obj "scope" val + +constructDOMHTMLTableCellElementScope :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementScope val = constructObjectPropertyString "scope" val + +data DOMHTMLTableCellElementScopePropertyInfo +instance AttrInfo DOMHTMLTableCellElementScopePropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementScopePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementScopePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementScopePropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementScopePropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementScopePropertyInfo = "DOMHTMLTableCellElement::scope" + attrGet _ = getDOMHTMLTableCellElementScope + attrSet _ = setDOMHTMLTableCellElementScope + attrConstruct _ = constructDOMHTMLTableCellElementScope + +-- VVV Prop "v-align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementVAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" + +setDOMHTMLTableCellElementVAlign :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val + +constructDOMHTMLTableCellElementVAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementVAlign val = constructObjectPropertyString "v-align" val + +data DOMHTMLTableCellElementVAlignPropertyInfo +instance AttrInfo DOMHTMLTableCellElementVAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementVAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementVAlignPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementVAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementVAlignPropertyInfo = "DOMHTMLTableCellElement::v-align" + attrGet _ = getDOMHTMLTableCellElementVAlign + attrSet _ = setDOMHTMLTableCellElementVAlign + attrConstruct _ = constructDOMHTMLTableCellElementVAlign + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableCellElementWidth :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> m T.Text +getDOMHTMLTableCellElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLTableCellElementWidth :: (MonadIO m, DOMHTMLTableCellElementK o) => o -> T.Text -> m () +setDOMHTMLTableCellElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLTableCellElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableCellElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLTableCellElementWidthPropertyInfo +instance AttrInfo DOMHTMLTableCellElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLTableCellElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableCellElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableCellElementWidthPropertyInfo = DOMHTMLTableCellElementK + type AttrGetType DOMHTMLTableCellElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLTableCellElementWidthPropertyInfo = "DOMHTMLTableCellElement::width" + attrGet _ = getDOMHTMLTableCellElementWidth + attrSet _ = setDOMHTMLTableCellElementWidth + attrConstruct _ = constructDOMHTMLTableCellElementWidth + +type instance AttributeList DOMHTMLTableCellElement = '[ '("abbr", DOMHTMLTableCellElementAbbrPropertyInfo), '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableCellElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("axis", DOMHTMLTableCellElementAxisPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLTableCellElementBgColorPropertyInfo), '("cell-index", DOMHTMLTableCellElementCellIndexPropertyInfo), '("ch", DOMHTMLTableCellElementChPropertyInfo), '("ch-off", DOMHTMLTableCellElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("col-span", DOMHTMLTableCellElementColSpanPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("headers", DOMHTMLTableCellElementHeadersPropertyInfo), '("height", DOMHTMLTableCellElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("no-wrap", DOMHTMLTableCellElementNoWrapPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("row-span", DOMHTMLTableCellElementRowSpanPropertyInfo), '("scope", DOMHTMLTableCellElementScopePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableCellElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableCellElementWidthPropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableColElementAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLTableColElementAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () +setDOMHTMLTableColElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLTableColElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableColElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLTableColElementAlignPropertyInfo +instance AttrInfo DOMHTMLTableColElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableColElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableColElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableColElementAlignPropertyInfo = DOMHTMLTableColElementK + type AttrGetType DOMHTMLTableColElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableColElementAlignPropertyInfo = "DOMHTMLTableColElement::align" + attrGet _ = getDOMHTMLTableColElementAlign + attrSet _ = setDOMHTMLTableColElementAlign + attrConstruct _ = constructDOMHTMLTableColElementAlign + +-- VVV Prop "ch" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableColElementCh :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementCh obj = liftIO $ getObjectPropertyString obj "ch" + +setDOMHTMLTableColElementCh :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () +setDOMHTMLTableColElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val + +constructDOMHTMLTableColElementCh :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableColElementCh val = constructObjectPropertyString "ch" val + +data DOMHTMLTableColElementChPropertyInfo +instance AttrInfo DOMHTMLTableColElementChPropertyInfo where + type AttrAllowedOps DOMHTMLTableColElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableColElementChPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableColElementChPropertyInfo = DOMHTMLTableColElementK + type AttrGetType DOMHTMLTableColElementChPropertyInfo = T.Text + type AttrLabel DOMHTMLTableColElementChPropertyInfo = "DOMHTMLTableColElement::ch" + attrGet _ = getDOMHTMLTableColElementCh + attrSet _ = setDOMHTMLTableColElementCh + attrConstruct _ = constructDOMHTMLTableColElementCh + +-- VVV Prop "ch-off" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableColElementChOff :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" + +setDOMHTMLTableColElementChOff :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () +setDOMHTMLTableColElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val + +constructDOMHTMLTableColElementChOff :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableColElementChOff val = constructObjectPropertyString "ch-off" val + +data DOMHTMLTableColElementChOffPropertyInfo +instance AttrInfo DOMHTMLTableColElementChOffPropertyInfo where + type AttrAllowedOps DOMHTMLTableColElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableColElementChOffPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableColElementChOffPropertyInfo = DOMHTMLTableColElementK + type AttrGetType DOMHTMLTableColElementChOffPropertyInfo = T.Text + type AttrLabel DOMHTMLTableColElementChOffPropertyInfo = "DOMHTMLTableColElement::ch-off" + attrGet _ = getDOMHTMLTableColElementChOff + attrSet _ = setDOMHTMLTableColElementChOff + attrConstruct _ = constructDOMHTMLTableColElementChOff + +-- VVV Prop "span" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableColElementSpan :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m Int64 +getDOMHTMLTableColElementSpan obj = liftIO $ getObjectPropertyInt64 obj "span" + +setDOMHTMLTableColElementSpan :: (MonadIO m, DOMHTMLTableColElementK o) => o -> Int64 -> m () +setDOMHTMLTableColElementSpan obj val = liftIO $ setObjectPropertyInt64 obj "span" val + +constructDOMHTMLTableColElementSpan :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTableColElementSpan val = constructObjectPropertyInt64 "span" val + +data DOMHTMLTableColElementSpanPropertyInfo +instance AttrInfo DOMHTMLTableColElementSpanPropertyInfo where + type AttrAllowedOps DOMHTMLTableColElementSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableColElementSpanPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTableColElementSpanPropertyInfo = DOMHTMLTableColElementK + type AttrGetType DOMHTMLTableColElementSpanPropertyInfo = Int64 + type AttrLabel DOMHTMLTableColElementSpanPropertyInfo = "DOMHTMLTableColElement::span" + attrGet _ = getDOMHTMLTableColElementSpan + attrSet _ = setDOMHTMLTableColElementSpan + attrConstruct _ = constructDOMHTMLTableColElementSpan + +-- VVV Prop "v-align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableColElementVAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" + +setDOMHTMLTableColElementVAlign :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () +setDOMHTMLTableColElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val + +constructDOMHTMLTableColElementVAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableColElementVAlign val = constructObjectPropertyString "v-align" val + +data DOMHTMLTableColElementVAlignPropertyInfo +instance AttrInfo DOMHTMLTableColElementVAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableColElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableColElementVAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableColElementVAlignPropertyInfo = DOMHTMLTableColElementK + type AttrGetType DOMHTMLTableColElementVAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableColElementVAlignPropertyInfo = "DOMHTMLTableColElement::v-align" + attrGet _ = getDOMHTMLTableColElementVAlign + attrSet _ = setDOMHTMLTableColElementVAlign + attrConstruct _ = constructDOMHTMLTableColElementVAlign + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableColElementWidth :: (MonadIO m, DOMHTMLTableColElementK o) => o -> m T.Text +getDOMHTMLTableColElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLTableColElementWidth :: (MonadIO m, DOMHTMLTableColElementK o) => o -> T.Text -> m () +setDOMHTMLTableColElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLTableColElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableColElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLTableColElementWidthPropertyInfo +instance AttrInfo DOMHTMLTableColElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLTableColElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableColElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableColElementWidthPropertyInfo = DOMHTMLTableColElementK + type AttrGetType DOMHTMLTableColElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLTableColElementWidthPropertyInfo = "DOMHTMLTableColElement::width" + attrGet _ = getDOMHTMLTableColElementWidth + attrSet _ = setDOMHTMLTableColElementWidth + attrConstruct _ = constructDOMHTMLTableColElementWidth + +type instance AttributeList DOMHTMLTableColElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableColElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableColElementChPropertyInfo), '("ch-off", DOMHTMLTableColElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("span", DOMHTMLTableColElementSpanPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableColElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableColElementWidthPropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementAlign :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLTableElementAlign :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLTableElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLTableElementAlignPropertyInfo +instance AttrInfo DOMHTMLTableElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementAlignPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementAlignPropertyInfo = "DOMHTMLTableElement::align" + attrGet _ = getDOMHTMLTableElementAlign + attrSet _ = setDOMHTMLTableElementAlign + attrConstruct _ = constructDOMHTMLTableElementAlign + +-- VVV Prop "bg-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementBgColor :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" + +setDOMHTMLTableElementBgColor :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val + +constructDOMHTMLTableElementBgColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementBgColor val = constructObjectPropertyString "bg-color" val + +data DOMHTMLTableElementBgColorPropertyInfo +instance AttrInfo DOMHTMLTableElementBgColorPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementBgColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementBgColorPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementBgColorPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementBgColorPropertyInfo = "DOMHTMLTableElement::bg-color" + attrGet _ = getDOMHTMLTableElementBgColor + attrSet _ = setDOMHTMLTableElementBgColor + attrConstruct _ = constructDOMHTMLTableElementBgColor + +-- VVV Prop "border" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementBorder :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementBorder obj = liftIO $ getObjectPropertyString obj "border" + +setDOMHTMLTableElementBorder :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementBorder obj val = liftIO $ setObjectPropertyString obj "border" val + +constructDOMHTMLTableElementBorder :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementBorder val = constructObjectPropertyString "border" val + +data DOMHTMLTableElementBorderPropertyInfo +instance AttrInfo DOMHTMLTableElementBorderPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementBorderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementBorderPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementBorderPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementBorderPropertyInfo = "DOMHTMLTableElement::border" + attrGet _ = getDOMHTMLTableElementBorder + attrSet _ = setDOMHTMLTableElementBorder + attrConstruct _ = constructDOMHTMLTableElementBorder + +-- VVV Prop "caption" + -- Type: TInterface "WebKit" "DOMHTMLTableCaptionElement" + -- Flags: [PropertyReadable] + +getDOMHTMLTableElementCaption :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableCaptionElement +getDOMHTMLTableElementCaption obj = liftIO $ getObjectPropertyObject obj "caption" DOMHTMLTableCaptionElement + +data DOMHTMLTableElementCaptionPropertyInfo +instance AttrInfo DOMHTMLTableElementCaptionPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementCaptionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementCaptionPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableElementCaptionPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementCaptionPropertyInfo = DOMHTMLTableCaptionElement + type AttrLabel DOMHTMLTableElementCaptionPropertyInfo = "DOMHTMLTableElement::caption" + attrGet _ = getDOMHTMLTableElementCaption + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "cell-padding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementCellPadding :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementCellPadding obj = liftIO $ getObjectPropertyString obj "cell-padding" + +setDOMHTMLTableElementCellPadding :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementCellPadding obj val = liftIO $ setObjectPropertyString obj "cell-padding" val + +constructDOMHTMLTableElementCellPadding :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementCellPadding val = constructObjectPropertyString "cell-padding" val + +data DOMHTMLTableElementCellPaddingPropertyInfo +instance AttrInfo DOMHTMLTableElementCellPaddingPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementCellPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementCellPaddingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementCellPaddingPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementCellPaddingPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementCellPaddingPropertyInfo = "DOMHTMLTableElement::cell-padding" + attrGet _ = getDOMHTMLTableElementCellPadding + attrSet _ = setDOMHTMLTableElementCellPadding + attrConstruct _ = constructDOMHTMLTableElementCellPadding + +-- VVV Prop "cell-spacing" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementCellSpacing :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementCellSpacing obj = liftIO $ getObjectPropertyString obj "cell-spacing" + +setDOMHTMLTableElementCellSpacing :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementCellSpacing obj val = liftIO $ setObjectPropertyString obj "cell-spacing" val + +constructDOMHTMLTableElementCellSpacing :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementCellSpacing val = constructObjectPropertyString "cell-spacing" val + +data DOMHTMLTableElementCellSpacingPropertyInfo +instance AttrInfo DOMHTMLTableElementCellSpacingPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementCellSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementCellSpacingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementCellSpacingPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementCellSpacingPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementCellSpacingPropertyInfo = "DOMHTMLTableElement::cell-spacing" + attrGet _ = getDOMHTMLTableElementCellSpacing + attrSet _ = setDOMHTMLTableElementCellSpacing + attrConstruct _ = constructDOMHTMLTableElementCellSpacing + +-- VVV Prop "frame" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementFrame obj = liftIO $ getObjectPropertyString obj "frame" + +setDOMHTMLTableElementFrame :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementFrame obj val = liftIO $ setObjectPropertyString obj "frame" val + +constructDOMHTMLTableElementFrame :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementFrame val = constructObjectPropertyString "frame" val + +data DOMHTMLTableElementFramePropertyInfo +instance AttrInfo DOMHTMLTableElementFramePropertyInfo where + type AttrAllowedOps DOMHTMLTableElementFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementFramePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementFramePropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementFramePropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementFramePropertyInfo = "DOMHTMLTableElement::frame" + attrGet _ = getDOMHTMLTableElementFrame + attrSet _ = setDOMHTMLTableElementFrame + attrConstruct _ = constructDOMHTMLTableElementFrame + +-- VVV Prop "rows" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLTableElementRows :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLCollection +getDOMHTMLTableElementRows obj = liftIO $ getObjectPropertyObject obj "rows" DOMHTMLCollection + +data DOMHTMLTableElementRowsPropertyInfo +instance AttrInfo DOMHTMLTableElementRowsPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementRowsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementRowsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableElementRowsPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementRowsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLTableElementRowsPropertyInfo = "DOMHTMLTableElement::rows" + attrGet _ = getDOMHTMLTableElementRows + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "rules" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementRules :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementRules obj = liftIO $ getObjectPropertyString obj "rules" + +setDOMHTMLTableElementRules :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementRules obj val = liftIO $ setObjectPropertyString obj "rules" val + +constructDOMHTMLTableElementRules :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementRules val = constructObjectPropertyString "rules" val + +data DOMHTMLTableElementRulesPropertyInfo +instance AttrInfo DOMHTMLTableElementRulesPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementRulesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementRulesPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementRulesPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementRulesPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementRulesPropertyInfo = "DOMHTMLTableElement::rules" + attrGet _ = getDOMHTMLTableElementRules + attrSet _ = setDOMHTMLTableElementRules + attrConstruct _ = constructDOMHTMLTableElementRules + +-- VVV Prop "summary" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementSummary :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementSummary obj = liftIO $ getObjectPropertyString obj "summary" + +setDOMHTMLTableElementSummary :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementSummary obj val = liftIO $ setObjectPropertyString obj "summary" val + +constructDOMHTMLTableElementSummary :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementSummary val = constructObjectPropertyString "summary" val + +data DOMHTMLTableElementSummaryPropertyInfo +instance AttrInfo DOMHTMLTableElementSummaryPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementSummaryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementSummaryPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementSummaryPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementSummaryPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementSummaryPropertyInfo = "DOMHTMLTableElement::summary" + attrGet _ = getDOMHTMLTableElementSummary + attrSet _ = setDOMHTMLTableElementSummary + attrConstruct _ = constructDOMHTMLTableElementSummary + +-- VVV Prop "t-bodies" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLTableElementTBodies :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLCollection +getDOMHTMLTableElementTBodies obj = liftIO $ getObjectPropertyObject obj "t-bodies" DOMHTMLCollection + +data DOMHTMLTableElementTBodiesPropertyInfo +instance AttrInfo DOMHTMLTableElementTBodiesPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementTBodiesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementTBodiesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableElementTBodiesPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementTBodiesPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLTableElementTBodiesPropertyInfo = "DOMHTMLTableElement::t-bodies" + attrGet _ = getDOMHTMLTableElementTBodies + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "t-foot" + -- Type: TInterface "WebKit" "DOMHTMLTableSectionElement" + -- Flags: [PropertyReadable] + +getDOMHTMLTableElementTFoot :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableSectionElement +getDOMHTMLTableElementTFoot obj = liftIO $ getObjectPropertyObject obj "t-foot" DOMHTMLTableSectionElement + +data DOMHTMLTableElementTFootPropertyInfo +instance AttrInfo DOMHTMLTableElementTFootPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementTFootPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementTFootPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableElementTFootPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementTFootPropertyInfo = DOMHTMLTableSectionElement + type AttrLabel DOMHTMLTableElementTFootPropertyInfo = "DOMHTMLTableElement::t-foot" + attrGet _ = getDOMHTMLTableElementTFoot + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "t-head" + -- Type: TInterface "WebKit" "DOMHTMLTableSectionElement" + -- Flags: [PropertyReadable] + +getDOMHTMLTableElementTHead :: (MonadIO m, DOMHTMLTableElementK o) => o -> m DOMHTMLTableSectionElement +getDOMHTMLTableElementTHead obj = liftIO $ getObjectPropertyObject obj "t-head" DOMHTMLTableSectionElement + +data DOMHTMLTableElementTHeadPropertyInfo +instance AttrInfo DOMHTMLTableElementTHeadPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementTHeadPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementTHeadPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableElementTHeadPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementTHeadPropertyInfo = DOMHTMLTableSectionElement + type AttrLabel DOMHTMLTableElementTHeadPropertyInfo = "DOMHTMLTableElement::t-head" + attrGet _ = getDOMHTMLTableElementTHead + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "width" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableElementWidth :: (MonadIO m, DOMHTMLTableElementK o) => o -> m T.Text +getDOMHTMLTableElementWidth obj = liftIO $ getObjectPropertyString obj "width" + +setDOMHTMLTableElementWidth :: (MonadIO m, DOMHTMLTableElementK o) => o -> T.Text -> m () +setDOMHTMLTableElementWidth obj val = liftIO $ setObjectPropertyString obj "width" val + +constructDOMHTMLTableElementWidth :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableElementWidth val = constructObjectPropertyString "width" val + +data DOMHTMLTableElementWidthPropertyInfo +instance AttrInfo DOMHTMLTableElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLTableElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableElementWidthPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableElementWidthPropertyInfo = DOMHTMLTableElementK + type AttrGetType DOMHTMLTableElementWidthPropertyInfo = T.Text + type AttrLabel DOMHTMLTableElementWidthPropertyInfo = "DOMHTMLTableElement::width" + attrGet _ = getDOMHTMLTableElementWidth + attrSet _ = setDOMHTMLTableElementWidth + attrConstruct _ = constructDOMHTMLTableElementWidth + +type instance AttributeList DOMHTMLTableElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLTableElementBgColorPropertyInfo), '("border", DOMHTMLTableElementBorderPropertyInfo), '("caption", DOMHTMLTableElementCaptionPropertyInfo), '("cell-padding", DOMHTMLTableElementCellPaddingPropertyInfo), '("cell-spacing", DOMHTMLTableElementCellSpacingPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("frame", DOMHTMLTableElementFramePropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLTableElementRowsPropertyInfo), '("rules", DOMHTMLTableElementRulesPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("summary", DOMHTMLTableElementSummaryPropertyInfo), '("t-bodies", DOMHTMLTableElementTBodiesPropertyInfo), '("t-foot", DOMHTMLTableElementTFootPropertyInfo), '("t-head", DOMHTMLTableElementTHeadPropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLTableElementWidthPropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableRowElementAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLTableRowElementAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () +setDOMHTMLTableRowElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLTableRowElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableRowElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLTableRowElementAlignPropertyInfo +instance AttrInfo DOMHTMLTableRowElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableRowElementAlignPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableRowElementAlignPropertyInfo = "DOMHTMLTableRowElement::align" + attrGet _ = getDOMHTMLTableRowElementAlign + attrSet _ = setDOMHTMLTableRowElementAlign + attrConstruct _ = constructDOMHTMLTableRowElementAlign + +-- VVV Prop "bg-color" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableRowElementBgColor :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementBgColor obj = liftIO $ getObjectPropertyString obj "bg-color" + +setDOMHTMLTableRowElementBgColor :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () +setDOMHTMLTableRowElementBgColor obj val = liftIO $ setObjectPropertyString obj "bg-color" val + +constructDOMHTMLTableRowElementBgColor :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableRowElementBgColor val = constructObjectPropertyString "bg-color" val + +data DOMHTMLTableRowElementBgColorPropertyInfo +instance AttrInfo DOMHTMLTableRowElementBgColorPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementBgColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementBgColorPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableRowElementBgColorPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementBgColorPropertyInfo = T.Text + type AttrLabel DOMHTMLTableRowElementBgColorPropertyInfo = "DOMHTMLTableRowElement::bg-color" + attrGet _ = getDOMHTMLTableRowElementBgColor + attrSet _ = setDOMHTMLTableRowElementBgColor + attrConstruct _ = constructDOMHTMLTableRowElementBgColor + +-- VVV Prop "cells" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLTableRowElementCells :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m DOMHTMLCollection +getDOMHTMLTableRowElementCells obj = liftIO $ getObjectPropertyObject obj "cells" DOMHTMLCollection + +data DOMHTMLTableRowElementCellsPropertyInfo +instance AttrInfo DOMHTMLTableRowElementCellsPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementCellsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementCellsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableRowElementCellsPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementCellsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLTableRowElementCellsPropertyInfo = "DOMHTMLTableRowElement::cells" + attrGet _ = getDOMHTMLTableRowElementCells + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ch" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableRowElementCh :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementCh obj = liftIO $ getObjectPropertyString obj "ch" + +setDOMHTMLTableRowElementCh :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () +setDOMHTMLTableRowElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val + +constructDOMHTMLTableRowElementCh :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableRowElementCh val = constructObjectPropertyString "ch" val + +data DOMHTMLTableRowElementChPropertyInfo +instance AttrInfo DOMHTMLTableRowElementChPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementChPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableRowElementChPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementChPropertyInfo = T.Text + type AttrLabel DOMHTMLTableRowElementChPropertyInfo = "DOMHTMLTableRowElement::ch" + attrGet _ = getDOMHTMLTableRowElementCh + attrSet _ = setDOMHTMLTableRowElementCh + attrConstruct _ = constructDOMHTMLTableRowElementCh + +-- VVV Prop "ch-off" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableRowElementChOff :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" + +setDOMHTMLTableRowElementChOff :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () +setDOMHTMLTableRowElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val + +constructDOMHTMLTableRowElementChOff :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableRowElementChOff val = constructObjectPropertyString "ch-off" val + +data DOMHTMLTableRowElementChOffPropertyInfo +instance AttrInfo DOMHTMLTableRowElementChOffPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementChOffPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableRowElementChOffPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementChOffPropertyInfo = T.Text + type AttrLabel DOMHTMLTableRowElementChOffPropertyInfo = "DOMHTMLTableRowElement::ch-off" + attrGet _ = getDOMHTMLTableRowElementChOff + attrSet _ = setDOMHTMLTableRowElementChOff + attrConstruct _ = constructDOMHTMLTableRowElementChOff + +-- VVV Prop "row-index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLTableRowElementRowIndex :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m Int64 +getDOMHTMLTableRowElementRowIndex obj = liftIO $ getObjectPropertyInt64 obj "row-index" + +data DOMHTMLTableRowElementRowIndexPropertyInfo +instance AttrInfo DOMHTMLTableRowElementRowIndexPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementRowIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementRowIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableRowElementRowIndexPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementRowIndexPropertyInfo = Int64 + type AttrLabel DOMHTMLTableRowElementRowIndexPropertyInfo = "DOMHTMLTableRowElement::row-index" + attrGet _ = getDOMHTMLTableRowElementRowIndex + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "section-row-index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLTableRowElementSectionRowIndex :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m Int64 +getDOMHTMLTableRowElementSectionRowIndex obj = liftIO $ getObjectPropertyInt64 obj "section-row-index" + +data DOMHTMLTableRowElementSectionRowIndexPropertyInfo +instance AttrInfo DOMHTMLTableRowElementSectionRowIndexPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementSectionRowIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementSectionRowIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableRowElementSectionRowIndexPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementSectionRowIndexPropertyInfo = Int64 + type AttrLabel DOMHTMLTableRowElementSectionRowIndexPropertyInfo = "DOMHTMLTableRowElement::section-row-index" + attrGet _ = getDOMHTMLTableRowElementSectionRowIndex + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "v-align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableRowElementVAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> m T.Text +getDOMHTMLTableRowElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" + +setDOMHTMLTableRowElementVAlign :: (MonadIO m, DOMHTMLTableRowElementK o) => o -> T.Text -> m () +setDOMHTMLTableRowElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val + +constructDOMHTMLTableRowElementVAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableRowElementVAlign val = constructObjectPropertyString "v-align" val + +data DOMHTMLTableRowElementVAlignPropertyInfo +instance AttrInfo DOMHTMLTableRowElementVAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableRowElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableRowElementVAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableRowElementVAlignPropertyInfo = DOMHTMLTableRowElementK + type AttrGetType DOMHTMLTableRowElementVAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableRowElementVAlignPropertyInfo = "DOMHTMLTableRowElement::v-align" + attrGet _ = getDOMHTMLTableRowElementVAlign + attrSet _ = setDOMHTMLTableRowElementVAlign + attrConstruct _ = constructDOMHTMLTableRowElementVAlign + +type instance AttributeList DOMHTMLTableRowElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableRowElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("bg-color", DOMHTMLTableRowElementBgColorPropertyInfo), '("cells", DOMHTMLTableRowElementCellsPropertyInfo), '("ch", DOMHTMLTableRowElementChPropertyInfo), '("ch-off", DOMHTMLTableRowElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("row-index", DOMHTMLTableRowElementRowIndexPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("section-row-index", DOMHTMLTableRowElementSectionRowIndexPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableRowElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text +getDOMHTMLTableSectionElementAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMHTMLTableSectionElementAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () +setDOMHTMLTableSectionElementAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMHTMLTableSectionElementAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableSectionElementAlign val = constructObjectPropertyString "align" val + +data DOMHTMLTableSectionElementAlignPropertyInfo +instance AttrInfo DOMHTMLTableSectionElementAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableSectionElementAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableSectionElementAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableSectionElementAlignPropertyInfo = DOMHTMLTableSectionElementK + type AttrGetType DOMHTMLTableSectionElementAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableSectionElementAlignPropertyInfo = "DOMHTMLTableSectionElement::align" + attrGet _ = getDOMHTMLTableSectionElementAlign + attrSet _ = setDOMHTMLTableSectionElementAlign + attrConstruct _ = constructDOMHTMLTableSectionElementAlign + +-- VVV Prop "ch" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text +getDOMHTMLTableSectionElementCh obj = liftIO $ getObjectPropertyString obj "ch" + +setDOMHTMLTableSectionElementCh :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () +setDOMHTMLTableSectionElementCh obj val = liftIO $ setObjectPropertyString obj "ch" val + +constructDOMHTMLTableSectionElementCh :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableSectionElementCh val = constructObjectPropertyString "ch" val + +data DOMHTMLTableSectionElementChPropertyInfo +instance AttrInfo DOMHTMLTableSectionElementChPropertyInfo where + type AttrAllowedOps DOMHTMLTableSectionElementChPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableSectionElementChPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableSectionElementChPropertyInfo = DOMHTMLTableSectionElementK + type AttrGetType DOMHTMLTableSectionElementChPropertyInfo = T.Text + type AttrLabel DOMHTMLTableSectionElementChPropertyInfo = "DOMHTMLTableSectionElement::ch" + attrGet _ = getDOMHTMLTableSectionElementCh + attrSet _ = setDOMHTMLTableSectionElementCh + attrConstruct _ = constructDOMHTMLTableSectionElementCh + +-- VVV Prop "ch-off" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableSectionElementChOff :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text +getDOMHTMLTableSectionElementChOff obj = liftIO $ getObjectPropertyString obj "ch-off" + +setDOMHTMLTableSectionElementChOff :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () +setDOMHTMLTableSectionElementChOff obj val = liftIO $ setObjectPropertyString obj "ch-off" val + +constructDOMHTMLTableSectionElementChOff :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableSectionElementChOff val = constructObjectPropertyString "ch-off" val + +data DOMHTMLTableSectionElementChOffPropertyInfo +instance AttrInfo DOMHTMLTableSectionElementChOffPropertyInfo where + type AttrAllowedOps DOMHTMLTableSectionElementChOffPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableSectionElementChOffPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableSectionElementChOffPropertyInfo = DOMHTMLTableSectionElementK + type AttrGetType DOMHTMLTableSectionElementChOffPropertyInfo = T.Text + type AttrLabel DOMHTMLTableSectionElementChOffPropertyInfo = "DOMHTMLTableSectionElement::ch-off" + attrGet _ = getDOMHTMLTableSectionElementChOff + attrSet _ = setDOMHTMLTableSectionElementChOff + attrConstruct _ = constructDOMHTMLTableSectionElementChOff + +-- VVV Prop "rows" + -- Type: TInterface "WebKit" "DOMHTMLCollection" + -- Flags: [PropertyReadable] + +getDOMHTMLTableSectionElementRows :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m DOMHTMLCollection +getDOMHTMLTableSectionElementRows obj = liftIO $ getObjectPropertyObject obj "rows" DOMHTMLCollection + +data DOMHTMLTableSectionElementRowsPropertyInfo +instance AttrInfo DOMHTMLTableSectionElementRowsPropertyInfo where + type AttrAllowedOps DOMHTMLTableSectionElementRowsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableSectionElementRowsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTableSectionElementRowsPropertyInfo = DOMHTMLTableSectionElementK + type AttrGetType DOMHTMLTableSectionElementRowsPropertyInfo = DOMHTMLCollection + type AttrLabel DOMHTMLTableSectionElementRowsPropertyInfo = "DOMHTMLTableSectionElement::rows" + attrGet _ = getDOMHTMLTableSectionElementRows + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "v-align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTableSectionElementVAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> m T.Text +getDOMHTMLTableSectionElementVAlign obj = liftIO $ getObjectPropertyString obj "v-align" + +setDOMHTMLTableSectionElementVAlign :: (MonadIO m, DOMHTMLTableSectionElementK o) => o -> T.Text -> m () +setDOMHTMLTableSectionElementVAlign obj val = liftIO $ setObjectPropertyString obj "v-align" val + +constructDOMHTMLTableSectionElementVAlign :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTableSectionElementVAlign val = constructObjectPropertyString "v-align" val + +data DOMHTMLTableSectionElementVAlignPropertyInfo +instance AttrInfo DOMHTMLTableSectionElementVAlignPropertyInfo where + type AttrAllowedOps DOMHTMLTableSectionElementVAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTableSectionElementVAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTableSectionElementVAlignPropertyInfo = DOMHTMLTableSectionElementK + type AttrGetType DOMHTMLTableSectionElementVAlignPropertyInfo = T.Text + type AttrLabel DOMHTMLTableSectionElementVAlignPropertyInfo = "DOMHTMLTableSectionElement::v-align" + attrGet _ = getDOMHTMLTableSectionElementVAlign + attrSet _ = setDOMHTMLTableSectionElementVAlign + attrConstruct _ = constructDOMHTMLTableSectionElementVAlign + +type instance AttributeList DOMHTMLTableSectionElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("align", DOMHTMLTableSectionElementAlignPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("ch", DOMHTMLTableSectionElementChPropertyInfo), '("ch-off", DOMHTMLTableSectionElementChOffPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("rows", DOMHTMLTableSectionElementRowsPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("v-align", DOMHTMLTableSectionElementVAlignPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "autocapitalize" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementAutocapitalize obj = liftIO $ getObjectPropertyString obj "autocapitalize" + +setDOMHTMLTextAreaElementAutocapitalize :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementAutocapitalize obj val = liftIO $ setObjectPropertyString obj "autocapitalize" val + +constructDOMHTMLTextAreaElementAutocapitalize :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementAutocapitalize val = constructObjectPropertyString "autocapitalize" val + +data DOMHTMLTextAreaElementAutocapitalizePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementAutocapitalizePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementAutocapitalizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementAutocapitalizePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutocapitalizePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementAutocapitalizePropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementAutocapitalizePropertyInfo = "DOMHTMLTextAreaElement::autocapitalize" + attrGet _ = getDOMHTMLTextAreaElementAutocapitalize + attrSet _ = setDOMHTMLTextAreaElementAutocapitalize + attrConstruct _ = constructDOMHTMLTextAreaElementAutocapitalize + +-- VVV Prop "autocorrect" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementAutocorrect :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool +getDOMHTMLTextAreaElementAutocorrect obj = liftIO $ getObjectPropertyBool obj "autocorrect" + +setDOMHTMLTextAreaElementAutocorrect :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () +setDOMHTMLTextAreaElementAutocorrect obj val = liftIO $ setObjectPropertyBool obj "autocorrect" val + +constructDOMHTMLTextAreaElementAutocorrect :: Bool -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementAutocorrect val = constructObjectPropertyBool "autocorrect" val + +data DOMHTMLTextAreaElementAutocorrectPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementAutocorrectPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementAutocorrectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementAutocorrectPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutocorrectPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementAutocorrectPropertyInfo = Bool + type AttrLabel DOMHTMLTextAreaElementAutocorrectPropertyInfo = "DOMHTMLTextAreaElement::autocorrect" + attrGet _ = getDOMHTMLTextAreaElementAutocorrect + attrSet _ = setDOMHTMLTextAreaElementAutocorrect + attrConstruct _ = constructDOMHTMLTextAreaElementAutocorrect + +-- VVV Prop "autofocus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementAutofocus :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool +getDOMHTMLTextAreaElementAutofocus obj = liftIO $ getObjectPropertyBool obj "autofocus" + +setDOMHTMLTextAreaElementAutofocus :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () +setDOMHTMLTextAreaElementAutofocus obj val = liftIO $ setObjectPropertyBool obj "autofocus" val + +constructDOMHTMLTextAreaElementAutofocus :: Bool -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementAutofocus val = constructObjectPropertyBool "autofocus" val + +data DOMHTMLTextAreaElementAutofocusPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementAutofocusPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementAutofocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementAutofocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLTextAreaElementAutofocusPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementAutofocusPropertyInfo = Bool + type AttrLabel DOMHTMLTextAreaElementAutofocusPropertyInfo = "DOMHTMLTextAreaElement::autofocus" + attrGet _ = getDOMHTMLTextAreaElementAutofocus + attrSet _ = setDOMHTMLTextAreaElementAutofocus + attrConstruct _ = constructDOMHTMLTextAreaElementAutofocus + +-- VVV Prop "cols" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementCols :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 +getDOMHTMLTextAreaElementCols obj = liftIO $ getObjectPropertyInt64 obj "cols" + +setDOMHTMLTextAreaElementCols :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () +setDOMHTMLTextAreaElementCols obj val = liftIO $ setObjectPropertyInt64 obj "cols" val + +constructDOMHTMLTextAreaElementCols :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementCols val = constructObjectPropertyInt64 "cols" val + +data DOMHTMLTextAreaElementColsPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementColsPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementColsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementColsPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTextAreaElementColsPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementColsPropertyInfo = Int64 + type AttrLabel DOMHTMLTextAreaElementColsPropertyInfo = "DOMHTMLTextAreaElement::cols" + attrGet _ = getDOMHTMLTextAreaElementCols + attrSet _ = setDOMHTMLTextAreaElementCols + attrConstruct _ = constructDOMHTMLTextAreaElementCols + +-- VVV Prop "default-value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementDefaultValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementDefaultValue obj = liftIO $ getObjectPropertyString obj "default-value" + +setDOMHTMLTextAreaElementDefaultValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementDefaultValue obj val = liftIO $ setObjectPropertyString obj "default-value" val + +constructDOMHTMLTextAreaElementDefaultValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementDefaultValue val = constructObjectPropertyString "default-value" val + +data DOMHTMLTextAreaElementDefaultValuePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementDefaultValuePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementDefaultValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementDefaultValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementDefaultValuePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementDefaultValuePropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementDefaultValuePropertyInfo = "DOMHTMLTextAreaElement::default-value" + attrGet _ = getDOMHTMLTextAreaElementDefaultValue + attrSet _ = setDOMHTMLTextAreaElementDefaultValue + attrConstruct _ = constructDOMHTMLTextAreaElementDefaultValue + +-- VVV Prop "dir-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementDirName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementDirName obj = liftIO $ getObjectPropertyString obj "dir-name" + +setDOMHTMLTextAreaElementDirName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementDirName obj val = liftIO $ setObjectPropertyString obj "dir-name" val + +constructDOMHTMLTextAreaElementDirName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementDirName val = constructObjectPropertyString "dir-name" val + +data DOMHTMLTextAreaElementDirNamePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementDirNamePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementDirNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementDirNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementDirNamePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementDirNamePropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementDirNamePropertyInfo = "DOMHTMLTextAreaElement::dir-name" + attrGet _ = getDOMHTMLTextAreaElementDirName + attrSet _ = setDOMHTMLTextAreaElementDirName + attrConstruct _ = constructDOMHTMLTextAreaElementDirName + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementDisabled :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool +getDOMHTMLTextAreaElementDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMHTMLTextAreaElementDisabled :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () +setDOMHTMLTextAreaElementDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMHTMLTextAreaElementDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementDisabled val = constructObjectPropertyBool "disabled" val + +data DOMHTMLTextAreaElementDisabledPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLTextAreaElementDisabledPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLTextAreaElementDisabledPropertyInfo = "DOMHTMLTextAreaElement::disabled" + attrGet _ = getDOMHTMLTextAreaElementDisabled + attrSet _ = setDOMHTMLTextAreaElementDisabled + attrConstruct _ = constructDOMHTMLTextAreaElementDisabled + +-- VVV Prop "form" + -- Type: TInterface "WebKit" "DOMHTMLFormElement" + -- Flags: [PropertyReadable] + +getDOMHTMLTextAreaElementForm :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMHTMLFormElement +getDOMHTMLTextAreaElementForm obj = liftIO $ getObjectPropertyObject obj "form" DOMHTMLFormElement + +data DOMHTMLTextAreaElementFormPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementFormPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementFormPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementFormPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTextAreaElementFormPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementFormPropertyInfo = DOMHTMLFormElement + type AttrLabel DOMHTMLTextAreaElementFormPropertyInfo = "DOMHTMLTextAreaElement::form" + attrGet _ = getDOMHTMLTextAreaElementForm + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "labels" + -- Type: TInterface "WebKit" "DOMNodeList" + -- Flags: [PropertyReadable] + +getDOMHTMLTextAreaElementLabels :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMNodeList +getDOMHTMLTextAreaElementLabels obj = liftIO $ getObjectPropertyObject obj "labels" DOMNodeList + +data DOMHTMLTextAreaElementLabelsPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementLabelsPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementLabelsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementLabelsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTextAreaElementLabelsPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementLabelsPropertyInfo = DOMNodeList + type AttrLabel DOMHTMLTextAreaElementLabelsPropertyInfo = "DOMHTMLTextAreaElement::labels" + attrGet _ = getDOMHTMLTextAreaElementLabels + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "max-length" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 +getDOMHTMLTextAreaElementMaxLength obj = liftIO $ getObjectPropertyInt64 obj "max-length" + +setDOMHTMLTextAreaElementMaxLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () +setDOMHTMLTextAreaElementMaxLength obj val = liftIO $ setObjectPropertyInt64 obj "max-length" val + +constructDOMHTMLTextAreaElementMaxLength :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementMaxLength val = constructObjectPropertyInt64 "max-length" val + +data DOMHTMLTextAreaElementMaxLengthPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementMaxLengthPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementMaxLengthPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTextAreaElementMaxLengthPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementMaxLengthPropertyInfo = Int64 + type AttrLabel DOMHTMLTextAreaElementMaxLengthPropertyInfo = "DOMHTMLTextAreaElement::max-length" + attrGet _ = getDOMHTMLTextAreaElementMaxLength + attrSet _ = setDOMHTMLTextAreaElementMaxLength + attrConstruct _ = constructDOMHTMLTextAreaElementMaxLength + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementName obj = liftIO $ getObjectPropertyString obj "name" + +setDOMHTMLTextAreaElementName :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructDOMHTMLTextAreaElementName :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementName val = constructObjectPropertyString "name" val + +data DOMHTMLTextAreaElementNamePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementNamePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementNamePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementNamePropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementNamePropertyInfo = "DOMHTMLTextAreaElement::name" + attrGet _ = getDOMHTMLTextAreaElementName + attrSet _ = setDOMHTMLTextAreaElementName + attrConstruct _ = constructDOMHTMLTextAreaElementName + +-- VVV Prop "placeholder" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementPlaceholder obj = liftIO $ getObjectPropertyString obj "placeholder" + +setDOMHTMLTextAreaElementPlaceholder :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementPlaceholder obj val = liftIO $ setObjectPropertyString obj "placeholder" val + +constructDOMHTMLTextAreaElementPlaceholder :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementPlaceholder val = constructObjectPropertyString "placeholder" val + +data DOMHTMLTextAreaElementPlaceholderPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementPlaceholderPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementPlaceholderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementPlaceholderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementPlaceholderPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementPlaceholderPropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementPlaceholderPropertyInfo = "DOMHTMLTextAreaElement::placeholder" + attrGet _ = getDOMHTMLTextAreaElementPlaceholder + attrSet _ = setDOMHTMLTextAreaElementPlaceholder + attrConstruct _ = constructDOMHTMLTextAreaElementPlaceholder + +-- VVV Prop "read-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementReadOnly :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool +getDOMHTMLTextAreaElementReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only" + +setDOMHTMLTextAreaElementReadOnly :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () +setDOMHTMLTextAreaElementReadOnly obj val = liftIO $ setObjectPropertyBool obj "read-only" val + +constructDOMHTMLTextAreaElementReadOnly :: Bool -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementReadOnly val = constructObjectPropertyBool "read-only" val + +data DOMHTMLTextAreaElementReadOnlyPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementReadOnlyPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementReadOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementReadOnlyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLTextAreaElementReadOnlyPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementReadOnlyPropertyInfo = Bool + type AttrLabel DOMHTMLTextAreaElementReadOnlyPropertyInfo = "DOMHTMLTextAreaElement::read-only" + attrGet _ = getDOMHTMLTextAreaElementReadOnly + attrSet _ = setDOMHTMLTextAreaElementReadOnly + attrConstruct _ = constructDOMHTMLTextAreaElementReadOnly + +-- VVV Prop "required" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementRequired :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool +getDOMHTMLTextAreaElementRequired obj = liftIO $ getObjectPropertyBool obj "required" + +setDOMHTMLTextAreaElementRequired :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Bool -> m () +setDOMHTMLTextAreaElementRequired obj val = liftIO $ setObjectPropertyBool obj "required" val + +constructDOMHTMLTextAreaElementRequired :: Bool -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementRequired val = constructObjectPropertyBool "required" val + +data DOMHTMLTextAreaElementRequiredPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementRequiredPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementRequiredPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementRequiredPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLTextAreaElementRequiredPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementRequiredPropertyInfo = Bool + type AttrLabel DOMHTMLTextAreaElementRequiredPropertyInfo = "DOMHTMLTextAreaElement::required" + attrGet _ = getDOMHTMLTextAreaElementRequired + attrSet _ = setDOMHTMLTextAreaElementRequired + attrConstruct _ = constructDOMHTMLTextAreaElementRequired + +-- VVV Prop "rows" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementRows :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 +getDOMHTMLTextAreaElementRows obj = liftIO $ getObjectPropertyInt64 obj "rows" + +setDOMHTMLTextAreaElementRows :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () +setDOMHTMLTextAreaElementRows obj val = liftIO $ setObjectPropertyInt64 obj "rows" val + +constructDOMHTMLTextAreaElementRows :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementRows val = constructObjectPropertyInt64 "rows" val + +data DOMHTMLTextAreaElementRowsPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementRowsPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementRowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementRowsPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTextAreaElementRowsPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementRowsPropertyInfo = Int64 + type AttrLabel DOMHTMLTextAreaElementRowsPropertyInfo = "DOMHTMLTextAreaElement::rows" + attrGet _ = getDOMHTMLTextAreaElementRows + attrSet _ = setDOMHTMLTextAreaElementRows + attrConstruct _ = constructDOMHTMLTextAreaElementRows + +-- VVV Prop "selection-direction" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementSelectionDirection :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementSelectionDirection obj = liftIO $ getObjectPropertyString obj "selection-direction" + +setDOMHTMLTextAreaElementSelectionDirection :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementSelectionDirection obj val = liftIO $ setObjectPropertyString obj "selection-direction" val + +constructDOMHTMLTextAreaElementSelectionDirection :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementSelectionDirection val = constructObjectPropertyString "selection-direction" val + +data DOMHTMLTextAreaElementSelectionDirectionPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementSelectionDirectionPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementSelectionDirectionPropertyInfo = "DOMHTMLTextAreaElement::selection-direction" + attrGet _ = getDOMHTMLTextAreaElementSelectionDirection + attrSet _ = setDOMHTMLTextAreaElementSelectionDirection + attrConstruct _ = constructDOMHTMLTextAreaElementSelectionDirection + +-- VVV Prop "selection-end" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 +getDOMHTMLTextAreaElementSelectionEnd obj = liftIO $ getObjectPropertyInt64 obj "selection-end" + +setDOMHTMLTextAreaElementSelectionEnd :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () +setDOMHTMLTextAreaElementSelectionEnd obj val = liftIO $ setObjectPropertyInt64 obj "selection-end" val + +constructDOMHTMLTextAreaElementSelectionEnd :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementSelectionEnd val = constructObjectPropertyInt64 "selection-end" val + +data DOMHTMLTextAreaElementSelectionEndPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementSelectionEndPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementSelectionEndPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionEndPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionEndPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementSelectionEndPropertyInfo = Int64 + type AttrLabel DOMHTMLTextAreaElementSelectionEndPropertyInfo = "DOMHTMLTextAreaElement::selection-end" + attrGet _ = getDOMHTMLTextAreaElementSelectionEnd + attrSet _ = setDOMHTMLTextAreaElementSelectionEnd + attrConstruct _ = constructDOMHTMLTextAreaElementSelectionEnd + +-- VVV Prop "selection-start" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Int64 +getDOMHTMLTextAreaElementSelectionStart obj = liftIO $ getObjectPropertyInt64 obj "selection-start" + +setDOMHTMLTextAreaElementSelectionStart :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> Int64 -> m () +setDOMHTMLTextAreaElementSelectionStart obj val = liftIO $ setObjectPropertyInt64 obj "selection-start" val + +constructDOMHTMLTextAreaElementSelectionStart :: Int64 -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementSelectionStart val = constructObjectPropertyInt64 "selection-start" val + +data DOMHTMLTextAreaElementSelectionStartPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementSelectionStartPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementSelectionStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementSelectionStartPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMHTMLTextAreaElementSelectionStartPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementSelectionStartPropertyInfo = Int64 + type AttrLabel DOMHTMLTextAreaElementSelectionStartPropertyInfo = "DOMHTMLTextAreaElement::selection-start" + attrGet _ = getDOMHTMLTextAreaElementSelectionStart + attrSet _ = setDOMHTMLTextAreaElementSelectionStart + attrConstruct _ = constructDOMHTMLTextAreaElementSelectionStart + +-- VVV Prop "text-length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLTextAreaElementTextLength :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Word64 +getDOMHTMLTextAreaElementTextLength obj = liftIO $ getObjectPropertyUInt64 obj "text-length" + +data DOMHTMLTextAreaElementTextLengthPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementTextLengthPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementTextLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementTextLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTextAreaElementTextLengthPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementTextLengthPropertyInfo = Word64 + type AttrLabel DOMHTMLTextAreaElementTextLengthPropertyInfo = "DOMHTMLTextAreaElement::text-length" + attrGet _ = getDOMHTMLTextAreaElementTextLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLTextAreaElementType :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMHTMLTextAreaElementTypePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTextAreaElementTypePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementTypePropertyInfo = "DOMHTMLTextAreaElement::type" + attrGet _ = getDOMHTMLTextAreaElementType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validation-message" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMHTMLTextAreaElementValidationMessage :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementValidationMessage obj = liftIO $ getObjectPropertyString obj "validation-message" + +data DOMHTMLTextAreaElementValidationMessagePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementValidationMessagePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementValidationMessagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementValidationMessagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTextAreaElementValidationMessagePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementValidationMessagePropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementValidationMessagePropertyInfo = "DOMHTMLTextAreaElement::validation-message" + attrGet _ = getDOMHTMLTextAreaElementValidationMessage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "validity" + -- Type: TInterface "WebKit" "DOMValidityState" + -- Flags: [PropertyReadable] + +getDOMHTMLTextAreaElementValidity :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m DOMValidityState +getDOMHTMLTextAreaElementValidity obj = liftIO $ getObjectPropertyObject obj "validity" DOMValidityState + +data DOMHTMLTextAreaElementValidityPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementValidityPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementValidityPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementValidityPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTextAreaElementValidityPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementValidityPropertyInfo = DOMValidityState + type AttrLabel DOMHTMLTextAreaElementValidityPropertyInfo = "DOMHTMLTextAreaElement::validity" + attrGet _ = getDOMHTMLTextAreaElementValidity + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementValue obj = liftIO $ getObjectPropertyString obj "value" + +setDOMHTMLTextAreaElementValue :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementValue obj val = liftIO $ setObjectPropertyString obj "value" val + +constructDOMHTMLTextAreaElementValue :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementValue val = constructObjectPropertyString "value" val + +data DOMHTMLTextAreaElementValuePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementValuePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementValuePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementValuePropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementValuePropertyInfo = "DOMHTMLTextAreaElement::value" + attrGet _ = getDOMHTMLTextAreaElementValue + attrSet _ = setDOMHTMLTextAreaElementValue + attrConstruct _ = constructDOMHTMLTextAreaElementValue + +-- VVV Prop "will-validate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLTextAreaElementWillValidate :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m Bool +getDOMHTMLTextAreaElementWillValidate obj = liftIO $ getObjectPropertyBool obj "will-validate" + +data DOMHTMLTextAreaElementWillValidatePropertyInfo +instance AttrInfo DOMHTMLTextAreaElementWillValidatePropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementWillValidatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementWillValidatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLTextAreaElementWillValidatePropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementWillValidatePropertyInfo = Bool + type AttrLabel DOMHTMLTextAreaElementWillValidatePropertyInfo = "DOMHTMLTextAreaElement::will-validate" + attrGet _ = getDOMHTMLTextAreaElementWillValidate + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "wrap" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> m T.Text +getDOMHTMLTextAreaElementWrap obj = liftIO $ getObjectPropertyString obj "wrap" + +setDOMHTMLTextAreaElementWrap :: (MonadIO m, DOMHTMLTextAreaElementK o) => o -> T.Text -> m () +setDOMHTMLTextAreaElementWrap obj val = liftIO $ setObjectPropertyString obj "wrap" val + +constructDOMHTMLTextAreaElementWrap :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTextAreaElementWrap val = constructObjectPropertyString "wrap" val + +data DOMHTMLTextAreaElementWrapPropertyInfo +instance AttrInfo DOMHTMLTextAreaElementWrapPropertyInfo where + type AttrAllowedOps DOMHTMLTextAreaElementWrapPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTextAreaElementWrapPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTextAreaElementWrapPropertyInfo = DOMHTMLTextAreaElementK + type AttrGetType DOMHTMLTextAreaElementWrapPropertyInfo = T.Text + type AttrLabel DOMHTMLTextAreaElementWrapPropertyInfo = "DOMHTMLTextAreaElement::wrap" + attrGet _ = getDOMHTMLTextAreaElementWrap + attrSet _ = setDOMHTMLTextAreaElementWrap + attrConstruct _ = constructDOMHTMLTextAreaElementWrap + +type instance AttributeList DOMHTMLTextAreaElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("autocapitalize", DOMHTMLTextAreaElementAutocapitalizePropertyInfo), '("autocorrect", DOMHTMLTextAreaElementAutocorrectPropertyInfo), '("autofocus", DOMHTMLTextAreaElementAutofocusPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("cols", DOMHTMLTextAreaElementColsPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("default-value", DOMHTMLTextAreaElementDefaultValuePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("dir-name", DOMHTMLTextAreaElementDirNamePropertyInfo), '("disabled", DOMHTMLTextAreaElementDisabledPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("form", DOMHTMLTextAreaElementFormPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("labels", DOMHTMLTextAreaElementLabelsPropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("max-length", DOMHTMLTextAreaElementMaxLengthPropertyInfo), '("name", DOMHTMLTextAreaElementNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("placeholder", DOMHTMLTextAreaElementPlaceholderPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("read-only", DOMHTMLTextAreaElementReadOnlyPropertyInfo), '("required", DOMHTMLTextAreaElementRequiredPropertyInfo), '("rows", DOMHTMLTextAreaElementRowsPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("selection-direction", DOMHTMLTextAreaElementSelectionDirectionPropertyInfo), '("selection-end", DOMHTMLTextAreaElementSelectionEndPropertyInfo), '("selection-start", DOMHTMLTextAreaElementSelectionStartPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("text-length", DOMHTMLTextAreaElementTextLengthPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLTextAreaElementTypePropertyInfo), '("validation-message", DOMHTMLTextAreaElementValidationMessagePropertyInfo), '("validity", DOMHTMLTextAreaElementValidityPropertyInfo), '("value", DOMHTMLTextAreaElementValuePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("will-validate", DOMHTMLTextAreaElementWillValidatePropertyInfo), '("wrap", DOMHTMLTextAreaElementWrapPropertyInfo)] + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLTitleElementText :: (MonadIO m, DOMHTMLTitleElementK o) => o -> m T.Text +getDOMHTMLTitleElementText obj = liftIO $ getObjectPropertyString obj "text" + +setDOMHTMLTitleElementText :: (MonadIO m, DOMHTMLTitleElementK o) => o -> T.Text -> m () +setDOMHTMLTitleElementText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructDOMHTMLTitleElementText :: T.Text -> IO ([Char], GValue) +constructDOMHTMLTitleElementText val = constructObjectPropertyString "text" val + +data DOMHTMLTitleElementTextPropertyInfo +instance AttrInfo DOMHTMLTitleElementTextPropertyInfo where + type AttrAllowedOps DOMHTMLTitleElementTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLTitleElementTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLTitleElementTextPropertyInfo = DOMHTMLTitleElementK + type AttrGetType DOMHTMLTitleElementTextPropertyInfo = T.Text + type AttrLabel DOMHTMLTitleElementTextPropertyInfo = "DOMHTMLTitleElement::text" + attrGet _ = getDOMHTMLTitleElementText + attrSet _ = setDOMHTMLTitleElementText + attrConstruct _ = constructDOMHTMLTitleElementText + +type instance AttributeList DOMHTMLTitleElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text", DOMHTMLTitleElementTextPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "compact" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLUListElementCompact :: (MonadIO m, DOMHTMLUListElementK o) => o -> m Bool +getDOMHTMLUListElementCompact obj = liftIO $ getObjectPropertyBool obj "compact" + +setDOMHTMLUListElementCompact :: (MonadIO m, DOMHTMLUListElementK o) => o -> Bool -> m () +setDOMHTMLUListElementCompact obj val = liftIO $ setObjectPropertyBool obj "compact" val + +constructDOMHTMLUListElementCompact :: Bool -> IO ([Char], GValue) +constructDOMHTMLUListElementCompact val = constructObjectPropertyBool "compact" val + +data DOMHTMLUListElementCompactPropertyInfo +instance AttrInfo DOMHTMLUListElementCompactPropertyInfo where + type AttrAllowedOps DOMHTMLUListElementCompactPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLUListElementCompactPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLUListElementCompactPropertyInfo = DOMHTMLUListElementK + type AttrGetType DOMHTMLUListElementCompactPropertyInfo = Bool + type AttrLabel DOMHTMLUListElementCompactPropertyInfo = "DOMHTMLUListElement::compact" + attrGet _ = getDOMHTMLUListElementCompact + attrSet _ = setDOMHTMLUListElementCompact + attrConstruct _ = constructDOMHTMLUListElementCompact + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> m T.Text +getDOMHTMLUListElementType obj = liftIO $ getObjectPropertyString obj "type" + +setDOMHTMLUListElementType :: (MonadIO m, DOMHTMLUListElementK o) => o -> T.Text -> m () +setDOMHTMLUListElementType obj val = liftIO $ setObjectPropertyString obj "type" val + +constructDOMHTMLUListElementType :: T.Text -> IO ([Char], GValue) +constructDOMHTMLUListElementType val = constructObjectPropertyString "type" val + +data DOMHTMLUListElementTypePropertyInfo +instance AttrInfo DOMHTMLUListElementTypePropertyInfo where + type AttrAllowedOps DOMHTMLUListElementTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLUListElementTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLUListElementTypePropertyInfo = DOMHTMLUListElementK + type AttrGetType DOMHTMLUListElementTypePropertyInfo = T.Text + type AttrLabel DOMHTMLUListElementTypePropertyInfo = "DOMHTMLUListElement::type" + attrGet _ = getDOMHTMLUListElementType + attrSet _ = setDOMHTMLUListElementType + attrConstruct _ = constructDOMHTMLUListElementType + +type instance AttributeList DOMHTMLUListElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("compact", DOMHTMLUListElementCompactPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("type", DOMHTMLUListElementTypePropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo)] + +-- VVV Prop "height" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLVideoElementHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 +getDOMHTMLVideoElementHeight obj = liftIO $ getObjectPropertyUInt64 obj "height" + +setDOMHTMLVideoElementHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> Word64 -> m () +setDOMHTMLVideoElementHeight obj val = liftIO $ setObjectPropertyUInt64 obj "height" val + +constructDOMHTMLVideoElementHeight :: Word64 -> IO ([Char], GValue) +constructDOMHTMLVideoElementHeight val = constructObjectPropertyUInt64 "height" val + +data DOMHTMLVideoElementHeightPropertyInfo +instance AttrInfo DOMHTMLVideoElementHeightPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementHeightPropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLVideoElementHeightPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementHeightPropertyInfo = Word64 + type AttrLabel DOMHTMLVideoElementHeightPropertyInfo = "DOMHTMLVideoElement::height" + attrGet _ = getDOMHTMLVideoElementHeight + attrSet _ = setDOMHTMLVideoElementHeight + attrConstruct _ = constructDOMHTMLVideoElementHeight + +-- VVV Prop "poster" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLVideoElementPoster :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m T.Text +getDOMHTMLVideoElementPoster obj = liftIO $ getObjectPropertyString obj "poster" + +setDOMHTMLVideoElementPoster :: (MonadIO m, DOMHTMLVideoElementK o) => o -> T.Text -> m () +setDOMHTMLVideoElementPoster obj val = liftIO $ setObjectPropertyString obj "poster" val + +constructDOMHTMLVideoElementPoster :: T.Text -> IO ([Char], GValue) +constructDOMHTMLVideoElementPoster val = constructObjectPropertyString "poster" val + +data DOMHTMLVideoElementPosterPropertyInfo +instance AttrInfo DOMHTMLVideoElementPosterPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementPosterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementPosterPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMHTMLVideoElementPosterPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementPosterPropertyInfo = T.Text + type AttrLabel DOMHTMLVideoElementPosterPropertyInfo = "DOMHTMLVideoElement::poster" + attrGet _ = getDOMHTMLVideoElementPoster + attrSet _ = setDOMHTMLVideoElementPoster + attrConstruct _ = constructDOMHTMLVideoElementPoster + +-- VVV Prop "video-height" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLVideoElementVideoHeight :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 +getDOMHTMLVideoElementVideoHeight obj = liftIO $ getObjectPropertyUInt64 obj "video-height" + +data DOMHTMLVideoElementVideoHeightPropertyInfo +instance AttrInfo DOMHTMLVideoElementVideoHeightPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementVideoHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementVideoHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLVideoElementVideoHeightPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementVideoHeightPropertyInfo = Word64 + type AttrLabel DOMHTMLVideoElementVideoHeightPropertyInfo = "DOMHTMLVideoElement::video-height" + attrGet _ = getDOMHTMLVideoElementVideoHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "video-width" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLVideoElementVideoWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 +getDOMHTMLVideoElementVideoWidth obj = liftIO $ getObjectPropertyUInt64 obj "video-width" + +data DOMHTMLVideoElementVideoWidthPropertyInfo +instance AttrInfo DOMHTMLVideoElementVideoWidthPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementVideoWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementVideoWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLVideoElementVideoWidthPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementVideoWidthPropertyInfo = Word64 + type AttrLabel DOMHTMLVideoElementVideoWidthPropertyInfo = "DOMHTMLVideoElement::video-width" + attrGet _ = getDOMHTMLVideoElementVideoWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-decoded-frame-count" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLVideoElementWebkitDecodedFrameCount :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 +getDOMHTMLVideoElementWebkitDecodedFrameCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-decoded-frame-count" + +data DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo +instance AttrInfo DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = Word64 + type AttrLabel DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo = "DOMHTMLVideoElement::webkit-decoded-frame-count" + attrGet _ = getDOMHTMLVideoElementWebkitDecodedFrameCount + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-displaying-fullscreen" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLVideoElementWebkitDisplayingFullscreen :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Bool +getDOMHTMLVideoElementWebkitDisplayingFullscreen obj = liftIO $ getObjectPropertyBool obj "webkit-displaying-fullscreen" + +data DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo +instance AttrInfo DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = Bool + type AttrLabel DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo = "DOMHTMLVideoElement::webkit-displaying-fullscreen" + attrGet _ = getDOMHTMLVideoElementWebkitDisplayingFullscreen + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-dropped-frame-count" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHTMLVideoElementWebkitDroppedFrameCount :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 +getDOMHTMLVideoElementWebkitDroppedFrameCount obj = liftIO $ getObjectPropertyUInt64 obj "webkit-dropped-frame-count" + +data DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo +instance AttrInfo DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = Word64 + type AttrLabel DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo = "DOMHTMLVideoElement::webkit-dropped-frame-count" + attrGet _ = getDOMHTMLVideoElementWebkitDroppedFrameCount + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-supports-fullscreen" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMHTMLVideoElementWebkitSupportsFullscreen :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Bool +getDOMHTMLVideoElementWebkitSupportsFullscreen obj = liftIO $ getObjectPropertyBool obj "webkit-supports-fullscreen" + +data DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo +instance AttrInfo DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = Bool + type AttrLabel DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo = "DOMHTMLVideoElement::webkit-supports-fullscreen" + attrGet _ = getDOMHTMLVideoElementWebkitSupportsFullscreen + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-wireless-video-playback-disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Bool +getDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled obj = liftIO $ getObjectPropertyBool obj "webkit-wireless-video-playback-disabled" + +setDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled :: (MonadIO m, DOMHTMLVideoElementK o) => o -> Bool -> m () +setDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled obj val = liftIO $ setObjectPropertyBool obj "webkit-wireless-video-playback-disabled" val + +constructDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled :: Bool -> IO ([Char], GValue) +constructDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled val = constructObjectPropertyBool "webkit-wireless-video-playback-disabled" val + +data DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo +instance AttrInfo DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = Bool + type AttrLabel DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo = "DOMHTMLVideoElement::webkit-wireless-video-playback-disabled" + attrGet _ = getDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled + attrSet _ = setDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled + attrConstruct _ = constructDOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabled + +-- VVV Prop "width" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMHTMLVideoElementWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> m Word64 +getDOMHTMLVideoElementWidth obj = liftIO $ getObjectPropertyUInt64 obj "width" + +setDOMHTMLVideoElementWidth :: (MonadIO m, DOMHTMLVideoElementK o) => o -> Word64 -> m () +setDOMHTMLVideoElementWidth obj val = liftIO $ setObjectPropertyUInt64 obj "width" val + +constructDOMHTMLVideoElementWidth :: Word64 -> IO ([Char], GValue) +constructDOMHTMLVideoElementWidth val = constructObjectPropertyUInt64 "width" val + +data DOMHTMLVideoElementWidthPropertyInfo +instance AttrInfo DOMHTMLVideoElementWidthPropertyInfo where + type AttrAllowedOps DOMHTMLVideoElementWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMHTMLVideoElementWidthPropertyInfo = (~) Word64 + type AttrBaseTypeConstraint DOMHTMLVideoElementWidthPropertyInfo = DOMHTMLVideoElementK + type AttrGetType DOMHTMLVideoElementWidthPropertyInfo = Word64 + type AttrLabel DOMHTMLVideoElementWidthPropertyInfo = "DOMHTMLVideoElement::width" + attrGet _ = getDOMHTMLVideoElementWidth + attrSet _ = setDOMHTMLVideoElementWidth + attrConstruct _ = constructDOMHTMLVideoElementWidth + +type instance AttributeList DOMHTMLVideoElement = '[ '("access-key", DOMHTMLElementAccessKeyPropertyInfo), '("attributes", DOMElementAttributesPropertyInfo), '("audio-tracks", DOMHTMLMediaElementAudioTracksPropertyInfo), '("autoplay", DOMHTMLMediaElementAutoplayPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("buffered", DOMHTMLMediaElementBufferedPropertyInfo), '("child-element-count", DOMElementChildElementCountPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("children", DOMHTMLElementChildrenPropertyInfo), '("class-list", DOMElementClassListPropertyInfo), '("class-name", DOMElementClassNamePropertyInfo), '("client-height", DOMElementClientHeightPropertyInfo), '("client-left", DOMElementClientLeftPropertyInfo), '("client-top", DOMElementClientTopPropertyInfo), '("client-width", DOMElementClientWidthPropertyInfo), '("content-editable", DOMHTMLElementContentEditablePropertyInfo), '("controller", DOMHTMLMediaElementControllerPropertyInfo), '("controls", DOMHTMLMediaElementControlsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-src", DOMHTMLMediaElementCurrentSrcPropertyInfo), '("current-time", DOMHTMLMediaElementCurrentTimePropertyInfo), '("default-muted", DOMHTMLMediaElementDefaultMutedPropertyInfo), '("default-playback-rate", DOMHTMLMediaElementDefaultPlaybackRatePropertyInfo), '("dir", DOMHTMLElementDirPropertyInfo), '("draggable", DOMHTMLElementDraggablePropertyInfo), '("duration", DOMHTMLMediaElementDurationPropertyInfo), '("ended", DOMHTMLMediaElementEndedPropertyInfo), '("error", DOMHTMLMediaElementErrorPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("first-element-child", DOMElementFirstElementChildPropertyInfo), '("height", DOMHTMLVideoElementHeightPropertyInfo), '("hidden", DOMHTMLElementHiddenPropertyInfo), '("id", DOMElementIdPropertyInfo), '("inner-html", DOMHTMLElementInnerHtmlPropertyInfo), '("inner-text", DOMHTMLElementInnerTextPropertyInfo), '("is-content-editable", DOMHTMLElementIsContentEditablePropertyInfo), '("lang", DOMHTMLElementLangPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("last-element-child", DOMElementLastElementChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("loop", DOMHTMLMediaElementLoopPropertyInfo), '("media-group", DOMHTMLMediaElementMediaGroupPropertyInfo), '("muted", DOMHTMLMediaElementMutedPropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("network-state", DOMHTMLMediaElementNetworkStatePropertyInfo), '("next-element-sibling", DOMElementNextElementSiblingPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("offset-height", DOMElementOffsetHeightPropertyInfo), '("offset-left", DOMElementOffsetLeftPropertyInfo), '("offset-parent", DOMElementOffsetParentPropertyInfo), '("offset-top", DOMElementOffsetTopPropertyInfo), '("offset-width", DOMElementOffsetWidthPropertyInfo), '("outer-html", DOMHTMLElementOuterHtmlPropertyInfo), '("outer-text", DOMHTMLElementOuterTextPropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("paused", DOMHTMLMediaElementPausedPropertyInfo), '("playback-rate", DOMHTMLMediaElementPlaybackRatePropertyInfo), '("played", DOMHTMLMediaElementPlayedPropertyInfo), '("poster", DOMHTMLVideoElementPosterPropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("preload", DOMHTMLMediaElementPreloadPropertyInfo), '("previous-element-sibling", DOMElementPreviousElementSiblingPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("ready-state", DOMHTMLMediaElementReadyStatePropertyInfo), '("scroll-height", DOMElementScrollHeightPropertyInfo), '("scroll-left", DOMElementScrollLeftPropertyInfo), '("scroll-top", DOMElementScrollTopPropertyInfo), '("scroll-width", DOMElementScrollWidthPropertyInfo), '("seekable", DOMHTMLMediaElementSeekablePropertyInfo), '("seeking", DOMHTMLMediaElementSeekingPropertyInfo), '("spellcheck", DOMHTMLElementSpellcheckPropertyInfo), '("src", DOMHTMLMediaElementSrcPropertyInfo), '("style", DOMElementStylePropertyInfo), '("tab-index", DOMHTMLElementTabIndexPropertyInfo), '("tag-name", DOMElementTagNamePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("text-tracks", DOMHTMLMediaElementTextTracksPropertyInfo), '("title", DOMHTMLElementTitlePropertyInfo), '("translate", DOMHTMLElementTranslatePropertyInfo), '("video-height", DOMHTMLVideoElementVideoHeightPropertyInfo), '("video-tracks", DOMHTMLMediaElementVideoTracksPropertyInfo), '("video-width", DOMHTMLVideoElementVideoWidthPropertyInfo), '("volume", DOMHTMLMediaElementVolumePropertyInfo), '("webkit-audio-decoded-byte-count", DOMHTMLMediaElementWebkitAudioDecodedByteCountPropertyInfo), '("webkit-closed-captions-visible", DOMHTMLMediaElementWebkitClosedCaptionsVisiblePropertyInfo), '("webkit-current-playback-target-is-wireless", DOMHTMLMediaElementWebkitCurrentPlaybackTargetIsWirelessPropertyInfo), '("webkit-decoded-frame-count", DOMHTMLVideoElementWebkitDecodedFrameCountPropertyInfo), '("webkit-displaying-fullscreen", DOMHTMLVideoElementWebkitDisplayingFullscreenPropertyInfo), '("webkit-dropped-frame-count", DOMHTMLVideoElementWebkitDroppedFrameCountPropertyInfo), '("webkit-has-closed-captions", DOMHTMLMediaElementWebkitHasClosedCaptionsPropertyInfo), '("webkit-preserves-pitch", DOMHTMLMediaElementWebkitPreservesPitchPropertyInfo), '("webkit-region-overset", DOMElementWebkitRegionOversetPropertyInfo), '("webkit-supports-fullscreen", DOMHTMLVideoElementWebkitSupportsFullscreenPropertyInfo), '("webkit-video-decoded-byte-count", DOMHTMLMediaElementWebkitVideoDecodedByteCountPropertyInfo), '("webkit-wireless-video-playback-disabled", DOMHTMLVideoElementWebkitWirelessVideoPlaybackDisabledPropertyInfo), '("webkitdropzone", DOMHTMLElementWebkitdropzonePropertyInfo), '("width", DOMHTMLVideoElementWidthPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMHistoryLength :: (MonadIO m, DOMHistoryK o) => o -> m Word64 +getDOMHistoryLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMHistoryLengthPropertyInfo +instance AttrInfo DOMHistoryLengthPropertyInfo where + type AttrAllowedOps DOMHistoryLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMHistoryLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMHistoryLengthPropertyInfo = DOMHistoryK + type AttrGetType DOMHistoryLengthPropertyInfo = Word64 + type AttrLabel DOMHistoryLengthPropertyInfo = "DOMHistory::length" + attrGet _ = getDOMHistoryLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMHistory = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHistoryLengthPropertyInfo)] + +-- VVV Prop "alt-graph-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMKeyboardEventAltGraphKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool +getDOMKeyboardEventAltGraphKey obj = liftIO $ getObjectPropertyBool obj "alt-graph-key" + +data DOMKeyboardEventAltGraphKeyPropertyInfo +instance AttrInfo DOMKeyboardEventAltGraphKeyPropertyInfo where + type AttrAllowedOps DOMKeyboardEventAltGraphKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMKeyboardEventAltGraphKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMKeyboardEventAltGraphKeyPropertyInfo = DOMKeyboardEventK + type AttrGetType DOMKeyboardEventAltGraphKeyPropertyInfo = Bool + type AttrLabel DOMKeyboardEventAltGraphKeyPropertyInfo = "DOMKeyboardEvent::alt-graph-key" + attrGet _ = getDOMKeyboardEventAltGraphKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "alt-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMKeyboardEventAltKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool +getDOMKeyboardEventAltKey obj = liftIO $ getObjectPropertyBool obj "alt-key" + +data DOMKeyboardEventAltKeyPropertyInfo +instance AttrInfo DOMKeyboardEventAltKeyPropertyInfo where + type AttrAllowedOps DOMKeyboardEventAltKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMKeyboardEventAltKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMKeyboardEventAltKeyPropertyInfo = DOMKeyboardEventK + type AttrGetType DOMKeyboardEventAltKeyPropertyInfo = Bool + type AttrLabel DOMKeyboardEventAltKeyPropertyInfo = "DOMKeyboardEvent::alt-key" + attrGet _ = getDOMKeyboardEventAltKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ctrl-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMKeyboardEventCtrlKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool +getDOMKeyboardEventCtrlKey obj = liftIO $ getObjectPropertyBool obj "ctrl-key" + +data DOMKeyboardEventCtrlKeyPropertyInfo +instance AttrInfo DOMKeyboardEventCtrlKeyPropertyInfo where + type AttrAllowedOps DOMKeyboardEventCtrlKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMKeyboardEventCtrlKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMKeyboardEventCtrlKeyPropertyInfo = DOMKeyboardEventK + type AttrGetType DOMKeyboardEventCtrlKeyPropertyInfo = Bool + type AttrLabel DOMKeyboardEventCtrlKeyPropertyInfo = "DOMKeyboardEvent::ctrl-key" + attrGet _ = getDOMKeyboardEventCtrlKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "key-identifier" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMKeyboardEventKeyIdentifier :: (MonadIO m, DOMKeyboardEventK o) => o -> m T.Text +getDOMKeyboardEventKeyIdentifier obj = liftIO $ getObjectPropertyString obj "key-identifier" + +data DOMKeyboardEventKeyIdentifierPropertyInfo +instance AttrInfo DOMKeyboardEventKeyIdentifierPropertyInfo where + type AttrAllowedOps DOMKeyboardEventKeyIdentifierPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMKeyboardEventKeyIdentifierPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMKeyboardEventKeyIdentifierPropertyInfo = DOMKeyboardEventK + type AttrGetType DOMKeyboardEventKeyIdentifierPropertyInfo = T.Text + type AttrLabel DOMKeyboardEventKeyIdentifierPropertyInfo = "DOMKeyboardEvent::key-identifier" + attrGet _ = getDOMKeyboardEventKeyIdentifier + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "key-location" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMKeyboardEventKeyLocation :: (MonadIO m, DOMKeyboardEventK o) => o -> m Word64 +getDOMKeyboardEventKeyLocation obj = liftIO $ getObjectPropertyUInt64 obj "key-location" + +data DOMKeyboardEventKeyLocationPropertyInfo +instance AttrInfo DOMKeyboardEventKeyLocationPropertyInfo where + type AttrAllowedOps DOMKeyboardEventKeyLocationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMKeyboardEventKeyLocationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMKeyboardEventKeyLocationPropertyInfo = DOMKeyboardEventK + type AttrGetType DOMKeyboardEventKeyLocationPropertyInfo = Word64 + type AttrLabel DOMKeyboardEventKeyLocationPropertyInfo = "DOMKeyboardEvent::key-location" + attrGet _ = getDOMKeyboardEventKeyLocation + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "meta-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMKeyboardEventMetaKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool +getDOMKeyboardEventMetaKey obj = liftIO $ getObjectPropertyBool obj "meta-key" + +data DOMKeyboardEventMetaKeyPropertyInfo +instance AttrInfo DOMKeyboardEventMetaKeyPropertyInfo where + type AttrAllowedOps DOMKeyboardEventMetaKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMKeyboardEventMetaKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMKeyboardEventMetaKeyPropertyInfo = DOMKeyboardEventK + type AttrGetType DOMKeyboardEventMetaKeyPropertyInfo = Bool + type AttrLabel DOMKeyboardEventMetaKeyPropertyInfo = "DOMKeyboardEvent::meta-key" + attrGet _ = getDOMKeyboardEventMetaKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "shift-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMKeyboardEventShiftKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool +getDOMKeyboardEventShiftKey obj = liftIO $ getObjectPropertyBool obj "shift-key" + +data DOMKeyboardEventShiftKeyPropertyInfo +instance AttrInfo DOMKeyboardEventShiftKeyPropertyInfo where + type AttrAllowedOps DOMKeyboardEventShiftKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMKeyboardEventShiftKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMKeyboardEventShiftKeyPropertyInfo = DOMKeyboardEventK + type AttrGetType DOMKeyboardEventShiftKeyPropertyInfo = Bool + type AttrLabel DOMKeyboardEventShiftKeyPropertyInfo = "DOMKeyboardEvent::shift-key" + attrGet _ = getDOMKeyboardEventShiftKey + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMKeyboardEvent = '[ '("alt-graph-key", DOMKeyboardEventAltGraphKeyPropertyInfo), '("alt-key", DOMKeyboardEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("ctrl-key", DOMKeyboardEventCtrlKeyPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("key-identifier", DOMKeyboardEventKeyIdentifierPropertyInfo), '("key-location", DOMKeyboardEventKeyLocationPropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("meta-key", DOMKeyboardEventMetaKeyPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("shift-key", DOMKeyboardEventShiftKeyPropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo)] + +-- VVV Prop "ancestor-origins" + -- Type: TInterface "WebKit" "DOMDOMStringList" + -- Flags: [PropertyReadable] + +getDOMLocationAncestorOrigins :: (MonadIO m, DOMLocationK o) => o -> m DOMDOMStringList +getDOMLocationAncestorOrigins obj = liftIO $ getObjectPropertyObject obj "ancestor-origins" DOMDOMStringList + +data DOMLocationAncestorOriginsPropertyInfo +instance AttrInfo DOMLocationAncestorOriginsPropertyInfo where + type AttrAllowedOps DOMLocationAncestorOriginsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationAncestorOriginsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationAncestorOriginsPropertyInfo = DOMLocationK + type AttrGetType DOMLocationAncestorOriginsPropertyInfo = DOMDOMStringList + type AttrLabel DOMLocationAncestorOriginsPropertyInfo = "DOMLocation::ancestor-origins" + attrGet _ = getDOMLocationAncestorOrigins + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "hash" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationHash :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationHash obj = liftIO $ getObjectPropertyString obj "hash" + +data DOMLocationHashPropertyInfo +instance AttrInfo DOMLocationHashPropertyInfo where + type AttrAllowedOps DOMLocationHashPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationHashPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationHashPropertyInfo = DOMLocationK + type AttrGetType DOMLocationHashPropertyInfo = T.Text + type AttrLabel DOMLocationHashPropertyInfo = "DOMLocation::hash" + attrGet _ = getDOMLocationHash + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "host" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationHost :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationHost obj = liftIO $ getObjectPropertyString obj "host" + +data DOMLocationHostPropertyInfo +instance AttrInfo DOMLocationHostPropertyInfo where + type AttrAllowedOps DOMLocationHostPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationHostPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationHostPropertyInfo = DOMLocationK + type AttrGetType DOMLocationHostPropertyInfo = T.Text + type AttrLabel DOMLocationHostPropertyInfo = "DOMLocation::host" + attrGet _ = getDOMLocationHost + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "hostname" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationHostname :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationHostname obj = liftIO $ getObjectPropertyString obj "hostname" + +data DOMLocationHostnamePropertyInfo +instance AttrInfo DOMLocationHostnamePropertyInfo where + type AttrAllowedOps DOMLocationHostnamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationHostnamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationHostnamePropertyInfo = DOMLocationK + type AttrGetType DOMLocationHostnamePropertyInfo = T.Text + type AttrLabel DOMLocationHostnamePropertyInfo = "DOMLocation::hostname" + attrGet _ = getDOMLocationHostname + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "href" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationHref :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationHref obj = liftIO $ getObjectPropertyString obj "href" + +data DOMLocationHrefPropertyInfo +instance AttrInfo DOMLocationHrefPropertyInfo where + type AttrAllowedOps DOMLocationHrefPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationHrefPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationHrefPropertyInfo = DOMLocationK + type AttrGetType DOMLocationHrefPropertyInfo = T.Text + type AttrLabel DOMLocationHrefPropertyInfo = "DOMLocation::href" + attrGet _ = getDOMLocationHref + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "origin" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationOrigin :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationOrigin obj = liftIO $ getObjectPropertyString obj "origin" + +data DOMLocationOriginPropertyInfo +instance AttrInfo DOMLocationOriginPropertyInfo where + type AttrAllowedOps DOMLocationOriginPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationOriginPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationOriginPropertyInfo = DOMLocationK + type AttrGetType DOMLocationOriginPropertyInfo = T.Text + type AttrLabel DOMLocationOriginPropertyInfo = "DOMLocation::origin" + attrGet _ = getDOMLocationOrigin + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "pathname" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationPathname :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationPathname obj = liftIO $ getObjectPropertyString obj "pathname" + +data DOMLocationPathnamePropertyInfo +instance AttrInfo DOMLocationPathnamePropertyInfo where + type AttrAllowedOps DOMLocationPathnamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationPathnamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationPathnamePropertyInfo = DOMLocationK + type AttrGetType DOMLocationPathnamePropertyInfo = T.Text + type AttrLabel DOMLocationPathnamePropertyInfo = "DOMLocation::pathname" + attrGet _ = getDOMLocationPathname + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "port" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationPort :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationPort obj = liftIO $ getObjectPropertyString obj "port" + +data DOMLocationPortPropertyInfo +instance AttrInfo DOMLocationPortPropertyInfo where + type AttrAllowedOps DOMLocationPortPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationPortPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationPortPropertyInfo = DOMLocationK + type AttrGetType DOMLocationPortPropertyInfo = T.Text + type AttrLabel DOMLocationPortPropertyInfo = "DOMLocation::port" + attrGet _ = getDOMLocationPort + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "protocol" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationProtocol :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationProtocol obj = liftIO $ getObjectPropertyString obj "protocol" + +data DOMLocationProtocolPropertyInfo +instance AttrInfo DOMLocationProtocolPropertyInfo where + type AttrAllowedOps DOMLocationProtocolPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationProtocolPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationProtocolPropertyInfo = DOMLocationK + type AttrGetType DOMLocationProtocolPropertyInfo = T.Text + type AttrLabel DOMLocationProtocolPropertyInfo = "DOMLocation::protocol" + attrGet _ = getDOMLocationProtocol + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "search" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMLocationSearch :: (MonadIO m, DOMLocationK o) => o -> m T.Text +getDOMLocationSearch obj = liftIO $ getObjectPropertyString obj "search" + +data DOMLocationSearchPropertyInfo +instance AttrInfo DOMLocationSearchPropertyInfo where + type AttrAllowedOps DOMLocationSearchPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMLocationSearchPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMLocationSearchPropertyInfo = DOMLocationK + type AttrGetType DOMLocationSearchPropertyInfo = T.Text + type AttrLabel DOMLocationSearchPropertyInfo = "DOMLocation::search" + attrGet _ = getDOMLocationSearch + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMLocation = '[ '("ancestor-origins", DOMLocationAncestorOriginsPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("hash", DOMLocationHashPropertyInfo), '("host", DOMLocationHostPropertyInfo), '("hostname", DOMLocationHostnamePropertyInfo), '("href", DOMLocationHrefPropertyInfo), '("origin", DOMLocationOriginPropertyInfo), '("pathname", DOMLocationPathnamePropertyInfo), '("port", DOMLocationPortPropertyInfo), '("protocol", DOMLocationProtocolPropertyInfo), '("search", DOMLocationSearchPropertyInfo)] + +-- VVV Prop "buffered" + -- Type: TInterface "WebKit" "DOMTimeRanges" + -- Flags: [PropertyReadable] + +getDOMMediaControllerBuffered :: (MonadIO m, DOMMediaControllerK o) => o -> m DOMTimeRanges +getDOMMediaControllerBuffered obj = liftIO $ getObjectPropertyObject obj "buffered" DOMTimeRanges + +data DOMMediaControllerBufferedPropertyInfo +instance AttrInfo DOMMediaControllerBufferedPropertyInfo where + type AttrAllowedOps DOMMediaControllerBufferedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerBufferedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaControllerBufferedPropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerBufferedPropertyInfo = DOMTimeRanges + type AttrLabel DOMMediaControllerBufferedPropertyInfo = "DOMMediaController::buffered" + attrGet _ = getDOMMediaControllerBuffered + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "current-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMMediaControllerCurrentTime :: (MonadIO m, DOMMediaControllerK o) => o -> m Double +getDOMMediaControllerCurrentTime obj = liftIO $ getObjectPropertyDouble obj "current-time" + +setDOMMediaControllerCurrentTime :: (MonadIO m, DOMMediaControllerK o) => o -> Double -> m () +setDOMMediaControllerCurrentTime obj val = liftIO $ setObjectPropertyDouble obj "current-time" val + +constructDOMMediaControllerCurrentTime :: Double -> IO ([Char], GValue) +constructDOMMediaControllerCurrentTime val = constructObjectPropertyDouble "current-time" val + +data DOMMediaControllerCurrentTimePropertyInfo +instance AttrInfo DOMMediaControllerCurrentTimePropertyInfo where + type AttrAllowedOps DOMMediaControllerCurrentTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerCurrentTimePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMMediaControllerCurrentTimePropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerCurrentTimePropertyInfo = Double + type AttrLabel DOMMediaControllerCurrentTimePropertyInfo = "DOMMediaController::current-time" + attrGet _ = getDOMMediaControllerCurrentTime + attrSet _ = setDOMMediaControllerCurrentTime + attrConstruct _ = constructDOMMediaControllerCurrentTime + +-- VVV Prop "default-playback-rate" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMMediaControllerDefaultPlaybackRate :: (MonadIO m, DOMMediaControllerK o) => o -> m Double +getDOMMediaControllerDefaultPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "default-playback-rate" + +setDOMMediaControllerDefaultPlaybackRate :: (MonadIO m, DOMMediaControllerK o) => o -> Double -> m () +setDOMMediaControllerDefaultPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "default-playback-rate" val + +constructDOMMediaControllerDefaultPlaybackRate :: Double -> IO ([Char], GValue) +constructDOMMediaControllerDefaultPlaybackRate val = constructObjectPropertyDouble "default-playback-rate" val + +data DOMMediaControllerDefaultPlaybackRatePropertyInfo +instance AttrInfo DOMMediaControllerDefaultPlaybackRatePropertyInfo where + type AttrAllowedOps DOMMediaControllerDefaultPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerDefaultPlaybackRatePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMMediaControllerDefaultPlaybackRatePropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerDefaultPlaybackRatePropertyInfo = Double + type AttrLabel DOMMediaControllerDefaultPlaybackRatePropertyInfo = "DOMMediaController::default-playback-rate" + attrGet _ = getDOMMediaControllerDefaultPlaybackRate + attrSet _ = setDOMMediaControllerDefaultPlaybackRate + attrConstruct _ = constructDOMMediaControllerDefaultPlaybackRate + +-- VVV Prop "duration" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMMediaControllerDuration :: (MonadIO m, DOMMediaControllerK o) => o -> m Double +getDOMMediaControllerDuration obj = liftIO $ getObjectPropertyDouble obj "duration" + +data DOMMediaControllerDurationPropertyInfo +instance AttrInfo DOMMediaControllerDurationPropertyInfo where + type AttrAllowedOps DOMMediaControllerDurationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerDurationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaControllerDurationPropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerDurationPropertyInfo = Double + type AttrLabel DOMMediaControllerDurationPropertyInfo = "DOMMediaController::duration" + attrGet _ = getDOMMediaControllerDuration + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "muted" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMMediaControllerMuted :: (MonadIO m, DOMMediaControllerK o) => o -> m Bool +getDOMMediaControllerMuted obj = liftIO $ getObjectPropertyBool obj "muted" + +setDOMMediaControllerMuted :: (MonadIO m, DOMMediaControllerK o) => o -> Bool -> m () +setDOMMediaControllerMuted obj val = liftIO $ setObjectPropertyBool obj "muted" val + +constructDOMMediaControllerMuted :: Bool -> IO ([Char], GValue) +constructDOMMediaControllerMuted val = constructObjectPropertyBool "muted" val + +data DOMMediaControllerMutedPropertyInfo +instance AttrInfo DOMMediaControllerMutedPropertyInfo where + type AttrAllowedOps DOMMediaControllerMutedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerMutedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMMediaControllerMutedPropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerMutedPropertyInfo = Bool + type AttrLabel DOMMediaControllerMutedPropertyInfo = "DOMMediaController::muted" + attrGet _ = getDOMMediaControllerMuted + attrSet _ = setDOMMediaControllerMuted + attrConstruct _ = constructDOMMediaControllerMuted + +-- VVV Prop "paused" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMMediaControllerPaused :: (MonadIO m, DOMMediaControllerK o) => o -> m Bool +getDOMMediaControllerPaused obj = liftIO $ getObjectPropertyBool obj "paused" + +data DOMMediaControllerPausedPropertyInfo +instance AttrInfo DOMMediaControllerPausedPropertyInfo where + type AttrAllowedOps DOMMediaControllerPausedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerPausedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaControllerPausedPropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerPausedPropertyInfo = Bool + type AttrLabel DOMMediaControllerPausedPropertyInfo = "DOMMediaController::paused" + attrGet _ = getDOMMediaControllerPaused + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "playback-rate" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMMediaControllerPlaybackRate :: (MonadIO m, DOMMediaControllerK o) => o -> m Double +getDOMMediaControllerPlaybackRate obj = liftIO $ getObjectPropertyDouble obj "playback-rate" + +setDOMMediaControllerPlaybackRate :: (MonadIO m, DOMMediaControllerK o) => o -> Double -> m () +setDOMMediaControllerPlaybackRate obj val = liftIO $ setObjectPropertyDouble obj "playback-rate" val + +constructDOMMediaControllerPlaybackRate :: Double -> IO ([Char], GValue) +constructDOMMediaControllerPlaybackRate val = constructObjectPropertyDouble "playback-rate" val + +data DOMMediaControllerPlaybackRatePropertyInfo +instance AttrInfo DOMMediaControllerPlaybackRatePropertyInfo where + type AttrAllowedOps DOMMediaControllerPlaybackRatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerPlaybackRatePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMMediaControllerPlaybackRatePropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerPlaybackRatePropertyInfo = Double + type AttrLabel DOMMediaControllerPlaybackRatePropertyInfo = "DOMMediaController::playback-rate" + attrGet _ = getDOMMediaControllerPlaybackRate + attrSet _ = setDOMMediaControllerPlaybackRate + attrConstruct _ = constructDOMMediaControllerPlaybackRate + +-- VVV Prop "playback-state" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMMediaControllerPlaybackState :: (MonadIO m, DOMMediaControllerK o) => o -> m T.Text +getDOMMediaControllerPlaybackState obj = liftIO $ getObjectPropertyString obj "playback-state" + +data DOMMediaControllerPlaybackStatePropertyInfo +instance AttrInfo DOMMediaControllerPlaybackStatePropertyInfo where + type AttrAllowedOps DOMMediaControllerPlaybackStatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerPlaybackStatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaControllerPlaybackStatePropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerPlaybackStatePropertyInfo = T.Text + type AttrLabel DOMMediaControllerPlaybackStatePropertyInfo = "DOMMediaController::playback-state" + attrGet _ = getDOMMediaControllerPlaybackState + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "played" + -- Type: TInterface "WebKit" "DOMTimeRanges" + -- Flags: [PropertyReadable] + +getDOMMediaControllerPlayed :: (MonadIO m, DOMMediaControllerK o) => o -> m DOMTimeRanges +getDOMMediaControllerPlayed obj = liftIO $ getObjectPropertyObject obj "played" DOMTimeRanges + +data DOMMediaControllerPlayedPropertyInfo +instance AttrInfo DOMMediaControllerPlayedPropertyInfo where + type AttrAllowedOps DOMMediaControllerPlayedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerPlayedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaControllerPlayedPropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerPlayedPropertyInfo = DOMTimeRanges + type AttrLabel DOMMediaControllerPlayedPropertyInfo = "DOMMediaController::played" + attrGet _ = getDOMMediaControllerPlayed + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "seekable" + -- Type: TInterface "WebKit" "DOMTimeRanges" + -- Flags: [PropertyReadable] + +getDOMMediaControllerSeekable :: (MonadIO m, DOMMediaControllerK o) => o -> m DOMTimeRanges +getDOMMediaControllerSeekable obj = liftIO $ getObjectPropertyObject obj "seekable" DOMTimeRanges + +data DOMMediaControllerSeekablePropertyInfo +instance AttrInfo DOMMediaControllerSeekablePropertyInfo where + type AttrAllowedOps DOMMediaControllerSeekablePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerSeekablePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaControllerSeekablePropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerSeekablePropertyInfo = DOMTimeRanges + type AttrLabel DOMMediaControllerSeekablePropertyInfo = "DOMMediaController::seekable" + attrGet _ = getDOMMediaControllerSeekable + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "volume" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMMediaControllerVolume :: (MonadIO m, DOMMediaControllerK o) => o -> m Double +getDOMMediaControllerVolume obj = liftIO $ getObjectPropertyDouble obj "volume" + +setDOMMediaControllerVolume :: (MonadIO m, DOMMediaControllerK o) => o -> Double -> m () +setDOMMediaControllerVolume obj val = liftIO $ setObjectPropertyDouble obj "volume" val + +constructDOMMediaControllerVolume :: Double -> IO ([Char], GValue) +constructDOMMediaControllerVolume val = constructObjectPropertyDouble "volume" val + +data DOMMediaControllerVolumePropertyInfo +instance AttrInfo DOMMediaControllerVolumePropertyInfo where + type AttrAllowedOps DOMMediaControllerVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMMediaControllerVolumePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMMediaControllerVolumePropertyInfo = DOMMediaControllerK + type AttrGetType DOMMediaControllerVolumePropertyInfo = Double + type AttrLabel DOMMediaControllerVolumePropertyInfo = "DOMMediaController::volume" + attrGet _ = getDOMMediaControllerVolume + attrSet _ = setDOMMediaControllerVolume + attrConstruct _ = constructDOMMediaControllerVolume + +type instance AttributeList DOMMediaController = '[ '("buffered", DOMMediaControllerBufferedPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-time", DOMMediaControllerCurrentTimePropertyInfo), '("default-playback-rate", DOMMediaControllerDefaultPlaybackRatePropertyInfo), '("duration", DOMMediaControllerDurationPropertyInfo), '("muted", DOMMediaControllerMutedPropertyInfo), '("paused", DOMMediaControllerPausedPropertyInfo), '("playback-rate", DOMMediaControllerPlaybackRatePropertyInfo), '("playback-state", DOMMediaControllerPlaybackStatePropertyInfo), '("played", DOMMediaControllerPlayedPropertyInfo), '("seekable", DOMMediaControllerSeekablePropertyInfo), '("volume", DOMMediaControllerVolumePropertyInfo)] + +-- VVV Prop "code" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMMediaErrorCode :: (MonadIO m, DOMMediaErrorK o) => o -> m Word32 +getDOMMediaErrorCode obj = liftIO $ getObjectPropertyCUInt obj "code" + +data DOMMediaErrorCodePropertyInfo +instance AttrInfo DOMMediaErrorCodePropertyInfo where + type AttrAllowedOps DOMMediaErrorCodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaErrorCodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaErrorCodePropertyInfo = DOMMediaErrorK + type AttrGetType DOMMediaErrorCodePropertyInfo = Word32 + type AttrLabel DOMMediaErrorCodePropertyInfo = "DOMMediaError::code" + attrGet _ = getDOMMediaErrorCode + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMMediaError = '[ '("code", DOMMediaErrorCodePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMMediaListLength :: (MonadIO m, DOMMediaListK o) => o -> m Word64 +getDOMMediaListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMMediaListLengthPropertyInfo +instance AttrInfo DOMMediaListLengthPropertyInfo where + type AttrAllowedOps DOMMediaListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaListLengthPropertyInfo = DOMMediaListK + type AttrGetType DOMMediaListLengthPropertyInfo = Word64 + type AttrLabel DOMMediaListLengthPropertyInfo = "DOMMediaList::length" + attrGet _ = getDOMMediaListLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "media-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMMediaListMediaText :: (MonadIO m, DOMMediaListK o) => o -> m T.Text +getDOMMediaListMediaText obj = liftIO $ getObjectPropertyString obj "media-text" + +setDOMMediaListMediaText :: (MonadIO m, DOMMediaListK o) => o -> T.Text -> m () +setDOMMediaListMediaText obj val = liftIO $ setObjectPropertyString obj "media-text" val + +constructDOMMediaListMediaText :: T.Text -> IO ([Char], GValue) +constructDOMMediaListMediaText val = constructObjectPropertyString "media-text" val + +data DOMMediaListMediaTextPropertyInfo +instance AttrInfo DOMMediaListMediaTextPropertyInfo where + type AttrAllowedOps DOMMediaListMediaTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMMediaListMediaTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMMediaListMediaTextPropertyInfo = DOMMediaListK + type AttrGetType DOMMediaListMediaTextPropertyInfo = T.Text + type AttrLabel DOMMediaListMediaTextPropertyInfo = "DOMMediaList::media-text" + attrGet _ = getDOMMediaListMediaText + attrSet _ = setDOMMediaListMediaText + attrConstruct _ = constructDOMMediaListMediaText + +type instance AttributeList DOMMediaList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMMediaListLengthPropertyInfo), '("media-text", DOMMediaListMediaTextPropertyInfo)] + +-- VVV Prop "matches" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMMediaQueryListMatches :: (MonadIO m, DOMMediaQueryListK o) => o -> m Bool +getDOMMediaQueryListMatches obj = liftIO $ getObjectPropertyBool obj "matches" + +data DOMMediaQueryListMatchesPropertyInfo +instance AttrInfo DOMMediaQueryListMatchesPropertyInfo where + type AttrAllowedOps DOMMediaQueryListMatchesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaQueryListMatchesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaQueryListMatchesPropertyInfo = DOMMediaQueryListK + type AttrGetType DOMMediaQueryListMatchesPropertyInfo = Bool + type AttrLabel DOMMediaQueryListMatchesPropertyInfo = "DOMMediaQueryList::matches" + attrGet _ = getDOMMediaQueryListMatches + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "media" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMMediaQueryListMedia :: (MonadIO m, DOMMediaQueryListK o) => o -> m T.Text +getDOMMediaQueryListMedia obj = liftIO $ getObjectPropertyString obj "media" + +data DOMMediaQueryListMediaPropertyInfo +instance AttrInfo DOMMediaQueryListMediaPropertyInfo where + type AttrAllowedOps DOMMediaQueryListMediaPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMediaQueryListMediaPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMediaQueryListMediaPropertyInfo = DOMMediaQueryListK + type AttrGetType DOMMediaQueryListMediaPropertyInfo = T.Text + type AttrLabel DOMMediaQueryListMediaPropertyInfo = "DOMMediaQueryList::media" + attrGet _ = getDOMMediaQueryListMedia + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMMediaQueryList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("matches", DOMMediaQueryListMatchesPropertyInfo), '("media", DOMMediaQueryListMediaPropertyInfo)] + +-- VVV Prop "js-heap-size-limit" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMMemoryInfoJsHeapSizeLimit :: (MonadIO m, DOMMemoryInfoK o) => o -> m Word64 +getDOMMemoryInfoJsHeapSizeLimit obj = liftIO $ getObjectPropertyUInt64 obj "js-heap-size-limit" + +data DOMMemoryInfoJsHeapSizeLimitPropertyInfo +instance AttrInfo DOMMemoryInfoJsHeapSizeLimitPropertyInfo where + type AttrAllowedOps DOMMemoryInfoJsHeapSizeLimitPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMemoryInfoJsHeapSizeLimitPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMemoryInfoJsHeapSizeLimitPropertyInfo = DOMMemoryInfoK + type AttrGetType DOMMemoryInfoJsHeapSizeLimitPropertyInfo = Word64 + type AttrLabel DOMMemoryInfoJsHeapSizeLimitPropertyInfo = "DOMMemoryInfo::js-heap-size-limit" + attrGet _ = getDOMMemoryInfoJsHeapSizeLimit + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "total-js-heap-size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMMemoryInfoTotalJsHeapSize :: (MonadIO m, DOMMemoryInfoK o) => o -> m Word64 +getDOMMemoryInfoTotalJsHeapSize obj = liftIO $ getObjectPropertyUInt64 obj "total-js-heap-size" + +data DOMMemoryInfoTotalJsHeapSizePropertyInfo +instance AttrInfo DOMMemoryInfoTotalJsHeapSizePropertyInfo where + type AttrAllowedOps DOMMemoryInfoTotalJsHeapSizePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMemoryInfoTotalJsHeapSizePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMemoryInfoTotalJsHeapSizePropertyInfo = DOMMemoryInfoK + type AttrGetType DOMMemoryInfoTotalJsHeapSizePropertyInfo = Word64 + type AttrLabel DOMMemoryInfoTotalJsHeapSizePropertyInfo = "DOMMemoryInfo::total-js-heap-size" + attrGet _ = getDOMMemoryInfoTotalJsHeapSize + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "used-js-heap-size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMMemoryInfoUsedJsHeapSize :: (MonadIO m, DOMMemoryInfoK o) => o -> m Word64 +getDOMMemoryInfoUsedJsHeapSize obj = liftIO $ getObjectPropertyUInt64 obj "used-js-heap-size" + +data DOMMemoryInfoUsedJsHeapSizePropertyInfo +instance AttrInfo DOMMemoryInfoUsedJsHeapSizePropertyInfo where + type AttrAllowedOps DOMMemoryInfoUsedJsHeapSizePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMemoryInfoUsedJsHeapSizePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMemoryInfoUsedJsHeapSizePropertyInfo = DOMMemoryInfoK + type AttrGetType DOMMemoryInfoUsedJsHeapSizePropertyInfo = Word64 + type AttrLabel DOMMemoryInfoUsedJsHeapSizePropertyInfo = "DOMMemoryInfo::used-js-heap-size" + attrGet _ = getDOMMemoryInfoUsedJsHeapSize + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMMemoryInfo = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("js-heap-size-limit", DOMMemoryInfoJsHeapSizeLimitPropertyInfo), '("total-js-heap-size", DOMMemoryInfoTotalJsHeapSizePropertyInfo), '("used-js-heap-size", DOMMemoryInfoUsedJsHeapSizePropertyInfo)] + +type instance AttributeList DOMMessagePort = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] + +type instance AttributeList DOMMicroDataItemValue = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] + +-- VVV Prop "alt-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMMouseEventAltKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool +getDOMMouseEventAltKey obj = liftIO $ getObjectPropertyBool obj "alt-key" + +data DOMMouseEventAltKeyPropertyInfo +instance AttrInfo DOMMouseEventAltKeyPropertyInfo where + type AttrAllowedOps DOMMouseEventAltKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventAltKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventAltKeyPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventAltKeyPropertyInfo = Bool + type AttrLabel DOMMouseEventAltKeyPropertyInfo = "DOMMouseEvent::alt-key" + attrGet _ = getDOMMouseEventAltKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "button" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMMouseEventButton :: (MonadIO m, DOMMouseEventK o) => o -> m Word32 +getDOMMouseEventButton obj = liftIO $ getObjectPropertyCUInt obj "button" + +data DOMMouseEventButtonPropertyInfo +instance AttrInfo DOMMouseEventButtonPropertyInfo where + type AttrAllowedOps DOMMouseEventButtonPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventButtonPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventButtonPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventButtonPropertyInfo = Word32 + type AttrLabel DOMMouseEventButtonPropertyInfo = "DOMMouseEvent::button" + attrGet _ = getDOMMouseEventButton + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "client-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventClientX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventClientX obj = liftIO $ getObjectPropertyInt64 obj "client-x" + +data DOMMouseEventClientXPropertyInfo +instance AttrInfo DOMMouseEventClientXPropertyInfo where + type AttrAllowedOps DOMMouseEventClientXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventClientXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventClientXPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventClientXPropertyInfo = Int64 + type AttrLabel DOMMouseEventClientXPropertyInfo = "DOMMouseEvent::client-x" + attrGet _ = getDOMMouseEventClientX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "client-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventClientY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventClientY obj = liftIO $ getObjectPropertyInt64 obj "client-y" + +data DOMMouseEventClientYPropertyInfo +instance AttrInfo DOMMouseEventClientYPropertyInfo where + type AttrAllowedOps DOMMouseEventClientYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventClientYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventClientYPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventClientYPropertyInfo = Int64 + type AttrLabel DOMMouseEventClientYPropertyInfo = "DOMMouseEvent::client-y" + attrGet _ = getDOMMouseEventClientY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ctrl-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMMouseEventCtrlKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool +getDOMMouseEventCtrlKey obj = liftIO $ getObjectPropertyBool obj "ctrl-key" + +data DOMMouseEventCtrlKeyPropertyInfo +instance AttrInfo DOMMouseEventCtrlKeyPropertyInfo where + type AttrAllowedOps DOMMouseEventCtrlKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventCtrlKeyPropertyInfo = Bool + type AttrLabel DOMMouseEventCtrlKeyPropertyInfo = "DOMMouseEvent::ctrl-key" + attrGet _ = getDOMMouseEventCtrlKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "from-element" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMMouseEventFromElement :: (MonadIO m, DOMMouseEventK o) => o -> m DOMNode +getDOMMouseEventFromElement obj = liftIO $ getObjectPropertyObject obj "from-element" DOMNode + +data DOMMouseEventFromElementPropertyInfo +instance AttrInfo DOMMouseEventFromElementPropertyInfo where + type AttrAllowedOps DOMMouseEventFromElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventFromElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventFromElementPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventFromElementPropertyInfo = DOMNode + type AttrLabel DOMMouseEventFromElementPropertyInfo = "DOMMouseEvent::from-element" + attrGet _ = getDOMMouseEventFromElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "meta-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMMouseEventMetaKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool +getDOMMouseEventMetaKey obj = liftIO $ getObjectPropertyBool obj "meta-key" + +data DOMMouseEventMetaKeyPropertyInfo +instance AttrInfo DOMMouseEventMetaKeyPropertyInfo where + type AttrAllowedOps DOMMouseEventMetaKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventMetaKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventMetaKeyPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventMetaKeyPropertyInfo = Bool + type AttrLabel DOMMouseEventMetaKeyPropertyInfo = "DOMMouseEvent::meta-key" + attrGet _ = getDOMMouseEventMetaKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offset-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventOffsetX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventOffsetX obj = liftIO $ getObjectPropertyInt64 obj "offset-x" + +data DOMMouseEventOffsetXPropertyInfo +instance AttrInfo DOMMouseEventOffsetXPropertyInfo where + type AttrAllowedOps DOMMouseEventOffsetXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventOffsetXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventOffsetXPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventOffsetXPropertyInfo = Int64 + type AttrLabel DOMMouseEventOffsetXPropertyInfo = "DOMMouseEvent::offset-x" + attrGet _ = getDOMMouseEventOffsetX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "offset-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventOffsetY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventOffsetY obj = liftIO $ getObjectPropertyInt64 obj "offset-y" + +data DOMMouseEventOffsetYPropertyInfo +instance AttrInfo DOMMouseEventOffsetYPropertyInfo where + type AttrAllowedOps DOMMouseEventOffsetYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventOffsetYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventOffsetYPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventOffsetYPropertyInfo = Int64 + type AttrLabel DOMMouseEventOffsetYPropertyInfo = "DOMMouseEvent::offset-y" + attrGet _ = getDOMMouseEventOffsetY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "related-target" + -- Type: TInterface "WebKit" "DOMEventTarget" + -- Flags: [PropertyReadable] + +getDOMMouseEventRelatedTarget :: (MonadIO m, DOMMouseEventK o) => o -> m DOMEventTarget +getDOMMouseEventRelatedTarget obj = liftIO $ getObjectPropertyObject obj "related-target" DOMEventTarget + +data DOMMouseEventRelatedTargetPropertyInfo +instance AttrInfo DOMMouseEventRelatedTargetPropertyInfo where + type AttrAllowedOps DOMMouseEventRelatedTargetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventRelatedTargetPropertyInfo = DOMEventTarget + type AttrLabel DOMMouseEventRelatedTargetPropertyInfo = "DOMMouseEvent::related-target" + attrGet _ = getDOMMouseEventRelatedTarget + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventScreenX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x" + +data DOMMouseEventScreenXPropertyInfo +instance AttrInfo DOMMouseEventScreenXPropertyInfo where + type AttrAllowedOps DOMMouseEventScreenXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventScreenXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventScreenXPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventScreenXPropertyInfo = Int64 + type AttrLabel DOMMouseEventScreenXPropertyInfo = "DOMMouseEvent::screen-x" + attrGet _ = getDOMMouseEventScreenX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventScreenY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y" + +data DOMMouseEventScreenYPropertyInfo +instance AttrInfo DOMMouseEventScreenYPropertyInfo where + type AttrAllowedOps DOMMouseEventScreenYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventScreenYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventScreenYPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventScreenYPropertyInfo = Int64 + type AttrLabel DOMMouseEventScreenYPropertyInfo = "DOMMouseEvent::screen-y" + attrGet _ = getDOMMouseEventScreenY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "shift-key" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMMouseEventShiftKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool +getDOMMouseEventShiftKey obj = liftIO $ getObjectPropertyBool obj "shift-key" + +data DOMMouseEventShiftKeyPropertyInfo +instance AttrInfo DOMMouseEventShiftKeyPropertyInfo where + type AttrAllowedOps DOMMouseEventShiftKeyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventShiftKeyPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventShiftKeyPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventShiftKeyPropertyInfo = Bool + type AttrLabel DOMMouseEventShiftKeyPropertyInfo = "DOMMouseEvent::shift-key" + attrGet _ = getDOMMouseEventShiftKey + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "to-element" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMMouseEventToElement :: (MonadIO m, DOMMouseEventK o) => o -> m DOMNode +getDOMMouseEventToElement obj = liftIO $ getObjectPropertyObject obj "to-element" DOMNode + +data DOMMouseEventToElementPropertyInfo +instance AttrInfo DOMMouseEventToElementPropertyInfo where + type AttrAllowedOps DOMMouseEventToElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventToElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventToElementPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventToElementPropertyInfo = DOMNode + type AttrLabel DOMMouseEventToElementPropertyInfo = "DOMMouseEvent::to-element" + attrGet _ = getDOMMouseEventToElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-movement-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventWebkitMovementX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventWebkitMovementX obj = liftIO $ getObjectPropertyInt64 obj "webkit-movement-x" + +data DOMMouseEventWebkitMovementXPropertyInfo +instance AttrInfo DOMMouseEventWebkitMovementXPropertyInfo where + type AttrAllowedOps DOMMouseEventWebkitMovementXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventWebkitMovementXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventWebkitMovementXPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventWebkitMovementXPropertyInfo = Int64 + type AttrLabel DOMMouseEventWebkitMovementXPropertyInfo = "DOMMouseEvent::webkit-movement-x" + attrGet _ = getDOMMouseEventWebkitMovementX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-movement-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventWebkitMovementY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventWebkitMovementY obj = liftIO $ getObjectPropertyInt64 obj "webkit-movement-y" + +data DOMMouseEventWebkitMovementYPropertyInfo +instance AttrInfo DOMMouseEventWebkitMovementYPropertyInfo where + type AttrAllowedOps DOMMouseEventWebkitMovementYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventWebkitMovementYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventWebkitMovementYPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventWebkitMovementYPropertyInfo = Int64 + type AttrLabel DOMMouseEventWebkitMovementYPropertyInfo = "DOMMouseEvent::webkit-movement-y" + attrGet _ = getDOMMouseEventWebkitMovementY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventX obj = liftIO $ getObjectPropertyInt64 obj "x" + +data DOMMouseEventXPropertyInfo +instance AttrInfo DOMMouseEventXPropertyInfo where + type AttrAllowedOps DOMMouseEventXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventXPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventXPropertyInfo = Int64 + type AttrLabel DOMMouseEventXPropertyInfo = "DOMMouseEvent::x" + attrGet _ = getDOMMouseEventX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMMouseEventY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64 +getDOMMouseEventY obj = liftIO $ getObjectPropertyInt64 obj "y" + +data DOMMouseEventYPropertyInfo +instance AttrInfo DOMMouseEventYPropertyInfo where + type AttrAllowedOps DOMMouseEventYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMMouseEventYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMMouseEventYPropertyInfo = DOMMouseEventK + type AttrGetType DOMMouseEventYPropertyInfo = Int64 + type AttrLabel DOMMouseEventYPropertyInfo = "DOMMouseEvent::y" + attrGet _ = getDOMMouseEventY + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMMouseEvent = '[ '("alt-key", DOMMouseEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("button", DOMMouseEventButtonPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("client-x", DOMMouseEventClientXPropertyInfo), '("client-y", DOMMouseEventClientYPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("ctrl-key", DOMMouseEventCtrlKeyPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("from-element", DOMMouseEventFromElementPropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("meta-key", DOMMouseEventMetaKeyPropertyInfo), '("offset-x", DOMMouseEventOffsetXPropertyInfo), '("offset-y", DOMMouseEventOffsetYPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("related-target", DOMMouseEventRelatedTargetPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("screen-x", DOMMouseEventScreenXPropertyInfo), '("screen-y", DOMMouseEventScreenYPropertyInfo), '("shift-key", DOMMouseEventShiftKeyPropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("to-element", DOMMouseEventToElementPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("webkit-movement-x", DOMMouseEventWebkitMovementXPropertyInfo), '("webkit-movement-y", DOMMouseEventWebkitMovementYPropertyInfo), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMNamedNodeMapLength :: (MonadIO m, DOMNamedNodeMapK o) => o -> m Word64 +getDOMNamedNodeMapLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMNamedNodeMapLengthPropertyInfo +instance AttrInfo DOMNamedNodeMapLengthPropertyInfo where + type AttrAllowedOps DOMNamedNodeMapLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNamedNodeMapLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNamedNodeMapLengthPropertyInfo = DOMNamedNodeMapK + type AttrGetType DOMNamedNodeMapLengthPropertyInfo = Word64 + type AttrLabel DOMNamedNodeMapLengthPropertyInfo = "DOMNamedNodeMap::length" + attrGet _ = getDOMNamedNodeMapLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMNamedNodeMap = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMNamedNodeMapLengthPropertyInfo)] + +-- VVV Prop "app-code-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorAppCodeName :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorAppCodeName obj = liftIO $ getObjectPropertyString obj "app-code-name" + +data DOMNavigatorAppCodeNamePropertyInfo +instance AttrInfo DOMNavigatorAppCodeNamePropertyInfo where + type AttrAllowedOps DOMNavigatorAppCodeNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorAppCodeNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorAppCodeNamePropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorAppCodeNamePropertyInfo = T.Text + type AttrLabel DOMNavigatorAppCodeNamePropertyInfo = "DOMNavigator::app-code-name" + attrGet _ = getDOMNavigatorAppCodeName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "app-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorAppName :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorAppName obj = liftIO $ getObjectPropertyString obj "app-name" + +data DOMNavigatorAppNamePropertyInfo +instance AttrInfo DOMNavigatorAppNamePropertyInfo where + type AttrAllowedOps DOMNavigatorAppNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorAppNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorAppNamePropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorAppNamePropertyInfo = T.Text + type AttrLabel DOMNavigatorAppNamePropertyInfo = "DOMNavigator::app-name" + attrGet _ = getDOMNavigatorAppName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "app-version" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorAppVersion :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorAppVersion obj = liftIO $ getObjectPropertyString obj "app-version" + +data DOMNavigatorAppVersionPropertyInfo +instance AttrInfo DOMNavigatorAppVersionPropertyInfo where + type AttrAllowedOps DOMNavigatorAppVersionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorAppVersionPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorAppVersionPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorAppVersionPropertyInfo = T.Text + type AttrLabel DOMNavigatorAppVersionPropertyInfo = "DOMNavigator::app-version" + attrGet _ = getDOMNavigatorAppVersion + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "cookie-enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMNavigatorCookieEnabled :: (MonadIO m, DOMNavigatorK o) => o -> m Bool +getDOMNavigatorCookieEnabled obj = liftIO $ getObjectPropertyBool obj "cookie-enabled" + +data DOMNavigatorCookieEnabledPropertyInfo +instance AttrInfo DOMNavigatorCookieEnabledPropertyInfo where + type AttrAllowedOps DOMNavigatorCookieEnabledPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorCookieEnabledPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorCookieEnabledPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorCookieEnabledPropertyInfo = Bool + type AttrLabel DOMNavigatorCookieEnabledPropertyInfo = "DOMNavigator::cookie-enabled" + attrGet _ = getDOMNavigatorCookieEnabled + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "geolocation" + -- Type: TInterface "WebKit" "DOMGeolocation" + -- Flags: [PropertyReadable] + +getDOMNavigatorGeolocation :: (MonadIO m, DOMNavigatorK o) => o -> m DOMGeolocation +getDOMNavigatorGeolocation obj = liftIO $ getObjectPropertyObject obj "geolocation" DOMGeolocation + +data DOMNavigatorGeolocationPropertyInfo +instance AttrInfo DOMNavigatorGeolocationPropertyInfo where + type AttrAllowedOps DOMNavigatorGeolocationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorGeolocationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorGeolocationPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorGeolocationPropertyInfo = DOMGeolocation + type AttrLabel DOMNavigatorGeolocationPropertyInfo = "DOMNavigator::geolocation" + attrGet _ = getDOMNavigatorGeolocation + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "language" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorLanguage :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorLanguage obj = liftIO $ getObjectPropertyString obj "language" + +data DOMNavigatorLanguagePropertyInfo +instance AttrInfo DOMNavigatorLanguagePropertyInfo where + type AttrAllowedOps DOMNavigatorLanguagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorLanguagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorLanguagePropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorLanguagePropertyInfo = T.Text + type AttrLabel DOMNavigatorLanguagePropertyInfo = "DOMNavigator::language" + attrGet _ = getDOMNavigatorLanguage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "mime-types" + -- Type: TInterface "WebKit" "DOMDOMMimeTypeArray" + -- Flags: [PropertyReadable] + +getDOMNavigatorMimeTypes :: (MonadIO m, DOMNavigatorK o) => o -> m DOMDOMMimeTypeArray +getDOMNavigatorMimeTypes obj = liftIO $ getObjectPropertyObject obj "mime-types" DOMDOMMimeTypeArray + +data DOMNavigatorMimeTypesPropertyInfo +instance AttrInfo DOMNavigatorMimeTypesPropertyInfo where + type AttrAllowedOps DOMNavigatorMimeTypesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorMimeTypesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorMimeTypesPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorMimeTypesPropertyInfo = DOMDOMMimeTypeArray + type AttrLabel DOMNavigatorMimeTypesPropertyInfo = "DOMNavigator::mime-types" + attrGet _ = getDOMNavigatorMimeTypes + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "on-line" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMNavigatorOnLine :: (MonadIO m, DOMNavigatorK o) => o -> m Bool +getDOMNavigatorOnLine obj = liftIO $ getObjectPropertyBool obj "on-line" + +data DOMNavigatorOnLinePropertyInfo +instance AttrInfo DOMNavigatorOnLinePropertyInfo where + type AttrAllowedOps DOMNavigatorOnLinePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorOnLinePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorOnLinePropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorOnLinePropertyInfo = Bool + type AttrLabel DOMNavigatorOnLinePropertyInfo = "DOMNavigator::on-line" + attrGet _ = getDOMNavigatorOnLine + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "platform" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorPlatform :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorPlatform obj = liftIO $ getObjectPropertyString obj "platform" + +data DOMNavigatorPlatformPropertyInfo +instance AttrInfo DOMNavigatorPlatformPropertyInfo where + type AttrAllowedOps DOMNavigatorPlatformPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorPlatformPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorPlatformPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorPlatformPropertyInfo = T.Text + type AttrLabel DOMNavigatorPlatformPropertyInfo = "DOMNavigator::platform" + attrGet _ = getDOMNavigatorPlatform + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "plugins" + -- Type: TInterface "WebKit" "DOMDOMPluginArray" + -- Flags: [PropertyReadable] + +getDOMNavigatorPlugins :: (MonadIO m, DOMNavigatorK o) => o -> m DOMDOMPluginArray +getDOMNavigatorPlugins obj = liftIO $ getObjectPropertyObject obj "plugins" DOMDOMPluginArray + +data DOMNavigatorPluginsPropertyInfo +instance AttrInfo DOMNavigatorPluginsPropertyInfo where + type AttrAllowedOps DOMNavigatorPluginsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorPluginsPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorPluginsPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorPluginsPropertyInfo = DOMDOMPluginArray + type AttrLabel DOMNavigatorPluginsPropertyInfo = "DOMNavigator::plugins" + attrGet _ = getDOMNavigatorPlugins + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "product" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorProduct :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorProduct obj = liftIO $ getObjectPropertyString obj "product" + +data DOMNavigatorProductPropertyInfo +instance AttrInfo DOMNavigatorProductPropertyInfo where + type AttrAllowedOps DOMNavigatorProductPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorProductPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorProductPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorProductPropertyInfo = T.Text + type AttrLabel DOMNavigatorProductPropertyInfo = "DOMNavigator::product" + attrGet _ = getDOMNavigatorProduct + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "product-sub" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorProductSub :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorProductSub obj = liftIO $ getObjectPropertyString obj "product-sub" + +data DOMNavigatorProductSubPropertyInfo +instance AttrInfo DOMNavigatorProductSubPropertyInfo where + type AttrAllowedOps DOMNavigatorProductSubPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorProductSubPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorProductSubPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorProductSubPropertyInfo = T.Text + type AttrLabel DOMNavigatorProductSubPropertyInfo = "DOMNavigator::product-sub" + attrGet _ = getDOMNavigatorProductSub + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "user-agent" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorUserAgent :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent" + +data DOMNavigatorUserAgentPropertyInfo +instance AttrInfo DOMNavigatorUserAgentPropertyInfo where + type AttrAllowedOps DOMNavigatorUserAgentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorUserAgentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorUserAgentPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorUserAgentPropertyInfo = T.Text + type AttrLabel DOMNavigatorUserAgentPropertyInfo = "DOMNavigator::user-agent" + attrGet _ = getDOMNavigatorUserAgent + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "vendor" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorVendor :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorVendor obj = liftIO $ getObjectPropertyString obj "vendor" + +data DOMNavigatorVendorPropertyInfo +instance AttrInfo DOMNavigatorVendorPropertyInfo where + type AttrAllowedOps DOMNavigatorVendorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorVendorPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorVendorPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorVendorPropertyInfo = T.Text + type AttrLabel DOMNavigatorVendorPropertyInfo = "DOMNavigator::vendor" + attrGet _ = getDOMNavigatorVendor + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "vendor-sub" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNavigatorVendorSub :: (MonadIO m, DOMNavigatorK o) => o -> m T.Text +getDOMNavigatorVendorSub obj = liftIO $ getObjectPropertyString obj "vendor-sub" + +data DOMNavigatorVendorSubPropertyInfo +instance AttrInfo DOMNavigatorVendorSubPropertyInfo where + type AttrAllowedOps DOMNavigatorVendorSubPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorVendorSubPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorVendorSubPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorVendorSubPropertyInfo = T.Text + type AttrLabel DOMNavigatorVendorSubPropertyInfo = "DOMNavigator::vendor-sub" + attrGet _ = getDOMNavigatorVendorSub + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-battery" + -- Type: TInterface "WebKit" "DOMBatteryManager" + -- Flags: [PropertyReadable] + +getDOMNavigatorWebkitBattery :: (MonadIO m, DOMNavigatorK o) => o -> m DOMBatteryManager +getDOMNavigatorWebkitBattery obj = liftIO $ getObjectPropertyObject obj "webkit-battery" DOMBatteryManager + +data DOMNavigatorWebkitBatteryPropertyInfo +instance AttrInfo DOMNavigatorWebkitBatteryPropertyInfo where + type AttrAllowedOps DOMNavigatorWebkitBatteryPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorWebkitBatteryPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorWebkitBatteryPropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorWebkitBatteryPropertyInfo = DOMBatteryManager + type AttrLabel DOMNavigatorWebkitBatteryPropertyInfo = "DOMNavigator::webkit-battery" + attrGet _ = getDOMNavigatorWebkitBattery + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-persistent-storage" + -- Type: TInterface "WebKit" "DOMStorageQuota" + -- Flags: [PropertyReadable] + +getDOMNavigatorWebkitPersistentStorage :: (MonadIO m, DOMNavigatorK o) => o -> m DOMStorageQuota +getDOMNavigatorWebkitPersistentStorage obj = liftIO $ getObjectPropertyObject obj "webkit-persistent-storage" DOMStorageQuota + +data DOMNavigatorWebkitPersistentStoragePropertyInfo +instance AttrInfo DOMNavigatorWebkitPersistentStoragePropertyInfo where + type AttrAllowedOps DOMNavigatorWebkitPersistentStoragePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorWebkitPersistentStoragePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorWebkitPersistentStoragePropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorWebkitPersistentStoragePropertyInfo = DOMStorageQuota + type AttrLabel DOMNavigatorWebkitPersistentStoragePropertyInfo = "DOMNavigator::webkit-persistent-storage" + attrGet _ = getDOMNavigatorWebkitPersistentStorage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-temporary-storage" + -- Type: TInterface "WebKit" "DOMStorageQuota" + -- Flags: [PropertyReadable] + +getDOMNavigatorWebkitTemporaryStorage :: (MonadIO m, DOMNavigatorK o) => o -> m DOMStorageQuota +getDOMNavigatorWebkitTemporaryStorage obj = liftIO $ getObjectPropertyObject obj "webkit-temporary-storage" DOMStorageQuota + +data DOMNavigatorWebkitTemporaryStoragePropertyInfo +instance AttrInfo DOMNavigatorWebkitTemporaryStoragePropertyInfo where + type AttrAllowedOps DOMNavigatorWebkitTemporaryStoragePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNavigatorWebkitTemporaryStoragePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNavigatorWebkitTemporaryStoragePropertyInfo = DOMNavigatorK + type AttrGetType DOMNavigatorWebkitTemporaryStoragePropertyInfo = DOMStorageQuota + type AttrLabel DOMNavigatorWebkitTemporaryStoragePropertyInfo = "DOMNavigator::webkit-temporary-storage" + attrGet _ = getDOMNavigatorWebkitTemporaryStorage + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMNavigator = '[ '("app-code-name", DOMNavigatorAppCodeNamePropertyInfo), '("app-name", DOMNavigatorAppNamePropertyInfo), '("app-version", DOMNavigatorAppVersionPropertyInfo), '("cookie-enabled", DOMNavigatorCookieEnabledPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("geolocation", DOMNavigatorGeolocationPropertyInfo), '("language", DOMNavigatorLanguagePropertyInfo), '("mime-types", DOMNavigatorMimeTypesPropertyInfo), '("on-line", DOMNavigatorOnLinePropertyInfo), '("platform", DOMNavigatorPlatformPropertyInfo), '("plugins", DOMNavigatorPluginsPropertyInfo), '("product", DOMNavigatorProductPropertyInfo), '("product-sub", DOMNavigatorProductSubPropertyInfo), '("user-agent", DOMNavigatorUserAgentPropertyInfo), '("vendor", DOMNavigatorVendorPropertyInfo), '("vendor-sub", DOMNavigatorVendorSubPropertyInfo), '("webkit-battery", DOMNavigatorWebkitBatteryPropertyInfo), '("webkit-persistent-storage", DOMNavigatorWebkitPersistentStoragePropertyInfo), '("webkit-temporary-storage", DOMNavigatorWebkitTemporaryStoragePropertyInfo)] + +-- VVV Prop "base-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNodeBaseUri :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeBaseUri obj = liftIO $ getObjectPropertyString obj "base-uri" + +data DOMNodeBaseUriPropertyInfo +instance AttrInfo DOMNodeBaseUriPropertyInfo where + type AttrAllowedOps DOMNodeBaseUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeBaseUriPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeBaseUriPropertyInfo = DOMNodeK + type AttrGetType DOMNodeBaseUriPropertyInfo = T.Text + type AttrLabel DOMNodeBaseUriPropertyInfo = "DOMNode::base-uri" + attrGet _ = getDOMNodeBaseUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "child-nodes" + -- Type: TInterface "WebKit" "DOMNodeList" + -- Flags: [PropertyReadable] + +getDOMNodeChildNodes :: (MonadIO m, DOMNodeK o) => o -> m DOMNodeList +getDOMNodeChildNodes obj = liftIO $ getObjectPropertyObject obj "child-nodes" DOMNodeList + +data DOMNodeChildNodesPropertyInfo +instance AttrInfo DOMNodeChildNodesPropertyInfo where + type AttrAllowedOps DOMNodeChildNodesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeChildNodesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeChildNodesPropertyInfo = DOMNodeK + type AttrGetType DOMNodeChildNodesPropertyInfo = DOMNodeList + type AttrLabel DOMNodeChildNodesPropertyInfo = "DOMNode::child-nodes" + attrGet _ = getDOMNodeChildNodes + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "first-child" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMNodeFirstChild :: (MonadIO m, DOMNodeK o) => o -> m DOMNode +getDOMNodeFirstChild obj = liftIO $ getObjectPropertyObject obj "first-child" DOMNode + +data DOMNodeFirstChildPropertyInfo +instance AttrInfo DOMNodeFirstChildPropertyInfo where + type AttrAllowedOps DOMNodeFirstChildPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeFirstChildPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeFirstChildPropertyInfo = DOMNodeK + type AttrGetType DOMNodeFirstChildPropertyInfo = DOMNode + type AttrLabel DOMNodeFirstChildPropertyInfo = "DOMNode::first-child" + attrGet _ = getDOMNodeFirstChild + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "last-child" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMNodeLastChild :: (MonadIO m, DOMNodeK o) => o -> m DOMNode +getDOMNodeLastChild obj = liftIO $ getObjectPropertyObject obj "last-child" DOMNode + +data DOMNodeLastChildPropertyInfo +instance AttrInfo DOMNodeLastChildPropertyInfo where + type AttrAllowedOps DOMNodeLastChildPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeLastChildPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeLastChildPropertyInfo = DOMNodeK + type AttrGetType DOMNodeLastChildPropertyInfo = DOMNode + type AttrLabel DOMNodeLastChildPropertyInfo = "DOMNode::last-child" + attrGet _ = getDOMNodeLastChild + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "local-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNodeLocalName :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeLocalName obj = liftIO $ getObjectPropertyString obj "local-name" + +data DOMNodeLocalNamePropertyInfo +instance AttrInfo DOMNodeLocalNamePropertyInfo where + type AttrAllowedOps DOMNodeLocalNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeLocalNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeLocalNamePropertyInfo = DOMNodeK + type AttrGetType DOMNodeLocalNamePropertyInfo = T.Text + type AttrLabel DOMNodeLocalNamePropertyInfo = "DOMNode::local-name" + attrGet _ = getDOMNodeLocalName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "namespace-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNodeNamespaceUri :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeNamespaceUri obj = liftIO $ getObjectPropertyString obj "namespace-uri" + +data DOMNodeNamespaceUriPropertyInfo +instance AttrInfo DOMNodeNamespaceUriPropertyInfo where + type AttrAllowedOps DOMNodeNamespaceUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeNamespaceUriPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeNamespaceUriPropertyInfo = DOMNodeK + type AttrGetType DOMNodeNamespaceUriPropertyInfo = T.Text + type AttrLabel DOMNodeNamespaceUriPropertyInfo = "DOMNode::namespace-uri" + attrGet _ = getDOMNodeNamespaceUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "next-sibling" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMNodeNextSibling :: (MonadIO m, DOMNodeK o) => o -> m DOMNode +getDOMNodeNextSibling obj = liftIO $ getObjectPropertyObject obj "next-sibling" DOMNode + +data DOMNodeNextSiblingPropertyInfo +instance AttrInfo DOMNodeNextSiblingPropertyInfo where + type AttrAllowedOps DOMNodeNextSiblingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeNextSiblingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeNextSiblingPropertyInfo = DOMNodeK + type AttrGetType DOMNodeNextSiblingPropertyInfo = DOMNode + type AttrLabel DOMNodeNextSiblingPropertyInfo = "DOMNode::next-sibling" + attrGet _ = getDOMNodeNextSibling + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "node-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMNodeNodeName :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeNodeName obj = liftIO $ getObjectPropertyString obj "node-name" + +data DOMNodeNodeNamePropertyInfo +instance AttrInfo DOMNodeNodeNamePropertyInfo where + type AttrAllowedOps DOMNodeNodeNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeNodeNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeNodeNamePropertyInfo = DOMNodeK + type AttrGetType DOMNodeNodeNamePropertyInfo = T.Text + type AttrLabel DOMNodeNodeNamePropertyInfo = "DOMNode::node-name" + attrGet _ = getDOMNodeNodeName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "node-type" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMNodeNodeType :: (MonadIO m, DOMNodeK o) => o -> m Word32 +getDOMNodeNodeType obj = liftIO $ getObjectPropertyCUInt obj "node-type" + +data DOMNodeNodeTypePropertyInfo +instance AttrInfo DOMNodeNodeTypePropertyInfo where + type AttrAllowedOps DOMNodeNodeTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeNodeTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeNodeTypePropertyInfo = DOMNodeK + type AttrGetType DOMNodeNodeTypePropertyInfo = Word32 + type AttrLabel DOMNodeNodeTypePropertyInfo = "DOMNode::node-type" + attrGet _ = getDOMNodeNodeType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "node-value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMNodeNodeValue :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeNodeValue obj = liftIO $ getObjectPropertyString obj "node-value" + +setDOMNodeNodeValue :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m () +setDOMNodeNodeValue obj val = liftIO $ setObjectPropertyString obj "node-value" val + +constructDOMNodeNodeValue :: T.Text -> IO ([Char], GValue) +constructDOMNodeNodeValue val = constructObjectPropertyString "node-value" val + +data DOMNodeNodeValuePropertyInfo +instance AttrInfo DOMNodeNodeValuePropertyInfo where + type AttrAllowedOps DOMNodeNodeValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMNodeNodeValuePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMNodeNodeValuePropertyInfo = DOMNodeK + type AttrGetType DOMNodeNodeValuePropertyInfo = T.Text + type AttrLabel DOMNodeNodeValuePropertyInfo = "DOMNode::node-value" + attrGet _ = getDOMNodeNodeValue + attrSet _ = setDOMNodeNodeValue + attrConstruct _ = constructDOMNodeNodeValue + +-- VVV Prop "owner-document" + -- Type: TInterface "WebKit" "DOMDocument" + -- Flags: [PropertyReadable] + +getDOMNodeOwnerDocument :: (MonadIO m, DOMNodeK o) => o -> m DOMDocument +getDOMNodeOwnerDocument obj = liftIO $ getObjectPropertyObject obj "owner-document" DOMDocument + +data DOMNodeOwnerDocumentPropertyInfo +instance AttrInfo DOMNodeOwnerDocumentPropertyInfo where + type AttrAllowedOps DOMNodeOwnerDocumentPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeOwnerDocumentPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeOwnerDocumentPropertyInfo = DOMNodeK + type AttrGetType DOMNodeOwnerDocumentPropertyInfo = DOMDocument + type AttrLabel DOMNodeOwnerDocumentPropertyInfo = "DOMNode::owner-document" + attrGet _ = getDOMNodeOwnerDocument + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "parent-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMNodeParentElement :: (MonadIO m, DOMNodeK o) => o -> m DOMElement +getDOMNodeParentElement obj = liftIO $ getObjectPropertyObject obj "parent-element" DOMElement + +data DOMNodeParentElementPropertyInfo +instance AttrInfo DOMNodeParentElementPropertyInfo where + type AttrAllowedOps DOMNodeParentElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeParentElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeParentElementPropertyInfo = DOMNodeK + type AttrGetType DOMNodeParentElementPropertyInfo = DOMElement + type AttrLabel DOMNodeParentElementPropertyInfo = "DOMNode::parent-element" + attrGet _ = getDOMNodeParentElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "parent-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMNodeParentNode :: (MonadIO m, DOMNodeK o) => o -> m DOMNode +getDOMNodeParentNode obj = liftIO $ getObjectPropertyObject obj "parent-node" DOMNode + +data DOMNodeParentNodePropertyInfo +instance AttrInfo DOMNodeParentNodePropertyInfo where + type AttrAllowedOps DOMNodeParentNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeParentNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeParentNodePropertyInfo = DOMNodeK + type AttrGetType DOMNodeParentNodePropertyInfo = DOMNode + type AttrLabel DOMNodeParentNodePropertyInfo = "DOMNode::parent-node" + attrGet _ = getDOMNodeParentNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "prefix" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodePrefix obj = liftIO $ getObjectPropertyString obj "prefix" + +setDOMNodePrefix :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m () +setDOMNodePrefix obj val = liftIO $ setObjectPropertyString obj "prefix" val + +constructDOMNodePrefix :: T.Text -> IO ([Char], GValue) +constructDOMNodePrefix val = constructObjectPropertyString "prefix" val + +data DOMNodePrefixPropertyInfo +instance AttrInfo DOMNodePrefixPropertyInfo where + type AttrAllowedOps DOMNodePrefixPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMNodePrefixPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMNodePrefixPropertyInfo = DOMNodeK + type AttrGetType DOMNodePrefixPropertyInfo = T.Text + type AttrLabel DOMNodePrefixPropertyInfo = "DOMNode::prefix" + attrGet _ = getDOMNodePrefix + attrSet _ = setDOMNodePrefix + attrConstruct _ = constructDOMNodePrefix + +-- VVV Prop "previous-sibling" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMNodePreviousSibling :: (MonadIO m, DOMNodeK o) => o -> m DOMNode +getDOMNodePreviousSibling obj = liftIO $ getObjectPropertyObject obj "previous-sibling" DOMNode + +data DOMNodePreviousSiblingPropertyInfo +instance AttrInfo DOMNodePreviousSiblingPropertyInfo where + type AttrAllowedOps DOMNodePreviousSiblingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodePreviousSiblingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodePreviousSiblingPropertyInfo = DOMNodeK + type AttrGetType DOMNodePreviousSiblingPropertyInfo = DOMNode + type AttrLabel DOMNodePreviousSiblingPropertyInfo = "DOMNode::previous-sibling" + attrGet _ = getDOMNodePreviousSibling + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "text-content" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMNodeTextContent :: (MonadIO m, DOMNodeK o) => o -> m T.Text +getDOMNodeTextContent obj = liftIO $ getObjectPropertyString obj "text-content" + +setDOMNodeTextContent :: (MonadIO m, DOMNodeK o) => o -> T.Text -> m () +setDOMNodeTextContent obj val = liftIO $ setObjectPropertyString obj "text-content" val + +constructDOMNodeTextContent :: T.Text -> IO ([Char], GValue) +constructDOMNodeTextContent val = constructObjectPropertyString "text-content" val + +data DOMNodeTextContentPropertyInfo +instance AttrInfo DOMNodeTextContentPropertyInfo where + type AttrAllowedOps DOMNodeTextContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMNodeTextContentPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMNodeTextContentPropertyInfo = DOMNodeK + type AttrGetType DOMNodeTextContentPropertyInfo = T.Text + type AttrLabel DOMNodeTextContentPropertyInfo = "DOMNode::text-content" + attrGet _ = getDOMNodeTextContent + attrSet _ = setDOMNodeTextContent + attrConstruct _ = constructDOMNodeTextContent + +type instance AttributeList DOMNode = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] + +type instance AttributeList DOMNodeFilter = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] + +-- VVV Prop "expand-entity-references" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMNodeIteratorExpandEntityReferences :: (MonadIO m, DOMNodeIteratorK o) => o -> m Bool +getDOMNodeIteratorExpandEntityReferences obj = liftIO $ getObjectPropertyBool obj "expand-entity-references" + +data DOMNodeIteratorExpandEntityReferencesPropertyInfo +instance AttrInfo DOMNodeIteratorExpandEntityReferencesPropertyInfo where + type AttrAllowedOps DOMNodeIteratorExpandEntityReferencesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeIteratorExpandEntityReferencesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeIteratorExpandEntityReferencesPropertyInfo = DOMNodeIteratorK + type AttrGetType DOMNodeIteratorExpandEntityReferencesPropertyInfo = Bool + type AttrLabel DOMNodeIteratorExpandEntityReferencesPropertyInfo = "DOMNodeIterator::expand-entity-references" + attrGet _ = getDOMNodeIteratorExpandEntityReferences + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "filter" + -- Type: TInterface "WebKit" "DOMNodeFilter" + -- Flags: [PropertyReadable] + +getDOMNodeIteratorFilter :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNodeFilter +getDOMNodeIteratorFilter obj = liftIO $ getObjectPropertyObject obj "filter" DOMNodeFilter + +data DOMNodeIteratorFilterPropertyInfo +instance AttrInfo DOMNodeIteratorFilterPropertyInfo where + type AttrAllowedOps DOMNodeIteratorFilterPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeIteratorFilterPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeIteratorFilterPropertyInfo = DOMNodeIteratorK + type AttrGetType DOMNodeIteratorFilterPropertyInfo = DOMNodeFilter + type AttrLabel DOMNodeIteratorFilterPropertyInfo = "DOMNodeIterator::filter" + attrGet _ = getDOMNodeIteratorFilter + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "pointer-before-reference-node" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMNodeIteratorPointerBeforeReferenceNode :: (MonadIO m, DOMNodeIteratorK o) => o -> m Bool +getDOMNodeIteratorPointerBeforeReferenceNode obj = liftIO $ getObjectPropertyBool obj "pointer-before-reference-node" + +data DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo +instance AttrInfo DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo where + type AttrAllowedOps DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = DOMNodeIteratorK + type AttrGetType DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = Bool + type AttrLabel DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo = "DOMNodeIterator::pointer-before-reference-node" + attrGet _ = getDOMNodeIteratorPointerBeforeReferenceNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "reference-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMNodeIteratorReferenceNode :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNode +getDOMNodeIteratorReferenceNode obj = liftIO $ getObjectPropertyObject obj "reference-node" DOMNode + +data DOMNodeIteratorReferenceNodePropertyInfo +instance AttrInfo DOMNodeIteratorReferenceNodePropertyInfo where + type AttrAllowedOps DOMNodeIteratorReferenceNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeIteratorReferenceNodePropertyInfo = DOMNodeIteratorK + type AttrGetType DOMNodeIteratorReferenceNodePropertyInfo = DOMNode + type AttrLabel DOMNodeIteratorReferenceNodePropertyInfo = "DOMNodeIterator::reference-node" + attrGet _ = getDOMNodeIteratorReferenceNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "root" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMNodeIteratorRoot :: (MonadIO m, DOMNodeIteratorK o) => o -> m DOMNode +getDOMNodeIteratorRoot obj = liftIO $ getObjectPropertyObject obj "root" DOMNode + +data DOMNodeIteratorRootPropertyInfo +instance AttrInfo DOMNodeIteratorRootPropertyInfo where + type AttrAllowedOps DOMNodeIteratorRootPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeIteratorRootPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeIteratorRootPropertyInfo = DOMNodeIteratorK + type AttrGetType DOMNodeIteratorRootPropertyInfo = DOMNode + type AttrLabel DOMNodeIteratorRootPropertyInfo = "DOMNodeIterator::root" + attrGet _ = getDOMNodeIteratorRoot + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "what-to-show" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMNodeIteratorWhatToShow :: (MonadIO m, DOMNodeIteratorK o) => o -> m Word64 +getDOMNodeIteratorWhatToShow obj = liftIO $ getObjectPropertyUInt64 obj "what-to-show" + +data DOMNodeIteratorWhatToShowPropertyInfo +instance AttrInfo DOMNodeIteratorWhatToShowPropertyInfo where + type AttrAllowedOps DOMNodeIteratorWhatToShowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeIteratorWhatToShowPropertyInfo = DOMNodeIteratorK + type AttrGetType DOMNodeIteratorWhatToShowPropertyInfo = Word64 + type AttrLabel DOMNodeIteratorWhatToShowPropertyInfo = "DOMNodeIterator::what-to-show" + attrGet _ = getDOMNodeIteratorWhatToShow + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMNodeIterator = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("expand-entity-references", DOMNodeIteratorExpandEntityReferencesPropertyInfo), '("filter", DOMNodeIteratorFilterPropertyInfo), '("pointer-before-reference-node", DOMNodeIteratorPointerBeforeReferenceNodePropertyInfo), '("reference-node", DOMNodeIteratorReferenceNodePropertyInfo), '("root", DOMNodeIteratorRootPropertyInfo), '("what-to-show", DOMNodeIteratorWhatToShowPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMNodeListLength :: (MonadIO m, DOMNodeListK o) => o -> m Word64 +getDOMNodeListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMNodeListLengthPropertyInfo +instance AttrInfo DOMNodeListLengthPropertyInfo where + type AttrAllowedOps DOMNodeListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMNodeListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMNodeListLengthPropertyInfo = DOMNodeListK + type AttrGetType DOMNodeListLengthPropertyInfo = Word64 + type AttrLabel DOMNodeListLengthPropertyInfo = "DOMNodeList::length" + attrGet _ = getDOMNodeListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMNodeList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMNodeListLengthPropertyInfo)] + +-- VVV Prop "core-object" + -- Type: TBasicType TVoid + -- Flags: [PropertyWritable,PropertyConstructOnly] + +constructDOMObjectCoreObject :: (Ptr ()) -> IO ([Char], GValue) +constructDOMObjectCoreObject val = constructObjectPropertyPtr "core-object" val + +data DOMObjectCoreObjectPropertyInfo +instance AttrInfo DOMObjectCoreObjectPropertyInfo where + type AttrAllowedOps DOMObjectCoreObjectPropertyInfo = '[ 'AttrConstruct] + type AttrSetTypeConstraint DOMObjectCoreObjectPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint DOMObjectCoreObjectPropertyInfo = DOMObjectK + type AttrGetType DOMObjectCoreObjectPropertyInfo = () + type AttrLabel DOMObjectCoreObjectPropertyInfo = "DOMObject::core-object" + attrGet _ = undefined + attrSet _ = undefined + attrConstruct _ = constructDOMObjectCoreObject + +type instance AttributeList DOMObject = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] + +-- VVV Prop "navigation" + -- Type: TInterface "WebKit" "DOMPerformanceNavigation" + -- Flags: [PropertyReadable] + +getDOMPerformanceNavigation :: (MonadIO m, DOMPerformanceK o) => o -> m DOMPerformanceNavigation +getDOMPerformanceNavigation obj = liftIO $ getObjectPropertyObject obj "navigation" DOMPerformanceNavigation + +data DOMPerformanceNavigationPropertyInfo +instance AttrInfo DOMPerformanceNavigationPropertyInfo where + type AttrAllowedOps DOMPerformanceNavigationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceNavigationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceNavigationPropertyInfo = DOMPerformanceK + type AttrGetType DOMPerformanceNavigationPropertyInfo = DOMPerformanceNavigation + type AttrLabel DOMPerformanceNavigationPropertyInfo = "DOMPerformance::navigation" + attrGet _ = getDOMPerformanceNavigation + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "timing" + -- Type: TInterface "WebKit" "DOMPerformanceTiming" + -- Flags: [PropertyReadable] + +getDOMPerformanceTiming :: (MonadIO m, DOMPerformanceK o) => o -> m DOMPerformanceTiming +getDOMPerformanceTiming obj = liftIO $ getObjectPropertyObject obj "timing" DOMPerformanceTiming + +data DOMPerformanceTimingPropertyInfo +instance AttrInfo DOMPerformanceTimingPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingPropertyInfo = DOMPerformanceK + type AttrGetType DOMPerformanceTimingPropertyInfo = DOMPerformanceTiming + type AttrLabel DOMPerformanceTimingPropertyInfo = "DOMPerformance::timing" + attrGet _ = getDOMPerformanceTiming + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMPerformance = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("navigation", DOMPerformanceNavigationPropertyInfo), '("timing", DOMPerformanceTimingPropertyInfo)] + +-- VVV Prop "duration" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMPerformanceEntryDuration :: (MonadIO m, DOMPerformanceEntryK o) => o -> m Double +getDOMPerformanceEntryDuration obj = liftIO $ getObjectPropertyDouble obj "duration" + +data DOMPerformanceEntryDurationPropertyInfo +instance AttrInfo DOMPerformanceEntryDurationPropertyInfo where + type AttrAllowedOps DOMPerformanceEntryDurationPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceEntryDurationPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceEntryDurationPropertyInfo = DOMPerformanceEntryK + type AttrGetType DOMPerformanceEntryDurationPropertyInfo = Double + type AttrLabel DOMPerformanceEntryDurationPropertyInfo = "DOMPerformanceEntry::duration" + attrGet _ = getDOMPerformanceEntryDuration + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "entry-type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMPerformanceEntryEntryType :: (MonadIO m, DOMPerformanceEntryK o) => o -> m T.Text +getDOMPerformanceEntryEntryType obj = liftIO $ getObjectPropertyString obj "entry-type" + +data DOMPerformanceEntryEntryTypePropertyInfo +instance AttrInfo DOMPerformanceEntryEntryTypePropertyInfo where + type AttrAllowedOps DOMPerformanceEntryEntryTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceEntryEntryTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceEntryEntryTypePropertyInfo = DOMPerformanceEntryK + type AttrGetType DOMPerformanceEntryEntryTypePropertyInfo = T.Text + type AttrLabel DOMPerformanceEntryEntryTypePropertyInfo = "DOMPerformanceEntry::entry-type" + attrGet _ = getDOMPerformanceEntryEntryType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMPerformanceEntryName :: (MonadIO m, DOMPerformanceEntryK o) => o -> m T.Text +getDOMPerformanceEntryName obj = liftIO $ getObjectPropertyString obj "name" + +data DOMPerformanceEntryNamePropertyInfo +instance AttrInfo DOMPerformanceEntryNamePropertyInfo where + type AttrAllowedOps DOMPerformanceEntryNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceEntryNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceEntryNamePropertyInfo = DOMPerformanceEntryK + type AttrGetType DOMPerformanceEntryNamePropertyInfo = T.Text + type AttrLabel DOMPerformanceEntryNamePropertyInfo = "DOMPerformanceEntry::name" + attrGet _ = getDOMPerformanceEntryName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "start-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMPerformanceEntryStartTime :: (MonadIO m, DOMPerformanceEntryK o) => o -> m Double +getDOMPerformanceEntryStartTime obj = liftIO $ getObjectPropertyDouble obj "start-time" + +data DOMPerformanceEntryStartTimePropertyInfo +instance AttrInfo DOMPerformanceEntryStartTimePropertyInfo where + type AttrAllowedOps DOMPerformanceEntryStartTimePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceEntryStartTimePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceEntryStartTimePropertyInfo = DOMPerformanceEntryK + type AttrGetType DOMPerformanceEntryStartTimePropertyInfo = Double + type AttrLabel DOMPerformanceEntryStartTimePropertyInfo = "DOMPerformanceEntry::start-time" + attrGet _ = getDOMPerformanceEntryStartTime + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMPerformanceEntry = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("duration", DOMPerformanceEntryDurationPropertyInfo), '("entry-type", DOMPerformanceEntryEntryTypePropertyInfo), '("name", DOMPerformanceEntryNamePropertyInfo), '("start-time", DOMPerformanceEntryStartTimePropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceEntryListLength :: (MonadIO m, DOMPerformanceEntryListK o) => o -> m Word64 +getDOMPerformanceEntryListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMPerformanceEntryListLengthPropertyInfo +instance AttrInfo DOMPerformanceEntryListLengthPropertyInfo where + type AttrAllowedOps DOMPerformanceEntryListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceEntryListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceEntryListLengthPropertyInfo = DOMPerformanceEntryListK + type AttrGetType DOMPerformanceEntryListLengthPropertyInfo = Word64 + type AttrLabel DOMPerformanceEntryListLengthPropertyInfo = "DOMPerformanceEntryList::length" + attrGet _ = getDOMPerformanceEntryListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMPerformanceEntryList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMPerformanceEntryListLengthPropertyInfo)] + +-- VVV Prop "redirect-count" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMPerformanceNavigationRedirectCount :: (MonadIO m, DOMPerformanceNavigationK o) => o -> m Word32 +getDOMPerformanceNavigationRedirectCount obj = liftIO $ getObjectPropertyCUInt obj "redirect-count" + +data DOMPerformanceNavigationRedirectCountPropertyInfo +instance AttrInfo DOMPerformanceNavigationRedirectCountPropertyInfo where + type AttrAllowedOps DOMPerformanceNavigationRedirectCountPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceNavigationRedirectCountPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceNavigationRedirectCountPropertyInfo = DOMPerformanceNavigationK + type AttrGetType DOMPerformanceNavigationRedirectCountPropertyInfo = Word32 + type AttrLabel DOMPerformanceNavigationRedirectCountPropertyInfo = "DOMPerformanceNavigation::redirect-count" + attrGet _ = getDOMPerformanceNavigationRedirectCount + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMPerformanceNavigationType :: (MonadIO m, DOMPerformanceNavigationK o) => o -> m Word32 +getDOMPerformanceNavigationType obj = liftIO $ getObjectPropertyCUInt obj "type" + +data DOMPerformanceNavigationTypePropertyInfo +instance AttrInfo DOMPerformanceNavigationTypePropertyInfo where + type AttrAllowedOps DOMPerformanceNavigationTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceNavigationTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceNavigationTypePropertyInfo = DOMPerformanceNavigationK + type AttrGetType DOMPerformanceNavigationTypePropertyInfo = Word32 + type AttrLabel DOMPerformanceNavigationTypePropertyInfo = "DOMPerformanceNavigation::type" + attrGet _ = getDOMPerformanceNavigationType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMPerformanceNavigation = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("redirect-count", DOMPerformanceNavigationRedirectCountPropertyInfo), '("type", DOMPerformanceNavigationTypePropertyInfo)] + +-- VVV Prop "connect-end" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingConnectEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingConnectEnd obj = liftIO $ getObjectPropertyUInt64 obj "connect-end" + +data DOMPerformanceTimingConnectEndPropertyInfo +instance AttrInfo DOMPerformanceTimingConnectEndPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingConnectEndPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingConnectEndPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingConnectEndPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingConnectEndPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingConnectEndPropertyInfo = "DOMPerformanceTiming::connect-end" + attrGet _ = getDOMPerformanceTimingConnectEnd + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "connect-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingConnectStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingConnectStart obj = liftIO $ getObjectPropertyUInt64 obj "connect-start" + +data DOMPerformanceTimingConnectStartPropertyInfo +instance AttrInfo DOMPerformanceTimingConnectStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingConnectStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingConnectStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingConnectStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingConnectStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingConnectStartPropertyInfo = "DOMPerformanceTiming::connect-start" + attrGet _ = getDOMPerformanceTimingConnectStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "dom-complete" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingDomComplete :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingDomComplete obj = liftIO $ getObjectPropertyUInt64 obj "dom-complete" + +data DOMPerformanceTimingDomCompletePropertyInfo +instance AttrInfo DOMPerformanceTimingDomCompletePropertyInfo where + type AttrAllowedOps DOMPerformanceTimingDomCompletePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingDomCompletePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingDomCompletePropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingDomCompletePropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingDomCompletePropertyInfo = "DOMPerformanceTiming::dom-complete" + attrGet _ = getDOMPerformanceTimingDomComplete + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "dom-content-loaded-event-end" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingDomContentLoadedEventEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingDomContentLoadedEventEnd obj = liftIO $ getObjectPropertyUInt64 obj "dom-content-loaded-event-end" + +data DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo +instance AttrInfo DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo = "DOMPerformanceTiming::dom-content-loaded-event-end" + attrGet _ = getDOMPerformanceTimingDomContentLoadedEventEnd + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "dom-content-loaded-event-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingDomContentLoadedEventStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingDomContentLoadedEventStart obj = liftIO $ getObjectPropertyUInt64 obj "dom-content-loaded-event-start" + +data DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo +instance AttrInfo DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo = "DOMPerformanceTiming::dom-content-loaded-event-start" + attrGet _ = getDOMPerformanceTimingDomContentLoadedEventStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "dom-interactive" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingDomInteractive :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingDomInteractive obj = liftIO $ getObjectPropertyUInt64 obj "dom-interactive" + +data DOMPerformanceTimingDomInteractivePropertyInfo +instance AttrInfo DOMPerformanceTimingDomInteractivePropertyInfo where + type AttrAllowedOps DOMPerformanceTimingDomInteractivePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingDomInteractivePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingDomInteractivePropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingDomInteractivePropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingDomInteractivePropertyInfo = "DOMPerformanceTiming::dom-interactive" + attrGet _ = getDOMPerformanceTimingDomInteractive + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "dom-loading" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingDomLoading :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingDomLoading obj = liftIO $ getObjectPropertyUInt64 obj "dom-loading" + +data DOMPerformanceTimingDomLoadingPropertyInfo +instance AttrInfo DOMPerformanceTimingDomLoadingPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingDomLoadingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingDomLoadingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingDomLoadingPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingDomLoadingPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingDomLoadingPropertyInfo = "DOMPerformanceTiming::dom-loading" + attrGet _ = getDOMPerformanceTimingDomLoading + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "domain-lookup-end" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingDomainLookupEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingDomainLookupEnd obj = liftIO $ getObjectPropertyUInt64 obj "domain-lookup-end" + +data DOMPerformanceTimingDomainLookupEndPropertyInfo +instance AttrInfo DOMPerformanceTimingDomainLookupEndPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingDomainLookupEndPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingDomainLookupEndPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingDomainLookupEndPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingDomainLookupEndPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingDomainLookupEndPropertyInfo = "DOMPerformanceTiming::domain-lookup-end" + attrGet _ = getDOMPerformanceTimingDomainLookupEnd + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "domain-lookup-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingDomainLookupStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingDomainLookupStart obj = liftIO $ getObjectPropertyUInt64 obj "domain-lookup-start" + +data DOMPerformanceTimingDomainLookupStartPropertyInfo +instance AttrInfo DOMPerformanceTimingDomainLookupStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingDomainLookupStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingDomainLookupStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingDomainLookupStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingDomainLookupStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingDomainLookupStartPropertyInfo = "DOMPerformanceTiming::domain-lookup-start" + attrGet _ = getDOMPerformanceTimingDomainLookupStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "fetch-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingFetchStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingFetchStart obj = liftIO $ getObjectPropertyUInt64 obj "fetch-start" + +data DOMPerformanceTimingFetchStartPropertyInfo +instance AttrInfo DOMPerformanceTimingFetchStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingFetchStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingFetchStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingFetchStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingFetchStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingFetchStartPropertyInfo = "DOMPerformanceTiming::fetch-start" + attrGet _ = getDOMPerformanceTimingFetchStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "load-event-end" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingLoadEventEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingLoadEventEnd obj = liftIO $ getObjectPropertyUInt64 obj "load-event-end" + +data DOMPerformanceTimingLoadEventEndPropertyInfo +instance AttrInfo DOMPerformanceTimingLoadEventEndPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingLoadEventEndPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingLoadEventEndPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingLoadEventEndPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingLoadEventEndPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingLoadEventEndPropertyInfo = "DOMPerformanceTiming::load-event-end" + attrGet _ = getDOMPerformanceTimingLoadEventEnd + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "load-event-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingLoadEventStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingLoadEventStart obj = liftIO $ getObjectPropertyUInt64 obj "load-event-start" + +data DOMPerformanceTimingLoadEventStartPropertyInfo +instance AttrInfo DOMPerformanceTimingLoadEventStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingLoadEventStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingLoadEventStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingLoadEventStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingLoadEventStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingLoadEventStartPropertyInfo = "DOMPerformanceTiming::load-event-start" + attrGet _ = getDOMPerformanceTimingLoadEventStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "navigation-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingNavigationStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingNavigationStart obj = liftIO $ getObjectPropertyUInt64 obj "navigation-start" + +data DOMPerformanceTimingNavigationStartPropertyInfo +instance AttrInfo DOMPerformanceTimingNavigationStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingNavigationStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingNavigationStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingNavigationStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingNavigationStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingNavigationStartPropertyInfo = "DOMPerformanceTiming::navigation-start" + attrGet _ = getDOMPerformanceTimingNavigationStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "redirect-end" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingRedirectEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingRedirectEnd obj = liftIO $ getObjectPropertyUInt64 obj "redirect-end" + +data DOMPerformanceTimingRedirectEndPropertyInfo +instance AttrInfo DOMPerformanceTimingRedirectEndPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingRedirectEndPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingRedirectEndPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingRedirectEndPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingRedirectEndPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingRedirectEndPropertyInfo = "DOMPerformanceTiming::redirect-end" + attrGet _ = getDOMPerformanceTimingRedirectEnd + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "redirect-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingRedirectStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingRedirectStart obj = liftIO $ getObjectPropertyUInt64 obj "redirect-start" + +data DOMPerformanceTimingRedirectStartPropertyInfo +instance AttrInfo DOMPerformanceTimingRedirectStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingRedirectStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingRedirectStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingRedirectStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingRedirectStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingRedirectStartPropertyInfo = "DOMPerformanceTiming::redirect-start" + attrGet _ = getDOMPerformanceTimingRedirectStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "request-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingRequestStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingRequestStart obj = liftIO $ getObjectPropertyUInt64 obj "request-start" + +data DOMPerformanceTimingRequestStartPropertyInfo +instance AttrInfo DOMPerformanceTimingRequestStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingRequestStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingRequestStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingRequestStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingRequestStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingRequestStartPropertyInfo = "DOMPerformanceTiming::request-start" + attrGet _ = getDOMPerformanceTimingRequestStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "response-end" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingResponseEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingResponseEnd obj = liftIO $ getObjectPropertyUInt64 obj "response-end" + +data DOMPerformanceTimingResponseEndPropertyInfo +instance AttrInfo DOMPerformanceTimingResponseEndPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingResponseEndPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingResponseEndPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingResponseEndPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingResponseEndPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingResponseEndPropertyInfo = "DOMPerformanceTiming::response-end" + attrGet _ = getDOMPerformanceTimingResponseEnd + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "response-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingResponseStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingResponseStart obj = liftIO $ getObjectPropertyUInt64 obj "response-start" + +data DOMPerformanceTimingResponseStartPropertyInfo +instance AttrInfo DOMPerformanceTimingResponseStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingResponseStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingResponseStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingResponseStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingResponseStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingResponseStartPropertyInfo = "DOMPerformanceTiming::response-start" + attrGet _ = getDOMPerformanceTimingResponseStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "secure-connection-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingSecureConnectionStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingSecureConnectionStart obj = liftIO $ getObjectPropertyUInt64 obj "secure-connection-start" + +data DOMPerformanceTimingSecureConnectionStartPropertyInfo +instance AttrInfo DOMPerformanceTimingSecureConnectionStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingSecureConnectionStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingSecureConnectionStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingSecureConnectionStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingSecureConnectionStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingSecureConnectionStartPropertyInfo = "DOMPerformanceTiming::secure-connection-start" + attrGet _ = getDOMPerformanceTimingSecureConnectionStart + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "unload-event-end" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingUnloadEventEnd :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingUnloadEventEnd obj = liftIO $ getObjectPropertyUInt64 obj "unload-event-end" + +data DOMPerformanceTimingUnloadEventEndPropertyInfo +instance AttrInfo DOMPerformanceTimingUnloadEventEndPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingUnloadEventEndPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingUnloadEventEndPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingUnloadEventEndPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingUnloadEventEndPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingUnloadEventEndPropertyInfo = "DOMPerformanceTiming::unload-event-end" + attrGet _ = getDOMPerformanceTimingUnloadEventEnd + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "unload-event-start" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPerformanceTimingUnloadEventStart :: (MonadIO m, DOMPerformanceTimingK o) => o -> m Word64 +getDOMPerformanceTimingUnloadEventStart obj = liftIO $ getObjectPropertyUInt64 obj "unload-event-start" + +data DOMPerformanceTimingUnloadEventStartPropertyInfo +instance AttrInfo DOMPerformanceTimingUnloadEventStartPropertyInfo where + type AttrAllowedOps DOMPerformanceTimingUnloadEventStartPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPerformanceTimingUnloadEventStartPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPerformanceTimingUnloadEventStartPropertyInfo = DOMPerformanceTimingK + type AttrGetType DOMPerformanceTimingUnloadEventStartPropertyInfo = Word64 + type AttrLabel DOMPerformanceTimingUnloadEventStartPropertyInfo = "DOMPerformanceTiming::unload-event-start" + attrGet _ = getDOMPerformanceTimingUnloadEventStart + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMPerformanceTiming = '[ '("connect-end", DOMPerformanceTimingConnectEndPropertyInfo), '("connect-start", DOMPerformanceTimingConnectStartPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("dom-complete", DOMPerformanceTimingDomCompletePropertyInfo), '("dom-content-loaded-event-end", DOMPerformanceTimingDomContentLoadedEventEndPropertyInfo), '("dom-content-loaded-event-start", DOMPerformanceTimingDomContentLoadedEventStartPropertyInfo), '("dom-interactive", DOMPerformanceTimingDomInteractivePropertyInfo), '("dom-loading", DOMPerformanceTimingDomLoadingPropertyInfo), '("domain-lookup-end", DOMPerformanceTimingDomainLookupEndPropertyInfo), '("domain-lookup-start", DOMPerformanceTimingDomainLookupStartPropertyInfo), '("fetch-start", DOMPerformanceTimingFetchStartPropertyInfo), '("load-event-end", DOMPerformanceTimingLoadEventEndPropertyInfo), '("load-event-start", DOMPerformanceTimingLoadEventStartPropertyInfo), '("navigation-start", DOMPerformanceTimingNavigationStartPropertyInfo), '("redirect-end", DOMPerformanceTimingRedirectEndPropertyInfo), '("redirect-start", DOMPerformanceTimingRedirectStartPropertyInfo), '("request-start", DOMPerformanceTimingRequestStartPropertyInfo), '("response-end", DOMPerformanceTimingResponseEndPropertyInfo), '("response-start", DOMPerformanceTimingResponseStartPropertyInfo), '("secure-connection-start", DOMPerformanceTimingSecureConnectionStartPropertyInfo), '("unload-event-end", DOMPerformanceTimingUnloadEventEndPropertyInfo), '("unload-event-start", DOMPerformanceTimingUnloadEventStartPropertyInfo)] + +-- VVV Prop "sheet" + -- Type: TInterface "WebKit" "DOMStyleSheet" + -- Flags: [PropertyReadable] + +getDOMProcessingInstructionSheet :: (MonadIO m, DOMProcessingInstructionK o) => o -> m DOMStyleSheet +getDOMProcessingInstructionSheet obj = liftIO $ getObjectPropertyObject obj "sheet" DOMStyleSheet + +data DOMProcessingInstructionSheetPropertyInfo +instance AttrInfo DOMProcessingInstructionSheetPropertyInfo where + type AttrAllowedOps DOMProcessingInstructionSheetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMProcessingInstructionSheetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMProcessingInstructionSheetPropertyInfo = DOMProcessingInstructionK + type AttrGetType DOMProcessingInstructionSheetPropertyInfo = DOMStyleSheet + type AttrLabel DOMProcessingInstructionSheetPropertyInfo = "DOMProcessingInstruction::sheet" + attrGet _ = getDOMProcessingInstructionSheet + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "target" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMProcessingInstructionTarget :: (MonadIO m, DOMProcessingInstructionK o) => o -> m T.Text +getDOMProcessingInstructionTarget obj = liftIO $ getObjectPropertyString obj "target" + +data DOMProcessingInstructionTargetPropertyInfo +instance AttrInfo DOMProcessingInstructionTargetPropertyInfo where + type AttrAllowedOps DOMProcessingInstructionTargetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMProcessingInstructionTargetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMProcessingInstructionTargetPropertyInfo = DOMProcessingInstructionK + type AttrGetType DOMProcessingInstructionTargetPropertyInfo = T.Text + type AttrLabel DOMProcessingInstructionTargetPropertyInfo = "DOMProcessingInstruction::target" + attrGet _ = getDOMProcessingInstructionTarget + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMProcessingInstruction = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("sheet", DOMProcessingInstructionSheetPropertyInfo), '("target", DOMProcessingInstructionTargetPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMPropertyNodeListLength :: (MonadIO m, DOMPropertyNodeListK o) => o -> m Word64 +getDOMPropertyNodeListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMPropertyNodeListLengthPropertyInfo +instance AttrInfo DOMPropertyNodeListLengthPropertyInfo where + type AttrAllowedOps DOMPropertyNodeListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMPropertyNodeListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMPropertyNodeListLengthPropertyInfo = DOMPropertyNodeListK + type AttrGetType DOMPropertyNodeListLengthPropertyInfo = Word64 + type AttrLabel DOMPropertyNodeListLengthPropertyInfo = "DOMPropertyNodeList::length" + attrGet _ = getDOMPropertyNodeListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMPropertyNodeList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMPropertyNodeListLengthPropertyInfo)] + +-- VVV Prop "collapsed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMRangeCollapsed :: (MonadIO m, DOMRangeK o) => o -> m Bool +getDOMRangeCollapsed obj = liftIO $ getObjectPropertyBool obj "collapsed" + +data DOMRangeCollapsedPropertyInfo +instance AttrInfo DOMRangeCollapsedPropertyInfo where + type AttrAllowedOps DOMRangeCollapsedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMRangeCollapsedPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMRangeCollapsedPropertyInfo = DOMRangeK + type AttrGetType DOMRangeCollapsedPropertyInfo = Bool + type AttrLabel DOMRangeCollapsedPropertyInfo = "DOMRange::collapsed" + attrGet _ = getDOMRangeCollapsed + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "common-ancestor-container" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMRangeCommonAncestorContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode +getDOMRangeCommonAncestorContainer obj = liftIO $ getObjectPropertyObject obj "common-ancestor-container" DOMNode + +data DOMRangeCommonAncestorContainerPropertyInfo +instance AttrInfo DOMRangeCommonAncestorContainerPropertyInfo where + type AttrAllowedOps DOMRangeCommonAncestorContainerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMRangeCommonAncestorContainerPropertyInfo = DOMRangeK + type AttrGetType DOMRangeCommonAncestorContainerPropertyInfo = DOMNode + type AttrLabel DOMRangeCommonAncestorContainerPropertyInfo = "DOMRange::common-ancestor-container" + attrGet _ = getDOMRangeCommonAncestorContainer + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "end-container" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMRangeEndContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode +getDOMRangeEndContainer obj = liftIO $ getObjectPropertyObject obj "end-container" DOMNode + +data DOMRangeEndContainerPropertyInfo +instance AttrInfo DOMRangeEndContainerPropertyInfo where + type AttrAllowedOps DOMRangeEndContainerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMRangeEndContainerPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMRangeEndContainerPropertyInfo = DOMRangeK + type AttrGetType DOMRangeEndContainerPropertyInfo = DOMNode + type AttrLabel DOMRangeEndContainerPropertyInfo = "DOMRange::end-container" + attrGet _ = getDOMRangeEndContainer + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "end-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMRangeEndOffset :: (MonadIO m, DOMRangeK o) => o -> m Int64 +getDOMRangeEndOffset obj = liftIO $ getObjectPropertyInt64 obj "end-offset" + +data DOMRangeEndOffsetPropertyInfo +instance AttrInfo DOMRangeEndOffsetPropertyInfo where + type AttrAllowedOps DOMRangeEndOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMRangeEndOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMRangeEndOffsetPropertyInfo = DOMRangeK + type AttrGetType DOMRangeEndOffsetPropertyInfo = Int64 + type AttrLabel DOMRangeEndOffsetPropertyInfo = "DOMRange::end-offset" + attrGet _ = getDOMRangeEndOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "start-container" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMRangeStartContainer :: (MonadIO m, DOMRangeK o) => o -> m DOMNode +getDOMRangeStartContainer obj = liftIO $ getObjectPropertyObject obj "start-container" DOMNode + +data DOMRangeStartContainerPropertyInfo +instance AttrInfo DOMRangeStartContainerPropertyInfo where + type AttrAllowedOps DOMRangeStartContainerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMRangeStartContainerPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMRangeStartContainerPropertyInfo = DOMRangeK + type AttrGetType DOMRangeStartContainerPropertyInfo = DOMNode + type AttrLabel DOMRangeStartContainerPropertyInfo = "DOMRange::start-container" + attrGet _ = getDOMRangeStartContainer + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "start-offset" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMRangeStartOffset :: (MonadIO m, DOMRangeK o) => o -> m Int64 +getDOMRangeStartOffset obj = liftIO $ getObjectPropertyInt64 obj "start-offset" + +data DOMRangeStartOffsetPropertyInfo +instance AttrInfo DOMRangeStartOffsetPropertyInfo where + type AttrAllowedOps DOMRangeStartOffsetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMRangeStartOffsetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMRangeStartOffsetPropertyInfo = DOMRangeK + type AttrGetType DOMRangeStartOffsetPropertyInfo = Int64 + type AttrLabel DOMRangeStartOffsetPropertyInfo = "DOMRange::start-offset" + attrGet _ = getDOMRangeStartOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMRangeText :: (MonadIO m, DOMRangeK o) => o -> m T.Text +getDOMRangeText obj = liftIO $ getObjectPropertyString obj "text" + +data DOMRangeTextPropertyInfo +instance AttrInfo DOMRangeTextPropertyInfo where + type AttrAllowedOps DOMRangeTextPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMRangeTextPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMRangeTextPropertyInfo = DOMRangeK + type AttrGetType DOMRangeTextPropertyInfo = T.Text + type AttrLabel DOMRangeTextPropertyInfo = "DOMRange::text" + attrGet _ = getDOMRangeText + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMRange = '[ '("collapsed", DOMRangeCollapsedPropertyInfo), '("common-ancestor-container", DOMRangeCommonAncestorContainerPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("end-container", DOMRangeEndContainerPropertyInfo), '("end-offset", DOMRangeEndOffsetPropertyInfo), '("start-container", DOMRangeStartContainerPropertyInfo), '("start-offset", DOMRangeStartOffsetPropertyInfo), '("text", DOMRangeTextPropertyInfo)] + +-- VVV Prop "avail-height" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMScreenAvailHeight :: (MonadIO m, DOMScreenK o) => o -> m Word64 +getDOMScreenAvailHeight obj = liftIO $ getObjectPropertyUInt64 obj "avail-height" + +data DOMScreenAvailHeightPropertyInfo +instance AttrInfo DOMScreenAvailHeightPropertyInfo where + type AttrAllowedOps DOMScreenAvailHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenAvailHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenAvailHeightPropertyInfo = DOMScreenK + type AttrGetType DOMScreenAvailHeightPropertyInfo = Word64 + type AttrLabel DOMScreenAvailHeightPropertyInfo = "DOMScreen::avail-height" + attrGet _ = getDOMScreenAvailHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "avail-left" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMScreenAvailLeft :: (MonadIO m, DOMScreenK o) => o -> m Int64 +getDOMScreenAvailLeft obj = liftIO $ getObjectPropertyInt64 obj "avail-left" + +data DOMScreenAvailLeftPropertyInfo +instance AttrInfo DOMScreenAvailLeftPropertyInfo where + type AttrAllowedOps DOMScreenAvailLeftPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenAvailLeftPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenAvailLeftPropertyInfo = DOMScreenK + type AttrGetType DOMScreenAvailLeftPropertyInfo = Int64 + type AttrLabel DOMScreenAvailLeftPropertyInfo = "DOMScreen::avail-left" + attrGet _ = getDOMScreenAvailLeft + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "avail-top" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMScreenAvailTop :: (MonadIO m, DOMScreenK o) => o -> m Int64 +getDOMScreenAvailTop obj = liftIO $ getObjectPropertyInt64 obj "avail-top" + +data DOMScreenAvailTopPropertyInfo +instance AttrInfo DOMScreenAvailTopPropertyInfo where + type AttrAllowedOps DOMScreenAvailTopPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenAvailTopPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenAvailTopPropertyInfo = DOMScreenK + type AttrGetType DOMScreenAvailTopPropertyInfo = Int64 + type AttrLabel DOMScreenAvailTopPropertyInfo = "DOMScreen::avail-top" + attrGet _ = getDOMScreenAvailTop + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "avail-width" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMScreenAvailWidth :: (MonadIO m, DOMScreenK o) => o -> m Word64 +getDOMScreenAvailWidth obj = liftIO $ getObjectPropertyUInt64 obj "avail-width" + +data DOMScreenAvailWidthPropertyInfo +instance AttrInfo DOMScreenAvailWidthPropertyInfo where + type AttrAllowedOps DOMScreenAvailWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenAvailWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenAvailWidthPropertyInfo = DOMScreenK + type AttrGetType DOMScreenAvailWidthPropertyInfo = Word64 + type AttrLabel DOMScreenAvailWidthPropertyInfo = "DOMScreen::avail-width" + attrGet _ = getDOMScreenAvailWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "color-depth" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMScreenColorDepth :: (MonadIO m, DOMScreenK o) => o -> m Word64 +getDOMScreenColorDepth obj = liftIO $ getObjectPropertyUInt64 obj "color-depth" + +data DOMScreenColorDepthPropertyInfo +instance AttrInfo DOMScreenColorDepthPropertyInfo where + type AttrAllowedOps DOMScreenColorDepthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenColorDepthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenColorDepthPropertyInfo = DOMScreenK + type AttrGetType DOMScreenColorDepthPropertyInfo = Word64 + type AttrLabel DOMScreenColorDepthPropertyInfo = "DOMScreen::color-depth" + attrGet _ = getDOMScreenColorDepth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "height" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMScreenHeight :: (MonadIO m, DOMScreenK o) => o -> m Word64 +getDOMScreenHeight obj = liftIO $ getObjectPropertyUInt64 obj "height" + +data DOMScreenHeightPropertyInfo +instance AttrInfo DOMScreenHeightPropertyInfo where + type AttrAllowedOps DOMScreenHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenHeightPropertyInfo = DOMScreenK + type AttrGetType DOMScreenHeightPropertyInfo = Word64 + type AttrLabel DOMScreenHeightPropertyInfo = "DOMScreen::height" + attrGet _ = getDOMScreenHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "pixel-depth" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMScreenPixelDepth :: (MonadIO m, DOMScreenK o) => o -> m Word64 +getDOMScreenPixelDepth obj = liftIO $ getObjectPropertyUInt64 obj "pixel-depth" + +data DOMScreenPixelDepthPropertyInfo +instance AttrInfo DOMScreenPixelDepthPropertyInfo where + type AttrAllowedOps DOMScreenPixelDepthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenPixelDepthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenPixelDepthPropertyInfo = DOMScreenK + type AttrGetType DOMScreenPixelDepthPropertyInfo = Word64 + type AttrLabel DOMScreenPixelDepthPropertyInfo = "DOMScreen::pixel-depth" + attrGet _ = getDOMScreenPixelDepth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "width" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMScreenWidth :: (MonadIO m, DOMScreenK o) => o -> m Word64 +getDOMScreenWidth obj = liftIO $ getObjectPropertyUInt64 obj "width" + +data DOMScreenWidthPropertyInfo +instance AttrInfo DOMScreenWidthPropertyInfo where + type AttrAllowedOps DOMScreenWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMScreenWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMScreenWidthPropertyInfo = DOMScreenK + type AttrGetType DOMScreenWidthPropertyInfo = Word64 + type AttrLabel DOMScreenWidthPropertyInfo = "DOMScreen::width" + attrGet _ = getDOMScreenWidth + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMScreen = '[ '("avail-height", DOMScreenAvailHeightPropertyInfo), '("avail-left", DOMScreenAvailLeftPropertyInfo), '("avail-top", DOMScreenAvailTopPropertyInfo), '("avail-width", DOMScreenAvailWidthPropertyInfo), '("color-depth", DOMScreenColorDepthPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("height", DOMScreenHeightPropertyInfo), '("pixel-depth", DOMScreenPixelDepthPropertyInfo), '("width", DOMScreenWidthPropertyInfo)] + +-- VVV Prop "active-element" + -- Type: TInterface "WebKit" "DOMElement" + -- Flags: [PropertyReadable] + +getDOMShadowRootActiveElement :: (MonadIO m, DOMShadowRootK o) => o -> m DOMElement +getDOMShadowRootActiveElement obj = liftIO $ getObjectPropertyObject obj "active-element" DOMElement + +data DOMShadowRootActiveElementPropertyInfo +instance AttrInfo DOMShadowRootActiveElementPropertyInfo where + type AttrAllowedOps DOMShadowRootActiveElementPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMShadowRootActiveElementPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMShadowRootActiveElementPropertyInfo = DOMShadowRootK + type AttrGetType DOMShadowRootActiveElementPropertyInfo = DOMElement + type AttrLabel DOMShadowRootActiveElementPropertyInfo = "DOMShadowRoot::active-element" + attrGet _ = getDOMShadowRootActiveElement + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "apply-author-styles" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMShadowRootApplyAuthorStyles :: (MonadIO m, DOMShadowRootK o) => o -> m Bool +getDOMShadowRootApplyAuthorStyles obj = liftIO $ getObjectPropertyBool obj "apply-author-styles" + +setDOMShadowRootApplyAuthorStyles :: (MonadIO m, DOMShadowRootK o) => o -> Bool -> m () +setDOMShadowRootApplyAuthorStyles obj val = liftIO $ setObjectPropertyBool obj "apply-author-styles" val + +constructDOMShadowRootApplyAuthorStyles :: Bool -> IO ([Char], GValue) +constructDOMShadowRootApplyAuthorStyles val = constructObjectPropertyBool "apply-author-styles" val + +data DOMShadowRootApplyAuthorStylesPropertyInfo +instance AttrInfo DOMShadowRootApplyAuthorStylesPropertyInfo where + type AttrAllowedOps DOMShadowRootApplyAuthorStylesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMShadowRootApplyAuthorStylesPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMShadowRootApplyAuthorStylesPropertyInfo = DOMShadowRootK + type AttrGetType DOMShadowRootApplyAuthorStylesPropertyInfo = Bool + type AttrLabel DOMShadowRootApplyAuthorStylesPropertyInfo = "DOMShadowRoot::apply-author-styles" + attrGet _ = getDOMShadowRootApplyAuthorStyles + attrSet _ = setDOMShadowRootApplyAuthorStyles + attrConstruct _ = constructDOMShadowRootApplyAuthorStyles + +-- VVV Prop "inner-html" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMShadowRootInnerHtml :: (MonadIO m, DOMShadowRootK o) => o -> m T.Text +getDOMShadowRootInnerHtml obj = liftIO $ getObjectPropertyString obj "inner-html" + +setDOMShadowRootInnerHtml :: (MonadIO m, DOMShadowRootK o) => o -> T.Text -> m () +setDOMShadowRootInnerHtml obj val = liftIO $ setObjectPropertyString obj "inner-html" val + +constructDOMShadowRootInnerHtml :: T.Text -> IO ([Char], GValue) +constructDOMShadowRootInnerHtml val = constructObjectPropertyString "inner-html" val + +data DOMShadowRootInnerHtmlPropertyInfo +instance AttrInfo DOMShadowRootInnerHtmlPropertyInfo where + type AttrAllowedOps DOMShadowRootInnerHtmlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMShadowRootInnerHtmlPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMShadowRootInnerHtmlPropertyInfo = DOMShadowRootK + type AttrGetType DOMShadowRootInnerHtmlPropertyInfo = T.Text + type AttrLabel DOMShadowRootInnerHtmlPropertyInfo = "DOMShadowRoot::inner-html" + attrGet _ = getDOMShadowRootInnerHtml + attrSet _ = setDOMShadowRootInnerHtml + attrConstruct _ = constructDOMShadowRootInnerHtml + +-- VVV Prop "reset-style-inheritance" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMShadowRootResetStyleInheritance :: (MonadIO m, DOMShadowRootK o) => o -> m Bool +getDOMShadowRootResetStyleInheritance obj = liftIO $ getObjectPropertyBool obj "reset-style-inheritance" + +setDOMShadowRootResetStyleInheritance :: (MonadIO m, DOMShadowRootK o) => o -> Bool -> m () +setDOMShadowRootResetStyleInheritance obj val = liftIO $ setObjectPropertyBool obj "reset-style-inheritance" val + +constructDOMShadowRootResetStyleInheritance :: Bool -> IO ([Char], GValue) +constructDOMShadowRootResetStyleInheritance val = constructObjectPropertyBool "reset-style-inheritance" val + +data DOMShadowRootResetStyleInheritancePropertyInfo +instance AttrInfo DOMShadowRootResetStyleInheritancePropertyInfo where + type AttrAllowedOps DOMShadowRootResetStyleInheritancePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMShadowRootResetStyleInheritancePropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMShadowRootResetStyleInheritancePropertyInfo = DOMShadowRootK + type AttrGetType DOMShadowRootResetStyleInheritancePropertyInfo = Bool + type AttrLabel DOMShadowRootResetStyleInheritancePropertyInfo = "DOMShadowRoot::reset-style-inheritance" + attrGet _ = getDOMShadowRootResetStyleInheritance + attrSet _ = setDOMShadowRootResetStyleInheritance + attrConstruct _ = constructDOMShadowRootResetStyleInheritance + +type instance AttributeList DOMShadowRoot = '[ '("active-element", DOMShadowRootActiveElementPropertyInfo), '("apply-author-styles", DOMShadowRootApplyAuthorStylesPropertyInfo), '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("inner-html", DOMShadowRootInnerHtmlPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("reset-style-inheritance", DOMShadowRootResetStyleInheritancePropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMStorageLength :: (MonadIO m, DOMStorageK o) => o -> m Word64 +getDOMStorageLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMStorageLengthPropertyInfo +instance AttrInfo DOMStorageLengthPropertyInfo where + type AttrAllowedOps DOMStorageLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStorageLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStorageLengthPropertyInfo = DOMStorageK + type AttrGetType DOMStorageLengthPropertyInfo = Word64 + type AttrLabel DOMStorageLengthPropertyInfo = "DOMStorage::length" + attrGet _ = getDOMStorageLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMStorage = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMStorageLengthPropertyInfo)] + +type instance AttributeList DOMStorageInfo = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] + +type instance AttributeList DOMStorageQuota = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMStyleMediaType :: (MonadIO m, DOMStyleMediaK o) => o -> m T.Text +getDOMStyleMediaType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMStyleMediaTypePropertyInfo +instance AttrInfo DOMStyleMediaTypePropertyInfo where + type AttrAllowedOps DOMStyleMediaTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleMediaTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleMediaTypePropertyInfo = DOMStyleMediaK + type AttrGetType DOMStyleMediaTypePropertyInfo = T.Text + type AttrLabel DOMStyleMediaTypePropertyInfo = "DOMStyleMedia::type" + attrGet _ = getDOMStyleMediaType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMStyleMedia = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("type", DOMStyleMediaTypePropertyInfo)] + +-- VVV Prop "disabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMStyleSheetDisabled :: (MonadIO m, DOMStyleSheetK o) => o -> m Bool +getDOMStyleSheetDisabled obj = liftIO $ getObjectPropertyBool obj "disabled" + +setDOMStyleSheetDisabled :: (MonadIO m, DOMStyleSheetK o) => o -> Bool -> m () +setDOMStyleSheetDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val + +constructDOMStyleSheetDisabled :: Bool -> IO ([Char], GValue) +constructDOMStyleSheetDisabled val = constructObjectPropertyBool "disabled" val + +data DOMStyleSheetDisabledPropertyInfo +instance AttrInfo DOMStyleSheetDisabledPropertyInfo where + type AttrAllowedOps DOMStyleSheetDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetDisabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMStyleSheetDisabledPropertyInfo = DOMStyleSheetK + type AttrGetType DOMStyleSheetDisabledPropertyInfo = Bool + type AttrLabel DOMStyleSheetDisabledPropertyInfo = "DOMStyleSheet::disabled" + attrGet _ = getDOMStyleSheetDisabled + attrSet _ = setDOMStyleSheetDisabled + attrConstruct _ = constructDOMStyleSheetDisabled + +-- VVV Prop "href" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMStyleSheetHref :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text +getDOMStyleSheetHref obj = liftIO $ getObjectPropertyString obj "href" + +data DOMStyleSheetHrefPropertyInfo +instance AttrInfo DOMStyleSheetHrefPropertyInfo where + type AttrAllowedOps DOMStyleSheetHrefPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetHrefPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleSheetHrefPropertyInfo = DOMStyleSheetK + type AttrGetType DOMStyleSheetHrefPropertyInfo = T.Text + type AttrLabel DOMStyleSheetHrefPropertyInfo = "DOMStyleSheet::href" + attrGet _ = getDOMStyleSheetHref + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "media" + -- Type: TInterface "WebKit" "DOMMediaList" + -- Flags: [PropertyReadable] + +getDOMStyleSheetMedia :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMMediaList +getDOMStyleSheetMedia obj = liftIO $ getObjectPropertyObject obj "media" DOMMediaList + +data DOMStyleSheetMediaPropertyInfo +instance AttrInfo DOMStyleSheetMediaPropertyInfo where + type AttrAllowedOps DOMStyleSheetMediaPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetMediaPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleSheetMediaPropertyInfo = DOMStyleSheetK + type AttrGetType DOMStyleSheetMediaPropertyInfo = DOMMediaList + type AttrLabel DOMStyleSheetMediaPropertyInfo = "DOMStyleSheet::media" + attrGet _ = getDOMStyleSheetMedia + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "owner-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMStyleSheetOwnerNode :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMNode +getDOMStyleSheetOwnerNode obj = liftIO $ getObjectPropertyObject obj "owner-node" DOMNode + +data DOMStyleSheetOwnerNodePropertyInfo +instance AttrInfo DOMStyleSheetOwnerNodePropertyInfo where + type AttrAllowedOps DOMStyleSheetOwnerNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetOwnerNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleSheetOwnerNodePropertyInfo = DOMStyleSheetK + type AttrGetType DOMStyleSheetOwnerNodePropertyInfo = DOMNode + type AttrLabel DOMStyleSheetOwnerNodePropertyInfo = "DOMStyleSheet::owner-node" + attrGet _ = getDOMStyleSheetOwnerNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "parent-style-sheet" + -- Type: TInterface "WebKit" "DOMStyleSheet" + -- Flags: [PropertyReadable] + +getDOMStyleSheetParentStyleSheet :: (MonadIO m, DOMStyleSheetK o) => o -> m DOMStyleSheet +getDOMStyleSheetParentStyleSheet obj = liftIO $ getObjectPropertyObject obj "parent-style-sheet" DOMStyleSheet + +data DOMStyleSheetParentStyleSheetPropertyInfo +instance AttrInfo DOMStyleSheetParentStyleSheetPropertyInfo where + type AttrAllowedOps DOMStyleSheetParentStyleSheetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetParentStyleSheetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleSheetParentStyleSheetPropertyInfo = DOMStyleSheetK + type AttrGetType DOMStyleSheetParentStyleSheetPropertyInfo = DOMStyleSheet + type AttrLabel DOMStyleSheetParentStyleSheetPropertyInfo = "DOMStyleSheet::parent-style-sheet" + attrGet _ = getDOMStyleSheetParentStyleSheet + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMStyleSheetTitle :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text +getDOMStyleSheetTitle obj = liftIO $ getObjectPropertyString obj "title" + +data DOMStyleSheetTitlePropertyInfo +instance AttrInfo DOMStyleSheetTitlePropertyInfo where + type AttrAllowedOps DOMStyleSheetTitlePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetTitlePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleSheetTitlePropertyInfo = DOMStyleSheetK + type AttrGetType DOMStyleSheetTitlePropertyInfo = T.Text + type AttrLabel DOMStyleSheetTitlePropertyInfo = "DOMStyleSheet::title" + attrGet _ = getDOMStyleSheetTitle + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMStyleSheetType :: (MonadIO m, DOMStyleSheetK o) => o -> m T.Text +getDOMStyleSheetType obj = liftIO $ getObjectPropertyString obj "type" + +data DOMStyleSheetTypePropertyInfo +instance AttrInfo DOMStyleSheetTypePropertyInfo where + type AttrAllowedOps DOMStyleSheetTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleSheetTypePropertyInfo = DOMStyleSheetK + type AttrGetType DOMStyleSheetTypePropertyInfo = T.Text + type AttrLabel DOMStyleSheetTypePropertyInfo = "DOMStyleSheet::type" + attrGet _ = getDOMStyleSheetType + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMStyleSheet = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("disabled", DOMStyleSheetDisabledPropertyInfo), '("href", DOMStyleSheetHrefPropertyInfo), '("media", DOMStyleSheetMediaPropertyInfo), '("owner-node", DOMStyleSheetOwnerNodePropertyInfo), '("parent-style-sheet", DOMStyleSheetParentStyleSheetPropertyInfo), '("title", DOMStyleSheetTitlePropertyInfo), '("type", DOMStyleSheetTypePropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMStyleSheetListLength :: (MonadIO m, DOMStyleSheetListK o) => o -> m Word64 +getDOMStyleSheetListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMStyleSheetListLengthPropertyInfo +instance AttrInfo DOMStyleSheetListLengthPropertyInfo where + type AttrAllowedOps DOMStyleSheetListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMStyleSheetListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMStyleSheetListLengthPropertyInfo = DOMStyleSheetListK + type AttrGetType DOMStyleSheetListLengthPropertyInfo = Word64 + type AttrLabel DOMStyleSheetListLengthPropertyInfo = "DOMStyleSheetList::length" + attrGet _ = getDOMStyleSheetListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMStyleSheetList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMStyleSheetListLengthPropertyInfo)] + +-- VVV Prop "whole-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMTextWholeText :: (MonadIO m, DOMTextK o) => o -> m T.Text +getDOMTextWholeText obj = liftIO $ getObjectPropertyString obj "whole-text" + +data DOMTextWholeTextPropertyInfo +instance AttrInfo DOMTextWholeTextPropertyInfo where + type AttrAllowedOps DOMTextWholeTextPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextWholeTextPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextWholeTextPropertyInfo = DOMTextK + type AttrGetType DOMTextWholeTextPropertyInfo = T.Text + type AttrLabel DOMTextWholeTextPropertyInfo = "DOMText::whole-text" + attrGet _ = getDOMTextWholeText + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMText = '[ '("base-uri", DOMNodeBaseUriPropertyInfo), '("child-nodes", DOMNodeChildNodesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("data", DOMCharacterDataDataPropertyInfo), '("first-child", DOMNodeFirstChildPropertyInfo), '("last-child", DOMNodeLastChildPropertyInfo), '("length", DOMCharacterDataLengthPropertyInfo), '("local-name", DOMNodeLocalNamePropertyInfo), '("namespace-uri", DOMNodeNamespaceUriPropertyInfo), '("next-sibling", DOMNodeNextSiblingPropertyInfo), '("node-name", DOMNodeNodeNamePropertyInfo), '("node-type", DOMNodeNodeTypePropertyInfo), '("node-value", DOMNodeNodeValuePropertyInfo), '("owner-document", DOMNodeOwnerDocumentPropertyInfo), '("parent-element", DOMNodeParentElementPropertyInfo), '("parent-node", DOMNodeParentNodePropertyInfo), '("prefix", DOMNodePrefixPropertyInfo), '("previous-sibling", DOMNodePreviousSiblingPropertyInfo), '("text-content", DOMNodeTextContentPropertyInfo), '("whole-text", DOMTextWholeTextPropertyInfo)] + +-- VVV Prop "active-cues" + -- Type: TInterface "WebKit" "DOMTextTrackCueList" + -- Flags: [PropertyReadable] + +getDOMTextTrackActiveCues :: (MonadIO m, DOMTextTrackK o) => o -> m DOMTextTrackCueList +getDOMTextTrackActiveCues obj = liftIO $ getObjectPropertyObject obj "active-cues" DOMTextTrackCueList + +data DOMTextTrackActiveCuesPropertyInfo +instance AttrInfo DOMTextTrackActiveCuesPropertyInfo where + type AttrAllowedOps DOMTextTrackActiveCuesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackActiveCuesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackActiveCuesPropertyInfo = DOMTextTrackK + type AttrGetType DOMTextTrackActiveCuesPropertyInfo = DOMTextTrackCueList + type AttrLabel DOMTextTrackActiveCuesPropertyInfo = "DOMTextTrack::active-cues" + attrGet _ = getDOMTextTrackActiveCues + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "cues" + -- Type: TInterface "WebKit" "DOMTextTrackCueList" + -- Flags: [PropertyReadable] + +getDOMTextTrackCues :: (MonadIO m, DOMTextTrackK o) => o -> m DOMTextTrackCueList +getDOMTextTrackCues obj = liftIO $ getObjectPropertyObject obj "cues" DOMTextTrackCueList + +data DOMTextTrackCuesPropertyInfo +instance AttrInfo DOMTextTrackCuesPropertyInfo where + type AttrAllowedOps DOMTextTrackCuesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCuesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackCuesPropertyInfo = DOMTextTrackK + type AttrGetType DOMTextTrackCuesPropertyInfo = DOMTextTrackCueList + type AttrLabel DOMTextTrackCuesPropertyInfo = "DOMTextTrack::cues" + attrGet _ = getDOMTextTrackCues + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMTextTrackId :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackId obj = liftIO $ getObjectPropertyString obj "id" + +data DOMTextTrackIdPropertyInfo +instance AttrInfo DOMTextTrackIdPropertyInfo where + type AttrAllowedOps DOMTextTrackIdPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackIdPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackIdPropertyInfo = DOMTextTrackK + type AttrGetType DOMTextTrackIdPropertyInfo = T.Text + type AttrLabel DOMTextTrackIdPropertyInfo = "DOMTextTrack::id" + attrGet _ = getDOMTextTrackId + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "kind" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMTextTrackKind :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackKind obj = liftIO $ getObjectPropertyString obj "kind" + +data DOMTextTrackKindPropertyInfo +instance AttrInfo DOMTextTrackKindPropertyInfo where + type AttrAllowedOps DOMTextTrackKindPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackKindPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackKindPropertyInfo = DOMTextTrackK + type AttrGetType DOMTextTrackKindPropertyInfo = T.Text + type AttrLabel DOMTextTrackKindPropertyInfo = "DOMTextTrack::kind" + attrGet _ = getDOMTextTrackKind + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMTextTrackLabel :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackLabel obj = liftIO $ getObjectPropertyString obj "label" + +data DOMTextTrackLabelPropertyInfo +instance AttrInfo DOMTextTrackLabelPropertyInfo where + type AttrAllowedOps DOMTextTrackLabelPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackLabelPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackLabelPropertyInfo = DOMTextTrackK + type AttrGetType DOMTextTrackLabelPropertyInfo = T.Text + type AttrLabel DOMTextTrackLabelPropertyInfo = "DOMTextTrack::label" + attrGet _ = getDOMTextTrackLabel + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "language" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMTextTrackLanguage :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackLanguage obj = liftIO $ getObjectPropertyString obj "language" + +data DOMTextTrackLanguagePropertyInfo +instance AttrInfo DOMTextTrackLanguagePropertyInfo where + type AttrAllowedOps DOMTextTrackLanguagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackLanguagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackLanguagePropertyInfo = DOMTextTrackK + type AttrGetType DOMTextTrackLanguagePropertyInfo = T.Text + type AttrLabel DOMTextTrackLanguagePropertyInfo = "DOMTextTrack::language" + attrGet _ = getDOMTextTrackLanguage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "mode" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackMode :: (MonadIO m, DOMTextTrackK o) => o -> m T.Text +getDOMTextTrackMode obj = liftIO $ getObjectPropertyString obj "mode" + +setDOMTextTrackMode :: (MonadIO m, DOMTextTrackK o) => o -> T.Text -> m () +setDOMTextTrackMode obj val = liftIO $ setObjectPropertyString obj "mode" val + +constructDOMTextTrackMode :: T.Text -> IO ([Char], GValue) +constructDOMTextTrackMode val = constructObjectPropertyString "mode" val + +data DOMTextTrackModePropertyInfo +instance AttrInfo DOMTextTrackModePropertyInfo where + type AttrAllowedOps DOMTextTrackModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackModePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMTextTrackModePropertyInfo = DOMTextTrackK + type AttrGetType DOMTextTrackModePropertyInfo = T.Text + type AttrLabel DOMTextTrackModePropertyInfo = "DOMTextTrack::mode" + attrGet _ = getDOMTextTrackMode + attrSet _ = setDOMTextTrackMode + attrConstruct _ = constructDOMTextTrackMode + +type instance AttributeList DOMTextTrack = '[ '("active-cues", DOMTextTrackActiveCuesPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("cues", DOMTextTrackCuesPropertyInfo), '("id", DOMTextTrackIdPropertyInfo), '("kind", DOMTextTrackKindPropertyInfo), '("label", DOMTextTrackLabelPropertyInfo), '("language", DOMTextTrackLanguagePropertyInfo), '("mode", DOMTextTrackModePropertyInfo)] + +-- VVV Prop "align" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueAlign :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text +getDOMTextTrackCueAlign obj = liftIO $ getObjectPropertyString obj "align" + +setDOMTextTrackCueAlign :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () +setDOMTextTrackCueAlign obj val = liftIO $ setObjectPropertyString obj "align" val + +constructDOMTextTrackCueAlign :: T.Text -> IO ([Char], GValue) +constructDOMTextTrackCueAlign val = constructObjectPropertyString "align" val + +data DOMTextTrackCueAlignPropertyInfo +instance AttrInfo DOMTextTrackCueAlignPropertyInfo where + type AttrAllowedOps DOMTextTrackCueAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueAlignPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMTextTrackCueAlignPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueAlignPropertyInfo = T.Text + type AttrLabel DOMTextTrackCueAlignPropertyInfo = "DOMTextTrackCue::align" + attrGet _ = getDOMTextTrackCueAlign + attrSet _ = setDOMTextTrackCueAlign + attrConstruct _ = constructDOMTextTrackCueAlign + +-- VVV Prop "end-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueEndTime :: (MonadIO m, DOMTextTrackCueK o) => o -> m Double +getDOMTextTrackCueEndTime obj = liftIO $ getObjectPropertyDouble obj "end-time" + +setDOMTextTrackCueEndTime :: (MonadIO m, DOMTextTrackCueK o) => o -> Double -> m () +setDOMTextTrackCueEndTime obj val = liftIO $ setObjectPropertyDouble obj "end-time" val + +constructDOMTextTrackCueEndTime :: Double -> IO ([Char], GValue) +constructDOMTextTrackCueEndTime val = constructObjectPropertyDouble "end-time" val + +data DOMTextTrackCueEndTimePropertyInfo +instance AttrInfo DOMTextTrackCueEndTimePropertyInfo where + type AttrAllowedOps DOMTextTrackCueEndTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueEndTimePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMTextTrackCueEndTimePropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueEndTimePropertyInfo = Double + type AttrLabel DOMTextTrackCueEndTimePropertyInfo = "DOMTextTrackCue::end-time" + attrGet _ = getDOMTextTrackCueEndTime + attrSet _ = setDOMTextTrackCueEndTime + attrConstruct _ = constructDOMTextTrackCueEndTime + +-- VVV Prop "id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueId :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text +getDOMTextTrackCueId obj = liftIO $ getObjectPropertyString obj "id" + +setDOMTextTrackCueId :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () +setDOMTextTrackCueId obj val = liftIO $ setObjectPropertyString obj "id" val + +constructDOMTextTrackCueId :: T.Text -> IO ([Char], GValue) +constructDOMTextTrackCueId val = constructObjectPropertyString "id" val + +data DOMTextTrackCueIdPropertyInfo +instance AttrInfo DOMTextTrackCueIdPropertyInfo where + type AttrAllowedOps DOMTextTrackCueIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueIdPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMTextTrackCueIdPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueIdPropertyInfo = T.Text + type AttrLabel DOMTextTrackCueIdPropertyInfo = "DOMTextTrackCue::id" + attrGet _ = getDOMTextTrackCueId + attrSet _ = setDOMTextTrackCueId + attrConstruct _ = constructDOMTextTrackCueId + +-- VVV Prop "line" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueLine :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64 +getDOMTextTrackCueLine obj = liftIO $ getObjectPropertyInt64 obj "line" + +setDOMTextTrackCueLine :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m () +setDOMTextTrackCueLine obj val = liftIO $ setObjectPropertyInt64 obj "line" val + +constructDOMTextTrackCueLine :: Int64 -> IO ([Char], GValue) +constructDOMTextTrackCueLine val = constructObjectPropertyInt64 "line" val + +data DOMTextTrackCueLinePropertyInfo +instance AttrInfo DOMTextTrackCueLinePropertyInfo where + type AttrAllowedOps DOMTextTrackCueLinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueLinePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMTextTrackCueLinePropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueLinePropertyInfo = Int64 + type AttrLabel DOMTextTrackCueLinePropertyInfo = "DOMTextTrackCue::line" + attrGet _ = getDOMTextTrackCueLine + attrSet _ = setDOMTextTrackCueLine + attrConstruct _ = constructDOMTextTrackCueLine + +-- VVV Prop "pause-on-exit" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCuePauseOnExit :: (MonadIO m, DOMTextTrackCueK o) => o -> m Bool +getDOMTextTrackCuePauseOnExit obj = liftIO $ getObjectPropertyBool obj "pause-on-exit" + +setDOMTextTrackCuePauseOnExit :: (MonadIO m, DOMTextTrackCueK o) => o -> Bool -> m () +setDOMTextTrackCuePauseOnExit obj val = liftIO $ setObjectPropertyBool obj "pause-on-exit" val + +constructDOMTextTrackCuePauseOnExit :: Bool -> IO ([Char], GValue) +constructDOMTextTrackCuePauseOnExit val = constructObjectPropertyBool "pause-on-exit" val + +data DOMTextTrackCuePauseOnExitPropertyInfo +instance AttrInfo DOMTextTrackCuePauseOnExitPropertyInfo where + type AttrAllowedOps DOMTextTrackCuePauseOnExitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCuePauseOnExitPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMTextTrackCuePauseOnExitPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCuePauseOnExitPropertyInfo = Bool + type AttrLabel DOMTextTrackCuePauseOnExitPropertyInfo = "DOMTextTrackCue::pause-on-exit" + attrGet _ = getDOMTextTrackCuePauseOnExit + attrSet _ = setDOMTextTrackCuePauseOnExit + attrConstruct _ = constructDOMTextTrackCuePauseOnExit + +-- VVV Prop "position" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCuePosition :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64 +getDOMTextTrackCuePosition obj = liftIO $ getObjectPropertyInt64 obj "position" + +setDOMTextTrackCuePosition :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m () +setDOMTextTrackCuePosition obj val = liftIO $ setObjectPropertyInt64 obj "position" val + +constructDOMTextTrackCuePosition :: Int64 -> IO ([Char], GValue) +constructDOMTextTrackCuePosition val = constructObjectPropertyInt64 "position" val + +data DOMTextTrackCuePositionPropertyInfo +instance AttrInfo DOMTextTrackCuePositionPropertyInfo where + type AttrAllowedOps DOMTextTrackCuePositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCuePositionPropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMTextTrackCuePositionPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCuePositionPropertyInfo = Int64 + type AttrLabel DOMTextTrackCuePositionPropertyInfo = "DOMTextTrackCue::position" + attrGet _ = getDOMTextTrackCuePosition + attrSet _ = setDOMTextTrackCuePosition + attrConstruct _ = constructDOMTextTrackCuePosition + +-- VVV Prop "size" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueSize :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64 +getDOMTextTrackCueSize obj = liftIO $ getObjectPropertyInt64 obj "size" + +setDOMTextTrackCueSize :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m () +setDOMTextTrackCueSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val + +constructDOMTextTrackCueSize :: Int64 -> IO ([Char], GValue) +constructDOMTextTrackCueSize val = constructObjectPropertyInt64 "size" val + +data DOMTextTrackCueSizePropertyInfo +instance AttrInfo DOMTextTrackCueSizePropertyInfo where + type AttrAllowedOps DOMTextTrackCueSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueSizePropertyInfo = (~) Int64 + type AttrBaseTypeConstraint DOMTextTrackCueSizePropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueSizePropertyInfo = Int64 + type AttrLabel DOMTextTrackCueSizePropertyInfo = "DOMTextTrackCue::size" + attrGet _ = getDOMTextTrackCueSize + attrSet _ = setDOMTextTrackCueSize + attrConstruct _ = constructDOMTextTrackCueSize + +-- VVV Prop "snap-to-lines" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueSnapToLines :: (MonadIO m, DOMTextTrackCueK o) => o -> m Bool +getDOMTextTrackCueSnapToLines obj = liftIO $ getObjectPropertyBool obj "snap-to-lines" + +setDOMTextTrackCueSnapToLines :: (MonadIO m, DOMTextTrackCueK o) => o -> Bool -> m () +setDOMTextTrackCueSnapToLines obj val = liftIO $ setObjectPropertyBool obj "snap-to-lines" val + +constructDOMTextTrackCueSnapToLines :: Bool -> IO ([Char], GValue) +constructDOMTextTrackCueSnapToLines val = constructObjectPropertyBool "snap-to-lines" val + +data DOMTextTrackCueSnapToLinesPropertyInfo +instance AttrInfo DOMTextTrackCueSnapToLinesPropertyInfo where + type AttrAllowedOps DOMTextTrackCueSnapToLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueSnapToLinesPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMTextTrackCueSnapToLinesPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueSnapToLinesPropertyInfo = Bool + type AttrLabel DOMTextTrackCueSnapToLinesPropertyInfo = "DOMTextTrackCue::snap-to-lines" + attrGet _ = getDOMTextTrackCueSnapToLines + attrSet _ = setDOMTextTrackCueSnapToLines + attrConstruct _ = constructDOMTextTrackCueSnapToLines + +-- VVV Prop "start-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueStartTime :: (MonadIO m, DOMTextTrackCueK o) => o -> m Double +getDOMTextTrackCueStartTime obj = liftIO $ getObjectPropertyDouble obj "start-time" + +setDOMTextTrackCueStartTime :: (MonadIO m, DOMTextTrackCueK o) => o -> Double -> m () +setDOMTextTrackCueStartTime obj val = liftIO $ setObjectPropertyDouble obj "start-time" val + +constructDOMTextTrackCueStartTime :: Double -> IO ([Char], GValue) +constructDOMTextTrackCueStartTime val = constructObjectPropertyDouble "start-time" val + +data DOMTextTrackCueStartTimePropertyInfo +instance AttrInfo DOMTextTrackCueStartTimePropertyInfo where + type AttrAllowedOps DOMTextTrackCueStartTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueStartTimePropertyInfo = (~) Double + type AttrBaseTypeConstraint DOMTextTrackCueStartTimePropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueStartTimePropertyInfo = Double + type AttrLabel DOMTextTrackCueStartTimePropertyInfo = "DOMTextTrackCue::start-time" + attrGet _ = getDOMTextTrackCueStartTime + attrSet _ = setDOMTextTrackCueStartTime + attrConstruct _ = constructDOMTextTrackCueStartTime + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueText :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text +getDOMTextTrackCueText obj = liftIO $ getObjectPropertyString obj "text" + +setDOMTextTrackCueText :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () +setDOMTextTrackCueText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructDOMTextTrackCueText :: T.Text -> IO ([Char], GValue) +constructDOMTextTrackCueText val = constructObjectPropertyString "text" val + +data DOMTextTrackCueTextPropertyInfo +instance AttrInfo DOMTextTrackCueTextPropertyInfo where + type AttrAllowedOps DOMTextTrackCueTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMTextTrackCueTextPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueTextPropertyInfo = T.Text + type AttrLabel DOMTextTrackCueTextPropertyInfo = "DOMTextTrackCue::text" + attrGet _ = getDOMTextTrackCueText + attrSet _ = setDOMTextTrackCueText + attrConstruct _ = constructDOMTextTrackCueText + +-- VVV Prop "track" + -- Type: TInterface "WebKit" "DOMTextTrack" + -- Flags: [PropertyReadable] + +getDOMTextTrackCueTrack :: (MonadIO m, DOMTextTrackCueK o) => o -> m DOMTextTrack +getDOMTextTrackCueTrack obj = liftIO $ getObjectPropertyObject obj "track" DOMTextTrack + +data DOMTextTrackCueTrackPropertyInfo +instance AttrInfo DOMTextTrackCueTrackPropertyInfo where + type AttrAllowedOps DOMTextTrackCueTrackPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueTrackPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackCueTrackPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueTrackPropertyInfo = DOMTextTrack + type AttrLabel DOMTextTrackCueTrackPropertyInfo = "DOMTextTrackCue::track" + attrGet _ = getDOMTextTrackCueTrack + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "vertical" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMTextTrackCueVertical :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text +getDOMTextTrackCueVertical obj = liftIO $ getObjectPropertyString obj "vertical" + +setDOMTextTrackCueVertical :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m () +setDOMTextTrackCueVertical obj val = liftIO $ setObjectPropertyString obj "vertical" val + +constructDOMTextTrackCueVertical :: T.Text -> IO ([Char], GValue) +constructDOMTextTrackCueVertical val = constructObjectPropertyString "vertical" val + +data DOMTextTrackCueVerticalPropertyInfo +instance AttrInfo DOMTextTrackCueVerticalPropertyInfo where + type AttrAllowedOps DOMTextTrackCueVerticalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueVerticalPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DOMTextTrackCueVerticalPropertyInfo = DOMTextTrackCueK + type AttrGetType DOMTextTrackCueVerticalPropertyInfo = T.Text + type AttrLabel DOMTextTrackCueVerticalPropertyInfo = "DOMTextTrackCue::vertical" + attrGet _ = getDOMTextTrackCueVertical + attrSet _ = setDOMTextTrackCueVertical + attrConstruct _ = constructDOMTextTrackCueVertical + +type instance AttributeList DOMTextTrackCue = '[ '("align", DOMTextTrackCueAlignPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("end-time", DOMTextTrackCueEndTimePropertyInfo), '("id", DOMTextTrackCueIdPropertyInfo), '("line", DOMTextTrackCueLinePropertyInfo), '("pause-on-exit", DOMTextTrackCuePauseOnExitPropertyInfo), '("position", DOMTextTrackCuePositionPropertyInfo), '("size", DOMTextTrackCueSizePropertyInfo), '("snap-to-lines", DOMTextTrackCueSnapToLinesPropertyInfo), '("start-time", DOMTextTrackCueStartTimePropertyInfo), '("text", DOMTextTrackCueTextPropertyInfo), '("track", DOMTextTrackCueTrackPropertyInfo), '("vertical", DOMTextTrackCueVerticalPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMTextTrackCueListLength :: (MonadIO m, DOMTextTrackCueListK o) => o -> m Word64 +getDOMTextTrackCueListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMTextTrackCueListLengthPropertyInfo +instance AttrInfo DOMTextTrackCueListLengthPropertyInfo where + type AttrAllowedOps DOMTextTrackCueListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackCueListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackCueListLengthPropertyInfo = DOMTextTrackCueListK + type AttrGetType DOMTextTrackCueListLengthPropertyInfo = Word64 + type AttrLabel DOMTextTrackCueListLengthPropertyInfo = "DOMTextTrackCueList::length" + attrGet _ = getDOMTextTrackCueListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMTextTrackCueList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMTextTrackCueListLengthPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMTextTrackListLength :: (MonadIO m, DOMTextTrackListK o) => o -> m Word64 +getDOMTextTrackListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMTextTrackListLengthPropertyInfo +instance AttrInfo DOMTextTrackListLengthPropertyInfo where + type AttrAllowedOps DOMTextTrackListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTextTrackListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTextTrackListLengthPropertyInfo = DOMTextTrackListK + type AttrGetType DOMTextTrackListLengthPropertyInfo = Word64 + type AttrLabel DOMTextTrackListLengthPropertyInfo = "DOMTextTrackList::length" + attrGet _ = getDOMTextTrackListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMTextTrackList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMTextTrackListLengthPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMTimeRangesLength :: (MonadIO m, DOMTimeRangesK o) => o -> m Word64 +getDOMTimeRangesLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMTimeRangesLengthPropertyInfo +instance AttrInfo DOMTimeRangesLengthPropertyInfo where + type AttrAllowedOps DOMTimeRangesLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTimeRangesLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTimeRangesLengthPropertyInfo = DOMTimeRangesK + type AttrGetType DOMTimeRangesLengthPropertyInfo = Word64 + type AttrLabel DOMTimeRangesLengthPropertyInfo = "DOMTimeRanges::length" + attrGet _ = getDOMTimeRangesLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMTimeRanges = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMTimeRangesLengthPropertyInfo)] + +-- VVV Prop "client-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchClientX :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchClientX obj = liftIO $ getObjectPropertyInt64 obj "client-x" + +data DOMTouchClientXPropertyInfo +instance AttrInfo DOMTouchClientXPropertyInfo where + type AttrAllowedOps DOMTouchClientXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchClientXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchClientXPropertyInfo = DOMTouchK + type AttrGetType DOMTouchClientXPropertyInfo = Int64 + type AttrLabel DOMTouchClientXPropertyInfo = "DOMTouch::client-x" + attrGet _ = getDOMTouchClientX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "client-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchClientY :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchClientY obj = liftIO $ getObjectPropertyInt64 obj "client-y" + +data DOMTouchClientYPropertyInfo +instance AttrInfo DOMTouchClientYPropertyInfo where + type AttrAllowedOps DOMTouchClientYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchClientYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchClientYPropertyInfo = DOMTouchK + type AttrGetType DOMTouchClientYPropertyInfo = Int64 + type AttrLabel DOMTouchClientYPropertyInfo = "DOMTouch::client-y" + attrGet _ = getDOMTouchClientY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "identifier" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMTouchIdentifier :: (MonadIO m, DOMTouchK o) => o -> m Word64 +getDOMTouchIdentifier obj = liftIO $ getObjectPropertyUInt64 obj "identifier" + +data DOMTouchIdentifierPropertyInfo +instance AttrInfo DOMTouchIdentifierPropertyInfo where + type AttrAllowedOps DOMTouchIdentifierPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchIdentifierPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchIdentifierPropertyInfo = DOMTouchK + type AttrGetType DOMTouchIdentifierPropertyInfo = Word64 + type AttrLabel DOMTouchIdentifierPropertyInfo = "DOMTouch::identifier" + attrGet _ = getDOMTouchIdentifier + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "page-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchPageX :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchPageX obj = liftIO $ getObjectPropertyInt64 obj "page-x" + +data DOMTouchPageXPropertyInfo +instance AttrInfo DOMTouchPageXPropertyInfo where + type AttrAllowedOps DOMTouchPageXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchPageXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchPageXPropertyInfo = DOMTouchK + type AttrGetType DOMTouchPageXPropertyInfo = Int64 + type AttrLabel DOMTouchPageXPropertyInfo = "DOMTouch::page-x" + attrGet _ = getDOMTouchPageX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "page-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchPageY :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchPageY obj = liftIO $ getObjectPropertyInt64 obj "page-y" + +data DOMTouchPageYPropertyInfo +instance AttrInfo DOMTouchPageYPropertyInfo where + type AttrAllowedOps DOMTouchPageYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchPageYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchPageYPropertyInfo = DOMTouchK + type AttrGetType DOMTouchPageYPropertyInfo = Int64 + type AttrLabel DOMTouchPageYPropertyInfo = "DOMTouch::page-y" + attrGet _ = getDOMTouchPageY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchScreenX :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x" + +data DOMTouchScreenXPropertyInfo +instance AttrInfo DOMTouchScreenXPropertyInfo where + type AttrAllowedOps DOMTouchScreenXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchScreenXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchScreenXPropertyInfo = DOMTouchK + type AttrGetType DOMTouchScreenXPropertyInfo = Int64 + type AttrLabel DOMTouchScreenXPropertyInfo = "DOMTouch::screen-x" + attrGet _ = getDOMTouchScreenX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "screen-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchScreenY :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y" + +data DOMTouchScreenYPropertyInfo +instance AttrInfo DOMTouchScreenYPropertyInfo where + type AttrAllowedOps DOMTouchScreenYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchScreenYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchScreenYPropertyInfo = DOMTouchK + type AttrGetType DOMTouchScreenYPropertyInfo = Int64 + type AttrLabel DOMTouchScreenYPropertyInfo = "DOMTouch::screen-y" + attrGet _ = getDOMTouchScreenY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "target" + -- Type: TInterface "WebKit" "DOMEventTarget" + -- Flags: [PropertyReadable] + +getDOMTouchTarget :: (MonadIO m, DOMTouchK o) => o -> m DOMEventTarget +getDOMTouchTarget obj = liftIO $ getObjectPropertyObject obj "target" DOMEventTarget + +data DOMTouchTargetPropertyInfo +instance AttrInfo DOMTouchTargetPropertyInfo where + type AttrAllowedOps DOMTouchTargetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchTargetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchTargetPropertyInfo = DOMTouchK + type AttrGetType DOMTouchTargetPropertyInfo = DOMEventTarget + type AttrLabel DOMTouchTargetPropertyInfo = "DOMTouch::target" + attrGet _ = getDOMTouchTarget + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-force" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable] + +getDOMTouchWebkitForce :: (MonadIO m, DOMTouchK o) => o -> m Float +getDOMTouchWebkitForce obj = liftIO $ getObjectPropertyFloat obj "webkit-force" + +data DOMTouchWebkitForcePropertyInfo +instance AttrInfo DOMTouchWebkitForcePropertyInfo where + type AttrAllowedOps DOMTouchWebkitForcePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchWebkitForcePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchWebkitForcePropertyInfo = DOMTouchK + type AttrGetType DOMTouchWebkitForcePropertyInfo = Float + type AttrLabel DOMTouchWebkitForcePropertyInfo = "DOMTouch::webkit-force" + attrGet _ = getDOMTouchWebkitForce + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-radius-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchWebkitRadiusX :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchWebkitRadiusX obj = liftIO $ getObjectPropertyInt64 obj "webkit-radius-x" + +data DOMTouchWebkitRadiusXPropertyInfo +instance AttrInfo DOMTouchWebkitRadiusXPropertyInfo where + type AttrAllowedOps DOMTouchWebkitRadiusXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchWebkitRadiusXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchWebkitRadiusXPropertyInfo = DOMTouchK + type AttrGetType DOMTouchWebkitRadiusXPropertyInfo = Int64 + type AttrLabel DOMTouchWebkitRadiusXPropertyInfo = "DOMTouch::webkit-radius-x" + attrGet _ = getDOMTouchWebkitRadiusX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-radius-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMTouchWebkitRadiusY :: (MonadIO m, DOMTouchK o) => o -> m Int64 +getDOMTouchWebkitRadiusY obj = liftIO $ getObjectPropertyInt64 obj "webkit-radius-y" + +data DOMTouchWebkitRadiusYPropertyInfo +instance AttrInfo DOMTouchWebkitRadiusYPropertyInfo where + type AttrAllowedOps DOMTouchWebkitRadiusYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchWebkitRadiusYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchWebkitRadiusYPropertyInfo = DOMTouchK + type AttrGetType DOMTouchWebkitRadiusYPropertyInfo = Int64 + type AttrLabel DOMTouchWebkitRadiusYPropertyInfo = "DOMTouch::webkit-radius-y" + attrGet _ = getDOMTouchWebkitRadiusY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-rotation-angle" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable] + +getDOMTouchWebkitRotationAngle :: (MonadIO m, DOMTouchK o) => o -> m Float +getDOMTouchWebkitRotationAngle obj = liftIO $ getObjectPropertyFloat obj "webkit-rotation-angle" + +data DOMTouchWebkitRotationAnglePropertyInfo +instance AttrInfo DOMTouchWebkitRotationAnglePropertyInfo where + type AttrAllowedOps DOMTouchWebkitRotationAnglePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTouchWebkitRotationAnglePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTouchWebkitRotationAnglePropertyInfo = DOMTouchK + type AttrGetType DOMTouchWebkitRotationAnglePropertyInfo = Float + type AttrLabel DOMTouchWebkitRotationAnglePropertyInfo = "DOMTouch::webkit-rotation-angle" + attrGet _ = getDOMTouchWebkitRotationAngle + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMTouch = '[ '("client-x", DOMTouchClientXPropertyInfo), '("client-y", DOMTouchClientYPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("identifier", DOMTouchIdentifierPropertyInfo), '("page-x", DOMTouchPageXPropertyInfo), '("page-y", DOMTouchPageYPropertyInfo), '("screen-x", DOMTouchScreenXPropertyInfo), '("screen-y", DOMTouchScreenYPropertyInfo), '("target", DOMTouchTargetPropertyInfo), '("webkit-force", DOMTouchWebkitForcePropertyInfo), '("webkit-radius-x", DOMTouchWebkitRadiusXPropertyInfo), '("webkit-radius-y", DOMTouchWebkitRadiusYPropertyInfo), '("webkit-rotation-angle", DOMTouchWebkitRotationAnglePropertyInfo)] + +type instance AttributeList DOMTrackEvent = '[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo)] + +-- VVV Prop "current-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMTreeWalkerCurrentNode :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNode +getDOMTreeWalkerCurrentNode obj = liftIO $ getObjectPropertyObject obj "current-node" DOMNode + +data DOMTreeWalkerCurrentNodePropertyInfo +instance AttrInfo DOMTreeWalkerCurrentNodePropertyInfo where + type AttrAllowedOps DOMTreeWalkerCurrentNodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTreeWalkerCurrentNodePropertyInfo = DOMTreeWalkerK + type AttrGetType DOMTreeWalkerCurrentNodePropertyInfo = DOMNode + type AttrLabel DOMTreeWalkerCurrentNodePropertyInfo = "DOMTreeWalker::current-node" + attrGet _ = getDOMTreeWalkerCurrentNode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "expand-entity-references" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMTreeWalkerExpandEntityReferences :: (MonadIO m, DOMTreeWalkerK o) => o -> m Bool +getDOMTreeWalkerExpandEntityReferences obj = liftIO $ getObjectPropertyBool obj "expand-entity-references" + +data DOMTreeWalkerExpandEntityReferencesPropertyInfo +instance AttrInfo DOMTreeWalkerExpandEntityReferencesPropertyInfo where + type AttrAllowedOps DOMTreeWalkerExpandEntityReferencesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTreeWalkerExpandEntityReferencesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTreeWalkerExpandEntityReferencesPropertyInfo = DOMTreeWalkerK + type AttrGetType DOMTreeWalkerExpandEntityReferencesPropertyInfo = Bool + type AttrLabel DOMTreeWalkerExpandEntityReferencesPropertyInfo = "DOMTreeWalker::expand-entity-references" + attrGet _ = getDOMTreeWalkerExpandEntityReferences + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "filter" + -- Type: TInterface "WebKit" "DOMNodeFilter" + -- Flags: [PropertyReadable] + +getDOMTreeWalkerFilter :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNodeFilter +getDOMTreeWalkerFilter obj = liftIO $ getObjectPropertyObject obj "filter" DOMNodeFilter + +data DOMTreeWalkerFilterPropertyInfo +instance AttrInfo DOMTreeWalkerFilterPropertyInfo where + type AttrAllowedOps DOMTreeWalkerFilterPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTreeWalkerFilterPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTreeWalkerFilterPropertyInfo = DOMTreeWalkerK + type AttrGetType DOMTreeWalkerFilterPropertyInfo = DOMNodeFilter + type AttrLabel DOMTreeWalkerFilterPropertyInfo = "DOMTreeWalker::filter" + attrGet _ = getDOMTreeWalkerFilter + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "root" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMTreeWalkerRoot :: (MonadIO m, DOMTreeWalkerK o) => o -> m DOMNode +getDOMTreeWalkerRoot obj = liftIO $ getObjectPropertyObject obj "root" DOMNode + +data DOMTreeWalkerRootPropertyInfo +instance AttrInfo DOMTreeWalkerRootPropertyInfo where + type AttrAllowedOps DOMTreeWalkerRootPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTreeWalkerRootPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTreeWalkerRootPropertyInfo = DOMTreeWalkerK + type AttrGetType DOMTreeWalkerRootPropertyInfo = DOMNode + type AttrLabel DOMTreeWalkerRootPropertyInfo = "DOMTreeWalker::root" + attrGet _ = getDOMTreeWalkerRoot + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "what-to-show" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMTreeWalkerWhatToShow :: (MonadIO m, DOMTreeWalkerK o) => o -> m Word64 +getDOMTreeWalkerWhatToShow obj = liftIO $ getObjectPropertyUInt64 obj "what-to-show" + +data DOMTreeWalkerWhatToShowPropertyInfo +instance AttrInfo DOMTreeWalkerWhatToShowPropertyInfo where + type AttrAllowedOps DOMTreeWalkerWhatToShowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMTreeWalkerWhatToShowPropertyInfo = DOMTreeWalkerK + type AttrGetType DOMTreeWalkerWhatToShowPropertyInfo = Word64 + type AttrLabel DOMTreeWalkerWhatToShowPropertyInfo = "DOMTreeWalker::what-to-show" + attrGet _ = getDOMTreeWalkerWhatToShow + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMTreeWalker = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-node", DOMTreeWalkerCurrentNodePropertyInfo), '("expand-entity-references", DOMTreeWalkerExpandEntityReferencesPropertyInfo), '("filter", DOMTreeWalkerFilterPropertyInfo), '("root", DOMTreeWalkerRootPropertyInfo), '("what-to-show", DOMTreeWalkerWhatToShowPropertyInfo)] + +-- VVV Prop "char-code" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventCharCode :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventCharCode obj = liftIO $ getObjectPropertyInt64 obj "char-code" + +data DOMUIEventCharCodePropertyInfo +instance AttrInfo DOMUIEventCharCodePropertyInfo where + type AttrAllowedOps DOMUIEventCharCodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventCharCodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventCharCodePropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventCharCodePropertyInfo = Int64 + type AttrLabel DOMUIEventCharCodePropertyInfo = "DOMUIEvent::char-code" + attrGet _ = getDOMUIEventCharCode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "detail" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventDetail :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventDetail obj = liftIO $ getObjectPropertyInt64 obj "detail" + +data DOMUIEventDetailPropertyInfo +instance AttrInfo DOMUIEventDetailPropertyInfo where + type AttrAllowedOps DOMUIEventDetailPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventDetailPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventDetailPropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventDetailPropertyInfo = Int64 + type AttrLabel DOMUIEventDetailPropertyInfo = "DOMUIEvent::detail" + attrGet _ = getDOMUIEventDetail + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "key-code" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventKeyCode :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventKeyCode obj = liftIO $ getObjectPropertyInt64 obj "key-code" + +data DOMUIEventKeyCodePropertyInfo +instance AttrInfo DOMUIEventKeyCodePropertyInfo where + type AttrAllowedOps DOMUIEventKeyCodePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventKeyCodePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventKeyCodePropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventKeyCodePropertyInfo = Int64 + type AttrLabel DOMUIEventKeyCodePropertyInfo = "DOMUIEvent::key-code" + attrGet _ = getDOMUIEventKeyCode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "layer-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventLayerX :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventLayerX obj = liftIO $ getObjectPropertyInt64 obj "layer-x" + +data DOMUIEventLayerXPropertyInfo +instance AttrInfo DOMUIEventLayerXPropertyInfo where + type AttrAllowedOps DOMUIEventLayerXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventLayerXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventLayerXPropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventLayerXPropertyInfo = Int64 + type AttrLabel DOMUIEventLayerXPropertyInfo = "DOMUIEvent::layer-x" + attrGet _ = getDOMUIEventLayerX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "layer-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventLayerY :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventLayerY obj = liftIO $ getObjectPropertyInt64 obj "layer-y" + +data DOMUIEventLayerYPropertyInfo +instance AttrInfo DOMUIEventLayerYPropertyInfo where + type AttrAllowedOps DOMUIEventLayerYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventLayerYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventLayerYPropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventLayerYPropertyInfo = Int64 + type AttrLabel DOMUIEventLayerYPropertyInfo = "DOMUIEvent::layer-y" + attrGet _ = getDOMUIEventLayerY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "page-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventPageX :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventPageX obj = liftIO $ getObjectPropertyInt64 obj "page-x" + +data DOMUIEventPageXPropertyInfo +instance AttrInfo DOMUIEventPageXPropertyInfo where + type AttrAllowedOps DOMUIEventPageXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventPageXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventPageXPropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventPageXPropertyInfo = Int64 + type AttrLabel DOMUIEventPageXPropertyInfo = "DOMUIEvent::page-x" + attrGet _ = getDOMUIEventPageX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "page-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventPageY :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventPageY obj = liftIO $ getObjectPropertyInt64 obj "page-y" + +data DOMUIEventPageYPropertyInfo +instance AttrInfo DOMUIEventPageYPropertyInfo where + type AttrAllowedOps DOMUIEventPageYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventPageYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventPageYPropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventPageYPropertyInfo = Int64 + type AttrLabel DOMUIEventPageYPropertyInfo = "DOMUIEvent::page-y" + attrGet _ = getDOMUIEventPageY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "view" + -- Type: TInterface "WebKit" "DOMDOMWindow" + -- Flags: [PropertyReadable] + +getDOMUIEventView :: (MonadIO m, DOMUIEventK o) => o -> m DOMDOMWindow +getDOMUIEventView obj = liftIO $ getObjectPropertyObject obj "view" DOMDOMWindow + +data DOMUIEventViewPropertyInfo +instance AttrInfo DOMUIEventViewPropertyInfo where + type AttrAllowedOps DOMUIEventViewPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventViewPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventViewPropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventViewPropertyInfo = DOMDOMWindow + type AttrLabel DOMUIEventViewPropertyInfo = "DOMUIEvent::view" + attrGet _ = getDOMUIEventView + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "which" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMUIEventWhich :: (MonadIO m, DOMUIEventK o) => o -> m Int64 +getDOMUIEventWhich obj = liftIO $ getObjectPropertyInt64 obj "which" + +data DOMUIEventWhichPropertyInfo +instance AttrInfo DOMUIEventWhichPropertyInfo where + type AttrAllowedOps DOMUIEventWhichPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMUIEventWhichPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMUIEventWhichPropertyInfo = DOMUIEventK + type AttrGetType DOMUIEventWhichPropertyInfo = Int64 + type AttrLabel DOMUIEventWhichPropertyInfo = "DOMUIEvent::which" + attrGet _ = getDOMUIEventWhich + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMUIEvent = '[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo)] + +-- VVV Prop "bad-input" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateBadInput :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateBadInput obj = liftIO $ getObjectPropertyBool obj "bad-input" + +data DOMValidityStateBadInputPropertyInfo +instance AttrInfo DOMValidityStateBadInputPropertyInfo where + type AttrAllowedOps DOMValidityStateBadInputPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateBadInputPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateBadInputPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateBadInputPropertyInfo = Bool + type AttrLabel DOMValidityStateBadInputPropertyInfo = "DOMValidityState::bad-input" + attrGet _ = getDOMValidityStateBadInput + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "custom-error" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateCustomError :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateCustomError obj = liftIO $ getObjectPropertyBool obj "custom-error" + +data DOMValidityStateCustomErrorPropertyInfo +instance AttrInfo DOMValidityStateCustomErrorPropertyInfo where + type AttrAllowedOps DOMValidityStateCustomErrorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateCustomErrorPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateCustomErrorPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateCustomErrorPropertyInfo = Bool + type AttrLabel DOMValidityStateCustomErrorPropertyInfo = "DOMValidityState::custom-error" + attrGet _ = getDOMValidityStateCustomError + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "pattern-mismatch" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStatePatternMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStatePatternMismatch obj = liftIO $ getObjectPropertyBool obj "pattern-mismatch" + +data DOMValidityStatePatternMismatchPropertyInfo +instance AttrInfo DOMValidityStatePatternMismatchPropertyInfo where + type AttrAllowedOps DOMValidityStatePatternMismatchPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStatePatternMismatchPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStatePatternMismatchPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStatePatternMismatchPropertyInfo = Bool + type AttrLabel DOMValidityStatePatternMismatchPropertyInfo = "DOMValidityState::pattern-mismatch" + attrGet _ = getDOMValidityStatePatternMismatch + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "range-overflow" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateRangeOverflow :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateRangeOverflow obj = liftIO $ getObjectPropertyBool obj "range-overflow" + +data DOMValidityStateRangeOverflowPropertyInfo +instance AttrInfo DOMValidityStateRangeOverflowPropertyInfo where + type AttrAllowedOps DOMValidityStateRangeOverflowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateRangeOverflowPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateRangeOverflowPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateRangeOverflowPropertyInfo = Bool + type AttrLabel DOMValidityStateRangeOverflowPropertyInfo = "DOMValidityState::range-overflow" + attrGet _ = getDOMValidityStateRangeOverflow + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "range-underflow" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateRangeUnderflow :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateRangeUnderflow obj = liftIO $ getObjectPropertyBool obj "range-underflow" + +data DOMValidityStateRangeUnderflowPropertyInfo +instance AttrInfo DOMValidityStateRangeUnderflowPropertyInfo where + type AttrAllowedOps DOMValidityStateRangeUnderflowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateRangeUnderflowPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateRangeUnderflowPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateRangeUnderflowPropertyInfo = Bool + type AttrLabel DOMValidityStateRangeUnderflowPropertyInfo = "DOMValidityState::range-underflow" + attrGet _ = getDOMValidityStateRangeUnderflow + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "step-mismatch" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateStepMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateStepMismatch obj = liftIO $ getObjectPropertyBool obj "step-mismatch" + +data DOMValidityStateStepMismatchPropertyInfo +instance AttrInfo DOMValidityStateStepMismatchPropertyInfo where + type AttrAllowedOps DOMValidityStateStepMismatchPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateStepMismatchPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateStepMismatchPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateStepMismatchPropertyInfo = Bool + type AttrLabel DOMValidityStateStepMismatchPropertyInfo = "DOMValidityState::step-mismatch" + attrGet _ = getDOMValidityStateStepMismatch + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "too-long" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateTooLong :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateTooLong obj = liftIO $ getObjectPropertyBool obj "too-long" + +data DOMValidityStateTooLongPropertyInfo +instance AttrInfo DOMValidityStateTooLongPropertyInfo where + type AttrAllowedOps DOMValidityStateTooLongPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateTooLongPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateTooLongPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateTooLongPropertyInfo = Bool + type AttrLabel DOMValidityStateTooLongPropertyInfo = "DOMValidityState::too-long" + attrGet _ = getDOMValidityStateTooLong + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "type-mismatch" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateTypeMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateTypeMismatch obj = liftIO $ getObjectPropertyBool obj "type-mismatch" + +data DOMValidityStateTypeMismatchPropertyInfo +instance AttrInfo DOMValidityStateTypeMismatchPropertyInfo where + type AttrAllowedOps DOMValidityStateTypeMismatchPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateTypeMismatchPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateTypeMismatchPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateTypeMismatchPropertyInfo = Bool + type AttrLabel DOMValidityStateTypeMismatchPropertyInfo = "DOMValidityState::type-mismatch" + attrGet _ = getDOMValidityStateTypeMismatch + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "valid" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateValid :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateValid obj = liftIO $ getObjectPropertyBool obj "valid" + +data DOMValidityStateValidPropertyInfo +instance AttrInfo DOMValidityStateValidPropertyInfo where + type AttrAllowedOps DOMValidityStateValidPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateValidPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateValidPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateValidPropertyInfo = Bool + type AttrLabel DOMValidityStateValidPropertyInfo = "DOMValidityState::valid" + attrGet _ = getDOMValidityStateValid + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "value-missing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMValidityStateValueMissing :: (MonadIO m, DOMValidityStateK o) => o -> m Bool +getDOMValidityStateValueMissing obj = liftIO $ getObjectPropertyBool obj "value-missing" + +data DOMValidityStateValueMissingPropertyInfo +instance AttrInfo DOMValidityStateValueMissingPropertyInfo where + type AttrAllowedOps DOMValidityStateValueMissingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMValidityStateValueMissingPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMValidityStateValueMissingPropertyInfo = DOMValidityStateK + type AttrGetType DOMValidityStateValueMissingPropertyInfo = Bool + type AttrLabel DOMValidityStateValueMissingPropertyInfo = "DOMValidityState::value-missing" + attrGet _ = getDOMValidityStateValueMissing + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMValidityState = '[ '("bad-input", DOMValidityStateBadInputPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("custom-error", DOMValidityStateCustomErrorPropertyInfo), '("pattern-mismatch", DOMValidityStatePatternMismatchPropertyInfo), '("range-overflow", DOMValidityStateRangeOverflowPropertyInfo), '("range-underflow", DOMValidityStateRangeUnderflowPropertyInfo), '("step-mismatch", DOMValidityStateStepMismatchPropertyInfo), '("too-long", DOMValidityStateTooLongPropertyInfo), '("type-mismatch", DOMValidityStateTypeMismatchPropertyInfo), '("valid", DOMValidityStateValidPropertyInfo), '("value-missing", DOMValidityStateValueMissingPropertyInfo)] + +-- VVV Prop "corrupted-video-frames" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMVideoPlaybackQualityCorruptedVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Word64 +getDOMVideoPlaybackQualityCorruptedVideoFrames obj = liftIO $ getObjectPropertyUInt64 obj "corrupted-video-frames" + +data DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo +instance AttrInfo DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo where + type AttrAllowedOps DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = DOMVideoPlaybackQualityK + type AttrGetType DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = Word64 + type AttrLabel DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo = "DOMVideoPlaybackQuality::corrupted-video-frames" + attrGet _ = getDOMVideoPlaybackQualityCorruptedVideoFrames + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "creation-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMVideoPlaybackQualityCreationTime :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Double +getDOMVideoPlaybackQualityCreationTime obj = liftIO $ getObjectPropertyDouble obj "creation-time" + +data DOMVideoPlaybackQualityCreationTimePropertyInfo +instance AttrInfo DOMVideoPlaybackQualityCreationTimePropertyInfo where + type AttrAllowedOps DOMVideoPlaybackQualityCreationTimePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoPlaybackQualityCreationTimePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoPlaybackQualityCreationTimePropertyInfo = DOMVideoPlaybackQualityK + type AttrGetType DOMVideoPlaybackQualityCreationTimePropertyInfo = Double + type AttrLabel DOMVideoPlaybackQualityCreationTimePropertyInfo = "DOMVideoPlaybackQuality::creation-time" + attrGet _ = getDOMVideoPlaybackQualityCreationTime + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "dropped-video-frames" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMVideoPlaybackQualityDroppedVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Word64 +getDOMVideoPlaybackQualityDroppedVideoFrames obj = liftIO $ getObjectPropertyUInt64 obj "dropped-video-frames" + +data DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo +instance AttrInfo DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo where + type AttrAllowedOps DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = DOMVideoPlaybackQualityK + type AttrGetType DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = Word64 + type AttrLabel DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo = "DOMVideoPlaybackQuality::dropped-video-frames" + attrGet _ = getDOMVideoPlaybackQualityDroppedVideoFrames + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "total-frame-delay" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMVideoPlaybackQualityTotalFrameDelay :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Double +getDOMVideoPlaybackQualityTotalFrameDelay obj = liftIO $ getObjectPropertyDouble obj "total-frame-delay" + +data DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo +instance AttrInfo DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo where + type AttrAllowedOps DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = DOMVideoPlaybackQualityK + type AttrGetType DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = Double + type AttrLabel DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo = "DOMVideoPlaybackQuality::total-frame-delay" + attrGet _ = getDOMVideoPlaybackQualityTotalFrameDelay + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "total-video-frames" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMVideoPlaybackQualityTotalVideoFrames :: (MonadIO m, DOMVideoPlaybackQualityK o) => o -> m Word64 +getDOMVideoPlaybackQualityTotalVideoFrames obj = liftIO $ getObjectPropertyUInt64 obj "total-video-frames" + +data DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo +instance AttrInfo DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo where + type AttrAllowedOps DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = DOMVideoPlaybackQualityK + type AttrGetType DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = Word64 + type AttrLabel DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo = "DOMVideoPlaybackQuality::total-video-frames" + attrGet _ = getDOMVideoPlaybackQualityTotalVideoFrames + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMVideoPlaybackQuality = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("corrupted-video-frames", DOMVideoPlaybackQualityCorruptedVideoFramesPropertyInfo), '("creation-time", DOMVideoPlaybackQualityCreationTimePropertyInfo), '("dropped-video-frames", DOMVideoPlaybackQualityDroppedVideoFramesPropertyInfo), '("total-frame-delay", DOMVideoPlaybackQualityTotalFrameDelayPropertyInfo), '("total-video-frames", DOMVideoPlaybackQualityTotalVideoFramesPropertyInfo)] + +-- VVV Prop "id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMVideoTrackId :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text +getDOMVideoTrackId obj = liftIO $ getObjectPropertyString obj "id" + +data DOMVideoTrackIdPropertyInfo +instance AttrInfo DOMVideoTrackIdPropertyInfo where + type AttrAllowedOps DOMVideoTrackIdPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoTrackIdPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoTrackIdPropertyInfo = DOMVideoTrackK + type AttrGetType DOMVideoTrackIdPropertyInfo = T.Text + type AttrLabel DOMVideoTrackIdPropertyInfo = "DOMVideoTrack::id" + attrGet _ = getDOMVideoTrackId + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "kind" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMVideoTrackKind :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text +getDOMVideoTrackKind obj = liftIO $ getObjectPropertyString obj "kind" + +data DOMVideoTrackKindPropertyInfo +instance AttrInfo DOMVideoTrackKindPropertyInfo where + type AttrAllowedOps DOMVideoTrackKindPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoTrackKindPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoTrackKindPropertyInfo = DOMVideoTrackK + type AttrGetType DOMVideoTrackKindPropertyInfo = T.Text + type AttrLabel DOMVideoTrackKindPropertyInfo = "DOMVideoTrack::kind" + attrGet _ = getDOMVideoTrackKind + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMVideoTrackLabel :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text +getDOMVideoTrackLabel obj = liftIO $ getObjectPropertyString obj "label" + +data DOMVideoTrackLabelPropertyInfo +instance AttrInfo DOMVideoTrackLabelPropertyInfo where + type AttrAllowedOps DOMVideoTrackLabelPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoTrackLabelPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoTrackLabelPropertyInfo = DOMVideoTrackK + type AttrGetType DOMVideoTrackLabelPropertyInfo = T.Text + type AttrLabel DOMVideoTrackLabelPropertyInfo = "DOMVideoTrack::label" + attrGet _ = getDOMVideoTrackLabel + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "language" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMVideoTrackLanguage :: (MonadIO m, DOMVideoTrackK o) => o -> m T.Text +getDOMVideoTrackLanguage obj = liftIO $ getObjectPropertyString obj "language" + +data DOMVideoTrackLanguagePropertyInfo +instance AttrInfo DOMVideoTrackLanguagePropertyInfo where + type AttrAllowedOps DOMVideoTrackLanguagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoTrackLanguagePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoTrackLanguagePropertyInfo = DOMVideoTrackK + type AttrGetType DOMVideoTrackLanguagePropertyInfo = T.Text + type AttrLabel DOMVideoTrackLanguagePropertyInfo = "DOMVideoTrack::language" + attrGet _ = getDOMVideoTrackLanguage + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "selected" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMVideoTrackSelected :: (MonadIO m, DOMVideoTrackK o) => o -> m Bool +getDOMVideoTrackSelected obj = liftIO $ getObjectPropertyBool obj "selected" + +setDOMVideoTrackSelected :: (MonadIO m, DOMVideoTrackK o) => o -> Bool -> m () +setDOMVideoTrackSelected obj val = liftIO $ setObjectPropertyBool obj "selected" val + +constructDOMVideoTrackSelected :: Bool -> IO ([Char], GValue) +constructDOMVideoTrackSelected val = constructObjectPropertyBool "selected" val + +data DOMVideoTrackSelectedPropertyInfo +instance AttrInfo DOMVideoTrackSelectedPropertyInfo where + type AttrAllowedOps DOMVideoTrackSelectedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMVideoTrackSelectedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint DOMVideoTrackSelectedPropertyInfo = DOMVideoTrackK + type AttrGetType DOMVideoTrackSelectedPropertyInfo = Bool + type AttrLabel DOMVideoTrackSelectedPropertyInfo = "DOMVideoTrack::selected" + attrGet _ = getDOMVideoTrackSelected + attrSet _ = setDOMVideoTrackSelected + attrConstruct _ = constructDOMVideoTrackSelected + +type instance AttributeList DOMVideoTrack = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("id", DOMVideoTrackIdPropertyInfo), '("kind", DOMVideoTrackKindPropertyInfo), '("label", DOMVideoTrackLabelPropertyInfo), '("language", DOMVideoTrackLanguagePropertyInfo), '("selected", DOMVideoTrackSelectedPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMVideoTrackListLength :: (MonadIO m, DOMVideoTrackListK o) => o -> m Word64 +getDOMVideoTrackListLength obj = liftIO $ getObjectPropertyUInt64 obj "length" + +data DOMVideoTrackListLengthPropertyInfo +instance AttrInfo DOMVideoTrackListLengthPropertyInfo where + type AttrAllowedOps DOMVideoTrackListLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMVideoTrackListLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMVideoTrackListLengthPropertyInfo = DOMVideoTrackListK + type AttrGetType DOMVideoTrackListLengthPropertyInfo = Word64 + type AttrLabel DOMVideoTrackListLengthPropertyInfo = "DOMVideoTrackList::length" + attrGet _ = getDOMVideoTrackListLength + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMVideoTrackList = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMVideoTrackListLengthPropertyInfo)] + +-- VVV Prop "first-empty-region-index" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMWebKitNamedFlowFirstEmptyRegionIndex :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m Int64 +getDOMWebKitNamedFlowFirstEmptyRegionIndex obj = liftIO $ getObjectPropertyInt64 obj "first-empty-region-index" + +data DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo +instance AttrInfo DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo where + type AttrAllowedOps DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = DOMWebKitNamedFlowK + type AttrGetType DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = Int64 + type AttrLabel DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo = "DOMWebKitNamedFlow::first-empty-region-index" + attrGet _ = getDOMWebKitNamedFlowFirstEmptyRegionIndex + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMWebKitNamedFlowName :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m T.Text +getDOMWebKitNamedFlowName obj = liftIO $ getObjectPropertyString obj "name" + +data DOMWebKitNamedFlowNamePropertyInfo +instance AttrInfo DOMWebKitNamedFlowNamePropertyInfo where + type AttrAllowedOps DOMWebKitNamedFlowNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWebKitNamedFlowNamePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWebKitNamedFlowNamePropertyInfo = DOMWebKitNamedFlowK + type AttrGetType DOMWebKitNamedFlowNamePropertyInfo = T.Text + type AttrLabel DOMWebKitNamedFlowNamePropertyInfo = "DOMWebKitNamedFlow::name" + attrGet _ = getDOMWebKitNamedFlowName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "overset" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMWebKitNamedFlowOverset :: (MonadIO m, DOMWebKitNamedFlowK o) => o -> m Bool +getDOMWebKitNamedFlowOverset obj = liftIO $ getObjectPropertyBool obj "overset" + +data DOMWebKitNamedFlowOversetPropertyInfo +instance AttrInfo DOMWebKitNamedFlowOversetPropertyInfo where + type AttrAllowedOps DOMWebKitNamedFlowOversetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWebKitNamedFlowOversetPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWebKitNamedFlowOversetPropertyInfo = DOMWebKitNamedFlowK + type AttrGetType DOMWebKitNamedFlowOversetPropertyInfo = Bool + type AttrLabel DOMWebKitNamedFlowOversetPropertyInfo = "DOMWebKitNamedFlow::overset" + attrGet _ = getDOMWebKitNamedFlowOverset + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMWebKitNamedFlow = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("first-empty-region-index", DOMWebKitNamedFlowFirstEmptyRegionIndexPropertyInfo), '("name", DOMWebKitNamedFlowNamePropertyInfo), '("overset", DOMWebKitNamedFlowOversetPropertyInfo)] + +-- VVV Prop "x" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMWebKitPointX :: (MonadIO m, DOMWebKitPointK o) => o -> m Float +getDOMWebKitPointX obj = liftIO $ getObjectPropertyFloat obj "x" + +setDOMWebKitPointX :: (MonadIO m, DOMWebKitPointK o) => o -> Float -> m () +setDOMWebKitPointX obj val = liftIO $ setObjectPropertyFloat obj "x" val + +constructDOMWebKitPointX :: Float -> IO ([Char], GValue) +constructDOMWebKitPointX val = constructObjectPropertyFloat "x" val + +data DOMWebKitPointXPropertyInfo +instance AttrInfo DOMWebKitPointXPropertyInfo where + type AttrAllowedOps DOMWebKitPointXPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMWebKitPointXPropertyInfo = (~) Float + type AttrBaseTypeConstraint DOMWebKitPointXPropertyInfo = DOMWebKitPointK + type AttrGetType DOMWebKitPointXPropertyInfo = Float + type AttrLabel DOMWebKitPointXPropertyInfo = "DOMWebKitPoint::x" + attrGet _ = getDOMWebKitPointX + attrSet _ = setDOMWebKitPointX + attrConstruct _ = constructDOMWebKitPointX + +-- VVV Prop "y" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +getDOMWebKitPointY :: (MonadIO m, DOMWebKitPointK o) => o -> m Float +getDOMWebKitPointY obj = liftIO $ getObjectPropertyFloat obj "y" + +setDOMWebKitPointY :: (MonadIO m, DOMWebKitPointK o) => o -> Float -> m () +setDOMWebKitPointY obj val = liftIO $ setObjectPropertyFloat obj "y" val + +constructDOMWebKitPointY :: Float -> IO ([Char], GValue) +constructDOMWebKitPointY val = constructObjectPropertyFloat "y" val + +data DOMWebKitPointYPropertyInfo +instance AttrInfo DOMWebKitPointYPropertyInfo where + type AttrAllowedOps DOMWebKitPointYPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DOMWebKitPointYPropertyInfo = (~) Float + type AttrBaseTypeConstraint DOMWebKitPointYPropertyInfo = DOMWebKitPointK + type AttrGetType DOMWebKitPointYPropertyInfo = Float + type AttrLabel DOMWebKitPointYPropertyInfo = "DOMWebKitPoint::y" + attrGet _ = getDOMWebKitPointY + attrSet _ = setDOMWebKitPointY + attrConstruct _ = constructDOMWebKitPointY + +type instance AttributeList DOMWebKitPoint = '[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("x", DOMWebKitPointXPropertyInfo), '("y", DOMWebKitPointYPropertyInfo)] + +-- VVV Prop "delta-mode" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMWheelEventDeltaMode :: (MonadIO m, DOMWheelEventK o) => o -> m Word64 +getDOMWheelEventDeltaMode obj = liftIO $ getObjectPropertyUInt64 obj "delta-mode" + +data DOMWheelEventDeltaModePropertyInfo +instance AttrInfo DOMWheelEventDeltaModePropertyInfo where + type AttrAllowedOps DOMWheelEventDeltaModePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventDeltaModePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventDeltaModePropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventDeltaModePropertyInfo = Word64 + type AttrLabel DOMWheelEventDeltaModePropertyInfo = "DOMWheelEvent::delta-mode" + attrGet _ = getDOMWheelEventDeltaMode + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "delta-x" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMWheelEventDeltaX :: (MonadIO m, DOMWheelEventK o) => o -> m Double +getDOMWheelEventDeltaX obj = liftIO $ getObjectPropertyDouble obj "delta-x" + +data DOMWheelEventDeltaXPropertyInfo +instance AttrInfo DOMWheelEventDeltaXPropertyInfo where + type AttrAllowedOps DOMWheelEventDeltaXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventDeltaXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventDeltaXPropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventDeltaXPropertyInfo = Double + type AttrLabel DOMWheelEventDeltaXPropertyInfo = "DOMWheelEvent::delta-x" + attrGet _ = getDOMWheelEventDeltaX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "delta-y" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMWheelEventDeltaY :: (MonadIO m, DOMWheelEventK o) => o -> m Double +getDOMWheelEventDeltaY obj = liftIO $ getObjectPropertyDouble obj "delta-y" + +data DOMWheelEventDeltaYPropertyInfo +instance AttrInfo DOMWheelEventDeltaYPropertyInfo where + type AttrAllowedOps DOMWheelEventDeltaYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventDeltaYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventDeltaYPropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventDeltaYPropertyInfo = Double + type AttrLabel DOMWheelEventDeltaYPropertyInfo = "DOMWheelEvent::delta-y" + attrGet _ = getDOMWheelEventDeltaY + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "delta-z" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMWheelEventDeltaZ :: (MonadIO m, DOMWheelEventK o) => o -> m Double +getDOMWheelEventDeltaZ obj = liftIO $ getObjectPropertyDouble obj "delta-z" + +data DOMWheelEventDeltaZPropertyInfo +instance AttrInfo DOMWheelEventDeltaZPropertyInfo where + type AttrAllowedOps DOMWheelEventDeltaZPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventDeltaZPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventDeltaZPropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventDeltaZPropertyInfo = Double + type AttrLabel DOMWheelEventDeltaZPropertyInfo = "DOMWheelEvent::delta-z" + attrGet _ = getDOMWheelEventDeltaZ + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "webkit-direction-inverted-from-device" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMWheelEventWebkitDirectionInvertedFromDevice :: (MonadIO m, DOMWheelEventK o) => o -> m Bool +getDOMWheelEventWebkitDirectionInvertedFromDevice obj = liftIO $ getObjectPropertyBool obj "webkit-direction-inverted-from-device" + +data DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo +instance AttrInfo DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo where + type AttrAllowedOps DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = Bool + type AttrLabel DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo = "DOMWheelEvent::webkit-direction-inverted-from-device" + attrGet _ = getDOMWheelEventWebkitDirectionInvertedFromDevice + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "wheel-delta" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMWheelEventWheelDelta :: (MonadIO m, DOMWheelEventK o) => o -> m Int64 +getDOMWheelEventWheelDelta obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta" + +data DOMWheelEventWheelDeltaPropertyInfo +instance AttrInfo DOMWheelEventWheelDeltaPropertyInfo where + type AttrAllowedOps DOMWheelEventWheelDeltaPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventWheelDeltaPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventWheelDeltaPropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventWheelDeltaPropertyInfo = Int64 + type AttrLabel DOMWheelEventWheelDeltaPropertyInfo = "DOMWheelEvent::wheel-delta" + attrGet _ = getDOMWheelEventWheelDelta + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "wheel-delta-x" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMWheelEventWheelDeltaX :: (MonadIO m, DOMWheelEventK o) => o -> m Int64 +getDOMWheelEventWheelDeltaX obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta-x" + +data DOMWheelEventWheelDeltaXPropertyInfo +instance AttrInfo DOMWheelEventWheelDeltaXPropertyInfo where + type AttrAllowedOps DOMWheelEventWheelDeltaXPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventWheelDeltaXPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventWheelDeltaXPropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventWheelDeltaXPropertyInfo = Int64 + type AttrLabel DOMWheelEventWheelDeltaXPropertyInfo = "DOMWheelEvent::wheel-delta-x" + attrGet _ = getDOMWheelEventWheelDeltaX + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "wheel-delta-y" + -- Type: TBasicType TInt64 + -- Flags: [PropertyReadable] + +getDOMWheelEventWheelDeltaY :: (MonadIO m, DOMWheelEventK o) => o -> m Int64 +getDOMWheelEventWheelDeltaY obj = liftIO $ getObjectPropertyInt64 obj "wheel-delta-y" + +data DOMWheelEventWheelDeltaYPropertyInfo +instance AttrInfo DOMWheelEventWheelDeltaYPropertyInfo where + type AttrAllowedOps DOMWheelEventWheelDeltaYPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMWheelEventWheelDeltaYPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMWheelEventWheelDeltaYPropertyInfo = DOMWheelEventK + type AttrGetType DOMWheelEventWheelDeltaYPropertyInfo = Int64 + type AttrLabel DOMWheelEventWheelDeltaYPropertyInfo = "DOMWheelEvent::wheel-delta-y" + attrGet _ = getDOMWheelEventWheelDeltaY + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMWheelEvent = '[ '("alt-key", DOMMouseEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("button", DOMMouseEventButtonPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("client-x", DOMMouseEventClientXPropertyInfo), '("client-y", DOMMouseEventClientYPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("ctrl-key", DOMMouseEventCtrlKeyPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("delta-mode", DOMWheelEventDeltaModePropertyInfo), '("delta-x", DOMWheelEventDeltaXPropertyInfo), '("delta-y", DOMWheelEventDeltaYPropertyInfo), '("delta-z", DOMWheelEventDeltaZPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("from-element", DOMMouseEventFromElementPropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("meta-key", DOMMouseEventMetaKeyPropertyInfo), '("offset-x", DOMMouseEventOffsetXPropertyInfo), '("offset-y", DOMMouseEventOffsetYPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("related-target", DOMMouseEventRelatedTargetPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("screen-x", DOMMouseEventScreenXPropertyInfo), '("screen-y", DOMMouseEventScreenYPropertyInfo), '("shift-key", DOMMouseEventShiftKeyPropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("to-element", DOMMouseEventToElementPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("webkit-direction-inverted-from-device", DOMWheelEventWebkitDirectionInvertedFromDevicePropertyInfo), '("webkit-movement-x", DOMMouseEventWebkitMovementXPropertyInfo), '("webkit-movement-y", DOMMouseEventWebkitMovementYPropertyInfo), '("wheel-delta", DOMWheelEventWheelDeltaPropertyInfo), '("wheel-delta-x", DOMWheelEventWheelDeltaXPropertyInfo), '("wheel-delta-y", DOMWheelEventWheelDeltaYPropertyInfo), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] + +type instance AttributeList DOMXPathExpression = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] + +type instance AttributeList DOMXPathNSResolver = '[ '("core-object", DOMObjectCoreObjectPropertyInfo)] + +-- VVV Prop "boolean-value" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMXPathResultBooleanValue :: (MonadIO m, DOMXPathResultK o) => o -> m Bool +getDOMXPathResultBooleanValue obj = liftIO $ getObjectPropertyBool obj "boolean-value" + +data DOMXPathResultBooleanValuePropertyInfo +instance AttrInfo DOMXPathResultBooleanValuePropertyInfo where + type AttrAllowedOps DOMXPathResultBooleanValuePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMXPathResultBooleanValuePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMXPathResultBooleanValuePropertyInfo = DOMXPathResultK + type AttrGetType DOMXPathResultBooleanValuePropertyInfo = Bool + type AttrLabel DOMXPathResultBooleanValuePropertyInfo = "DOMXPathResult::boolean-value" + attrGet _ = getDOMXPathResultBooleanValue + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "invalid-iterator-state" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getDOMXPathResultInvalidIteratorState :: (MonadIO m, DOMXPathResultK o) => o -> m Bool +getDOMXPathResultInvalidIteratorState obj = liftIO $ getObjectPropertyBool obj "invalid-iterator-state" + +data DOMXPathResultInvalidIteratorStatePropertyInfo +instance AttrInfo DOMXPathResultInvalidIteratorStatePropertyInfo where + type AttrAllowedOps DOMXPathResultInvalidIteratorStatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMXPathResultInvalidIteratorStatePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMXPathResultInvalidIteratorStatePropertyInfo = DOMXPathResultK + type AttrGetType DOMXPathResultInvalidIteratorStatePropertyInfo = Bool + type AttrLabel DOMXPathResultInvalidIteratorStatePropertyInfo = "DOMXPathResult::invalid-iterator-state" + attrGet _ = getDOMXPathResultInvalidIteratorState + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "number-value" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDOMXPathResultNumberValue :: (MonadIO m, DOMXPathResultK o) => o -> m Double +getDOMXPathResultNumberValue obj = liftIO $ getObjectPropertyDouble obj "number-value" + +data DOMXPathResultNumberValuePropertyInfo +instance AttrInfo DOMXPathResultNumberValuePropertyInfo where + type AttrAllowedOps DOMXPathResultNumberValuePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMXPathResultNumberValuePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMXPathResultNumberValuePropertyInfo = DOMXPathResultK + type AttrGetType DOMXPathResultNumberValuePropertyInfo = Double + type AttrLabel DOMXPathResultNumberValuePropertyInfo = "DOMXPathResult::number-value" + attrGet _ = getDOMXPathResultNumberValue + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "result-type" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getDOMXPathResultResultType :: (MonadIO m, DOMXPathResultK o) => o -> m Word32 +getDOMXPathResultResultType obj = liftIO $ getObjectPropertyCUInt obj "result-type" + +data DOMXPathResultResultTypePropertyInfo +instance AttrInfo DOMXPathResultResultTypePropertyInfo where + type AttrAllowedOps DOMXPathResultResultTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMXPathResultResultTypePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMXPathResultResultTypePropertyInfo = DOMXPathResultK + type AttrGetType DOMXPathResultResultTypePropertyInfo = Word32 + type AttrLabel DOMXPathResultResultTypePropertyInfo = "DOMXPathResult::result-type" + attrGet _ = getDOMXPathResultResultType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "single-node-value" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable] + +getDOMXPathResultSingleNodeValue :: (MonadIO m, DOMXPathResultK o) => o -> m DOMNode +getDOMXPathResultSingleNodeValue obj = liftIO $ getObjectPropertyObject obj "single-node-value" DOMNode + +data DOMXPathResultSingleNodeValuePropertyInfo +instance AttrInfo DOMXPathResultSingleNodeValuePropertyInfo where + type AttrAllowedOps DOMXPathResultSingleNodeValuePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMXPathResultSingleNodeValuePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMXPathResultSingleNodeValuePropertyInfo = DOMXPathResultK + type AttrGetType DOMXPathResultSingleNodeValuePropertyInfo = DOMNode + type AttrLabel DOMXPathResultSingleNodeValuePropertyInfo = "DOMXPathResult::single-node-value" + attrGet _ = getDOMXPathResultSingleNodeValue + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "snapshot-length" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDOMXPathResultSnapshotLength :: (MonadIO m, DOMXPathResultK o) => o -> m Word64 +getDOMXPathResultSnapshotLength obj = liftIO $ getObjectPropertyUInt64 obj "snapshot-length" + +data DOMXPathResultSnapshotLengthPropertyInfo +instance AttrInfo DOMXPathResultSnapshotLengthPropertyInfo where + type AttrAllowedOps DOMXPathResultSnapshotLengthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMXPathResultSnapshotLengthPropertyInfo = (~) () + type AttrBaseTypeConstraint DOMXPathResultSnapshotLengthPropertyInfo = DOMXPathResultK + type AttrGetType DOMXPathResultSnapshotLengthPropertyInfo = Word64 + type AttrLabel DOMXPathResultSnapshotLengthPropertyInfo = "DOMXPathResult::snapshot-length" + attrGet _ = getDOMXPathResultSnapshotLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "string-value" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDOMXPathResultStringValue :: (MonadIO m, DOMXPathResultK o) => o -> m T.Text +getDOMXPathResultStringValue obj = liftIO $ getObjectPropertyString obj "string-value" + +data DOMXPathResultStringValuePropertyInfo +instance AttrInfo DOMXPathResultStringValuePropertyInfo where + type AttrAllowedOps DOMXPathResultStringValuePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DOMXPathResultStringValuePropertyInfo = (~) () + type AttrBaseTypeConstraint DOMXPathResultStringValuePropertyInfo = DOMXPathResultK + type AttrGetType DOMXPathResultStringValuePropertyInfo = T.Text + type AttrLabel DOMXPathResultStringValuePropertyInfo = "DOMXPathResult::string-value" + attrGet _ = getDOMXPathResultStringValue + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList DOMXPathResult = '[ '("boolean-value", DOMXPathResultBooleanValuePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("invalid-iterator-state", DOMXPathResultInvalidIteratorStatePropertyInfo), '("number-value", DOMXPathResultNumberValuePropertyInfo), '("result-type", DOMXPathResultResultTypePropertyInfo), '("single-node-value", DOMXPathResultSingleNodeValuePropertyInfo), '("snapshot-length", DOMXPathResultSnapshotLengthPropertyInfo), '("string-value", DOMXPathResultStringValuePropertyInfo)] + +-- VVV Prop "current-size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDownloadCurrentSize :: (MonadIO m, DownloadK o) => o -> m Word64 +getDownloadCurrentSize obj = liftIO $ getObjectPropertyUInt64 obj "current-size" + +data DownloadCurrentSizePropertyInfo +instance AttrInfo DownloadCurrentSizePropertyInfo where + type AttrAllowedOps DownloadCurrentSizePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DownloadCurrentSizePropertyInfo = (~) () + type AttrBaseTypeConstraint DownloadCurrentSizePropertyInfo = DownloadK + type AttrGetType DownloadCurrentSizePropertyInfo = Word64 + type AttrLabel DownloadCurrentSizePropertyInfo = "Download::current-size" + attrGet _ = getDownloadCurrentSize + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "destination-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getDownloadDestinationUri :: (MonadIO m, DownloadK o) => o -> m T.Text +getDownloadDestinationUri obj = liftIO $ getObjectPropertyString obj "destination-uri" + +setDownloadDestinationUri :: (MonadIO m, DownloadK o) => o -> T.Text -> m () +setDownloadDestinationUri obj val = liftIO $ setObjectPropertyString obj "destination-uri" val + +constructDownloadDestinationUri :: T.Text -> IO ([Char], GValue) +constructDownloadDestinationUri val = constructObjectPropertyString "destination-uri" val + +data DownloadDestinationUriPropertyInfo +instance AttrInfo DownloadDestinationUriPropertyInfo where + type AttrAllowedOps DownloadDestinationUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DownloadDestinationUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint DownloadDestinationUriPropertyInfo = DownloadK + type AttrGetType DownloadDestinationUriPropertyInfo = T.Text + type AttrLabel DownloadDestinationUriPropertyInfo = "Download::destination-uri" + attrGet _ = getDownloadDestinationUri + attrSet _ = setDownloadDestinationUri + attrConstruct _ = constructDownloadDestinationUri + +-- VVV Prop "network-request" + -- Type: TInterface "WebKit" "NetworkRequest" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDownloadNetworkRequest :: (MonadIO m, DownloadK o) => o -> m NetworkRequest +getDownloadNetworkRequest obj = liftIO $ getObjectPropertyObject obj "network-request" NetworkRequest + +constructDownloadNetworkRequest :: (NetworkRequestK a) => a -> IO ([Char], GValue) +constructDownloadNetworkRequest val = constructObjectPropertyObject "network-request" val + +data DownloadNetworkRequestPropertyInfo +instance AttrInfo DownloadNetworkRequestPropertyInfo where + type AttrAllowedOps DownloadNetworkRequestPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DownloadNetworkRequestPropertyInfo = NetworkRequestK + type AttrBaseTypeConstraint DownloadNetworkRequestPropertyInfo = DownloadK + type AttrGetType DownloadNetworkRequestPropertyInfo = NetworkRequest + type AttrLabel DownloadNetworkRequestPropertyInfo = "Download::network-request" + attrGet _ = getDownloadNetworkRequest + attrSet _ = undefined + attrConstruct _ = constructDownloadNetworkRequest + +-- VVV Prop "network-response" + -- Type: TInterface "WebKit" "NetworkResponse" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDownloadNetworkResponse :: (MonadIO m, DownloadK o) => o -> m NetworkResponse +getDownloadNetworkResponse obj = liftIO $ getObjectPropertyObject obj "network-response" NetworkResponse + +constructDownloadNetworkResponse :: (NetworkResponseK a) => a -> IO ([Char], GValue) +constructDownloadNetworkResponse val = constructObjectPropertyObject "network-response" val + +data DownloadNetworkResponsePropertyInfo +instance AttrInfo DownloadNetworkResponsePropertyInfo where + type AttrAllowedOps DownloadNetworkResponsePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint DownloadNetworkResponsePropertyInfo = NetworkResponseK + type AttrBaseTypeConstraint DownloadNetworkResponsePropertyInfo = DownloadK + type AttrGetType DownloadNetworkResponsePropertyInfo = NetworkResponse + type AttrLabel DownloadNetworkResponsePropertyInfo = "Download::network-response" + attrGet _ = getDownloadNetworkResponse + attrSet _ = undefined + attrConstruct _ = constructDownloadNetworkResponse + +-- VVV Prop "progress" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getDownloadProgress :: (MonadIO m, DownloadK o) => o -> m Double +getDownloadProgress obj = liftIO $ getObjectPropertyDouble obj "progress" + +data DownloadProgressPropertyInfo +instance AttrInfo DownloadProgressPropertyInfo where + type AttrAllowedOps DownloadProgressPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DownloadProgressPropertyInfo = (~) () + type AttrBaseTypeConstraint DownloadProgressPropertyInfo = DownloadK + type AttrGetType DownloadProgressPropertyInfo = Double + type AttrLabel DownloadProgressPropertyInfo = "Download::progress" + attrGet _ = getDownloadProgress + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "status" + -- Type: TInterface "WebKit" "DownloadStatus" + -- Flags: [PropertyReadable] + +getDownloadStatus :: (MonadIO m, DownloadK o) => o -> m DownloadStatus +getDownloadStatus obj = liftIO $ getObjectPropertyEnum obj "status" + +data DownloadStatusPropertyInfo +instance AttrInfo DownloadStatusPropertyInfo where + type AttrAllowedOps DownloadStatusPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DownloadStatusPropertyInfo = (~) () + type AttrBaseTypeConstraint DownloadStatusPropertyInfo = DownloadK + type AttrGetType DownloadStatusPropertyInfo = DownloadStatus + type AttrLabel DownloadStatusPropertyInfo = "Download::status" + attrGet _ = getDownloadStatus + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "suggested-filename" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getDownloadSuggestedFilename :: (MonadIO m, DownloadK o) => o -> m T.Text +getDownloadSuggestedFilename obj = liftIO $ getObjectPropertyString obj "suggested-filename" + +data DownloadSuggestedFilenamePropertyInfo +instance AttrInfo DownloadSuggestedFilenamePropertyInfo where + type AttrAllowedOps DownloadSuggestedFilenamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DownloadSuggestedFilenamePropertyInfo = (~) () + type AttrBaseTypeConstraint DownloadSuggestedFilenamePropertyInfo = DownloadK + type AttrGetType DownloadSuggestedFilenamePropertyInfo = T.Text + type AttrLabel DownloadSuggestedFilenamePropertyInfo = "Download::suggested-filename" + attrGet _ = getDownloadSuggestedFilename + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "total-size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getDownloadTotalSize :: (MonadIO m, DownloadK o) => o -> m Word64 +getDownloadTotalSize obj = liftIO $ getObjectPropertyUInt64 obj "total-size" + +data DownloadTotalSizePropertyInfo +instance AttrInfo DownloadTotalSizePropertyInfo where + type AttrAllowedOps DownloadTotalSizePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint DownloadTotalSizePropertyInfo = (~) () + type AttrBaseTypeConstraint DownloadTotalSizePropertyInfo = DownloadK + type AttrGetType DownloadTotalSizePropertyInfo = Word64 + type AttrLabel DownloadTotalSizePropertyInfo = "Download::total-size" + attrGet _ = getDownloadTotalSize + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList Download = '[ '("current-size", DownloadCurrentSizePropertyInfo), '("destination-uri", DownloadDestinationUriPropertyInfo), '("network-request", DownloadNetworkRequestPropertyInfo), '("network-response", DownloadNetworkResponsePropertyInfo), '("progress", DownloadProgressPropertyInfo), '("status", DownloadStatusPropertyInfo), '("suggested-filename", DownloadSuggestedFilenamePropertyInfo), '("total-size", DownloadTotalSizePropertyInfo)] + +-- VVV Prop "path" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getFaviconDatabasePath :: (MonadIO m, FaviconDatabaseK o) => o -> m T.Text +getFaviconDatabasePath obj = liftIO $ getObjectPropertyString obj "path" + +setFaviconDatabasePath :: (MonadIO m, FaviconDatabaseK o) => o -> T.Text -> m () +setFaviconDatabasePath obj val = liftIO $ setObjectPropertyString obj "path" val + +constructFaviconDatabasePath :: T.Text -> IO ([Char], GValue) +constructFaviconDatabasePath val = constructObjectPropertyString "path" val + +data FaviconDatabasePathPropertyInfo +instance AttrInfo FaviconDatabasePathPropertyInfo where + type AttrAllowedOps FaviconDatabasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FaviconDatabasePathPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint FaviconDatabasePathPropertyInfo = FaviconDatabaseK + type AttrGetType FaviconDatabasePathPropertyInfo = T.Text + type AttrLabel FaviconDatabasePathPropertyInfo = "FaviconDatabase::path" + attrGet _ = getFaviconDatabasePath + attrSet _ = setFaviconDatabasePath + attrConstruct _ = constructFaviconDatabasePath + +type instance AttributeList FaviconDatabase = '[ '("path", FaviconDatabasePathPropertyInfo)] + +-- VVV Prop "filter" + -- Type: TInterface "Gtk" "FileFilter" + -- Flags: [PropertyReadable] + +getFileChooserRequestFilter :: (MonadIO m, FileChooserRequestK o) => o -> m Gtk.FileFilter +getFileChooserRequestFilter obj = liftIO $ getObjectPropertyObject obj "filter" Gtk.FileFilter + +data FileChooserRequestFilterPropertyInfo +instance AttrInfo FileChooserRequestFilterPropertyInfo where + type AttrAllowedOps FileChooserRequestFilterPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint FileChooserRequestFilterPropertyInfo = (~) () + type AttrBaseTypeConstraint FileChooserRequestFilterPropertyInfo = FileChooserRequestK + type AttrGetType FileChooserRequestFilterPropertyInfo = Gtk.FileFilter + type AttrLabel FileChooserRequestFilterPropertyInfo = "FileChooserRequest::filter" + attrGet _ = getFileChooserRequestFilter + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "mime-types" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable] + +getFileChooserRequestMimeTypes :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text] +getFileChooserRequestMimeTypes obj = liftIO $ getObjectPropertyStringArray obj "mime-types" + +data FileChooserRequestMimeTypesPropertyInfo +instance AttrInfo FileChooserRequestMimeTypesPropertyInfo where + type AttrAllowedOps FileChooserRequestMimeTypesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint FileChooserRequestMimeTypesPropertyInfo = (~) () + type AttrBaseTypeConstraint FileChooserRequestMimeTypesPropertyInfo = FileChooserRequestK + type AttrGetType FileChooserRequestMimeTypesPropertyInfo = [T.Text] + type AttrLabel FileChooserRequestMimeTypesPropertyInfo = "FileChooserRequest::mime-types" + attrGet _ = getFileChooserRequestMimeTypes + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "select-multiple" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getFileChooserRequestSelectMultiple :: (MonadIO m, FileChooserRequestK o) => o -> m Bool +getFileChooserRequestSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple" + +data FileChooserRequestSelectMultiplePropertyInfo +instance AttrInfo FileChooserRequestSelectMultiplePropertyInfo where + type AttrAllowedOps FileChooserRequestSelectMultiplePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = (~) () + type AttrBaseTypeConstraint FileChooserRequestSelectMultiplePropertyInfo = FileChooserRequestK + type AttrGetType FileChooserRequestSelectMultiplePropertyInfo = Bool + type AttrLabel FileChooserRequestSelectMultiplePropertyInfo = "FileChooserRequest::select-multiple" + attrGet _ = getFileChooserRequestSelectMultiple + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "selected-files" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable] + +getFileChooserRequestSelectedFiles :: (MonadIO m, FileChooserRequestK o) => o -> m [T.Text] +getFileChooserRequestSelectedFiles obj = liftIO $ getObjectPropertyStringArray obj "selected-files" + +data FileChooserRequestSelectedFilesPropertyInfo +instance AttrInfo FileChooserRequestSelectedFilesPropertyInfo where + type AttrAllowedOps FileChooserRequestSelectedFilesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = (~) () + type AttrBaseTypeConstraint FileChooserRequestSelectedFilesPropertyInfo = FileChooserRequestK + type AttrGetType FileChooserRequestSelectedFilesPropertyInfo = [T.Text] + type AttrLabel FileChooserRequestSelectedFilesPropertyInfo = "FileChooserRequest::selected-files" + attrGet _ = getFileChooserRequestSelectedFiles + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList FileChooserRequest = '[ '("filter", FileChooserRequestFilterPropertyInfo), '("mime-types", FileChooserRequestMimeTypesPropertyInfo), '("select-multiple", FileChooserRequestSelectMultiplePropertyInfo), '("selected-files", FileChooserRequestSelectedFilesPropertyInfo)] + +type instance AttributeList GeolocationPolicyDecision = '[ ] + +-- VVV Prop "context" + -- Type: TInterface "WebKit" "HitTestResultContext" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getHitTestResultContext :: (MonadIO m, HitTestResultK o) => o -> m [HitTestResultContext] +getHitTestResultContext obj = liftIO $ getObjectPropertyFlags obj "context" + +constructHitTestResultContext :: [HitTestResultContext] -> IO ([Char], GValue) +constructHitTestResultContext val = constructObjectPropertyFlags "context" val + +data HitTestResultContextPropertyInfo +instance AttrInfo HitTestResultContextPropertyInfo where + type AttrAllowedOps HitTestResultContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HitTestResultContextPropertyInfo = (~) [HitTestResultContext] + type AttrBaseTypeConstraint HitTestResultContextPropertyInfo = HitTestResultK + type AttrGetType HitTestResultContextPropertyInfo = [HitTestResultContext] + type AttrLabel HitTestResultContextPropertyInfo = "HitTestResult::context" + attrGet _ = getHitTestResultContext + attrSet _ = undefined + attrConstruct _ = constructHitTestResultContext + +-- VVV Prop "image-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getHitTestResultImageUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text +getHitTestResultImageUri obj = liftIO $ getObjectPropertyString obj "image-uri" + +constructHitTestResultImageUri :: T.Text -> IO ([Char], GValue) +constructHitTestResultImageUri val = constructObjectPropertyString "image-uri" val + +data HitTestResultImageUriPropertyInfo +instance AttrInfo HitTestResultImageUriPropertyInfo where + type AttrAllowedOps HitTestResultImageUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HitTestResultImageUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint HitTestResultImageUriPropertyInfo = HitTestResultK + type AttrGetType HitTestResultImageUriPropertyInfo = T.Text + type AttrLabel HitTestResultImageUriPropertyInfo = "HitTestResult::image-uri" + attrGet _ = getHitTestResultImageUri + attrSet _ = undefined + attrConstruct _ = constructHitTestResultImageUri + +-- VVV Prop "inner-node" + -- Type: TInterface "WebKit" "DOMNode" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getHitTestResultInnerNode :: (MonadIO m, HitTestResultK o) => o -> m DOMNode +getHitTestResultInnerNode obj = liftIO $ getObjectPropertyObject obj "inner-node" DOMNode + +constructHitTestResultInnerNode :: (DOMNodeK a) => a -> IO ([Char], GValue) +constructHitTestResultInnerNode val = constructObjectPropertyObject "inner-node" val + +data HitTestResultInnerNodePropertyInfo +instance AttrInfo HitTestResultInnerNodePropertyInfo where + type AttrAllowedOps HitTestResultInnerNodePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HitTestResultInnerNodePropertyInfo = DOMNodeK + type AttrBaseTypeConstraint HitTestResultInnerNodePropertyInfo = HitTestResultK + type AttrGetType HitTestResultInnerNodePropertyInfo = DOMNode + type AttrLabel HitTestResultInnerNodePropertyInfo = "HitTestResult::inner-node" + attrGet _ = getHitTestResultInnerNode + attrSet _ = undefined + attrConstruct _ = constructHitTestResultInnerNode + +-- VVV Prop "link-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getHitTestResultLinkUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text +getHitTestResultLinkUri obj = liftIO $ getObjectPropertyString obj "link-uri" + +constructHitTestResultLinkUri :: T.Text -> IO ([Char], GValue) +constructHitTestResultLinkUri val = constructObjectPropertyString "link-uri" val + +data HitTestResultLinkUriPropertyInfo +instance AttrInfo HitTestResultLinkUriPropertyInfo where + type AttrAllowedOps HitTestResultLinkUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HitTestResultLinkUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint HitTestResultLinkUriPropertyInfo = HitTestResultK + type AttrGetType HitTestResultLinkUriPropertyInfo = T.Text + type AttrLabel HitTestResultLinkUriPropertyInfo = "HitTestResult::link-uri" + attrGet _ = getHitTestResultLinkUri + attrSet _ = undefined + attrConstruct _ = constructHitTestResultLinkUri + +-- VVV Prop "media-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getHitTestResultMediaUri :: (MonadIO m, HitTestResultK o) => o -> m T.Text +getHitTestResultMediaUri obj = liftIO $ getObjectPropertyString obj "media-uri" + +constructHitTestResultMediaUri :: T.Text -> IO ([Char], GValue) +constructHitTestResultMediaUri val = constructObjectPropertyString "media-uri" val + +data HitTestResultMediaUriPropertyInfo +instance AttrInfo HitTestResultMediaUriPropertyInfo where + type AttrAllowedOps HitTestResultMediaUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HitTestResultMediaUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint HitTestResultMediaUriPropertyInfo = HitTestResultK + type AttrGetType HitTestResultMediaUriPropertyInfo = T.Text + type AttrLabel HitTestResultMediaUriPropertyInfo = "HitTestResult::media-uri" + attrGet _ = getHitTestResultMediaUri + attrSet _ = undefined + attrConstruct _ = constructHitTestResultMediaUri + +-- VVV Prop "x" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getHitTestResultX :: (MonadIO m, HitTestResultK o) => o -> m Int32 +getHitTestResultX obj = liftIO $ getObjectPropertyCInt obj "x" + +constructHitTestResultX :: Int32 -> IO ([Char], GValue) +constructHitTestResultX val = constructObjectPropertyCInt "x" val + +data HitTestResultXPropertyInfo +instance AttrInfo HitTestResultXPropertyInfo where + type AttrAllowedOps HitTestResultXPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HitTestResultXPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint HitTestResultXPropertyInfo = HitTestResultK + type AttrGetType HitTestResultXPropertyInfo = Int32 + type AttrLabel HitTestResultXPropertyInfo = "HitTestResult::x" + attrGet _ = getHitTestResultX + attrSet _ = undefined + attrConstruct _ = constructHitTestResultX + +-- VVV Prop "y" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getHitTestResultY :: (MonadIO m, HitTestResultK o) => o -> m Int32 +getHitTestResultY obj = liftIO $ getObjectPropertyCInt obj "y" + +constructHitTestResultY :: Int32 -> IO ([Char], GValue) +constructHitTestResultY val = constructObjectPropertyCInt "y" val + +data HitTestResultYPropertyInfo +instance AttrInfo HitTestResultYPropertyInfo where + type AttrAllowedOps HitTestResultYPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HitTestResultYPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint HitTestResultYPropertyInfo = HitTestResultK + type AttrGetType HitTestResultYPropertyInfo = Int32 + type AttrLabel HitTestResultYPropertyInfo = "HitTestResult::y" + attrGet _ = getHitTestResultY + attrSet _ = undefined + attrConstruct _ = constructHitTestResultY + +type instance AttributeList HitTestResult = '[ '("context", HitTestResultContextPropertyInfo), '("image-uri", HitTestResultImageUriPropertyInfo), '("inner-node", HitTestResultInnerNodePropertyInfo), '("link-uri", HitTestResultLinkUriPropertyInfo), '("media-uri", HitTestResultMediaUriPropertyInfo), '("x", HitTestResultXPropertyInfo), '("y", HitTestResultYPropertyInfo)] + +-- VVV Prop "path" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconDatabasePath :: (MonadIO m, IconDatabaseK o) => o -> m T.Text +getIconDatabasePath obj = liftIO $ getObjectPropertyString obj "path" + +setIconDatabasePath :: (MonadIO m, IconDatabaseK o) => o -> T.Text -> m () +setIconDatabasePath obj val = liftIO $ setObjectPropertyString obj "path" val + +constructIconDatabasePath :: T.Text -> IO ([Char], GValue) +constructIconDatabasePath val = constructObjectPropertyString "path" val + +data IconDatabasePathPropertyInfo +instance AttrInfo IconDatabasePathPropertyInfo where + type AttrAllowedOps IconDatabasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconDatabasePathPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint IconDatabasePathPropertyInfo = IconDatabaseK + type AttrGetType IconDatabasePathPropertyInfo = T.Text + type AttrLabel IconDatabasePathPropertyInfo = "IconDatabase::path" + attrGet _ = getIconDatabasePath + attrSet _ = setIconDatabasePath + attrConstruct _ = constructIconDatabasePath + +type instance AttributeList IconDatabase = '[ '("path", IconDatabasePathPropertyInfo)] + +-- VVV Prop "message" + -- Type: TInterface "Soup" "Message" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getNetworkRequestMessage :: (MonadIO m, NetworkRequestK o) => o -> m Soup.Message +getNetworkRequestMessage obj = liftIO $ getObjectPropertyObject obj "message" Soup.Message + +constructNetworkRequestMessage :: (Soup.MessageK a) => a -> IO ([Char], GValue) +constructNetworkRequestMessage val = constructObjectPropertyObject "message" val + +data NetworkRequestMessagePropertyInfo +instance AttrInfo NetworkRequestMessagePropertyInfo where + type AttrAllowedOps NetworkRequestMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NetworkRequestMessagePropertyInfo = Soup.MessageK + type AttrBaseTypeConstraint NetworkRequestMessagePropertyInfo = NetworkRequestK + type AttrGetType NetworkRequestMessagePropertyInfo = Soup.Message + type AttrLabel NetworkRequestMessagePropertyInfo = "NetworkRequest::message" + attrGet _ = getNetworkRequestMessage + attrSet _ = undefined + attrConstruct _ = constructNetworkRequestMessage + +-- VVV Prop "uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getNetworkRequestUri :: (MonadIO m, NetworkRequestK o) => o -> m T.Text +getNetworkRequestUri obj = liftIO $ getObjectPropertyString obj "uri" + +setNetworkRequestUri :: (MonadIO m, NetworkRequestK o) => o -> T.Text -> m () +setNetworkRequestUri obj val = liftIO $ setObjectPropertyString obj "uri" val + +constructNetworkRequestUri :: T.Text -> IO ([Char], GValue) +constructNetworkRequestUri val = constructObjectPropertyString "uri" val + +data NetworkRequestUriPropertyInfo +instance AttrInfo NetworkRequestUriPropertyInfo where + type AttrAllowedOps NetworkRequestUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NetworkRequestUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint NetworkRequestUriPropertyInfo = NetworkRequestK + type AttrGetType NetworkRequestUriPropertyInfo = T.Text + type AttrLabel NetworkRequestUriPropertyInfo = "NetworkRequest::uri" + attrGet _ = getNetworkRequestUri + attrSet _ = setNetworkRequestUri + attrConstruct _ = constructNetworkRequestUri + +type instance AttributeList NetworkRequest = '[ '("message", NetworkRequestMessagePropertyInfo), '("uri", NetworkRequestUriPropertyInfo)] + +-- VVV Prop "message" + -- Type: TInterface "Soup" "Message" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getNetworkResponseMessage :: (MonadIO m, NetworkResponseK o) => o -> m Soup.Message +getNetworkResponseMessage obj = liftIO $ getObjectPropertyObject obj "message" Soup.Message + +constructNetworkResponseMessage :: (Soup.MessageK a) => a -> IO ([Char], GValue) +constructNetworkResponseMessage val = constructObjectPropertyObject "message" val + +data NetworkResponseMessagePropertyInfo +instance AttrInfo NetworkResponseMessagePropertyInfo where + type AttrAllowedOps NetworkResponseMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NetworkResponseMessagePropertyInfo = Soup.MessageK + type AttrBaseTypeConstraint NetworkResponseMessagePropertyInfo = NetworkResponseK + type AttrGetType NetworkResponseMessagePropertyInfo = Soup.Message + type AttrLabel NetworkResponseMessagePropertyInfo = "NetworkResponse::message" + attrGet _ = getNetworkResponseMessage + attrSet _ = undefined + attrConstruct _ = constructNetworkResponseMessage + +-- VVV Prop "suggested-filename" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getNetworkResponseSuggestedFilename :: (MonadIO m, NetworkResponseK o) => o -> m T.Text +getNetworkResponseSuggestedFilename obj = liftIO $ getObjectPropertyString obj "suggested-filename" + +data NetworkResponseSuggestedFilenamePropertyInfo +instance AttrInfo NetworkResponseSuggestedFilenamePropertyInfo where + type AttrAllowedOps NetworkResponseSuggestedFilenamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint NetworkResponseSuggestedFilenamePropertyInfo = (~) () + type AttrBaseTypeConstraint NetworkResponseSuggestedFilenamePropertyInfo = NetworkResponseK + type AttrGetType NetworkResponseSuggestedFilenamePropertyInfo = T.Text + type AttrLabel NetworkResponseSuggestedFilenamePropertyInfo = "NetworkResponse::suggested-filename" + attrGet _ = getNetworkResponseSuggestedFilename + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getNetworkResponseUri :: (MonadIO m, NetworkResponseK o) => o -> m T.Text +getNetworkResponseUri obj = liftIO $ getObjectPropertyString obj "uri" + +setNetworkResponseUri :: (MonadIO m, NetworkResponseK o) => o -> T.Text -> m () +setNetworkResponseUri obj val = liftIO $ setObjectPropertyString obj "uri" val + +constructNetworkResponseUri :: T.Text -> IO ([Char], GValue) +constructNetworkResponseUri val = constructObjectPropertyString "uri" val + +data NetworkResponseUriPropertyInfo +instance AttrInfo NetworkResponseUriPropertyInfo where + type AttrAllowedOps NetworkResponseUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NetworkResponseUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint NetworkResponseUriPropertyInfo = NetworkResponseK + type AttrGetType NetworkResponseUriPropertyInfo = T.Text + type AttrLabel NetworkResponseUriPropertyInfo = "NetworkResponse::uri" + attrGet _ = getNetworkResponseUri + attrSet _ = setNetworkResponseUri + attrConstruct _ = constructNetworkResponseUri + +type instance AttributeList NetworkResponse = '[ '("message", NetworkResponseMessagePropertyInfo), '("suggested-filename", NetworkResponseSuggestedFilenamePropertyInfo), '("uri", NetworkResponseUriPropertyInfo)] + +-- VVV Prop "host" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getSecurityOriginHost :: (MonadIO m, SecurityOriginK o) => o -> m T.Text +getSecurityOriginHost obj = liftIO $ getObjectPropertyString obj "host" + +data SecurityOriginHostPropertyInfo +instance AttrInfo SecurityOriginHostPropertyInfo where + type AttrAllowedOps SecurityOriginHostPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint SecurityOriginHostPropertyInfo = (~) () + type AttrBaseTypeConstraint SecurityOriginHostPropertyInfo = SecurityOriginK + type AttrGetType SecurityOriginHostPropertyInfo = T.Text + type AttrLabel SecurityOriginHostPropertyInfo = "SecurityOrigin::host" + attrGet _ = getSecurityOriginHost + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "port" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getSecurityOriginPort :: (MonadIO m, SecurityOriginK o) => o -> m Word32 +getSecurityOriginPort obj = liftIO $ getObjectPropertyCUInt obj "port" + +data SecurityOriginPortPropertyInfo +instance AttrInfo SecurityOriginPortPropertyInfo where + type AttrAllowedOps SecurityOriginPortPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint SecurityOriginPortPropertyInfo = (~) () + type AttrBaseTypeConstraint SecurityOriginPortPropertyInfo = SecurityOriginK + type AttrGetType SecurityOriginPortPropertyInfo = Word32 + type AttrLabel SecurityOriginPortPropertyInfo = "SecurityOrigin::port" + attrGet _ = getSecurityOriginPort + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "protocol" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getSecurityOriginProtocol :: (MonadIO m, SecurityOriginK o) => o -> m T.Text +getSecurityOriginProtocol obj = liftIO $ getObjectPropertyString obj "protocol" + +data SecurityOriginProtocolPropertyInfo +instance AttrInfo SecurityOriginProtocolPropertyInfo where + type AttrAllowedOps SecurityOriginProtocolPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint SecurityOriginProtocolPropertyInfo = (~) () + type AttrBaseTypeConstraint SecurityOriginProtocolPropertyInfo = SecurityOriginK + type AttrGetType SecurityOriginProtocolPropertyInfo = T.Text + type AttrLabel SecurityOriginProtocolPropertyInfo = "SecurityOrigin::protocol" + attrGet _ = getSecurityOriginProtocol + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "web-database-quota" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable,PropertyWritable] + +getSecurityOriginWebDatabaseQuota :: (MonadIO m, SecurityOriginK o) => o -> m Word64 +getSecurityOriginWebDatabaseQuota obj = liftIO $ getObjectPropertyUInt64 obj "web-database-quota" + +setSecurityOriginWebDatabaseQuota :: (MonadIO m, SecurityOriginK o) => o -> Word64 -> m () +setSecurityOriginWebDatabaseQuota obj val = liftIO $ setObjectPropertyUInt64 obj "web-database-quota" val + +constructSecurityOriginWebDatabaseQuota :: Word64 -> IO ([Char], GValue) +constructSecurityOriginWebDatabaseQuota val = constructObjectPropertyUInt64 "web-database-quota" val + +data SecurityOriginWebDatabaseQuotaPropertyInfo +instance AttrInfo SecurityOriginWebDatabaseQuotaPropertyInfo where + type AttrAllowedOps SecurityOriginWebDatabaseQuotaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SecurityOriginWebDatabaseQuotaPropertyInfo = (~) Word64 + type AttrBaseTypeConstraint SecurityOriginWebDatabaseQuotaPropertyInfo = SecurityOriginK + type AttrGetType SecurityOriginWebDatabaseQuotaPropertyInfo = Word64 + type AttrLabel SecurityOriginWebDatabaseQuotaPropertyInfo = "SecurityOrigin::web-database-quota" + attrGet _ = getSecurityOriginWebDatabaseQuota + attrSet _ = setSecurityOriginWebDatabaseQuota + attrConstruct _ = constructSecurityOriginWebDatabaseQuota + +-- VVV Prop "web-database-usage" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getSecurityOriginWebDatabaseUsage :: (MonadIO m, SecurityOriginK o) => o -> m Word64 +getSecurityOriginWebDatabaseUsage obj = liftIO $ getObjectPropertyUInt64 obj "web-database-usage" + +data SecurityOriginWebDatabaseUsagePropertyInfo +instance AttrInfo SecurityOriginWebDatabaseUsagePropertyInfo where + type AttrAllowedOps SecurityOriginWebDatabaseUsagePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint SecurityOriginWebDatabaseUsagePropertyInfo = (~) () + type AttrBaseTypeConstraint SecurityOriginWebDatabaseUsagePropertyInfo = SecurityOriginK + type AttrGetType SecurityOriginWebDatabaseUsagePropertyInfo = Word64 + type AttrLabel SecurityOriginWebDatabaseUsagePropertyInfo = "SecurityOrigin::web-database-usage" + attrGet _ = getSecurityOriginWebDatabaseUsage + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList SecurityOrigin = '[ '("host", SecurityOriginHostPropertyInfo), '("port", SecurityOriginPortPropertyInfo), '("protocol", SecurityOriginProtocolPropertyInfo), '("web-database-quota", SecurityOriginWebDatabaseQuotaPropertyInfo), '("web-database-usage", SecurityOriginWebDatabaseUsagePropertyInfo)] + +type instance AttributeList SoupAuthDialog = '[ ] + +type instance AttributeList SpellChecker = '[ ] + +-- VVV Prop "available-height" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getViewportAttributesAvailableHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesAvailableHeight obj = liftIO $ getObjectPropertyCInt obj "available-height" + +setViewportAttributesAvailableHeight :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () +setViewportAttributesAvailableHeight obj val = liftIO $ setObjectPropertyCInt obj "available-height" val + +constructViewportAttributesAvailableHeight :: Int32 -> IO ([Char], GValue) +constructViewportAttributesAvailableHeight val = constructObjectPropertyCInt "available-height" val + +data ViewportAttributesAvailableHeightPropertyInfo +instance AttrInfo ViewportAttributesAvailableHeightPropertyInfo where + type AttrAllowedOps ViewportAttributesAvailableHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesAvailableHeightPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint ViewportAttributesAvailableHeightPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesAvailableHeightPropertyInfo = Int32 + type AttrLabel ViewportAttributesAvailableHeightPropertyInfo = "ViewportAttributes::available-height" + attrGet _ = getViewportAttributesAvailableHeight + attrSet _ = setViewportAttributesAvailableHeight + attrConstruct _ = constructViewportAttributesAvailableHeight + +-- VVV Prop "available-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getViewportAttributesAvailableWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesAvailableWidth obj = liftIO $ getObjectPropertyCInt obj "available-width" + +setViewportAttributesAvailableWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () +setViewportAttributesAvailableWidth obj val = liftIO $ setObjectPropertyCInt obj "available-width" val + +constructViewportAttributesAvailableWidth :: Int32 -> IO ([Char], GValue) +constructViewportAttributesAvailableWidth val = constructObjectPropertyCInt "available-width" val + +data ViewportAttributesAvailableWidthPropertyInfo +instance AttrInfo ViewportAttributesAvailableWidthPropertyInfo where + type AttrAllowedOps ViewportAttributesAvailableWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesAvailableWidthPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint ViewportAttributesAvailableWidthPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesAvailableWidthPropertyInfo = Int32 + type AttrLabel ViewportAttributesAvailableWidthPropertyInfo = "ViewportAttributes::available-width" + attrGet _ = getViewportAttributesAvailableWidth + attrSet _ = setViewportAttributesAvailableWidth + attrConstruct _ = constructViewportAttributesAvailableWidth + +-- VVV Prop "desktop-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getViewportAttributesDesktopWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesDesktopWidth obj = liftIO $ getObjectPropertyCInt obj "desktop-width" + +setViewportAttributesDesktopWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () +setViewportAttributesDesktopWidth obj val = liftIO $ setObjectPropertyCInt obj "desktop-width" val + +constructViewportAttributesDesktopWidth :: Int32 -> IO ([Char], GValue) +constructViewportAttributesDesktopWidth val = constructObjectPropertyCInt "desktop-width" val + +data ViewportAttributesDesktopWidthPropertyInfo +instance AttrInfo ViewportAttributesDesktopWidthPropertyInfo where + type AttrAllowedOps ViewportAttributesDesktopWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesDesktopWidthPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint ViewportAttributesDesktopWidthPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesDesktopWidthPropertyInfo = Int32 + type AttrLabel ViewportAttributesDesktopWidthPropertyInfo = "ViewportAttributes::desktop-width" + attrGet _ = getViewportAttributesDesktopWidth + attrSet _ = setViewportAttributesDesktopWidth + attrConstruct _ = constructViewportAttributesDesktopWidth + +-- VVV Prop "device-dpi" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getViewportAttributesDeviceDpi :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesDeviceDpi obj = liftIO $ getObjectPropertyCInt obj "device-dpi" + +setViewportAttributesDeviceDpi :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () +setViewportAttributesDeviceDpi obj val = liftIO $ setObjectPropertyCInt obj "device-dpi" val + +constructViewportAttributesDeviceDpi :: Int32 -> IO ([Char], GValue) +constructViewportAttributesDeviceDpi val = constructObjectPropertyCInt "device-dpi" val + +data ViewportAttributesDeviceDpiPropertyInfo +instance AttrInfo ViewportAttributesDeviceDpiPropertyInfo where + type AttrAllowedOps ViewportAttributesDeviceDpiPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesDeviceDpiPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint ViewportAttributesDeviceDpiPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesDeviceDpiPropertyInfo = Int32 + type AttrLabel ViewportAttributesDeviceDpiPropertyInfo = "ViewportAttributes::device-dpi" + attrGet _ = getViewportAttributesDeviceDpi + attrSet _ = setViewportAttributesDeviceDpi + attrConstruct _ = constructViewportAttributesDeviceDpi + +-- VVV Prop "device-height" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getViewportAttributesDeviceHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesDeviceHeight obj = liftIO $ getObjectPropertyCInt obj "device-height" + +setViewportAttributesDeviceHeight :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () +setViewportAttributesDeviceHeight obj val = liftIO $ setObjectPropertyCInt obj "device-height" val + +constructViewportAttributesDeviceHeight :: Int32 -> IO ([Char], GValue) +constructViewportAttributesDeviceHeight val = constructObjectPropertyCInt "device-height" val + +data ViewportAttributesDeviceHeightPropertyInfo +instance AttrInfo ViewportAttributesDeviceHeightPropertyInfo where + type AttrAllowedOps ViewportAttributesDeviceHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesDeviceHeightPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint ViewportAttributesDeviceHeightPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesDeviceHeightPropertyInfo = Int32 + type AttrLabel ViewportAttributesDeviceHeightPropertyInfo = "ViewportAttributes::device-height" + attrGet _ = getViewportAttributesDeviceHeight + attrSet _ = setViewportAttributesDeviceHeight + attrConstruct _ = constructViewportAttributesDeviceHeight + +-- VVV Prop "device-pixel-ratio" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable] + +getViewportAttributesDevicePixelRatio :: (MonadIO m, ViewportAttributesK o) => o -> m Float +getViewportAttributesDevicePixelRatio obj = liftIO $ getObjectPropertyFloat obj "device-pixel-ratio" + +data ViewportAttributesDevicePixelRatioPropertyInfo +instance AttrInfo ViewportAttributesDevicePixelRatioPropertyInfo where + type AttrAllowedOps ViewportAttributesDevicePixelRatioPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesDevicePixelRatioPropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesDevicePixelRatioPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesDevicePixelRatioPropertyInfo = Float + type AttrLabel ViewportAttributesDevicePixelRatioPropertyInfo = "ViewportAttributes::device-pixel-ratio" + attrGet _ = getViewportAttributesDevicePixelRatio + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "device-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getViewportAttributesDeviceWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesDeviceWidth obj = liftIO $ getObjectPropertyCInt obj "device-width" + +setViewportAttributesDeviceWidth :: (MonadIO m, ViewportAttributesK o) => o -> Int32 -> m () +setViewportAttributesDeviceWidth obj val = liftIO $ setObjectPropertyCInt obj "device-width" val + +constructViewportAttributesDeviceWidth :: Int32 -> IO ([Char], GValue) +constructViewportAttributesDeviceWidth val = constructObjectPropertyCInt "device-width" val + +data ViewportAttributesDeviceWidthPropertyInfo +instance AttrInfo ViewportAttributesDeviceWidthPropertyInfo where + type AttrAllowedOps ViewportAttributesDeviceWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesDeviceWidthPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint ViewportAttributesDeviceWidthPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesDeviceWidthPropertyInfo = Int32 + type AttrLabel ViewportAttributesDeviceWidthPropertyInfo = "ViewportAttributes::device-width" + attrGet _ = getViewportAttributesDeviceWidth + attrSet _ = setViewportAttributesDeviceWidth + attrConstruct _ = constructViewportAttributesDeviceWidth + +-- VVV Prop "height" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getViewportAttributesHeight :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesHeight obj = liftIO $ getObjectPropertyCInt obj "height" + +data ViewportAttributesHeightPropertyInfo +instance AttrInfo ViewportAttributesHeightPropertyInfo where + type AttrAllowedOps ViewportAttributesHeightPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesHeightPropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesHeightPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesHeightPropertyInfo = Int32 + type AttrLabel ViewportAttributesHeightPropertyInfo = "ViewportAttributes::height" + attrGet _ = getViewportAttributesHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "initial-scale-factor" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable] + +getViewportAttributesInitialScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float +getViewportAttributesInitialScaleFactor obj = liftIO $ getObjectPropertyFloat obj "initial-scale-factor" + +data ViewportAttributesInitialScaleFactorPropertyInfo +instance AttrInfo ViewportAttributesInitialScaleFactorPropertyInfo where + type AttrAllowedOps ViewportAttributesInitialScaleFactorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesInitialScaleFactorPropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesInitialScaleFactorPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesInitialScaleFactorPropertyInfo = Float + type AttrLabel ViewportAttributesInitialScaleFactorPropertyInfo = "ViewportAttributes::initial-scale-factor" + attrGet _ = getViewportAttributesInitialScaleFactor + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "maximum-scale-factor" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable] + +getViewportAttributesMaximumScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float +getViewportAttributesMaximumScaleFactor obj = liftIO $ getObjectPropertyFloat obj "maximum-scale-factor" + +data ViewportAttributesMaximumScaleFactorPropertyInfo +instance AttrInfo ViewportAttributesMaximumScaleFactorPropertyInfo where + type AttrAllowedOps ViewportAttributesMaximumScaleFactorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesMaximumScaleFactorPropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesMaximumScaleFactorPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesMaximumScaleFactorPropertyInfo = Float + type AttrLabel ViewportAttributesMaximumScaleFactorPropertyInfo = "ViewportAttributes::maximum-scale-factor" + attrGet _ = getViewportAttributesMaximumScaleFactor + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "minimum-scale-factor" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable] + +getViewportAttributesMinimumScaleFactor :: (MonadIO m, ViewportAttributesK o) => o -> m Float +getViewportAttributesMinimumScaleFactor obj = liftIO $ getObjectPropertyFloat obj "minimum-scale-factor" + +data ViewportAttributesMinimumScaleFactorPropertyInfo +instance AttrInfo ViewportAttributesMinimumScaleFactorPropertyInfo where + type AttrAllowedOps ViewportAttributesMinimumScaleFactorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesMinimumScaleFactorPropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesMinimumScaleFactorPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesMinimumScaleFactorPropertyInfo = Float + type AttrLabel ViewportAttributesMinimumScaleFactorPropertyInfo = "ViewportAttributes::minimum-scale-factor" + attrGet _ = getViewportAttributesMinimumScaleFactor + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "user-scalable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getViewportAttributesUserScalable :: (MonadIO m, ViewportAttributesK o) => o -> m Bool +getViewportAttributesUserScalable obj = liftIO $ getObjectPropertyBool obj "user-scalable" + +data ViewportAttributesUserScalablePropertyInfo +instance AttrInfo ViewportAttributesUserScalablePropertyInfo where + type AttrAllowedOps ViewportAttributesUserScalablePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesUserScalablePropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesUserScalablePropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesUserScalablePropertyInfo = Bool + type AttrLabel ViewportAttributesUserScalablePropertyInfo = "ViewportAttributes::user-scalable" + attrGet _ = getViewportAttributesUserScalable + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "valid" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getViewportAttributesValid :: (MonadIO m, ViewportAttributesK o) => o -> m Bool +getViewportAttributesValid obj = liftIO $ getObjectPropertyBool obj "valid" + +data ViewportAttributesValidPropertyInfo +instance AttrInfo ViewportAttributesValidPropertyInfo where + type AttrAllowedOps ViewportAttributesValidPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesValidPropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesValidPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesValidPropertyInfo = Bool + type AttrLabel ViewportAttributesValidPropertyInfo = "ViewportAttributes::valid" + attrGet _ = getViewportAttributesValid + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getViewportAttributesWidth :: (MonadIO m, ViewportAttributesK o) => o -> m Int32 +getViewportAttributesWidth obj = liftIO $ getObjectPropertyCInt obj "width" + +data ViewportAttributesWidthPropertyInfo +instance AttrInfo ViewportAttributesWidthPropertyInfo where + type AttrAllowedOps ViewportAttributesWidthPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ViewportAttributesWidthPropertyInfo = (~) () + type AttrBaseTypeConstraint ViewportAttributesWidthPropertyInfo = ViewportAttributesK + type AttrGetType ViewportAttributesWidthPropertyInfo = Int32 + type AttrLabel ViewportAttributesWidthPropertyInfo = "ViewportAttributes::width" + attrGet _ = getViewportAttributesWidth + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList ViewportAttributes = '[ '("available-height", ViewportAttributesAvailableHeightPropertyInfo), '("available-width", ViewportAttributesAvailableWidthPropertyInfo), '("desktop-width", ViewportAttributesDesktopWidthPropertyInfo), '("device-dpi", ViewportAttributesDeviceDpiPropertyInfo), '("device-height", ViewportAttributesDeviceHeightPropertyInfo), '("device-pixel-ratio", ViewportAttributesDevicePixelRatioPropertyInfo), '("device-width", ViewportAttributesDeviceWidthPropertyInfo), '("height", ViewportAttributesHeightPropertyInfo), '("initial-scale-factor", ViewportAttributesInitialScaleFactorPropertyInfo), '("maximum-scale-factor", ViewportAttributesMaximumScaleFactorPropertyInfo), '("minimum-scale-factor", ViewportAttributesMinimumScaleFactorPropertyInfo), '("user-scalable", ViewportAttributesUserScalablePropertyInfo), '("valid", ViewportAttributesValidPropertyInfo), '("width", ViewportAttributesWidthPropertyInfo)] + +type instance AttributeList WebBackForwardList = '[ ] + +type instance AttributeList WebDataSource = '[ ] + +-- VVV Prop "display-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebDatabaseDisplayName :: (MonadIO m, WebDatabaseK o) => o -> m T.Text +getWebDatabaseDisplayName obj = liftIO $ getObjectPropertyString obj "display-name" + +data WebDatabaseDisplayNamePropertyInfo +instance AttrInfo WebDatabaseDisplayNamePropertyInfo where + type AttrAllowedOps WebDatabaseDisplayNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebDatabaseDisplayNamePropertyInfo = (~) () + type AttrBaseTypeConstraint WebDatabaseDisplayNamePropertyInfo = WebDatabaseK + type AttrGetType WebDatabaseDisplayNamePropertyInfo = T.Text + type AttrLabel WebDatabaseDisplayNamePropertyInfo = "WebDatabase::display-name" + attrGet _ = getWebDatabaseDisplayName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "expected-size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getWebDatabaseExpectedSize :: (MonadIO m, WebDatabaseK o) => o -> m Word64 +getWebDatabaseExpectedSize obj = liftIO $ getObjectPropertyUInt64 obj "expected-size" + +data WebDatabaseExpectedSizePropertyInfo +instance AttrInfo WebDatabaseExpectedSizePropertyInfo where + type AttrAllowedOps WebDatabaseExpectedSizePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebDatabaseExpectedSizePropertyInfo = (~) () + type AttrBaseTypeConstraint WebDatabaseExpectedSizePropertyInfo = WebDatabaseK + type AttrGetType WebDatabaseExpectedSizePropertyInfo = Word64 + type AttrLabel WebDatabaseExpectedSizePropertyInfo = "WebDatabase::expected-size" + attrGet _ = getWebDatabaseExpectedSize + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "filename" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebDatabaseFilename :: (MonadIO m, WebDatabaseK o) => o -> m T.Text +getWebDatabaseFilename obj = liftIO $ getObjectPropertyString obj "filename" + +data WebDatabaseFilenamePropertyInfo +instance AttrInfo WebDatabaseFilenamePropertyInfo where + type AttrAllowedOps WebDatabaseFilenamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebDatabaseFilenamePropertyInfo = (~) () + type AttrBaseTypeConstraint WebDatabaseFilenamePropertyInfo = WebDatabaseK + type AttrGetType WebDatabaseFilenamePropertyInfo = T.Text + type AttrLabel WebDatabaseFilenamePropertyInfo = "WebDatabase::filename" + attrGet _ = getWebDatabaseFilename + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebDatabaseName :: (MonadIO m, WebDatabaseK o) => o -> m T.Text +getWebDatabaseName obj = liftIO $ getObjectPropertyString obj "name" + +constructWebDatabaseName :: T.Text -> IO ([Char], GValue) +constructWebDatabaseName val = constructObjectPropertyString "name" val + +data WebDatabaseNamePropertyInfo +instance AttrInfo WebDatabaseNamePropertyInfo where + type AttrAllowedOps WebDatabaseNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebDatabaseNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebDatabaseNamePropertyInfo = WebDatabaseK + type AttrGetType WebDatabaseNamePropertyInfo = T.Text + type AttrLabel WebDatabaseNamePropertyInfo = "WebDatabase::name" + attrGet _ = getWebDatabaseName + attrSet _ = undefined + attrConstruct _ = constructWebDatabaseName + +-- VVV Prop "security-origin" + -- Type: TInterface "WebKit" "SecurityOrigin" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebDatabaseSecurityOrigin :: (MonadIO m, WebDatabaseK o) => o -> m SecurityOrigin +getWebDatabaseSecurityOrigin obj = liftIO $ getObjectPropertyObject obj "security-origin" SecurityOrigin + +constructWebDatabaseSecurityOrigin :: (SecurityOriginK a) => a -> IO ([Char], GValue) +constructWebDatabaseSecurityOrigin val = constructObjectPropertyObject "security-origin" val + +data WebDatabaseSecurityOriginPropertyInfo +instance AttrInfo WebDatabaseSecurityOriginPropertyInfo where + type AttrAllowedOps WebDatabaseSecurityOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebDatabaseSecurityOriginPropertyInfo = SecurityOriginK + type AttrBaseTypeConstraint WebDatabaseSecurityOriginPropertyInfo = WebDatabaseK + type AttrGetType WebDatabaseSecurityOriginPropertyInfo = SecurityOrigin + type AttrLabel WebDatabaseSecurityOriginPropertyInfo = "WebDatabase::security-origin" + attrGet _ = getWebDatabaseSecurityOrigin + attrSet _ = undefined + attrConstruct _ = constructWebDatabaseSecurityOrigin + +-- VVV Prop "size" + -- Type: TBasicType TUInt64 + -- Flags: [PropertyReadable] + +getWebDatabaseSize :: (MonadIO m, WebDatabaseK o) => o -> m Word64 +getWebDatabaseSize obj = liftIO $ getObjectPropertyUInt64 obj "size" + +data WebDatabaseSizePropertyInfo +instance AttrInfo WebDatabaseSizePropertyInfo where + type AttrAllowedOps WebDatabaseSizePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebDatabaseSizePropertyInfo = (~) () + type AttrBaseTypeConstraint WebDatabaseSizePropertyInfo = WebDatabaseK + type AttrGetType WebDatabaseSizePropertyInfo = Word64 + type AttrLabel WebDatabaseSizePropertyInfo = "WebDatabase::size" + attrGet _ = getWebDatabaseSize + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList WebDatabase = '[ '("display-name", WebDatabaseDisplayNamePropertyInfo), '("expected-size", WebDatabaseExpectedSizePropertyInfo), '("filename", WebDatabaseFilenamePropertyInfo), '("name", WebDatabaseNamePropertyInfo), '("security-origin", WebDatabaseSecurityOriginPropertyInfo), '("size", WebDatabaseSizePropertyInfo)] + +-- VVV Prop "horizontal-scrollbar-policy" + -- Type: TInterface "Gtk" "PolicyType" + -- Flags: [PropertyReadable] + +getWebFrameHorizontalScrollbarPolicy :: (MonadIO m, WebFrameK o) => o -> m Gtk.PolicyType +getWebFrameHorizontalScrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "horizontal-scrollbar-policy" + +data WebFrameHorizontalScrollbarPolicyPropertyInfo +instance AttrInfo WebFrameHorizontalScrollbarPolicyPropertyInfo where + type AttrAllowedOps WebFrameHorizontalScrollbarPolicyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebFrameHorizontalScrollbarPolicyPropertyInfo = (~) () + type AttrBaseTypeConstraint WebFrameHorizontalScrollbarPolicyPropertyInfo = WebFrameK + type AttrGetType WebFrameHorizontalScrollbarPolicyPropertyInfo = Gtk.PolicyType + type AttrLabel WebFrameHorizontalScrollbarPolicyPropertyInfo = "WebFrame::horizontal-scrollbar-policy" + attrGet _ = getWebFrameHorizontalScrollbarPolicy + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "load-status" + -- Type: TInterface "WebKit" "LoadStatus" + -- Flags: [PropertyReadable] + +getWebFrameLoadStatus :: (MonadIO m, WebFrameK o) => o -> m LoadStatus +getWebFrameLoadStatus obj = liftIO $ getObjectPropertyEnum obj "load-status" + +data WebFrameLoadStatusPropertyInfo +instance AttrInfo WebFrameLoadStatusPropertyInfo where + type AttrAllowedOps WebFrameLoadStatusPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebFrameLoadStatusPropertyInfo = (~) () + type AttrBaseTypeConstraint WebFrameLoadStatusPropertyInfo = WebFrameK + type AttrGetType WebFrameLoadStatusPropertyInfo = LoadStatus + type AttrLabel WebFrameLoadStatusPropertyInfo = "WebFrame::load-status" + attrGet _ = getWebFrameLoadStatus + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebFrameName :: (MonadIO m, WebFrameK o) => o -> m T.Text +getWebFrameName obj = liftIO $ getObjectPropertyString obj "name" + +data WebFrameNamePropertyInfo +instance AttrInfo WebFrameNamePropertyInfo where + type AttrAllowedOps WebFrameNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebFrameNamePropertyInfo = (~) () + type AttrBaseTypeConstraint WebFrameNamePropertyInfo = WebFrameK + type AttrGetType WebFrameNamePropertyInfo = T.Text + type AttrLabel WebFrameNamePropertyInfo = "WebFrame::name" + attrGet _ = getWebFrameName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebFrameTitle :: (MonadIO m, WebFrameK o) => o -> m T.Text +getWebFrameTitle obj = liftIO $ getObjectPropertyString obj "title" + +data WebFrameTitlePropertyInfo +instance AttrInfo WebFrameTitlePropertyInfo where + type AttrAllowedOps WebFrameTitlePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebFrameTitlePropertyInfo = (~) () + type AttrBaseTypeConstraint WebFrameTitlePropertyInfo = WebFrameK + type AttrGetType WebFrameTitlePropertyInfo = T.Text + type AttrLabel WebFrameTitlePropertyInfo = "WebFrame::title" + attrGet _ = getWebFrameTitle + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebFrameUri :: (MonadIO m, WebFrameK o) => o -> m T.Text +getWebFrameUri obj = liftIO $ getObjectPropertyString obj "uri" + +data WebFrameUriPropertyInfo +instance AttrInfo WebFrameUriPropertyInfo where + type AttrAllowedOps WebFrameUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebFrameUriPropertyInfo = (~) () + type AttrBaseTypeConstraint WebFrameUriPropertyInfo = WebFrameK + type AttrGetType WebFrameUriPropertyInfo = T.Text + type AttrLabel WebFrameUriPropertyInfo = "WebFrame::uri" + attrGet _ = getWebFrameUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "vertical-scrollbar-policy" + -- Type: TInterface "Gtk" "PolicyType" + -- Flags: [PropertyReadable] + +getWebFrameVerticalScrollbarPolicy :: (MonadIO m, WebFrameK o) => o -> m Gtk.PolicyType +getWebFrameVerticalScrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "vertical-scrollbar-policy" + +data WebFrameVerticalScrollbarPolicyPropertyInfo +instance AttrInfo WebFrameVerticalScrollbarPolicyPropertyInfo where + type AttrAllowedOps WebFrameVerticalScrollbarPolicyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebFrameVerticalScrollbarPolicyPropertyInfo = (~) () + type AttrBaseTypeConstraint WebFrameVerticalScrollbarPolicyPropertyInfo = WebFrameK + type AttrGetType WebFrameVerticalScrollbarPolicyPropertyInfo = Gtk.PolicyType + type AttrLabel WebFrameVerticalScrollbarPolicyPropertyInfo = "WebFrame::vertical-scrollbar-policy" + attrGet _ = getWebFrameVerticalScrollbarPolicy + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList WebFrame = '[ '("horizontal-scrollbar-policy", WebFrameHorizontalScrollbarPolicyPropertyInfo), '("load-status", WebFrameLoadStatusPropertyInfo), '("name", WebFrameNamePropertyInfo), '("title", WebFrameTitlePropertyInfo), '("uri", WebFrameUriPropertyInfo), '("vertical-scrollbar-policy", WebFrameVerticalScrollbarPolicyPropertyInfo)] + +-- VVV Prop "alternate-title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWebHistoryItemAlternateTitle :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text +getWebHistoryItemAlternateTitle obj = liftIO $ getObjectPropertyString obj "alternate-title" + +setWebHistoryItemAlternateTitle :: (MonadIO m, WebHistoryItemK o) => o -> T.Text -> m () +setWebHistoryItemAlternateTitle obj val = liftIO $ setObjectPropertyString obj "alternate-title" val + +constructWebHistoryItemAlternateTitle :: T.Text -> IO ([Char], GValue) +constructWebHistoryItemAlternateTitle val = constructObjectPropertyString "alternate-title" val + +data WebHistoryItemAlternateTitlePropertyInfo +instance AttrInfo WebHistoryItemAlternateTitlePropertyInfo where + type AttrAllowedOps WebHistoryItemAlternateTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebHistoryItemAlternateTitlePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebHistoryItemAlternateTitlePropertyInfo = WebHistoryItemK + type AttrGetType WebHistoryItemAlternateTitlePropertyInfo = T.Text + type AttrLabel WebHistoryItemAlternateTitlePropertyInfo = "WebHistoryItem::alternate-title" + attrGet _ = getWebHistoryItemAlternateTitle + attrSet _ = setWebHistoryItemAlternateTitle + attrConstruct _ = constructWebHistoryItemAlternateTitle + +-- VVV Prop "last-visited-time" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getWebHistoryItemLastVisitedTime :: (MonadIO m, WebHistoryItemK o) => o -> m Double +getWebHistoryItemLastVisitedTime obj = liftIO $ getObjectPropertyDouble obj "last-visited-time" + +data WebHistoryItemLastVisitedTimePropertyInfo +instance AttrInfo WebHistoryItemLastVisitedTimePropertyInfo where + type AttrAllowedOps WebHistoryItemLastVisitedTimePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebHistoryItemLastVisitedTimePropertyInfo = (~) () + type AttrBaseTypeConstraint WebHistoryItemLastVisitedTimePropertyInfo = WebHistoryItemK + type AttrGetType WebHistoryItemLastVisitedTimePropertyInfo = Double + type AttrLabel WebHistoryItemLastVisitedTimePropertyInfo = "WebHistoryItem::last-visited-time" + attrGet _ = getWebHistoryItemLastVisitedTime + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "original-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebHistoryItemOriginalUri :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text +getWebHistoryItemOriginalUri obj = liftIO $ getObjectPropertyString obj "original-uri" + +data WebHistoryItemOriginalUriPropertyInfo +instance AttrInfo WebHistoryItemOriginalUriPropertyInfo where + type AttrAllowedOps WebHistoryItemOriginalUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebHistoryItemOriginalUriPropertyInfo = (~) () + type AttrBaseTypeConstraint WebHistoryItemOriginalUriPropertyInfo = WebHistoryItemK + type AttrGetType WebHistoryItemOriginalUriPropertyInfo = T.Text + type AttrLabel WebHistoryItemOriginalUriPropertyInfo = "WebHistoryItem::original-uri" + attrGet _ = getWebHistoryItemOriginalUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebHistoryItemTitle :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text +getWebHistoryItemTitle obj = liftIO $ getObjectPropertyString obj "title" + +data WebHistoryItemTitlePropertyInfo +instance AttrInfo WebHistoryItemTitlePropertyInfo where + type AttrAllowedOps WebHistoryItemTitlePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebHistoryItemTitlePropertyInfo = (~) () + type AttrBaseTypeConstraint WebHistoryItemTitlePropertyInfo = WebHistoryItemK + type AttrGetType WebHistoryItemTitlePropertyInfo = T.Text + type AttrLabel WebHistoryItemTitlePropertyInfo = "WebHistoryItem::title" + attrGet _ = getWebHistoryItemTitle + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebHistoryItemUri :: (MonadIO m, WebHistoryItemK o) => o -> m T.Text +getWebHistoryItemUri obj = liftIO $ getObjectPropertyString obj "uri" + +data WebHistoryItemUriPropertyInfo +instance AttrInfo WebHistoryItemUriPropertyInfo where + type AttrAllowedOps WebHistoryItemUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebHistoryItemUriPropertyInfo = (~) () + type AttrBaseTypeConstraint WebHistoryItemUriPropertyInfo = WebHistoryItemK + type AttrGetType WebHistoryItemUriPropertyInfo = T.Text + type AttrLabel WebHistoryItemUriPropertyInfo = "WebHistoryItem::uri" + attrGet _ = getWebHistoryItemUri + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList WebHistoryItem = '[ '("alternate-title", WebHistoryItemAlternateTitlePropertyInfo), '("last-visited-time", WebHistoryItemLastVisitedTimePropertyInfo), '("original-uri", WebHistoryItemOriginalUriPropertyInfo), '("title", WebHistoryItemTitlePropertyInfo), '("uri", WebHistoryItemUriPropertyInfo)] + +-- VVV Prop "inspected-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebInspectorInspectedUri :: (MonadIO m, WebInspectorK o) => o -> m T.Text +getWebInspectorInspectedUri obj = liftIO $ getObjectPropertyString obj "inspected-uri" + +data WebInspectorInspectedUriPropertyInfo +instance AttrInfo WebInspectorInspectedUriPropertyInfo where + type AttrAllowedOps WebInspectorInspectedUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebInspectorInspectedUriPropertyInfo = (~) () + type AttrBaseTypeConstraint WebInspectorInspectedUriPropertyInfo = WebInspectorK + type AttrGetType WebInspectorInspectedUriPropertyInfo = T.Text + type AttrLabel WebInspectorInspectedUriPropertyInfo = "WebInspector::inspected-uri" + attrGet _ = getWebInspectorInspectedUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "javascript-profiling-enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWebInspectorJavascriptProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> m Bool +getWebInspectorJavascriptProfilingEnabled obj = liftIO $ getObjectPropertyBool obj "javascript-profiling-enabled" + +setWebInspectorJavascriptProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> Bool -> m () +setWebInspectorJavascriptProfilingEnabled obj val = liftIO $ setObjectPropertyBool obj "javascript-profiling-enabled" val + +constructWebInspectorJavascriptProfilingEnabled :: Bool -> IO ([Char], GValue) +constructWebInspectorJavascriptProfilingEnabled val = constructObjectPropertyBool "javascript-profiling-enabled" val + +data WebInspectorJavascriptProfilingEnabledPropertyInfo +instance AttrInfo WebInspectorJavascriptProfilingEnabledPropertyInfo where + type AttrAllowedOps WebInspectorJavascriptProfilingEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebInspectorJavascriptProfilingEnabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebInspectorJavascriptProfilingEnabledPropertyInfo = WebInspectorK + type AttrGetType WebInspectorJavascriptProfilingEnabledPropertyInfo = Bool + type AttrLabel WebInspectorJavascriptProfilingEnabledPropertyInfo = "WebInspector::javascript-profiling-enabled" + attrGet _ = getWebInspectorJavascriptProfilingEnabled + attrSet _ = setWebInspectorJavascriptProfilingEnabled + attrConstruct _ = constructWebInspectorJavascriptProfilingEnabled + +-- VVV Prop "timeline-profiling-enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWebInspectorTimelineProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> m Bool +getWebInspectorTimelineProfilingEnabled obj = liftIO $ getObjectPropertyBool obj "timeline-profiling-enabled" + +setWebInspectorTimelineProfilingEnabled :: (MonadIO m, WebInspectorK o) => o -> Bool -> m () +setWebInspectorTimelineProfilingEnabled obj val = liftIO $ setObjectPropertyBool obj "timeline-profiling-enabled" val + +constructWebInspectorTimelineProfilingEnabled :: Bool -> IO ([Char], GValue) +constructWebInspectorTimelineProfilingEnabled val = constructObjectPropertyBool "timeline-profiling-enabled" val + +data WebInspectorTimelineProfilingEnabledPropertyInfo +instance AttrInfo WebInspectorTimelineProfilingEnabledPropertyInfo where + type AttrAllowedOps WebInspectorTimelineProfilingEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebInspectorTimelineProfilingEnabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebInspectorTimelineProfilingEnabledPropertyInfo = WebInspectorK + type AttrGetType WebInspectorTimelineProfilingEnabledPropertyInfo = Bool + type AttrLabel WebInspectorTimelineProfilingEnabledPropertyInfo = "WebInspector::timeline-profiling-enabled" + attrGet _ = getWebInspectorTimelineProfilingEnabled + attrSet _ = setWebInspectorTimelineProfilingEnabled + attrConstruct _ = constructWebInspectorTimelineProfilingEnabled + +-- VVV Prop "web-view" + -- Type: TInterface "WebKit" "WebView" + -- Flags: [PropertyReadable] + +getWebInspectorWebView :: (MonadIO m, WebInspectorK o) => o -> m WebView +getWebInspectorWebView obj = liftIO $ getObjectPropertyObject obj "web-view" WebView + +data WebInspectorWebViewPropertyInfo +instance AttrInfo WebInspectorWebViewPropertyInfo where + type AttrAllowedOps WebInspectorWebViewPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebInspectorWebViewPropertyInfo = (~) () + type AttrBaseTypeConstraint WebInspectorWebViewPropertyInfo = WebInspectorK + type AttrGetType WebInspectorWebViewPropertyInfo = WebView + type AttrLabel WebInspectorWebViewPropertyInfo = "WebInspector::web-view" + attrGet _ = getWebInspectorWebView + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList WebInspector = '[ '("inspected-uri", WebInspectorInspectedUriPropertyInfo), '("javascript-profiling-enabled", WebInspectorJavascriptProfilingEnabledPropertyInfo), '("timeline-profiling-enabled", WebInspectorTimelineProfilingEnabledPropertyInfo), '("web-view", WebInspectorWebViewPropertyInfo)] + +-- VVV Prop "button" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebNavigationActionButton :: (MonadIO m, WebNavigationActionK o) => o -> m Int32 +getWebNavigationActionButton obj = liftIO $ getObjectPropertyCInt obj "button" + +constructWebNavigationActionButton :: Int32 -> IO ([Char], GValue) +constructWebNavigationActionButton val = constructObjectPropertyCInt "button" val + +data WebNavigationActionButtonPropertyInfo +instance AttrInfo WebNavigationActionButtonPropertyInfo where + type AttrAllowedOps WebNavigationActionButtonPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebNavigationActionButtonPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebNavigationActionButtonPropertyInfo = WebNavigationActionK + type AttrGetType WebNavigationActionButtonPropertyInfo = Int32 + type AttrLabel WebNavigationActionButtonPropertyInfo = "WebNavigationAction::button" + attrGet _ = getWebNavigationActionButton + attrSet _ = undefined + attrConstruct _ = constructWebNavigationActionButton + +-- VVV Prop "modifier-state" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebNavigationActionModifierState :: (MonadIO m, WebNavigationActionK o) => o -> m Int32 +getWebNavigationActionModifierState obj = liftIO $ getObjectPropertyCInt obj "modifier-state" + +constructWebNavigationActionModifierState :: Int32 -> IO ([Char], GValue) +constructWebNavigationActionModifierState val = constructObjectPropertyCInt "modifier-state" val + +data WebNavigationActionModifierStatePropertyInfo +instance AttrInfo WebNavigationActionModifierStatePropertyInfo where + type AttrAllowedOps WebNavigationActionModifierStatePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebNavigationActionModifierStatePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebNavigationActionModifierStatePropertyInfo = WebNavigationActionK + type AttrGetType WebNavigationActionModifierStatePropertyInfo = Int32 + type AttrLabel WebNavigationActionModifierStatePropertyInfo = "WebNavigationAction::modifier-state" + attrGet _ = getWebNavigationActionModifierState + attrSet _ = undefined + attrConstruct _ = constructWebNavigationActionModifierState + +-- VVV Prop "original-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebNavigationActionOriginalUri :: (MonadIO m, WebNavigationActionK o) => o -> m T.Text +getWebNavigationActionOriginalUri obj = liftIO $ getObjectPropertyString obj "original-uri" + +setWebNavigationActionOriginalUri :: (MonadIO m, WebNavigationActionK o) => o -> T.Text -> m () +setWebNavigationActionOriginalUri obj val = liftIO $ setObjectPropertyString obj "original-uri" val + +constructWebNavigationActionOriginalUri :: T.Text -> IO ([Char], GValue) +constructWebNavigationActionOriginalUri val = constructObjectPropertyString "original-uri" val + +data WebNavigationActionOriginalUriPropertyInfo +instance AttrInfo WebNavigationActionOriginalUriPropertyInfo where + type AttrAllowedOps WebNavigationActionOriginalUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebNavigationActionOriginalUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebNavigationActionOriginalUriPropertyInfo = WebNavigationActionK + type AttrGetType WebNavigationActionOriginalUriPropertyInfo = T.Text + type AttrLabel WebNavigationActionOriginalUriPropertyInfo = "WebNavigationAction::original-uri" + attrGet _ = getWebNavigationActionOriginalUri + attrSet _ = setWebNavigationActionOriginalUri + attrConstruct _ = constructWebNavigationActionOriginalUri + +-- VVV Prop "reason" + -- Type: TInterface "WebKit" "WebNavigationReason" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebNavigationActionReason :: (MonadIO m, WebNavigationActionK o) => o -> m WebNavigationReason +getWebNavigationActionReason obj = liftIO $ getObjectPropertyEnum obj "reason" + +setWebNavigationActionReason :: (MonadIO m, WebNavigationActionK o) => o -> WebNavigationReason -> m () +setWebNavigationActionReason obj val = liftIO $ setObjectPropertyEnum obj "reason" val + +constructWebNavigationActionReason :: WebNavigationReason -> IO ([Char], GValue) +constructWebNavigationActionReason val = constructObjectPropertyEnum "reason" val + +data WebNavigationActionReasonPropertyInfo +instance AttrInfo WebNavigationActionReasonPropertyInfo where + type AttrAllowedOps WebNavigationActionReasonPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebNavigationActionReasonPropertyInfo = (~) WebNavigationReason + type AttrBaseTypeConstraint WebNavigationActionReasonPropertyInfo = WebNavigationActionK + type AttrGetType WebNavigationActionReasonPropertyInfo = WebNavigationReason + type AttrLabel WebNavigationActionReasonPropertyInfo = "WebNavigationAction::reason" + attrGet _ = getWebNavigationActionReason + attrSet _ = setWebNavigationActionReason + attrConstruct _ = constructWebNavigationActionReason + +-- VVV Prop "target-frame" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebNavigationActionTargetFrame :: (MonadIO m, WebNavigationActionK o) => o -> m T.Text +getWebNavigationActionTargetFrame obj = liftIO $ getObjectPropertyString obj "target-frame" + +constructWebNavigationActionTargetFrame :: T.Text -> IO ([Char], GValue) +constructWebNavigationActionTargetFrame val = constructObjectPropertyString "target-frame" val + +data WebNavigationActionTargetFramePropertyInfo +instance AttrInfo WebNavigationActionTargetFramePropertyInfo where + type AttrAllowedOps WebNavigationActionTargetFramePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebNavigationActionTargetFramePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebNavigationActionTargetFramePropertyInfo = WebNavigationActionK + type AttrGetType WebNavigationActionTargetFramePropertyInfo = T.Text + type AttrLabel WebNavigationActionTargetFramePropertyInfo = "WebNavigationAction::target-frame" + attrGet _ = getWebNavigationActionTargetFrame + attrSet _ = undefined + attrConstruct _ = constructWebNavigationActionTargetFrame + +type instance AttributeList WebNavigationAction = '[ '("button", WebNavigationActionButtonPropertyInfo), '("modifier-state", WebNavigationActionModifierStatePropertyInfo), '("original-uri", WebNavigationActionOriginalUriPropertyInfo), '("reason", WebNavigationActionReasonPropertyInfo), '("target-frame", WebNavigationActionTargetFramePropertyInfo)] + +-- VVV Prop "enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWebPluginEnabled :: (MonadIO m, WebPluginK o) => o -> m Bool +getWebPluginEnabled obj = liftIO $ getObjectPropertyBool obj "enabled" + +setWebPluginEnabled :: (MonadIO m, WebPluginK o) => o -> Bool -> m () +setWebPluginEnabled obj val = liftIO $ setObjectPropertyBool obj "enabled" val + +constructWebPluginEnabled :: Bool -> IO ([Char], GValue) +constructWebPluginEnabled val = constructObjectPropertyBool "enabled" val + +data WebPluginEnabledPropertyInfo +instance AttrInfo WebPluginEnabledPropertyInfo where + type AttrAllowedOps WebPluginEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebPluginEnabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebPluginEnabledPropertyInfo = WebPluginK + type AttrGetType WebPluginEnabledPropertyInfo = Bool + type AttrLabel WebPluginEnabledPropertyInfo = "WebPlugin::enabled" + attrGet _ = getWebPluginEnabled + attrSet _ = setWebPluginEnabled + attrConstruct _ = constructWebPluginEnabled + +type instance AttributeList WebPlugin = '[ '("enabled", WebPluginEnabledPropertyInfo)] + +type instance AttributeList WebPluginDatabase = '[ ] + +type instance AttributeList WebPolicyDecision = '[ ] + +-- VVV Prop "encoding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebResourceEncoding :: (MonadIO m, WebResourceK o) => o -> m T.Text +getWebResourceEncoding obj = liftIO $ getObjectPropertyString obj "encoding" + +data WebResourceEncodingPropertyInfo +instance AttrInfo WebResourceEncodingPropertyInfo where + type AttrAllowedOps WebResourceEncodingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebResourceEncodingPropertyInfo = (~) () + type AttrBaseTypeConstraint WebResourceEncodingPropertyInfo = WebResourceK + type AttrGetType WebResourceEncodingPropertyInfo = T.Text + type AttrLabel WebResourceEncodingPropertyInfo = "WebResource::encoding" + attrGet _ = getWebResourceEncoding + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "frame-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebResourceFrameName :: (MonadIO m, WebResourceK o) => o -> m T.Text +getWebResourceFrameName obj = liftIO $ getObjectPropertyString obj "frame-name" + +data WebResourceFrameNamePropertyInfo +instance AttrInfo WebResourceFrameNamePropertyInfo where + type AttrAllowedOps WebResourceFrameNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebResourceFrameNamePropertyInfo = (~) () + type AttrBaseTypeConstraint WebResourceFrameNamePropertyInfo = WebResourceK + type AttrGetType WebResourceFrameNamePropertyInfo = T.Text + type AttrLabel WebResourceFrameNamePropertyInfo = "WebResource::frame-name" + attrGet _ = getWebResourceFrameName + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "mime-type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebResourceMimeType :: (MonadIO m, WebResourceK o) => o -> m T.Text +getWebResourceMimeType obj = liftIO $ getObjectPropertyString obj "mime-type" + +data WebResourceMimeTypePropertyInfo +instance AttrInfo WebResourceMimeTypePropertyInfo where + type AttrAllowedOps WebResourceMimeTypePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebResourceMimeTypePropertyInfo = (~) () + type AttrBaseTypeConstraint WebResourceMimeTypePropertyInfo = WebResourceK + type AttrGetType WebResourceMimeTypePropertyInfo = T.Text + type AttrLabel WebResourceMimeTypePropertyInfo = "WebResource::mime-type" + attrGet _ = getWebResourceMimeType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebResourceUri :: (MonadIO m, WebResourceK o) => o -> m T.Text +getWebResourceUri obj = liftIO $ getObjectPropertyString obj "uri" + +constructWebResourceUri :: T.Text -> IO ([Char], GValue) +constructWebResourceUri val = constructObjectPropertyString "uri" val + +data WebResourceUriPropertyInfo +instance AttrInfo WebResourceUriPropertyInfo where + type AttrAllowedOps WebResourceUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebResourceUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebResourceUriPropertyInfo = WebResourceK + type AttrGetType WebResourceUriPropertyInfo = T.Text + type AttrLabel WebResourceUriPropertyInfo = "WebResource::uri" + attrGet _ = getWebResourceUri + attrSet _ = undefined + attrConstruct _ = constructWebResourceUri + +type instance AttributeList WebResource = '[ '("encoding", WebResourceEncodingPropertyInfo), '("frame-name", WebResourceFrameNamePropertyInfo), '("mime-type", WebResourceMimeTypePropertyInfo), '("uri", WebResourceUriPropertyInfo)] + +-- VVV Prop "auto-load-images" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsAutoLoadImages :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsAutoLoadImages obj = liftIO $ getObjectPropertyBool obj "auto-load-images" + +setWebSettingsAutoLoadImages :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsAutoLoadImages obj val = liftIO $ setObjectPropertyBool obj "auto-load-images" val + +constructWebSettingsAutoLoadImages :: Bool -> IO ([Char], GValue) +constructWebSettingsAutoLoadImages val = constructObjectPropertyBool "auto-load-images" val + +data WebSettingsAutoLoadImagesPropertyInfo +instance AttrInfo WebSettingsAutoLoadImagesPropertyInfo where + type AttrAllowedOps WebSettingsAutoLoadImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsAutoLoadImagesPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsAutoLoadImagesPropertyInfo = WebSettingsK + type AttrGetType WebSettingsAutoLoadImagesPropertyInfo = Bool + type AttrLabel WebSettingsAutoLoadImagesPropertyInfo = "WebSettings::auto-load-images" + attrGet _ = getWebSettingsAutoLoadImages + attrSet _ = setWebSettingsAutoLoadImages + attrConstruct _ = constructWebSettingsAutoLoadImages + +-- VVV Prop "auto-resize-window" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsAutoResizeWindow :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsAutoResizeWindow obj = liftIO $ getObjectPropertyBool obj "auto-resize-window" + +setWebSettingsAutoResizeWindow :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsAutoResizeWindow obj val = liftIO $ setObjectPropertyBool obj "auto-resize-window" val + +constructWebSettingsAutoResizeWindow :: Bool -> IO ([Char], GValue) +constructWebSettingsAutoResizeWindow val = constructObjectPropertyBool "auto-resize-window" val + +data WebSettingsAutoResizeWindowPropertyInfo +instance AttrInfo WebSettingsAutoResizeWindowPropertyInfo where + type AttrAllowedOps WebSettingsAutoResizeWindowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsAutoResizeWindowPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsAutoResizeWindowPropertyInfo = WebSettingsK + type AttrGetType WebSettingsAutoResizeWindowPropertyInfo = Bool + type AttrLabel WebSettingsAutoResizeWindowPropertyInfo = "WebSettings::auto-resize-window" + attrGet _ = getWebSettingsAutoResizeWindow + attrSet _ = setWebSettingsAutoResizeWindow + attrConstruct _ = constructWebSettingsAutoResizeWindow + +-- VVV Prop "auto-shrink-images" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsAutoShrinkImages :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsAutoShrinkImages obj = liftIO $ getObjectPropertyBool obj "auto-shrink-images" + +setWebSettingsAutoShrinkImages :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsAutoShrinkImages obj val = liftIO $ setObjectPropertyBool obj "auto-shrink-images" val + +constructWebSettingsAutoShrinkImages :: Bool -> IO ([Char], GValue) +constructWebSettingsAutoShrinkImages val = constructObjectPropertyBool "auto-shrink-images" val + +data WebSettingsAutoShrinkImagesPropertyInfo +instance AttrInfo WebSettingsAutoShrinkImagesPropertyInfo where + type AttrAllowedOps WebSettingsAutoShrinkImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsAutoShrinkImagesPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsAutoShrinkImagesPropertyInfo = WebSettingsK + type AttrGetType WebSettingsAutoShrinkImagesPropertyInfo = Bool + type AttrLabel WebSettingsAutoShrinkImagesPropertyInfo = "WebSettings::auto-shrink-images" + attrGet _ = getWebSettingsAutoShrinkImages + attrSet _ = setWebSettingsAutoShrinkImages + attrConstruct _ = constructWebSettingsAutoShrinkImages + +-- VVV Prop "cursive-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsCursiveFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsCursiveFontFamily obj = liftIO $ getObjectPropertyString obj "cursive-font-family" + +setWebSettingsCursiveFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsCursiveFontFamily obj val = liftIO $ setObjectPropertyString obj "cursive-font-family" val + +constructWebSettingsCursiveFontFamily :: T.Text -> IO ([Char], GValue) +constructWebSettingsCursiveFontFamily val = constructObjectPropertyString "cursive-font-family" val + +data WebSettingsCursiveFontFamilyPropertyInfo +instance AttrInfo WebSettingsCursiveFontFamilyPropertyInfo where + type AttrAllowedOps WebSettingsCursiveFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsCursiveFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsCursiveFontFamilyPropertyInfo = WebSettingsK + type AttrGetType WebSettingsCursiveFontFamilyPropertyInfo = T.Text + type AttrLabel WebSettingsCursiveFontFamilyPropertyInfo = "WebSettings::cursive-font-family" + attrGet _ = getWebSettingsCursiveFontFamily + attrSet _ = setWebSettingsCursiveFontFamily + attrConstruct _ = constructWebSettingsCursiveFontFamily + +-- VVV Prop "default-encoding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsDefaultEncoding :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsDefaultEncoding obj = liftIO $ getObjectPropertyString obj "default-encoding" + +setWebSettingsDefaultEncoding :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsDefaultEncoding obj val = liftIO $ setObjectPropertyString obj "default-encoding" val + +constructWebSettingsDefaultEncoding :: T.Text -> IO ([Char], GValue) +constructWebSettingsDefaultEncoding val = constructObjectPropertyString "default-encoding" val + +data WebSettingsDefaultEncodingPropertyInfo +instance AttrInfo WebSettingsDefaultEncodingPropertyInfo where + type AttrAllowedOps WebSettingsDefaultEncodingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsDefaultEncodingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsDefaultEncodingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsDefaultEncodingPropertyInfo = T.Text + type AttrLabel WebSettingsDefaultEncodingPropertyInfo = "WebSettings::default-encoding" + attrGet _ = getWebSettingsDefaultEncoding + attrSet _ = setWebSettingsDefaultEncoding + attrConstruct _ = constructWebSettingsDefaultEncoding + +-- VVV Prop "default-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsDefaultFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsDefaultFontFamily obj = liftIO $ getObjectPropertyString obj "default-font-family" + +setWebSettingsDefaultFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsDefaultFontFamily obj val = liftIO $ setObjectPropertyString obj "default-font-family" val + +constructWebSettingsDefaultFontFamily :: T.Text -> IO ([Char], GValue) +constructWebSettingsDefaultFontFamily val = constructObjectPropertyString "default-font-family" val + +data WebSettingsDefaultFontFamilyPropertyInfo +instance AttrInfo WebSettingsDefaultFontFamilyPropertyInfo where + type AttrAllowedOps WebSettingsDefaultFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsDefaultFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsDefaultFontFamilyPropertyInfo = WebSettingsK + type AttrGetType WebSettingsDefaultFontFamilyPropertyInfo = T.Text + type AttrLabel WebSettingsDefaultFontFamilyPropertyInfo = "WebSettings::default-font-family" + attrGet _ = getWebSettingsDefaultFontFamily + attrSet _ = setWebSettingsDefaultFontFamily + attrConstruct _ = constructWebSettingsDefaultFontFamily + +-- VVV Prop "default-font-size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsDefaultFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 +getWebSettingsDefaultFontSize obj = liftIO $ getObjectPropertyCInt obj "default-font-size" + +setWebSettingsDefaultFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () +setWebSettingsDefaultFontSize obj val = liftIO $ setObjectPropertyCInt obj "default-font-size" val + +constructWebSettingsDefaultFontSize :: Int32 -> IO ([Char], GValue) +constructWebSettingsDefaultFontSize val = constructObjectPropertyCInt "default-font-size" val + +data WebSettingsDefaultFontSizePropertyInfo +instance AttrInfo WebSettingsDefaultFontSizePropertyInfo where + type AttrAllowedOps WebSettingsDefaultFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsDefaultFontSizePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebSettingsDefaultFontSizePropertyInfo = WebSettingsK + type AttrGetType WebSettingsDefaultFontSizePropertyInfo = Int32 + type AttrLabel WebSettingsDefaultFontSizePropertyInfo = "WebSettings::default-font-size" + attrGet _ = getWebSettingsDefaultFontSize + attrSet _ = setWebSettingsDefaultFontSize + attrConstruct _ = constructWebSettingsDefaultFontSize + +-- VVV Prop "default-monospace-font-size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsDefaultMonospaceFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 +getWebSettingsDefaultMonospaceFontSize obj = liftIO $ getObjectPropertyCInt obj "default-monospace-font-size" + +setWebSettingsDefaultMonospaceFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () +setWebSettingsDefaultMonospaceFontSize obj val = liftIO $ setObjectPropertyCInt obj "default-monospace-font-size" val + +constructWebSettingsDefaultMonospaceFontSize :: Int32 -> IO ([Char], GValue) +constructWebSettingsDefaultMonospaceFontSize val = constructObjectPropertyCInt "default-monospace-font-size" val + +data WebSettingsDefaultMonospaceFontSizePropertyInfo +instance AttrInfo WebSettingsDefaultMonospaceFontSizePropertyInfo where + type AttrAllowedOps WebSettingsDefaultMonospaceFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsDefaultMonospaceFontSizePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebSettingsDefaultMonospaceFontSizePropertyInfo = WebSettingsK + type AttrGetType WebSettingsDefaultMonospaceFontSizePropertyInfo = Int32 + type AttrLabel WebSettingsDefaultMonospaceFontSizePropertyInfo = "WebSettings::default-monospace-font-size" + attrGet _ = getWebSettingsDefaultMonospaceFontSize + attrSet _ = setWebSettingsDefaultMonospaceFontSize + attrConstruct _ = constructWebSettingsDefaultMonospaceFontSize + +-- VVV Prop "editing-behavior" + -- Type: TInterface "WebKit" "EditingBehavior" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEditingBehavior :: (MonadIO m, WebSettingsK o) => o -> m EditingBehavior +getWebSettingsEditingBehavior obj = liftIO $ getObjectPropertyEnum obj "editing-behavior" + +setWebSettingsEditingBehavior :: (MonadIO m, WebSettingsK o) => o -> EditingBehavior -> m () +setWebSettingsEditingBehavior obj val = liftIO $ setObjectPropertyEnum obj "editing-behavior" val + +constructWebSettingsEditingBehavior :: EditingBehavior -> IO ([Char], GValue) +constructWebSettingsEditingBehavior val = constructObjectPropertyEnum "editing-behavior" val + +data WebSettingsEditingBehaviorPropertyInfo +instance AttrInfo WebSettingsEditingBehaviorPropertyInfo where + type AttrAllowedOps WebSettingsEditingBehaviorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEditingBehaviorPropertyInfo = (~) EditingBehavior + type AttrBaseTypeConstraint WebSettingsEditingBehaviorPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEditingBehaviorPropertyInfo = EditingBehavior + type AttrLabel WebSettingsEditingBehaviorPropertyInfo = "WebSettings::editing-behavior" + attrGet _ = getWebSettingsEditingBehavior + attrSet _ = setWebSettingsEditingBehavior + attrConstruct _ = constructWebSettingsEditingBehavior + +-- VVV Prop "enable-accelerated-compositing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableAcceleratedCompositing :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableAcceleratedCompositing obj = liftIO $ getObjectPropertyBool obj "enable-accelerated-compositing" + +setWebSettingsEnableAcceleratedCompositing :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableAcceleratedCompositing obj val = liftIO $ setObjectPropertyBool obj "enable-accelerated-compositing" val + +constructWebSettingsEnableAcceleratedCompositing :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableAcceleratedCompositing val = constructObjectPropertyBool "enable-accelerated-compositing" val + +data WebSettingsEnableAcceleratedCompositingPropertyInfo +instance AttrInfo WebSettingsEnableAcceleratedCompositingPropertyInfo where + type AttrAllowedOps WebSettingsEnableAcceleratedCompositingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableAcceleratedCompositingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableAcceleratedCompositingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableAcceleratedCompositingPropertyInfo = Bool + type AttrLabel WebSettingsEnableAcceleratedCompositingPropertyInfo = "WebSettings::enable-accelerated-compositing" + attrGet _ = getWebSettingsEnableAcceleratedCompositing + attrSet _ = setWebSettingsEnableAcceleratedCompositing + attrConstruct _ = constructWebSettingsEnableAcceleratedCompositing + +-- VVV Prop "enable-caret-browsing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableCaretBrowsing :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableCaretBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-caret-browsing" + +setWebSettingsEnableCaretBrowsing :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableCaretBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-caret-browsing" val + +constructWebSettingsEnableCaretBrowsing :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableCaretBrowsing val = constructObjectPropertyBool "enable-caret-browsing" val + +data WebSettingsEnableCaretBrowsingPropertyInfo +instance AttrInfo WebSettingsEnableCaretBrowsingPropertyInfo where + type AttrAllowedOps WebSettingsEnableCaretBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableCaretBrowsingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableCaretBrowsingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableCaretBrowsingPropertyInfo = Bool + type AttrLabel WebSettingsEnableCaretBrowsingPropertyInfo = "WebSettings::enable-caret-browsing" + attrGet _ = getWebSettingsEnableCaretBrowsing + attrSet _ = setWebSettingsEnableCaretBrowsing + attrConstruct _ = constructWebSettingsEnableCaretBrowsing + +-- VVV Prop "enable-default-context-menu" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableDefaultContextMenu :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableDefaultContextMenu obj = liftIO $ getObjectPropertyBool obj "enable-default-context-menu" + +setWebSettingsEnableDefaultContextMenu :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableDefaultContextMenu obj val = liftIO $ setObjectPropertyBool obj "enable-default-context-menu" val + +constructWebSettingsEnableDefaultContextMenu :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableDefaultContextMenu val = constructObjectPropertyBool "enable-default-context-menu" val + +data WebSettingsEnableDefaultContextMenuPropertyInfo +instance AttrInfo WebSettingsEnableDefaultContextMenuPropertyInfo where + type AttrAllowedOps WebSettingsEnableDefaultContextMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableDefaultContextMenuPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableDefaultContextMenuPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableDefaultContextMenuPropertyInfo = Bool + type AttrLabel WebSettingsEnableDefaultContextMenuPropertyInfo = "WebSettings::enable-default-context-menu" + attrGet _ = getWebSettingsEnableDefaultContextMenu + attrSet _ = setWebSettingsEnableDefaultContextMenu + attrConstruct _ = constructWebSettingsEnableDefaultContextMenu + +-- VVV Prop "enable-developer-extras" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableDeveloperExtras :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableDeveloperExtras obj = liftIO $ getObjectPropertyBool obj "enable-developer-extras" + +setWebSettingsEnableDeveloperExtras :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableDeveloperExtras obj val = liftIO $ setObjectPropertyBool obj "enable-developer-extras" val + +constructWebSettingsEnableDeveloperExtras :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableDeveloperExtras val = constructObjectPropertyBool "enable-developer-extras" val + +data WebSettingsEnableDeveloperExtrasPropertyInfo +instance AttrInfo WebSettingsEnableDeveloperExtrasPropertyInfo where + type AttrAllowedOps WebSettingsEnableDeveloperExtrasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableDeveloperExtrasPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableDeveloperExtrasPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableDeveloperExtrasPropertyInfo = Bool + type AttrLabel WebSettingsEnableDeveloperExtrasPropertyInfo = "WebSettings::enable-developer-extras" + attrGet _ = getWebSettingsEnableDeveloperExtras + attrSet _ = setWebSettingsEnableDeveloperExtras + attrConstruct _ = constructWebSettingsEnableDeveloperExtras + +-- VVV Prop "enable-display-of-insecure-content" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableDisplayOfInsecureContent :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableDisplayOfInsecureContent obj = liftIO $ getObjectPropertyBool obj "enable-display-of-insecure-content" + +setWebSettingsEnableDisplayOfInsecureContent :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableDisplayOfInsecureContent obj val = liftIO $ setObjectPropertyBool obj "enable-display-of-insecure-content" val + +constructWebSettingsEnableDisplayOfInsecureContent :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableDisplayOfInsecureContent val = constructObjectPropertyBool "enable-display-of-insecure-content" val + +data WebSettingsEnableDisplayOfInsecureContentPropertyInfo +instance AttrInfo WebSettingsEnableDisplayOfInsecureContentPropertyInfo where + type AttrAllowedOps WebSettingsEnableDisplayOfInsecureContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableDisplayOfInsecureContentPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableDisplayOfInsecureContentPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableDisplayOfInsecureContentPropertyInfo = Bool + type AttrLabel WebSettingsEnableDisplayOfInsecureContentPropertyInfo = "WebSettings::enable-display-of-insecure-content" + attrGet _ = getWebSettingsEnableDisplayOfInsecureContent + attrSet _ = setWebSettingsEnableDisplayOfInsecureContent + attrConstruct _ = constructWebSettingsEnableDisplayOfInsecureContent + +-- VVV Prop "enable-dns-prefetching" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableDnsPrefetching :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableDnsPrefetching obj = liftIO $ getObjectPropertyBool obj "enable-dns-prefetching" + +setWebSettingsEnableDnsPrefetching :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableDnsPrefetching obj val = liftIO $ setObjectPropertyBool obj "enable-dns-prefetching" val + +constructWebSettingsEnableDnsPrefetching :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableDnsPrefetching val = constructObjectPropertyBool "enable-dns-prefetching" val + +data WebSettingsEnableDnsPrefetchingPropertyInfo +instance AttrInfo WebSettingsEnableDnsPrefetchingPropertyInfo where + type AttrAllowedOps WebSettingsEnableDnsPrefetchingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableDnsPrefetchingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableDnsPrefetchingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableDnsPrefetchingPropertyInfo = Bool + type AttrLabel WebSettingsEnableDnsPrefetchingPropertyInfo = "WebSettings::enable-dns-prefetching" + attrGet _ = getWebSettingsEnableDnsPrefetching + attrSet _ = setWebSettingsEnableDnsPrefetching + attrConstruct _ = constructWebSettingsEnableDnsPrefetching + +-- VVV Prop "enable-dom-paste" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableDomPaste :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableDomPaste obj = liftIO $ getObjectPropertyBool obj "enable-dom-paste" + +setWebSettingsEnableDomPaste :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableDomPaste obj val = liftIO $ setObjectPropertyBool obj "enable-dom-paste" val + +constructWebSettingsEnableDomPaste :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableDomPaste val = constructObjectPropertyBool "enable-dom-paste" val + +data WebSettingsEnableDomPastePropertyInfo +instance AttrInfo WebSettingsEnableDomPastePropertyInfo where + type AttrAllowedOps WebSettingsEnableDomPastePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableDomPastePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableDomPastePropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableDomPastePropertyInfo = Bool + type AttrLabel WebSettingsEnableDomPastePropertyInfo = "WebSettings::enable-dom-paste" + attrGet _ = getWebSettingsEnableDomPaste + attrSet _ = setWebSettingsEnableDomPaste + attrConstruct _ = constructWebSettingsEnableDomPaste + +-- VVV Prop "enable-file-access-from-file-uris" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableFileAccessFromFileUris :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableFileAccessFromFileUris obj = liftIO $ getObjectPropertyBool obj "enable-file-access-from-file-uris" + +setWebSettingsEnableFileAccessFromFileUris :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableFileAccessFromFileUris obj val = liftIO $ setObjectPropertyBool obj "enable-file-access-from-file-uris" val + +constructWebSettingsEnableFileAccessFromFileUris :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableFileAccessFromFileUris val = constructObjectPropertyBool "enable-file-access-from-file-uris" val + +data WebSettingsEnableFileAccessFromFileUrisPropertyInfo +instance AttrInfo WebSettingsEnableFileAccessFromFileUrisPropertyInfo where + type AttrAllowedOps WebSettingsEnableFileAccessFromFileUrisPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableFileAccessFromFileUrisPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableFileAccessFromFileUrisPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableFileAccessFromFileUrisPropertyInfo = Bool + type AttrLabel WebSettingsEnableFileAccessFromFileUrisPropertyInfo = "WebSettings::enable-file-access-from-file-uris" + attrGet _ = getWebSettingsEnableFileAccessFromFileUris + attrSet _ = setWebSettingsEnableFileAccessFromFileUris + attrConstruct _ = constructWebSettingsEnableFileAccessFromFileUris + +-- VVV Prop "enable-frame-flattening" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableFrameFlattening :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableFrameFlattening obj = liftIO $ getObjectPropertyBool obj "enable-frame-flattening" + +setWebSettingsEnableFrameFlattening :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableFrameFlattening obj val = liftIO $ setObjectPropertyBool obj "enable-frame-flattening" val + +constructWebSettingsEnableFrameFlattening :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableFrameFlattening val = constructObjectPropertyBool "enable-frame-flattening" val + +data WebSettingsEnableFrameFlatteningPropertyInfo +instance AttrInfo WebSettingsEnableFrameFlatteningPropertyInfo where + type AttrAllowedOps WebSettingsEnableFrameFlatteningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableFrameFlatteningPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableFrameFlatteningPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableFrameFlatteningPropertyInfo = Bool + type AttrLabel WebSettingsEnableFrameFlatteningPropertyInfo = "WebSettings::enable-frame-flattening" + attrGet _ = getWebSettingsEnableFrameFlattening + attrSet _ = setWebSettingsEnableFrameFlattening + attrConstruct _ = constructWebSettingsEnableFrameFlattening + +-- VVV Prop "enable-fullscreen" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableFullscreen :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableFullscreen obj = liftIO $ getObjectPropertyBool obj "enable-fullscreen" + +setWebSettingsEnableFullscreen :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableFullscreen obj val = liftIO $ setObjectPropertyBool obj "enable-fullscreen" val + +constructWebSettingsEnableFullscreen :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableFullscreen val = constructObjectPropertyBool "enable-fullscreen" val + +data WebSettingsEnableFullscreenPropertyInfo +instance AttrInfo WebSettingsEnableFullscreenPropertyInfo where + type AttrAllowedOps WebSettingsEnableFullscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableFullscreenPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableFullscreenPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableFullscreenPropertyInfo = Bool + type AttrLabel WebSettingsEnableFullscreenPropertyInfo = "WebSettings::enable-fullscreen" + attrGet _ = getWebSettingsEnableFullscreen + attrSet _ = setWebSettingsEnableFullscreen + attrConstruct _ = constructWebSettingsEnableFullscreen + +-- VVV Prop "enable-html5-database" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableHtml5Database :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableHtml5Database obj = liftIO $ getObjectPropertyBool obj "enable-html5-database" + +setWebSettingsEnableHtml5Database :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableHtml5Database obj val = liftIO $ setObjectPropertyBool obj "enable-html5-database" val + +constructWebSettingsEnableHtml5Database :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableHtml5Database val = constructObjectPropertyBool "enable-html5-database" val + +data WebSettingsEnableHtml5DatabasePropertyInfo +instance AttrInfo WebSettingsEnableHtml5DatabasePropertyInfo where + type AttrAllowedOps WebSettingsEnableHtml5DatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableHtml5DatabasePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableHtml5DatabasePropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableHtml5DatabasePropertyInfo = Bool + type AttrLabel WebSettingsEnableHtml5DatabasePropertyInfo = "WebSettings::enable-html5-database" + attrGet _ = getWebSettingsEnableHtml5Database + attrSet _ = setWebSettingsEnableHtml5Database + attrConstruct _ = constructWebSettingsEnableHtml5Database + +-- VVV Prop "enable-html5-local-storage" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableHtml5LocalStorage :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableHtml5LocalStorage obj = liftIO $ getObjectPropertyBool obj "enable-html5-local-storage" + +setWebSettingsEnableHtml5LocalStorage :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableHtml5LocalStorage obj val = liftIO $ setObjectPropertyBool obj "enable-html5-local-storage" val + +constructWebSettingsEnableHtml5LocalStorage :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableHtml5LocalStorage val = constructObjectPropertyBool "enable-html5-local-storage" val + +data WebSettingsEnableHtml5LocalStoragePropertyInfo +instance AttrInfo WebSettingsEnableHtml5LocalStoragePropertyInfo where + type AttrAllowedOps WebSettingsEnableHtml5LocalStoragePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableHtml5LocalStoragePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableHtml5LocalStoragePropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableHtml5LocalStoragePropertyInfo = Bool + type AttrLabel WebSettingsEnableHtml5LocalStoragePropertyInfo = "WebSettings::enable-html5-local-storage" + attrGet _ = getWebSettingsEnableHtml5LocalStorage + attrSet _ = setWebSettingsEnableHtml5LocalStorage + attrConstruct _ = constructWebSettingsEnableHtml5LocalStorage + +-- VVV Prop "enable-hyperlink-auditing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableHyperlinkAuditing :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableHyperlinkAuditing obj = liftIO $ getObjectPropertyBool obj "enable-hyperlink-auditing" + +setWebSettingsEnableHyperlinkAuditing :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableHyperlinkAuditing obj val = liftIO $ setObjectPropertyBool obj "enable-hyperlink-auditing" val + +constructWebSettingsEnableHyperlinkAuditing :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableHyperlinkAuditing val = constructObjectPropertyBool "enable-hyperlink-auditing" val + +data WebSettingsEnableHyperlinkAuditingPropertyInfo +instance AttrInfo WebSettingsEnableHyperlinkAuditingPropertyInfo where + type AttrAllowedOps WebSettingsEnableHyperlinkAuditingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableHyperlinkAuditingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableHyperlinkAuditingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableHyperlinkAuditingPropertyInfo = Bool + type AttrLabel WebSettingsEnableHyperlinkAuditingPropertyInfo = "WebSettings::enable-hyperlink-auditing" + attrGet _ = getWebSettingsEnableHyperlinkAuditing + attrSet _ = setWebSettingsEnableHyperlinkAuditing + attrConstruct _ = constructWebSettingsEnableHyperlinkAuditing + +-- VVV Prop "enable-java-applet" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableJavaApplet :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableJavaApplet obj = liftIO $ getObjectPropertyBool obj "enable-java-applet" + +setWebSettingsEnableJavaApplet :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableJavaApplet obj val = liftIO $ setObjectPropertyBool obj "enable-java-applet" val + +constructWebSettingsEnableJavaApplet :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableJavaApplet val = constructObjectPropertyBool "enable-java-applet" val + +data WebSettingsEnableJavaAppletPropertyInfo +instance AttrInfo WebSettingsEnableJavaAppletPropertyInfo where + type AttrAllowedOps WebSettingsEnableJavaAppletPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableJavaAppletPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableJavaAppletPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableJavaAppletPropertyInfo = Bool + type AttrLabel WebSettingsEnableJavaAppletPropertyInfo = "WebSettings::enable-java-applet" + attrGet _ = getWebSettingsEnableJavaApplet + attrSet _ = setWebSettingsEnableJavaApplet + attrConstruct _ = constructWebSettingsEnableJavaApplet + +-- VVV Prop "enable-media-stream" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableMediaStream :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableMediaStream obj = liftIO $ getObjectPropertyBool obj "enable-media-stream" + +setWebSettingsEnableMediaStream :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableMediaStream obj val = liftIO $ setObjectPropertyBool obj "enable-media-stream" val + +constructWebSettingsEnableMediaStream :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableMediaStream val = constructObjectPropertyBool "enable-media-stream" val + +data WebSettingsEnableMediaStreamPropertyInfo +instance AttrInfo WebSettingsEnableMediaStreamPropertyInfo where + type AttrAllowedOps WebSettingsEnableMediaStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableMediaStreamPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableMediaStreamPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableMediaStreamPropertyInfo = Bool + type AttrLabel WebSettingsEnableMediaStreamPropertyInfo = "WebSettings::enable-media-stream" + attrGet _ = getWebSettingsEnableMediaStream + attrSet _ = setWebSettingsEnableMediaStream + attrConstruct _ = constructWebSettingsEnableMediaStream + +-- VVV Prop "enable-mediasource" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableMediasource :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableMediasource obj = liftIO $ getObjectPropertyBool obj "enable-mediasource" + +setWebSettingsEnableMediasource :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableMediasource obj val = liftIO $ setObjectPropertyBool obj "enable-mediasource" val + +constructWebSettingsEnableMediasource :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableMediasource val = constructObjectPropertyBool "enable-mediasource" val + +data WebSettingsEnableMediasourcePropertyInfo +instance AttrInfo WebSettingsEnableMediasourcePropertyInfo where + type AttrAllowedOps WebSettingsEnableMediasourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableMediasourcePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableMediasourcePropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableMediasourcePropertyInfo = Bool + type AttrLabel WebSettingsEnableMediasourcePropertyInfo = "WebSettings::enable-mediasource" + attrGet _ = getWebSettingsEnableMediasource + attrSet _ = setWebSettingsEnableMediasource + attrConstruct _ = constructWebSettingsEnableMediasource + +-- VVV Prop "enable-offline-web-application-cache" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableOfflineWebApplicationCache :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableOfflineWebApplicationCache obj = liftIO $ getObjectPropertyBool obj "enable-offline-web-application-cache" + +setWebSettingsEnableOfflineWebApplicationCache :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableOfflineWebApplicationCache obj val = liftIO $ setObjectPropertyBool obj "enable-offline-web-application-cache" val + +constructWebSettingsEnableOfflineWebApplicationCache :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableOfflineWebApplicationCache val = constructObjectPropertyBool "enable-offline-web-application-cache" val + +data WebSettingsEnableOfflineWebApplicationCachePropertyInfo +instance AttrInfo WebSettingsEnableOfflineWebApplicationCachePropertyInfo where + type AttrAllowedOps WebSettingsEnableOfflineWebApplicationCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableOfflineWebApplicationCachePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableOfflineWebApplicationCachePropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableOfflineWebApplicationCachePropertyInfo = Bool + type AttrLabel WebSettingsEnableOfflineWebApplicationCachePropertyInfo = "WebSettings::enable-offline-web-application-cache" + attrGet _ = getWebSettingsEnableOfflineWebApplicationCache + attrSet _ = setWebSettingsEnableOfflineWebApplicationCache + attrConstruct _ = constructWebSettingsEnableOfflineWebApplicationCache + +-- VVV Prop "enable-page-cache" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnablePageCache :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnablePageCache obj = liftIO $ getObjectPropertyBool obj "enable-page-cache" + +setWebSettingsEnablePageCache :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnablePageCache obj val = liftIO $ setObjectPropertyBool obj "enable-page-cache" val + +constructWebSettingsEnablePageCache :: Bool -> IO ([Char], GValue) +constructWebSettingsEnablePageCache val = constructObjectPropertyBool "enable-page-cache" val + +data WebSettingsEnablePageCachePropertyInfo +instance AttrInfo WebSettingsEnablePageCachePropertyInfo where + type AttrAllowedOps WebSettingsEnablePageCachePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnablePageCachePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnablePageCachePropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnablePageCachePropertyInfo = Bool + type AttrLabel WebSettingsEnablePageCachePropertyInfo = "WebSettings::enable-page-cache" + attrGet _ = getWebSettingsEnablePageCache + attrSet _ = setWebSettingsEnablePageCache + attrConstruct _ = constructWebSettingsEnablePageCache + +-- VVV Prop "enable-plugins" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnablePlugins :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnablePlugins obj = liftIO $ getObjectPropertyBool obj "enable-plugins" + +setWebSettingsEnablePlugins :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnablePlugins obj val = liftIO $ setObjectPropertyBool obj "enable-plugins" val + +constructWebSettingsEnablePlugins :: Bool -> IO ([Char], GValue) +constructWebSettingsEnablePlugins val = constructObjectPropertyBool "enable-plugins" val + +data WebSettingsEnablePluginsPropertyInfo +instance AttrInfo WebSettingsEnablePluginsPropertyInfo where + type AttrAllowedOps WebSettingsEnablePluginsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnablePluginsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnablePluginsPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnablePluginsPropertyInfo = Bool + type AttrLabel WebSettingsEnablePluginsPropertyInfo = "WebSettings::enable-plugins" + attrGet _ = getWebSettingsEnablePlugins + attrSet _ = setWebSettingsEnablePlugins + attrConstruct _ = constructWebSettingsEnablePlugins + +-- VVV Prop "enable-private-browsing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnablePrivateBrowsing :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnablePrivateBrowsing obj = liftIO $ getObjectPropertyBool obj "enable-private-browsing" + +setWebSettingsEnablePrivateBrowsing :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnablePrivateBrowsing obj val = liftIO $ setObjectPropertyBool obj "enable-private-browsing" val + +constructWebSettingsEnablePrivateBrowsing :: Bool -> IO ([Char], GValue) +constructWebSettingsEnablePrivateBrowsing val = constructObjectPropertyBool "enable-private-browsing" val + +data WebSettingsEnablePrivateBrowsingPropertyInfo +instance AttrInfo WebSettingsEnablePrivateBrowsingPropertyInfo where + type AttrAllowedOps WebSettingsEnablePrivateBrowsingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnablePrivateBrowsingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnablePrivateBrowsingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnablePrivateBrowsingPropertyInfo = Bool + type AttrLabel WebSettingsEnablePrivateBrowsingPropertyInfo = "WebSettings::enable-private-browsing" + attrGet _ = getWebSettingsEnablePrivateBrowsing + attrSet _ = setWebSettingsEnablePrivateBrowsing + attrConstruct _ = constructWebSettingsEnablePrivateBrowsing + +-- VVV Prop "enable-running-of-insecure-content" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableRunningOfInsecureContent :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableRunningOfInsecureContent obj = liftIO $ getObjectPropertyBool obj "enable-running-of-insecure-content" + +setWebSettingsEnableRunningOfInsecureContent :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableRunningOfInsecureContent obj val = liftIO $ setObjectPropertyBool obj "enable-running-of-insecure-content" val + +constructWebSettingsEnableRunningOfInsecureContent :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableRunningOfInsecureContent val = constructObjectPropertyBool "enable-running-of-insecure-content" val + +data WebSettingsEnableRunningOfInsecureContentPropertyInfo +instance AttrInfo WebSettingsEnableRunningOfInsecureContentPropertyInfo where + type AttrAllowedOps WebSettingsEnableRunningOfInsecureContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableRunningOfInsecureContentPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableRunningOfInsecureContentPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableRunningOfInsecureContentPropertyInfo = Bool + type AttrLabel WebSettingsEnableRunningOfInsecureContentPropertyInfo = "WebSettings::enable-running-of-insecure-content" + attrGet _ = getWebSettingsEnableRunningOfInsecureContent + attrSet _ = setWebSettingsEnableRunningOfInsecureContent + attrConstruct _ = constructWebSettingsEnableRunningOfInsecureContent + +-- VVV Prop "enable-scripts" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableScripts :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableScripts obj = liftIO $ getObjectPropertyBool obj "enable-scripts" + +setWebSettingsEnableScripts :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableScripts obj val = liftIO $ setObjectPropertyBool obj "enable-scripts" val + +constructWebSettingsEnableScripts :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableScripts val = constructObjectPropertyBool "enable-scripts" val + +data WebSettingsEnableScriptsPropertyInfo +instance AttrInfo WebSettingsEnableScriptsPropertyInfo where + type AttrAllowedOps WebSettingsEnableScriptsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableScriptsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableScriptsPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableScriptsPropertyInfo = Bool + type AttrLabel WebSettingsEnableScriptsPropertyInfo = "WebSettings::enable-scripts" + attrGet _ = getWebSettingsEnableScripts + attrSet _ = setWebSettingsEnableScripts + attrConstruct _ = constructWebSettingsEnableScripts + +-- VVV Prop "enable-site-specific-quirks" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableSiteSpecificQuirks :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableSiteSpecificQuirks obj = liftIO $ getObjectPropertyBool obj "enable-site-specific-quirks" + +setWebSettingsEnableSiteSpecificQuirks :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableSiteSpecificQuirks obj val = liftIO $ setObjectPropertyBool obj "enable-site-specific-quirks" val + +constructWebSettingsEnableSiteSpecificQuirks :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableSiteSpecificQuirks val = constructObjectPropertyBool "enable-site-specific-quirks" val + +data WebSettingsEnableSiteSpecificQuirksPropertyInfo +instance AttrInfo WebSettingsEnableSiteSpecificQuirksPropertyInfo where + type AttrAllowedOps WebSettingsEnableSiteSpecificQuirksPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableSiteSpecificQuirksPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableSiteSpecificQuirksPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableSiteSpecificQuirksPropertyInfo = Bool + type AttrLabel WebSettingsEnableSiteSpecificQuirksPropertyInfo = "WebSettings::enable-site-specific-quirks" + attrGet _ = getWebSettingsEnableSiteSpecificQuirks + attrSet _ = setWebSettingsEnableSiteSpecificQuirks + attrConstruct _ = constructWebSettingsEnableSiteSpecificQuirks + +-- VVV Prop "enable-smooth-scrolling" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableSmoothScrolling :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableSmoothScrolling obj = liftIO $ getObjectPropertyBool obj "enable-smooth-scrolling" + +setWebSettingsEnableSmoothScrolling :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableSmoothScrolling obj val = liftIO $ setObjectPropertyBool obj "enable-smooth-scrolling" val + +constructWebSettingsEnableSmoothScrolling :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableSmoothScrolling val = constructObjectPropertyBool "enable-smooth-scrolling" val + +data WebSettingsEnableSmoothScrollingPropertyInfo +instance AttrInfo WebSettingsEnableSmoothScrollingPropertyInfo where + type AttrAllowedOps WebSettingsEnableSmoothScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableSmoothScrollingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableSmoothScrollingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableSmoothScrollingPropertyInfo = Bool + type AttrLabel WebSettingsEnableSmoothScrollingPropertyInfo = "WebSettings::enable-smooth-scrolling" + attrGet _ = getWebSettingsEnableSmoothScrolling + attrSet _ = setWebSettingsEnableSmoothScrolling + attrConstruct _ = constructWebSettingsEnableSmoothScrolling + +-- VVV Prop "enable-spatial-navigation" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableSpatialNavigation :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableSpatialNavigation obj = liftIO $ getObjectPropertyBool obj "enable-spatial-navigation" + +setWebSettingsEnableSpatialNavigation :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableSpatialNavigation obj val = liftIO $ setObjectPropertyBool obj "enable-spatial-navigation" val + +constructWebSettingsEnableSpatialNavigation :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableSpatialNavigation val = constructObjectPropertyBool "enable-spatial-navigation" val + +data WebSettingsEnableSpatialNavigationPropertyInfo +instance AttrInfo WebSettingsEnableSpatialNavigationPropertyInfo where + type AttrAllowedOps WebSettingsEnableSpatialNavigationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableSpatialNavigationPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableSpatialNavigationPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableSpatialNavigationPropertyInfo = Bool + type AttrLabel WebSettingsEnableSpatialNavigationPropertyInfo = "WebSettings::enable-spatial-navigation" + attrGet _ = getWebSettingsEnableSpatialNavigation + attrSet _ = setWebSettingsEnableSpatialNavigation + attrConstruct _ = constructWebSettingsEnableSpatialNavigation + +-- VVV Prop "enable-spell-checking" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableSpellChecking :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableSpellChecking obj = liftIO $ getObjectPropertyBool obj "enable-spell-checking" + +setWebSettingsEnableSpellChecking :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableSpellChecking obj val = liftIO $ setObjectPropertyBool obj "enable-spell-checking" val + +constructWebSettingsEnableSpellChecking :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableSpellChecking val = constructObjectPropertyBool "enable-spell-checking" val + +data WebSettingsEnableSpellCheckingPropertyInfo +instance AttrInfo WebSettingsEnableSpellCheckingPropertyInfo where + type AttrAllowedOps WebSettingsEnableSpellCheckingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableSpellCheckingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableSpellCheckingPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableSpellCheckingPropertyInfo = Bool + type AttrLabel WebSettingsEnableSpellCheckingPropertyInfo = "WebSettings::enable-spell-checking" + attrGet _ = getWebSettingsEnableSpellChecking + attrSet _ = setWebSettingsEnableSpellChecking + attrConstruct _ = constructWebSettingsEnableSpellChecking + +-- VVV Prop "enable-universal-access-from-file-uris" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableUniversalAccessFromFileUris :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableUniversalAccessFromFileUris obj = liftIO $ getObjectPropertyBool obj "enable-universal-access-from-file-uris" + +setWebSettingsEnableUniversalAccessFromFileUris :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableUniversalAccessFromFileUris obj val = liftIO $ setObjectPropertyBool obj "enable-universal-access-from-file-uris" val + +constructWebSettingsEnableUniversalAccessFromFileUris :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableUniversalAccessFromFileUris val = constructObjectPropertyBool "enable-universal-access-from-file-uris" val + +data WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo +instance AttrInfo WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo where + type AttrAllowedOps WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = Bool + type AttrLabel WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo = "WebSettings::enable-universal-access-from-file-uris" + attrGet _ = getWebSettingsEnableUniversalAccessFromFileUris + attrSet _ = setWebSettingsEnableUniversalAccessFromFileUris + attrConstruct _ = constructWebSettingsEnableUniversalAccessFromFileUris + +-- VVV Prop "enable-webaudio" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableWebaudio :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableWebaudio obj = liftIO $ getObjectPropertyBool obj "enable-webaudio" + +setWebSettingsEnableWebaudio :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableWebaudio obj val = liftIO $ setObjectPropertyBool obj "enable-webaudio" val + +constructWebSettingsEnableWebaudio :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableWebaudio val = constructObjectPropertyBool "enable-webaudio" val + +data WebSettingsEnableWebaudioPropertyInfo +instance AttrInfo WebSettingsEnableWebaudioPropertyInfo where + type AttrAllowedOps WebSettingsEnableWebaudioPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableWebaudioPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableWebaudioPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableWebaudioPropertyInfo = Bool + type AttrLabel WebSettingsEnableWebaudioPropertyInfo = "WebSettings::enable-webaudio" + attrGet _ = getWebSettingsEnableWebaudio + attrSet _ = setWebSettingsEnableWebaudio + attrConstruct _ = constructWebSettingsEnableWebaudio + +-- VVV Prop "enable-webgl" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableWebgl :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableWebgl obj = liftIO $ getObjectPropertyBool obj "enable-webgl" + +setWebSettingsEnableWebgl :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableWebgl obj val = liftIO $ setObjectPropertyBool obj "enable-webgl" val + +constructWebSettingsEnableWebgl :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableWebgl val = constructObjectPropertyBool "enable-webgl" val + +data WebSettingsEnableWebglPropertyInfo +instance AttrInfo WebSettingsEnableWebglPropertyInfo where + type AttrAllowedOps WebSettingsEnableWebglPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableWebglPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableWebglPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableWebglPropertyInfo = Bool + type AttrLabel WebSettingsEnableWebglPropertyInfo = "WebSettings::enable-webgl" + attrGet _ = getWebSettingsEnableWebgl + attrSet _ = setWebSettingsEnableWebgl + attrConstruct _ = constructWebSettingsEnableWebgl + +-- VVV Prop "enable-xss-auditor" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnableXssAuditor :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnableXssAuditor obj = liftIO $ getObjectPropertyBool obj "enable-xss-auditor" + +setWebSettingsEnableXssAuditor :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnableXssAuditor obj val = liftIO $ setObjectPropertyBool obj "enable-xss-auditor" val + +constructWebSettingsEnableXssAuditor :: Bool -> IO ([Char], GValue) +constructWebSettingsEnableXssAuditor val = constructObjectPropertyBool "enable-xss-auditor" val + +data WebSettingsEnableXssAuditorPropertyInfo +instance AttrInfo WebSettingsEnableXssAuditorPropertyInfo where + type AttrAllowedOps WebSettingsEnableXssAuditorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnableXssAuditorPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnableXssAuditorPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnableXssAuditorPropertyInfo = Bool + type AttrLabel WebSettingsEnableXssAuditorPropertyInfo = "WebSettings::enable-xss-auditor" + attrGet _ = getWebSettingsEnableXssAuditor + attrSet _ = setWebSettingsEnableXssAuditor + attrConstruct _ = constructWebSettingsEnableXssAuditor + +-- VVV Prop "enforce-96-dpi" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsEnforce96Dpi :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsEnforce96Dpi obj = liftIO $ getObjectPropertyBool obj "enforce-96-dpi" + +setWebSettingsEnforce96Dpi :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsEnforce96Dpi obj val = liftIO $ setObjectPropertyBool obj "enforce-96-dpi" val + +constructWebSettingsEnforce96Dpi :: Bool -> IO ([Char], GValue) +constructWebSettingsEnforce96Dpi val = constructObjectPropertyBool "enforce-96-dpi" val + +data WebSettingsEnforce96DpiPropertyInfo +instance AttrInfo WebSettingsEnforce96DpiPropertyInfo where + type AttrAllowedOps WebSettingsEnforce96DpiPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsEnforce96DpiPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsEnforce96DpiPropertyInfo = WebSettingsK + type AttrGetType WebSettingsEnforce96DpiPropertyInfo = Bool + type AttrLabel WebSettingsEnforce96DpiPropertyInfo = "WebSettings::enforce-96-dpi" + attrGet _ = getWebSettingsEnforce96Dpi + attrSet _ = setWebSettingsEnforce96Dpi + attrConstruct _ = constructWebSettingsEnforce96Dpi + +-- VVV Prop "fantasy-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsFantasyFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsFantasyFontFamily obj = liftIO $ getObjectPropertyString obj "fantasy-font-family" + +setWebSettingsFantasyFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsFantasyFontFamily obj val = liftIO $ setObjectPropertyString obj "fantasy-font-family" val + +constructWebSettingsFantasyFontFamily :: T.Text -> IO ([Char], GValue) +constructWebSettingsFantasyFontFamily val = constructObjectPropertyString "fantasy-font-family" val + +data WebSettingsFantasyFontFamilyPropertyInfo +instance AttrInfo WebSettingsFantasyFontFamilyPropertyInfo where + type AttrAllowedOps WebSettingsFantasyFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsFantasyFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsFantasyFontFamilyPropertyInfo = WebSettingsK + type AttrGetType WebSettingsFantasyFontFamilyPropertyInfo = T.Text + type AttrLabel WebSettingsFantasyFontFamilyPropertyInfo = "WebSettings::fantasy-font-family" + attrGet _ = getWebSettingsFantasyFontFamily + attrSet _ = setWebSettingsFantasyFontFamily + attrConstruct _ = constructWebSettingsFantasyFontFamily + +-- VVV Prop "html5-local-storage-database-path" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsHtml5LocalStorageDatabasePath :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsHtml5LocalStorageDatabasePath obj = liftIO $ getObjectPropertyString obj "html5-local-storage-database-path" + +setWebSettingsHtml5LocalStorageDatabasePath :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsHtml5LocalStorageDatabasePath obj val = liftIO $ setObjectPropertyString obj "html5-local-storage-database-path" val + +constructWebSettingsHtml5LocalStorageDatabasePath :: T.Text -> IO ([Char], GValue) +constructWebSettingsHtml5LocalStorageDatabasePath val = constructObjectPropertyString "html5-local-storage-database-path" val + +data WebSettingsHtml5LocalStorageDatabasePathPropertyInfo +instance AttrInfo WebSettingsHtml5LocalStorageDatabasePathPropertyInfo where + type AttrAllowedOps WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = WebSettingsK + type AttrGetType WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = T.Text + type AttrLabel WebSettingsHtml5LocalStorageDatabasePathPropertyInfo = "WebSettings::html5-local-storage-database-path" + attrGet _ = getWebSettingsHtml5LocalStorageDatabasePath + attrSet _ = setWebSettingsHtml5LocalStorageDatabasePath + attrConstruct _ = constructWebSettingsHtml5LocalStorageDatabasePath + +-- VVV Prop "javascript-can-access-clipboard" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsJavascriptCanAccessClipboard :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsJavascriptCanAccessClipboard obj = liftIO $ getObjectPropertyBool obj "javascript-can-access-clipboard" + +setWebSettingsJavascriptCanAccessClipboard :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsJavascriptCanAccessClipboard obj val = liftIO $ setObjectPropertyBool obj "javascript-can-access-clipboard" val + +constructWebSettingsJavascriptCanAccessClipboard :: Bool -> IO ([Char], GValue) +constructWebSettingsJavascriptCanAccessClipboard val = constructObjectPropertyBool "javascript-can-access-clipboard" val + +data WebSettingsJavascriptCanAccessClipboardPropertyInfo +instance AttrInfo WebSettingsJavascriptCanAccessClipboardPropertyInfo where + type AttrAllowedOps WebSettingsJavascriptCanAccessClipboardPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsJavascriptCanAccessClipboardPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsJavascriptCanAccessClipboardPropertyInfo = WebSettingsK + type AttrGetType WebSettingsJavascriptCanAccessClipboardPropertyInfo = Bool + type AttrLabel WebSettingsJavascriptCanAccessClipboardPropertyInfo = "WebSettings::javascript-can-access-clipboard" + attrGet _ = getWebSettingsJavascriptCanAccessClipboard + attrSet _ = setWebSettingsJavascriptCanAccessClipboard + attrConstruct _ = constructWebSettingsJavascriptCanAccessClipboard + +-- VVV Prop "javascript-can-open-windows-automatically" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsJavascriptCanOpenWindowsAutomatically obj = liftIO $ getObjectPropertyBool obj "javascript-can-open-windows-automatically" + +setWebSettingsJavascriptCanOpenWindowsAutomatically :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsJavascriptCanOpenWindowsAutomatically obj val = liftIO $ setObjectPropertyBool obj "javascript-can-open-windows-automatically" val + +constructWebSettingsJavascriptCanOpenWindowsAutomatically :: Bool -> IO ([Char], GValue) +constructWebSettingsJavascriptCanOpenWindowsAutomatically val = constructObjectPropertyBool "javascript-can-open-windows-automatically" val + +data WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo +instance AttrInfo WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo where + type AttrAllowedOps WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = WebSettingsK + type AttrGetType WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = Bool + type AttrLabel WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo = "WebSettings::javascript-can-open-windows-automatically" + attrGet _ = getWebSettingsJavascriptCanOpenWindowsAutomatically + attrSet _ = setWebSettingsJavascriptCanOpenWindowsAutomatically + attrConstruct _ = constructWebSettingsJavascriptCanOpenWindowsAutomatically + +-- VVV Prop "media-playback-allows-inline" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsMediaPlaybackAllowsInline :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsMediaPlaybackAllowsInline obj = liftIO $ getObjectPropertyBool obj "media-playback-allows-inline" + +setWebSettingsMediaPlaybackAllowsInline :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsMediaPlaybackAllowsInline obj val = liftIO $ setObjectPropertyBool obj "media-playback-allows-inline" val + +constructWebSettingsMediaPlaybackAllowsInline :: Bool -> IO ([Char], GValue) +constructWebSettingsMediaPlaybackAllowsInline val = constructObjectPropertyBool "media-playback-allows-inline" val + +data WebSettingsMediaPlaybackAllowsInlinePropertyInfo +instance AttrInfo WebSettingsMediaPlaybackAllowsInlinePropertyInfo where + type AttrAllowedOps WebSettingsMediaPlaybackAllowsInlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsMediaPlaybackAllowsInlinePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsMediaPlaybackAllowsInlinePropertyInfo = WebSettingsK + type AttrGetType WebSettingsMediaPlaybackAllowsInlinePropertyInfo = Bool + type AttrLabel WebSettingsMediaPlaybackAllowsInlinePropertyInfo = "WebSettings::media-playback-allows-inline" + attrGet _ = getWebSettingsMediaPlaybackAllowsInline + attrSet _ = setWebSettingsMediaPlaybackAllowsInline + attrConstruct _ = constructWebSettingsMediaPlaybackAllowsInline + +-- VVV Prop "media-playback-requires-user-gesture" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsMediaPlaybackRequiresUserGesture obj = liftIO $ getObjectPropertyBool obj "media-playback-requires-user-gesture" + +setWebSettingsMediaPlaybackRequiresUserGesture :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsMediaPlaybackRequiresUserGesture obj val = liftIO $ setObjectPropertyBool obj "media-playback-requires-user-gesture" val + +constructWebSettingsMediaPlaybackRequiresUserGesture :: Bool -> IO ([Char], GValue) +constructWebSettingsMediaPlaybackRequiresUserGesture val = constructObjectPropertyBool "media-playback-requires-user-gesture" val + +data WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo +instance AttrInfo WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo where + type AttrAllowedOps WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = WebSettingsK + type AttrGetType WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = Bool + type AttrLabel WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo = "WebSettings::media-playback-requires-user-gesture" + attrGet _ = getWebSettingsMediaPlaybackRequiresUserGesture + attrSet _ = setWebSettingsMediaPlaybackRequiresUserGesture + attrConstruct _ = constructWebSettingsMediaPlaybackRequiresUserGesture + +-- VVV Prop "minimum-font-size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsMinimumFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 +getWebSettingsMinimumFontSize obj = liftIO $ getObjectPropertyCInt obj "minimum-font-size" + +setWebSettingsMinimumFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () +setWebSettingsMinimumFontSize obj val = liftIO $ setObjectPropertyCInt obj "minimum-font-size" val + +constructWebSettingsMinimumFontSize :: Int32 -> IO ([Char], GValue) +constructWebSettingsMinimumFontSize val = constructObjectPropertyCInt "minimum-font-size" val + +data WebSettingsMinimumFontSizePropertyInfo +instance AttrInfo WebSettingsMinimumFontSizePropertyInfo where + type AttrAllowedOps WebSettingsMinimumFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsMinimumFontSizePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebSettingsMinimumFontSizePropertyInfo = WebSettingsK + type AttrGetType WebSettingsMinimumFontSizePropertyInfo = Int32 + type AttrLabel WebSettingsMinimumFontSizePropertyInfo = "WebSettings::minimum-font-size" + attrGet _ = getWebSettingsMinimumFontSize + attrSet _ = setWebSettingsMinimumFontSize + attrConstruct _ = constructWebSettingsMinimumFontSize + +-- VVV Prop "minimum-logical-font-size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsMinimumLogicalFontSize :: (MonadIO m, WebSettingsK o) => o -> m Int32 +getWebSettingsMinimumLogicalFontSize obj = liftIO $ getObjectPropertyCInt obj "minimum-logical-font-size" + +setWebSettingsMinimumLogicalFontSize :: (MonadIO m, WebSettingsK o) => o -> Int32 -> m () +setWebSettingsMinimumLogicalFontSize obj val = liftIO $ setObjectPropertyCInt obj "minimum-logical-font-size" val + +constructWebSettingsMinimumLogicalFontSize :: Int32 -> IO ([Char], GValue) +constructWebSettingsMinimumLogicalFontSize val = constructObjectPropertyCInt "minimum-logical-font-size" val + +data WebSettingsMinimumLogicalFontSizePropertyInfo +instance AttrInfo WebSettingsMinimumLogicalFontSizePropertyInfo where + type AttrAllowedOps WebSettingsMinimumLogicalFontSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsMinimumLogicalFontSizePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebSettingsMinimumLogicalFontSizePropertyInfo = WebSettingsK + type AttrGetType WebSettingsMinimumLogicalFontSizePropertyInfo = Int32 + type AttrLabel WebSettingsMinimumLogicalFontSizePropertyInfo = "WebSettings::minimum-logical-font-size" + attrGet _ = getWebSettingsMinimumLogicalFontSize + attrSet _ = setWebSettingsMinimumLogicalFontSize + attrConstruct _ = constructWebSettingsMinimumLogicalFontSize + +-- VVV Prop "monospace-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsMonospaceFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsMonospaceFontFamily obj = liftIO $ getObjectPropertyString obj "monospace-font-family" + +setWebSettingsMonospaceFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsMonospaceFontFamily obj val = liftIO $ setObjectPropertyString obj "monospace-font-family" val + +constructWebSettingsMonospaceFontFamily :: T.Text -> IO ([Char], GValue) +constructWebSettingsMonospaceFontFamily val = constructObjectPropertyString "monospace-font-family" val + +data WebSettingsMonospaceFontFamilyPropertyInfo +instance AttrInfo WebSettingsMonospaceFontFamilyPropertyInfo where + type AttrAllowedOps WebSettingsMonospaceFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsMonospaceFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsMonospaceFontFamilyPropertyInfo = WebSettingsK + type AttrGetType WebSettingsMonospaceFontFamilyPropertyInfo = T.Text + type AttrLabel WebSettingsMonospaceFontFamilyPropertyInfo = "WebSettings::monospace-font-family" + attrGet _ = getWebSettingsMonospaceFontFamily + attrSet _ = setWebSettingsMonospaceFontFamily + attrConstruct _ = constructWebSettingsMonospaceFontFamily + +-- VVV Prop "print-backgrounds" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsPrintBackgrounds :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsPrintBackgrounds obj = liftIO $ getObjectPropertyBool obj "print-backgrounds" + +setWebSettingsPrintBackgrounds :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsPrintBackgrounds obj val = liftIO $ setObjectPropertyBool obj "print-backgrounds" val + +constructWebSettingsPrintBackgrounds :: Bool -> IO ([Char], GValue) +constructWebSettingsPrintBackgrounds val = constructObjectPropertyBool "print-backgrounds" val + +data WebSettingsPrintBackgroundsPropertyInfo +instance AttrInfo WebSettingsPrintBackgroundsPropertyInfo where + type AttrAllowedOps WebSettingsPrintBackgroundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsPrintBackgroundsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsPrintBackgroundsPropertyInfo = WebSettingsK + type AttrGetType WebSettingsPrintBackgroundsPropertyInfo = Bool + type AttrLabel WebSettingsPrintBackgroundsPropertyInfo = "WebSettings::print-backgrounds" + attrGet _ = getWebSettingsPrintBackgrounds + attrSet _ = setWebSettingsPrintBackgrounds + attrConstruct _ = constructWebSettingsPrintBackgrounds + +-- VVV Prop "resizable-text-areas" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsResizableTextAreas :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsResizableTextAreas obj = liftIO $ getObjectPropertyBool obj "resizable-text-areas" + +setWebSettingsResizableTextAreas :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsResizableTextAreas obj val = liftIO $ setObjectPropertyBool obj "resizable-text-areas" val + +constructWebSettingsResizableTextAreas :: Bool -> IO ([Char], GValue) +constructWebSettingsResizableTextAreas val = constructObjectPropertyBool "resizable-text-areas" val + +data WebSettingsResizableTextAreasPropertyInfo +instance AttrInfo WebSettingsResizableTextAreasPropertyInfo where + type AttrAllowedOps WebSettingsResizableTextAreasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsResizableTextAreasPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsResizableTextAreasPropertyInfo = WebSettingsK + type AttrGetType WebSettingsResizableTextAreasPropertyInfo = Bool + type AttrLabel WebSettingsResizableTextAreasPropertyInfo = "WebSettings::resizable-text-areas" + attrGet _ = getWebSettingsResizableTextAreas + attrSet _ = setWebSettingsResizableTextAreas + attrConstruct _ = constructWebSettingsResizableTextAreas + +-- VVV Prop "respect-image-orientation" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsRespectImageOrientation :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsRespectImageOrientation obj = liftIO $ getObjectPropertyBool obj "respect-image-orientation" + +setWebSettingsRespectImageOrientation :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsRespectImageOrientation obj val = liftIO $ setObjectPropertyBool obj "respect-image-orientation" val + +constructWebSettingsRespectImageOrientation :: Bool -> IO ([Char], GValue) +constructWebSettingsRespectImageOrientation val = constructObjectPropertyBool "respect-image-orientation" val + +data WebSettingsRespectImageOrientationPropertyInfo +instance AttrInfo WebSettingsRespectImageOrientationPropertyInfo where + type AttrAllowedOps WebSettingsRespectImageOrientationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsRespectImageOrientationPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsRespectImageOrientationPropertyInfo = WebSettingsK + type AttrGetType WebSettingsRespectImageOrientationPropertyInfo = Bool + type AttrLabel WebSettingsRespectImageOrientationPropertyInfo = "WebSettings::respect-image-orientation" + attrGet _ = getWebSettingsRespectImageOrientation + attrSet _ = setWebSettingsRespectImageOrientation + attrConstruct _ = constructWebSettingsRespectImageOrientation + +-- VVV Prop "sans-serif-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsSansSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsSansSerifFontFamily obj = liftIO $ getObjectPropertyString obj "sans-serif-font-family" + +setWebSettingsSansSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsSansSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "sans-serif-font-family" val + +constructWebSettingsSansSerifFontFamily :: T.Text -> IO ([Char], GValue) +constructWebSettingsSansSerifFontFamily val = constructObjectPropertyString "sans-serif-font-family" val + +data WebSettingsSansSerifFontFamilyPropertyInfo +instance AttrInfo WebSettingsSansSerifFontFamilyPropertyInfo where + type AttrAllowedOps WebSettingsSansSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsSansSerifFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsSansSerifFontFamilyPropertyInfo = WebSettingsK + type AttrGetType WebSettingsSansSerifFontFamilyPropertyInfo = T.Text + type AttrLabel WebSettingsSansSerifFontFamilyPropertyInfo = "WebSettings::sans-serif-font-family" + attrGet _ = getWebSettingsSansSerifFontFamily + attrSet _ = setWebSettingsSansSerifFontFamily + attrConstruct _ = constructWebSettingsSansSerifFontFamily + +-- VVV Prop "serif-font-family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsSerifFontFamily obj = liftIO $ getObjectPropertyString obj "serif-font-family" + +setWebSettingsSerifFontFamily :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsSerifFontFamily obj val = liftIO $ setObjectPropertyString obj "serif-font-family" val + +constructWebSettingsSerifFontFamily :: T.Text -> IO ([Char], GValue) +constructWebSettingsSerifFontFamily val = constructObjectPropertyString "serif-font-family" val + +data WebSettingsSerifFontFamilyPropertyInfo +instance AttrInfo WebSettingsSerifFontFamilyPropertyInfo where + type AttrAllowedOps WebSettingsSerifFontFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsSerifFontFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsSerifFontFamilyPropertyInfo = WebSettingsK + type AttrGetType WebSettingsSerifFontFamilyPropertyInfo = T.Text + type AttrLabel WebSettingsSerifFontFamilyPropertyInfo = "WebSettings::serif-font-family" + attrGet _ = getWebSettingsSerifFontFamily + attrSet _ = setWebSettingsSerifFontFamily + attrConstruct _ = constructWebSettingsSerifFontFamily + +-- VVV Prop "spell-checking-languages" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsSpellCheckingLanguages :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsSpellCheckingLanguages obj = liftIO $ getObjectPropertyString obj "spell-checking-languages" + +setWebSettingsSpellCheckingLanguages :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsSpellCheckingLanguages obj val = liftIO $ setObjectPropertyString obj "spell-checking-languages" val + +constructWebSettingsSpellCheckingLanguages :: T.Text -> IO ([Char], GValue) +constructWebSettingsSpellCheckingLanguages val = constructObjectPropertyString "spell-checking-languages" val + +data WebSettingsSpellCheckingLanguagesPropertyInfo +instance AttrInfo WebSettingsSpellCheckingLanguagesPropertyInfo where + type AttrAllowedOps WebSettingsSpellCheckingLanguagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsSpellCheckingLanguagesPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsSpellCheckingLanguagesPropertyInfo = WebSettingsK + type AttrGetType WebSettingsSpellCheckingLanguagesPropertyInfo = T.Text + type AttrLabel WebSettingsSpellCheckingLanguagesPropertyInfo = "WebSettings::spell-checking-languages" + attrGet _ = getWebSettingsSpellCheckingLanguages + attrSet _ = setWebSettingsSpellCheckingLanguages + attrConstruct _ = constructWebSettingsSpellCheckingLanguages + +-- VVV Prop "tab-key-cycles-through-elements" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsTabKeyCyclesThroughElements :: (MonadIO m, WebSettingsK o) => o -> m Bool +getWebSettingsTabKeyCyclesThroughElements obj = liftIO $ getObjectPropertyBool obj "tab-key-cycles-through-elements" + +setWebSettingsTabKeyCyclesThroughElements :: (MonadIO m, WebSettingsK o) => o -> Bool -> m () +setWebSettingsTabKeyCyclesThroughElements obj val = liftIO $ setObjectPropertyBool obj "tab-key-cycles-through-elements" val + +constructWebSettingsTabKeyCyclesThroughElements :: Bool -> IO ([Char], GValue) +constructWebSettingsTabKeyCyclesThroughElements val = constructObjectPropertyBool "tab-key-cycles-through-elements" val + +data WebSettingsTabKeyCyclesThroughElementsPropertyInfo +instance AttrInfo WebSettingsTabKeyCyclesThroughElementsPropertyInfo where + type AttrAllowedOps WebSettingsTabKeyCyclesThroughElementsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsTabKeyCyclesThroughElementsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebSettingsTabKeyCyclesThroughElementsPropertyInfo = WebSettingsK + type AttrGetType WebSettingsTabKeyCyclesThroughElementsPropertyInfo = Bool + type AttrLabel WebSettingsTabKeyCyclesThroughElementsPropertyInfo = "WebSettings::tab-key-cycles-through-elements" + attrGet _ = getWebSettingsTabKeyCyclesThroughElements + attrSet _ = setWebSettingsTabKeyCyclesThroughElements + attrConstruct _ = constructWebSettingsTabKeyCyclesThroughElements + +-- VVV Prop "user-agent" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsUserAgent :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent" + +setWebSettingsUserAgent :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" val + +constructWebSettingsUserAgent :: T.Text -> IO ([Char], GValue) +constructWebSettingsUserAgent val = constructObjectPropertyString "user-agent" val + +data WebSettingsUserAgentPropertyInfo +instance AttrInfo WebSettingsUserAgentPropertyInfo where + type AttrAllowedOps WebSettingsUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsUserAgentPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsUserAgentPropertyInfo = WebSettingsK + type AttrGetType WebSettingsUserAgentPropertyInfo = T.Text + type AttrLabel WebSettingsUserAgentPropertyInfo = "WebSettings::user-agent" + attrGet _ = getWebSettingsUserAgent + attrSet _ = setWebSettingsUserAgent + attrConstruct _ = constructWebSettingsUserAgent + +-- VVV Prop "user-stylesheet-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsUserStylesheetUri :: (MonadIO m, WebSettingsK o) => o -> m T.Text +getWebSettingsUserStylesheetUri obj = liftIO $ getObjectPropertyString obj "user-stylesheet-uri" + +setWebSettingsUserStylesheetUri :: (MonadIO m, WebSettingsK o) => o -> T.Text -> m () +setWebSettingsUserStylesheetUri obj val = liftIO $ setObjectPropertyString obj "user-stylesheet-uri" val + +constructWebSettingsUserStylesheetUri :: T.Text -> IO ([Char], GValue) +constructWebSettingsUserStylesheetUri val = constructObjectPropertyString "user-stylesheet-uri" val + +data WebSettingsUserStylesheetUriPropertyInfo +instance AttrInfo WebSettingsUserStylesheetUriPropertyInfo where + type AttrAllowedOps WebSettingsUserStylesheetUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsUserStylesheetUriPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebSettingsUserStylesheetUriPropertyInfo = WebSettingsK + type AttrGetType WebSettingsUserStylesheetUriPropertyInfo = T.Text + type AttrLabel WebSettingsUserStylesheetUriPropertyInfo = "WebSettings::user-stylesheet-uri" + attrGet _ = getWebSettingsUserStylesheetUri + attrSet _ = setWebSettingsUserStylesheetUri + attrConstruct _ = constructWebSettingsUserStylesheetUri + +-- VVV Prop "zoom-step" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebSettingsZoomStep :: (MonadIO m, WebSettingsK o) => o -> m Float +getWebSettingsZoomStep obj = liftIO $ getObjectPropertyFloat obj "zoom-step" + +setWebSettingsZoomStep :: (MonadIO m, WebSettingsK o) => o -> Float -> m () +setWebSettingsZoomStep obj val = liftIO $ setObjectPropertyFloat obj "zoom-step" val + +constructWebSettingsZoomStep :: Float -> IO ([Char], GValue) +constructWebSettingsZoomStep val = constructObjectPropertyFloat "zoom-step" val + +data WebSettingsZoomStepPropertyInfo +instance AttrInfo WebSettingsZoomStepPropertyInfo where + type AttrAllowedOps WebSettingsZoomStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebSettingsZoomStepPropertyInfo = (~) Float + type AttrBaseTypeConstraint WebSettingsZoomStepPropertyInfo = WebSettingsK + type AttrGetType WebSettingsZoomStepPropertyInfo = Float + type AttrLabel WebSettingsZoomStepPropertyInfo = "WebSettings::zoom-step" + attrGet _ = getWebSettingsZoomStep + attrSet _ = setWebSettingsZoomStep + attrConstruct _ = constructWebSettingsZoomStep + +type instance AttributeList WebSettings = '[ '("auto-load-images", WebSettingsAutoLoadImagesPropertyInfo), '("auto-resize-window", WebSettingsAutoResizeWindowPropertyInfo), '("auto-shrink-images", WebSettingsAutoShrinkImagesPropertyInfo), '("cursive-font-family", WebSettingsCursiveFontFamilyPropertyInfo), '("default-encoding", WebSettingsDefaultEncodingPropertyInfo), '("default-font-family", WebSettingsDefaultFontFamilyPropertyInfo), '("default-font-size", WebSettingsDefaultFontSizePropertyInfo), '("default-monospace-font-size", WebSettingsDefaultMonospaceFontSizePropertyInfo), '("editing-behavior", WebSettingsEditingBehaviorPropertyInfo), '("enable-accelerated-compositing", WebSettingsEnableAcceleratedCompositingPropertyInfo), '("enable-caret-browsing", WebSettingsEnableCaretBrowsingPropertyInfo), '("enable-default-context-menu", WebSettingsEnableDefaultContextMenuPropertyInfo), '("enable-developer-extras", WebSettingsEnableDeveloperExtrasPropertyInfo), '("enable-display-of-insecure-content", WebSettingsEnableDisplayOfInsecureContentPropertyInfo), '("enable-dns-prefetching", WebSettingsEnableDnsPrefetchingPropertyInfo), '("enable-dom-paste", WebSettingsEnableDomPastePropertyInfo), '("enable-file-access-from-file-uris", WebSettingsEnableFileAccessFromFileUrisPropertyInfo), '("enable-frame-flattening", WebSettingsEnableFrameFlatteningPropertyInfo), '("enable-fullscreen", WebSettingsEnableFullscreenPropertyInfo), '("enable-html5-database", WebSettingsEnableHtml5DatabasePropertyInfo), '("enable-html5-local-storage", WebSettingsEnableHtml5LocalStoragePropertyInfo), '("enable-hyperlink-auditing", WebSettingsEnableHyperlinkAuditingPropertyInfo), '("enable-java-applet", WebSettingsEnableJavaAppletPropertyInfo), '("enable-media-stream", WebSettingsEnableMediaStreamPropertyInfo), '("enable-mediasource", WebSettingsEnableMediasourcePropertyInfo), '("enable-offline-web-application-cache", WebSettingsEnableOfflineWebApplicationCachePropertyInfo), '("enable-page-cache", WebSettingsEnablePageCachePropertyInfo), '("enable-plugins", WebSettingsEnablePluginsPropertyInfo), '("enable-private-browsing", WebSettingsEnablePrivateBrowsingPropertyInfo), '("enable-running-of-insecure-content", WebSettingsEnableRunningOfInsecureContentPropertyInfo), '("enable-scripts", WebSettingsEnableScriptsPropertyInfo), '("enable-site-specific-quirks", WebSettingsEnableSiteSpecificQuirksPropertyInfo), '("enable-smooth-scrolling", WebSettingsEnableSmoothScrollingPropertyInfo), '("enable-spatial-navigation", WebSettingsEnableSpatialNavigationPropertyInfo), '("enable-spell-checking", WebSettingsEnableSpellCheckingPropertyInfo), '("enable-universal-access-from-file-uris", WebSettingsEnableUniversalAccessFromFileUrisPropertyInfo), '("enable-webaudio", WebSettingsEnableWebaudioPropertyInfo), '("enable-webgl", WebSettingsEnableWebglPropertyInfo), '("enable-xss-auditor", WebSettingsEnableXssAuditorPropertyInfo), '("enforce-96-dpi", WebSettingsEnforce96DpiPropertyInfo), '("fantasy-font-family", WebSettingsFantasyFontFamilyPropertyInfo), '("html5-local-storage-database-path", WebSettingsHtml5LocalStorageDatabasePathPropertyInfo), '("javascript-can-access-clipboard", WebSettingsJavascriptCanAccessClipboardPropertyInfo), '("javascript-can-open-windows-automatically", WebSettingsJavascriptCanOpenWindowsAutomaticallyPropertyInfo), '("media-playback-allows-inline", WebSettingsMediaPlaybackAllowsInlinePropertyInfo), '("media-playback-requires-user-gesture", WebSettingsMediaPlaybackRequiresUserGesturePropertyInfo), '("minimum-font-size", WebSettingsMinimumFontSizePropertyInfo), '("minimum-logical-font-size", WebSettingsMinimumLogicalFontSizePropertyInfo), '("monospace-font-family", WebSettingsMonospaceFontFamilyPropertyInfo), '("print-backgrounds", WebSettingsPrintBackgroundsPropertyInfo), '("resizable-text-areas", WebSettingsResizableTextAreasPropertyInfo), '("respect-image-orientation", WebSettingsRespectImageOrientationPropertyInfo), '("sans-serif-font-family", WebSettingsSansSerifFontFamilyPropertyInfo), '("serif-font-family", WebSettingsSerifFontFamilyPropertyInfo), '("spell-checking-languages", WebSettingsSpellCheckingLanguagesPropertyInfo), '("tab-key-cycles-through-elements", WebSettingsTabKeyCyclesThroughElementsPropertyInfo), '("user-agent", WebSettingsUserAgentPropertyInfo), '("user-stylesheet-uri", WebSettingsUserStylesheetUriPropertyInfo), '("zoom-step", WebSettingsZoomStepPropertyInfo)] + +-- VVV Prop "copy-target-list" + -- Type: TInterface "Gtk" "TargetList" + -- Flags: [PropertyReadable] + +getWebViewCopyTargetList :: (MonadIO m, WebViewK o) => o -> m Gtk.TargetList +getWebViewCopyTargetList obj = liftIO $ getObjectPropertyBoxed obj "copy-target-list" Gtk.TargetList + +data WebViewCopyTargetListPropertyInfo +instance AttrInfo WebViewCopyTargetListPropertyInfo where + type AttrAllowedOps WebViewCopyTargetListPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewCopyTargetListPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewCopyTargetListPropertyInfo = WebViewK + type AttrGetType WebViewCopyTargetListPropertyInfo = Gtk.TargetList + type AttrLabel WebViewCopyTargetListPropertyInfo = "WebView::copy-target-list" + attrGet _ = getWebViewCopyTargetList + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "custom-encoding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewCustomEncoding :: (MonadIO m, WebViewK o) => o -> m T.Text +getWebViewCustomEncoding obj = liftIO $ getObjectPropertyString obj "custom-encoding" + +setWebViewCustomEncoding :: (MonadIO m, WebViewK o) => o -> T.Text -> m () +setWebViewCustomEncoding obj val = liftIO $ setObjectPropertyString obj "custom-encoding" val + +constructWebViewCustomEncoding :: T.Text -> IO ([Char], GValue) +constructWebViewCustomEncoding val = constructObjectPropertyString "custom-encoding" val + +data WebViewCustomEncodingPropertyInfo +instance AttrInfo WebViewCustomEncodingPropertyInfo where + type AttrAllowedOps WebViewCustomEncodingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewCustomEncodingPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebViewCustomEncodingPropertyInfo = WebViewK + type AttrGetType WebViewCustomEncodingPropertyInfo = T.Text + type AttrLabel WebViewCustomEncodingPropertyInfo = "WebView::custom-encoding" + attrGet _ = getWebViewCustomEncoding + attrSet _ = setWebViewCustomEncoding + attrConstruct _ = constructWebViewCustomEncoding + +-- VVV Prop "editable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewEditable :: (MonadIO m, WebViewK o) => o -> m Bool +getWebViewEditable obj = liftIO $ getObjectPropertyBool obj "editable" + +setWebViewEditable :: (MonadIO m, WebViewK o) => o -> Bool -> m () +setWebViewEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val + +constructWebViewEditable :: Bool -> IO ([Char], GValue) +constructWebViewEditable val = constructObjectPropertyBool "editable" val + +data WebViewEditablePropertyInfo +instance AttrInfo WebViewEditablePropertyInfo where + type AttrAllowedOps WebViewEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewEditablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebViewEditablePropertyInfo = WebViewK + type AttrGetType WebViewEditablePropertyInfo = Bool + type AttrLabel WebViewEditablePropertyInfo = "WebView::editable" + attrGet _ = getWebViewEditable + attrSet _ = setWebViewEditable + attrConstruct _ = constructWebViewEditable + +-- VVV Prop "encoding" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebViewEncoding :: (MonadIO m, WebViewK o) => o -> m T.Text +getWebViewEncoding obj = liftIO $ getObjectPropertyString obj "encoding" + +data WebViewEncodingPropertyInfo +instance AttrInfo WebViewEncodingPropertyInfo where + type AttrAllowedOps WebViewEncodingPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewEncodingPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewEncodingPropertyInfo = WebViewK + type AttrGetType WebViewEncodingPropertyInfo = T.Text + type AttrLabel WebViewEncodingPropertyInfo = "WebView::encoding" + attrGet _ = getWebViewEncoding + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "full-content-zoom" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewFullContentZoom :: (MonadIO m, WebViewK o) => o -> m Bool +getWebViewFullContentZoom obj = liftIO $ getObjectPropertyBool obj "full-content-zoom" + +setWebViewFullContentZoom :: (MonadIO m, WebViewK o) => o -> Bool -> m () +setWebViewFullContentZoom obj val = liftIO $ setObjectPropertyBool obj "full-content-zoom" val + +constructWebViewFullContentZoom :: Bool -> IO ([Char], GValue) +constructWebViewFullContentZoom val = constructObjectPropertyBool "full-content-zoom" val + +data WebViewFullContentZoomPropertyInfo +instance AttrInfo WebViewFullContentZoomPropertyInfo where + type AttrAllowedOps WebViewFullContentZoomPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewFullContentZoomPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebViewFullContentZoomPropertyInfo = WebViewK + type AttrGetType WebViewFullContentZoomPropertyInfo = Bool + type AttrLabel WebViewFullContentZoomPropertyInfo = "WebView::full-content-zoom" + attrGet _ = getWebViewFullContentZoom + attrSet _ = setWebViewFullContentZoom + attrConstruct _ = constructWebViewFullContentZoom + +-- VVV Prop "icon-uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebViewIconUri :: (MonadIO m, WebViewK o) => o -> m T.Text +getWebViewIconUri obj = liftIO $ getObjectPropertyString obj "icon-uri" + +data WebViewIconUriPropertyInfo +instance AttrInfo WebViewIconUriPropertyInfo where + type AttrAllowedOps WebViewIconUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewIconUriPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewIconUriPropertyInfo = WebViewK + type AttrGetType WebViewIconUriPropertyInfo = T.Text + type AttrLabel WebViewIconUriPropertyInfo = "WebView::icon-uri" + attrGet _ = getWebViewIconUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "im-context" + -- Type: TInterface "Gtk" "IMContext" + -- Flags: [PropertyReadable] + +getWebViewImContext :: (MonadIO m, WebViewK o) => o -> m Gtk.IMContext +getWebViewImContext obj = liftIO $ getObjectPropertyObject obj "im-context" Gtk.IMContext + +data WebViewImContextPropertyInfo +instance AttrInfo WebViewImContextPropertyInfo where + type AttrAllowedOps WebViewImContextPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewImContextPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewImContextPropertyInfo = WebViewK + type AttrGetType WebViewImContextPropertyInfo = Gtk.IMContext + type AttrLabel WebViewImContextPropertyInfo = "WebView::im-context" + attrGet _ = getWebViewImContext + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "load-status" + -- Type: TInterface "WebKit" "LoadStatus" + -- Flags: [PropertyReadable] + +getWebViewLoadStatus :: (MonadIO m, WebViewK o) => o -> m LoadStatus +getWebViewLoadStatus obj = liftIO $ getObjectPropertyEnum obj "load-status" + +data WebViewLoadStatusPropertyInfo +instance AttrInfo WebViewLoadStatusPropertyInfo where + type AttrAllowedOps WebViewLoadStatusPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewLoadStatusPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewLoadStatusPropertyInfo = WebViewK + type AttrGetType WebViewLoadStatusPropertyInfo = LoadStatus + type AttrLabel WebViewLoadStatusPropertyInfo = "WebView::load-status" + attrGet _ = getWebViewLoadStatus + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "paste-target-list" + -- Type: TInterface "Gtk" "TargetList" + -- Flags: [PropertyReadable] + +getWebViewPasteTargetList :: (MonadIO m, WebViewK o) => o -> m Gtk.TargetList +getWebViewPasteTargetList obj = liftIO $ getObjectPropertyBoxed obj "paste-target-list" Gtk.TargetList + +data WebViewPasteTargetListPropertyInfo +instance AttrInfo WebViewPasteTargetListPropertyInfo where + type AttrAllowedOps WebViewPasteTargetListPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewPasteTargetListPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewPasteTargetListPropertyInfo = WebViewK + type AttrGetType WebViewPasteTargetListPropertyInfo = Gtk.TargetList + type AttrLabel WebViewPasteTargetListPropertyInfo = "WebView::paste-target-list" + attrGet _ = getWebViewPasteTargetList + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "progress" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable] + +getWebViewProgress :: (MonadIO m, WebViewK o) => o -> m Double +getWebViewProgress obj = liftIO $ getObjectPropertyDouble obj "progress" + +data WebViewProgressPropertyInfo +instance AttrInfo WebViewProgressPropertyInfo where + type AttrAllowedOps WebViewProgressPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewProgressPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewProgressPropertyInfo = WebViewK + type AttrGetType WebViewProgressPropertyInfo = Double + type AttrLabel WebViewProgressPropertyInfo = "WebView::progress" + attrGet _ = getWebViewProgress + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "self-scrolling" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebViewSelfScrolling :: (MonadIO m, WebViewK o) => o -> m Bool +getWebViewSelfScrolling obj = liftIO $ getObjectPropertyBool obj "self-scrolling" + +constructWebViewSelfScrolling :: Bool -> IO ([Char], GValue) +constructWebViewSelfScrolling val = constructObjectPropertyBool "self-scrolling" val + +data WebViewSelfScrollingPropertyInfo +instance AttrInfo WebViewSelfScrollingPropertyInfo where + type AttrAllowedOps WebViewSelfScrollingPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewSelfScrollingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebViewSelfScrollingPropertyInfo = WebViewK + type AttrGetType WebViewSelfScrollingPropertyInfo = Bool + type AttrLabel WebViewSelfScrollingPropertyInfo = "WebView::self-scrolling" + attrGet _ = getWebViewSelfScrolling + attrSet _ = undefined + attrConstruct _ = constructWebViewSelfScrolling + +-- VVV Prop "settings" + -- Type: TInterface "WebKit" "WebSettings" + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewSettings :: (MonadIO m, WebViewK o) => o -> m WebSettings +getWebViewSettings obj = liftIO $ getObjectPropertyObject obj "settings" WebSettings + +setWebViewSettings :: (MonadIO m, WebViewK o, WebSettingsK a) => o -> a -> m () +setWebViewSettings obj val = liftIO $ setObjectPropertyObject obj "settings" val + +constructWebViewSettings :: (WebSettingsK a) => a -> IO ([Char], GValue) +constructWebViewSettings val = constructObjectPropertyObject "settings" val + +data WebViewSettingsPropertyInfo +instance AttrInfo WebViewSettingsPropertyInfo where + type AttrAllowedOps WebViewSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewSettingsPropertyInfo = WebSettingsK + type AttrBaseTypeConstraint WebViewSettingsPropertyInfo = WebViewK + type AttrGetType WebViewSettingsPropertyInfo = WebSettings + type AttrLabel WebViewSettingsPropertyInfo = "WebView::settings" + attrGet _ = getWebViewSettings + attrSet _ = setWebViewSettings + attrConstruct _ = constructWebViewSettings + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebViewTitle :: (MonadIO m, WebViewK o) => o -> m T.Text +getWebViewTitle obj = liftIO $ getObjectPropertyString obj "title" + +data WebViewTitlePropertyInfo +instance AttrInfo WebViewTitlePropertyInfo where + type AttrAllowedOps WebViewTitlePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewTitlePropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewTitlePropertyInfo = WebViewK + type AttrGetType WebViewTitlePropertyInfo = T.Text + type AttrLabel WebViewTitlePropertyInfo = "WebView::title" + attrGet _ = getWebViewTitle + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "transparent" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewTransparent :: (MonadIO m, WebViewK o) => o -> m Bool +getWebViewTransparent obj = liftIO $ getObjectPropertyBool obj "transparent" + +setWebViewTransparent :: (MonadIO m, WebViewK o) => o -> Bool -> m () +setWebViewTransparent obj val = liftIO $ setObjectPropertyBool obj "transparent" val + +constructWebViewTransparent :: Bool -> IO ([Char], GValue) +constructWebViewTransparent val = constructObjectPropertyBool "transparent" val + +data WebViewTransparentPropertyInfo +instance AttrInfo WebViewTransparentPropertyInfo where + type AttrAllowedOps WebViewTransparentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewTransparentPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebViewTransparentPropertyInfo = WebViewK + type AttrGetType WebViewTransparentPropertyInfo = Bool + type AttrLabel WebViewTransparentPropertyInfo = "WebView::transparent" + attrGet _ = getWebViewTransparent + attrSet _ = setWebViewTransparent + attrConstruct _ = constructWebViewTransparent + +-- VVV Prop "uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getWebViewUri :: (MonadIO m, WebViewK o) => o -> m T.Text +getWebViewUri obj = liftIO $ getObjectPropertyString obj "uri" + +data WebViewUriPropertyInfo +instance AttrInfo WebViewUriPropertyInfo where + type AttrAllowedOps WebViewUriPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewUriPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewUriPropertyInfo = WebViewK + type AttrGetType WebViewUriPropertyInfo = T.Text + type AttrLabel WebViewUriPropertyInfo = "WebView::uri" + attrGet _ = getWebViewUri + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "view-mode" + -- Type: TInterface "WebKit" "WebViewViewMode" + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewViewMode :: (MonadIO m, WebViewK o) => o -> m WebViewViewMode +getWebViewViewMode obj = liftIO $ getObjectPropertyEnum obj "view-mode" + +setWebViewViewMode :: (MonadIO m, WebViewK o) => o -> WebViewViewMode -> m () +setWebViewViewMode obj val = liftIO $ setObjectPropertyEnum obj "view-mode" val + +constructWebViewViewMode :: WebViewViewMode -> IO ([Char], GValue) +constructWebViewViewMode val = constructObjectPropertyEnum "view-mode" val + +data WebViewViewModePropertyInfo +instance AttrInfo WebViewViewModePropertyInfo where + type AttrAllowedOps WebViewViewModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewViewModePropertyInfo = (~) WebViewViewMode + type AttrBaseTypeConstraint WebViewViewModePropertyInfo = WebViewK + type AttrGetType WebViewViewModePropertyInfo = WebViewViewMode + type AttrLabel WebViewViewModePropertyInfo = "WebView::view-mode" + attrGet _ = getWebViewViewMode + attrSet _ = setWebViewViewMode + attrConstruct _ = constructWebViewViewMode + +-- VVV Prop "viewport-attributes" + -- Type: TInterface "WebKit" "ViewportAttributes" + -- Flags: [PropertyReadable] + +getWebViewViewportAttributes :: (MonadIO m, WebViewK o) => o -> m ViewportAttributes +getWebViewViewportAttributes obj = liftIO $ getObjectPropertyObject obj "viewport-attributes" ViewportAttributes + +data WebViewViewportAttributesPropertyInfo +instance AttrInfo WebViewViewportAttributesPropertyInfo where + type AttrAllowedOps WebViewViewportAttributesPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewViewportAttributesPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewViewportAttributesPropertyInfo = WebViewK + type AttrGetType WebViewViewportAttributesPropertyInfo = ViewportAttributes + type AttrLabel WebViewViewportAttributesPropertyInfo = "WebView::viewport-attributes" + attrGet _ = getWebViewViewportAttributes + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "web-inspector" + -- Type: TInterface "WebKit" "WebInspector" + -- Flags: [PropertyReadable] + +getWebViewWebInspector :: (MonadIO m, WebViewK o) => o -> m WebInspector +getWebViewWebInspector obj = liftIO $ getObjectPropertyObject obj "web-inspector" WebInspector + +data WebViewWebInspectorPropertyInfo +instance AttrInfo WebViewWebInspectorPropertyInfo where + type AttrAllowedOps WebViewWebInspectorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebViewWebInspectorPropertyInfo = (~) () + type AttrBaseTypeConstraint WebViewWebInspectorPropertyInfo = WebViewK + type AttrGetType WebViewWebInspectorPropertyInfo = WebInspector + type AttrLabel WebViewWebInspectorPropertyInfo = "WebView::web-inspector" + attrGet _ = getWebViewWebInspector + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "window-features" + -- Type: TInterface "WebKit" "WebWindowFeatures" + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewWindowFeatures :: (MonadIO m, WebViewK o) => o -> m WebWindowFeatures +getWebViewWindowFeatures obj = liftIO $ getObjectPropertyObject obj "window-features" WebWindowFeatures + +setWebViewWindowFeatures :: (MonadIO m, WebViewK o, WebWindowFeaturesK a) => o -> a -> m () +setWebViewWindowFeatures obj val = liftIO $ setObjectPropertyObject obj "window-features" val + +constructWebViewWindowFeatures :: (WebWindowFeaturesK a) => a -> IO ([Char], GValue) +constructWebViewWindowFeatures val = constructObjectPropertyObject "window-features" val + +data WebViewWindowFeaturesPropertyInfo +instance AttrInfo WebViewWindowFeaturesPropertyInfo where + type AttrAllowedOps WebViewWindowFeaturesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewWindowFeaturesPropertyInfo = WebWindowFeaturesK + type AttrBaseTypeConstraint WebViewWindowFeaturesPropertyInfo = WebViewK + type AttrGetType WebViewWindowFeaturesPropertyInfo = WebWindowFeatures + type AttrLabel WebViewWindowFeaturesPropertyInfo = "WebView::window-features" + attrGet _ = getWebViewWindowFeatures + attrSet _ = setWebViewWindowFeatures + attrConstruct _ = constructWebViewWindowFeatures + +-- VVV Prop "zoom-level" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +getWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> m Float +getWebViewZoomLevel obj = liftIO $ getObjectPropertyFloat obj "zoom-level" + +setWebViewZoomLevel :: (MonadIO m, WebViewK o) => o -> Float -> m () +setWebViewZoomLevel obj val = liftIO $ setObjectPropertyFloat obj "zoom-level" val + +constructWebViewZoomLevel :: Float -> IO ([Char], GValue) +constructWebViewZoomLevel val = constructObjectPropertyFloat "zoom-level" val + +data WebViewZoomLevelPropertyInfo +instance AttrInfo WebViewZoomLevelPropertyInfo where + type AttrAllowedOps WebViewZoomLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebViewZoomLevelPropertyInfo = (~) Float + type AttrBaseTypeConstraint WebViewZoomLevelPropertyInfo = WebViewK + type AttrGetType WebViewZoomLevelPropertyInfo = Float + type AttrLabel WebViewZoomLevelPropertyInfo = "WebView::zoom-level" + attrGet _ = getWebViewZoomLevel + attrSet _ = setWebViewZoomLevel + attrConstruct _ = constructWebViewZoomLevel + +type instance AttributeList WebView = '[ '("app-paintable", GtkA.WidgetAppPaintablePropertyInfo), '("border-width", GtkA.ContainerBorderWidthPropertyInfo), '("can-default", GtkA.WidgetCanDefaultPropertyInfo), '("can-focus", GtkA.WidgetCanFocusPropertyInfo), '("child", GtkA.ContainerChildPropertyInfo), '("composite-child", GtkA.WidgetCompositeChildPropertyInfo), '("copy-target-list", WebViewCopyTargetListPropertyInfo), '("custom-encoding", WebViewCustomEncodingPropertyInfo), '("double-buffered", GtkA.WidgetDoubleBufferedPropertyInfo), '("editable", WebViewEditablePropertyInfo), '("encoding", WebViewEncodingPropertyInfo), '("events", GtkA.WidgetEventsPropertyInfo), '("expand", GtkA.WidgetExpandPropertyInfo), '("full-content-zoom", WebViewFullContentZoomPropertyInfo), '("hadjustment", GtkA.ScrollableHadjustmentPropertyInfo), '("halign", GtkA.WidgetHalignPropertyInfo), '("has-default", GtkA.WidgetHasDefaultPropertyInfo), '("has-focus", GtkA.WidgetHasFocusPropertyInfo), '("has-tooltip", GtkA.WidgetHasTooltipPropertyInfo), '("height-request", GtkA.WidgetHeightRequestPropertyInfo), '("hexpand", GtkA.WidgetHexpandPropertyInfo), '("hexpand-set", GtkA.WidgetHexpandSetPropertyInfo), '("hscroll-policy", GtkA.ScrollableHscrollPolicyPropertyInfo), '("icon-uri", WebViewIconUriPropertyInfo), '("im-context", WebViewImContextPropertyInfo), '("is-focus", GtkA.WidgetIsFocusPropertyInfo), '("load-status", WebViewLoadStatusPropertyInfo), '("margin", GtkA.WidgetMarginPropertyInfo), '("margin-bottom", GtkA.WidgetMarginBottomPropertyInfo), '("margin-end", GtkA.WidgetMarginEndPropertyInfo), '("margin-left", GtkA.WidgetMarginLeftPropertyInfo), '("margin-right", GtkA.WidgetMarginRightPropertyInfo), '("margin-start", GtkA.WidgetMarginStartPropertyInfo), '("margin-top", GtkA.WidgetMarginTopPropertyInfo), '("name", GtkA.WidgetNamePropertyInfo), '("no-show-all", GtkA.WidgetNoShowAllPropertyInfo), '("opacity", GtkA.WidgetOpacityPropertyInfo), '("parent", GtkA.WidgetParentPropertyInfo), '("paste-target-list", WebViewPasteTargetListPropertyInfo), '("progress", WebViewProgressPropertyInfo), '("receives-default", GtkA.WidgetReceivesDefaultPropertyInfo), '("resize-mode", GtkA.ContainerResizeModePropertyInfo), '("scale-factor", GtkA.WidgetScaleFactorPropertyInfo), '("self-scrolling", WebViewSelfScrollingPropertyInfo), '("sensitive", GtkA.WidgetSensitivePropertyInfo), '("settings", WebViewSettingsPropertyInfo), '("style", GtkA.WidgetStylePropertyInfo), '("title", WebViewTitlePropertyInfo), '("tooltip-markup", GtkA.WidgetTooltipMarkupPropertyInfo), '("tooltip-text", GtkA.WidgetTooltipTextPropertyInfo), '("transparent", WebViewTransparentPropertyInfo), '("uri", WebViewUriPropertyInfo), '("vadjustment", GtkA.ScrollableVadjustmentPropertyInfo), '("valign", GtkA.WidgetValignPropertyInfo), '("vexpand", GtkA.WidgetVexpandPropertyInfo), '("vexpand-set", GtkA.WidgetVexpandSetPropertyInfo), '("view-mode", WebViewViewModePropertyInfo), '("viewport-attributes", WebViewViewportAttributesPropertyInfo), '("visible", GtkA.WidgetVisiblePropertyInfo), '("vscroll-policy", GtkA.ScrollableVscrollPolicyPropertyInfo), '("web-inspector", WebViewWebInspectorPropertyInfo), '("width-request", GtkA.WidgetWidthRequestPropertyInfo), '("window", GtkA.WidgetWindowPropertyInfo), '("window-features", WebViewWindowFeaturesPropertyInfo), '("zoom-level", WebViewZoomLevelPropertyInfo)] + +-- VVV Prop "fullscreen" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesFullscreen :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool +getWebWindowFeaturesFullscreen obj = liftIO $ getObjectPropertyBool obj "fullscreen" + +setWebWindowFeaturesFullscreen :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () +setWebWindowFeaturesFullscreen obj val = liftIO $ setObjectPropertyBool obj "fullscreen" val + +constructWebWindowFeaturesFullscreen :: Bool -> IO ([Char], GValue) +constructWebWindowFeaturesFullscreen val = constructObjectPropertyBool "fullscreen" val + +data WebWindowFeaturesFullscreenPropertyInfo +instance AttrInfo WebWindowFeaturesFullscreenPropertyInfo where + type AttrAllowedOps WebWindowFeaturesFullscreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesFullscreenPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebWindowFeaturesFullscreenPropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesFullscreenPropertyInfo = Bool + type AttrLabel WebWindowFeaturesFullscreenPropertyInfo = "WebWindowFeatures::fullscreen" + attrGet _ = getWebWindowFeaturesFullscreen + attrSet _ = setWebWindowFeaturesFullscreen + attrConstruct _ = constructWebWindowFeaturesFullscreen + +-- VVV Prop "height" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesHeight :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 +getWebWindowFeaturesHeight obj = liftIO $ getObjectPropertyCInt obj "height" + +setWebWindowFeaturesHeight :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () +setWebWindowFeaturesHeight obj val = liftIO $ setObjectPropertyCInt obj "height" val + +constructWebWindowFeaturesHeight :: Int32 -> IO ([Char], GValue) +constructWebWindowFeaturesHeight val = constructObjectPropertyCInt "height" val + +data WebWindowFeaturesHeightPropertyInfo +instance AttrInfo WebWindowFeaturesHeightPropertyInfo where + type AttrAllowedOps WebWindowFeaturesHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesHeightPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebWindowFeaturesHeightPropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesHeightPropertyInfo = Int32 + type AttrLabel WebWindowFeaturesHeightPropertyInfo = "WebWindowFeatures::height" + attrGet _ = getWebWindowFeaturesHeight + attrSet _ = setWebWindowFeaturesHeight + attrConstruct _ = constructWebWindowFeaturesHeight + +-- VVV Prop "locationbar-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesLocationbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool +getWebWindowFeaturesLocationbarVisible obj = liftIO $ getObjectPropertyBool obj "locationbar-visible" + +setWebWindowFeaturesLocationbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () +setWebWindowFeaturesLocationbarVisible obj val = liftIO $ setObjectPropertyBool obj "locationbar-visible" val + +constructWebWindowFeaturesLocationbarVisible :: Bool -> IO ([Char], GValue) +constructWebWindowFeaturesLocationbarVisible val = constructObjectPropertyBool "locationbar-visible" val + +data WebWindowFeaturesLocationbarVisiblePropertyInfo +instance AttrInfo WebWindowFeaturesLocationbarVisiblePropertyInfo where + type AttrAllowedOps WebWindowFeaturesLocationbarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesLocationbarVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebWindowFeaturesLocationbarVisiblePropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesLocationbarVisiblePropertyInfo = Bool + type AttrLabel WebWindowFeaturesLocationbarVisiblePropertyInfo = "WebWindowFeatures::locationbar-visible" + attrGet _ = getWebWindowFeaturesLocationbarVisible + attrSet _ = setWebWindowFeaturesLocationbarVisible + attrConstruct _ = constructWebWindowFeaturesLocationbarVisible + +-- VVV Prop "menubar-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesMenubarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool +getWebWindowFeaturesMenubarVisible obj = liftIO $ getObjectPropertyBool obj "menubar-visible" + +setWebWindowFeaturesMenubarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () +setWebWindowFeaturesMenubarVisible obj val = liftIO $ setObjectPropertyBool obj "menubar-visible" val + +constructWebWindowFeaturesMenubarVisible :: Bool -> IO ([Char], GValue) +constructWebWindowFeaturesMenubarVisible val = constructObjectPropertyBool "menubar-visible" val + +data WebWindowFeaturesMenubarVisiblePropertyInfo +instance AttrInfo WebWindowFeaturesMenubarVisiblePropertyInfo where + type AttrAllowedOps WebWindowFeaturesMenubarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesMenubarVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebWindowFeaturesMenubarVisiblePropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesMenubarVisiblePropertyInfo = Bool + type AttrLabel WebWindowFeaturesMenubarVisiblePropertyInfo = "WebWindowFeatures::menubar-visible" + attrGet _ = getWebWindowFeaturesMenubarVisible + attrSet _ = setWebWindowFeaturesMenubarVisible + attrConstruct _ = constructWebWindowFeaturesMenubarVisible + +-- VVV Prop "scrollbar-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesScrollbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool +getWebWindowFeaturesScrollbarVisible obj = liftIO $ getObjectPropertyBool obj "scrollbar-visible" + +setWebWindowFeaturesScrollbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () +setWebWindowFeaturesScrollbarVisible obj val = liftIO $ setObjectPropertyBool obj "scrollbar-visible" val + +constructWebWindowFeaturesScrollbarVisible :: Bool -> IO ([Char], GValue) +constructWebWindowFeaturesScrollbarVisible val = constructObjectPropertyBool "scrollbar-visible" val + +data WebWindowFeaturesScrollbarVisiblePropertyInfo +instance AttrInfo WebWindowFeaturesScrollbarVisiblePropertyInfo where + type AttrAllowedOps WebWindowFeaturesScrollbarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesScrollbarVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebWindowFeaturesScrollbarVisiblePropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesScrollbarVisiblePropertyInfo = Bool + type AttrLabel WebWindowFeaturesScrollbarVisiblePropertyInfo = "WebWindowFeatures::scrollbar-visible" + attrGet _ = getWebWindowFeaturesScrollbarVisible + attrSet _ = setWebWindowFeaturesScrollbarVisible + attrConstruct _ = constructWebWindowFeaturesScrollbarVisible + +-- VVV Prop "statusbar-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesStatusbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool +getWebWindowFeaturesStatusbarVisible obj = liftIO $ getObjectPropertyBool obj "statusbar-visible" + +setWebWindowFeaturesStatusbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () +setWebWindowFeaturesStatusbarVisible obj val = liftIO $ setObjectPropertyBool obj "statusbar-visible" val + +constructWebWindowFeaturesStatusbarVisible :: Bool -> IO ([Char], GValue) +constructWebWindowFeaturesStatusbarVisible val = constructObjectPropertyBool "statusbar-visible" val + +data WebWindowFeaturesStatusbarVisiblePropertyInfo +instance AttrInfo WebWindowFeaturesStatusbarVisiblePropertyInfo where + type AttrAllowedOps WebWindowFeaturesStatusbarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesStatusbarVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebWindowFeaturesStatusbarVisiblePropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesStatusbarVisiblePropertyInfo = Bool + type AttrLabel WebWindowFeaturesStatusbarVisiblePropertyInfo = "WebWindowFeatures::statusbar-visible" + attrGet _ = getWebWindowFeaturesStatusbarVisible + attrSet _ = setWebWindowFeaturesStatusbarVisible + attrConstruct _ = constructWebWindowFeaturesStatusbarVisible + +-- VVV Prop "toolbar-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesToolbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> m Bool +getWebWindowFeaturesToolbarVisible obj = liftIO $ getObjectPropertyBool obj "toolbar-visible" + +setWebWindowFeaturesToolbarVisible :: (MonadIO m, WebWindowFeaturesK o) => o -> Bool -> m () +setWebWindowFeaturesToolbarVisible obj val = liftIO $ setObjectPropertyBool obj "toolbar-visible" val + +constructWebWindowFeaturesToolbarVisible :: Bool -> IO ([Char], GValue) +constructWebWindowFeaturesToolbarVisible val = constructObjectPropertyBool "toolbar-visible" val + +data WebWindowFeaturesToolbarVisiblePropertyInfo +instance AttrInfo WebWindowFeaturesToolbarVisiblePropertyInfo where + type AttrAllowedOps WebWindowFeaturesToolbarVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesToolbarVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WebWindowFeaturesToolbarVisiblePropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesToolbarVisiblePropertyInfo = Bool + type AttrLabel WebWindowFeaturesToolbarVisiblePropertyInfo = "WebWindowFeatures::toolbar-visible" + attrGet _ = getWebWindowFeaturesToolbarVisible + attrSet _ = setWebWindowFeaturesToolbarVisible + attrConstruct _ = constructWebWindowFeaturesToolbarVisible + +-- VVV Prop "width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesWidth :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 +getWebWindowFeaturesWidth obj = liftIO $ getObjectPropertyCInt obj "width" + +setWebWindowFeaturesWidth :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () +setWebWindowFeaturesWidth obj val = liftIO $ setObjectPropertyCInt obj "width" val + +constructWebWindowFeaturesWidth :: Int32 -> IO ([Char], GValue) +constructWebWindowFeaturesWidth val = constructObjectPropertyCInt "width" val + +data WebWindowFeaturesWidthPropertyInfo +instance AttrInfo WebWindowFeaturesWidthPropertyInfo where + type AttrAllowedOps WebWindowFeaturesWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesWidthPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebWindowFeaturesWidthPropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesWidthPropertyInfo = Int32 + type AttrLabel WebWindowFeaturesWidthPropertyInfo = "WebWindowFeatures::width" + attrGet _ = getWebWindowFeaturesWidth + attrSet _ = setWebWindowFeaturesWidth + attrConstruct _ = constructWebWindowFeaturesWidth + +-- VVV Prop "x" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesX :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 +getWebWindowFeaturesX obj = liftIO $ getObjectPropertyCInt obj "x" + +setWebWindowFeaturesX :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () +setWebWindowFeaturesX obj val = liftIO $ setObjectPropertyCInt obj "x" val + +constructWebWindowFeaturesX :: Int32 -> IO ([Char], GValue) +constructWebWindowFeaturesX val = constructObjectPropertyCInt "x" val + +data WebWindowFeaturesXPropertyInfo +instance AttrInfo WebWindowFeaturesXPropertyInfo where + type AttrAllowedOps WebWindowFeaturesXPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesXPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebWindowFeaturesXPropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesXPropertyInfo = Int32 + type AttrLabel WebWindowFeaturesXPropertyInfo = "WebWindowFeatures::x" + attrGet _ = getWebWindowFeaturesX + attrSet _ = setWebWindowFeaturesX + attrConstruct _ = constructWebWindowFeaturesX + +-- VVV Prop "y" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWebWindowFeaturesY :: (MonadIO m, WebWindowFeaturesK o) => o -> m Int32 +getWebWindowFeaturesY obj = liftIO $ getObjectPropertyCInt obj "y" + +setWebWindowFeaturesY :: (MonadIO m, WebWindowFeaturesK o) => o -> Int32 -> m () +setWebWindowFeaturesY obj val = liftIO $ setObjectPropertyCInt obj "y" val + +constructWebWindowFeaturesY :: Int32 -> IO ([Char], GValue) +constructWebWindowFeaturesY val = constructObjectPropertyCInt "y" val + +data WebWindowFeaturesYPropertyInfo +instance AttrInfo WebWindowFeaturesYPropertyInfo where + type AttrAllowedOps WebWindowFeaturesYPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebWindowFeaturesYPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WebWindowFeaturesYPropertyInfo = WebWindowFeaturesK + type AttrGetType WebWindowFeaturesYPropertyInfo = Int32 + type AttrLabel WebWindowFeaturesYPropertyInfo = "WebWindowFeatures::y" + attrGet _ = getWebWindowFeaturesY + attrSet _ = setWebWindowFeaturesY + attrConstruct _ = constructWebWindowFeaturesY + +type instance AttributeList WebWindowFeatures = '[ '("fullscreen", WebWindowFeaturesFullscreenPropertyInfo), '("height", WebWindowFeaturesHeightPropertyInfo), '("locationbar-visible", WebWindowFeaturesLocationbarVisiblePropertyInfo), '("menubar-visible", WebWindowFeaturesMenubarVisiblePropertyInfo), '("scrollbar-visible", WebWindowFeaturesScrollbarVisiblePropertyInfo), '("statusbar-visible", WebWindowFeaturesStatusbarVisiblePropertyInfo), '("toolbar-visible", WebWindowFeaturesToolbarVisiblePropertyInfo), '("width", WebWindowFeaturesWidthPropertyInfo), '("x", WebWindowFeaturesXPropertyInfo), '("y", WebWindowFeaturesYPropertyInfo)] + diff --git a/GI/WebKitSignals.hs b/GI/WebKitSignals.hs new file mode 100644 --- /dev/null +++ b/GI/WebKitSignals.hs @@ -0,0 +1,824 @@ +-- Generated code. + +{-# OPTIONS_GHC -fno-warn-orphans #-} + +{-# LANGUAGE DataKinds, FlexibleInstances, + TypeFamilies, MultiParamTypeClasses, + TypeOperators #-} + +module GI.WebKitSignals where + +import Data.GI.Base.Properties (GObjectNotifySignalInfo) +import Data.GI.Base.Signals +import Data.GI.Base.Overloading + +import qualified GI.GObjectSignals as GObject +import qualified GI.GtkSignals as Gtk +import GI.WebKit + +type instance SignalList DOMAttr = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMAudioTrack = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMAudioTrackList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMBarInfo = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMBarProp = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMBatteryManager = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMBlob = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMCDATASection = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMCSSRule = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMCSSRuleList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMCSSStyleDeclaration = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMCSSStyleSheet = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMCSSValue = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMCharacterData = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMComment = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMConsole = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMApplicationCache = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMImplementation = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMMimeType = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMMimeTypeArray = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMNamedFlowCollection = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMPlugin = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMPluginArray = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMSecurityPolicy = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMSelection = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMSettableTokenList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMStringList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMStringMap = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMTokenList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMWindow = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDOMWindowCSS = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDatabase = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDocument = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDocumentFragment = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMDocumentType = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMEntityReference = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMEvent = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMEventTarget = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMFile = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMFileList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMGamepad = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMGamepadList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMGeolocation = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLAnchorElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLAppletElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLAreaElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLAudioElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLBRElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLBaseElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLBaseFontElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLBodyElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLButtonElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLCanvasElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLCollection = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLDListElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLDetailsElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLDirectoryElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLDivElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLDocument = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLEmbedElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLFieldSetElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLFontElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLFormElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLFrameElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLFrameSetElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLHRElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLHeadElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLHeadingElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLHtmlElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLIFrameElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLImageElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLInputElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLKeygenElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLLIElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLLabelElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLLegendElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLLinkElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLMapElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLMarqueeElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLMediaElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLMenuElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLMetaElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLModElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLOListElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLObjectElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLOptGroupElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLOptionElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLOptionsCollection = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLParagraphElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLParamElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLPreElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLPropertiesCollection = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLQuoteElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLScriptElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLSelectElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLStyleElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLTableCaptionElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLTableCellElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLTableColElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLTableElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLTableRowElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLTableSectionElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLTextAreaElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLTitleElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLUListElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHTMLVideoElement = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMHistory = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMKeyboardEvent = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMLocation = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMMediaController = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMMediaError = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMMediaList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMMediaQueryList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMMemoryInfo = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMMessagePort = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMMicroDataItemValue = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMMouseEvent = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMNamedNodeMap = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMNavigator = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMNode = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMNodeFilter = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMNodeIterator = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMNodeList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMObject = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMPerformance = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMPerformanceEntry = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMPerformanceEntryList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMPerformanceNavigation = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMPerformanceTiming = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMProcessingInstruction = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMPropertyNodeList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMRange = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMScreen = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMShadowRoot = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMStorage = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMStorageInfo = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMStorageQuota = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMStyleMedia = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMStyleSheet = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMStyleSheetList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMText = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMTextTrack = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMTextTrackCue = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMTextTrackCueList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMTextTrackList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMTimeRanges = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMTouch = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMTrackEvent = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMTreeWalker = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMUIEvent = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMValidityState = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMVideoPlaybackQuality = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMVideoTrack = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMVideoTrackList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMWebKitNamedFlow = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMWebKitPoint = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMWheelEvent = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMXPathExpression = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMXPathNSResolver = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DOMXPathResult = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data DownloadErrorSignalInfo +instance SignalInfo DownloadErrorSignalInfo where + type HaskellCallbackType DownloadErrorSignalInfo = DownloadErrorCallback + connectSignal _ = connectDownloadError + +type instance SignalList Download = '[ '("error", DownloadErrorSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data FaviconDatabaseIconLoadedSignalInfo +instance SignalInfo FaviconDatabaseIconLoadedSignalInfo where + type HaskellCallbackType FaviconDatabaseIconLoadedSignalInfo = FaviconDatabaseIconLoadedCallback + connectSignal _ = connectFaviconDatabaseIconLoaded + +type instance SignalList FaviconDatabase = '[ '("icon-loaded", FaviconDatabaseIconLoadedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList FileChooserRequest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList GeolocationPolicyDecision = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList HitTestResult = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data IconDatabaseIconLoadedSignalInfo +instance SignalInfo IconDatabaseIconLoadedSignalInfo where + type HaskellCallbackType IconDatabaseIconLoadedSignalInfo = IconDatabaseIconLoadedCallback + connectSignal _ = connectIconDatabaseIconLoaded + +type instance SignalList IconDatabase = '[ '("icon-loaded", IconDatabaseIconLoadedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList NetworkRequest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList NetworkResponse = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList SecurityOrigin = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data SoupAuthDialogCurrentToplevelSignalInfo +instance SignalInfo SoupAuthDialogCurrentToplevelSignalInfo where + type HaskellCallbackType SoupAuthDialogCurrentToplevelSignalInfo = SoupAuthDialogCurrentToplevelCallback + connectSignal _ = connectSoupAuthDialogCurrentToplevel + +type instance SignalList SoupAuthDialog = '[ '("current-toplevel", SoupAuthDialogCurrentToplevelSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList SpellChecker = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ViewportAttributes = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList WebBackForwardList = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList WebDataSource = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList WebDatabase = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data WebFrameClearedSignalInfo +instance SignalInfo WebFrameClearedSignalInfo where + type HaskellCallbackType WebFrameClearedSignalInfo = WebFrameClearedCallback + connectSignal _ = connectWebFrameCleared + +data WebFrameHoveringOverLinkSignalInfo +instance SignalInfo WebFrameHoveringOverLinkSignalInfo where + type HaskellCallbackType WebFrameHoveringOverLinkSignalInfo = WebFrameHoveringOverLinkCallback + connectSignal _ = connectWebFrameHoveringOverLink + +data WebFrameInsecureContentRunSignalInfo +instance SignalInfo WebFrameInsecureContentRunSignalInfo where + type HaskellCallbackType WebFrameInsecureContentRunSignalInfo = WebFrameInsecureContentRunCallback + connectSignal _ = connectWebFrameInsecureContentRun + +data WebFrameLoadCommittedSignalInfo +instance SignalInfo WebFrameLoadCommittedSignalInfo where + type HaskellCallbackType WebFrameLoadCommittedSignalInfo = WebFrameLoadCommittedCallback + connectSignal _ = connectWebFrameLoadCommitted + +data WebFrameResourceContentLengthReceivedSignalInfo +instance SignalInfo WebFrameResourceContentLengthReceivedSignalInfo where + type HaskellCallbackType WebFrameResourceContentLengthReceivedSignalInfo = WebFrameResourceContentLengthReceivedCallback + connectSignal _ = connectWebFrameResourceContentLengthReceived + +data WebFrameResourceLoadFailedSignalInfo +instance SignalInfo WebFrameResourceLoadFailedSignalInfo where + type HaskellCallbackType WebFrameResourceLoadFailedSignalInfo = WebFrameResourceLoadFailedCallback + connectSignal _ = connectWebFrameResourceLoadFailed + +data WebFrameResourceLoadFinishedSignalInfo +instance SignalInfo WebFrameResourceLoadFinishedSignalInfo where + type HaskellCallbackType WebFrameResourceLoadFinishedSignalInfo = WebFrameResourceLoadFinishedCallback + connectSignal _ = connectWebFrameResourceLoadFinished + +data WebFrameResourceRequestStartingSignalInfo +instance SignalInfo WebFrameResourceRequestStartingSignalInfo where + type HaskellCallbackType WebFrameResourceRequestStartingSignalInfo = WebFrameResourceRequestStartingCallback + connectSignal _ = connectWebFrameResourceRequestStarting + +data WebFrameResourceResponseReceivedSignalInfo +instance SignalInfo WebFrameResourceResponseReceivedSignalInfo where + type HaskellCallbackType WebFrameResourceResponseReceivedSignalInfo = WebFrameResourceResponseReceivedCallback + connectSignal _ = connectWebFrameResourceResponseReceived + +data WebFrameScrollbarsPolicyChangedSignalInfo +instance SignalInfo WebFrameScrollbarsPolicyChangedSignalInfo where + type HaskellCallbackType WebFrameScrollbarsPolicyChangedSignalInfo = WebFrameScrollbarsPolicyChangedCallback + connectSignal _ = connectWebFrameScrollbarsPolicyChanged + +data WebFrameTitleChangedSignalInfo +instance SignalInfo WebFrameTitleChangedSignalInfo where + type HaskellCallbackType WebFrameTitleChangedSignalInfo = WebFrameTitleChangedCallback + connectSignal _ = connectWebFrameTitleChanged + +type instance SignalList WebFrame = '[ '("cleared", WebFrameClearedSignalInfo), '("hovering-over-link", WebFrameHoveringOverLinkSignalInfo), '("insecure-content-run", WebFrameInsecureContentRunSignalInfo), '("load-committed", WebFrameLoadCommittedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("resource-content-length-received", WebFrameResourceContentLengthReceivedSignalInfo), '("resource-load-failed", WebFrameResourceLoadFailedSignalInfo), '("resource-load-finished", WebFrameResourceLoadFinishedSignalInfo), '("resource-request-starting", WebFrameResourceRequestStartingSignalInfo), '("resource-response-received", WebFrameResourceResponseReceivedSignalInfo), '("scrollbars-policy-changed", WebFrameScrollbarsPolicyChangedSignalInfo), '("title-changed", WebFrameTitleChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList WebHistoryItem = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data WebInspectorAttachWindowSignalInfo +instance SignalInfo WebInspectorAttachWindowSignalInfo where + type HaskellCallbackType WebInspectorAttachWindowSignalInfo = WebInspectorAttachWindowCallback + connectSignal _ = connectWebInspectorAttachWindow + +data WebInspectorCloseWindowSignalInfo +instance SignalInfo WebInspectorCloseWindowSignalInfo where + type HaskellCallbackType WebInspectorCloseWindowSignalInfo = WebInspectorCloseWindowCallback + connectSignal _ = connectWebInspectorCloseWindow + +data WebInspectorDetachWindowSignalInfo +instance SignalInfo WebInspectorDetachWindowSignalInfo where + type HaskellCallbackType WebInspectorDetachWindowSignalInfo = WebInspectorDetachWindowCallback + connectSignal _ = connectWebInspectorDetachWindow + +data WebInspectorFinishedSignalInfo +instance SignalInfo WebInspectorFinishedSignalInfo where + type HaskellCallbackType WebInspectorFinishedSignalInfo = WebInspectorFinishedCallback + connectSignal _ = connectWebInspectorFinished + +data WebInspectorInspectWebViewSignalInfo +instance SignalInfo WebInspectorInspectWebViewSignalInfo where + type HaskellCallbackType WebInspectorInspectWebViewSignalInfo = WebInspectorInspectWebViewCallback + connectSignal _ = connectWebInspectorInspectWebView + +data WebInspectorShowWindowSignalInfo +instance SignalInfo WebInspectorShowWindowSignalInfo where + type HaskellCallbackType WebInspectorShowWindowSignalInfo = WebInspectorShowWindowCallback + connectSignal _ = connectWebInspectorShowWindow + +type instance SignalList WebInspector = '[ '("attach-window", WebInspectorAttachWindowSignalInfo), '("close-window", WebInspectorCloseWindowSignalInfo), '("detach-window", WebInspectorDetachWindowSignalInfo), '("finished", WebInspectorFinishedSignalInfo), '("inspect-web-view", WebInspectorInspectWebViewSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("show-window", WebInspectorShowWindowSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList WebNavigationAction = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList WebPlugin = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList WebPluginDatabase = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList WebPolicyDecision = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data WebResourceContentLengthReceivedSignalInfo +instance SignalInfo WebResourceContentLengthReceivedSignalInfo where + type HaskellCallbackType WebResourceContentLengthReceivedSignalInfo = WebResourceContentLengthReceivedCallback + connectSignal _ = connectWebResourceContentLengthReceived + +data WebResourceLoadFailedSignalInfo +instance SignalInfo WebResourceLoadFailedSignalInfo where + type HaskellCallbackType WebResourceLoadFailedSignalInfo = WebResourceLoadFailedCallback + connectSignal _ = connectWebResourceLoadFailed + +data WebResourceLoadFinishedSignalInfo +instance SignalInfo WebResourceLoadFinishedSignalInfo where + type HaskellCallbackType WebResourceLoadFinishedSignalInfo = WebResourceLoadFinishedCallback + connectSignal _ = connectWebResourceLoadFinished + +data WebResourceResponseReceivedSignalInfo +instance SignalInfo WebResourceResponseReceivedSignalInfo where + type HaskellCallbackType WebResourceResponseReceivedSignalInfo = WebResourceResponseReceivedCallback + connectSignal _ = connectWebResourceResponseReceived + +type instance SignalList WebResource = '[ '("content-length-received", WebResourceContentLengthReceivedSignalInfo), '("load-failed", WebResourceLoadFailedSignalInfo), '("load-finished", WebResourceLoadFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("response-received", WebResourceResponseReceivedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList WebSettings = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data WebViewCloseWebViewSignalInfo +instance SignalInfo WebViewCloseWebViewSignalInfo where + type HaskellCallbackType WebViewCloseWebViewSignalInfo = WebViewCloseWebViewCallback + connectSignal _ = connectWebViewCloseWebView + +data WebViewConsoleMessageSignalInfo +instance SignalInfo WebViewConsoleMessageSignalInfo where + type HaskellCallbackType WebViewConsoleMessageSignalInfo = WebViewConsoleMessageCallback + connectSignal _ = connectWebViewConsoleMessage + +data WebViewContextMenuSignalInfo +instance SignalInfo WebViewContextMenuSignalInfo where + type HaskellCallbackType WebViewContextMenuSignalInfo = WebViewContextMenuCallback + connectSignal _ = connectWebViewContextMenu + +data WebViewCopyClipboardSignalInfo +instance SignalInfo WebViewCopyClipboardSignalInfo where + type HaskellCallbackType WebViewCopyClipboardSignalInfo = WebViewCopyClipboardCallback + connectSignal _ = connectWebViewCopyClipboard + +data WebViewCreatePluginWidgetSignalInfo +instance SignalInfo WebViewCreatePluginWidgetSignalInfo where + type HaskellCallbackType WebViewCreatePluginWidgetSignalInfo = WebViewCreatePluginWidgetCallback + connectSignal _ = connectWebViewCreatePluginWidget + +data WebViewCreateWebViewSignalInfo +instance SignalInfo WebViewCreateWebViewSignalInfo where + type HaskellCallbackType WebViewCreateWebViewSignalInfo = WebViewCreateWebViewCallback + connectSignal _ = connectWebViewCreateWebView + +data WebViewCutClipboardSignalInfo +instance SignalInfo WebViewCutClipboardSignalInfo where + type HaskellCallbackType WebViewCutClipboardSignalInfo = WebViewCutClipboardCallback + connectSignal _ = connectWebViewCutClipboard + +data WebViewDatabaseQuotaExceededSignalInfo +instance SignalInfo WebViewDatabaseQuotaExceededSignalInfo where + type HaskellCallbackType WebViewDatabaseQuotaExceededSignalInfo = WebViewDatabaseQuotaExceededCallback + connectSignal _ = connectWebViewDatabaseQuotaExceeded + +data WebViewDocumentLoadFinishedSignalInfo +instance SignalInfo WebViewDocumentLoadFinishedSignalInfo where + type HaskellCallbackType WebViewDocumentLoadFinishedSignalInfo = WebViewDocumentLoadFinishedCallback + connectSignal _ = connectWebViewDocumentLoadFinished + +data WebViewDownloadRequestedSignalInfo +instance SignalInfo WebViewDownloadRequestedSignalInfo where + type HaskellCallbackType WebViewDownloadRequestedSignalInfo = WebViewDownloadRequestedCallback + connectSignal _ = connectWebViewDownloadRequested + +data WebViewEditingBeganSignalInfo +instance SignalInfo WebViewEditingBeganSignalInfo where + type HaskellCallbackType WebViewEditingBeganSignalInfo = WebViewEditingBeganCallback + connectSignal _ = connectWebViewEditingBegan + +data WebViewEditingEndedSignalInfo +instance SignalInfo WebViewEditingEndedSignalInfo where + type HaskellCallbackType WebViewEditingEndedSignalInfo = WebViewEditingEndedCallback + connectSignal _ = connectWebViewEditingEnded + +data WebViewEnteringFullscreenSignalInfo +instance SignalInfo WebViewEnteringFullscreenSignalInfo where + type HaskellCallbackType WebViewEnteringFullscreenSignalInfo = WebViewEnteringFullscreenCallback + connectSignal _ = connectWebViewEnteringFullscreen + +data WebViewFrameCreatedSignalInfo +instance SignalInfo WebViewFrameCreatedSignalInfo where + type HaskellCallbackType WebViewFrameCreatedSignalInfo = WebViewFrameCreatedCallback + connectSignal _ = connectWebViewFrameCreated + +data WebViewGeolocationPolicyDecisionCancelledSignalInfo +instance SignalInfo WebViewGeolocationPolicyDecisionCancelledSignalInfo where + type HaskellCallbackType WebViewGeolocationPolicyDecisionCancelledSignalInfo = WebViewGeolocationPolicyDecisionCancelledCallback + connectSignal _ = connectWebViewGeolocationPolicyDecisionCancelled + +data WebViewGeolocationPolicyDecisionRequestedSignalInfo +instance SignalInfo WebViewGeolocationPolicyDecisionRequestedSignalInfo where + type HaskellCallbackType WebViewGeolocationPolicyDecisionRequestedSignalInfo = WebViewGeolocationPolicyDecisionRequestedCallback + connectSignal _ = connectWebViewGeolocationPolicyDecisionRequested + +data WebViewHoveringOverLinkSignalInfo +instance SignalInfo WebViewHoveringOverLinkSignalInfo where + type HaskellCallbackType WebViewHoveringOverLinkSignalInfo = WebViewHoveringOverLinkCallback + connectSignal _ = connectWebViewHoveringOverLink + +data WebViewIconLoadedSignalInfo +instance SignalInfo WebViewIconLoadedSignalInfo where + type HaskellCallbackType WebViewIconLoadedSignalInfo = WebViewIconLoadedCallback + connectSignal _ = connectWebViewIconLoaded + +data WebViewLeavingFullscreenSignalInfo +instance SignalInfo WebViewLeavingFullscreenSignalInfo where + type HaskellCallbackType WebViewLeavingFullscreenSignalInfo = WebViewLeavingFullscreenCallback + connectSignal _ = connectWebViewLeavingFullscreen + +data WebViewLoadCommittedSignalInfo +instance SignalInfo WebViewLoadCommittedSignalInfo where + type HaskellCallbackType WebViewLoadCommittedSignalInfo = WebViewLoadCommittedCallback + connectSignal _ = connectWebViewLoadCommitted + +data WebViewLoadErrorSignalInfo +instance SignalInfo WebViewLoadErrorSignalInfo where + type HaskellCallbackType WebViewLoadErrorSignalInfo = WebViewLoadErrorCallback + connectSignal _ = connectWebViewLoadError + +data WebViewLoadFinishedSignalInfo +instance SignalInfo WebViewLoadFinishedSignalInfo where + type HaskellCallbackType WebViewLoadFinishedSignalInfo = WebViewLoadFinishedCallback + connectSignal _ = connectWebViewLoadFinished + +data WebViewLoadProgressChangedSignalInfo +instance SignalInfo WebViewLoadProgressChangedSignalInfo where + type HaskellCallbackType WebViewLoadProgressChangedSignalInfo = WebViewLoadProgressChangedCallback + connectSignal _ = connectWebViewLoadProgressChanged + +data WebViewLoadStartedSignalInfo +instance SignalInfo WebViewLoadStartedSignalInfo where + type HaskellCallbackType WebViewLoadStartedSignalInfo = WebViewLoadStartedCallback + connectSignal _ = connectWebViewLoadStarted + +data WebViewMimeTypePolicyDecisionRequestedSignalInfo +instance SignalInfo WebViewMimeTypePolicyDecisionRequestedSignalInfo where + type HaskellCallbackType WebViewMimeTypePolicyDecisionRequestedSignalInfo = WebViewMimeTypePolicyDecisionRequestedCallback + connectSignal _ = connectWebViewMimeTypePolicyDecisionRequested + +data WebViewMoveCursorSignalInfo +instance SignalInfo WebViewMoveCursorSignalInfo where + type HaskellCallbackType WebViewMoveCursorSignalInfo = WebViewMoveCursorCallback + connectSignal _ = connectWebViewMoveCursor + +data WebViewNavigationPolicyDecisionRequestedSignalInfo +instance SignalInfo WebViewNavigationPolicyDecisionRequestedSignalInfo where + type HaskellCallbackType WebViewNavigationPolicyDecisionRequestedSignalInfo = WebViewNavigationPolicyDecisionRequestedCallback + connectSignal _ = connectWebViewNavigationPolicyDecisionRequested + +data WebViewNavigationRequestedSignalInfo +instance SignalInfo WebViewNavigationRequestedSignalInfo where + type HaskellCallbackType WebViewNavigationRequestedSignalInfo = WebViewNavigationRequestedCallback + connectSignal _ = connectWebViewNavigationRequested + +data WebViewNewWindowPolicyDecisionRequestedSignalInfo +instance SignalInfo WebViewNewWindowPolicyDecisionRequestedSignalInfo where + type HaskellCallbackType WebViewNewWindowPolicyDecisionRequestedSignalInfo = WebViewNewWindowPolicyDecisionRequestedCallback + connectSignal _ = connectWebViewNewWindowPolicyDecisionRequested + +data WebViewOnloadEventSignalInfo +instance SignalInfo WebViewOnloadEventSignalInfo where + type HaskellCallbackType WebViewOnloadEventSignalInfo = WebViewOnloadEventCallback + connectSignal _ = connectWebViewOnloadEvent + +data WebViewPasteClipboardSignalInfo +instance SignalInfo WebViewPasteClipboardSignalInfo where + type HaskellCallbackType WebViewPasteClipboardSignalInfo = WebViewPasteClipboardCallback + connectSignal _ = connectWebViewPasteClipboard + +data WebViewPopulatePopupSignalInfo +instance SignalInfo WebViewPopulatePopupSignalInfo where + type HaskellCallbackType WebViewPopulatePopupSignalInfo = WebViewPopulatePopupCallback + connectSignal _ = connectWebViewPopulatePopup + +data WebViewPrintRequestedSignalInfo +instance SignalInfo WebViewPrintRequestedSignalInfo where + type HaskellCallbackType WebViewPrintRequestedSignalInfo = WebViewPrintRequestedCallback + connectSignal _ = connectWebViewPrintRequested + +data WebViewRedoSignalInfo +instance SignalInfo WebViewRedoSignalInfo where + type HaskellCallbackType WebViewRedoSignalInfo = WebViewRedoCallback + connectSignal _ = connectWebViewRedo + +data WebViewResourceContentLengthReceivedSignalInfo +instance SignalInfo WebViewResourceContentLengthReceivedSignalInfo where + type HaskellCallbackType WebViewResourceContentLengthReceivedSignalInfo = WebViewResourceContentLengthReceivedCallback + connectSignal _ = connectWebViewResourceContentLengthReceived + +data WebViewResourceLoadFailedSignalInfo +instance SignalInfo WebViewResourceLoadFailedSignalInfo where + type HaskellCallbackType WebViewResourceLoadFailedSignalInfo = WebViewResourceLoadFailedCallback + connectSignal _ = connectWebViewResourceLoadFailed + +data WebViewResourceLoadFinishedSignalInfo +instance SignalInfo WebViewResourceLoadFinishedSignalInfo where + type HaskellCallbackType WebViewResourceLoadFinishedSignalInfo = WebViewResourceLoadFinishedCallback + connectSignal _ = connectWebViewResourceLoadFinished + +data WebViewResourceRequestStartingSignalInfo +instance SignalInfo WebViewResourceRequestStartingSignalInfo where + type HaskellCallbackType WebViewResourceRequestStartingSignalInfo = WebViewResourceRequestStartingCallback + connectSignal _ = connectWebViewResourceRequestStarting + +data WebViewResourceResponseReceivedSignalInfo +instance SignalInfo WebViewResourceResponseReceivedSignalInfo where + type HaskellCallbackType WebViewResourceResponseReceivedSignalInfo = WebViewResourceResponseReceivedCallback + connectSignal _ = connectWebViewResourceResponseReceived + +data WebViewRunFileChooserSignalInfo +instance SignalInfo WebViewRunFileChooserSignalInfo where + type HaskellCallbackType WebViewRunFileChooserSignalInfo = WebViewRunFileChooserCallback + connectSignal _ = connectWebViewRunFileChooser + +data WebViewScriptAlertSignalInfo +instance SignalInfo WebViewScriptAlertSignalInfo where + type HaskellCallbackType WebViewScriptAlertSignalInfo = WebViewScriptAlertCallback + connectSignal _ = connectWebViewScriptAlert + +data WebViewScriptConfirmSignalInfo +instance SignalInfo WebViewScriptConfirmSignalInfo where + type HaskellCallbackType WebViewScriptConfirmSignalInfo = WebViewScriptConfirmCallback + connectSignal _ = connectWebViewScriptConfirm + +data WebViewScriptPromptSignalInfo +instance SignalInfo WebViewScriptPromptSignalInfo where + type HaskellCallbackType WebViewScriptPromptSignalInfo = WebViewScriptPromptCallback + connectSignal _ = connectWebViewScriptPrompt + +data WebViewSelectAllSignalInfo +instance SignalInfo WebViewSelectAllSignalInfo where + type HaskellCallbackType WebViewSelectAllSignalInfo = WebViewSelectAllCallback + connectSignal _ = connectWebViewSelectAll + +data WebViewSelectionChangedSignalInfo +instance SignalInfo WebViewSelectionChangedSignalInfo where + type HaskellCallbackType WebViewSelectionChangedSignalInfo = WebViewSelectionChangedCallback + connectSignal _ = connectWebViewSelectionChanged + +data WebViewShouldApplyStyleSignalInfo +instance SignalInfo WebViewShouldApplyStyleSignalInfo where + type HaskellCallbackType WebViewShouldApplyStyleSignalInfo = WebViewShouldApplyStyleCallback + connectSignal _ = connectWebViewShouldApplyStyle + +data WebViewShouldBeginEditingSignalInfo +instance SignalInfo WebViewShouldBeginEditingSignalInfo where + type HaskellCallbackType WebViewShouldBeginEditingSignalInfo = WebViewShouldBeginEditingCallback + connectSignal _ = connectWebViewShouldBeginEditing + +data WebViewShouldChangeSelectedRangeSignalInfo +instance SignalInfo WebViewShouldChangeSelectedRangeSignalInfo where + type HaskellCallbackType WebViewShouldChangeSelectedRangeSignalInfo = WebViewShouldChangeSelectedRangeCallback + connectSignal _ = connectWebViewShouldChangeSelectedRange + +data WebViewShouldDeleteRangeSignalInfo +instance SignalInfo WebViewShouldDeleteRangeSignalInfo where + type HaskellCallbackType WebViewShouldDeleteRangeSignalInfo = WebViewShouldDeleteRangeCallback + connectSignal _ = connectWebViewShouldDeleteRange + +data WebViewShouldEndEditingSignalInfo +instance SignalInfo WebViewShouldEndEditingSignalInfo where + type HaskellCallbackType WebViewShouldEndEditingSignalInfo = WebViewShouldEndEditingCallback + connectSignal _ = connectWebViewShouldEndEditing + +data WebViewShouldInsertNodeSignalInfo +instance SignalInfo WebViewShouldInsertNodeSignalInfo where + type HaskellCallbackType WebViewShouldInsertNodeSignalInfo = WebViewShouldInsertNodeCallback + connectSignal _ = connectWebViewShouldInsertNode + +data WebViewShouldInsertTextSignalInfo +instance SignalInfo WebViewShouldInsertTextSignalInfo where + type HaskellCallbackType WebViewShouldInsertTextSignalInfo = WebViewShouldInsertTextCallback + connectSignal _ = connectWebViewShouldInsertText + +data WebViewShouldShowDeleteInterfaceForElementSignalInfo +instance SignalInfo WebViewShouldShowDeleteInterfaceForElementSignalInfo where + type HaskellCallbackType WebViewShouldShowDeleteInterfaceForElementSignalInfo = WebViewShouldShowDeleteInterfaceForElementCallback + connectSignal _ = connectWebViewShouldShowDeleteInterfaceForElement + +data WebViewStatusBarTextChangedSignalInfo +instance SignalInfo WebViewStatusBarTextChangedSignalInfo where + type HaskellCallbackType WebViewStatusBarTextChangedSignalInfo = WebViewStatusBarTextChangedCallback + connectSignal _ = connectWebViewStatusBarTextChanged + +data WebViewTitleChangedSignalInfo +instance SignalInfo WebViewTitleChangedSignalInfo where + type HaskellCallbackType WebViewTitleChangedSignalInfo = WebViewTitleChangedCallback + connectSignal _ = connectWebViewTitleChanged + +data WebViewUndoSignalInfo +instance SignalInfo WebViewUndoSignalInfo where + type HaskellCallbackType WebViewUndoSignalInfo = WebViewUndoCallback + connectSignal _ = connectWebViewUndo + +data WebViewUserChangedContentsSignalInfo +instance SignalInfo WebViewUserChangedContentsSignalInfo where + type HaskellCallbackType WebViewUserChangedContentsSignalInfo = WebViewUserChangedContentsCallback + connectSignal _ = connectWebViewUserChangedContents + +data WebViewViewportAttributesChangedSignalInfo +instance SignalInfo WebViewViewportAttributesChangedSignalInfo where + type HaskellCallbackType WebViewViewportAttributesChangedSignalInfo = WebViewViewportAttributesChangedCallback + connectSignal _ = connectWebViewViewportAttributesChanged + +data WebViewViewportAttributesRecomputeRequestedSignalInfo +instance SignalInfo WebViewViewportAttributesRecomputeRequestedSignalInfo where + type HaskellCallbackType WebViewViewportAttributesRecomputeRequestedSignalInfo = WebViewViewportAttributesRecomputeRequestedCallback + connectSignal _ = connectWebViewViewportAttributesRecomputeRequested + +data WebViewWebViewReadySignalInfo +instance SignalInfo WebViewWebViewReadySignalInfo where + type HaskellCallbackType WebViewWebViewReadySignalInfo = WebViewWebViewReadyCallback + connectSignal _ = connectWebViewWebViewReady + +data WebViewWindowObjectClearedSignalInfo +instance SignalInfo WebViewWindowObjectClearedSignalInfo where + type HaskellCallbackType WebViewWindowObjectClearedSignalInfo = WebViewWindowObjectClearedCallback + connectSignal _ = connectWebViewWindowObjectCleared + +type instance SignalList WebView = '[ '("accel-closures-changed", Gtk.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.ContainerAddSignalInfo), '("button-press-event", Gtk.WidgetButtonPressEventSignalInfo), '("button-release-event", Gtk.WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", Gtk.WidgetCanActivateAccelSignalInfo), '("check-resize", Gtk.ContainerCheckResizeSignalInfo), '("child-notify", Gtk.WidgetChildNotifySignalInfo), '("close-web-view", WebViewCloseWebViewSignalInfo), '("composited-changed", Gtk.WidgetCompositedChangedSignalInfo), '("configure-event", Gtk.WidgetConfigureEventSignalInfo), '("console-message", WebViewConsoleMessageSignalInfo), '("context-menu", WebViewContextMenuSignalInfo), '("copy-clipboard", WebViewCopyClipboardSignalInfo), '("create-plugin-widget", WebViewCreatePluginWidgetSignalInfo), '("create-web-view", WebViewCreateWebViewSignalInfo), '("cut-clipboard", WebViewCutClipboardSignalInfo), '("damage-event", Gtk.WidgetDamageEventSignalInfo), '("database-quota-exceeded", WebViewDatabaseQuotaExceededSignalInfo), '("delete-event", Gtk.WidgetDeleteEventSignalInfo), '("destroy", Gtk.WidgetDestroySignalInfo), '("destroy-event", Gtk.WidgetDestroyEventSignalInfo), '("direction-changed", Gtk.WidgetDirectionChangedSignalInfo), '("document-load-finished", WebViewDocumentLoadFinishedSignalInfo), '("download-requested", WebViewDownloadRequestedSignalInfo), '("drag-begin", Gtk.WidgetDragBeginSignalInfo), '("drag-data-delete", Gtk.WidgetDragDataDeleteSignalInfo), '("drag-data-get", Gtk.WidgetDragDataGetSignalInfo), '("drag-data-received", Gtk.WidgetDragDataReceivedSignalInfo), '("drag-drop", Gtk.WidgetDragDropSignalInfo), '("drag-end", Gtk.WidgetDragEndSignalInfo), '("drag-failed", Gtk.WidgetDragFailedSignalInfo), '("drag-leave", Gtk.WidgetDragLeaveSignalInfo), '("drag-motion", Gtk.WidgetDragMotionSignalInfo), '("draw", Gtk.WidgetDrawSignalInfo), '("editing-began", WebViewEditingBeganSignalInfo), '("editing-ended", WebViewEditingEndedSignalInfo), '("enter-notify-event", Gtk.WidgetEnterNotifyEventSignalInfo), '("entering-fullscreen", WebViewEnteringFullscreenSignalInfo), '("event", Gtk.WidgetEventSignalInfo), '("event-after", Gtk.WidgetEventAfterSignalInfo), '("focus", Gtk.WidgetFocusSignalInfo), '("focus-in-event", Gtk.WidgetFocusInEventSignalInfo), '("focus-out-event", Gtk.WidgetFocusOutEventSignalInfo), '("frame-created", WebViewFrameCreatedSignalInfo), '("geolocation-policy-decision-cancelled", WebViewGeolocationPolicyDecisionCancelledSignalInfo), '("geolocation-policy-decision-requested", WebViewGeolocationPolicyDecisionRequestedSignalInfo), '("grab-broken-event", Gtk.WidgetGrabBrokenEventSignalInfo), '("grab-focus", Gtk.WidgetGrabFocusSignalInfo), '("grab-notify", Gtk.WidgetGrabNotifySignalInfo), '("hide", Gtk.WidgetHideSignalInfo), '("hierarchy-changed", Gtk.WidgetHierarchyChangedSignalInfo), '("hovering-over-link", WebViewHoveringOverLinkSignalInfo), '("icon-loaded", WebViewIconLoadedSignalInfo), '("key-press-event", Gtk.WidgetKeyPressEventSignalInfo), '("key-release-event", Gtk.WidgetKeyReleaseEventSignalInfo), '("keynav-failed", Gtk.WidgetKeynavFailedSignalInfo), '("leave-notify-event", Gtk.WidgetLeaveNotifyEventSignalInfo), '("leaving-fullscreen", WebViewLeavingFullscreenSignalInfo), '("load-committed", WebViewLoadCommittedSignalInfo), '("load-error", WebViewLoadErrorSignalInfo), '("load-finished", WebViewLoadFinishedSignalInfo), '("load-progress-changed", WebViewLoadProgressChangedSignalInfo), '("load-started", WebViewLoadStartedSignalInfo), '("map", Gtk.WidgetMapSignalInfo), '("map-event", Gtk.WidgetMapEventSignalInfo), '("mime-type-policy-decision-requested", WebViewMimeTypePolicyDecisionRequestedSignalInfo), '("mnemonic-activate", Gtk.WidgetMnemonicActivateSignalInfo), '("motion-notify-event", Gtk.WidgetMotionNotifyEventSignalInfo), '("move-cursor", WebViewMoveCursorSignalInfo), '("move-focus", Gtk.WidgetMoveFocusSignalInfo), '("navigation-policy-decision-requested", WebViewNavigationPolicyDecisionRequestedSignalInfo), '("navigation-requested", WebViewNavigationRequestedSignalInfo), '("new-window-policy-decision-requested", WebViewNewWindowPolicyDecisionRequestedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("onload-event", WebViewOnloadEventSignalInfo), '("parent-set", Gtk.WidgetParentSetSignalInfo), '("paste-clipboard", WebViewPasteClipboardSignalInfo), '("populate-popup", WebViewPopulatePopupSignalInfo), '("popup-menu", Gtk.WidgetPopupMenuSignalInfo), '("print-requested", WebViewPrintRequestedSignalInfo), '("property-notify-event", Gtk.WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", Gtk.WidgetProximityInEventSignalInfo), '("proximity-out-event", Gtk.WidgetProximityOutEventSignalInfo), '("query-tooltip", Gtk.WidgetQueryTooltipSignalInfo), '("realize", Gtk.WidgetRealizeSignalInfo), '("redo", WebViewRedoSignalInfo), '("remove", Gtk.ContainerRemoveSignalInfo), '("resource-content-length-received", WebViewResourceContentLengthReceivedSignalInfo), '("resource-load-failed", WebViewResourceLoadFailedSignalInfo), '("resource-load-finished", WebViewResourceLoadFinishedSignalInfo), '("resource-request-starting", WebViewResourceRequestStartingSignalInfo), '("resource-response-received", WebViewResourceResponseReceivedSignalInfo), '("run-file-chooser", WebViewRunFileChooserSignalInfo), '("screen-changed", Gtk.WidgetScreenChangedSignalInfo), '("script-alert", WebViewScriptAlertSignalInfo), '("script-confirm", WebViewScriptConfirmSignalInfo), '("script-prompt", WebViewScriptPromptSignalInfo), '("scroll-event", Gtk.WidgetScrollEventSignalInfo), '("select-all", WebViewSelectAllSignalInfo), '("selection-changed", WebViewSelectionChangedSignalInfo), '("selection-clear-event", Gtk.WidgetSelectionClearEventSignalInfo), '("selection-get", Gtk.WidgetSelectionGetSignalInfo), '("selection-notify-event", Gtk.WidgetSelectionNotifyEventSignalInfo), '("selection-received", Gtk.WidgetSelectionReceivedSignalInfo), '("selection-request-event", Gtk.WidgetSelectionRequestEventSignalInfo), '("set-focus-child", Gtk.ContainerSetFocusChildSignalInfo), '("should-apply-style", WebViewShouldApplyStyleSignalInfo), '("should-begin-editing", WebViewShouldBeginEditingSignalInfo), '("should-change-selected-range", WebViewShouldChangeSelectedRangeSignalInfo), '("should-delete-range", WebViewShouldDeleteRangeSignalInfo), '("should-end-editing", WebViewShouldEndEditingSignalInfo), '("should-insert-node", WebViewShouldInsertNodeSignalInfo), '("should-insert-text", WebViewShouldInsertTextSignalInfo), '("should-show-delete-interface-for-element", WebViewShouldShowDeleteInterfaceForElementSignalInfo), '("show", Gtk.WidgetShowSignalInfo), '("show-help", Gtk.WidgetShowHelpSignalInfo), '("size-allocate", Gtk.WidgetSizeAllocateSignalInfo), '("state-changed", Gtk.WidgetStateChangedSignalInfo), '("state-flags-changed", Gtk.WidgetStateFlagsChangedSignalInfo), '("status-bar-text-changed", WebViewStatusBarTextChangedSignalInfo), '("style-set", Gtk.WidgetStyleSetSignalInfo), '("style-updated", Gtk.WidgetStyleUpdatedSignalInfo), '("title-changed", WebViewTitleChangedSignalInfo), '("touch-event", Gtk.WidgetTouchEventSignalInfo), '("undo", WebViewUndoSignalInfo), '("unmap", Gtk.WidgetUnmapSignalInfo), '("unmap-event", Gtk.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.WidgetUnrealizeSignalInfo), '("user-changed-contents", WebViewUserChangedContentsSignalInfo), '("viewport-attributes-changed", WebViewViewportAttributesChangedSignalInfo), '("viewport-attributes-recompute-requested", WebViewViewportAttributesRecomputeRequestedSignalInfo), '("visibility-notify-event", Gtk.WidgetVisibilityNotifyEventSignalInfo), '("web-view-ready", WebViewWebViewReadySignalInfo), '("window-object-cleared", WebViewWindowObjectClearedSignalInfo), '("window-state-event", Gtk.WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList WebWindowFeatures = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,502 @@ + GNU LESSER GENERAL PUBLIC LICENSE + Version 2.1, February 1999 + + Copyright (C) 1991, 1999 Free Software Foundation, Inc. + 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + +[This is the first released version of the Lesser GPL. It also counts + as the successor of the GNU Library Public License, version 2, hence + the version number 2.1.] + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +Licenses are intended to guarantee your freedom to share and change +free software--to make sure the software is free for all its users. + + This license, the Lesser General Public License, applies to some +specially designated software packages--typically libraries--of the +Free Software Foundation and other authors who decide to use it. You +can use it too, but we suggest you first think carefully about whether +this license or the ordinary General Public License is the better +strategy to use in any particular case, based on the explanations below. + + When we speak of free software, we are referring to freedom of use, +not price. Our General Public Licenses are designed to make sure that +you have the freedom to distribute copies of free software (and charge +for this service if you wish); that you receive source code or can get +it if you want it; that you can change the software and use pieces of +it in new free programs; and that you are informed that you can do +these things. + + To protect your rights, we need to make restrictions that forbid +distributors to deny you these rights or to ask you to surrender these +rights. These restrictions translate to certain responsibilities for +you if you distribute copies of the library or if you modify it. + + For example, if you distribute copies of the library, whether gratis +or for a fee, you must give the recipients all the rights that we gave +you. You must make sure that they, too, receive or can get the source +code. If you link other code with the library, you must provide +complete object files to the recipients, so that they can relink them +with the library after making changes to the library and recompiling +it. And you must show them these terms so they know their rights. + + We protect your rights with a two-step method: (1) we copyright the +library, and (2) we offer you this license, which gives you legal +permission to copy, distribute and/or modify the library. + + To protect each distributor, we want to make it very clear that +there is no warranty for the free library. Also, if the library is +modified by someone else and passed on, the recipients should know +that what they have is not the original version, so that the original +author's reputation will not be affected by problems that might be +introduced by others. + + Finally, software patents pose a constant threat to the existence of +any free program. We wish to make sure that a company cannot +effectively restrict the users of a free program by obtaining a +restrictive license from a patent holder. Therefore, we insist that +any patent license obtained for a version of the library must be +consistent with the full freedom of use specified in this license. + + Most GNU software, including some libraries, is covered by the +ordinary GNU General Public License. This license, the GNU Lesser +General Public License, applies to certain designated libraries, and +is quite different from the ordinary General Public License. We use +this license for certain libraries in order to permit linking those +libraries into non-free programs. + + When a program is linked with a library, whether statically or using +a shared library, the combination of the two is legally speaking a +combined work, a derivative of the original library. The ordinary +General Public License therefore permits such linking only if the +entire combination fits its criteria of freedom. The Lesser General +Public License permits more lax criteria for linking other code with +the library. + + We call this license the "Lesser" General Public License because it +does Less to protect the user's freedom than the ordinary General +Public License. It also provides other free software developers Less +of an advantage over competing non-free programs. These disadvantages +are the reason we use the ordinary General Public License for many +libraries. However, the Lesser license provides advantages in certain +special circumstances. + + For example, on rare occasions, there may be a special need to +encourage the widest possible use of a certain library, so that it becomes +a de-facto standard. To achieve this, non-free programs must be +allowed to use the library. A more frequent case is that a free +library does the same job as widely used non-free libraries. In this +case, there is little to gain by limiting the free library to free +software only, so we use the Lesser General Public License. + + In other cases, permission to use a particular library in non-free +programs enables a greater number of people to use a large body of +free software. For example, permission to use the GNU C Library in +non-free programs enables many more people to use the whole GNU +operating system, as well as its variant, the GNU/Linux operating +system. + + Although the Lesser General Public License is Less protective of the +users' freedom, it does ensure that the user of a program that is +linked with the Library has the freedom and the wherewithal to run +that program using a modified version of the Library. + + The precise terms and conditions for copying, distribution and +modification follow. Pay close attention to the difference between a +"work based on the library" and a "work that uses the library". The +former contains code derived from the library, whereas the latter must +be combined with the library in order to run. + + GNU LESSER GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License Agreement applies to any software library or other +program which contains a notice placed by the copyright holder or +other authorized party saying it may be distributed under the terms of +this Lesser General Public License (also called "this License"). +Each licensee is addressed as "you". + + A "library" means a collection of software functions and/or data +prepared so as to be conveniently linked with application programs +(which use some of those functions and data) to form executables. + + The "Library", below, refers to any such software library or work +which has been distributed under these terms. A "work based on the +Library" means either the Library or any derivative work under +copyright law: that is to say, a work containing the Library or a +portion of it, either verbatim or with modifications and/or translated +straightforwardly into another language. (Hereinafter, translation is +included without limitation in the term "modification".) + + "Source code" for a work means the preferred form of the work for +making modifications to it. For a library, complete source code means +all the source code for all modules it contains, plus any associated +interface definition files, plus the scripts used to control compilation +and installation of the library. + + Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running a program using the Library is not restricted, and output from +such a program is covered only if its contents constitute a work based +on the Library (independent of the use of the Library in a tool for +writing it). Whether that is true depends on what the Library does +and what the program that uses the Library does. + + 1. You may copy and distribute verbatim copies of the Library's +complete source code as you receive it, in any medium, provided that +you conspicuously and appropriately publish on each copy an +appropriate copyright notice and disclaimer of warranty; keep intact +all the notices that refer to this License and to the absence of any +warranty; and distribute a copy of this License along with the +Library. + + You may charge a fee for the physical act of transferring a copy, +and you may at your option offer warranty protection in exchange for a +fee. + + 2. You may modify your copy or copies of the Library or any portion +of it, thus forming a work based on the Library, and copy and +distribute such modifications or work under the terms of Section 1 +above, provided that you also meet all of these conditions: + + a) The modified work must itself be a software library. + + b) You must cause the files modified to carry prominent notices + stating that you changed the files and the date of any change. + + c) You must cause the whole of the work to be licensed at no + charge to all third parties under the terms of this License. + + d) If a facility in the modified Library refers to a function or a + table of data to be supplied by an application program that uses + the facility, other than as an argument passed when the facility + is invoked, then you must make a good faith effort to ensure that, + in the event an application does not supply such function or + table, the facility still operates, and performs whatever part of + its purpose remains meaningful. + + (For example, a function in a library to compute square roots has + a purpose that is entirely well-defined independent of the + application. Therefore, Subsection 2d requires that any + application-supplied function or table used by this function must + be optional: if the application does not supply it, the square + root function must still compute square roots.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Library, +and can be reasonably considered independent and separate works in +themselves, then this License, and its terms, do not apply to those +sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based +on the Library, the distribution of the whole must be on the terms of +this License, whose permissions for other licensees extend to the +entire whole, and thus to each and every part regardless of who wrote +it. + +Thus, it is not the intent of this section to claim rights or contest +your rights to work written entirely by you; rather, the intent is to +exercise the right to control the distribution of derivative or +collective works based on the Library. + +In addition, mere aggregation of another work not based on the Library +with the Library (or with a work based on the Library) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may opt to apply the terms of the ordinary GNU General Public +License instead of this License to a given copy of the Library. To do +this, you must alter all the notices that refer to this License, so +that they refer to the ordinary GNU General Public License, version 2, +instead of to this License. (If a newer version than version 2 of the +ordinary GNU General Public License has appeared, then you can specify +that version instead if you wish.) Do not make any other change in +these notices. + + Once this change is made in a given copy, it is irreversible for +that copy, so the ordinary GNU General Public License applies to all +subsequent copies and derivative works made from that copy. + + This option is useful when you wish to copy part of the code of +the Library into a program that is not a library. + + 4. You may copy and distribute the Library (or a portion or +derivative of it, under Section 2) in object code or executable form +under the terms of Sections 1 and 2 above provided that you accompany +it with the complete corresponding machine-readable source code, which +must be distributed under the terms of Sections 1 and 2 above on a +medium customarily used for software interchange. + + If distribution of object code is made by offering access to copy +from a designated place, then offering equivalent access to copy the +source code from the same place satisfies the requirement to +distribute the source code, even though third parties are not +compelled to copy the source along with the object code. + + 5. A program that contains no derivative of any portion of the +Library, but is designed to work with the Library by being compiled or +linked with it, is called a "work that uses the Library". Such a +work, in isolation, is not a derivative work of the Library, and +therefore falls outside the scope of this License. + + However, linking a "work that uses the Library" with the Library +creates an executable that is a derivative of the Library (because it +contains portions of the Library), rather than a "work that uses the +library". The executable is therefore covered by this License. +Section 6 states terms for distribution of such executables. + + When a "work that uses the Library" uses material from a header file +that is part of the Library, the object code for the work may be a +derivative work of the Library even though the source code is not. +Whether this is true is especially significant if the work can be +linked without the Library, or if the work is itself a library. The +threshold for this to be true is not precisely defined by law. + + If such an object file uses only numerical parameters, data +structure layouts and accessors, and small macros and small inline +functions (ten lines or less in length), then the use of the object +file is unrestricted, regardless of whether it is legally a derivative +work. (Executables containing this object code plus portions of the +Library will still fall under Section 6.) + + Otherwise, if the work is a derivative of the Library, you may +distribute the object code for the work under the terms of Section 6. +Any executables containing that work also fall under Section 6, +whether or not they are linked directly with the Library itself. + + 6. As an exception to the Sections above, you may also combine or +link a "work that uses the Library" with the Library to produce a +work containing portions of the Library, and distribute that work +under terms of your choice, provided that the terms permit +modification of the work for the customer's own use and reverse +engineering for debugging such modifications. + + You must give prominent notice with each copy of the work that the +Library is used in it and that the Library and its use are covered by +this License. You must supply a copy of this License. If the work +during execution displays copyright notices, you must include the +copyright notice for the Library among them, as well as a reference +directing the user to the copy of this License. Also, you must do one +of these things: + + a) Accompany the work with the complete corresponding + machine-readable source code for the Library including whatever + changes were used in the work (which must be distributed under + Sections 1 and 2 above); and, if the work is an executable linked + with the Library, with the complete machine-readable "work that + uses the Library", as object code and/or source code, so that the + user can modify the Library and then relink to produce a modified + executable containing the modified Library. (It is understood + that the user who changes the contents of definitions files in the + Library will not necessarily be able to recompile the application + to use the modified definitions.) + + b) Use a suitable shared library mechanism for linking with the + Library. A suitable mechanism is one that (1) uses at run time a + copy of the library already present on the user's computer system, + rather than copying library functions into the executable, and (2) + will operate properly with a modified version of the library, if + the user installs one, as long as the modified version is + interface-compatible with the version that the work was made with. + + c) Accompany the work with a written offer, valid for at + least three years, to give the same user the materials + specified in Subsection 6a, above, for a charge no more + than the cost of performing this distribution. + + d) If distribution of the work is made by offering access to copy + from a designated place, offer equivalent access to copy the above + specified materials from the same place. + + e) Verify that the user has already received a copy of these + materials or that you have already sent this user a copy. + + For an executable, the required form of the "work that uses the +Library" must include any data and utility programs needed for +reproducing the executable from it. However, as a special exception, +the materials to be distributed need not include anything that is +normally distributed (in either source or binary form) with the major +components (compiler, kernel, and so on) of the operating system on +which the executable runs, unless that component itself accompanies +the executable. + + It may happen that this requirement contradicts the license +restrictions of other proprietary libraries that do not normally +accompany the operating system. Such a contradiction means you cannot +use both them and the Library together in an executable that you +distribute. + + 7. You may place library facilities that are a work based on the +Library side-by-side in a single library together with other library +facilities not covered by this License, and distribute such a combined +library, provided that the separate distribution of the work based on +the Library and of the other library facilities is otherwise +permitted, and provided that you do these two things: + + a) Accompany the combined library with a copy of the same work + based on the Library, uncombined with any other library + facilities. This must be distributed under the terms of the + Sections above. + + b) Give prominent notice with the combined library of the fact + that part of it is a work based on the Library, and explaining + where to find the accompanying uncombined form of the same work. + + 8. You may not copy, modify, sublicense, link with, or distribute +the Library except as expressly provided under this License. Any +attempt otherwise to copy, modify, sublicense, link with, or +distribute the Library is void, and will automatically terminate your +rights under this License. However, parties who have received copies, +or rights, from you under this License will not have their licenses +terminated so long as such parties remain in full compliance. + + 9. You are not required to accept this License, since you have not +signed it. However, nothing else grants you permission to modify or +distribute the Library or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Library (or any work based on the +Library), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Library or works based on it. + + 10. Each time you redistribute the Library (or any work based on the +Library), the recipient automatically receives a license from the +original licensor to copy, distribute, link with or modify the Library +subject to these terms and conditions. You may not impose any further +restrictions on the recipients' exercise of the rights granted herein. +You are not responsible for enforcing compliance by third parties with +this License. + + 11. If, as a consequence of a court judgment or allegation of patent +infringement or for any other reason (not limited to patent issues), +conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot +distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you +may not distribute the Library at all. For example, if a patent +license would not permit royalty-free redistribution of the Library by +all those who receive copies directly or indirectly through you, then +the only way you could satisfy both it and this License would be to +refrain entirely from distribution of the Library. + +If any portion of this section is held invalid or unenforceable under any +particular circumstance, the balance of the section is intended to apply, +and the section as a whole is intended to apply in other circumstances. + +It is not the purpose of this section to induce you to infringe any +patents or other property right claims or to contest validity of any +such claims; this section has the sole purpose of protecting the +integrity of the free software distribution system which is +implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed +through that system in reliance on consistent application of that +system; it is up to the author/donor to decide if he or she is willing +to distribute software through any other system and a licensee cannot +impose that choice. + +This section is intended to make thoroughly clear what is believed to +be a consequence of the rest of this License. + + 12. If the distribution and/or use of the Library is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Library under this License may add +an explicit geographical distribution limitation excluding those countries, +so that distribution is permitted only in or among countries not thus +excluded. In such case, this License incorporates the limitation as if +written in the body of this License. + + 13. The Free Software Foundation may publish revised and/or new +versions of the Lesser General Public License from time to time. +Such new versions will be similar in spirit to the present version, +but may differ in detail to address new problems or concerns. + +Each version is given a distinguishing version number. If the Library +specifies a version number of this License which applies to it and +"any later version", you have the option of following the terms and +conditions either of that version or of any later version published by +the Free Software Foundation. If the Library does not specify a +license version number, you may choose any version ever published by +the Free Software Foundation. + + 14. If you wish to incorporate parts of the Library into other free +programs whose distribution conditions are incompatible with these, +write to the author to ask for permission. For software which is +copyrighted by the Free Software Foundation, write to the Free +Software Foundation; we sometimes make exceptions for this. Our +decision will be guided by the two goals of preserving the free status +of all derivatives of our free software and of promoting the sharing +and reuse of software generally. + + NO WARRANTY + + 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO +WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. +EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR +OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY +KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE +LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME +THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. + + 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN +WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY +AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU +FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR +CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE +LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING +RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A +FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF +SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH +DAMAGES. + + END OF TERMS AND CONDITIONS + + How to Apply These Terms to Your New Libraries + + If you develop a new library, and you want it to be of the greatest +possible use to the public, we recommend making it free software that +everyone can redistribute and change. You can do so by permitting +redistribution under these terms (or, alternatively, under the terms of the +ordinary General Public License). + + To apply these terms, attach the following notices to the library. It is +safest to attach them to the start of each source file to most effectively +convey the exclusion of warranty; and each file should have at least the +"copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This library is free software; you can redistribute it and/or + modify it under the terms of the GNU Lesser General Public + License as published by the Free Software Foundation; either + version 2.1 of the License, or (at your option) any later version. + + This library is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with this library; if not, write to the Free Software + Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + +Also add information on how to contact you by electronic and paper mail. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the library, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the + library `Frob' (a library for tweaking knobs) written by James Random Hacker. + + , 1 April 1990 + Ty Coon, President of Vice + +That's all there is to it! diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,3 @@ +#!/usr/bin/env runhaskell +import Distribution.Simple +main = defaultMain diff --git a/gi-webkit.cabal b/gi-webkit.cabal new file mode 100644 --- /dev/null +++ b/gi-webkit.cabal @@ -0,0 +1,34 @@ +-- Autogenerated, do not edit. +name: gi-webkit +version: 0.2.4.8 +synopsis: WebKit bindings +description: Bindings for WebKit, autogenerated by haskell-gi. +homepage: https://github.com/haskell-gi/haskell-gi +license: LGPL-2.1 +license-file: LICENSE +author: Will Thompson, Iñaki García Etxebarria and Jonas Platte +maintainer: Iñaki García Etxebarria (garetxe@gmail.com) +category: Bindings +build-type: Simple +cabal-version: >=1.10 + +library + default-language: Haskell2010 + exposed-modules: GI.WebKit, GI.WebKitAttributes, GI.WebKitSignals + pkgconfig-depends: webkitgtk-3.0 >= 2.4 + build-depends: base >= 4.6 && <4.9, + haskell-gi-base >= 0.8 && < 1, + gi-atk >= 0.2.16.8 && < 0.3, + gi-glib >= 0.2.44.8 && < 0.3, + gi-gobject >= 0.2.44.8 && < 0.3, + gi-gdk >= 0.3.16.8 && < 0.4, + gi-gdkpixbuf >= 0.2.31.8 && < 0.3, + gi-gio >= 0.2.44.8 && < 0.3, + gi-gtk >= 0.3.16.8 && < 0.4, + gi-javascriptcore >= 0.2.4.8 && < 0.3, + gi-soup >= 0.2.50.8 && < 0.3, + gi-cairo >= 0.1.14.8 && < 0.2, + bytestring >= 0.10, + containers >= 0.5, + text >= 1.0, + transformers >= 0.3