webkit-0.12.5.2: Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.chs

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) => self -> String -> IO ()
htmlImageElementSetName self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_image_element_set_name #}
          (toHTMLImageElement self)
          valPtr
 
htmlImageElementGetName ::
                        (HTMLImageElementClass self) => self -> IO String
htmlImageElementGetName self
  = ({# call webkit_dom_html_image_element_get_name #}
       (toHTMLImageElement self))
      >>=
      readUTFString
 
htmlImageElementSetAlign ::
                         (HTMLImageElementClass self) => self -> String -> IO ()
htmlImageElementSetAlign self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_image_element_set_align #}
          (toHTMLImageElement self)
          valPtr
 
htmlImageElementGetAlign ::
                         (HTMLImageElementClass self) => self -> IO String
htmlImageElementGetAlign self
  = ({# call webkit_dom_html_image_element_get_align #}
       (toHTMLImageElement self))
      >>=
      readUTFString
 
htmlImageElementSetAlt ::
                       (HTMLImageElementClass self) => self -> String -> IO ()
htmlImageElementSetAlt self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_image_element_set_alt #}
          (toHTMLImageElement self)
          valPtr
 
htmlImageElementGetAlt ::
                       (HTMLImageElementClass self) => self -> IO String
htmlImageElementGetAlt self
  = ({# call webkit_dom_html_image_element_get_alt #}
       (toHTMLImageElement self))
      >>=
      readUTFString
 
htmlImageElementSetBorder ::
                          (HTMLImageElementClass self) => self -> String -> IO ()
htmlImageElementSetBorder self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_image_element_set_border #}
          (toHTMLImageElement self)
          valPtr
 
htmlImageElementGetBorder ::
                          (HTMLImageElementClass self) => self -> IO String
htmlImageElementGetBorder self
  = ({# call webkit_dom_html_image_element_get_border #}
       (toHTMLImageElement self))
      >>=
      readUTFString
 
htmlImageElementSetCrossOrigin ::
                               (HTMLImageElementClass self) => self -> String -> IO ()
htmlImageElementSetCrossOrigin self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_image_element_set_cross_origin #}
          (toHTMLImageElement self)
          valPtr
 
htmlImageElementGetCrossOrigin ::
                               (HTMLImageElementClass self) => 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) => self -> String -> IO ()
htmlImageElementSetLongDesc self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_image_element_set_long_desc #}
          (toHTMLImageElement self)
          valPtr
 
htmlImageElementGetLongDesc ::
                            (HTMLImageElementClass self) => self -> IO String
htmlImageElementGetLongDesc self
  = ({# call webkit_dom_html_image_element_get_long_desc #}
       (toHTMLImageElement self))
      >>=
      readUTFString
 
htmlImageElementSetSrc ::
                       (HTMLImageElementClass self) => self -> String -> IO ()
htmlImageElementSetSrc self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_image_element_set_src #}
          (toHTMLImageElement self)
          valPtr
 
htmlImageElementGetSrc ::
                       (HTMLImageElementClass self) => 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) => self -> String -> IO ()
htmlImageElementSetSrcset self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_image_element_set_srcset #}
          (toHTMLImageElement self)
          valPtr
 
htmlImageElementGetSrcset ::
                          (HTMLImageElementClass self) => self -> IO String
htmlImageElementGetSrcset self
  = ({# call webkit_dom_html_image_element_get_srcset #}
       (toHTMLImageElement self))
      >>=
      readUTFString
#endif

htmlImageElementSetUseMap ::
                          (HTMLImageElementClass self) => self -> String -> IO ()
htmlImageElementSetUseMap self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_image_element_set_use_map #}
          (toHTMLImageElement self)
          valPtr
 
htmlImageElementGetUseMap ::
                          (HTMLImageElementClass self) => 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) => self -> String -> IO ()
htmlImageElementSetLowsrc self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_image_element_set_lowsrc #}
          (toHTMLImageElement self)
          valPtr
 
htmlImageElementGetLowsrc ::
                          (HTMLImageElementClass self) => 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))