module Graphics.UI.Gtk.WebKit.DOM.HTMLAppletElement
(htmlAppletElementSetAlign, htmlAppletElementGetAlign,
htmlAppletElementSetAlt, htmlAppletElementGetAlt,
htmlAppletElementSetArchive, htmlAppletElementGetArchive,
htmlAppletElementSetCode, htmlAppletElementGetCode,
htmlAppletElementSetCodeBase, htmlAppletElementGetCodeBase,
htmlAppletElementSetHeight, htmlAppletElementGetHeight,
htmlAppletElementSetHspace, htmlAppletElementGetHspace,
htmlAppletElementSetName, htmlAppletElementGetName,
htmlAppletElementSetObject, htmlAppletElementGetObject,
htmlAppletElementSetVspace, htmlAppletElementGetVspace,
htmlAppletElementSetWidth, htmlAppletElementGetWidth,
HTMLAppletElement, HTMLAppletElementClass, castToHTMLAppletElement,
gTypeHTMLAppletElement, toHTMLAppletElement)
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
htmlAppletElementSetAlign ::
(HTMLAppletElementClass self) => self -> String -> IO ()
htmlAppletElementSetAlign self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_applet_element_set_align #}
(toHTMLAppletElement self)
valPtr
htmlAppletElementGetAlign ::
(HTMLAppletElementClass self) => self -> IO String
htmlAppletElementGetAlign self
= ({# call webkit_dom_html_applet_element_get_align #}
(toHTMLAppletElement self))
>>=
readUTFString
htmlAppletElementSetAlt ::
(HTMLAppletElementClass self) => self -> String -> IO ()
htmlAppletElementSetAlt self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_applet_element_set_alt #}
(toHTMLAppletElement self)
valPtr
htmlAppletElementGetAlt ::
(HTMLAppletElementClass self) => self -> IO String
htmlAppletElementGetAlt self
= ({# call webkit_dom_html_applet_element_get_alt #}
(toHTMLAppletElement self))
>>=
readUTFString
htmlAppletElementSetArchive ::
(HTMLAppletElementClass self) => self -> String -> IO ()
htmlAppletElementSetArchive self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_applet_element_set_archive #}
(toHTMLAppletElement self)
valPtr
htmlAppletElementGetArchive ::
(HTMLAppletElementClass self) => self -> IO String
htmlAppletElementGetArchive self
= ({# call webkit_dom_html_applet_element_get_archive #}
(toHTMLAppletElement self))
>>=
readUTFString
htmlAppletElementSetCode ::
(HTMLAppletElementClass self) => self -> String -> IO ()
htmlAppletElementSetCode self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_applet_element_set_code #}
(toHTMLAppletElement self)
valPtr
htmlAppletElementGetCode ::
(HTMLAppletElementClass self) => self -> IO String
htmlAppletElementGetCode self
= ({# call webkit_dom_html_applet_element_get_code #}
(toHTMLAppletElement self))
>>=
readUTFString
htmlAppletElementSetCodeBase ::
(HTMLAppletElementClass self) => self -> String -> IO ()
htmlAppletElementSetCodeBase self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_applet_element_set_code_base #}
(toHTMLAppletElement self)
valPtr
htmlAppletElementGetCodeBase ::
(HTMLAppletElementClass self) => self -> IO String
htmlAppletElementGetCodeBase self
= ({# call webkit_dom_html_applet_element_get_code_base #}
(toHTMLAppletElement self))
>>=
readUTFString
htmlAppletElementSetHeight ::
(HTMLAppletElementClass self) => self -> String -> IO ()
htmlAppletElementSetHeight self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_applet_element_set_height #}
(toHTMLAppletElement self)
valPtr
htmlAppletElementGetHeight ::
(HTMLAppletElementClass self) => self -> IO String
htmlAppletElementGetHeight self
= ({# call webkit_dom_html_applet_element_get_height #}
(toHTMLAppletElement self))
>>=
readUTFString
htmlAppletElementSetHspace ::
(HTMLAppletElementClass self) => self -> Int -> IO ()
htmlAppletElementSetHspace self val
= {# call webkit_dom_html_applet_element_set_hspace #}
(toHTMLAppletElement self)
(fromIntegral val)
htmlAppletElementGetHspace ::
(HTMLAppletElementClass self) => self -> IO Int
htmlAppletElementGetHspace self
= fromIntegral <$>
({# call webkit_dom_html_applet_element_get_hspace #}
(toHTMLAppletElement self))
htmlAppletElementSetName ::
(HTMLAppletElementClass self) => self -> String -> IO ()
htmlAppletElementSetName self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_applet_element_set_name #}
(toHTMLAppletElement self)
valPtr
htmlAppletElementGetName ::
(HTMLAppletElementClass self) => self -> IO String
htmlAppletElementGetName self
= ({# call webkit_dom_html_applet_element_get_name #}
(toHTMLAppletElement self))
>>=
readUTFString
htmlAppletElementSetObject ::
(HTMLAppletElementClass self) => self -> String -> IO ()
htmlAppletElementSetObject self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_applet_element_set_object #}
(toHTMLAppletElement self)
valPtr
htmlAppletElementGetObject ::
(HTMLAppletElementClass self) => self -> IO String
htmlAppletElementGetObject self
= ({# call webkit_dom_html_applet_element_get_object #}
(toHTMLAppletElement self))
>>=
readUTFString
htmlAppletElementSetVspace ::
(HTMLAppletElementClass self) => self -> Int -> IO ()
htmlAppletElementSetVspace self val
= {# call webkit_dom_html_applet_element_set_vspace #}
(toHTMLAppletElement self)
(fromIntegral val)
htmlAppletElementGetVspace ::
(HTMLAppletElementClass self) => self -> IO Int
htmlAppletElementGetVspace self
= fromIntegral <$>
({# call webkit_dom_html_applet_element_get_vspace #}
(toHTMLAppletElement self))
htmlAppletElementSetWidth ::
(HTMLAppletElementClass self) => self -> String -> IO ()
htmlAppletElementSetWidth self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_applet_element_set_width #}
(toHTMLAppletElement self)
valPtr
htmlAppletElementGetWidth ::
(HTMLAppletElementClass self) => self -> IO String
htmlAppletElementGetWidth self
= ({# call webkit_dom_html_applet_element_get_width #}
(toHTMLAppletElement self))
>>=
readUTFString