-- GENERATED by C->Haskell Compiler, version 0.13.13 (gtk2hs branch) "Bin IO", 27 May 2012 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 "./Graphics/UI/Gtk/WebKit/DOM/ValidityState.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.ValidityState(
getValueMissing,
getTypeMismatch,
getPatternMismatch,
getTooLong,
getRangeUnderflow,
getRangeOverflow,
getStepMismatch,
getBadInput,
getCustomError,
getValid,
ValidityState,
castToValidityState,
gTypeValidityState,
ValidityStateClass,
toValidityState,
) where
import Prelude hiding (drop, error, print)
import Data.Typeable (Typeable)
import Foreign.Marshal (maybePeek, maybeWith)
import System.Glib.FFI (maybeNull, withForeignPtr, nullForeignPtr, Ptr, nullPtr, castPtr, Word, Int64, Word64, CChar(..), CInt(..), CUInt(..), CLong(..), CULong(..), CLLong(..), CULLong(..), CShort(..), CUShort(..), CFloat(..), CDouble(..), toBool, fromBool)
import System.Glib.UTFString (GlibString(..), readUTFString)
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures
import Graphics.UI.Gtk.WebKit.DOM.EventM
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 31 "./Graphics/UI/Gtk/WebKit/DOM/ValidityState.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
getValueMissing ::
                (MonadIO m, ValidityStateClass self) => self -> m Bool
getValueMissing self
  = liftIO
      (toBool <$>
         ((\(ValidityState arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_validity_state_get_value_missing argPtr1)
{-# LINE 40 "./Graphics/UI/Gtk/WebKit/DOM/ValidityState.chs" #-}
            (toValidityState self)))
 
getTypeMismatch ::
                (MonadIO m, ValidityStateClass self) => self -> m Bool
getTypeMismatch self
  = liftIO
      (toBool <$>
         ((\(ValidityState arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_validity_state_get_type_mismatch argPtr1)
{-# LINE 48 "./Graphics/UI/Gtk/WebKit/DOM/ValidityState.chs" #-}
            (toValidityState self)))
 
getPatternMismatch ::
                   (MonadIO m, ValidityStateClass self) => self -> m Bool
getPatternMismatch self
  = liftIO
      (toBool <$>
         ((\(ValidityState arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_validity_state_get_pattern_mismatch argPtr1)
{-# LINE 56 "./Graphics/UI/Gtk/WebKit/DOM/ValidityState.chs" #-}
            (toValidityState self)))
 
getTooLong ::
           (MonadIO m, ValidityStateClass self) => self -> m Bool
getTooLong self
  = liftIO
      (toBool <$>
         ((\(ValidityState arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_validity_state_get_too_long argPtr1)
{-# LINE 64 "./Graphics/UI/Gtk/WebKit/DOM/ValidityState.chs" #-}
            (toValidityState self)))
 
getRangeUnderflow ::
                  (MonadIO m, ValidityStateClass self) => self -> m Bool
getRangeUnderflow self
  = liftIO
      (toBool <$>
         ((\(ValidityState arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_validity_state_get_range_underflow argPtr1)
{-# LINE 72 "./Graphics/UI/Gtk/WebKit/DOM/ValidityState.chs" #-}
            (toValidityState self)))
 
getRangeOverflow ::
                 (MonadIO m, ValidityStateClass self) => self -> m Bool
getRangeOverflow self
  = liftIO
      (toBool <$>
         ((\(ValidityState arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_validity_state_get_range_overflow argPtr1)
{-# LINE 80 "./Graphics/UI/Gtk/WebKit/DOM/ValidityState.chs" #-}
            (toValidityState self)))
 
getStepMismatch ::
                (MonadIO m, ValidityStateClass self) => self -> m Bool
getStepMismatch self
  = liftIO
      (toBool <$>
         ((\(ValidityState arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_validity_state_get_step_mismatch argPtr1)
{-# LINE 88 "./Graphics/UI/Gtk/WebKit/DOM/ValidityState.chs" #-}
            (toValidityState self)))

getBadInput ::
            (MonadIO m, ValidityStateClass self) => self -> m Bool
getBadInput self
  = liftIO
      (toBool <$>
         ((\(ValidityState arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_validity_state_get_bad_input argPtr1)
{-# LINE 97 "./Graphics/UI/Gtk/WebKit/DOM/ValidityState.chs" #-}
            (toValidityState self)))
 
getCustomError ::
               (MonadIO m, ValidityStateClass self) => self -> m Bool
getCustomError self
  = liftIO
      (toBool <$>
         ((\(ValidityState arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_validity_state_get_custom_error argPtr1)
{-# LINE 106 "./Graphics/UI/Gtk/WebKit/DOM/ValidityState.chs" #-}
            (toValidityState self)))
 
getValid :: (MonadIO m, ValidityStateClass self) => self -> m Bool
getValid self
  = liftIO
      (toBool <$>
         ((\(ValidityState arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_validity_state_get_valid argPtr1)
{-# LINE 113 "./Graphics/UI/Gtk/WebKit/DOM/ValidityState.chs" #-}
            (toValidityState self)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/ValidityState.h webkit_dom_validity_state_get_value_missing"
  webkit_dom_validity_state_get_value_missing :: ((Ptr ValidityState) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/ValidityState.h webkit_dom_validity_state_get_type_mismatch"
  webkit_dom_validity_state_get_type_mismatch :: ((Ptr ValidityState) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/ValidityState.h webkit_dom_validity_state_get_pattern_mismatch"
  webkit_dom_validity_state_get_pattern_mismatch :: ((Ptr ValidityState) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/ValidityState.h webkit_dom_validity_state_get_too_long"
  webkit_dom_validity_state_get_too_long :: ((Ptr ValidityState) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/ValidityState.h webkit_dom_validity_state_get_range_underflow"
  webkit_dom_validity_state_get_range_underflow :: ((Ptr ValidityState) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/ValidityState.h webkit_dom_validity_state_get_range_overflow"
  webkit_dom_validity_state_get_range_overflow :: ((Ptr ValidityState) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/ValidityState.h webkit_dom_validity_state_get_step_mismatch"
  webkit_dom_validity_state_get_step_mismatch :: ((Ptr ValidityState) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/ValidityState.h webkit_dom_validity_state_get_bad_input"
  webkit_dom_validity_state_get_bad_input :: ((Ptr ValidityState) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/ValidityState.h webkit_dom_validity_state_get_custom_error"
  webkit_dom_validity_state_get_custom_error :: ((Ptr ValidityState) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/ValidityState.h webkit_dom_validity_state_get_valid"
  webkit_dom_validity_state_get_valid :: ((Ptr ValidityState) -> (IO CInt))