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