HTMLOptGroupElement.chs

module Graphics.UI.Gtk.WebKit.DOM.HTMLOptGroupElement
       (htmlOptGroupElementSetDisabled, htmlOptGroupElementGetDisabled,
        htmlOptGroupElementSetLabel, htmlOptGroupElementGetLabel,
        HTMLOptGroupElement, HTMLOptGroupElementClass,
        castToHTMLOptGroupElement, gTypeHTMLOptGroupElement,
        toHTMLOptGroupElement)
       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
 
htmlOptGroupElementSetDisabled ::
                               (HTMLOptGroupElementClass self) => self -> Bool -> IO ()
htmlOptGroupElementSetDisabled self val
  = {# call webkit_dom_html_opt_group_element_set_disabled #}
      (toHTMLOptGroupElement self)
      (fromBool val)
 
htmlOptGroupElementGetDisabled ::
                               (HTMLOptGroupElementClass self) => self -> IO Bool
htmlOptGroupElementGetDisabled self
  = toBool <$>
      ({# call webkit_dom_html_opt_group_element_get_disabled #}
         (toHTMLOptGroupElement self))
 
htmlOptGroupElementSetLabel ::
                            (HTMLOptGroupElementClass self, GlibString string) =>
                              self -> string -> IO ()
htmlOptGroupElementSetLabel self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_opt_group_element_set_label #}
          (toHTMLOptGroupElement self)
          valPtr
 
htmlOptGroupElementGetLabel ::
                            (HTMLOptGroupElementClass self, GlibString string) =>
                              self -> IO string
htmlOptGroupElementGetLabel self
  = ({# call webkit_dom_html_opt_group_element_get_label #}
       (toHTMLOptGroupElement self))
      >>=
      readUTFString