module GI.WebKit.Objects.DOMValidityState
(
DOMValidityState(..) ,
DOMValidityStateK ,
toDOMValidityState ,
noDOMValidityState ,
dOMValidityStateGetBadInput ,
dOMValidityStateGetCustomError ,
dOMValidityStateGetPatternMismatch ,
dOMValidityStateGetRangeOverflow ,
dOMValidityStateGetRangeUnderflow ,
dOMValidityStateGetStepMismatch ,
dOMValidityStateGetTooLong ,
dOMValidityStateGetTypeMismatch ,
dOMValidityStateGetValid ,
dOMValidityStateGetValueMissing ,
DOMValidityStateBadInputPropertyInfo ,
getDOMValidityStateBadInput ,
DOMValidityStateCustomErrorPropertyInfo ,
getDOMValidityStateCustomError ,
DOMValidityStatePatternMismatchPropertyInfo,
getDOMValidityStatePatternMismatch ,
DOMValidityStateRangeOverflowPropertyInfo,
getDOMValidityStateRangeOverflow ,
DOMValidityStateRangeUnderflowPropertyInfo,
getDOMValidityStateRangeUnderflow ,
DOMValidityStateStepMismatchPropertyInfo,
getDOMValidityStateStepMismatch ,
DOMValidityStateTooLongPropertyInfo ,
getDOMValidityStateTooLong ,
DOMValidityStateTypeMismatchPropertyInfo,
getDOMValidityStateTypeMismatch ,
DOMValidityStateValidPropertyInfo ,
getDOMValidityStateValid ,
DOMValidityStateValueMissingPropertyInfo,
getDOMValidityStateValueMissing ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
newtype DOMValidityState = DOMValidityState (ForeignPtr DOMValidityState)
foreign import ccall "webkit_dom_validity_state_get_type"
c_webkit_dom_validity_state_get_type :: IO GType
type instance ParentTypes DOMValidityState = DOMValidityStateParentTypes
type DOMValidityStateParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMValidityState where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_validity_state_get_type
class GObject o => DOMValidityStateK o
instance (GObject o, IsDescendantOf DOMValidityState o) => DOMValidityStateK o
toDOMValidityState :: DOMValidityStateK o => o -> IO DOMValidityState
toDOMValidityState = unsafeCastTo DOMValidityState
noDOMValidityState :: Maybe DOMValidityState
noDOMValidityState = Nothing
getDOMValidityStateBadInput :: (MonadIO m, DOMValidityStateK o) => o -> m Bool
getDOMValidityStateBadInput obj = liftIO $ getObjectPropertyBool obj "bad-input"
data DOMValidityStateBadInputPropertyInfo
instance AttrInfo DOMValidityStateBadInputPropertyInfo where
type AttrAllowedOps DOMValidityStateBadInputPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMValidityStateBadInputPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMValidityStateBadInputPropertyInfo = DOMValidityStateK
type AttrGetType DOMValidityStateBadInputPropertyInfo = Bool
type AttrLabel DOMValidityStateBadInputPropertyInfo = "DOMValidityState::bad-input"
attrGet _ = getDOMValidityStateBadInput
attrSet _ = undefined
attrConstruct _ = undefined
getDOMValidityStateCustomError :: (MonadIO m, DOMValidityStateK o) => o -> m Bool
getDOMValidityStateCustomError obj = liftIO $ getObjectPropertyBool obj "custom-error"
data DOMValidityStateCustomErrorPropertyInfo
instance AttrInfo DOMValidityStateCustomErrorPropertyInfo where
type AttrAllowedOps DOMValidityStateCustomErrorPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMValidityStateCustomErrorPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMValidityStateCustomErrorPropertyInfo = DOMValidityStateK
type AttrGetType DOMValidityStateCustomErrorPropertyInfo = Bool
type AttrLabel DOMValidityStateCustomErrorPropertyInfo = "DOMValidityState::custom-error"
attrGet _ = getDOMValidityStateCustomError
attrSet _ = undefined
attrConstruct _ = undefined
getDOMValidityStatePatternMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool
getDOMValidityStatePatternMismatch obj = liftIO $ getObjectPropertyBool obj "pattern-mismatch"
data DOMValidityStatePatternMismatchPropertyInfo
instance AttrInfo DOMValidityStatePatternMismatchPropertyInfo where
type AttrAllowedOps DOMValidityStatePatternMismatchPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMValidityStatePatternMismatchPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMValidityStatePatternMismatchPropertyInfo = DOMValidityStateK
type AttrGetType DOMValidityStatePatternMismatchPropertyInfo = Bool
type AttrLabel DOMValidityStatePatternMismatchPropertyInfo = "DOMValidityState::pattern-mismatch"
attrGet _ = getDOMValidityStatePatternMismatch
attrSet _ = undefined
attrConstruct _ = undefined
getDOMValidityStateRangeOverflow :: (MonadIO m, DOMValidityStateK o) => o -> m Bool
getDOMValidityStateRangeOverflow obj = liftIO $ getObjectPropertyBool obj "range-overflow"
data DOMValidityStateRangeOverflowPropertyInfo
instance AttrInfo DOMValidityStateRangeOverflowPropertyInfo where
type AttrAllowedOps DOMValidityStateRangeOverflowPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMValidityStateRangeOverflowPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMValidityStateRangeOverflowPropertyInfo = DOMValidityStateK
type AttrGetType DOMValidityStateRangeOverflowPropertyInfo = Bool
type AttrLabel DOMValidityStateRangeOverflowPropertyInfo = "DOMValidityState::range-overflow"
attrGet _ = getDOMValidityStateRangeOverflow
attrSet _ = undefined
attrConstruct _ = undefined
getDOMValidityStateRangeUnderflow :: (MonadIO m, DOMValidityStateK o) => o -> m Bool
getDOMValidityStateRangeUnderflow obj = liftIO $ getObjectPropertyBool obj "range-underflow"
data DOMValidityStateRangeUnderflowPropertyInfo
instance AttrInfo DOMValidityStateRangeUnderflowPropertyInfo where
type AttrAllowedOps DOMValidityStateRangeUnderflowPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMValidityStateRangeUnderflowPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMValidityStateRangeUnderflowPropertyInfo = DOMValidityStateK
type AttrGetType DOMValidityStateRangeUnderflowPropertyInfo = Bool
type AttrLabel DOMValidityStateRangeUnderflowPropertyInfo = "DOMValidityState::range-underflow"
attrGet _ = getDOMValidityStateRangeUnderflow
attrSet _ = undefined
attrConstruct _ = undefined
getDOMValidityStateStepMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool
getDOMValidityStateStepMismatch obj = liftIO $ getObjectPropertyBool obj "step-mismatch"
data DOMValidityStateStepMismatchPropertyInfo
instance AttrInfo DOMValidityStateStepMismatchPropertyInfo where
type AttrAllowedOps DOMValidityStateStepMismatchPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMValidityStateStepMismatchPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMValidityStateStepMismatchPropertyInfo = DOMValidityStateK
type AttrGetType DOMValidityStateStepMismatchPropertyInfo = Bool
type AttrLabel DOMValidityStateStepMismatchPropertyInfo = "DOMValidityState::step-mismatch"
attrGet _ = getDOMValidityStateStepMismatch
attrSet _ = undefined
attrConstruct _ = undefined
getDOMValidityStateTooLong :: (MonadIO m, DOMValidityStateK o) => o -> m Bool
getDOMValidityStateTooLong obj = liftIO $ getObjectPropertyBool obj "too-long"
data DOMValidityStateTooLongPropertyInfo
instance AttrInfo DOMValidityStateTooLongPropertyInfo where
type AttrAllowedOps DOMValidityStateTooLongPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMValidityStateTooLongPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMValidityStateTooLongPropertyInfo = DOMValidityStateK
type AttrGetType DOMValidityStateTooLongPropertyInfo = Bool
type AttrLabel DOMValidityStateTooLongPropertyInfo = "DOMValidityState::too-long"
attrGet _ = getDOMValidityStateTooLong
attrSet _ = undefined
attrConstruct _ = undefined
getDOMValidityStateTypeMismatch :: (MonadIO m, DOMValidityStateK o) => o -> m Bool
getDOMValidityStateTypeMismatch obj = liftIO $ getObjectPropertyBool obj "type-mismatch"
data DOMValidityStateTypeMismatchPropertyInfo
instance AttrInfo DOMValidityStateTypeMismatchPropertyInfo where
type AttrAllowedOps DOMValidityStateTypeMismatchPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMValidityStateTypeMismatchPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMValidityStateTypeMismatchPropertyInfo = DOMValidityStateK
type AttrGetType DOMValidityStateTypeMismatchPropertyInfo = Bool
type AttrLabel DOMValidityStateTypeMismatchPropertyInfo = "DOMValidityState::type-mismatch"
attrGet _ = getDOMValidityStateTypeMismatch
attrSet _ = undefined
attrConstruct _ = undefined
getDOMValidityStateValid :: (MonadIO m, DOMValidityStateK o) => o -> m Bool
getDOMValidityStateValid obj = liftIO $ getObjectPropertyBool obj "valid"
data DOMValidityStateValidPropertyInfo
instance AttrInfo DOMValidityStateValidPropertyInfo where
type AttrAllowedOps DOMValidityStateValidPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMValidityStateValidPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMValidityStateValidPropertyInfo = DOMValidityStateK
type AttrGetType DOMValidityStateValidPropertyInfo = Bool
type AttrLabel DOMValidityStateValidPropertyInfo = "DOMValidityState::valid"
attrGet _ = getDOMValidityStateValid
attrSet _ = undefined
attrConstruct _ = undefined
getDOMValidityStateValueMissing :: (MonadIO m, DOMValidityStateK o) => o -> m Bool
getDOMValidityStateValueMissing obj = liftIO $ getObjectPropertyBool obj "value-missing"
data DOMValidityStateValueMissingPropertyInfo
instance AttrInfo DOMValidityStateValueMissingPropertyInfo where
type AttrAllowedOps DOMValidityStateValueMissingPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMValidityStateValueMissingPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMValidityStateValueMissingPropertyInfo = DOMValidityStateK
type AttrGetType DOMValidityStateValueMissingPropertyInfo = Bool
type AttrLabel DOMValidityStateValueMissingPropertyInfo = "DOMValidityState::value-missing"
attrGet _ = getDOMValidityStateValueMissing
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMValidityState = DOMValidityStateAttributeList
type DOMValidityStateAttributeList = ('[ '("bad-input", DOMValidityStateBadInputPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("custom-error", DOMValidityStateCustomErrorPropertyInfo), '("pattern-mismatch", DOMValidityStatePatternMismatchPropertyInfo), '("range-overflow", DOMValidityStateRangeOverflowPropertyInfo), '("range-underflow", DOMValidityStateRangeUnderflowPropertyInfo), '("step-mismatch", DOMValidityStateStepMismatchPropertyInfo), '("too-long", DOMValidityStateTooLongPropertyInfo), '("type-mismatch", DOMValidityStateTypeMismatchPropertyInfo), '("valid", DOMValidityStateValidPropertyInfo), '("value-missing", DOMValidityStateValueMissingPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMValidityState = DOMValidityStateSignalList
type DOMValidityStateSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_validity_state_get_bad_input" webkit_dom_validity_state_get_bad_input ::
Ptr DOMValidityState ->
IO CInt
dOMValidityStateGetBadInput ::
(MonadIO m, DOMValidityStateK a) =>
a ->
m Bool
dOMValidityStateGetBadInput _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_bad_input _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_validity_state_get_custom_error" webkit_dom_validity_state_get_custom_error ::
Ptr DOMValidityState ->
IO CInt
dOMValidityStateGetCustomError ::
(MonadIO m, DOMValidityStateK a) =>
a ->
m Bool
dOMValidityStateGetCustomError _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_custom_error _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_validity_state_get_pattern_mismatch" webkit_dom_validity_state_get_pattern_mismatch ::
Ptr DOMValidityState ->
IO CInt
dOMValidityStateGetPatternMismatch ::
(MonadIO m, DOMValidityStateK a) =>
a ->
m Bool
dOMValidityStateGetPatternMismatch _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_pattern_mismatch _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_validity_state_get_range_overflow" webkit_dom_validity_state_get_range_overflow ::
Ptr DOMValidityState ->
IO CInt
dOMValidityStateGetRangeOverflow ::
(MonadIO m, DOMValidityStateK a) =>
a ->
m Bool
dOMValidityStateGetRangeOverflow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_range_overflow _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_validity_state_get_range_underflow" webkit_dom_validity_state_get_range_underflow ::
Ptr DOMValidityState ->
IO CInt
dOMValidityStateGetRangeUnderflow ::
(MonadIO m, DOMValidityStateK a) =>
a ->
m Bool
dOMValidityStateGetRangeUnderflow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_range_underflow _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_validity_state_get_step_mismatch" webkit_dom_validity_state_get_step_mismatch ::
Ptr DOMValidityState ->
IO CInt
dOMValidityStateGetStepMismatch ::
(MonadIO m, DOMValidityStateK a) =>
a ->
m Bool
dOMValidityStateGetStepMismatch _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_step_mismatch _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_validity_state_get_too_long" webkit_dom_validity_state_get_too_long ::
Ptr DOMValidityState ->
IO CInt
dOMValidityStateGetTooLong ::
(MonadIO m, DOMValidityStateK a) =>
a ->
m Bool
dOMValidityStateGetTooLong _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_too_long _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_validity_state_get_type_mismatch" webkit_dom_validity_state_get_type_mismatch ::
Ptr DOMValidityState ->
IO CInt
dOMValidityStateGetTypeMismatch ::
(MonadIO m, DOMValidityStateK a) =>
a ->
m Bool
dOMValidityStateGetTypeMismatch _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_type_mismatch _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_validity_state_get_valid" webkit_dom_validity_state_get_valid ::
Ptr DOMValidityState ->
IO CInt
dOMValidityStateGetValid ::
(MonadIO m, DOMValidityStateK a) =>
a ->
m Bool
dOMValidityStateGetValid _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_valid _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_validity_state_get_value_missing" webkit_dom_validity_state_get_value_missing ::
Ptr DOMValidityState ->
IO CInt
dOMValidityStateGetValueMissing ::
(MonadIO m, DOMValidityStateK a) =>
a ->
m Bool
dOMValidityStateGetValueMissing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_validity_state_get_value_missing _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'