module GHCJS.DOM.JSFFI.Generated.HTMLButtonElement
(js_checkValidity, checkValidity, checkValidity_,
js_setCustomValidity, setCustomValidity, js_setAutofocus,
setAutofocus, js_getAutofocus, getAutofocus, js_setDisabled,
setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,
getFormUnsafe, getFormUnchecked, js_setFormAction, setFormAction,
js_getFormAction, getFormAction, js_setFormEnctype, setFormEnctype,
js_getFormEnctype, getFormEnctype, getFormEnctypeUnsafe,
getFormEnctypeUnchecked, js_setFormMethod, setFormMethod,
js_getFormMethod, getFormMethod, getFormMethodUnsafe,
getFormMethodUnchecked, js_setFormNoValidate, setFormNoValidate,
js_getFormNoValidate, getFormNoValidate, js_setFormTarget,
setFormTarget, js_getFormTarget, getFormTarget, js_setName,
setName, js_getName, getName, js_setType, setType, js_getType,
getType, getTypeUnsafe, getTypeUnchecked, js_setValue, setValue,
js_getValue, getValue, js_getWillValidate, getWillValidate,
js_getValidity, getValidity, getValidityUnsafe,
getValidityUnchecked, js_getValidationMessage,
getValidationMessage, js_getLabels, getLabels, getLabelsUnsafe,
getLabelsUnchecked, 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)
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 ::
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[\"setCustomValidity\"]($2)"
js_setCustomValidity ::
HTMLButtonElement -> Nullable JSString -> IO ()
setCustomValidity ::
(MonadIO m, ToJSString error) =>
HTMLButtonElement -> Maybe error -> m ()
setCustomValidity self error
= liftIO (js_setCustomValidity (self) (toMaybeJSString 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 (Nullable HTMLFormElement)
getForm ::
(MonadIO m) => HTMLButtonElement -> m (Maybe HTMLFormElement)
getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))
getFormUnsafe ::
(MonadIO m, HasCallStack) => HTMLButtonElement -> m HTMLFormElement
getFormUnsafe self
= liftIO
((nullableToMaybe <$> (js_getForm (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getFormUnchecked ::
(MonadIO m) => HTMLButtonElement -> m HTMLFormElement
getFormUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (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 -> Nullable JSString -> IO ()
setFormEnctype ::
(MonadIO m, ToJSString val) =>
HTMLButtonElement -> Maybe val -> m ()
setFormEnctype self val
= liftIO (js_setFormEnctype (self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"formEnctype\"]"
js_getFormEnctype :: HTMLButtonElement -> IO (Nullable JSString)
getFormEnctype ::
(MonadIO m, FromJSString result) =>
HTMLButtonElement -> m (Maybe result)
getFormEnctype self
= liftIO (fromMaybeJSString <$> (js_getFormEnctype (self)))
getFormEnctypeUnsafe ::
(MonadIO m, HasCallStack, FromJSString result) =>
HTMLButtonElement -> m result
getFormEnctypeUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getFormEnctype (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getFormEnctypeUnchecked ::
(MonadIO m, FromJSString result) => HTMLButtonElement -> m result
getFormEnctypeUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$> (js_getFormEnctype (self)))
foreign import javascript unsafe "$1[\"formMethod\"] = $2;"
js_setFormMethod :: HTMLButtonElement -> Nullable JSString -> IO ()
setFormMethod ::
(MonadIO m, ToJSString val) =>
HTMLButtonElement -> Maybe val -> m ()
setFormMethod self val
= liftIO (js_setFormMethod (self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"formMethod\"]"
js_getFormMethod :: HTMLButtonElement -> IO (Nullable JSString)
getFormMethod ::
(MonadIO m, FromJSString result) =>
HTMLButtonElement -> m (Maybe result)
getFormMethod self
= liftIO (fromMaybeJSString <$> (js_getFormMethod (self)))
getFormMethodUnsafe ::
(MonadIO m, HasCallStack, FromJSString result) =>
HTMLButtonElement -> m result
getFormMethodUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getFormMethod (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getFormMethodUnchecked ::
(MonadIO m, FromJSString result) => HTMLButtonElement -> m result
getFormMethodUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$> (js_getFormMethod (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[\"type\"] = $2;" js_setType ::
HTMLButtonElement -> Nullable JSString -> IO ()
setType ::
(MonadIO m, ToJSString val) =>
HTMLButtonElement -> Maybe val -> m ()
setType self val = liftIO (js_setType (self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"type\"]" js_getType ::
HTMLButtonElement -> IO (Nullable JSString)
getType ::
(MonadIO m, FromJSString result) =>
HTMLButtonElement -> m (Maybe result)
getType self = liftIO (fromMaybeJSString <$> (js_getType (self)))
getTypeUnsafe ::
(MonadIO m, HasCallStack, FromJSString result) =>
HTMLButtonElement -> m result
getTypeUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getType (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getTypeUnchecked ::
(MonadIO m, FromJSString result) => HTMLButtonElement -> m result
getTypeUnchecked self
= liftIO (fromJust . fromMaybeJSString <$> (js_getType (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 (Nullable ValidityState)
getValidity ::
(MonadIO m) => HTMLButtonElement -> m (Maybe ValidityState)
getValidity self
= liftIO (nullableToMaybe <$> (js_getValidity (self)))
getValidityUnsafe ::
(MonadIO m, HasCallStack) => HTMLButtonElement -> m ValidityState
getValidityUnsafe self
= liftIO
((nullableToMaybe <$> (js_getValidity (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getValidityUnchecked ::
(MonadIO m) => HTMLButtonElement -> m ValidityState
getValidityUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (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 (Nullable NodeList)
getLabels :: (MonadIO m) => HTMLButtonElement -> m (Maybe NodeList)
getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))
getLabelsUnsafe ::
(MonadIO m, HasCallStack) => HTMLButtonElement -> m NodeList
getLabelsUnsafe self
= liftIO
((nullableToMaybe <$> (js_getLabels (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getLabelsUnchecked ::
(MonadIO m) => HTMLButtonElement -> m NodeList
getLabelsUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))