HTMLInputElement.chs

module Graphics.UI.Gtk.WebKit.DOM.HTMLInputElement
       (htmlInputElementStepUp, htmlInputElementStepDown,
        htmlInputElementCheckValidity, htmlInputElementSetCustomValidity,
        htmlInputElementSelect,
#if WEBKIT_CHECK_VERSION(2,2,2)
        htmlInputElementSetRangeText,
#endif
        htmlInputElementSetValueForUser,
        htmlInputElementSetAccept, htmlInputElementGetAccept,
        htmlInputElementSetAlt, htmlInputElementGetAlt,
        htmlInputElementSetAutocomplete, htmlInputElementGetAutocomplete,
        htmlInputElementSetAutofocus, htmlInputElementGetAutofocus,
        htmlInputElementSetDefaultChecked,
        htmlInputElementGetDefaultChecked, htmlInputElementSetChecked,
        htmlInputElementGetChecked, htmlInputElementSetDirName,
        htmlInputElementGetDirName, htmlInputElementSetDisabled,
        htmlInputElementGetDisabled, htmlInputElementGetForm,
#if WEBKIT_CHECK_VERSION(1,10,0)
        htmlInputElementSetFiles,
#endif
        htmlInputElementGetFiles,
        htmlInputElementSetFormAction, htmlInputElementGetFormAction,
        htmlInputElementSetFormEnctype, htmlInputElementGetFormEnctype,
        htmlInputElementSetFormMethod, htmlInputElementGetFormMethod,
        htmlInputElementSetFormNoValidate,
        htmlInputElementGetFormNoValidate, htmlInputElementSetFormTarget,
        htmlInputElementGetFormTarget,
#if WEBKIT_CHECK_VERSION(1,10,0)
        htmlInputElementSetHeight, htmlInputElementGetHeight,
#endif
        htmlInputElementSetIndeterminate,
        htmlInputElementGetIndeterminate, htmlInputElementGetList,
        htmlInputElementSetMax, htmlInputElementGetMax,
        htmlInputElementSetMaxLength, htmlInputElementGetMaxLength,
        htmlInputElementSetMin, htmlInputElementGetMin,
        htmlInputElementSetMultiple, htmlInputElementGetMultiple,
        htmlInputElementSetName, htmlInputElementGetName,
        htmlInputElementSetPattern, htmlInputElementGetPattern,
        htmlInputElementSetPlaceholder, htmlInputElementGetPlaceholder,
        htmlInputElementSetReadOnly, htmlInputElementGetReadOnly,
        htmlInputElementSetRequired, htmlInputElementGetRequired,
        htmlInputElementSetSize, htmlInputElementGetSize,
        htmlInputElementSetSrc, htmlInputElementGetSrc,
        htmlInputElementSetStep, htmlInputElementGetStep,
        htmlInputElementSetDefaultValue, htmlInputElementGetDefaultValue,
        htmlInputElementSetValue, htmlInputElementGetValue,
        htmlInputElementSetValueAsNumber, htmlInputElementGetValueAsNumber,
#if WEBKIT_CHECK_VERSION(1,10,0)
        htmlInputElementSetWidth, htmlInputElementGetWidth,
#endif
        htmlInputElementGetWillValidate, htmlInputElementGetValidity,
        htmlInputElementGetValidationMessage, htmlInputElementGetLabels,
        htmlInputElementSetAlign, htmlInputElementGetAlign,
        htmlInputElementSetWebkitdirectory,
        htmlInputElementGetWebkitdirectory, htmlInputElementSetUseMap,
        htmlInputElementGetUseMap, htmlInputElementSetIncremental,
        htmlInputElementGetIncremental, htmlInputElementSetWebkitSpeech,
        htmlInputElementGetWebkitSpeech, htmlInputElementSetWebkitGrammar,
        htmlInputElementGetWebkitGrammar,
        htmlInputElementOnwebkitspeechchange,
#if WEBKIT_CHECK_VERSION(1,10,0)
        htmlInputElementSetCapture, htmlInputElementGetCapture,
#endif
        HTMLInputElement, HTMLInputElementClass, castToHTMLInputElement,
        gTypeHTMLInputElement, toHTMLInputElement)
       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

htmlInputElementStepUp ::
                       (HTMLInputElementClass self) => self -> Int -> IO ()
