module Graphics.UI.Gtk.WebKit.DOM.HTMLEmbedElement
(htmlEmbedElementSetAlign, htmlEmbedElementGetAlign,
htmlEmbedElementSetHeight, htmlEmbedElementGetHeight,
htmlEmbedElementSetName, htmlEmbedElementGetName,
htmlEmbedElementSetSrc, htmlEmbedElementGetSrc,
htmlEmbedElementSetWidth, htmlEmbedElementGetWidth)
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
htmlEmbedElementSetAlign ::
(HTMLEmbedElementClass self) => self -> String -> IO ()
htmlEmbedElementSetAlign self val
= withUTFString val $
\ valPtr ->
(\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_align argPtr1 arg2)
(toHTMLEmbedElement self)
valPtr
htmlEmbedElementGetAlign ::
(HTMLEmbedElementClass self) => self -> IO String
htmlEmbedElementGetAlign self
= ((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_align argPtr1)
(toHTMLEmbedElement self))
>>=
readUTFString
htmlEmbedElementSetHeight ::
(HTMLEmbedElementClass self) => self -> Int -> IO ()
htmlEmbedElementSetHeight self val
= (\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_height argPtr1 arg2)
(toHTMLEmbedElement self)
(fromIntegral val)
htmlEmbedElementGetHeight ::
(HTMLEmbedElementClass self) => self -> IO Int
htmlEmbedElementGetHeight self
= fromIntegral <$>
((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_height argPtr1)
(toHTMLEmbedElement self))
htmlEmbedElementSetName ::
(HTMLEmbedElementClass self) => self -> String -> IO ()
htmlEmbedElementSetName self val
= withUTFString val $
\ valPtr ->
(\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_name argPtr1 arg2)
(toHTMLEmbedElement self)
valPtr
htmlEmbedElementGetName ::
(HTMLEmbedElementClass self) => self -> IO String
htmlEmbedElementGetName self
= ((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_name argPtr1)
(toHTMLEmbedElement self))
>>=
readUTFString
htmlEmbedElementSetSrc ::
(HTMLEmbedElementClass self) => self -> String -> IO ()
htmlEmbedElementSetSrc self val
= withUTFString val $
\ valPtr ->
(\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_src argPtr1 arg2)
(toHTMLEmbedElement self)
valPtr
htmlEmbedElementGetSrc ::
(HTMLEmbedElementClass self) => self -> IO String
htmlEmbedElementGetSrc self
= ((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_src argPtr1)
(toHTMLEmbedElement self))
>>=
readUTFString
htmlEmbedElementSetWidth ::
(HTMLEmbedElementClass self) => self -> Int -> IO ()
htmlEmbedElementSetWidth self val
= (\(HTMLEmbedElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_set_width argPtr1 arg2)
(toHTMLEmbedElement self)
(fromIntegral val)
htmlEmbedElementGetWidth ::
(HTMLEmbedElementClass self) => self -> IO Int
htmlEmbedElementGetWidth self
= fromIntegral <$>
((\(HTMLEmbedElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_embed_element_get_width argPtr1)
(toHTMLEmbedElement self))
foreign import ccall safe "webkit_dom_html_embed_element_set_align"
webkit_dom_html_embed_element_set_align :: ((Ptr HTMLEmbedElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_embed_element_get_align"
webkit_dom_html_embed_element_get_align :: ((Ptr HTMLEmbedElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_embed_element_set_height"
webkit_dom_html_embed_element_set_height :: ((Ptr HTMLEmbedElement) -> (CLong -> (IO ())))
foreign import ccall safe "webkit_dom_html_embed_element_get_height"
webkit_dom_html_embed_element_get_height :: ((Ptr HTMLEmbedElement) -> (IO CLong))
foreign import ccall safe "webkit_dom_html_embed_element_set_name"
webkit_dom_html_embed_element_set_name :: ((Ptr HTMLEmbedElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_embed_element_get_name"
webkit_dom_html_embed_element_get_name :: ((Ptr HTMLEmbedElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_embed_element_set_src"
webkit_dom_html_embed_element_set_src :: ((Ptr HTMLEmbedElement) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "webkit_dom_html_embed_element_get_src"
webkit_dom_html_embed_element_get_src :: ((Ptr HTMLEmbedElement) -> (IO (Ptr CChar)))
foreign import ccall safe "webkit_dom_html_embed_element_set_width"
webkit_dom_html_embed_element_set_width :: ((Ptr HTMLEmbedElement) -> (CLong -> (IO ())))
foreign import ccall safe "webkit_dom_html_embed_element_get_width"
webkit_dom_html_embed_element_get_width :: ((Ptr HTMLEmbedElement) -> (IO CLong))