{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement (js_checkValidity, checkValidity, js_setCustomValidity, setCustomValidity, js_setDisabled, setDisabled, js_getDisabled, getDisabled, js_getForm, getForm, js_setName, setName, js_getName, getName, js_getType, getType, js_getElements, getElements, js_getWillValidate, getWillValidate, js_getValidity, getValidity, js_getValidationMessage, getValidationMessage, HTMLFieldSetElement, castToHTMLFieldSetElement, gTypeHTMLFieldSetElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: JSRef HTMLFieldSetElement -> IO Bool -- | checkValidity :: (MonadIO m) => HTMLFieldSetElement -> m Bool checkValidity self = liftIO (js_checkValidity (unHTMLFieldSetElement self)) foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" js_setCustomValidity :: JSRef HTMLFieldSetElement -> JSRef (Maybe JSString) -> IO () -- | setCustomValidity :: (MonadIO m, ToJSString error) => HTMLFieldSetElement -> Maybe error -> m () setCustomValidity self error = liftIO (js_setCustomValidity (unHTMLFieldSetElement self) (toMaybeJSString error)) foreign import javascript unsafe "$1[\"disabled\"] = $2;" js_setDisabled :: JSRef HTMLFieldSetElement -> Bool -> IO () -- | setDisabled :: (MonadIO m) => HTMLFieldSetElement -> Bool -> m () setDisabled self val = liftIO (js_setDisabled (unHTMLFieldSetElement self) val) foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" js_getDisabled :: JSRef HTMLFieldSetElement -> IO Bool -- | getDisabled :: (MonadIO m) => HTMLFieldSetElement -> m Bool getDisabled self = liftIO (js_getDisabled (unHTMLFieldSetElement self)) foreign import javascript unsafe "$1[\"form\"]" js_getForm :: JSRef HTMLFieldSetElement -> IO (JSRef HTMLFormElement) -- | getForm :: (MonadIO m) => HTMLFieldSetElement -> m (Maybe HTMLFormElement) getForm self = liftIO ((js_getForm (unHTMLFieldSetElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: JSRef HTMLFieldSetElement -> JSString -> IO () -- | setName :: (MonadIO m, ToJSString val) => HTMLFieldSetElement -> val -> m () setName self val = liftIO (js_setName (unHTMLFieldSetElement self) (toJSString val)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: JSRef HTMLFieldSetElement -> IO JSString -- | getName :: (MonadIO m, FromJSString result) => HTMLFieldSetElement -> m result getName self = liftIO (fromJSString <$> (js_getName (unHTMLFieldSetElement self))) foreign import javascript unsafe "$1[\"type\"]" js_getType :: JSRef HTMLFieldSetElement -> IO JSString -- | getType :: (MonadIO m, FromJSString result) => HTMLFieldSetElement -> m result getType self = liftIO (fromJSString <$> (js_getType (unHTMLFieldSetElement self))) foreign import javascript unsafe "$1[\"elements\"]" js_getElements :: JSRef HTMLFieldSetElement -> IO (JSRef HTMLCollection) -- | getElements :: (MonadIO m) => HTMLFieldSetElement -> m (Maybe HTMLCollection) getElements self = liftIO ((js_getElements (unHTMLFieldSetElement self)) >>= fromJSRef) foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" js_getWillValidate :: JSRef HTMLFieldSetElement -> IO Bool -- | getWillValidate :: (MonadIO m) => HTMLFieldSetElement -> m Bool getWillValidate self = liftIO (js_getWillValidate (unHTMLFieldSetElement self)) foreign import javascript unsafe "$1[\"validity\"]" js_getValidity :: JSRef HTMLFieldSetElement -> IO (JSRef ValidityState) -- | getValidity :: (MonadIO m) => HTMLFieldSetElement -> m (Maybe ValidityState) getValidity self = liftIO ((js_getValidity (unHTMLFieldSetElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"validationMessage\"]" js_getValidationMessage :: JSRef HTMLFieldSetElement -> IO JSString -- | getValidationMessage :: (MonadIO m, FromJSString result) => HTMLFieldSetElement -> m result getValidationMessage self = liftIO (fromJSString <$> (js_getValidationMessage (unHTMLFieldSetElement self)))