{-# LANGUAGE CPP #-} #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLFormElement (ghcjs_dom_html_form_element_get, htmlFormElement_get, ghcjs_dom_html_form_element_submit, htmlFormElementSubmit, ghcjs_dom_html_form_element_reset, htmlFormElementReset, ghcjs_dom_html_form_element_check_validity, htmlFormElementCheckValidity, ghcjs_dom_html_form_element_set_accept_charset, htmlFormElementSetAcceptCharset, ghcjs_dom_html_form_element_get_accept_charset, htmlFormElementGetAcceptCharset, ghcjs_dom_html_form_element_set_action, htmlFormElementSetAction, ghcjs_dom_html_form_element_get_action, htmlFormElementGetAction, ghcjs_dom_html_form_element_set_autocomplete, htmlFormElementSetAutocomplete, ghcjs_dom_html_form_element_get_autocomplete, htmlFormElementGetAutocomplete, ghcjs_dom_html_form_element_set_enctype, htmlFormElementSetEnctype, ghcjs_dom_html_form_element_get_enctype, htmlFormElementGetEnctype, ghcjs_dom_html_form_element_set_encoding, htmlFormElementSetEncoding, ghcjs_dom_html_form_element_get_encoding, htmlFormElementGetEncoding, ghcjs_dom_html_form_element_set_method, htmlFormElementSetMethod, ghcjs_dom_html_form_element_get_method, htmlFormElementGetMethod, ghcjs_dom_html_form_element_set_name, htmlFormElementSetName, ghcjs_dom_html_form_element_get_name, htmlFormElementGetName, ghcjs_dom_html_form_element_set_no_validate, htmlFormElementSetNoValidate, ghcjs_dom_html_form_element_get_no_validate, htmlFormElementGetNoValidate, ghcjs_dom_html_form_element_set_target, htmlFormElementSetTarget, ghcjs_dom_html_form_element_get_target, htmlFormElementGetTarget, ghcjs_dom_html_form_element_get_elements, htmlFormElementGetElements, ghcjs_dom_html_form_element_get_length, htmlFormElementGetLength, HTMLFormElement, IsHTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement, toHTMLFormElement) where import GHCJS.Types import GHCJS.Foreign import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM import GHCJS.Types import GHCJS.Foreign import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"_get\"]($2)" ghcjs_dom_html_form_element_get :: JSRef HTMLFormElement -> Word -> IO (JSRef Element) #else ghcjs_dom_html_form_element_get :: JSRef HTMLFormElement -> Word -> IO (JSRef Element) ghcjs_dom_html_form_element_get = undefined #endif htmlFormElement_get :: (IsHTMLFormElement self) => self -> Word -> IO (Maybe Element) htmlFormElement_get self index = fmap Element . maybeJSNull <$> (ghcjs_dom_html_form_element_get (unHTMLFormElement (toHTMLFormElement self)) index) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"submit\"]()" ghcjs_dom_html_form_element_submit :: JSRef HTMLFormElement -> IO () #else ghcjs_dom_html_form_element_submit :: JSRef HTMLFormElement -> IO () ghcjs_dom_html_form_element_submit = undefined #endif htmlFormElementSubmit :: (IsHTMLFormElement self) => self -> IO () htmlFormElementSubmit self = ghcjs_dom_html_form_element_submit (unHTMLFormElement (toHTMLFormElement self)) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"reset\"]()" ghcjs_dom_html_form_element_reset :: JSRef HTMLFormElement -> IO () #else ghcjs_dom_html_form_element_reset :: JSRef HTMLFormElement -> IO () ghcjs_dom_html_form_element_reset = undefined #endif htmlFormElementReset :: (IsHTMLFormElement self) => self -> IO () htmlFormElementReset self = ghcjs_dom_html_form_element_reset (unHTMLFormElement (toHTMLFormElement self)) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" ghcjs_dom_html_form_element_check_validity :: JSRef HTMLFormElement -> IO Bool #else ghcjs_dom_html_form_element_check_validity :: JSRef HTMLFormElement -> IO Bool ghcjs_dom_html_form_element_check_validity = undefined #endif htmlFormElementCheckValidity :: (IsHTMLFormElement self) => self -> IO Bool htmlFormElementCheckValidity self = ghcjs_dom_html_form_element_check_validity (unHTMLFormElement (toHTMLFormElement self)) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"acceptCharset\"] = $2;" ghcjs_dom_html_form_element_set_accept_charset :: JSRef HTMLFormElement -> JSString -> IO () #else ghcjs_dom_html_form_element_set_accept_charset :: JSRef HTMLFormElement -> JSString -> IO () ghcjs_dom_html_form_element_set_accept_charset = undefined #endif htmlFormElementSetAcceptCharset :: (IsHTMLFormElement self, ToJSString val) => self -> val -> IO () htmlFormElementSetAcceptCharset self val = ghcjs_dom_html_form_element_set_accept_charset (unHTMLFormElement (toHTMLFormElement self)) (toJSString val) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"acceptCharset\"]" ghcjs_dom_html_form_element_get_accept_charset :: JSRef HTMLFormElement -> IO JSString #else ghcjs_dom_html_form_element_get_accept_charset :: JSRef HTMLFormElement -> IO JSString ghcjs_dom_html_form_element_get_accept_charset = undefined #endif htmlFormElementGetAcceptCharset :: (IsHTMLFormElement self, FromJSString result) => self -> IO result htmlFormElementGetAcceptCharset self = fromJSString <$> (ghcjs_dom_html_form_element_get_accept_charset (unHTMLFormElement (toHTMLFormElement self))) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"action\"] = $2;" ghcjs_dom_html_form_element_set_action :: JSRef HTMLFormElement -> JSString -> IO () #else ghcjs_dom_html_form_element_set_action :: JSRef HTMLFormElement -> JSString -> IO () ghcjs_dom_html_form_element_set_action = undefined #endif htmlFormElementSetAction :: (IsHTMLFormElement self, ToJSString val) => self -> val -> IO () htmlFormElementSetAction self val = ghcjs_dom_html_form_element_set_action (unHTMLFormElement (toHTMLFormElement self)) (toJSString val) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"action\"]" ghcjs_dom_html_form_element_get_action :: JSRef HTMLFormElement -> IO JSString #else ghcjs_dom_html_form_element_get_action :: JSRef HTMLFormElement -> IO JSString ghcjs_dom_html_form_element_get_action = undefined #endif htmlFormElementGetAction :: (IsHTMLFormElement self, FromJSString result) => self -> IO result htmlFormElementGetAction self = fromJSString <$> (ghcjs_dom_html_form_element_get_action (unHTMLFormElement (toHTMLFormElement self))) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"autocomplete\"] = $2;" ghcjs_dom_html_form_element_set_autocomplete :: JSRef HTMLFormElement -> JSString -> IO () #else ghcjs_dom_html_form_element_set_autocomplete :: JSRef HTMLFormElement -> JSString -> IO () ghcjs_dom_html_form_element_set_autocomplete = undefined #endif htmlFormElementSetAutocomplete :: (IsHTMLFormElement self, ToJSString val) => self -> val -> IO () htmlFormElementSetAutocomplete self val = ghcjs_dom_html_form_element_set_autocomplete (unHTMLFormElement (toHTMLFormElement self)) (toJSString val) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"autocomplete\"]" ghcjs_dom_html_form_element_get_autocomplete :: JSRef HTMLFormElement -> IO JSString #else ghcjs_dom_html_form_element_get_autocomplete :: JSRef HTMLFormElement -> IO JSString ghcjs_dom_html_form_element_get_autocomplete = undefined #endif htmlFormElementGetAutocomplete :: (IsHTMLFormElement self, FromJSString result) => self -> IO result htmlFormElementGetAutocomplete self = fromJSString <$> (ghcjs_dom_html_form_element_get_autocomplete (unHTMLFormElement (toHTMLFormElement self))) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"enctype\"] = $2;" ghcjs_dom_html_form_element_set_enctype :: JSRef HTMLFormElement -> JSString -> IO () #else ghcjs_dom_html_form_element_set_enctype :: JSRef HTMLFormElement -> JSString -> IO () ghcjs_dom_html_form_element_set_enctype = undefined #endif htmlFormElementSetEnctype :: (IsHTMLFormElement self, ToJSString val) => self -> val -> IO () htmlFormElementSetEnctype self val = ghcjs_dom_html_form_element_set_enctype (unHTMLFormElement (toHTMLFormElement self)) (toJSString val) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"enctype\"]" ghcjs_dom_html_form_element_get_enctype :: JSRef HTMLFormElement -> IO JSString #else ghcjs_dom_html_form_element_get_enctype :: JSRef HTMLFormElement -> IO JSString ghcjs_dom_html_form_element_get_enctype = undefined #endif htmlFormElementGetEnctype :: (IsHTMLFormElement self, FromJSString result) => self -> IO result htmlFormElementGetEnctype self = fromJSString <$> (ghcjs_dom_html_form_element_get_enctype (unHTMLFormElement (toHTMLFormElement self))) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"encoding\"] = $2;" ghcjs_dom_html_form_element_set_encoding :: JSRef HTMLFormElement -> JSString -> IO () #else ghcjs_dom_html_form_element_set_encoding :: JSRef HTMLFormElement -> JSString -> IO () ghcjs_dom_html_form_element_set_encoding = undefined #endif htmlFormElementSetEncoding :: (IsHTMLFormElement self, ToJSString val) => self -> val -> IO () htmlFormElementSetEncoding self val = ghcjs_dom_html_form_element_set_encoding (unHTMLFormElement (toHTMLFormElement self)) (toJSString val) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"encoding\"]" ghcjs_dom_html_form_element_get_encoding :: JSRef HTMLFormElement -> IO JSString #else ghcjs_dom_html_form_element_get_encoding :: JSRef HTMLFormElement -> IO JSString ghcjs_dom_html_form_element_get_encoding = undefined #endif htmlFormElementGetEncoding :: (IsHTMLFormElement self, FromJSString result) => self -> IO result htmlFormElementGetEncoding self = fromJSString <$> (ghcjs_dom_html_form_element_get_encoding (unHTMLFormElement (toHTMLFormElement self))) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"method\"] = $2;" ghcjs_dom_html_form_element_set_method :: JSRef HTMLFormElement -> JSString -> IO () #else ghcjs_dom_html_form_element_set_method :: JSRef HTMLFormElement -> JSString -> IO () ghcjs_dom_html_form_element_set_method = undefined #endif htmlFormElementSetMethod :: (IsHTMLFormElement self, ToJSString val) => self -> val -> IO () htmlFormElementSetMethod self val = ghcjs_dom_html_form_element_set_method (unHTMLFormElement (toHTMLFormElement self)) (toJSString val) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"method\"]" ghcjs_dom_html_form_element_get_method :: JSRef HTMLFormElement -> IO JSString #else ghcjs_dom_html_form_element_get_method :: JSRef HTMLFormElement -> IO JSString ghcjs_dom_html_form_element_get_method = undefined #endif htmlFormElementGetMethod :: (IsHTMLFormElement self, FromJSString result) => self -> IO result htmlFormElementGetMethod self = fromJSString <$> (ghcjs_dom_html_form_element_get_method (unHTMLFormElement (toHTMLFormElement self))) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"name\"] = $2;" ghcjs_dom_html_form_element_set_name :: JSRef HTMLFormElement -> JSString -> IO () #else ghcjs_dom_html_form_element_set_name :: JSRef HTMLFormElement -> JSString -> IO () ghcjs_dom_html_form_element_set_name = undefined #endif htmlFormElementSetName :: (IsHTMLFormElement self, ToJSString val) => self -> val -> IO () htmlFormElementSetName self val = ghcjs_dom_html_form_element_set_name (unHTMLFormElement (toHTMLFormElement self)) (toJSString val) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"name\"]" ghcjs_dom_html_form_element_get_name :: JSRef HTMLFormElement -> IO JSString #else ghcjs_dom_html_form_element_get_name :: JSRef HTMLFormElement -> IO JSString ghcjs_dom_html_form_element_get_name = undefined #endif htmlFormElementGetName :: (IsHTMLFormElement self, FromJSString result) => self -> IO result htmlFormElementGetName self = fromJSString <$> (ghcjs_dom_html_form_element_get_name (unHTMLFormElement (toHTMLFormElement self))) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"noValidate\"] = $2;" ghcjs_dom_html_form_element_set_no_validate :: JSRef HTMLFormElement -> Bool -> IO () #else ghcjs_dom_html_form_element_set_no_validate :: JSRef HTMLFormElement -> Bool -> IO () ghcjs_dom_html_form_element_set_no_validate = undefined #endif htmlFormElementSetNoValidate :: (IsHTMLFormElement self) => self -> Bool -> IO () htmlFormElementSetNoValidate self val = ghcjs_dom_html_form_element_set_no_validate (unHTMLFormElement (toHTMLFormElement self)) val #ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"noValidate\"] ? 1 : 0)" ghcjs_dom_html_form_element_get_no_validate :: JSRef HTMLFormElement -> IO Bool #else ghcjs_dom_html_form_element_get_no_validate :: JSRef HTMLFormElement -> IO Bool ghcjs_dom_html_form_element_get_no_validate = undefined #endif htmlFormElementGetNoValidate :: (IsHTMLFormElement self) => self -> IO Bool htmlFormElementGetNoValidate self = ghcjs_dom_html_form_element_get_no_validate (unHTMLFormElement (toHTMLFormElement self)) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"target\"] = $2;" ghcjs_dom_html_form_element_set_target :: JSRef HTMLFormElement -> JSString -> IO () #else ghcjs_dom_html_form_element_set_target :: JSRef HTMLFormElement -> JSString -> IO () ghcjs_dom_html_form_element_set_target = undefined #endif htmlFormElementSetTarget :: (IsHTMLFormElement self, ToJSString val) => self -> val -> IO () htmlFormElementSetTarget self val = ghcjs_dom_html_form_element_set_target (unHTMLFormElement (toHTMLFormElement self)) (toJSString val) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"target\"]" ghcjs_dom_html_form_element_get_target :: JSRef HTMLFormElement -> IO JSString #else ghcjs_dom_html_form_element_get_target :: JSRef HTMLFormElement -> IO JSString ghcjs_dom_html_form_element_get_target = undefined #endif htmlFormElementGetTarget :: (IsHTMLFormElement self, FromJSString result) => self -> IO result htmlFormElementGetTarget self = fromJSString <$> (ghcjs_dom_html_form_element_get_target (unHTMLFormElement (toHTMLFormElement self))) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"elements\"]" ghcjs_dom_html_form_element_get_elements :: JSRef HTMLFormElement -> IO (JSRef HTMLCollection) #else ghcjs_dom_html_form_element_get_elements :: JSRef HTMLFormElement -> IO (JSRef HTMLCollection) ghcjs_dom_html_form_element_get_elements = undefined #endif htmlFormElementGetElements :: (IsHTMLFormElement self) => self -> IO (Maybe HTMLCollection) htmlFormElementGetElements self = fmap HTMLCollection . maybeJSNull <$> (ghcjs_dom_html_form_element_get_elements (unHTMLFormElement (toHTMLFormElement self))) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"length\"]" ghcjs_dom_html_form_element_get_length :: JSRef HTMLFormElement -> IO Int #else ghcjs_dom_html_form_element_get_length :: JSRef HTMLFormElement -> IO Int ghcjs_dom_html_form_element_get_length = undefined #endif htmlFormElementGetLength :: (IsHTMLFormElement self) => self -> IO Int htmlFormElementGetLength self = ghcjs_dom_html_form_element_get_length (unHTMLFormElement (toHTMLFormElement self)) #else module GHCJS.DOM.HTMLFormElement ( module Graphics.UI.Gtk.WebKit.DOM.HTMLFormElement ) where import Graphics.UI.Gtk.WebKit.DOM.HTMLFormElement #endif