HTMLOptionElement.chs

module Graphics.UI.Gtk.WebKit.DOM.HTMLOptionElement
       (htmlOptionElementSetDisabled, htmlOptionElementGetDisabled,
        htmlOptionElementGetForm, htmlOptionElementSetLabel,
        htmlOptionElementGetLabel, htmlOptionElementSetDefaultSelected,
        htmlOptionElementGetDefaultSelected, htmlOptionElementSetSelected,
        htmlOptionElementGetSelected, htmlOptionElementSetValue,
        htmlOptionElementGetValue, htmlOptionElementGetText,
        htmlOptionElementGetIndex)
       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
 
htmlOptionElementSetDisabled ::
                             (HTMLOptionElementClass self) => self -> Bool -> IO ()
htmlOptionElementSetDisabled self val
  = {# call webkit_dom_html_option_element_set_disabled #}
      (toHTMLOptionElement self)
      (fromBool val)
 
htmlOptionElementGetDisabled ::
                             (HTMLOptionElementClass self) => self -> IO Bool
htmlOptionElementGetDisabled self
  = toBool <$>
      ({# call webkit_dom_html_option_element_get_disabled #}
         (toHTMLOptionElement self))
 
htmlOptionElementGetForm ::
                         (HTMLOptionElementClass self) => self -> IO (Maybe HTMLFormElement)
htmlOptionElementGetForm self
  = maybeNull (makeNewGObject mkHTMLFormElement)
      ({# call webkit_dom_html_option_element_get_form #}
         (toHTMLOptionElement self))
 
htmlOptionElementSetLabel ::
                          (HTMLOptionElementClass self) => self -> String -> IO ()
htmlOptionElementSetLabel self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_option_element_set_label #}
          (toHTMLOptionElement self)
          valPtr
 
htmlOptionElementGetLabel ::
                          (HTMLOptionElementClass self) => self -> IO String
htmlOptionElementGetLabel self
  = ({# call webkit_dom_html_option_element_get_label #}
       (toHTMLOptionElement self))
      >>=
      readUTFString
 
htmlOptionElementSetDefaultSelected ::
                                    (HTMLOptionElementClass self) => self -> Bool -> IO ()
htmlOptionElementSetDefaultSelected self val
  = {# call webkit_dom_html_option_element_set_default_selected #}
      (toHTMLOptionElement self)
      (fromBool val)
 
htmlOptionElementGetDefaultSelected ::
                                    (HTMLOptionElementClass self) => self -> IO Bool
htmlOptionElementGetDefaultSelected self
  = toBool <$>
      ({# call webkit_dom_html_option_element_get_default_selected #}
         (toHTMLOptionElement self))
 
htmlOptionElementSetSelected ::
                             (HTMLOptionElementClass self) => self -> Bool -> IO ()
htmlOptionElementSetSelected self val
  = {# call webkit_dom_html_option_element_set_selected #}
      (toHTMLOptionElement self)
      (fromBool val)
 
htmlOptionElementGetSelected ::
                             (HTMLOptionElementClass self) => self -> IO Bool
htmlOptionElementGetSelected self
  = toBool <$>
      ({# call webkit_dom_html_option_element_get_selected #}
         (toHTMLOptionElement self))
 
htmlOptionElementSetValue ::
                          (HTMLOptionElementClass self) => self -> String -> IO ()
htmlOptionElementSetValue self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_option_element_set_value #}
          (toHTMLOptionElement self)
          valPtr
 
htmlOptionElementGetValue ::
                          (HTMLOptionElementClass self) => self -> IO String
htmlOptionElementGetValue self
  = ({# call webkit_dom_html_option_element_get_value #}
       (toHTMLOptionElement self))
      >>=
      readUTFString
 
htmlOptionElementGetText ::
                         (HTMLOptionElementClass self) => self -> IO String
htmlOptionElementGetText self
  = ({# call webkit_dom_html_option_element_get_text #}
       (toHTMLOptionElement self))
      >>=
      readUTFString
 
htmlOptionElementGetIndex ::
                          (HTMLOptionElementClass self) => self -> IO Int
htmlOptionElementGetIndex self
  = fromIntegral <$>
      ({# call webkit_dom_html_option_element_get_index #}
         (toHTMLOptionElement self))