module GI.WebKit.Objects.DOMHTMLImageElement
(
DOMHTMLImageElement(..) ,
DOMHTMLImageElementK ,
toDOMHTMLImageElement ,
noDOMHTMLImageElement ,
dOMHTMLImageElementGetAlign ,
dOMHTMLImageElementGetAlt ,
dOMHTMLImageElementGetBorder ,
dOMHTMLImageElementGetComplete ,
dOMHTMLImageElementGetCrossOrigin ,
dOMHTMLImageElementGetHeight ,
dOMHTMLImageElementGetHspace ,
dOMHTMLImageElementGetIsMap ,
dOMHTMLImageElementGetLongDesc ,
dOMHTMLImageElementGetLowsrc ,
dOMHTMLImageElementGetName ,
dOMHTMLImageElementGetNaturalHeight ,
dOMHTMLImageElementGetNaturalWidth ,
dOMHTMLImageElementGetSrc ,
dOMHTMLImageElementGetSrcset ,
dOMHTMLImageElementGetUseMap ,
dOMHTMLImageElementGetVspace ,
dOMHTMLImageElementGetWidth ,
dOMHTMLImageElementGetX ,
dOMHTMLImageElementGetY ,
dOMHTMLImageElementSetAlign ,
dOMHTMLImageElementSetAlt ,
dOMHTMLImageElementSetBorder ,
dOMHTMLImageElementSetCrossOrigin ,
dOMHTMLImageElementSetHeight ,
dOMHTMLImageElementSetHspace ,
dOMHTMLImageElementSetIsMap ,
dOMHTMLImageElementSetLongDesc ,
dOMHTMLImageElementSetLowsrc ,
dOMHTMLImageElementSetName ,
dOMHTMLImageElementSetSrc ,
dOMHTMLImageElementSetSrcset ,
dOMHTMLImageElementSetUseMap ,
dOMHTMLImageElementSetVspace ,
dOMHTMLImageElementSetWidth ,
DOMHTMLImageElementAlignPropertyInfo ,
constructDOMHTMLImageElementAlign ,
getDOMHTMLImageElementAlign ,
setDOMHTMLImageElementAlign ,
DOMHTMLImageElementAltPropertyInfo ,
constructDOMHTMLImageElementAlt ,
getDOMHTMLImageElementAlt ,
setDOMHTMLImageElementAlt ,
DOMHTMLImageElementBorderPropertyInfo ,
constructDOMHTMLImageElementBorder ,
getDOMHTMLImageElementBorder ,
setDOMHTMLImageElementBorder ,
DOMHTMLImageElementCompletePropertyInfo ,
getDOMHTMLImageElementComplete ,
DOMHTMLImageElementCrossOriginPropertyInfo,
constructDOMHTMLImageElementCrossOrigin ,
getDOMHTMLImageElementCrossOrigin ,
setDOMHTMLImageElementCrossOrigin ,
DOMHTMLImageElementHeightPropertyInfo ,
constructDOMHTMLImageElementHeight ,
getDOMHTMLImageElementHeight ,
setDOMHTMLImageElementHeight ,
DOMHTMLImageElementHspacePropertyInfo ,
constructDOMHTMLImageElementHspace ,
getDOMHTMLImageElementHspace ,
setDOMHTMLImageElementHspace ,
DOMHTMLImageElementIsMapPropertyInfo ,
constructDOMHTMLImageElementIsMap ,
getDOMHTMLImageElementIsMap ,
setDOMHTMLImageElementIsMap ,
DOMHTMLImageElementLongDescPropertyInfo ,
constructDOMHTMLImageElementLongDesc ,
getDOMHTMLImageElementLongDesc ,
setDOMHTMLImageElementLongDesc ,
DOMHTMLImageElementLowsrcPropertyInfo ,
constructDOMHTMLImageElementLowsrc ,
getDOMHTMLImageElementLowsrc ,
setDOMHTMLImageElementLowsrc ,
DOMHTMLImageElementNamePropertyInfo ,
constructDOMHTMLImageElementName ,
getDOMHTMLImageElementName ,
setDOMHTMLImageElementName ,
DOMHTMLImageElementNaturalHeightPropertyInfo,
getDOMHTMLImageElementNaturalHeight ,
DOMHTMLImageElementNaturalWidthPropertyInfo,
getDOMHTMLImageElementNaturalWidth ,
DOMHTMLImageElementSrcPropertyInfo ,
constructDOMHTMLImageElementSrc ,
getDOMHTMLImageElementSrc ,
setDOMHTMLImageElementSrc ,
DOMHTMLImageElementSrcsetPropertyInfo ,
constructDOMHTMLImageElementSrcset ,
getDOMHTMLImageElementSrcset ,
setDOMHTMLImageElementSrcset ,
DOMHTMLImageElementUseMapPropertyInfo ,
constructDOMHTMLImageElementUseMap ,
getDOMHTMLImageElementUseMap ,
setDOMHTMLImageElementUseMap ,
DOMHTMLImageElementVspacePropertyInfo ,
constructDOMHTMLImageElementVspace ,
getDOMHTMLImageElementVspace ,
setDOMHTMLImageElementVspace ,
DOMHTMLImageElementWidthPropertyInfo ,
constructDOMHTMLImageElementWidth ,
getDOMHTMLImageElementWidth ,
setDOMHTMLImageElementWidth ,
DOMHTMLImageElementXPropertyInfo ,
getDOMHTMLImageElementX ,
DOMHTMLImageElementYPropertyInfo ,
getDOMHTMLImageElementY ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
newtype DOMHTMLImageElement = DOMHTMLImageElement (ForeignPtr DOMHTMLImageElement)
foreign import ccall "webkit_dom_html_image_element_get_type"
c_webkit_dom_html_image_element_get_type :: IO GType
type instance ParentTypes DOMHTMLImageElement = DOMHTMLImageElementParentTypes
type DOMHTMLImageElementParentTypes = '[DOMHTMLElement, DOMElement, DOMNode, DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMHTMLImageElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_image_element_get_type
class GObject o => DOMHTMLImageElementK o
instance (GObject o, IsDescendantOf DOMHTMLImageElement o) => DOMHTMLImageElementK o
toDOMHTMLImageElement :: DOMHTMLImageElementK o => o -> IO DOMHTMLImageElement
toDOMHTMLImageElement = unsafeCastTo DOMHTMLImageElement
noDOMHTMLImageElement :: Maybe DOMHTMLImageElement
noDOMHTMLImageElement = Nothing
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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 = DOMHTMLImageElementAttributeList
type DOMHTMLImageElementAttributeList = ('[ '("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)] :: [(Symbol, *)])
type instance SignalList DOMHTMLImageElement = DOMHTMLImageElementSignalList
type DOMHTMLImageElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_html_image_element_get_align" webkit_dom_html_image_element_get_align ::
Ptr DOMHTMLImageElement ->
IO CString
dOMHTMLImageElementGetAlign ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m T.Text
dOMHTMLImageElementGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_align _obj'
checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_align" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_image_element_get_alt" webkit_dom_html_image_element_get_alt ::
Ptr DOMHTMLImageElement ->
IO CString
dOMHTMLImageElementGetAlt ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m T.Text
dOMHTMLImageElementGetAlt _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_alt _obj'
checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_alt" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_image_element_get_border" webkit_dom_html_image_element_get_border ::
Ptr DOMHTMLImageElement ->
IO CString
dOMHTMLImageElementGetBorder ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m T.Text
dOMHTMLImageElementGetBorder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_border _obj'
checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_border" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_image_element_get_complete" webkit_dom_html_image_element_get_complete ::
Ptr DOMHTMLImageElement ->
IO CInt
dOMHTMLImageElementGetComplete ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m Bool
dOMHTMLImageElementGetComplete _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_complete _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_image_element_get_cross_origin" webkit_dom_html_image_element_get_cross_origin ::
Ptr DOMHTMLImageElement ->
IO CString
dOMHTMLImageElementGetCrossOrigin ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m T.Text
dOMHTMLImageElementGetCrossOrigin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_cross_origin _obj'
checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_cross_origin" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_image_element_get_height" webkit_dom_html_image_element_get_height ::
Ptr DOMHTMLImageElement ->
IO Int64
dOMHTMLImageElementGetHeight ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m Int64
dOMHTMLImageElementGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_height _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_image_element_get_hspace" webkit_dom_html_image_element_get_hspace ::
Ptr DOMHTMLImageElement ->
IO Int64
dOMHTMLImageElementGetHspace ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m Int64
dOMHTMLImageElementGetHspace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_hspace _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_image_element_get_is_map" webkit_dom_html_image_element_get_is_map ::
Ptr DOMHTMLImageElement ->
IO CInt
dOMHTMLImageElementGetIsMap ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m Bool
dOMHTMLImageElementGetIsMap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_is_map _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_image_element_get_long_desc" webkit_dom_html_image_element_get_long_desc ::
Ptr DOMHTMLImageElement ->
IO CString
dOMHTMLImageElementGetLongDesc ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m T.Text
dOMHTMLImageElementGetLongDesc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_long_desc _obj'
checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_long_desc" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_image_element_get_lowsrc" webkit_dom_html_image_element_get_lowsrc ::
Ptr DOMHTMLImageElement ->
IO CString
dOMHTMLImageElementGetLowsrc ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m T.Text
dOMHTMLImageElementGetLowsrc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_lowsrc _obj'
checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_lowsrc" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_image_element_get_name" webkit_dom_html_image_element_get_name ::
Ptr DOMHTMLImageElement ->
IO CString
dOMHTMLImageElementGetName ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m T.Text
dOMHTMLImageElementGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_name _obj'
checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_name" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_image_element_get_natural_height" webkit_dom_html_image_element_get_natural_height ::
Ptr DOMHTMLImageElement ->
IO Int64
dOMHTMLImageElementGetNaturalHeight ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m Int64
dOMHTMLImageElementGetNaturalHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_natural_height _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_image_element_get_natural_width" webkit_dom_html_image_element_get_natural_width ::
Ptr DOMHTMLImageElement ->
IO Int64
dOMHTMLImageElementGetNaturalWidth ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m Int64
dOMHTMLImageElementGetNaturalWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_natural_width _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_image_element_get_src" webkit_dom_html_image_element_get_src ::
Ptr DOMHTMLImageElement ->
IO CString
dOMHTMLImageElementGetSrc ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m T.Text
dOMHTMLImageElementGetSrc _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_src _obj'
checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_src" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_image_element_get_srcset" webkit_dom_html_image_element_get_srcset ::
Ptr DOMHTMLImageElement ->
IO CString
dOMHTMLImageElementGetSrcset ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m T.Text
dOMHTMLImageElementGetSrcset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_srcset _obj'
checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_srcset" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_image_element_get_use_map" webkit_dom_html_image_element_get_use_map ::
Ptr DOMHTMLImageElement ->
IO CString
dOMHTMLImageElementGetUseMap ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m T.Text
dOMHTMLImageElementGetUseMap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_use_map _obj'
checkUnexpectedReturnNULL "webkit_dom_html_image_element_get_use_map" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_html_image_element_get_vspace" webkit_dom_html_image_element_get_vspace ::
Ptr DOMHTMLImageElement ->
IO Int64
dOMHTMLImageElementGetVspace ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m Int64
dOMHTMLImageElementGetVspace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_vspace _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_image_element_get_width" webkit_dom_html_image_element_get_width ::
Ptr DOMHTMLImageElement ->
IO Int64
dOMHTMLImageElementGetWidth ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m Int64
dOMHTMLImageElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_width _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_image_element_get_x" webkit_dom_html_image_element_get_x ::
Ptr DOMHTMLImageElement ->
IO Int64
dOMHTMLImageElementGetX ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m Int64
dOMHTMLImageElementGetX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_x _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_image_element_get_y" webkit_dom_html_image_element_get_y ::
Ptr DOMHTMLImageElement ->
IO Int64
dOMHTMLImageElementGetY ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
m Int64
dOMHTMLImageElementGetY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_html_image_element_get_y _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_html_image_element_set_align" webkit_dom_html_image_element_set_align ::
Ptr DOMHTMLImageElement ->
CString ->
IO ()
dOMHTMLImageElementSetAlign ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLImageElementSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_image_element_set_alt" webkit_dom_html_image_element_set_alt ::
Ptr DOMHTMLImageElement ->
CString ->
IO ()
dOMHTMLImageElementSetAlt ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLImageElementSetAlt _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_alt _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_image_element_set_border" webkit_dom_html_image_element_set_border ::
Ptr DOMHTMLImageElement ->
CString ->
IO ()
dOMHTMLImageElementSetBorder ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLImageElementSetBorder _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_border _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_image_element_set_cross_origin" webkit_dom_html_image_element_set_cross_origin ::
Ptr DOMHTMLImageElement ->
CString ->
IO ()
dOMHTMLImageElementSetCrossOrigin ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLImageElementSetCrossOrigin _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_cross_origin _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_image_element_set_height" webkit_dom_html_image_element_set_height ::
Ptr DOMHTMLImageElement ->
Int64 ->
IO ()
dOMHTMLImageElementSetHeight ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
Int64 ->
m ()
dOMHTMLImageElementSetHeight _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_image_element_set_height _obj' value
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_image_element_set_hspace" webkit_dom_html_image_element_set_hspace ::
Ptr DOMHTMLImageElement ->
Int64 ->
IO ()
dOMHTMLImageElementSetHspace ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
Int64 ->
m ()
dOMHTMLImageElementSetHspace _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_image_element_set_hspace _obj' value
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_image_element_set_is_map" webkit_dom_html_image_element_set_is_map ::
Ptr DOMHTMLImageElement ->
CInt ->
IO ()
dOMHTMLImageElementSetIsMap ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
Bool ->
m ()
dOMHTMLImageElementSetIsMap _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_html_image_element_set_is_map _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_image_element_set_long_desc" webkit_dom_html_image_element_set_long_desc ::
Ptr DOMHTMLImageElement ->
CString ->
IO ()
dOMHTMLImageElementSetLongDesc ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLImageElementSetLongDesc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_long_desc _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_image_element_set_lowsrc" webkit_dom_html_image_element_set_lowsrc ::
Ptr DOMHTMLImageElement ->
CString ->
IO ()
dOMHTMLImageElementSetLowsrc ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLImageElementSetLowsrc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_lowsrc _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_image_element_set_name" webkit_dom_html_image_element_set_name ::
Ptr DOMHTMLImageElement ->
CString ->
IO ()
dOMHTMLImageElementSetName ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLImageElementSetName _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_name _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_image_element_set_src" webkit_dom_html_image_element_set_src ::
Ptr DOMHTMLImageElement ->
CString ->
IO ()
dOMHTMLImageElementSetSrc ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLImageElementSetSrc _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_src _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_image_element_set_srcset" webkit_dom_html_image_element_set_srcset ::
Ptr DOMHTMLImageElement ->
CString ->
IO ()
dOMHTMLImageElementSetSrcset ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLImageElementSetSrcset _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_srcset _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_image_element_set_use_map" webkit_dom_html_image_element_set_use_map ::
Ptr DOMHTMLImageElement ->
CString ->
IO ()
dOMHTMLImageElementSetUseMap ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
T.Text ->
m ()
dOMHTMLImageElementSetUseMap _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_html_image_element_set_use_map _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_html_image_element_set_vspace" webkit_dom_html_image_element_set_vspace ::
Ptr DOMHTMLImageElement ->
Int64 ->
IO ()
dOMHTMLImageElementSetVspace ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
Int64 ->
m ()
dOMHTMLImageElementSetVspace _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_image_element_set_vspace _obj' value
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_html_image_element_set_width" webkit_dom_html_image_element_set_width ::
Ptr DOMHTMLImageElement ->
Int64 ->
IO ()
dOMHTMLImageElementSetWidth ::
(MonadIO m, DOMHTMLImageElementK a) =>
a ->
Int64 ->
m ()
dOMHTMLImageElementSetWidth _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_html_image_element_set_width _obj' value
touchManagedPtr _obj
return ()