module Graphics.UI.Gtk.WebKit.DOM.HTMLLabelElement
(htmlLabelElementGetForm, htmlLabelElementSetHtmlFor,
htmlLabelElementGetHtmlFor, htmlLabelElementGetControl,
HTMLLabelElement, HTMLLabelElementClass, castToHTMLLabelElement,
gTypeHTMLLabelElement, toHTMLLabelElement)
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
htmlLabelElementGetForm ::
(HTMLLabelElementClass self) => self -> IO (Maybe HTMLFormElement)
htmlLabelElementGetForm self
= maybeNull (makeNewGObject mkHTMLFormElement)
({# call webkit_dom_html_label_element_get_form #}
(toHTMLLabelElement self))
htmlLabelElementSetHtmlFor ::
(HTMLLabelElementClass self, GlibString string) =>
self -> string -> IO ()
htmlLabelElementSetHtmlFor self val
= withUTFString val $
\ valPtr ->
{# call webkit_dom_html_label_element_set_html_for #}
(toHTMLLabelElement self)
valPtr
htmlLabelElementGetHtmlFor ::
(HTMLLabelElementClass self, GlibString string) =>
self -> IO string
htmlLabelElementGetHtmlFor self
= ({# call webkit_dom_html_label_element_get_html_for #}
(toHTMLLabelElement self))
>>=
readUTFString
htmlLabelElementGetControl ::
(HTMLLabelElementClass self) => self -> IO (Maybe HTMLElement)
htmlLabelElementGetControl self
= maybeNull (makeNewGObject mkHTMLElement)
({# call webkit_dom_html_label_element_get_control #}
(toHTMLLabelElement self))