{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement (js_checkValidity, checkValidity, checkValidity_, js_reportValidity, reportValidity, reportValidity_, js_setCustomValidity, setCustomValidity, js_select, select, js_setRangeText, setRangeText, js_setRangeText4, setRangeText4, js_setSelectionRange, setSelectionRange, js_setAutofocus, setAutofocus, js_getAutofocus, getAutofocus, js_setDirName, setDirName, js_getDirName, getDirName, js_setDisabled, setDisabled, js_getDisabled, getDisabled, js_getForm, getForm, js_setMinLength, setMinLength, js_getMinLength, getMinLength, js_setMaxLength, setMaxLength, js_getMaxLength, getMaxLength, js_setName, setName, js_getName, getName, js_setPlaceholder, setPlaceholder, js_getPlaceholder, getPlaceholder, js_setReadOnly, setReadOnly, js_getReadOnly, getReadOnly, js_setRequired, setRequired, js_getRequired, getRequired, js_setRows, setRows, js_getRows, getRows, js_setCols, setCols, js_getCols, getCols, js_setWrap, setWrap, js_getWrap, getWrap, js_getType, getType, js_setDefaultValue, setDefaultValue, js_getDefaultValue, getDefaultValue, js_setValue, setValue, js_getValue, getValue, js_getTextLength, getTextLength, js_getWillValidate, getWillValidate, js_getValidity, getValidity, js_getValidationMessage, getValidationMessage, js_getLabels, getLabels, js_setSelectionStart, setSelectionStart, js_getSelectionStart, getSelectionStart, js_setSelectionEnd, setSelectionEnd, js_getSelectionEnd, getSelectionEnd, js_setSelectionDirection, setSelectionDirection, js_getSelectionDirection, getSelectionDirection, js_setAutocomplete, setAutocomplete, js_getAutocomplete, getAutocomplete, HTMLTextAreaElement(..), gTypeHTMLTextAreaElement) 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 :: HTMLTextAreaElement -> IO Bool -- | checkValidity :: (MonadIO m) => HTMLTextAreaElement -> m Bool checkValidity self = liftIO (js_checkValidity self) -- | checkValidity_ :: (MonadIO m) => HTMLTextAreaElement -> m () checkValidity_ self = liftIO (void (js_checkValidity self)) foreign import javascript unsafe "($1[\"reportValidity\"]() ? 1 : 0)" js_reportValidity :: HTMLTextAreaElement -> IO Bool -- | reportValidity :: (MonadIO m) => HTMLTextAreaElement -> m Bool reportValidity self = liftIO (js_reportValidity self) -- | reportValidity_ :: (MonadIO m) => HTMLTextAreaElement -> m () reportValidity_ self = liftIO (void (js_reportValidity self)) foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" js_setCustomValidity :: HTMLTextAreaElement -> JSString -> IO () -- | setCustomValidity :: (MonadIO m, ToJSString error) => HTMLTextAreaElement -> error -> m () setCustomValidity self error = liftIO (js_setCustomValidity self (toJSString error)) foreign import javascript unsafe "$1[\"select\"]()" js_select :: HTMLTextAreaElement -> IO () -- | select :: (MonadIO m) => HTMLTextAreaElement -> m () select self = liftIO (js_select self) foreign import javascript unsafe "$1[\"setRangeText\"]($2)" js_setRangeText :: HTMLTextAreaElement -> JSString -> IO () -- | setRangeText :: (MonadIO m, ToJSString replacement) => HTMLTextAreaElement -> replacement -> m () setRangeText self replacement = liftIO (js_setRangeText self (toJSString replacement)) foreign import javascript unsafe "$1[\"setRangeText\"]($2, $3, $4,\n$5)" js_setRangeText4 :: HTMLTextAreaElement -> JSString -> Word -> Word -> Optional JSString -> IO () -- | setRangeText4 :: (MonadIO m, ToJSString replacement, ToJSString selectionMode) => HTMLTextAreaElement -> replacement -> Word -> Word -> Maybe selectionMode -> m () setRangeText4 self replacement start end selectionMode = liftIO (js_setRangeText4 self (toJSString replacement) start end (toOptionalJSString selectionMode)) foreign import javascript unsafe "$1[\"setSelectionRange\"]($2, $3,\n$4)" js_setSelectionRange :: HTMLTextAreaElement -> Optional Int -> Optional Int -> Optional JSString -> IO () -- | setSelectionRange :: (MonadIO m, ToJSString direction) => HTMLTextAreaElement -> Maybe Int -> Maybe Int -> Maybe direction -> m () setSelectionRange self start end direction = liftIO (js_setSelectionRange self (maybeToOptional start) (maybeToOptional end) (toOptionalJSString direction)) foreign import javascript unsafe "$1[\"autofocus\"] = $2;" js_setAutofocus :: HTMLTextAreaElement -> Bool -> IO () -- | setAutofocus :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m () setAutofocus self val = liftIO (js_setAutofocus self val) foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)" js_getAutofocus :: HTMLTextAreaElement -> IO Bool -- | getAutofocus :: (MonadIO m) => HTMLTextAreaElement -> m Bool getAutofocus self = liftIO (js_getAutofocus self) foreign import javascript unsafe "$1[\"dirName\"] = $2;" js_setDirName :: HTMLTextAreaElement -> JSString -> IO () -- | setDirName :: (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () setDirName self val = liftIO (js_setDirName self (toJSString val)) foreign import javascript unsafe "$1[\"dirName\"]" js_getDirName :: HTMLTextAreaElement -> IO JSString -- | getDirName :: (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getDirName self = liftIO (fromJSString <$> (js_getDirName self)) foreign import javascript unsafe "$1[\"disabled\"] = $2;" js_setDisabled :: HTMLTextAreaElement -> Bool -> IO () -- | setDisabled :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m () setDisabled self val = liftIO (js_setDisabled self val) foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" js_getDisabled :: HTMLTextAreaElement -> IO Bool -- | getDisabled :: (MonadIO m) => HTMLTextAreaElement -> m Bool getDisabled self = liftIO (js_getDisabled self) foreign import javascript unsafe "$1[\"form\"]" js_getForm :: HTMLTextAreaElement -> IO HTMLFormElement -- | getForm :: (MonadIO m) => HTMLTextAreaElement -> m HTMLFormElement getForm self = liftIO (js_getForm self) foreign import javascript unsafe "$1[\"minLength\"] = $2;" js_setMinLength :: HTMLTextAreaElement -> Int -> IO () -- | setMinLength :: (MonadIO m) => HTMLTextAreaElement -> Int -> m () setMinLength self val = liftIO (js_setMinLength self val) foreign import javascript unsafe "$1[\"minLength\"]" js_getMinLength :: HTMLTextAreaElement -> IO Int -- | getMinLength :: (MonadIO m) => HTMLTextAreaElement -> m Int getMinLength self = liftIO (js_getMinLength self) foreign import javascript unsafe "$1[\"maxLength\"] = $2;" js_setMaxLength :: HTMLTextAreaElement -> Int -> IO () -- | setMaxLength :: (MonadIO m) => HTMLTextAreaElement -> Int -> m () setMaxLength self val = liftIO (js_setMaxLength self val) foreign import javascript unsafe "$1[\"maxLength\"]" js_getMaxLength :: HTMLTextAreaElement -> IO Int -- | getMaxLength :: (MonadIO m) => HTMLTextAreaElement -> m Int getMaxLength self = liftIO (js_getMaxLength self) foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: HTMLTextAreaElement -> JSString -> IO () -- | setName :: (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () setName self val = liftIO (js_setName self (toJSString val)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: HTMLTextAreaElement -> IO JSString -- | getName :: (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getName self = liftIO (fromJSString <$> (js_getName self)) foreign import javascript unsafe "$1[\"placeholder\"] = $2;" js_setPlaceholder :: HTMLTextAreaElement -> JSString -> IO () -- | setPlaceholder :: (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () setPlaceholder self val = liftIO (js_setPlaceholder self (toJSString val)) foreign import javascript unsafe "$1[\"placeholder\"]" js_getPlaceholder :: HTMLTextAreaElement -> IO JSString -- | getPlaceholder :: (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getPlaceholder self = liftIO (fromJSString <$> (js_getPlaceholder self)) foreign import javascript unsafe "$1[\"readOnly\"] = $2;" js_setReadOnly :: HTMLTextAreaElement -> Bool -> IO () -- | setReadOnly :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m () setReadOnly self val = liftIO (js_setReadOnly self val) foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)" js_getReadOnly :: HTMLTextAreaElement -> IO Bool -- | getReadOnly :: (MonadIO m) => HTMLTextAreaElement -> m Bool getReadOnly self = liftIO (js_getReadOnly self) foreign import javascript unsafe "$1[\"required\"] = $2;" js_setRequired :: HTMLTextAreaElement -> Bool -> IO () -- | setRequired :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m () setRequired self val = liftIO (js_setRequired self val) foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)" js_getRequired :: HTMLTextAreaElement -> IO Bool -- | getRequired :: (MonadIO m) => HTMLTextAreaElement -> m Bool getRequired self = liftIO (js_getRequired self) foreign import javascript unsafe "$1[\"rows\"] = $2;" js_setRows :: HTMLTextAreaElement -> Word -> IO () -- | setRows :: (MonadIO m) => HTMLTextAreaElement -> Word -> m () setRows self val = liftIO (js_setRows self val) foreign import javascript unsafe "$1[\"rows\"]" js_getRows :: HTMLTextAreaElement -> IO Word -- | getRows :: (MonadIO m) => HTMLTextAreaElement -> m Word getRows self = liftIO (js_getRows self) foreign import javascript unsafe "$1[\"cols\"] = $2;" js_setCols :: HTMLTextAreaElement -> Word -> IO () -- | setCols :: (MonadIO m) => HTMLTextAreaElement -> Word -> m () setCols self val = liftIO (js_setCols self val) foreign import javascript unsafe "$1[\"cols\"]" js_getCols :: HTMLTextAreaElement -> IO Word -- | getCols :: (MonadIO m) => HTMLTextAreaElement -> m Word getCols self = liftIO (js_getCols self) foreign import javascript unsafe "$1[\"wrap\"] = $2;" js_setWrap :: HTMLTextAreaElement -> JSString -> IO () -- | setWrap :: (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () setWrap self val = liftIO (js_setWrap self (toJSString val)) foreign import javascript unsafe "$1[\"wrap\"]" js_getWrap :: HTMLTextAreaElement -> IO JSString -- | getWrap :: (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getWrap self = liftIO (fromJSString <$> (js_getWrap self)) foreign import javascript unsafe "$1[\"type\"]" js_getType :: HTMLTextAreaElement -> IO JSString -- | getType :: (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getType self = liftIO (fromJSString <$> (js_getType self)) foreign import javascript unsafe "$1[\"defaultValue\"] = $2;" js_setDefaultValue :: HTMLTextAreaElement -> JSString -> IO () -- | setDefaultValue :: (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () setDefaultValue self val = liftIO (js_setDefaultValue self (toJSString val)) foreign import javascript unsafe "$1[\"defaultValue\"]" js_getDefaultValue :: HTMLTextAreaElement -> IO JSString -- | getDefaultValue :: (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getDefaultValue self = liftIO (fromJSString <$> (js_getDefaultValue self)) foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue :: HTMLTextAreaElement -> JSString -> IO () -- | setValue :: (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () setValue self val = liftIO (js_setValue self (toJSString val)) foreign import javascript unsafe "$1[\"value\"]" js_getValue :: HTMLTextAreaElement -> IO JSString -- | getValue :: (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getValue self = liftIO (fromJSString <$> (js_getValue self)) foreign import javascript unsafe "$1[\"textLength\"]" js_getTextLength :: HTMLTextAreaElement -> IO Word -- | getTextLength :: (MonadIO m) => HTMLTextAreaElement -> m Word getTextLength self = liftIO (js_getTextLength self) foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" js_getWillValidate :: HTMLTextAreaElement -> IO Bool -- | getWillValidate :: (MonadIO m) => HTMLTextAreaElement -> m Bool getWillValidate self = liftIO (js_getWillValidate self) foreign import javascript unsafe "$1[\"validity\"]" js_getValidity :: HTMLTextAreaElement -> IO ValidityState -- | getValidity :: (MonadIO m) => HTMLTextAreaElement -> m ValidityState getValidity self = liftIO (js_getValidity self) foreign import javascript unsafe "$1[\"validationMessage\"]" js_getValidationMessage :: HTMLTextAreaElement -> IO JSString -- | getValidationMessage :: (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getValidationMessage self = liftIO (fromJSString <$> (js_getValidationMessage self)) foreign import javascript unsafe "$1[\"labels\"]" js_getLabels :: HTMLTextAreaElement -> IO NodeList -- | getLabels :: (MonadIO m) => HTMLTextAreaElement -> m NodeList getLabels self = liftIO (js_getLabels self) foreign import javascript unsafe "$1[\"selectionStart\"] = $2;" js_setSelectionStart :: HTMLTextAreaElement -> Int -> IO () -- | setSelectionStart :: (MonadIO m) => HTMLTextAreaElement -> Int -> m () setSelectionStart self val = liftIO (js_setSelectionStart self val) foreign import javascript unsafe "$1[\"selectionStart\"]" js_getSelectionStart :: HTMLTextAreaElement -> IO Int -- | getSelectionStart :: (MonadIO m) => HTMLTextAreaElement -> m Int getSelectionStart self = liftIO (js_getSelectionStart self) foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;" js_setSelectionEnd :: HTMLTextAreaElement -> Int -> IO () -- | setSelectionEnd :: (MonadIO m) => HTMLTextAreaElement -> Int -> m () setSelectionEnd self val = liftIO (js_setSelectionEnd self val) foreign import javascript unsafe "$1[\"selectionEnd\"]" js_getSelectionEnd :: HTMLTextAreaElement -> IO Int -- | getSelectionEnd :: (MonadIO m) => HTMLTextAreaElement -> m Int getSelectionEnd self = liftIO (js_getSelectionEnd self) foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;" js_setSelectionDirection :: HTMLTextAreaElement -> JSString -> IO () -- | setSelectionDirection :: (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () setSelectionDirection self val = liftIO (js_setSelectionDirection self (toJSString val)) foreign import javascript unsafe "$1[\"selectionDirection\"]" js_getSelectionDirection :: HTMLTextAreaElement -> IO JSString -- | getSelectionDirection :: (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getSelectionDirection self = liftIO (fromJSString <$> (js_getSelectionDirection self)) foreign import javascript unsafe "$1[\"autocomplete\"] = $2;" js_setAutocomplete :: HTMLTextAreaElement -> JSString -> IO () -- | setAutocomplete :: (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () setAutocomplete self val = liftIO (js_setAutocomplete self (toJSString val)) foreign import javascript unsafe "$1[\"autocomplete\"]" js_getAutocomplete :: HTMLTextAreaElement -> IO JSString -- | getAutocomplete :: (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getAutocomplete self = liftIO (fromJSString <$> (js_getAutocomplete self))