-- GENERATED by C->Haskell Compiler, version 0.13.13 (gtk2hs branch) "Bin IO", 27 May 2012 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLTextAreaElement(
checkValidity,
setCustomValidity,
select,
setRangeText4,
setSelectionRange,
setAutofocus,
getAutofocus,
setCols,
getCols,
setDirName,
getDirName,
setDisabled,
getDisabled,
getForm,
setMaxLength,
getMaxLength,
setName,
getName,
setPlaceholder,
getPlaceholder,
setReadOnly,
getReadOnly,
setRequired,
getRequired,
setRows,
getRows,
setWrap,
getWrap,
setDefaultValue,
getDefaultValue,
setValue,
getValue,
getTextLength,
getWillValidate,
getValidity,
getValidationMessage,
getLabels,
setSelectionStart,
getSelectionStart,
setSelectionEnd,
getSelectionEnd,
setSelectionDirection,
getSelectionDirection,
setAutocorrect,
getAutocorrect,
setAutocapitalize,
getAutocapitalize,
HTMLTextAreaElement,
castToHTMLTextAreaElement,
gTypeHTMLTextAreaElement,
HTMLTextAreaElementClass,
toHTMLTextAreaElement,
) where
import Prelude hiding (drop, error, print)
import Data.Typeable (Typeable)
import Foreign.Marshal (maybePeek, maybeWith)
import System.Glib.FFI (maybeNull, withForeignPtr, nullForeignPtr, Ptr, nullPtr, castPtr, Word, Int64, Word64, CChar(..), CInt(..), CUInt(..), CLong(..), CULong(..), CLLong(..), CULLong(..), CShort(..), CUShort(..), CFloat(..), CDouble(..), toBool, fromBool)
import System.Glib.UTFString (GlibString(..), readUTFString)
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures
import Graphics.UI.Gtk.WebKit.DOM.EventM
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 70 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
checkValidity ::
              (MonadIO m, HTMLTextAreaElementClass self) => self -> m Bool
