{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLButtonElement (js_checkValidity, checkValidity, checkValidity_, js_reportValidity, reportValidity, reportValidity_, js_setCustomValidity, setCustomValidity, js_setAutofocus, setAutofocus, js_getAutofocus, getAutofocus, js_setDisabled, setDisabled, js_getDisabled, getDisabled, js_getForm, getForm, js_setFormAction, setFormAction, js_getFormAction, getFormAction, js_setFormEnctype, setFormEnctype, js_getFormEnctype, getFormEnctype, js_setFormMethod, setFormMethod, js_getFormMethod, getFormMethod, js_setType, setType, js_getType, getType, js_setFormNoValidate, setFormNoValidate, js_getFormNoValidate, getFormNoValidate, js_setFormTarget, setFormTarget, js_getFormTarget, getFormTarget, js_setName, setName, js_getName, getName, js_setValue, setValue, js_getValue, getValue, js_getWillValidate, getWillValidate, js_getValidity, getValidity, js_getValidationMessage, getValidationMessage, js_getLabels, getLabels, HTMLButtonElement(..), gTypeHTMLButtonElement) 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, jsUndefined) 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 Data.Traversable (mapM) 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 :: HTMLButtonElement -> IO Bool -- | checkValidity :: (MonadIO m) => HTMLButtonElement -> m Bool checkValidity self = liftIO (js_checkValidity self) -- | checkValidity_ :: (MonadIO m) => HTMLButtonElement -> m () checkValidity_ self = liftIO (void (js_checkValidity self)) foreign import javascript unsafe "($1[\"reportValidity\"]() ? 1 : 0)" js_reportValidity :: HTMLButtonElement -> IO Bool -- | reportValidity :: (MonadIO m) => HTMLButtonElement -> m Bool reportValidity self = liftIO (js_reportValidity self) -- | reportValidity_ :: (MonadIO m) => HTMLButtonElement -> m () reportValidity_ self = liftIO (void (js_reportValidity self)) foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" js_setCustomValidity :: HTMLButtonElement -> JSString -> IO () -- | setCustomValidity :: (MonadIO m, ToJSString error) => HTMLButtonElement -> error -> m () setCustomValidity self error = liftIO (js_setCustomValidity self (toJSString error)) foreign import javascript unsafe "$1[\"autofocus\"] = $2;" js_setAutofocus :: HTMLButtonElement -> Bool -> IO () -- | setAutofocus :: (MonadIO m) => HTMLButtonElement -> Bool -> m () setAutofocus self val = liftIO (js_setAutofocus self val) foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)" js_getAutofocus :: HTMLButtonElement -> IO Bool -- | getAutofocus :: (MonadIO m) => HTMLButtonElement -> m Bool getAutofocus self = liftIO (js_getAutofocus self) foreign import javascript unsafe "$1[\"disabled\"] = $2;" js_setDisabled :: HTMLButtonElement -> Bool -> IO () -- | setDisabled :: (MonadIO m) => HTMLButtonElement -> Bool -> m () setDisabled self val = liftIO (js_setDisabled self val) foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" js_getDisabled :: HTMLButtonElement -> IO Bool -- | getDisabled :: (MonadIO m) => HTMLButtonElement -> m Bool getDisabled self = liftIO (js_getDisabled self) foreign import javascript unsafe "$1[\"form\"]" js_getForm :: HTMLButtonElement -> IO HTMLFormElement -- | getForm :: (MonadIO m) => HTMLButtonElement -> m HTMLFormElement getForm self = liftIO (js_getForm self) foreign import javascript unsafe "$1[\"formAction\"] = $2;" js_setFormAction :: HTMLButtonElement -> JSString -> IO () -- | setFormAction :: (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () setFormAction self val = liftIO (js_setFormAction self (toJSString val)) foreign import javascript unsafe "$1[\"formAction\"]" js_getFormAction :: HTMLButtonElement -> IO JSString -- | getFormAction :: (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getFormAction self = liftIO (fromJSString <$> (js_getFormAction self)) foreign import javascript unsafe "$1[\"formEnctype\"] = $2;" js_setFormEnctype :: HTMLButtonElement -> JSString -> IO () -- | setFormEnctype :: (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () setFormEnctype self val = liftIO (js_setFormEnctype self (toJSString val)) foreign import javascript unsafe "$1[\"formEnctype\"]" js_getFormEnctype :: HTMLButtonElement -> IO JSString -- | getFormEnctype :: (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getFormEnctype self = liftIO (fromJSString <$> (js_getFormEnctype self)) foreign import javascript unsafe "$1[\"formMethod\"] = $2;" js_setFormMethod :: HTMLButtonElement -> JSString -> IO () -- | setFormMethod :: (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () setFormMethod self val = liftIO (js_setFormMethod self (toJSString val)) foreign import javascript unsafe "$1[\"formMethod\"]" js_getFormMethod :: HTMLButtonElement -> IO JSString -- | getFormMethod :: (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getFormMethod self = liftIO (fromJSString <$> (js_getFormMethod self)) foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: HTMLButtonElement -> JSString -> IO () -- | setType :: (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () setType self val = liftIO (js_setType self (toJSString val)) foreign import javascript unsafe "$1[\"type\"]" js_getType :: HTMLButtonElement -> IO JSString -- | getType :: (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getType self = liftIO (fromJSString <$> (js_getType self)) foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;" js_setFormNoValidate :: HTMLButtonElement -> Bool -> IO () -- | setFormNoValidate :: (MonadIO m) => HTMLButtonElement -> Bool -> m () setFormNoValidate self val = liftIO (js_setFormNoValidate self val) foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)" js_getFormNoValidate :: HTMLButtonElement -> IO Bool -- | getFormNoValidate :: (MonadIO m) => HTMLButtonElement -> m Bool getFormNoValidate self = liftIO (js_getFormNoValidate self) foreign import javascript unsafe "$1[\"formTarget\"] = $2;" js_setFormTarget :: HTMLButtonElement -> JSString -> IO () -- | setFormTarget :: (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () setFormTarget self val = liftIO (js_setFormTarget self (toJSString val)) foreign import javascript unsafe "$1[\"formTarget\"]" js_getFormTarget :: HTMLButtonElement -> IO JSString -- | getFormTarget :: (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getFormTarget self = liftIO (fromJSString <$> (js_getFormTarget self)) foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: HTMLButtonElement -> JSString -> IO () -- | setName :: (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () setName self val = liftIO (js_setName self (toJSString val)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: HTMLButtonElement -> IO JSString -- | getName :: (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getName self = liftIO (fromJSString <$> (js_getName self)) foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue :: HTMLButtonElement -> JSString -> IO () -- | setValue :: (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () setValue self val = liftIO (js_setValue self (toJSString val)) foreign import javascript unsafe "$1[\"value\"]" js_getValue :: HTMLButtonElement -> IO JSString -- | getValue :: (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getValue self = liftIO (fromJSString <$> (js_getValue self)) foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" js_getWillValidate :: HTMLButtonElement -> IO Bool -- | getWillValidate :: (MonadIO m) => HTMLButtonElement -> m Bool getWillValidate self = liftIO (js_getWillValidate self) foreign import javascript unsafe "$1[\"validity\"]" js_getValidity :: HTMLButtonElement -> IO ValidityState -- | getValidity :: (MonadIO m) => HTMLButtonElement -> m ValidityState getValidity self = liftIO (js_getValidity self) foreign import javascript unsafe "$1[\"validationMessage\"]" js_getValidationMessage :: HTMLButtonElement -> IO JSString -- | getValidationMessage :: (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getValidationMessage self = liftIO (fromJSString <$> (js_getValidationMessage self)) foreign import javascript unsafe "$1[\"labels\"]" js_getLabels :: HTMLButtonElement -> IO NodeList -- | getLabels :: (MonadIO m) => HTMLButtonElement -> m NodeList getLabels self = liftIO (js_getLabels self)