module GHCJS.DOM.JSFFI.Generated.HTMLInputElement
(js_stepUp, stepUp, js_stepDown, stepDown, js_checkValidity,
checkValidity, checkValidity_, js_setCustomValidity,
setCustomValidity, js_select, select, js_setRangeText,
setRangeText, js_setRangeText4, setRangeText4,
js_setSelectionRange, setSelectionRange, js_setAccept, setAccept,
js_getAccept, getAccept, js_setAlt, setAlt, js_getAlt, getAlt,
js_setAutocomplete, setAutocomplete, js_getAutocomplete,
getAutocomplete, js_setAutofocus, setAutofocus, js_getAutofocus,
getAutofocus, js_setDefaultChecked, setDefaultChecked,
js_getDefaultChecked, getDefaultChecked, js_setChecked, setChecked,
js_getChecked, getChecked, js_setDirName, setDirName,
js_getDirName, getDirName, js_setDisabled, setDisabled,
js_getDisabled, getDisabled, js_getForm, getForm, getFormUnsafe,
getFormUnchecked, js_setFiles, setFiles, js_getFiles, getFiles,
getFilesUnsafe, getFilesUnchecked, 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_setHeight,
setHeight, js_getHeight, getHeight, js_setIndeterminate,
setIndeterminate, js_getIndeterminate, getIndeterminate,
js_getList, getList, getListUnsafe, getListUnchecked, js_setMax,
setMax, js_getMax, getMax, js_setMaxLength, setMaxLength,
js_getMaxLength, getMaxLength, js_setMin, setMin, js_getMin,
getMin, js_setMultiple, setMultiple, js_getMultiple, getMultiple,
js_setName, setName, js_getName, getName, js_setPattern,
setPattern, js_getPattern, getPattern, js_setPlaceholder,
setPlaceholder, js_getPlaceholder, getPlaceholder, js_setReadOnly,
setReadOnly, js_getReadOnly, getReadOnly, js_setRequired,
setRequired, js_getRequired, getRequired, js_setSize, setSize,
js_getSize, getSize, js_setSrc, setSrc, js_getSrc, getSrc,
js_setStep, setStep, js_getStep, getStep, js_setType, setType,
js_getType, getType, js_setDefaultValue, setDefaultValue,
js_getDefaultValue, getDefaultValue, getDefaultValueUnsafe,
getDefaultValueUnchecked, js_setValue, setValue, js_getValue,
getValue, getValueUnsafe, getValueUnchecked, js_setValueAsDate,
setValueAsDate, js_getValueAsDate, getValueAsDate,
getValueAsDateUnsafe, getValueAsDateUnchecked, js_setValueAsNumber,
setValueAsNumber, js_getValueAsNumber, getValueAsNumber,
js_setWidth, setWidth, js_getWidth, getWidth, js_getWillValidate,
getWillValidate, js_getValidity, getValidity, getValidityUnsafe,
getValidityUnchecked, js_getValidationMessage,
getValidationMessage, js_getLabels, getLabels, getLabelsUnsafe,
getLabelsUnchecked, js_setSelectionStart, setSelectionStart,
js_getSelectionStart, getSelectionStart, js_setSelectionEnd,
setSelectionEnd, js_getSelectionEnd, getSelectionEnd,
js_setSelectionDirection, setSelectionDirection,
js_getSelectionDirection, getSelectionDirection, js_setAlign,
setAlign, js_getAlign, getAlign, js_setUseMap, setUseMap,
js_getUseMap, getUseMap, js_setIncremental, setIncremental,
js_getIncremental, getIncremental, js_setAutocorrect,
setAutocorrect, js_getAutocorrect, getAutocorrect,
js_setAutocapitalize, setAutocapitalize, js_getAutocapitalize,
getAutocapitalize, getAutocapitalizeUnsafe,
getAutocapitalizeUnchecked, js_setCapture, setCapture,
js_getCapture, getCapture, HTMLInputElement(..),
gTypeHTMLInputElement)
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[\"stepUp\"]($2)" js_stepUp ::
HTMLInputElement -> Int -> IO ()
stepUp :: (MonadIO m) => HTMLInputElement -> Int -> m ()
stepUp self n = liftIO (js_stepUp (self) n)
foreign import javascript unsafe "$1[\"stepDown\"]($2)" js_stepDown
:: HTMLInputElement -> Int -> IO ()
stepDown :: (MonadIO m) => HTMLInputElement -> Int -> m ()
stepDown self n = liftIO (js_stepDown (self) n)
foreign import javascript unsafe
"($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::
HTMLInputElement -> IO Bool
checkValidity :: (MonadIO m) => HTMLInputElement -> m Bool
checkValidity self = liftIO (js_checkValidity (self))
checkValidity_ :: (MonadIO m) => HTMLInputElement -> m ()
checkValidity_ self = liftIO (void (js_checkValidity (self)))
foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"
js_setCustomValidity ::
HTMLInputElement -> Nullable JSString -> IO ()
setCustomValidity ::
(MonadIO m, ToJSString error) =>
HTMLInputElement -> Maybe error -> m ()
setCustomValidity self error
= liftIO (js_setCustomValidity (self) (toMaybeJSString error))
foreign import javascript unsafe "$1[\"select\"]()" js_select ::
HTMLInputElement -> IO ()
select :: (MonadIO m) => HTMLInputElement -> m ()
select self = liftIO (js_select (self))
foreign import javascript unsafe "$1[\"setRangeText\"]($2)"
js_setRangeText :: HTMLInputElement -> JSString -> IO ()
setRangeText ::
(MonadIO m, ToJSString replacement) =>
HTMLInputElement -> replacement -> m ()
setRangeText self replacement
= liftIO (js_setRangeText (self) (toJSString replacement))
foreign import javascript unsafe
"$1[\"setRangeText\"]($2, $3, $4,\n$5)" js_setRangeText4 ::
HTMLInputElement -> JSString -> Word -> Word -> JSString -> IO ()
setRangeText4 ::
(MonadIO m, ToJSString replacement, ToJSString selectionMode) =>
HTMLInputElement ->
replacement -> Word -> Word -> selectionMode -> m ()
setRangeText4 self replacement start end selectionMode
= liftIO
(js_setRangeText4 (self) (toJSString replacement) start end
(toJSString selectionMode))
foreign import javascript unsafe
"$1[\"setSelectionRange\"]($2, $3,\n$4)" js_setSelectionRange ::
HTMLInputElement -> Int -> Int -> JSString -> IO ()
setSelectionRange ::
(MonadIO m, ToJSString direction) =>
HTMLInputElement -> Int -> Int -> direction -> m ()
setSelectionRange self start end direction
= liftIO
(js_setSelectionRange (self) start end (toJSString direction))
foreign import javascript unsafe "$1[\"accept\"] = $2;"
js_setAccept :: HTMLInputElement -> JSString -> IO ()
setAccept ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setAccept self val = liftIO (js_setAccept (self) (toJSString val))
foreign import javascript unsafe "$1[\"accept\"]" js_getAccept ::
HTMLInputElement -> IO JSString
getAccept ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getAccept self = liftIO (fromJSString <$> (js_getAccept (self)))
foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::
HTMLInputElement -> JSString -> IO ()
setAlt ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setAlt self val = liftIO (js_setAlt (self) (toJSString val))
foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::
HTMLInputElement -> IO JSString
getAlt ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getAlt self = liftIO (fromJSString <$> (js_getAlt (self)))
foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"
js_setAutocomplete :: HTMLInputElement -> JSString -> IO ()
setAutocomplete ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setAutocomplete self val
= liftIO (js_setAutocomplete (self) (toJSString val))
foreign import javascript unsafe "$1[\"autocomplete\"]"
js_getAutocomplete :: HTMLInputElement -> IO JSString
getAutocomplete ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getAutocomplete self
= liftIO (fromJSString <$> (js_getAutocomplete (self)))
foreign import javascript unsafe "$1[\"autofocus\"] = $2;"
js_setAutofocus :: HTMLInputElement -> Bool -> IO ()
setAutofocus :: (MonadIO m) => HTMLInputElement -> Bool -> m ()
setAutofocus self val = liftIO (js_setAutofocus (self) val)
foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"
js_getAutofocus :: HTMLInputElement -> IO Bool
getAutofocus :: (MonadIO m) => HTMLInputElement -> m Bool
getAutofocus self = liftIO (js_getAutofocus (self))
foreign import javascript unsafe "$1[\"defaultChecked\"] = $2;"
js_setDefaultChecked :: HTMLInputElement -> Bool -> IO ()
setDefaultChecked ::
(MonadIO m) => HTMLInputElement -> Bool -> m ()
setDefaultChecked self val
= liftIO (js_setDefaultChecked (self) val)
foreign import javascript unsafe "($1[\"defaultChecked\"] ? 1 : 0)"
js_getDefaultChecked :: HTMLInputElement -> IO Bool
getDefaultChecked :: (MonadIO m) => HTMLInputElement -> m Bool
getDefaultChecked self = liftIO (js_getDefaultChecked (self))
foreign import javascript unsafe "$1[\"checked\"] = $2;"
js_setChecked :: HTMLInputElement -> Bool -> IO ()
setChecked :: (MonadIO m) => HTMLInputElement -> Bool -> m ()
setChecked self val = liftIO (js_setChecked (self) val)
foreign import javascript unsafe "($1[\"checked\"] ? 1 : 0)"
js_getChecked :: HTMLInputElement -> IO Bool
getChecked :: (MonadIO m) => HTMLInputElement -> m Bool
getChecked self = liftIO (js_getChecked (self))
foreign import javascript unsafe "$1[\"dirName\"] = $2;"
js_setDirName :: HTMLInputElement -> JSString -> IO ()
setDirName ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setDirName self val
= liftIO (js_setDirName (self) (toJSString val))
foreign import javascript unsafe "$1[\"dirName\"]" js_getDirName ::
HTMLInputElement -> IO JSString
getDirName ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getDirName self = liftIO (fromJSString <$> (js_getDirName (self)))
foreign import javascript unsafe "$1[\"disabled\"] = $2;"
js_setDisabled :: HTMLInputElement -> Bool -> IO ()
setDisabled :: (MonadIO m) => HTMLInputElement -> Bool -> m ()
setDisabled self val = liftIO (js_setDisabled (self) val)
foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"
js_getDisabled :: HTMLInputElement -> IO Bool
getDisabled :: (MonadIO m) => HTMLInputElement -> m Bool
getDisabled self = liftIO (js_getDisabled (self))
foreign import javascript unsafe "$1[\"form\"]" js_getForm ::
HTMLInputElement -> IO (Nullable HTMLFormElement)
getForm ::
(MonadIO m) => HTMLInputElement -> m (Maybe HTMLFormElement)
getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))
getFormUnsafe ::
(MonadIO m, HasCallStack) => HTMLInputElement -> m HTMLFormElement
getFormUnsafe self
= liftIO
((nullableToMaybe <$> (js_getForm (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getFormUnchecked ::
(MonadIO m) => HTMLInputElement -> m HTMLFormElement
getFormUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))
foreign import javascript unsafe "$1[\"files\"] = $2;" js_setFiles
:: HTMLInputElement -> Nullable FileList -> IO ()
setFiles ::
(MonadIO m) => HTMLInputElement -> Maybe FileList -> m ()
setFiles self val
= liftIO (js_setFiles (self) (maybeToNullable val))
foreign import javascript unsafe "$1[\"files\"]" js_getFiles ::
HTMLInputElement -> IO (Nullable FileList)
getFiles :: (MonadIO m) => HTMLInputElement -> m (Maybe FileList)
getFiles self = liftIO (nullableToMaybe <$> (js_getFiles (self)))
getFilesUnsafe ::
(MonadIO m, HasCallStack) => HTMLInputElement -> m FileList
getFilesUnsafe self
= liftIO
((nullableToMaybe <$> (js_getFiles (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getFilesUnchecked :: (MonadIO m) => HTMLInputElement -> m FileList
getFilesUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getFiles (self)))
foreign import javascript unsafe "$1[\"formAction\"] = $2;"
js_setFormAction :: HTMLInputElement -> JSString -> IO ()
setFormAction ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setFormAction self val
= liftIO (js_setFormAction (self) (toJSString val))
foreign import javascript unsafe "$1[\"formAction\"]"
js_getFormAction :: HTMLInputElement -> IO JSString
getFormAction ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getFormAction self
= liftIO (fromJSString <$> (js_getFormAction (self)))
foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"
js_setFormEnctype :: HTMLInputElement -> Nullable JSString -> IO ()
setFormEnctype ::
(MonadIO m, ToJSString val) =>
HTMLInputElement -> Maybe val -> m ()
setFormEnctype self val
= liftIO (js_setFormEnctype (self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"formEnctype\"]"
js_getFormEnctype :: HTMLInputElement -> IO (Nullable JSString)
getFormEnctype ::
(MonadIO m, FromJSString result) =>
HTMLInputElement -> m (Maybe result)
getFormEnctype self
= liftIO (fromMaybeJSString <$> (js_getFormEnctype (self)))
getFormEnctypeUnsafe ::
(MonadIO m, HasCallStack, FromJSString result) =>
HTMLInputElement -> m result
getFormEnctypeUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getFormEnctype (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getFormEnctypeUnchecked ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getFormEnctypeUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$> (js_getFormEnctype (self)))
foreign import javascript unsafe "$1[\"formMethod\"] = $2;"
js_setFormMethod :: HTMLInputElement -> Nullable JSString -> IO ()
setFormMethod ::
(MonadIO m, ToJSString val) =>
HTMLInputElement -> Maybe val -> m ()
setFormMethod self val
= liftIO (js_setFormMethod (self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"formMethod\"]"
js_getFormMethod :: HTMLInputElement -> IO (Nullable JSString)
getFormMethod ::
(MonadIO m, FromJSString result) =>
HTMLInputElement -> m (Maybe result)
getFormMethod self
= liftIO (fromMaybeJSString <$> (js_getFormMethod (self)))
getFormMethodUnsafe ::
(MonadIO m, HasCallStack, FromJSString result) =>
HTMLInputElement -> m result
getFormMethodUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getFormMethod (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getFormMethodUnchecked ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getFormMethodUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$> (js_getFormMethod (self)))
foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"
js_setFormNoValidate :: HTMLInputElement -> Bool -> IO ()
setFormNoValidate ::
(MonadIO m) => HTMLInputElement -> Bool -> m ()
setFormNoValidate self val
= liftIO (js_setFormNoValidate (self) val)
foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"
js_getFormNoValidate :: HTMLInputElement -> IO Bool
getFormNoValidate :: (MonadIO m) => HTMLInputElement -> m Bool
getFormNoValidate self = liftIO (js_getFormNoValidate (self))
foreign import javascript unsafe "$1[\"formTarget\"] = $2;"
js_setFormTarget :: HTMLInputElement -> JSString -> IO ()
setFormTarget ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setFormTarget self val
= liftIO (js_setFormTarget (self) (toJSString val))
foreign import javascript unsafe "$1[\"formTarget\"]"
js_getFormTarget :: HTMLInputElement -> IO JSString
getFormTarget ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getFormTarget self
= liftIO (fromJSString <$> (js_getFormTarget (self)))
foreign import javascript unsafe "$1[\"height\"] = $2;"
js_setHeight :: HTMLInputElement -> Word -> IO ()
setHeight :: (MonadIO m) => HTMLInputElement -> Word -> m ()
setHeight self val = liftIO (js_setHeight (self) val)
foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::
HTMLInputElement -> IO Word
getHeight :: (MonadIO m) => HTMLInputElement -> m Word
getHeight self = liftIO (js_getHeight (self))
foreign import javascript unsafe "$1[\"indeterminate\"] = $2;"
js_setIndeterminate :: HTMLInputElement -> Bool -> IO ()
setIndeterminate :: (MonadIO m) => HTMLInputElement -> Bool -> m ()
setIndeterminate self val = liftIO (js_setIndeterminate (self) val)
foreign import javascript unsafe "($1[\"indeterminate\"] ? 1 : 0)"
js_getIndeterminate :: HTMLInputElement -> IO Bool
getIndeterminate :: (MonadIO m) => HTMLInputElement -> m Bool
getIndeterminate self = liftIO (js_getIndeterminate (self))
foreign import javascript unsafe "$1[\"list\"]" js_getList ::
HTMLInputElement -> IO (Nullable HTMLElement)
getList :: (MonadIO m) => HTMLInputElement -> m (Maybe HTMLElement)
getList self = liftIO (nullableToMaybe <$> (js_getList (self)))
getListUnsafe ::
(MonadIO m, HasCallStack) => HTMLInputElement -> m HTMLElement
getListUnsafe self
= liftIO
((nullableToMaybe <$> (js_getList (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getListUnchecked ::
(MonadIO m) => HTMLInputElement -> m HTMLElement
getListUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getList (self)))
foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax ::
HTMLInputElement -> JSString -> IO ()
setMax ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setMax self val = liftIO (js_setMax (self) (toJSString val))
foreign import javascript unsafe "$1[\"max\"]" js_getMax ::
HTMLInputElement -> IO JSString
getMax ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getMax self = liftIO (fromJSString <$> (js_getMax (self)))
foreign import javascript unsafe "$1[\"maxLength\"] = $2;"
js_setMaxLength :: HTMLInputElement -> Int -> IO ()
setMaxLength :: (MonadIO m) => HTMLInputElement -> Int -> m ()
setMaxLength self val = liftIO (js_setMaxLength (self) val)
foreign import javascript unsafe "$1[\"maxLength\"]"
js_getMaxLength :: HTMLInputElement -> IO Int
getMaxLength :: (MonadIO m) => HTMLInputElement -> m Int
getMaxLength self = liftIO (js_getMaxLength (self))
foreign import javascript unsafe "$1[\"min\"] = $2;" js_setMin ::
HTMLInputElement -> JSString -> IO ()
setMin ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setMin self val = liftIO (js_setMin (self) (toJSString val))
foreign import javascript unsafe "$1[\"min\"]" js_getMin ::
HTMLInputElement -> IO JSString
getMin ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getMin self = liftIO (fromJSString <$> (js_getMin (self)))
foreign import javascript unsafe "$1[\"multiple\"] = $2;"
js_setMultiple :: HTMLInputElement -> Bool -> IO ()
setMultiple :: (MonadIO m) => HTMLInputElement -> Bool -> m ()
setMultiple self val = liftIO (js_setMultiple (self) val)
foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"
js_getMultiple :: HTMLInputElement -> IO Bool
getMultiple :: (MonadIO m) => HTMLInputElement -> m Bool
getMultiple self = liftIO (js_getMultiple (self))
foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::
HTMLInputElement -> JSString -> IO ()
setName ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setName self val = liftIO (js_setName (self) (toJSString val))
foreign import javascript unsafe "$1[\"name\"]" js_getName ::
HTMLInputElement -> IO JSString
getName ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getName self = liftIO (fromJSString <$> (js_getName (self)))
foreign import javascript unsafe "$1[\"pattern\"] = $2;"
js_setPattern :: HTMLInputElement -> JSString -> IO ()
setPattern ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setPattern self val
= liftIO (js_setPattern (self) (toJSString val))
foreign import javascript unsafe "$1[\"pattern\"]" js_getPattern ::
HTMLInputElement -> IO JSString
getPattern ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getPattern self = liftIO (fromJSString <$> (js_getPattern (self)))
foreign import javascript unsafe "$1[\"placeholder\"] = $2;"
js_setPlaceholder :: HTMLInputElement -> JSString -> IO ()
setPlaceholder ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setPlaceholder self val
= liftIO (js_setPlaceholder (self) (toJSString val))
foreign import javascript unsafe "$1[\"placeholder\"]"
js_getPlaceholder :: HTMLInputElement -> IO JSString
getPlaceholder ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getPlaceholder self
= liftIO (fromJSString <$> (js_getPlaceholder (self)))
foreign import javascript unsafe "$1[\"readOnly\"] = $2;"
js_setReadOnly :: HTMLInputElement -> Bool -> IO ()
setReadOnly :: (MonadIO m) => HTMLInputElement -> Bool -> m ()
setReadOnly self val = liftIO (js_setReadOnly (self) val)
foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"
js_getReadOnly :: HTMLInputElement -> IO Bool
getReadOnly :: (MonadIO m) => HTMLInputElement -> m Bool
getReadOnly self = liftIO (js_getReadOnly (self))
foreign import javascript unsafe "$1[\"required\"] = $2;"
js_setRequired :: HTMLInputElement -> Bool -> IO ()
setRequired :: (MonadIO m) => HTMLInputElement -> Bool -> m ()
setRequired self val = liftIO (js_setRequired (self) val)
foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"
js_getRequired :: HTMLInputElement -> IO Bool
getRequired :: (MonadIO m) => HTMLInputElement -> m Bool
getRequired self = liftIO (js_getRequired (self))
foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::
HTMLInputElement -> Word -> IO ()
setSize :: (MonadIO m) => HTMLInputElement -> Word -> m ()
setSize self val = liftIO (js_setSize (self) val)
foreign import javascript unsafe "$1[\"size\"]" js_getSize ::
HTMLInputElement -> IO Word
getSize :: (MonadIO m) => HTMLInputElement -> m Word
getSize self = liftIO (js_getSize (self))
foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::
HTMLInputElement -> JSString -> IO ()
setSrc ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setSrc self val = liftIO (js_setSrc (self) (toJSString val))
foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::
HTMLInputElement -> IO JSString
getSrc ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getSrc self = liftIO (fromJSString <$> (js_getSrc (self)))
foreign import javascript unsafe "$1[\"step\"] = $2;" js_setStep ::
HTMLInputElement -> JSString -> IO ()
setStep ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setStep self val = liftIO (js_setStep (self) (toJSString val))
foreign import javascript unsafe "$1[\"step\"]" js_getStep ::
HTMLInputElement -> IO JSString
getStep ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getStep self = liftIO (fromJSString <$> (js_getStep (self)))
foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::
HTMLInputElement -> JSString -> IO ()
setType ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setType self val = liftIO (js_setType (self) (toJSString val))
foreign import javascript unsafe "$1[\"type\"]" js_getType ::
HTMLInputElement -> IO JSString
getType ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getType self = liftIO (fromJSString <$> (js_getType (self)))
foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"
js_setDefaultValue ::
HTMLInputElement -> Nullable JSString -> IO ()
setDefaultValue ::
(MonadIO m, ToJSString val) =>
HTMLInputElement -> Maybe val -> m ()
setDefaultValue self val
= liftIO (js_setDefaultValue (self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"defaultValue\"]"
js_getDefaultValue :: HTMLInputElement -> IO (Nullable JSString)
getDefaultValue ::
(MonadIO m, FromJSString result) =>
HTMLInputElement -> m (Maybe result)
getDefaultValue self
= liftIO (fromMaybeJSString <$> (js_getDefaultValue (self)))
getDefaultValueUnsafe ::
(MonadIO m, HasCallStack, FromJSString result) =>
HTMLInputElement -> m result
getDefaultValueUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getDefaultValue (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getDefaultValueUnchecked ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getDefaultValueUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$> (js_getDefaultValue (self)))
foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue
:: HTMLInputElement -> Nullable JSString -> IO ()
setValue ::
(MonadIO m, ToJSString val) =>
HTMLInputElement -> Maybe val -> m ()
setValue self val
= liftIO (js_setValue (self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"value\"]" js_getValue ::
HTMLInputElement -> IO (Nullable JSString)
getValue ::
(MonadIO m, FromJSString result) =>
HTMLInputElement -> m (Maybe result)
getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))
getValueUnsafe ::
(MonadIO m, HasCallStack, FromJSString result) =>
HTMLInputElement -> m result
getValueUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getValue (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getValueUnchecked ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getValueUnchecked self
= liftIO (fromJust . fromMaybeJSString <$> (js_getValue (self)))
foreign import javascript unsafe "$1[\"valueAsDate\"] = $2;"
js_setValueAsDate :: HTMLInputElement -> Nullable Date -> IO ()
setValueAsDate ::
(MonadIO m, IsDate val) => HTMLInputElement -> Maybe val -> m ()
setValueAsDate self val
= liftIO
(js_setValueAsDate (self) (maybeToNullable (fmap toDate val)))
foreign import javascript unsafe "$1[\"valueAsDate\"]"
js_getValueAsDate :: HTMLInputElement -> IO (Nullable Date)
getValueAsDate :: (MonadIO m) => HTMLInputElement -> m (Maybe Date)
getValueAsDate self
= liftIO (nullableToMaybe <$> (js_getValueAsDate (self)))
getValueAsDateUnsafe ::
(MonadIO m, HasCallStack) => HTMLInputElement -> m Date
getValueAsDateUnsafe self
= liftIO
((nullableToMaybe <$> (js_getValueAsDate (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getValueAsDateUnchecked ::
(MonadIO m) => HTMLInputElement -> m Date
getValueAsDateUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getValueAsDate (self)))
foreign import javascript unsafe "$1[\"valueAsNumber\"] = $2;"
js_setValueAsNumber :: HTMLInputElement -> Double -> IO ()
setValueAsNumber ::
(MonadIO m) => HTMLInputElement -> Double -> m ()
setValueAsNumber self val = liftIO (js_setValueAsNumber (self) val)
foreign import javascript unsafe "$1[\"valueAsNumber\"]"
js_getValueAsNumber :: HTMLInputElement -> IO Double
getValueAsNumber :: (MonadIO m) => HTMLInputElement -> m Double
getValueAsNumber self = liftIO (js_getValueAsNumber (self))
foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth
:: HTMLInputElement -> Word -> IO ()
setWidth :: (MonadIO m) => HTMLInputElement -> Word -> m ()
setWidth self val = liftIO (js_setWidth (self) val)
foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::
HTMLInputElement -> IO Word
getWidth :: (MonadIO m) => HTMLInputElement -> m Word
getWidth self = liftIO (js_getWidth (self))
foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"
js_getWillValidate :: HTMLInputElement -> IO Bool
getWillValidate :: (MonadIO m) => HTMLInputElement -> m Bool
getWillValidate self = liftIO (js_getWillValidate (self))
foreign import javascript unsafe "$1[\"validity\"]" js_getValidity
:: HTMLInputElement -> IO (Nullable ValidityState)
getValidity ::
(MonadIO m) => HTMLInputElement -> m (Maybe ValidityState)
getValidity self
= liftIO (nullableToMaybe <$> (js_getValidity (self)))
getValidityUnsafe ::
(MonadIO m, HasCallStack) => HTMLInputElement -> m ValidityState
getValidityUnsafe self
= liftIO
((nullableToMaybe <$> (js_getValidity (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getValidityUnchecked ::
(MonadIO m) => HTMLInputElement -> m ValidityState
getValidityUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))
foreign import javascript unsafe "$1[\"validationMessage\"]"
js_getValidationMessage :: HTMLInputElement -> IO JSString
getValidationMessage ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getValidationMessage self
= liftIO (fromJSString <$> (js_getValidationMessage (self)))
foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::
HTMLInputElement -> IO (Nullable NodeList)
getLabels :: (MonadIO m) => HTMLInputElement -> m (Maybe NodeList)
getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))
getLabelsUnsafe ::
(MonadIO m, HasCallStack) => HTMLInputElement -> m NodeList
getLabelsUnsafe self
= liftIO
((nullableToMaybe <$> (js_getLabels (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getLabelsUnchecked :: (MonadIO m) => HTMLInputElement -> m NodeList
getLabelsUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))
foreign import javascript unsafe "$1[\"selectionStart\"] = $2;"
js_setSelectionStart :: HTMLInputElement -> Int -> IO ()
setSelectionStart :: (MonadIO m) => HTMLInputElement -> Int -> m ()
setSelectionStart self val
= liftIO (js_setSelectionStart (self) val)
foreign import javascript unsafe "$1[\"selectionStart\"]"
js_getSelectionStart :: HTMLInputElement -> IO Int
getSelectionStart :: (MonadIO m) => HTMLInputElement -> m Int
getSelectionStart self = liftIO (js_getSelectionStart (self))
foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;"
js_setSelectionEnd :: HTMLInputElement -> Int -> IO ()
setSelectionEnd :: (MonadIO m) => HTMLInputElement -> Int -> m ()
setSelectionEnd self val = liftIO (js_setSelectionEnd (self) val)
foreign import javascript unsafe "$1[\"selectionEnd\"]"
js_getSelectionEnd :: HTMLInputElement -> IO Int
getSelectionEnd :: (MonadIO m) => HTMLInputElement -> m Int
getSelectionEnd self = liftIO (js_getSelectionEnd (self))
foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;"
js_setSelectionDirection :: HTMLInputElement -> JSString -> IO ()
setSelectionDirection ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setSelectionDirection self val
= liftIO (js_setSelectionDirection (self) (toJSString val))
foreign import javascript unsafe "$1[\"selectionDirection\"]"
js_getSelectionDirection :: HTMLInputElement -> IO JSString
getSelectionDirection ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getSelectionDirection self
= liftIO (fromJSString <$> (js_getSelectionDirection (self)))
foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign
:: HTMLInputElement -> JSString -> IO ()
setAlign ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setAlign self val = liftIO (js_setAlign (self) (toJSString val))
foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::
HTMLInputElement -> IO JSString
getAlign ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))
foreign import javascript unsafe "$1[\"useMap\"] = $2;"
js_setUseMap :: HTMLInputElement -> JSString -> IO ()
setUseMap ::
(MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()
setUseMap self val = liftIO (js_setUseMap (self) (toJSString val))
foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap ::
HTMLInputElement -> IO JSString
getUseMap ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getUseMap self = liftIO (fromJSString <$> (js_getUseMap (self)))
foreign import javascript unsafe "$1[\"incremental\"] = $2;"
js_setIncremental :: HTMLInputElement -> Bool -> IO ()
setIncremental :: (MonadIO m) => HTMLInputElement -> Bool -> m ()
setIncremental self val = liftIO (js_setIncremental (self) val)
foreign import javascript unsafe "($1[\"incremental\"] ? 1 : 0)"
js_getIncremental :: HTMLInputElement -> IO Bool
getIncremental :: (MonadIO m) => HTMLInputElement -> m Bool
getIncremental self = liftIO (js_getIncremental (self))
foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"
js_setAutocorrect :: HTMLInputElement -> Bool -> IO ()
setAutocorrect :: (MonadIO m) => HTMLInputElement -> Bool -> m ()
setAutocorrect self val = liftIO (js_setAutocorrect (self) val)
foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"
js_getAutocorrect :: HTMLInputElement -> IO Bool
getAutocorrect :: (MonadIO m) => HTMLInputElement -> m Bool
getAutocorrect self = liftIO (js_getAutocorrect (self))
foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"
js_setAutocapitalize ::
HTMLInputElement -> Nullable JSString -> IO ()
setAutocapitalize ::
(MonadIO m, ToJSString val) =>
HTMLInputElement -> Maybe val -> m ()
setAutocapitalize self val
= liftIO (js_setAutocapitalize (self) (toMaybeJSString val))
foreign import javascript unsafe "$1[\"autocapitalize\"]"
js_getAutocapitalize :: HTMLInputElement -> IO (Nullable JSString)
getAutocapitalize ::
(MonadIO m, FromJSString result) =>
HTMLInputElement -> m (Maybe result)
getAutocapitalize self
= liftIO (fromMaybeJSString <$> (js_getAutocapitalize (self)))
getAutocapitalizeUnsafe ::
(MonadIO m, HasCallStack, FromJSString result) =>
HTMLInputElement -> m result
getAutocapitalizeUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getAutocapitalize (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getAutocapitalizeUnchecked ::
(MonadIO m, FromJSString result) => HTMLInputElement -> m result
getAutocapitalizeUnchecked self
= liftIO
(fromJust . fromMaybeJSString <$> (js_getAutocapitalize (self)))
foreign import javascript unsafe "$1[\"capture\"] = $2;"
js_setCapture :: HTMLInputElement -> Bool -> IO ()
setCapture :: (MonadIO m) => HTMLInputElement -> Bool -> m ()
setCapture self val = liftIO (js_setCapture (self) val)
foreign import javascript unsafe "($1[\"capture\"] ? 1 : 0)"
js_getCapture :: HTMLInputElement -> IO Bool
getCapture :: (MonadIO m) => HTMLInputElement -> m Bool
getCapture self = liftIO (js_getCapture (self))