checkValidity self
  = liftIO
      (toBool <$>
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_check_validity argPtr1)
{-# LINE 79 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
setCustomValidity ::
                  (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
                    self -> (Maybe string) -> m ()
setCustomValidity self error
  = liftIO
      (maybeWith withUTFString error $
         \ errorPtr ->
           (\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_custom_validity argPtr1 arg2)
{-# LINE 89 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
             (toHTMLTextAreaElement self)
             errorPtr)
 
select ::
       (MonadIO m, HTMLTextAreaElementClass self) => self -> m ()
select self
  = liftIO
      ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_select argPtr1)
{-# LINE 97 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
         (toHTMLTextAreaElement self))

setRangeText4 ::
              (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
                self -> string -> Word -> Word -> string -> m ()
setRangeText4 self replacement start end selectionMode
  = liftIO
      (propagateGError $
         \ errorPtr_ ->
           withUTFString selectionMode $
             \ selectionModePtr ->
               withUTFString replacement $
                 \ replacementPtr ->
                   (\(HTMLTextAreaElement arg1) arg2 arg3 arg4 arg5 arg6 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_range_text argPtr1 arg2 arg3 arg4 arg5 arg6)
{-# LINE 112 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
                     (toHTMLTextAreaElement self)
                     replacementPtr
                 (fromIntegral start)
                 (fromIntegral end)
                 selectionModePtr
             errorPtr_)
 
setSelectionRange ::
                  (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
                    self -> Int -> Int -> string -> m ()
setSelectionRange self start end direction
  = liftIO
      (withUTFString direction $
         \ directionPtr ->
           (\(HTMLTextAreaElement arg1) arg2 arg3 arg4 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_selection_range argPtr1 arg2 arg3 arg4)
{-# LINE 128 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
             (toHTMLTextAreaElement self)
             (fromIntegral start)
             (fromIntegral end)
             directionPtr)
 
setAutofocus ::
             (MonadIO m, HTMLTextAreaElementClass self) => self -> Bool -> m ()
setAutofocus self val
  = liftIO
      ((\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_autofocus argPtr1 arg2)
{-# LINE 138 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
         (toHTMLTextAreaElement self)
         (fromBool val))
 
getAutofocus ::
             (MonadIO m, HTMLTextAreaElementClass self) => self -> m Bool
getAutofocus self
  = liftIO
      (toBool <$>
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_autofocus argPtr1)
{-# LINE 147 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
setCols ::
        (MonadIO m, HTMLTextAreaElementClass self) => self -> Int -> m ()
setCols self val
  = liftIO
      ((\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_cols argPtr1 arg2)
{-# LINE 154 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
         (toHTMLTextAreaElement self)
         (fromIntegral val))
 
getCols ::
        (MonadIO m, HTMLTextAreaElementClass self) => self -> m Int
getCols self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_cols argPtr1)
{-# LINE 163 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
setDirName ::
           (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
             self -> string -> m ()
setDirName self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_dir_name argPtr1 arg2)
{-# LINE 173 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
             (toHTMLTextAreaElement self)
             valPtr)
 
getDirName ::
           (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
             self -> m string
getDirName self
  = liftIO
      (((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_dir_name argPtr1)
{-# LINE 182 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
          (toHTMLTextAreaElement self))
         >>=
         readUTFString)
 
setDisabled ::
            (MonadIO m, HTMLTextAreaElementClass self) => self -> Bool -> m ()
setDisabled self val
  = liftIO
      ((\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_disabled argPtr1 arg2)
{-# LINE 191 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
         (toHTMLTextAreaElement self)
         (fromBool val))
 
getDisabled ::
            (MonadIO m, HTMLTextAreaElementClass self) => self -> m Bool
getDisabled self
  = liftIO
      (toBool <$>
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_disabled argPtr1)
{-# LINE 200 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
getForm ::
        (MonadIO m, HTMLTextAreaElementClass self) =>
          self -> m (Maybe HTMLFormElement)
getForm self
  = liftIO
      (maybeNull (makeNewGObject mkHTMLFormElement)
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_form argPtr1)
{-# LINE 209 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
setMaxLength ::
             (MonadIO m, HTMLTextAreaElementClass self) => self -> Int -> m ()
setMaxLength self val
  = liftIO
      (propagateGError $
         \ errorPtr_ ->
           (\(HTMLTextAreaElement arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_max_length argPtr1 arg2 arg3)
{-# LINE 218 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
             (toHTMLTextAreaElement self)
             (fromIntegral val)
             errorPtr_)
 
getMaxLength ::
             (MonadIO m, HTMLTextAreaElementClass self) => self -> m Int
getMaxLength self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_max_length argPtr1)
{-# LINE 228 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
setName ::
        (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
          self -> string -> m ()
setName self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_name argPtr1 arg2)
{-# LINE 238 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
             (toHTMLTextAreaElement self)
             valPtr)
 
getName ::
        (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
          self -> m string
getName self
  = liftIO
      (((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_name argPtr1)
{-# LINE 247 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
          (toHTMLTextAreaElement self))
         >>=
         readUTFString)
 
setPlaceholder ::
               (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
                 self -> string -> m ()
setPlaceholder self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_placeholder argPtr1 arg2)
{-# LINE 259 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
             (toHTMLTextAreaElement self)
             valPtr)
 
getPlaceholder ::
               (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
                 self -> m string
getPlaceholder self
  = liftIO
      (((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_placeholder argPtr1)
{-# LINE 268 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
          (toHTMLTextAreaElement self))
         >>=
         readUTFString)
 
setReadOnly ::
            (MonadIO m, HTMLTextAreaElementClass self) => self -> Bool -> m ()
setReadOnly self val
  = liftIO
      ((\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_read_only argPtr1 arg2)
{-# LINE 277 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
         (toHTMLTextAreaElement self)
         (fromBool val))
 
getReadOnly ::
            (MonadIO m, HTMLTextAreaElementClass self) => self -> m Bool
getReadOnly self
  = liftIO
      (toBool <$>
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_read_only argPtr1)
{-# LINE 286 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
setRequired ::
            (MonadIO m, HTMLTextAreaElementClass self) => self -> Bool -> m ()
setRequired self val
  = liftIO
      ((\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_required argPtr1 arg2)
{-# LINE 293 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
         (toHTMLTextAreaElement self)
         (fromBool val))
 
getRequired ::
            (MonadIO m, HTMLTextAreaElementClass self) => self -> m Bool
getRequired self
  = liftIO
      (toBool <$>
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_required argPtr1)
{-# LINE 302 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
setRows ::
        (MonadIO m, HTMLTextAreaElementClass self) => self -> Int -> m ()
setRows self val
  = liftIO
      ((\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_rows argPtr1 arg2)
{-# LINE 309 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
         (toHTMLTextAreaElement self)
         (fromIntegral val))
 
getRows ::
        (MonadIO m, HTMLTextAreaElementClass self) => self -> m Int
getRows self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_rows argPtr1)
{-# LINE 318 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
setWrap ::
        (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
          self -> string -> m ()
setWrap self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_wrap argPtr1 arg2)
{-# LINE 328 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
             (toHTMLTextAreaElement self)
             valPtr)
 
getWrap ::
        (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
          self -> m string
getWrap self
  = liftIO
      (((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_wrap argPtr1)
{-# LINE 337 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
          (toHTMLTextAreaElement self))
         >>=
         readUTFString)
 
setDefaultValue ::
                (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
                  self -> (Maybe string) -> m ()
setDefaultValue self val
  = liftIO
      (maybeWith withUTFString val $
         \ valPtr ->
           (\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_default_value argPtr1 arg2)
{-# LINE 349 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
             (toHTMLTextAreaElement self)
             valPtr)
 
getDefaultValue ::
                (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
                  self -> m (Maybe string)
getDefaultValue self
  = liftIO
      (((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_default_value argPtr1)
{-# LINE 358 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
          (toHTMLTextAreaElement self))
         >>=
         maybePeek readUTFString)
 
setValue ::
         (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
           self -> (Maybe string) -> m ()
setValue self val
  = liftIO
      (maybeWith withUTFString val $
         \ valPtr ->
           (\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_value argPtr1 arg2)
{-# LINE 370 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
             (toHTMLTextAreaElement self)
             valPtr)
 
getValue ::
         (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
           self -> m (Maybe string)
getValue self
  = liftIO
      (((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_value argPtr1)
{-# LINE 379 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
          (toHTMLTextAreaElement self))
         >>=
         maybePeek readUTFString)
 
getTextLength ::
              (MonadIO m, HTMLTextAreaElementClass self) => self -> m Word
getTextLength self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_text_length argPtr1)
{-# LINE 389 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
getWillValidate ::
                (MonadIO m, HTMLTextAreaElementClass self) => self -> m Bool
getWillValidate self
  = liftIO
      (toBool <$>
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_will_validate argPtr1)
{-# LINE 397 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
getValidity ::
            (MonadIO m, HTMLTextAreaElementClass self) =>
              self -> m (Maybe ValidityState)
getValidity self
  = liftIO
      (maybeNull (makeNewGObject mkValidityState)
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_validity argPtr1)
{-# LINE 406 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
getValidationMessage ::
                     (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
                       self -> m string
getValidationMessage self
  = liftIO
      (((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_validation_message argPtr1)
{-# LINE 415 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
          (toHTMLTextAreaElement self))
         >>=
         readUTFString)
 
getLabels ::
          (MonadIO m, HTMLTextAreaElementClass self) =>
            self -> m (Maybe NodeList)
getLabels self
  = liftIO
      (maybeNull (makeNewGObject mkNodeList)
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_labels argPtr1)
{-# LINE 426 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
setSelectionStart ::
                  (MonadIO m, HTMLTextAreaElementClass self) => self -> Int -> m ()
setSelectionStart self val
  = liftIO
      ((\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_selection_start argPtr1 arg2)
{-# LINE 433 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
         (toHTMLTextAreaElement self)
         (fromIntegral val))
 
getSelectionStart ::
                  (MonadIO m, HTMLTextAreaElementClass self) => self -> m Int
getSelectionStart self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_selection_start argPtr1)
{-# LINE 442 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
setSelectionEnd ::
                (MonadIO m, HTMLTextAreaElementClass self) => self -> Int -> m ()
setSelectionEnd self val
  = liftIO
      ((\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_selection_end argPtr1 arg2)
{-# LINE 449 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
         (toHTMLTextAreaElement self)
         (fromIntegral val))
 
getSelectionEnd ::
                (MonadIO m, HTMLTextAreaElementClass self) => self -> m Int
getSelectionEnd self
  = liftIO
      (fromIntegral <$>
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_selection_end argPtr1)
{-# LINE 458 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
setSelectionDirection ::
                      (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
                        self -> string -> m ()
setSelectionDirection self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_selection_direction argPtr1 arg2)
{-# LINE 469 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
             (toHTMLTextAreaElement self)
             valPtr)
 
getSelectionDirection ::
                      (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
                        self -> m string
getSelectionDirection self
  = liftIO
      (((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_selection_direction argPtr1)
{-# LINE 479 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
          (toHTMLTextAreaElement self))
         >>=
         readUTFString)

setAutocorrect ::
               (MonadIO m, HTMLTextAreaElementClass self) => self -> Bool -> m ()
setAutocorrect self val
  = liftIO
      ((\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_autocorrect argPtr1 arg2)
{-# LINE 489 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
         (toHTMLTextAreaElement self)
         (fromBool val))
 
getAutocorrect ::
               (MonadIO m, HTMLTextAreaElementClass self) => self -> m Bool
getAutocorrect self
  = liftIO
      (toBool <$>
         ((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_autocorrect argPtr1)
{-# LINE 498 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
            (toHTMLTextAreaElement self)))
 
setAutocapitalize ::
                  (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
                    self -> (Maybe string) -> m ()
setAutocapitalize self val
  = liftIO
      (maybeWith withUTFString val $
         \ valPtr ->
           (\(HTMLTextAreaElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_set_autocapitalize argPtr1 arg2)
{-# LINE 508 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
             (toHTMLTextAreaElement self)
             valPtr)
 
getAutocapitalize ::
                  (MonadIO m, HTMLTextAreaElementClass self, GlibString string) =>
                    self -> m (Maybe string)
getAutocapitalize self
  = liftIO
      (((\(HTMLTextAreaElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_text_area_element_get_autocapitalize argPtr1)
{-# LINE 517 "./Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.chs" #-}
          (toHTMLTextAreaElement self))
         >>=
         maybePeek readUTFString)

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_check_validity"
  webkit_dom_html_text_area_element_check_validity :: ((Ptr HTMLTextAreaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_custom_validity"
  webkit_dom_html_text_area_element_set_custom_validity :: ((Ptr HTMLTextAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_select"
  webkit_dom_html_text_area_element_select :: ((Ptr HTMLTextAreaElement) -> (IO ()))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_range_text"
  webkit_dom_html_text_area_element_set_range_text :: ((Ptr HTMLTextAreaElement) -> ((Ptr CChar) -> (CULong -> (CULong -> ((Ptr CChar) -> ((Ptr (Ptr ())) -> (IO ())))))))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_selection_range"
  webkit_dom_html_text_area_element_set_selection_range :: ((Ptr HTMLTextAreaElement) -> (CLong -> (CLong -> ((Ptr CChar) -> (IO ())))))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_autofocus"
  webkit_dom_html_text_area_element_set_autofocus :: ((Ptr HTMLTextAreaElement) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_autofocus"
  webkit_dom_html_text_area_element_get_autofocus :: ((Ptr HTMLTextAreaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_cols"
  webkit_dom_html_text_area_element_set_cols :: ((Ptr HTMLTextAreaElement) -> (CLong -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_cols"
  webkit_dom_html_text_area_element_get_cols :: ((Ptr HTMLTextAreaElement) -> (IO CLong))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_dir_name"
  webkit_dom_html_text_area_element_set_dir_name :: ((Ptr HTMLTextAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_dir_name"
  webkit_dom_html_text_area_element_get_dir_name :: ((Ptr HTMLTextAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_disabled"
  webkit_dom_html_text_area_element_set_disabled :: ((Ptr HTMLTextAreaElement) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_disabled"
  webkit_dom_html_text_area_element_get_disabled :: ((Ptr HTMLTextAreaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_form"
  webkit_dom_html_text_area_element_get_form :: ((Ptr HTMLTextAreaElement) -> (IO (Ptr HTMLFormElement)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_max_length"
  webkit_dom_html_text_area_element_set_max_length :: ((Ptr HTMLTextAreaElement) -> (CLong -> ((Ptr (Ptr ())) -> (IO ()))))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_max_length"
  webkit_dom_html_text_area_element_get_max_length :: ((Ptr HTMLTextAreaElement) -> (IO CLong))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_name"
  webkit_dom_html_text_area_element_set_name :: ((Ptr HTMLTextAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_name"
  webkit_dom_html_text_area_element_get_name :: ((Ptr HTMLTextAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_placeholder"
  webkit_dom_html_text_area_element_set_placeholder :: ((Ptr HTMLTextAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_placeholder"
  webkit_dom_html_text_area_element_get_placeholder :: ((Ptr HTMLTextAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_read_only"
  webkit_dom_html_text_area_element_set_read_only :: ((Ptr HTMLTextAreaElement) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_read_only"
  webkit_dom_html_text_area_element_get_read_only :: ((Ptr HTMLTextAreaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_required"
  webkit_dom_html_text_area_element_set_required :: ((Ptr HTMLTextAreaElement) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_required"
  webkit_dom_html_text_area_element_get_required :: ((Ptr HTMLTextAreaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_rows"
  webkit_dom_html_text_area_element_set_rows :: ((Ptr HTMLTextAreaElement) -> (CLong -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_rows"
  webkit_dom_html_text_area_element_get_rows :: ((Ptr HTMLTextAreaElement) -> (IO CLong))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_wrap"
  webkit_dom_html_text_area_element_set_wrap :: ((Ptr HTMLTextAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_wrap"
  webkit_dom_html_text_area_element_get_wrap :: ((Ptr HTMLTextAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_default_value"
  webkit_dom_html_text_area_element_set_default_value :: ((Ptr HTMLTextAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_default_value"
  webkit_dom_html_text_area_element_get_default_value :: ((Ptr HTMLTextAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_value"
  webkit_dom_html_text_area_element_set_value :: ((Ptr HTMLTextAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_value"
  webkit_dom_html_text_area_element_get_value :: ((Ptr HTMLTextAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_text_length"
  webkit_dom_html_text_area_element_get_text_length :: ((Ptr HTMLTextAreaElement) -> (IO CULong))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_will_validate"
  webkit_dom_html_text_area_element_get_will_validate :: ((Ptr HTMLTextAreaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_validity"
  webkit_dom_html_text_area_element_get_validity :: ((Ptr HTMLTextAreaElement) -> (IO (Ptr ValidityState)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_validation_message"
  webkit_dom_html_text_area_element_get_validation_message :: ((Ptr HTMLTextAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_labels"
  webkit_dom_html_text_area_element_get_labels :: ((Ptr HTMLTextAreaElement) -> (IO (Ptr NodeList)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_selection_start"
  webkit_dom_html_text_area_element_set_selection_start :: ((Ptr HTMLTextAreaElement) -> (CLong -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_selection_start"
  webkit_dom_html_text_area_element_get_selection_start :: ((Ptr HTMLTextAreaElement) -> (IO CLong))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_selection_end"
  webkit_dom_html_text_area_element_set_selection_end :: ((Ptr HTMLTextAreaElement) -> (CLong -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_selection_end"
  webkit_dom_html_text_area_element_get_selection_end :: ((Ptr HTMLTextAreaElement) -> (IO CLong))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_selection_direction"
  webkit_dom_html_text_area_element_set_selection_direction :: ((Ptr HTMLTextAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_selection_direction"
  webkit_dom_html_text_area_element_get_selection_direction :: ((Ptr HTMLTextAreaElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_autocorrect"
  webkit_dom_html_text_area_element_set_autocorrect :: ((Ptr HTMLTextAreaElement) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_autocorrect"
  webkit_dom_html_text_area_element_get_autocorrect :: ((Ptr HTMLTextAreaElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_set_autocapitalize"
  webkit_dom_html_text_area_element_set_autocapitalize :: ((Ptr HTMLTextAreaElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLTextAreaElement.h webkit_dom_html_text_area_element_get_autocapitalize"
  webkit_dom_html_text_area_element_get_autocapitalize :: ((Ptr HTMLTextAreaElement) -> (IO (Ptr CChar)))