module GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement
(js_checkValidity, checkValidity, checkValidity_,
js_setCustomValidity, setCustomValidity, js_setAutofocus,
setAutofocus, js_getAutofocus, getAutofocus, js_setChallenge,
setChallenge, js_getChallenge, getChallenge, js_setDisabled,
setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,
getFormUnsafe, getFormUnchecked, js_setKeytype, setKeytype,
js_getKeytype, getKeytype, js_setName, setName, js_getName,
getName, js_getType, getType, js_getWillValidate, getWillValidate,
js_getValidity, getValidity, getValidityUnsafe,
getValidityUnchecked, js_getValidationMessage,
getValidationMessage, js_getLabels, getLabels, getLabelsUnsafe,
getLabelsUnchecked, HTMLKeygenElement(..), gTypeHTMLKeygenElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import qualified Prelude (error)
import Data.Typeable (Typeable)
import GHCJS.Types (JSVal(..), JSString)
import GHCJS.Foreign (jsNull)
import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Data.Maybe (fromJust)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.Enums
foreign import javascript unsafe
"($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::
HTMLKeygenElement -> IO Bool
checkValidity :: (MonadIO m) => HTMLKeygenElement -> m Bool
checkValidity self = liftIO (js_checkValidity (self))
checkValidity_ :: (MonadIO m) => HTMLKeygenElement -> m ()
checkValidity_ self = liftIO (void (js_checkValidity (self)))
foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"
js_setCustomValidity ::
HTMLKeygenElement -> Nullable JSString -> IO ()
setCustomValidity ::
(MonadIO m, ToJSString error) =>
HTMLKeygenElement -> Maybe error -> m ()
setCustomValidity self error
= liftIO (js_setCustomValidity (self) (toMaybeJSString error))
foreign import javascript unsafe "$1[\"autofocus\"] = $2;"
js_setAutofocus :: HTMLKeygenElement -> Bool -> IO ()
setAutofocus :: (MonadIO m) => HTMLKeygenElement -> Bool -> m ()
setAutofocus self val = liftIO (js_setAutofocus (self) val)
foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"
js_getAutofocus :: HTMLKeygenElement -> IO Bool
getAutofocus :: (MonadIO m) => HTMLKeygenElement -> m Bool
getAutofocus self = liftIO (js_getAutofocus (self))
foreign import javascript unsafe "$1[\"challenge\"] = $2;"
js_setChallenge :: HTMLKeygenElement -> JSString -> IO ()
setChallenge ::
(MonadIO m, ToJSString val) => HTMLKeygenElement -> val -> m ()
setChallenge self val
= liftIO (js_setChallenge (self) (toJSString val))
foreign import javascript unsafe "$1[\"challenge\"]"
js_getChallenge :: HTMLKeygenElement -> IO JSString
getChallenge ::
(MonadIO m, FromJSString result) => HTMLKeygenElement -> m result
getChallenge self
= liftIO (fromJSString <$> (js_getChallenge (self)))
foreign import javascript unsafe "$1[\"disabled\"] = $2;"
js_setDisabled :: HTMLKeygenElement -> Bool -> IO ()
setDisabled :: (MonadIO m) => HTMLKeygenElement -> Bool -> m ()
setDisabled self val = liftIO (js_setDisabled (self) val)
foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"
js_getDisabled :: HTMLKeygenElement -> IO Bool
getDisabled :: (MonadIO m) => HTMLKeygenElement -> m Bool
getDisabled self = liftIO (js_getDisabled (self))
foreign import javascript unsafe "$1[\"form\"]" js_getForm ::
HTMLKeygenElement -> IO (Nullable HTMLFormElement)
getForm ::
(MonadIO m) => HTMLKeygenElement -> m (Maybe HTMLFormElement)
getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))
getFormUnsafe ::
(MonadIO m, HasCallStack) => HTMLKeygenElement -> m HTMLFormElement
getFormUnsafe self
= liftIO
((nullableToMaybe <$> (js_getForm (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getFormUnchecked ::
(MonadIO m) => HTMLKeygenElement -> m HTMLFormElement
getFormUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))
foreign import javascript unsafe "$1[\"keytype\"] = $2;"
js_setKeytype :: HTMLKeygenElement -> JSString -> IO ()
setKeytype ::
(MonadIO m, ToJSString val) => HTMLKeygenElement -> val -> m ()
setKeytype self val
= liftIO (js_setKeytype (self) (toJSString val))
foreign import javascript unsafe "$1[\"keytype\"]" js_getKeytype ::
HTMLKeygenElement -> IO JSString
getKeytype ::
(MonadIO m, FromJSString result) => HTMLKeygenElement -> m result
getKeytype self = liftIO (fromJSString <$> (js_getKeytype (self)))
foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::
HTMLKeygenElement -> JSString -> IO ()
setName ::
(MonadIO m, ToJSString val) => HTMLKeygenElement -> val -> m ()
setName self val = liftIO (js_setName (self) (toJSString val))
foreign import javascript unsafe "$1[\"name\"]" js_getName ::
HTMLKeygenElement -> IO JSString
getName ::
(MonadIO m, FromJSString result) => HTMLKeygenElement -> m result
getName self = liftIO (fromJSString <$> (js_getName (self)))
foreign import javascript unsafe "$1[\"type\"]" js_getType ::
HTMLKeygenElement -> IO JSString
getType ::
(MonadIO m, FromJSString result) => HTMLKeygenElement -> m result
getType self = liftIO (fromJSString <$> (js_getType (self)))
foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"
js_getWillValidate :: HTMLKeygenElement -> IO Bool
getWillValidate :: (MonadIO m) => HTMLKeygenElement -> m Bool
getWillValidate self = liftIO (js_getWillValidate (self))
foreign import javascript unsafe "$1[\"validity\"]" js_getValidity
:: HTMLKeygenElement -> IO (Nullable ValidityState)
getValidity ::
(MonadIO m) => HTMLKeygenElement -> m (Maybe ValidityState)
getValidity self
= liftIO (nullableToMaybe <$> (js_getValidity (self)))
getValidityUnsafe ::
(MonadIO m, HasCallStack) => HTMLKeygenElement -> m ValidityState
getValidityUnsafe self
= liftIO
((nullableToMaybe <$> (js_getValidity (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getValidityUnchecked ::
(MonadIO m) => HTMLKeygenElement -> m ValidityState
getValidityUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))
foreign import javascript unsafe "$1[\"validationMessage\"]"
js_getValidationMessage :: HTMLKeygenElement -> IO JSString
getValidationMessage ::
(MonadIO m, FromJSString result) => HTMLKeygenElement -> m result
getValidationMessage self
= liftIO (fromJSString <$> (js_getValidationMessage (self)))
foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::
HTMLKeygenElement -> IO (Nullable NodeList)
getLabels :: (MonadIO m) => HTMLKeygenElement -> m (Maybe NodeList)
getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))
getLabelsUnsafe ::
(MonadIO m, HasCallStack) => HTMLKeygenElement -> m NodeList
getLabelsUnsafe self
= liftIO
((nullableToMaybe <$> (js_getLabels (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getLabelsUnchecked ::
(MonadIO m) => HTMLKeygenElement -> m NodeList
getLabelsUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))