htmlInputElementStepUp self n
  = propagateGError $
      \ errorPtr_ ->
        {# call webkit_dom_html_input_element_step_up #}
          (toHTMLInputElement self)
          (fromIntegral n)
          errorPtr_

htmlInputElementStepDown ::
                         (HTMLInputElementClass self) => self -> Int -> IO ()
htmlInputElementStepDown self n
  = propagateGError $
      \ errorPtr_ ->
        {# call webkit_dom_html_input_element_step_down #}
          (toHTMLInputElement self)
          (fromIntegral n)
          errorPtr_

htmlInputElementCheckValidity ::
                              (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementCheckValidity self
  = toBool <$>
      ({# call webkit_dom_html_input_element_check_validity #}
         (toHTMLInputElement self))

htmlInputElementSetCustomValidity ::
                                  (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetCustomValidity self error
  = withUTFString error $
      \ errorPtr ->
        {# call webkit_dom_html_input_element_set_custom_validity #}
          (toHTMLInputElement self)
          errorPtr

htmlInputElementSelect ::
                       (HTMLInputElementClass self) => self -> IO ()
htmlInputElementSelect self
  = {# call webkit_dom_html_input_element_select #}
      (toHTMLInputElement self)
 
#if WEBKIT_CHECK_VERSION(2,2,2)
htmlInputElementSetRangeText ::
                             (HTMLInputElementClass self) =>
                               self -> String -> Word -> Word -> String -> IO ()
htmlInputElementSetRangeText self replacement start end
  selectionMode
  = propagateGError $
      \ errorPtr_ ->
        withUTFString selectionMode $
          \ selectionModePtr ->
            withUTFString replacement $
              \ replacementPtr ->
                {# call webkit_dom_html_input_element_set_range_text #}
                  (toHTMLInputElement self)
                  replacementPtr
              (fromIntegral start)
              (fromIntegral end)
              selectionModePtr
          errorPtr_
#endif

htmlInputElementSetValueForUser ::
                                (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetValueForUser self value
  = withUTFString value $
      \ valuePtr ->
        {# call webkit_dom_html_input_element_set_value_for_user #}
          (toHTMLInputElement self)
          valuePtr

htmlInputElementSetAccept ::
                          (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetAccept self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_accept #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetAccept ::
                          (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetAccept self
  = ({# call webkit_dom_html_input_element_get_accept #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetAlt ::
                       (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetAlt self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_alt #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetAlt ::
                       (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetAlt self
  = ({# call webkit_dom_html_input_element_get_alt #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetAutocomplete ::
                                (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetAutocomplete self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_autocomplete #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetAutocomplete ::
                                (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetAutocomplete self
  = ({# call webkit_dom_html_input_element_get_autocomplete #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetAutofocus ::
                             (HTMLInputElementClass self) => self -> Bool -> IO ()
htmlInputElementSetAutofocus self val
  = {# call webkit_dom_html_input_element_set_autofocus #}
      (toHTMLInputElement self)
      (fromBool val)

htmlInputElementGetAutofocus ::
                             (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementGetAutofocus self
  = toBool <$>
      ({# call webkit_dom_html_input_element_get_autofocus #}
         (toHTMLInputElement self))

htmlInputElementSetDefaultChecked ::
                                  (HTMLInputElementClass self) => self -> Bool -> IO ()
htmlInputElementSetDefaultChecked self val
  = {# call webkit_dom_html_input_element_set_default_checked #}
      (toHTMLInputElement self)
      (fromBool val)

htmlInputElementGetDefaultChecked ::
                                  (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementGetDefaultChecked self
  = toBool <$>
      ({# call webkit_dom_html_input_element_get_default_checked #}
         (toHTMLInputElement self))

htmlInputElementSetChecked ::
                           (HTMLInputElementClass self) => self -> Bool -> IO ()
htmlInputElementSetChecked self val
  = {# call webkit_dom_html_input_element_set_checked #}
      (toHTMLInputElement self)
      (fromBool val)

htmlInputElementGetChecked ::
                           (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementGetChecked self
  = toBool <$>
      ({# call webkit_dom_html_input_element_get_checked #}
         (toHTMLInputElement self))

htmlInputElementSetDirName ::
                           (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetDirName self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_dir_name #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetDirName ::
                           (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetDirName self
  = ({# call webkit_dom_html_input_element_get_dir_name #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetDisabled ::
                            (HTMLInputElementClass self) => self -> Bool -> IO ()
htmlInputElementSetDisabled self val
  = {# call webkit_dom_html_input_element_set_disabled #}
      (toHTMLInputElement self)
      (fromBool val)

htmlInputElementGetDisabled ::
                            (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementGetDisabled self
  = toBool <$>
      ({# call webkit_dom_html_input_element_get_disabled #}
         (toHTMLInputElement self))

htmlInputElementGetForm ::
                        (HTMLInputElementClass self) => self -> IO (Maybe HTMLFormElement)
htmlInputElementGetForm self
  = maybeNull (makeNewGObject mkHTMLFormElement)
      ({# call webkit_dom_html_input_element_get_form #}
         (toHTMLInputElement self))

#if WEBKIT_CHECK_VERSION(1,10,0)
htmlInputElementSetFiles ::
                         (FileListClass val, HTMLInputElementClass self) =>
                           self -> Maybe val -> IO ()
htmlInputElementSetFiles self val
  = {# call webkit_dom_html_input_element_set_files #}
      (toHTMLInputElement self)
      (maybe (FileList nullForeignPtr) toFileList val)
#endif

htmlInputElementGetFiles ::
                         (HTMLInputElementClass self) => self -> IO (Maybe FileList)
htmlInputElementGetFiles self
  = maybeNull (makeNewGObject mkFileList)
      ({# call webkit_dom_html_input_element_get_files #}
         (toHTMLInputElement self))

htmlInputElementSetFormAction ::
                              (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetFormAction self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_form_action #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetFormAction ::
                              (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetFormAction self
  = ({# call webkit_dom_html_input_element_get_form_action #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetFormEnctype ::
                               (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetFormEnctype self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_form_enctype #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetFormEnctype ::
                               (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetFormEnctype self
  = ({# call webkit_dom_html_input_element_get_form_enctype #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetFormMethod ::
                              (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetFormMethod self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_form_method #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetFormMethod ::
                              (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetFormMethod self
  = ({# call webkit_dom_html_input_element_get_form_method #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetFormNoValidate ::
                                  (HTMLInputElementClass self) => self -> Bool -> IO ()
htmlInputElementSetFormNoValidate self val
  = {# call webkit_dom_html_input_element_set_form_no_validate #}
      (toHTMLInputElement self)
      (fromBool val)

htmlInputElementGetFormNoValidate ::
                                  (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementGetFormNoValidate self
  = toBool <$>
      ({# call webkit_dom_html_input_element_get_form_no_validate #}
         (toHTMLInputElement self))

htmlInputElementSetFormTarget ::
                              (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetFormTarget self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_form_target #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetFormTarget ::
                              (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetFormTarget self
  = ({# call webkit_dom_html_input_element_get_form_target #}
       (toHTMLInputElement self))
      >>=
      readUTFString

#if WEBKIT_CHECK_VERSION(1,10,0)
htmlInputElementSetHeight ::
                          (HTMLInputElementClass self) => self -> Word -> IO ()
htmlInputElementSetHeight self val
  = {# call webkit_dom_html_input_element_set_height #}
      (toHTMLInputElement self)
      (fromIntegral val)

htmlInputElementGetHeight ::
                          (HTMLInputElementClass self) => self -> IO Word
htmlInputElementGetHeight self
  = fromIntegral <$>
      ({# call webkit_dom_html_input_element_get_height #}
         (toHTMLInputElement self))
#endif

htmlInputElementSetIndeterminate ::
                                 (HTMLInputElementClass self) => self -> Bool -> IO ()
htmlInputElementSetIndeterminate self val
  = {# call webkit_dom_html_input_element_set_indeterminate #}
      (toHTMLInputElement self)
      (fromBool val)

htmlInputElementGetIndeterminate ::
                                 (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementGetIndeterminate self
  = toBool <$>
      ({# call webkit_dom_html_input_element_get_indeterminate #}
         (toHTMLInputElement self))

htmlInputElementGetList ::
                        (HTMLInputElementClass self) => self -> IO (Maybe HTMLElement)
htmlInputElementGetList self
  = maybeNull (makeNewGObject mkHTMLElement)
      ({# call webkit_dom_html_input_element_get_list #}
         (toHTMLInputElement self))

htmlInputElementSetMax ::
                       (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetMax self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_max #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetMax ::
                       (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetMax self
  = ({# call webkit_dom_html_input_element_get_max #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetMaxLength ::
                             (HTMLInputElementClass self) => self -> Int -> IO ()
htmlInputElementSetMaxLength self val
  = propagateGError $
      \ errorPtr_ ->
        {# call webkit_dom_html_input_element_set_max_length #}
          (toHTMLInputElement self)
          (fromIntegral val)
          errorPtr_

htmlInputElementGetMaxLength ::
                             (HTMLInputElementClass self) => self -> IO Int
htmlInputElementGetMaxLength self
  = fromIntegral <$>
      ({# call webkit_dom_html_input_element_get_max_length #}
         (toHTMLInputElement self))

htmlInputElementSetMin ::
                       (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetMin self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_min #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetMin ::
                       (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetMin self
  = ({# call webkit_dom_html_input_element_get_min #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetMultiple ::
                            (HTMLInputElementClass self) => self -> Bool -> IO ()
htmlInputElementSetMultiple self val
  = {# call webkit_dom_html_input_element_set_multiple #}
      (toHTMLInputElement self)
      (fromBool val)

htmlInputElementGetMultiple ::
                            (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementGetMultiple self
  = toBool <$>
      ({# call webkit_dom_html_input_element_get_multiple #}
         (toHTMLInputElement self))

htmlInputElementSetName ::
                        (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetName self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_name #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetName ::
                        (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetName self
  = ({# call webkit_dom_html_input_element_get_name #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetPattern ::
                           (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetPattern self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_pattern #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetPattern ::
                           (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetPattern self
  = ({# call webkit_dom_html_input_element_get_pattern #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetPlaceholder ::
                               (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetPlaceholder self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_placeholder #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetPlaceholder ::
                               (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetPlaceholder self
  = ({# call webkit_dom_html_input_element_get_placeholder #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetReadOnly ::
                            (HTMLInputElementClass self) => self -> Bool -> IO ()
htmlInputElementSetReadOnly self val
  = {# call webkit_dom_html_input_element_set_read_only #}
      (toHTMLInputElement self)
      (fromBool val)

htmlInputElementGetReadOnly ::
                            (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementGetReadOnly self
  = toBool <$>
      ({# call webkit_dom_html_input_element_get_read_only #}
         (toHTMLInputElement self))

htmlInputElementSetRequired ::
                            (HTMLInputElementClass self) => self -> Bool -> IO ()
htmlInputElementSetRequired self val
  = {# call webkit_dom_html_input_element_set_required #}
      (toHTMLInputElement self)
      (fromBool val)

htmlInputElementGetRequired ::
                            (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementGetRequired self
  = toBool <$>
      ({# call webkit_dom_html_input_element_get_required #}
         (toHTMLInputElement self))

htmlInputElementSetSize :: (HTMLInputElementClass self) => self -> Word -> IO ()
#if WEBKIT_CHECK_VERSION(2,0,0)
htmlInputElementSetSize self val = propagateGError $ \errorPtr ->
    {# call webkit_dom_html_input_element_set_size #} (toHTMLInputElement self) (fromIntegral val) errorPtr
#else
htmlInputElementSetSize self val = {# call webkit_dom_html_input_element_set_size #} (toHTMLInputElement self) (fromIntegral val)
#endif

htmlInputElementGetSize ::
                        (HTMLInputElementClass self) => self -> IO Word
htmlInputElementGetSize self
  = fromIntegral <$>
      ({# call webkit_dom_html_input_element_get_size #}
         (toHTMLInputElement self))

htmlInputElementSetSrc ::
                       (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetSrc self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_src #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetSrc ::
                       (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetSrc self
  = ({# call webkit_dom_html_input_element_get_src #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetStep ::
                        (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetStep self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_step #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetStep ::
                        (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetStep self
  = ({# call webkit_dom_html_input_element_get_step #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetDefaultValue ::
                                (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetDefaultValue self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_default_value #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetDefaultValue ::
                                (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetDefaultValue self
  = ({# call webkit_dom_html_input_element_get_default_value #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetValue ::
                         (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetValue self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_value #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetValue ::
                         (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetValue self
  = ({# call webkit_dom_html_input_element_get_value #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetValueAsNumber ::
                                 (HTMLInputElementClass self) => self -> Double -> IO ()
htmlInputElementSetValueAsNumber self val
  = propagateGError $
      \ errorPtr_ ->
        {# call webkit_dom_html_input_element_set_value_as_number #}
          (toHTMLInputElement self)
          (realToFrac val)
          errorPtr_

htmlInputElementGetValueAsNumber ::
                                 (HTMLInputElementClass self) => self -> IO Double
htmlInputElementGetValueAsNumber self
  = realToFrac <$>
      ({# call webkit_dom_html_input_element_get_value_as_number #}
         (toHTMLInputElement self))

#if WEBKIT_CHECK_VERSION(1,10,0)
htmlInputElementSetWidth ::
                         (HTMLInputElementClass self) => self -> Word -> IO ()
htmlInputElementSetWidth self val
  = {# call webkit_dom_html_input_element_set_width #}
      (toHTMLInputElement self)
      (fromIntegral val)

htmlInputElementGetWidth ::
                         (HTMLInputElementClass self) => self -> IO Word
htmlInputElementGetWidth self
  = fromIntegral <$>
      ({# call webkit_dom_html_input_element_get_width #}
         (toHTMLInputElement self))
#endif

htmlInputElementGetWillValidate ::
                                (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementGetWillValidate self
  = toBool <$>
      ({# call webkit_dom_html_input_element_get_will_validate #}
         (toHTMLInputElement self))

htmlInputElementGetValidity ::
                            (HTMLInputElementClass self) => self -> IO (Maybe ValidityState)
htmlInputElementGetValidity self
  = maybeNull (makeNewGObject mkValidityState)
      ({# call webkit_dom_html_input_element_get_validity #}
         (toHTMLInputElement self))

htmlInputElementGetValidationMessage ::
                                     (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetValidationMessage self
  = ({# call webkit_dom_html_input_element_get_validation_message #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementGetLabels ::
                          (HTMLInputElementClass self) => self -> IO (Maybe NodeList)
htmlInputElementGetLabels self
  = maybeNull (makeNewGObject mkNodeList)
      ({# call webkit_dom_html_input_element_get_labels #}
         (toHTMLInputElement self))

htmlInputElementSetAlign ::
                         (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetAlign self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_align #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetAlign ::
                         (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetAlign self
  = ({# call webkit_dom_html_input_element_get_align #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetWebkitdirectory ::
                                   (HTMLInputElementClass self) => self -> Bool -> IO ()
htmlInputElementSetWebkitdirectory self val
  = {# call webkit_dom_html_input_element_set_webkitdirectory #}
      (toHTMLInputElement self)
      (fromBool val)

htmlInputElementGetWebkitdirectory ::
                                   (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementGetWebkitdirectory self
  = toBool <$>
      ({# call webkit_dom_html_input_element_get_webkitdirectory #}
         (toHTMLInputElement self))

htmlInputElementSetUseMap ::
                          (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetUseMap self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_use_map #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetUseMap ::
                          (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetUseMap self
  = ({# call webkit_dom_html_input_element_get_use_map #}
       (toHTMLInputElement self))
      >>=
      readUTFString

htmlInputElementSetIncremental ::
                               (HTMLInputElementClass self) => self -> Bool -> IO ()
htmlInputElementSetIncremental self val
  = {# call webkit_dom_html_input_element_set_incremental #}
      (toHTMLInputElement self)
      (fromBool val)

htmlInputElementGetIncremental ::
                               (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementGetIncremental self
  = toBool <$>
      ({# call webkit_dom_html_input_element_get_incremental #}
         (toHTMLInputElement self))

htmlInputElementSetWebkitSpeech ::
                                (HTMLInputElementClass self) => self -> Bool -> IO ()
htmlInputElementSetWebkitSpeech self val
  = {# call webkit_dom_html_input_element_set_webkit_speech #}
      (toHTMLInputElement self)
      (fromBool val)

htmlInputElementGetWebkitSpeech ::
                                (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementGetWebkitSpeech self
  = toBool <$>
      ({# call webkit_dom_html_input_element_get_webkit_speech #}
         (toHTMLInputElement self))

htmlInputElementSetWebkitGrammar ::
                                 (HTMLInputElementClass self) => self -> Bool -> IO ()
htmlInputElementSetWebkitGrammar self val
  = {# call webkit_dom_html_input_element_set_webkit_grammar #}
      (toHTMLInputElement self)
      (fromBool val)

htmlInputElementGetWebkitGrammar ::
                                 (HTMLInputElementClass self) => self -> IO Bool
htmlInputElementGetWebkitGrammar self
  = toBool <$>
      ({# call webkit_dom_html_input_element_get_webkit_grammar #}
         (toHTMLInputElement self))

htmlInputElementOnwebkitspeechchange ::
                                     (HTMLInputElementClass self) =>
                                       Signal self (EventM UIEvent self ())
htmlInputElementOnwebkitspeechchange
  = (connect "webkitspeechchange")

#if WEBKIT_CHECK_VERSION(1,10,0)
htmlInputElementSetCapture ::
                           (HTMLInputElementClass self) => self -> String -> IO ()
htmlInputElementSetCapture self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_input_element_set_capture #}
          (toHTMLInputElement self)
          valPtr

htmlInputElementGetCapture ::
                           (HTMLInputElementClass self) => self -> IO String
htmlInputElementGetCapture self
  = ({# call webkit_dom_html_input_element_get_capture #}
       (toHTMLInputElement self))
      >>=
      readUTFString
#endif