{-# LANGUAGE CPP #-} #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLTextAreaElement (ghcjs_dom_html_text_area_element_check_validity, htmlTextAreaElementCheckValidity, ghcjs_dom_html_text_area_element_set_custom_validity, htmlTextAreaElementSetCustomValidity, ghcjs_dom_html_text_area_element_select, htmlTextAreaElementSelect, ghcjs_dom_html_text_area_element_set_range_text, htmlTextAreaElementSetRangeText, ghcjs_dom_html_text_area_element_set_range_text4, htmlTextAreaElementSetRangeText4, ghcjs_dom_html_text_area_element_set_selection_range, htmlTextAreaElementSetSelectionRange, ghcjs_dom_html_text_area_element_set_autofocus, htmlTextAreaElementSetAutofocus, ghcjs_dom_html_text_area_element_get_autofocus, htmlTextAreaElementGetAutofocus, ghcjs_dom_html_text_area_element_set_cols, htmlTextAreaElementSetCols, ghcjs_dom_html_text_area_element_get_cols, htmlTextAreaElementGetCols, ghcjs_dom_html_text_area_element_set_dir_name, htmlTextAreaElementSetDirName, ghcjs_dom_html_text_area_element_get_dir_name, htmlTextAreaElementGetDirName, ghcjs_dom_html_text_area_element_set_disabled, htmlTextAreaElementSetDisabled, ghcjs_dom_html_text_area_element_get_disabled, htmlTextAreaElementGetDisabled, ghcjs_dom_html_text_area_element_get_form, htmlTextAreaElementGetForm, ghcjs_dom_html_text_area_element_set_max_length, htmlTextAreaElementSetMaxLength, ghcjs_dom_html_text_area_element_get_max_length, htmlTextAreaElementGetMaxLength, ghcjs_dom_html_text_area_element_set_name, htmlTextAreaElementSetName, ghcjs_dom_html_text_area_element_get_name, htmlTextAreaElementGetName, ghcjs_dom_html_text_area_element_set_placeholder, htmlTextAreaElementSetPlaceholder, ghcjs_dom_html_text_area_element_get_placeholder, htmlTextAreaElementGetPlaceholder, ghcjs_dom_html_text_area_element_set_read_only, htmlTextAreaElementSetReadOnly, ghcjs_dom_html_text_area_element_get_read_only, htmlTextAreaElementGetReadOnly, ghcjs_dom_html_text_area_element_set_required, htmlTextAreaElementSetRequired, ghcjs_dom_html_text_area_element_get_required, htmlTextAreaElementGetRequired, ghcjs_dom_html_text_area_element_set_rows, htmlTextAreaElementSetRows, ghcjs_dom_html_text_area_element_get_rows, htmlTextAreaElementGetRows, ghcjs_dom_html_text_area_element_set_wrap, htmlTextAreaElementSetWrap, ghcjs_dom_html_text_area_element_get_wrap, htmlTextAreaElementGetWrap, ghcjs_dom_html_text_area_element_set_default_value, htmlTextAreaElementSetDefaultValue, ghcjs_dom_html_text_area_element_get_default_value, htmlTextAreaElementGetDefaultValue, ghcjs_dom_html_text_area_element_set_value, htmlTextAreaElementSetValue, ghcjs_dom_html_text_area_element_get_value, htmlTextAreaElementGetValue, ghcjs_dom_html_text_area_element_get_text_length, htmlTextAreaElementGetTextLength, ghcjs_dom_html_text_area_element_get_will_validate, htmlTextAreaElementGetWillValidate, ghcjs_dom_html_text_area_element_get_validity, htmlTextAreaElementGetValidity, ghcjs_dom_html_text_area_element_get_validation_message, htmlTextAreaElementGetValidationMessage, ghcjs_dom_html_text_area_element_get_labels, htmlTextAreaElementGetLabels, ghcjs_dom_html_text_area_element_set_selection_start, htmlTextAreaElementSetSelectionStart, ghcjs_dom_html_text_area_element_get_selection_start, htmlTextAreaElementGetSelectionStart, ghcjs_dom_html_text_area_element_set_selection_end, htmlTextAreaElementSetSelectionEnd, ghcjs_dom_html_text_area_element_get_selection_end, htmlTextAreaElementGetSelectionEnd, ghcjs_dom_html_text_area_element_set_selection_direction, htmlTextAreaElementSetSelectionDirection, ghcjs_dom_html_text_area_element_get_selection_direction, htmlTextAreaElementGetSelectionDirection, ghcjs_dom_html_text_area_element_set_autocorrect, htmlTextAreaElementSetAutocorrect, ghcjs_dom_html_text_area_element_get_autocorrect, htmlTextAreaElementGetAutocorrect, ghcjs_dom_html_text_area_element_set_autocapitalize, htmlTextAreaElementSetAutocapitalize, ghcjs_dom_html_text_area_element_get_autocapitalize, htmlTextAreaElementGetAutocapitalize, HTMLTextAreaElement, IsHTMLTextAreaElement, castToHTMLTextAreaElement, gTypeHTMLTextAreaElement, toHTMLTextAreaElement) where import GHCJS.Types import GHCJS.Foreign import GHCJS.Marshal import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" ghcjs_dom_html_text_area_element_check_validity :: JSRef HTMLTextAreaElement -> IO Bool htmlTextAreaElementCheckValidity :: (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementCheckValidity self = ghcjs_dom_html_text_area_element_check_validity (unHTMLTextAreaElement (toHTMLTextAreaElement self)) foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" ghcjs_dom_html_text_area_element_set_custom_validity :: JSRef HTMLTextAreaElement -> JSString -> IO () htmlTextAreaElementSetCustomValidity :: (IsHTMLTextAreaElement self, ToJSString error) => self -> error -> IO () htmlTextAreaElementSetCustomValidity self error = ghcjs_dom_html_text_area_element_set_custom_validity (unHTMLTextAreaElement (toHTMLTextAreaElement self)) (toJSString error) foreign import javascript unsafe "$1[\"select\"]()" ghcjs_dom_html_text_area_element_select :: JSRef HTMLTextAreaElement -> IO () htmlTextAreaElementSelect :: (IsHTMLTextAreaElement self) => self -> IO () htmlTextAreaElementSelect self = ghcjs_dom_html_text_area_element_select (unHTMLTextAreaElement (toHTMLTextAreaElement self)) foreign import javascript unsafe "$1[\"setRangeText\"]($2)" ghcjs_dom_html_text_area_element_set_range_text :: JSRef HTMLTextAreaElement -> JSString -> IO () htmlTextAreaElementSetRangeText :: (IsHTMLTextAreaElement self, ToJSString replacement) => self -> replacement -> IO () htmlTextAreaElementSetRangeText self replacement = ghcjs_dom_html_text_area_element_set_range_text (unHTMLTextAreaElement (toHTMLTextAreaElement self)) (toJSString replacement) foreign import javascript unsafe "$1[\"setRangeText\"]($2, $3, $4,\n$5)" ghcjs_dom_html_text_area_element_set_range_text4 :: JSRef HTMLTextAreaElement -> JSString -> Word -> Word -> JSString -> IO () htmlTextAreaElementSetRangeText4 :: (IsHTMLTextAreaElement self, ToJSString replacement, ToJSString selectionMode) => self -> replacement -> Word -> Word -> selectionMode -> IO () htmlTextAreaElementSetRangeText4 self replacement start end selectionMode = ghcjs_dom_html_text_area_element_set_range_text4 (unHTMLTextAreaElement (toHTMLTextAreaElement self)) (toJSString replacement) start end (toJSString selectionMode) foreign import javascript unsafe "$1[\"setSelectionRange\"]($2, $3,\n$4)" ghcjs_dom_html_text_area_element_set_selection_range :: JSRef HTMLTextAreaElement -> Int -> Int -> JSString -> IO () htmlTextAreaElementSetSelectionRange :: (IsHTMLTextAreaElement self, ToJSString direction) => self -> Int -> Int -> direction -> IO () htmlTextAreaElementSetSelectionRange self start end direction = ghcjs_dom_html_text_area_element_set_selection_range (unHTMLTextAreaElement (toHTMLTextAreaElement self)) start end (toJSString direction) foreign import javascript unsafe "$1[\"autofocus\"] = $2;" ghcjs_dom_html_text_area_element_set_autofocus :: JSRef HTMLTextAreaElement -> Bool -> IO () htmlTextAreaElementSetAutofocus :: (IsHTMLTextAreaElement self) => self -> Bool -> IO () htmlTextAreaElementSetAutofocus self val = ghcjs_dom_html_text_area_element_set_autofocus (unHTMLTextAreaElement (toHTMLTextAreaElement self)) val foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)" ghcjs_dom_html_text_area_element_get_autofocus :: JSRef HTMLTextAreaElement -> IO Bool htmlTextAreaElementGetAutofocus :: (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetAutofocus self = ghcjs_dom_html_text_area_element_get_autofocus (unHTMLTextAreaElement (toHTMLTextAreaElement self)) foreign import javascript unsafe "$1[\"cols\"] = $2;" ghcjs_dom_html_text_area_element_set_cols :: JSRef HTMLTextAreaElement -> Int -> IO () htmlTextAreaElementSetCols :: (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetCols self val = ghcjs_dom_html_text_area_element_set_cols (unHTMLTextAreaElement (toHTMLTextAreaElement self)) val foreign import javascript unsafe "$1[\"cols\"]" ghcjs_dom_html_text_area_element_get_cols :: JSRef HTMLTextAreaElement -> IO Int htmlTextAreaElementGetCols :: (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetCols self = ghcjs_dom_html_text_area_element_get_cols (unHTMLTextAreaElement (toHTMLTextAreaElement self)) foreign import javascript unsafe "$1[\"dirName\"] = $2;" ghcjs_dom_html_text_area_element_set_dir_name :: JSRef HTMLTextAreaElement -> JSString -> IO () htmlTextAreaElementSetDirName :: (IsHTMLTextAreaElement self, ToJSString val) => self -> val -> IO () htmlTextAreaElementSetDirName self val = ghcjs_dom_html_text_area_element_set_dir_name (unHTMLTextAreaElement (toHTMLTextAreaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"dirName\"]" ghcjs_dom_html_text_area_element_get_dir_name :: JSRef HTMLTextAreaElement -> IO JSString htmlTextAreaElementGetDirName :: (IsHTMLTextAreaElement self, FromJSString result) => self -> IO result htmlTextAreaElementGetDirName self = fromJSString <$> (ghcjs_dom_html_text_area_element_get_dir_name (unHTMLTextAreaElement (toHTMLTextAreaElement self))) foreign import javascript unsafe "$1[\"disabled\"] = $2;" ghcjs_dom_html_text_area_element_set_disabled :: JSRef HTMLTextAreaElement -> Bool -> IO () htmlTextAreaElementSetDisabled :: (IsHTMLTextAreaElement self) => self -> Bool -> IO () htmlTextAreaElementSetDisabled self val = ghcjs_dom_html_text_area_element_set_disabled (unHTMLTextAreaElement (toHTMLTextAreaElement self)) val foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" ghcjs_dom_html_text_area_element_get_disabled :: JSRef HTMLTextAreaElement -> IO Bool htmlTextAreaElementGetDisabled :: (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetDisabled self = ghcjs_dom_html_text_area_element_get_disabled (unHTMLTextAreaElement (toHTMLTextAreaElement self)) foreign import javascript unsafe "$1[\"form\"]" ghcjs_dom_html_text_area_element_get_form :: JSRef HTMLTextAreaElement -> IO (JSRef HTMLFormElement) htmlTextAreaElementGetForm :: (IsHTMLTextAreaElement self) => self -> IO (Maybe HTMLFormElement) htmlTextAreaElementGetForm self = fmap HTMLFormElement . maybeJSNull <$> (ghcjs_dom_html_text_area_element_get_form (unHTMLTextAreaElement (toHTMLTextAreaElement self))) foreign import javascript unsafe "$1[\"maxLength\"] = $2;" ghcjs_dom_html_text_area_element_set_max_length :: JSRef HTMLTextAreaElement -> Int -> IO () htmlTextAreaElementSetMaxLength :: (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetMaxLength self val = ghcjs_dom_html_text_area_element_set_max_length (unHTMLTextAreaElement (toHTMLTextAreaElement self)) val foreign import javascript unsafe "$1[\"maxLength\"]" ghcjs_dom_html_text_area_element_get_max_length :: JSRef HTMLTextAreaElement -> IO Int htmlTextAreaElementGetMaxLength :: (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetMaxLength self = ghcjs_dom_html_text_area_element_get_max_length (unHTMLTextAreaElement (toHTMLTextAreaElement self)) foreign import javascript unsafe "$1[\"name\"] = $2;" ghcjs_dom_html_text_area_element_set_name :: JSRef HTMLTextAreaElement -> JSString -> IO () htmlTextAreaElementSetName :: (IsHTMLTextAreaElement self, ToJSString val) => self -> val -> IO () htmlTextAreaElementSetName self val = ghcjs_dom_html_text_area_element_set_name (unHTMLTextAreaElement (toHTMLTextAreaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"name\"]" ghcjs_dom_html_text_area_element_get_name :: JSRef HTMLTextAreaElement -> IO JSString htmlTextAreaElementGetName :: (IsHTMLTextAreaElement self, FromJSString result) => self -> IO result htmlTextAreaElementGetName self = fromJSString <$> (ghcjs_dom_html_text_area_element_get_name (unHTMLTextAreaElement (toHTMLTextAreaElement self))) foreign import javascript unsafe "$1[\"placeholder\"] = $2;" ghcjs_dom_html_text_area_element_set_placeholder :: JSRef HTMLTextAreaElement -> JSString -> IO () htmlTextAreaElementSetPlaceholder :: (IsHTMLTextAreaElement self, ToJSString val) => self -> val -> IO () htmlTextAreaElementSetPlaceholder self val = ghcjs_dom_html_text_area_element_set_placeholder (unHTMLTextAreaElement (toHTMLTextAreaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"placeholder\"]" ghcjs_dom_html_text_area_element_get_placeholder :: JSRef HTMLTextAreaElement -> IO JSString htmlTextAreaElementGetPlaceholder :: (IsHTMLTextAreaElement self, FromJSString result) => self -> IO result htmlTextAreaElementGetPlaceholder self = fromJSString <$> (ghcjs_dom_html_text_area_element_get_placeholder (unHTMLTextAreaElement (toHTMLTextAreaElement self))) foreign import javascript unsafe "$1[\"readOnly\"] = $2;" ghcjs_dom_html_text_area_element_set_read_only :: JSRef HTMLTextAreaElement -> Bool -> IO () htmlTextAreaElementSetReadOnly :: (IsHTMLTextAreaElement self) => self -> Bool -> IO () htmlTextAreaElementSetReadOnly self val = ghcjs_dom_html_text_area_element_set_read_only (unHTMLTextAreaElement (toHTMLTextAreaElement self)) val foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)" ghcjs_dom_html_text_area_element_get_read_only :: JSRef HTMLTextAreaElement -> IO Bool htmlTextAreaElementGetReadOnly :: (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetReadOnly self = ghcjs_dom_html_text_area_element_get_read_only (unHTMLTextAreaElement (toHTMLTextAreaElement self)) foreign import javascript unsafe "$1[\"required\"] = $2;" ghcjs_dom_html_text_area_element_set_required :: JSRef HTMLTextAreaElement -> Bool -> IO () htmlTextAreaElementSetRequired :: (IsHTMLTextAreaElement self) => self -> Bool -> IO () htmlTextAreaElementSetRequired self val = ghcjs_dom_html_text_area_element_set_required (unHTMLTextAreaElement (toHTMLTextAreaElement self)) val foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)" ghcjs_dom_html_text_area_element_get_required :: JSRef HTMLTextAreaElement -> IO Bool htmlTextAreaElementGetRequired :: (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetRequired self = ghcjs_dom_html_text_area_element_get_required (unHTMLTextAreaElement (toHTMLTextAreaElement self)) foreign import javascript unsafe "$1[\"rows\"] = $2;" ghcjs_dom_html_text_area_element_set_rows :: JSRef HTMLTextAreaElement -> Int -> IO () htmlTextAreaElementSetRows :: (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetRows self val = ghcjs_dom_html_text_area_element_set_rows (unHTMLTextAreaElement (toHTMLTextAreaElement self)) val foreign import javascript unsafe "$1[\"rows\"]" ghcjs_dom_html_text_area_element_get_rows :: JSRef HTMLTextAreaElement -> IO Int htmlTextAreaElementGetRows :: (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetRows self = ghcjs_dom_html_text_area_element_get_rows (unHTMLTextAreaElement (toHTMLTextAreaElement self)) foreign import javascript unsafe "$1[\"wrap\"] = $2;" ghcjs_dom_html_text_area_element_set_wrap :: JSRef HTMLTextAreaElement -> JSString -> IO () htmlTextAreaElementSetWrap :: (IsHTMLTextAreaElement self, ToJSString val) => self -> val -> IO () htmlTextAreaElementSetWrap self val = ghcjs_dom_html_text_area_element_set_wrap (unHTMLTextAreaElement (toHTMLTextAreaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"wrap\"]" ghcjs_dom_html_text_area_element_get_wrap :: JSRef HTMLTextAreaElement -> IO JSString htmlTextAreaElementGetWrap :: (IsHTMLTextAreaElement self, FromJSString result) => self -> IO result htmlTextAreaElementGetWrap self = fromJSString <$> (ghcjs_dom_html_text_area_element_get_wrap (unHTMLTextAreaElement (toHTMLTextAreaElement self))) foreign import javascript unsafe "$1[\"defaultValue\"] = $2;" ghcjs_dom_html_text_area_element_set_default_value :: JSRef HTMLTextAreaElement -> JSString -> IO () htmlTextAreaElementSetDefaultValue :: (IsHTMLTextAreaElement self, ToJSString val) => self -> val -> IO () htmlTextAreaElementSetDefaultValue self val = ghcjs_dom_html_text_area_element_set_default_value (unHTMLTextAreaElement (toHTMLTextAreaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"defaultValue\"]" ghcjs_dom_html_text_area_element_get_default_value :: JSRef HTMLTextAreaElement -> IO JSString htmlTextAreaElementGetDefaultValue :: (IsHTMLTextAreaElement self, FromJSString result) => self -> IO result htmlTextAreaElementGetDefaultValue self = fromJSString <$> (ghcjs_dom_html_text_area_element_get_default_value (unHTMLTextAreaElement (toHTMLTextAreaElement self))) foreign import javascript unsafe "$1[\"value\"] = $2;" ghcjs_dom_html_text_area_element_set_value :: JSRef HTMLTextAreaElement -> JSString -> IO () htmlTextAreaElementSetValue :: (IsHTMLTextAreaElement self, ToJSString val) => self -> val -> IO () htmlTextAreaElementSetValue self val = ghcjs_dom_html_text_area_element_set_value (unHTMLTextAreaElement (toHTMLTextAreaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"value\"]" ghcjs_dom_html_text_area_element_get_value :: JSRef HTMLTextAreaElement -> IO JSString htmlTextAreaElementGetValue :: (IsHTMLTextAreaElement self, FromJSString result) => self -> IO result htmlTextAreaElementGetValue self = fromJSString <$> (ghcjs_dom_html_text_area_element_get_value (unHTMLTextAreaElement (toHTMLTextAreaElement self))) foreign import javascript unsafe "$1[\"textLength\"]" ghcjs_dom_html_text_area_element_get_text_length :: JSRef HTMLTextAreaElement -> IO Word htmlTextAreaElementGetTextLength :: (IsHTMLTextAreaElement self) => self -> IO Word htmlTextAreaElementGetTextLength self = ghcjs_dom_html_text_area_element_get_text_length (unHTMLTextAreaElement (toHTMLTextAreaElement self)) foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" ghcjs_dom_html_text_area_element_get_will_validate :: JSRef HTMLTextAreaElement -> IO Bool htmlTextAreaElementGetWillValidate :: (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetWillValidate self = ghcjs_dom_html_text_area_element_get_will_validate (unHTMLTextAreaElement (toHTMLTextAreaElement self)) foreign import javascript unsafe "$1[\"validity\"]" ghcjs_dom_html_text_area_element_get_validity :: JSRef HTMLTextAreaElement -> IO (JSRef ValidityState) htmlTextAreaElementGetValidity :: (IsHTMLTextAreaElement self) => self -> IO (Maybe ValidityState) htmlTextAreaElementGetValidity self = fmap ValidityState . maybeJSNull <$> (ghcjs_dom_html_text_area_element_get_validity (unHTMLTextAreaElement (toHTMLTextAreaElement self))) foreign import javascript unsafe "$1[\"validationMessage\"]" ghcjs_dom_html_text_area_element_get_validation_message :: JSRef HTMLTextAreaElement -> IO JSString htmlTextAreaElementGetValidationMessage :: (IsHTMLTextAreaElement self, FromJSString result) => self -> IO result htmlTextAreaElementGetValidationMessage self = fromJSString <$> (ghcjs_dom_html_text_area_element_get_validation_message (unHTMLTextAreaElement (toHTMLTextAreaElement self))) foreign import javascript unsafe "$1[\"labels\"]" ghcjs_dom_html_text_area_element_get_labels :: JSRef HTMLTextAreaElement -> IO (JSRef NodeList) htmlTextAreaElementGetLabels :: (IsHTMLTextAreaElement self) => self -> IO (Maybe NodeList) htmlTextAreaElementGetLabels self = fmap NodeList . maybeJSNull <$> (ghcjs_dom_html_text_area_element_get_labels (unHTMLTextAreaElement (toHTMLTextAreaElement self))) foreign import javascript unsafe "$1[\"selectionStart\"] = $2;" ghcjs_dom_html_text_area_element_set_selection_start :: JSRef HTMLTextAreaElement -> Int -> IO () htmlTextAreaElementSetSelectionStart :: (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetSelectionStart self val = ghcjs_dom_html_text_area_element_set_selection_start (unHTMLTextAreaElement (toHTMLTextAreaElement self)) val foreign import javascript unsafe "$1[\"selectionStart\"]" ghcjs_dom_html_text_area_element_get_selection_start :: JSRef HTMLTextAreaElement -> IO Int htmlTextAreaElementGetSelectionStart :: (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetSelectionStart self = ghcjs_dom_html_text_area_element_get_selection_start (unHTMLTextAreaElement (toHTMLTextAreaElement self)) foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;" ghcjs_dom_html_text_area_element_set_selection_end :: JSRef HTMLTextAreaElement -> Int -> IO () htmlTextAreaElementSetSelectionEnd :: (IsHTMLTextAreaElement self) => self -> Int -> IO () htmlTextAreaElementSetSelectionEnd self val = ghcjs_dom_html_text_area_element_set_selection_end (unHTMLTextAreaElement (toHTMLTextAreaElement self)) val foreign import javascript unsafe "$1[\"selectionEnd\"]" ghcjs_dom_html_text_area_element_get_selection_end :: JSRef HTMLTextAreaElement -> IO Int htmlTextAreaElementGetSelectionEnd :: (IsHTMLTextAreaElement self) => self -> IO Int htmlTextAreaElementGetSelectionEnd self = ghcjs_dom_html_text_area_element_get_selection_end (unHTMLTextAreaElement (toHTMLTextAreaElement self)) foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;" ghcjs_dom_html_text_area_element_set_selection_direction :: JSRef HTMLTextAreaElement -> JSString -> IO () htmlTextAreaElementSetSelectionDirection :: (IsHTMLTextAreaElement self, ToJSString val) => self -> val -> IO () htmlTextAreaElementSetSelectionDirection self val = ghcjs_dom_html_text_area_element_set_selection_direction (unHTMLTextAreaElement (toHTMLTextAreaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"selectionDirection\"]" ghcjs_dom_html_text_area_element_get_selection_direction :: JSRef HTMLTextAreaElement -> IO JSString htmlTextAreaElementGetSelectionDirection :: (IsHTMLTextAreaElement self, FromJSString result) => self -> IO result htmlTextAreaElementGetSelectionDirection self = fromJSString <$> (ghcjs_dom_html_text_area_element_get_selection_direction (unHTMLTextAreaElement (toHTMLTextAreaElement self))) foreign import javascript unsafe "$1[\"autocorrect\"] = $2;" ghcjs_dom_html_text_area_element_set_autocorrect :: JSRef HTMLTextAreaElement -> Bool -> IO () htmlTextAreaElementSetAutocorrect :: (IsHTMLTextAreaElement self) => self -> Bool -> IO () htmlTextAreaElementSetAutocorrect self val = ghcjs_dom_html_text_area_element_set_autocorrect (unHTMLTextAreaElement (toHTMLTextAreaElement self)) val foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)" ghcjs_dom_html_text_area_element_get_autocorrect :: JSRef HTMLTextAreaElement -> IO Bool htmlTextAreaElementGetAutocorrect :: (IsHTMLTextAreaElement self) => self -> IO Bool htmlTextAreaElementGetAutocorrect self = ghcjs_dom_html_text_area_element_get_autocorrect (unHTMLTextAreaElement (toHTMLTextAreaElement self)) foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;" ghcjs_dom_html_text_area_element_set_autocapitalize :: JSRef HTMLTextAreaElement -> JSString -> IO () htmlTextAreaElementSetAutocapitalize :: (IsHTMLTextAreaElement self, ToJSString val) => self -> val -> IO () htmlTextAreaElementSetAutocapitalize self val = ghcjs_dom_html_text_area_element_set_autocapitalize (unHTMLTextAreaElement (toHTMLTextAreaElement self)) (toJSString val) foreign import javascript unsafe "$1[\"autocapitalize\"]" ghcjs_dom_html_text_area_element_get_autocapitalize :: JSRef HTMLTextAreaElement -> IO JSString htmlTextAreaElementGetAutocapitalize :: (IsHTMLTextAreaElement self, FromJSString result) => self -> IO result htmlTextAreaElementGetAutocapitalize self = fromJSString <$> (ghcjs_dom_html_text_area_element_get_autocapitalize (unHTMLTextAreaElement (toHTMLTextAreaElement self))) #else module GHCJS.DOM.HTMLTextAreaElement ( module Graphics.UI.Gtk.WebKit.DOM.HTMLTextAreaElement ) where import Graphics.UI.Gtk.WebKit.DOM.HTMLTextAreaElement #endif