ValidityState.chs

module Graphics.UI.Gtk.WebKit.DOM.ValidityState
       (validityStateGetValueMissing, validityStateGetTypeMismatch,
        validityStateGetPatternMismatch, validityStateGetTooLong,
        validityStateGetRangeUnderflow, validityStateGetRangeOverflow,
        validityStateGetStepMismatch,
#if WEBKIT_CHECK_VERSION(2,2,2)
        validityStateGetBadInput,
#endif
        validityStateGetCustomError, validityStateGetValid, ValidityState,
        ValidityStateClass, castToValidityState, gTypeValidityState,
        toValidityState)
       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
 
validityStateGetValueMissing ::
                             (ValidityStateClass self) => self -> IO Bool
validityStateGetValueMissing self
  = toBool <$>
      ({# call webkit_dom_validity_state_get_value_missing #}
         (toValidityState self))
 
validityStateGetTypeMismatch ::
                             (ValidityStateClass self) => self -> IO Bool
validityStateGetTypeMismatch self
  = toBool <$>
      ({# call webkit_dom_validity_state_get_type_mismatch #}
         (toValidityState self))
 
validityStateGetPatternMismatch ::
                                (ValidityStateClass self) => self -> IO Bool
validityStateGetPatternMismatch self
  = toBool <$>
      ({# call webkit_dom_validity_state_get_pattern_mismatch #}
         (toValidityState self))
 
validityStateGetTooLong ::
                        (ValidityStateClass self) => self -> IO Bool
validityStateGetTooLong self
  = toBool <$>
      ({# call webkit_dom_validity_state_get_too_long #}
         (toValidityState self))
 
validityStateGetRangeUnderflow ::
                               (ValidityStateClass self) => self -> IO Bool
validityStateGetRangeUnderflow self
  = toBool <$>
      ({# call webkit_dom_validity_state_get_range_underflow #}
         (toValidityState self))
 
validityStateGetRangeOverflow ::
                              (ValidityStateClass self) => self -> IO Bool
validityStateGetRangeOverflow self
  = toBool <$>
      ({# call webkit_dom_validity_state_get_range_overflow #}
         (toValidityState self))
 
validityStateGetStepMismatch ::
                             (ValidityStateClass self) => self -> IO Bool
validityStateGetStepMismatch self
  = toBool <$>
      ({# call webkit_dom_validity_state_get_step_mismatch #}
         (toValidityState self))
 
#if WEBKIT_CHECK_VERSION(2,2,2)
validityStateGetBadInput ::
                         (ValidityStateClass self) => self -> IO Bool
validityStateGetBadInput self
  = toBool <$>
      ({# call webkit_dom_validity_state_get_bad_input #}
         (toValidityState self))
#endif
 
validityStateGetCustomError ::
                            (ValidityStateClass self) => self -> IO Bool
validityStateGetCustomError self
  = toBool <$>
      ({# call webkit_dom_validity_state_get_custom_error #}
         (toValidityState self))
 
validityStateGetValid ::
                      (ValidityStateClass self) => self -> IO Bool
validityStateGetValid self
  = toBool <$>
      ({# call webkit_dom_validity_state_get_valid #}
         (toValidityState self))