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