module Graphics.UI.Gtk.WebKit.DOM.HTMLObjectElement
(htmlObjectElementCheckValidity,
htmlObjectElementSetCustomValidity, htmlObjectElementGetForm,
htmlObjectElementSetCode, htmlObjectElementGetCode,
htmlObjectElementSetAlign, htmlObjectElementGetAlign,
htmlObjectElementSetArchive, htmlObjectElementGetArchive,
htmlObjectElementSetBorder, htmlObjectElementGetBorder,
htmlObjectElementSetCodeBase, htmlObjectElementGetCodeBase,
htmlObjectElementSetCodeType, htmlObjectElementGetCodeType,
htmlObjectElementSetData, htmlObjectElementGetData,
htmlObjectElementSetDeclare, htmlObjectElementGetDeclare,
htmlObjectElementSetHeight, htmlObjectElementGetHeight,
htmlObjectElementSetHspace, htmlObjectElementGetHspace,
htmlObjectElementSetName, htmlObjectElementGetName,
htmlObjectElementSetStandby, htmlObjectElementGetStandby,
htmlObjectElementSetUseMap, htmlObjectElementGetUseMap,
htmlObjectElementSetVspace, htmlObjectElementGetVspace,
htmlObjectElementSetWidth, htmlObjectElementGetWidth,
htmlObjectElementGetWillValidate, htmlObjectElementGetValidity,
htmlObjectElementGetValidationMessage,
htmlObjectElementGetContentDocument, HTMLObjectElement,
HTMLObjectElementClass, castToHTMLObjectElement,
gTypeHTMLObjectElement, toHTMLObjectElement)
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
htmlObjectElementCheckValidity ::
(HTMLObjectElementClass self) => self -> IO Bool
htmlObjectElementCheckValidity self
= toBool <$>
({# call webkit_dom_html_object_element_check_validity #}
(toHTMLObjectElement self))
htmlObjectElementSetCustomValidity ::
(HTMLObjectElementClass self) => self -> String -> IO ()
htmlObjectElementSetCustomValidity self error
= withUTFString error $
\ errorPtr ->
{# call webkit_dom_html_object_element_set_custom_validity #}
(toHTMLObjectElement self)
errorPtr
htmlObjectElementGetForm ::
(HTMLObjectElementClass self) => self -> IO (Maybe HTMLFormElement)
htmlObjectElementGetForm self
= maybeNull (makeNewGObject mkHTMLFormElement)
({# call webkit_dom_html_object_element_get_form #}
(toHTMLObjectElement self))
htmlObjectElementSetCode ::
(HTMLObjectElementClass self) => self -> String -> IO ()
htmlObjectElementSetCode self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_object_element_set_code #}
(toHTMLObjectElement self)
valPtr
htmlObjectElementGetCode ::
(HTMLObjectElementClass self) => self -> IO String
htmlObjectElementGetCode self
= ({# call webkit_dom_html_object_element_get_code #}
(toHTMLObjectElement self))
>>=
readUTFString
htmlObjectElementSetAlign ::
(HTMLObjectElementClass self) => self -> String -> IO ()
htmlObjectElementSetAlign self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_object_element_set_align #}
(toHTMLObjectElement self)
valPtr
htmlObjectElementGetAlign ::
(HTMLObjectElementClass self) => self -> IO String
htmlObjectElementGetAlign self
= ({# call webkit_dom_html_object_element_get_align #}
(toHTMLObjectElement self))
>>=
readUTFString
htmlObjectElementSetArchive ::
(HTMLObjectElementClass self) => self -> String -> IO ()
htmlObjectElementSetArchive self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_object_element_set_archive #}
(toHTMLObjectElement self)
valPtr
htmlObjectElementGetArchive ::
(HTMLObjectElementClass self) => self -> IO String
htmlObjectElementGetArchive self
= ({# call webkit_dom_html_object_element_get_archive #}
(toHTMLObjectElement self))
>>=
readUTFString
htmlObjectElementSetBorder ::
(HTMLObjectElementClass self) => self -> String -> IO ()
htmlObjectElementSetBorder self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_object_element_set_border #}
(toHTMLObjectElement self)
valPtr
htmlObjectElementGetBorder ::
(HTMLObjectElementClass self) => self -> IO String
htmlObjectElementGetBorder self
= ({# call webkit_dom_html_object_element_get_border #}
(toHTMLObjectElement self))
>>=
readUTFString
htmlObjectElementSetCodeBase ::
(HTMLObjectElementClass self) => self -> String -> IO ()
htmlObjectElementSetCodeBase self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_object_element_set_code_base #}
(toHTMLObjectElement self)
valPtr
htmlObjectElementGetCodeBase ::
(HTMLObjectElementClass self) => self -> IO String
htmlObjectElementGetCodeBase self
= ({# call webkit_dom_html_object_element_get_code_base #}
(toHTMLObjectElement self))
>>=
readUTFString
htmlObjectElementSetCodeType ::
(HTMLObjectElementClass self) => self -> String -> IO ()
htmlObjectElementSetCodeType self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_object_element_set_code_type #}
(toHTMLObjectElement self)
valPtr
htmlObjectElementGetCodeType ::
(HTMLObjectElementClass self) => self -> IO String
htmlObjectElementGetCodeType self
= ({# call webkit_dom_html_object_element_get_code_type #}
(toHTMLObjectElement self))
>>=
readUTFString
htmlObjectElementSetData ::
(HTMLObjectElementClass self) => self -> String -> IO ()
htmlObjectElementSetData self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_object_element_set_data #}
(toHTMLObjectElement self)
valPtr
htmlObjectElementGetData ::
(HTMLObjectElementClass self) => self -> IO String
htmlObjectElementGetData self
= ({# call webkit_dom_html_object_element_get_data #}
(toHTMLObjectElement self))
>>=
readUTFString
htmlObjectElementSetDeclare ::
(HTMLObjectElementClass self) => self -> Bool -> IO ()
htmlObjectElementSetDeclare self val
= {# call webkit_dom_html_object_element_set_declare #}
(toHTMLObjectElement self)
(fromBool val)
htmlObjectElementGetDeclare ::
(HTMLObjectElementClass self) => self -> IO Bool
htmlObjectElementGetDeclare self
= toBool <$>
({# call webkit_dom_html_object_element_get_declare #}
(toHTMLObjectElement self))
htmlObjectElementSetHeight ::
(HTMLObjectElementClass self) => self -> String -> IO ()
htmlObjectElementSetHeight self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_object_element_set_height #}
(toHTMLObjectElement self)
valPtr
htmlObjectElementGetHeight ::
(HTMLObjectElementClass self) => self -> IO String
htmlObjectElementGetHeight self
= ({# call webkit_dom_html_object_element_get_height #}
(toHTMLObjectElement self))
>>=
readUTFString
htmlObjectElementSetHspace ::
(HTMLObjectElementClass self) => self -> Int -> IO ()
htmlObjectElementSetHspace self val
= {# call webkit_dom_html_object_element_set_hspace #}
(toHTMLObjectElement self)
(fromIntegral val)
htmlObjectElementGetHspace ::
(HTMLObjectElementClass self) => self -> IO Int
htmlObjectElementGetHspace self
= fromIntegral <$>
({# call webkit_dom_html_object_element_get_hspace #}
(toHTMLObjectElement self))
htmlObjectElementSetName ::
(HTMLObjectElementClass self) => self -> String -> IO ()
htmlObjectElementSetName self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_object_element_set_name #}
(toHTMLObjectElement self)
valPtr
htmlObjectElementGetName ::
(HTMLObjectElementClass self) => self -> IO String
htmlObjectElementGetName self
= ({# call webkit_dom_html_object_element_get_name #}
(toHTMLObjectElement self))
>>=
readUTFString
htmlObjectElementSetStandby ::
(HTMLObjectElementClass self) => self -> String -> IO ()
htmlObjectElementSetStandby self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_object_element_set_standby #}
(toHTMLObjectElement self)
valPtr
htmlObjectElementGetStandby ::
(HTMLObjectElementClass self) => self -> IO String
htmlObjectElementGetStandby self
= ({# call webkit_dom_html_object_element_get_standby #}
(toHTMLObjectElement self))
>>=
readUTFString
htmlObjectElementSetUseMap ::
(HTMLObjectElementClass self) => self -> String -> IO ()
htmlObjectElementSetUseMap self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_object_element_set_use_map #}
(toHTMLObjectElement self)
valPtr
htmlObjectElementGetUseMap ::
(HTMLObjectElementClass self) => self -> IO String
htmlObjectElementGetUseMap self
= ({# call webkit_dom_html_object_element_get_use_map #}
(toHTMLObjectElement self))
>>=
readUTFString
htmlObjectElementSetVspace ::
(HTMLObjectElementClass self) => self -> Int -> IO ()
htmlObjectElementSetVspace self val
= {# call webkit_dom_html_object_element_set_vspace #}
(toHTMLObjectElement self)
(fromIntegral val)
htmlObjectElementGetVspace ::
(HTMLObjectElementClass self) => self -> IO Int
htmlObjectElementGetVspace self
= fromIntegral <$>
({# call webkit_dom_html_object_element_get_vspace #}
(toHTMLObjectElement self))
htmlObjectElementSetWidth ::
(HTMLObjectElementClass self) => self -> String -> IO ()
htmlObjectElementSetWidth self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_object_element_set_width #}
(toHTMLObjectElement self)
valPtr
htmlObjectElementGetWidth ::
(HTMLObjectElementClass self) => self -> IO String
htmlObjectElementGetWidth self
= ({# call webkit_dom_html_object_element_get_width #}
(toHTMLObjectElement self))
>>=
readUTFString
htmlObjectElementGetWillValidate ::
(HTMLObjectElementClass self) => self -> IO Bool
htmlObjectElementGetWillValidate self
= toBool <$>
({# call webkit_dom_html_object_element_get_will_validate #}
(toHTMLObjectElement self))
htmlObjectElementGetValidity ::
(HTMLObjectElementClass self) => self -> IO (Maybe ValidityState)
htmlObjectElementGetValidity self
= maybeNull (makeNewGObject mkValidityState)
({# call webkit_dom_html_object_element_get_validity #}
(toHTMLObjectElement self))
htmlObjectElementGetValidationMessage ::
(HTMLObjectElementClass self) => self -> IO String
htmlObjectElementGetValidationMessage self
= ({# call webkit_dom_html_object_element_get_validation_message #}
(toHTMLObjectElement self))
>>=
readUTFString
htmlObjectElementGetContentDocument ::
(HTMLObjectElementClass self) => self -> IO (Maybe Document)
htmlObjectElementGetContentDocument self
= maybeNull (makeNewGObject mkDocument)
({# call webkit_dom_html_object_element_get_content_document #}
(toHTMLObjectElement self))