module Graphics.UI.Gtk.WebKit.DOM.HTMLImageElement(
setName,
getName,
setAlign,
getAlign,
setAlt,
getAlt,
setBorder,
getBorder,
setCrossOrigin,
getCrossOrigin,
setHeight,
getHeight,
setHspace,
getHspace,
setIsMap,
getIsMap,
setLongDesc,
getLongDesc,
setSrc,
getSrc,
setSrcset,
getSrcset,
setUseMap,
getUseMap,
setVspace,
getVspace,
setWidth,
getWidth,
getComplete,
setLowsrc,
getLowsrc,
getNaturalHeight,
getNaturalWidth,
getX,
getY,
HTMLImageElement,
castToHTMLImageElement,
gTypeHTMLImageElement,
HTMLImageElementClass,
toHTMLImageElement,
) where
import Prelude hiding (drop, error, print)
import Data.Typeable (Typeable)
import Foreign.Marshal (maybePeek, maybeWith)
import System.Glib.FFI (maybeNull, withForeignPtr, nullForeignPtr, Ptr, nullPtr, castPtr, Word, Int64, Word64, CChar(..), CInt(..), CUInt(..), CLong(..), CULong(..), CLLong(..), CULLong(..), CShort(..), CUShort(..), CFloat(..), CDouble(..), toBool, fromBool)
import System.Glib.UTFString (GlibString(..), readUTFString)
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures
import Graphics.UI.Gtk.WebKit.DOM.EventM
import Graphics.UI.Gtk.WebKit.Types
import Graphics.UI.Gtk.WebKit.DOM.Enums
setName ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> string -> m ()
setName self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_name argPtr1 arg2)
(toHTMLImageElement self)
valPtr)
getName ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> m string
getName self
= liftIO
(((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_name argPtr1)
(toHTMLImageElement self))
>>=
readUTFString)
setAlign ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> string -> m ()
setAlign self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_align argPtr1 arg2)
(toHTMLImageElement self)
valPtr)
getAlign ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> m string
getAlign self
= liftIO
(((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_align argPtr1)
(toHTMLImageElement self))
>>=
readUTFString)
setAlt ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> string -> m ()
setAlt self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_alt argPtr1 arg2)
(toHTMLImageElement self)
valPtr)
getAlt ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> m string
getAlt self
= liftIO
(((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_alt argPtr1)
(toHTMLImageElement self))
>>=
readUTFString)
setBorder ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> string -> m ()
setBorder self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_border argPtr1 arg2)
(toHTMLImageElement self)
valPtr)
getBorder ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> m string
getBorder self
= liftIO
(((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_border argPtr1)
(toHTMLImageElement self))
>>=
readUTFString)
setCrossOrigin ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> string -> m ()
setCrossOrigin self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_cross_origin argPtr1 arg2)
(toHTMLImageElement self)
valPtr)
getCrossOrigin ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> m string
getCrossOrigin self
= liftIO
(((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_cross_origin argPtr1)
(toHTMLImageElement self))
>>=
readUTFString)
setHeight ::
(MonadIO m, HTMLImageElementClass self) => self -> Int -> m ()
setHeight self val
= liftIO
((\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_height argPtr1 arg2)
(toHTMLImageElement self)
(fromIntegral val))
getHeight ::
(MonadIO m, HTMLImageElementClass self) => self -> m Int
getHeight self
= liftIO
(fromIntegral <$>
((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_height argPtr1)
(toHTMLImageElement self)))
setHspace ::
(MonadIO m, HTMLImageElementClass self) => self -> Int -> m ()
setHspace self val
= liftIO
((\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_hspace argPtr1 arg2)
(toHTMLImageElement self)
(fromIntegral val))
getHspace ::
(MonadIO m, HTMLImageElementClass self) => self -> m Int
getHspace self
= liftIO
(fromIntegral <$>
((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_hspace argPtr1)
(toHTMLImageElement self)))
setIsMap ::
(MonadIO m, HTMLImageElementClass self) => self -> Bool -> m ()
setIsMap self val
= liftIO
((\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_is_map argPtr1 arg2)
(toHTMLImageElement self)
(fromBool val))
getIsMap ::
(MonadIO m, HTMLImageElementClass self) => self -> m Bool
getIsMap self
= liftIO
(toBool <$>
((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_is_map argPtr1)
(toHTMLImageElement self)))
setLongDesc ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> string -> m ()
setLongDesc self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_long_desc argPtr1 arg2)
(toHTMLImageElement self)
valPtr)
getLongDesc ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> m string
getLongDesc self
= liftIO
(((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_long_desc argPtr1)
(toHTMLImageElement self))
>>=
readUTFString)
setSrc ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> string -> m ()
setSrc self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_src argPtr1 arg2)
(toHTMLImageElement self)
valPtr)
getSrc ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> m string
getSrc self
= liftIO
(((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_src argPtr1)
(toHTMLImageElement self))
>>=
readUTFString)
setSrcset ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> string -> m ()
setSrcset self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_srcset argPtr1 arg2)
(toHTMLImageElement self)
valPtr)
getSrcset ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> m string
getSrcset self
= liftIO
(((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_srcset argPtr1)
(toHTMLImageElement self))
>>=
readUTFString)
setUseMap ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> string -> m ()
setUseMap self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_use_map argPtr1 arg2)
(toHTMLImageElement self)
valPtr)
getUseMap ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> m string
getUseMap self
= liftIO
(((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_use_map argPtr1)
(toHTMLImageElement self))
>>=
readUTFString)
setVspace ::
(MonadIO m, HTMLImageElementClass self) => self -> Int -> m ()
setVspace self val
= liftIO
((\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_vspace argPtr1 arg2)
(toHTMLImageElement self)
(fromIntegral val))
getVspace ::
(MonadIO m, HTMLImageElementClass self) => self -> m Int
getVspace self
= liftIO
(fromIntegral <$>
((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_vspace argPtr1)
(toHTMLImageElement self)))
setWidth ::
(MonadIO m, HTMLImageElementClass self) => self -> Int -> m ()
setWidth self val
= liftIO
((\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_width argPtr1 arg2)
(toHTMLImageElement self)
(fromIntegral val))
getWidth ::
(MonadIO m, HTMLImageElementClass self) => self -> m Int
getWidth self
= liftIO
(fromIntegral <$>
((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_width argPtr1)
(toHTMLImageElement self)))
getComplete ::
(MonadIO m, HTMLImageElementClass self) => self -> m Bool
getComplete self
= liftIO
(toBool <$>
((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_complete argPtr1)
(toHTMLImageElement self)))
setLowsrc ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> string -> m ()
setLowsrc self val
= liftIO
(withUTFString val $
\ valPtr ->
(\(HTMLImageElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_set_lowsrc argPtr1 arg2)
(toHTMLImageElement self)
valPtr)
getLowsrc ::
(MonadIO m, HTMLImageElementClass self, GlibString string) =>
self -> m string
getLowsrc self
= liftIO
(((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_lowsrc argPtr1)
(toHTMLImageElement self))
>>=
readUTFString)
getNaturalHeight ::
(MonadIO m, HTMLImageElementClass self) => self -> m Int
getNaturalHeight self
= liftIO
(fromIntegral <$>
((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_natural_height argPtr1)
(toHTMLImageElement self)))
getNaturalWidth ::
(MonadIO m, HTMLImageElementClass self) => self -> m Int
getNaturalWidth self
= liftIO
(fromIntegral <$>
((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_natural_width argPtr1)
(toHTMLImageElement self)))
getX :: (MonadIO m, HTMLImageElementClass self) => self -> m Int
getX self
= liftIO
(fromIntegral <$>
((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_x argPtr1)
(toHTMLImageElement self)))
getY :: (MonadIO m, HTMLImageElementClass self) => self -> m Int
getY self
= liftIO
(fromIntegral <$>
((\(HTMLImageElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_image_element_get_y argPtr1)
(toHTMLImageElement self)))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_name"
webkit_dom_html_image_element_set_name :: ((Ptr HTMLImageElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_name"
webkit_dom_html_image_element_get_name :: ((Ptr HTMLImageElement) -> (IO (Ptr CChar)))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_align"
webkit_dom_html_image_element_set_align :: ((Ptr HTMLImageElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_align"
webkit_dom_html_image_element_get_align :: ((Ptr HTMLImageElement) -> (IO (Ptr CChar)))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_alt"
webkit_dom_html_image_element_set_alt :: ((Ptr HTMLImageElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_alt"
webkit_dom_html_image_element_get_alt :: ((Ptr HTMLImageElement) -> (IO (Ptr CChar)))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_border"
webkit_dom_html_image_element_set_border :: ((Ptr HTMLImageElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_border"
webkit_dom_html_image_element_get_border :: ((Ptr HTMLImageElement) -> (IO (Ptr CChar)))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_cross_origin"
webkit_dom_html_image_element_set_cross_origin :: ((Ptr HTMLImageElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_cross_origin"
webkit_dom_html_image_element_get_cross_origin :: ((Ptr HTMLImageElement) -> (IO (Ptr CChar)))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_height"
webkit_dom_html_image_element_set_height :: ((Ptr HTMLImageElement) -> (CLong -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_height"
webkit_dom_html_image_element_get_height :: ((Ptr HTMLImageElement) -> (IO CLong))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_hspace"
webkit_dom_html_image_element_set_hspace :: ((Ptr HTMLImageElement) -> (CLong -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_hspace"
webkit_dom_html_image_element_get_hspace :: ((Ptr HTMLImageElement) -> (IO CLong))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_is_map"
webkit_dom_html_image_element_set_is_map :: ((Ptr HTMLImageElement) -> (CInt -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_is_map"
webkit_dom_html_image_element_get_is_map :: ((Ptr HTMLImageElement) -> (IO CInt))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_long_desc"
webkit_dom_html_image_element_set_long_desc :: ((Ptr HTMLImageElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_long_desc"
webkit_dom_html_image_element_get_long_desc :: ((Ptr HTMLImageElement) -> (IO (Ptr CChar)))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_src"
webkit_dom_html_image_element_set_src :: ((Ptr HTMLImageElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_src"
webkit_dom_html_image_element_get_src :: ((Ptr HTMLImageElement) -> (IO (Ptr CChar)))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_srcset"
webkit_dom_html_image_element_set_srcset :: ((Ptr HTMLImageElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_srcset"
webkit_dom_html_image_element_get_srcset :: ((Ptr HTMLImageElement) -> (IO (Ptr CChar)))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_use_map"
webkit_dom_html_image_element_set_use_map :: ((Ptr HTMLImageElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_use_map"
webkit_dom_html_image_element_get_use_map :: ((Ptr HTMLImageElement) -> (IO (Ptr CChar)))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_vspace"
webkit_dom_html_image_element_set_vspace :: ((Ptr HTMLImageElement) -> (CLong -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_vspace"
webkit_dom_html_image_element_get_vspace :: ((Ptr HTMLImageElement) -> (IO CLong))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_width"
webkit_dom_html_image_element_set_width :: ((Ptr HTMLImageElement) -> (CLong -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_width"
webkit_dom_html_image_element_get_width :: ((Ptr HTMLImageElement) -> (IO CLong))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_complete"
webkit_dom_html_image_element_get_complete :: ((Ptr HTMLImageElement) -> (IO CInt))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_set_lowsrc"
webkit_dom_html_image_element_set_lowsrc :: ((Ptr HTMLImageElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_lowsrc"
webkit_dom_html_image_element_get_lowsrc :: ((Ptr HTMLImageElement) -> (IO (Ptr CChar)))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_natural_height"
webkit_dom_html_image_element_get_natural_height :: ((Ptr HTMLImageElement) -> (IO CLong))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_natural_width"
webkit_dom_html_image_element_get_natural_width :: ((Ptr HTMLImageElement) -> (IO CLong))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_x"
webkit_dom_html_image_element_get_x :: ((Ptr HTMLImageElement) -> (IO CLong))
foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLImageElement.h webkit_dom_html_image_element_get_y"
webkit_dom_html_image_element_get_y :: ((Ptr HTMLImageElement) -> (IO CLong))