module Graphics.UI.Gtk.WebKit.DOM.HTMLImageElement
(htmlImageElementSetName, htmlImageElementGetName,
htmlImageElementSetAlign, htmlImageElementGetAlign,
htmlImageElementSetAlt, htmlImageElementGetAlt,
htmlImageElementSetBorder, htmlImageElementGetBorder,
htmlImageElementSetCrossOrigin, htmlImageElementGetCrossOrigin,
htmlImageElementSetHeight, htmlImageElementGetHeight,
htmlImageElementSetHspace, htmlImageElementGetHspace,
htmlImageElementSetIsMap, htmlImageElementGetIsMap,
htmlImageElementSetLongDesc, htmlImageElementGetLongDesc,
htmlImageElementSetSrc, htmlImageElementGetSrc,
#if WEBKIT_CHECK_VERSION(2,2,2)
htmlImageElementSetSrcset, htmlImageElementGetSrcset,
#endif
htmlImageElementSetUseMap, htmlImageElementGetUseMap,
htmlImageElementSetVspace, htmlImageElementGetVspace,
htmlImageElementSetWidth, htmlImageElementGetWidth,
htmlImageElementGetComplete, htmlImageElementSetLowsrc,
htmlImageElementGetLowsrc, htmlImageElementGetNaturalHeight,
htmlImageElementGetNaturalWidth, htmlImageElementGetX,
htmlImageElementGetY, HTMLImageElement, HTMLImageElementClass,
castToHTMLImageElement, gTypeHTMLImageElement, toHTMLImageElement)
where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
{#import Graphics.UI.Gtk.WebKit.Types#}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
htmlImageElementSetName ::
(HTMLImageElementClass self, GlibString string) =>
self -> string -> IO ()
htmlImageElementSetName self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_image_element_set_name #}
(toHTMLImageElement self)
valPtr
htmlImageElementGetName ::
(HTMLImageElementClass self, GlibString string) =>
self -> IO string
htmlImageElementGetName self
= ({# call webkit_dom_html_image_element_get_name #}
(toHTMLImageElement self))
>>=
readUTFString
htmlImageElementSetAlign ::
(HTMLImageElementClass self, GlibString string) =>
self -> string -> IO ()
htmlImageElementSetAlign self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_image_element_set_align #}
(toHTMLImageElement self)
valPtr
htmlImageElementGetAlign ::
(HTMLImageElementClass self, GlibString string) =>
self -> IO string
htmlImageElementGetAlign self
= ({# call webkit_dom_html_image_element_get_align #}
(toHTMLImageElement self))
>>=
readUTFString
htmlImageElementSetAlt ::
(HTMLImageElementClass self, GlibString string) =>
self -> string -> IO ()
htmlImageElementSetAlt self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_image_element_set_alt #}
(toHTMLImageElement self)
valPtr
htmlImageElementGetAlt ::
(HTMLImageElementClass self, GlibString string) =>
self -> IO string
htmlImageElementGetAlt self
= ({# call webkit_dom_html_image_element_get_alt #}
(toHTMLImageElement self))
>>=
readUTFString
htmlImageElementSetBorder ::
(HTMLImageElementClass self, GlibString string) =>
self -> string -> IO ()
htmlImageElementSetBorder self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_image_element_set_border #}
(toHTMLImageElement self)
valPtr
htmlImageElementGetBorder ::
(HTMLImageElementClass self, GlibString string) =>
self -> IO string
htmlImageElementGetBorder self
= ({# call webkit_dom_html_image_element_get_border #}
(toHTMLImageElement self))
>>=
readUTFString
htmlImageElementSetCrossOrigin ::
(HTMLImageElementClass self, GlibString string) =>
self -> string -> IO ()
htmlImageElementSetCrossOrigin self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_image_element_set_cross_origin #}
(toHTMLImageElement self)
valPtr
htmlImageElementGetCrossOrigin ::
(HTMLImageElementClass self, GlibString string) =>
self -> IO string
htmlImageElementGetCrossOrigin self
= ({# call webkit_dom_html_image_element_get_cross_origin #}
(toHTMLImageElement self))
>>=
readUTFString
htmlImageElementSetHeight ::
(HTMLImageElementClass self) => self -> Int -> IO ()
htmlImageElementSetHeight self val
= {# call webkit_dom_html_image_element_set_height #}
(toHTMLImageElement self)
(fromIntegral val)
htmlImageElementGetHeight ::
(HTMLImageElementClass self) => self -> IO Int
htmlImageElementGetHeight self
= fromIntegral <$>
({# call webkit_dom_html_image_element_get_height #}
(toHTMLImageElement self))
htmlImageElementSetHspace ::
(HTMLImageElementClass self) => self -> Int -> IO ()
htmlImageElementSetHspace self val
= {# call webkit_dom_html_image_element_set_hspace #}
(toHTMLImageElement self)
(fromIntegral val)
htmlImageElementGetHspace ::
(HTMLImageElementClass self) => self -> IO Int
htmlImageElementGetHspace self
= fromIntegral <$>
({# call webkit_dom_html_image_element_get_hspace #}
(toHTMLImageElement self))
htmlImageElementSetIsMap ::
(HTMLImageElementClass self) => self -> Bool -> IO ()
htmlImageElementSetIsMap self val
= {# call webkit_dom_html_image_element_set_is_map #}
(toHTMLImageElement self)
(fromBool val)
htmlImageElementGetIsMap ::
(HTMLImageElementClass self) => self -> IO Bool
htmlImageElementGetIsMap self
= toBool <$>
({# call webkit_dom_html_image_element_get_is_map #}
(toHTMLImageElement self))
htmlImageElementSetLongDesc ::
(HTMLImageElementClass self, GlibString string) =>
self -> string -> IO ()
htmlImageElementSetLongDesc self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_image_element_set_long_desc #}
(toHTMLImageElement self)
valPtr
htmlImageElementGetLongDesc ::
(HTMLImageElementClass self, GlibString string) =>
self -> IO string
htmlImageElementGetLongDesc self
= ({# call webkit_dom_html_image_element_get_long_desc #}
(toHTMLImageElement self))
>>=
readUTFString
htmlImageElementSetSrc ::
(HTMLImageElementClass self, GlibString string) =>
self -> string -> IO ()
htmlImageElementSetSrc self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_image_element_set_src #}
(toHTMLImageElement self)
valPtr
htmlImageElementGetSrc ::
(HTMLImageElementClass self, GlibString string) =>
self -> IO string
htmlImageElementGetSrc self
= ({# call webkit_dom_html_image_element_get_src #}
(toHTMLImageElement self))
>>=
readUTFString
#if WEBKIT_CHECK_VERSION(2,2,2)
htmlImageElementSetSrcset ::
(HTMLImageElementClass self, GlibString string) =>
self -> string -> IO ()
htmlImageElementSetSrcset self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_image_element_set_srcset #}
(toHTMLImageElement self)
valPtr
htmlImageElementGetSrcset ::
(HTMLImageElementClass self, GlibString string) =>
self -> IO string
htmlImageElementGetSrcset self
= ({# call webkit_dom_html_image_element_get_srcset #}
(toHTMLImageElement self))
>>=
readUTFString
#endif
htmlImageElementSetUseMap ::
(HTMLImageElementClass self, GlibString string) =>
self -> string -> IO ()
htmlImageElementSetUseMap self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_image_element_set_use_map #}
(toHTMLImageElement self)
valPtr
htmlImageElementGetUseMap ::
(HTMLImageElementClass self, GlibString string) =>
self -> IO string
htmlImageElementGetUseMap self
= ({# call webkit_dom_html_image_element_get_use_map #}
(toHTMLImageElement self))
>>=
readUTFString
htmlImageElementSetVspace ::
(HTMLImageElementClass self) => self -> Int -> IO ()
htmlImageElementSetVspace self val
= {# call webkit_dom_html_image_element_set_vspace #}
(toHTMLImageElement self)
(fromIntegral val)
htmlImageElementGetVspace ::
(HTMLImageElementClass self) => self -> IO Int
htmlImageElementGetVspace self
= fromIntegral <$>
({# call webkit_dom_html_image_element_get_vspace #}
(toHTMLImageElement self))
htmlImageElementSetWidth ::
(HTMLImageElementClass self) => self -> Int -> IO ()
htmlImageElementSetWidth self val
= {# call webkit_dom_html_image_element_set_width #}
(toHTMLImageElement self)
(fromIntegral val)
htmlImageElementGetWidth ::
(HTMLImageElementClass self) => self -> IO Int
htmlImageElementGetWidth self
= fromIntegral <$>
({# call webkit_dom_html_image_element_get_width #}
(toHTMLImageElement self))
htmlImageElementGetComplete ::
(HTMLImageElementClass self) => self -> IO Bool
htmlImageElementGetComplete self
= toBool <$>
({# call webkit_dom_html_image_element_get_complete #}
(toHTMLImageElement self))
htmlImageElementSetLowsrc ::
(HTMLImageElementClass self, GlibString string) =>
self -> string -> IO ()
htmlImageElementSetLowsrc self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_image_element_set_lowsrc #}
(toHTMLImageElement self)
valPtr
htmlImageElementGetLowsrc ::
(HTMLImageElementClass self, GlibString string) =>
self -> IO string
htmlImageElementGetLowsrc self
= ({# call webkit_dom_html_image_element_get_lowsrc #}
(toHTMLImageElement self))
>>=
readUTFString
htmlImageElementGetNaturalHeight ::
(HTMLImageElementClass self) => self -> IO Int
htmlImageElementGetNaturalHeight self
= fromIntegral <$>
({# call webkit_dom_html_image_element_get_natural_height #}
(toHTMLImageElement self))
htmlImageElementGetNaturalWidth ::
(HTMLImageElementClass self) => self -> IO Int
htmlImageElementGetNaturalWidth self
= fromIntegral <$>
({# call webkit_dom_html_image_element_get_natural_width #}
(toHTMLImageElement self))
htmlImageElementGetX ::
(HTMLImageElementClass self) => self -> IO Int
htmlImageElementGetX self
= fromIntegral <$>
({# call webkit_dom_html_image_element_get_x #}
(toHTMLImageElement self))
htmlImageElementGetY ::
(HTMLImageElementClass self) => self -> IO Int
htmlImageElementGetY self
= fromIntegral <$>
({# call webkit_dom_html_image_element_get_y #}
(toHTMLImageElement self))