#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
module GHCJS.DOM.HTMLButtonElement
(ghcjs_dom_html_button_element_check_validity,
htmlButtonElementCheckValidity,
ghcjs_dom_html_button_element_set_custom_validity,
htmlButtonElementSetCustomValidity,
ghcjs_dom_html_button_element_set_autofocus,
htmlButtonElementSetAutofocus,
ghcjs_dom_html_button_element_get_autofocus,
htmlButtonElementGetAutofocus,
ghcjs_dom_html_button_element_set_disabled,
htmlButtonElementSetDisabled,
ghcjs_dom_html_button_element_get_disabled,
htmlButtonElementGetDisabled,
ghcjs_dom_html_button_element_get_form, htmlButtonElementGetForm,
ghcjs_dom_html_button_element_set_form_action,
htmlButtonElementSetFormAction,
ghcjs_dom_html_button_element_get_form_action,
htmlButtonElementGetFormAction,
ghcjs_dom_html_button_element_set_form_enctype,
htmlButtonElementSetFormEnctype,
ghcjs_dom_html_button_element_get_form_enctype,
htmlButtonElementGetFormEnctype,
ghcjs_dom_html_button_element_set_form_method,
htmlButtonElementSetFormMethod,
ghcjs_dom_html_button_element_get_form_method,
htmlButtonElementGetFormMethod,
ghcjs_dom_html_button_element_set_form_no_validate,
htmlButtonElementSetFormNoValidate,
ghcjs_dom_html_button_element_get_form_no_validate,
htmlButtonElementGetFormNoValidate,
ghcjs_dom_html_button_element_set_form_target,
htmlButtonElementSetFormTarget,
ghcjs_dom_html_button_element_get_form_target,
htmlButtonElementGetFormTarget,
ghcjs_dom_html_button_element_set_name, htmlButtonElementSetName,
ghcjs_dom_html_button_element_get_name, htmlButtonElementGetName,
ghcjs_dom_html_button_element_set_value, htmlButtonElementSetValue,
ghcjs_dom_html_button_element_get_value, htmlButtonElementGetValue,
ghcjs_dom_html_button_element_get_will_validate,
htmlButtonElementGetWillValidate,
ghcjs_dom_html_button_element_get_validity,
htmlButtonElementGetValidity,
ghcjs_dom_html_button_element_get_validation_message,
htmlButtonElementGetValidationMessage,
ghcjs_dom_html_button_element_get_labels,
htmlButtonElementGetLabels, HTMLButtonElement, IsHTMLButtonElement,
castToHTMLButtonElement, gTypeHTMLButtonElement,
toHTMLButtonElement)
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_button_element_check_validity ::
JSRef HTMLButtonElement -> IO Bool
htmlButtonElementCheckValidity ::
(IsHTMLButtonElement self) => self -> IO Bool
htmlButtonElementCheckValidity self
= ghcjs_dom_html_button_element_check_validity
(unHTMLButtonElement (toHTMLButtonElement self))
foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"
ghcjs_dom_html_button_element_set_custom_validity ::
JSRef HTMLButtonElement -> JSString -> IO ()
htmlButtonElementSetCustomValidity ::
(IsHTMLButtonElement self, ToJSString error) =>
self -> error -> IO ()
htmlButtonElementSetCustomValidity self error
= ghcjs_dom_html_button_element_set_custom_validity
(unHTMLButtonElement (toHTMLButtonElement self))
(toJSString error)
foreign import javascript unsafe "$1[\"autofocus\"] = $2;"
ghcjs_dom_html_button_element_set_autofocus ::
JSRef HTMLButtonElement -> Bool -> IO ()
htmlButtonElementSetAutofocus ::
(IsHTMLButtonElement self) => self -> Bool -> IO ()
htmlButtonElementSetAutofocus self val
= ghcjs_dom_html_button_element_set_autofocus
(unHTMLButtonElement (toHTMLButtonElement self))
val
foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"
ghcjs_dom_html_button_element_get_autofocus ::
JSRef HTMLButtonElement -> IO Bool
htmlButtonElementGetAutofocus ::
(IsHTMLButtonElement self) => self -> IO Bool
htmlButtonElementGetAutofocus self
= ghcjs_dom_html_button_element_get_autofocus
(unHTMLButtonElement (toHTMLButtonElement self))
foreign import javascript unsafe "$1[\"disabled\"] = $2;"
ghcjs_dom_html_button_element_set_disabled ::
JSRef HTMLButtonElement -> Bool -> IO ()
htmlButtonElementSetDisabled ::
(IsHTMLButtonElement self) => self -> Bool -> IO ()
htmlButtonElementSetDisabled self val
= ghcjs_dom_html_button_element_set_disabled
(unHTMLButtonElement (toHTMLButtonElement self))
val
foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"
ghcjs_dom_html_button_element_get_disabled ::
JSRef HTMLButtonElement -> IO Bool
htmlButtonElementGetDisabled ::
(IsHTMLButtonElement self) => self -> IO Bool
htmlButtonElementGetDisabled self
= ghcjs_dom_html_button_element_get_disabled
(unHTMLButtonElement (toHTMLButtonElement self))
foreign import javascript unsafe "$1[\"form\"]"
ghcjs_dom_html_button_element_get_form ::
JSRef HTMLButtonElement -> IO (JSRef HTMLFormElement)
htmlButtonElementGetForm ::
(IsHTMLButtonElement self) => self -> IO (Maybe HTMLFormElement)
htmlButtonElementGetForm self
= fmap HTMLFormElement . maybeJSNull <$>
(ghcjs_dom_html_button_element_get_form
(unHTMLButtonElement (toHTMLButtonElement self)))
foreign import javascript unsafe "$1[\"formAction\"] = $2;"
ghcjs_dom_html_button_element_set_form_action ::
JSRef HTMLButtonElement -> JSString -> IO ()
htmlButtonElementSetFormAction ::
(IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()
htmlButtonElementSetFormAction self val
= ghcjs_dom_html_button_element_set_form_action
(unHTMLButtonElement (toHTMLButtonElement self))
(toJSString val)
foreign import javascript unsafe "$1[\"formAction\"]"
ghcjs_dom_html_button_element_get_form_action ::
JSRef HTMLButtonElement -> IO JSString
htmlButtonElementGetFormAction ::
(IsHTMLButtonElement self, FromJSString result) =>
self -> IO result
htmlButtonElementGetFormAction self
= fromJSString <$>
(ghcjs_dom_html_button_element_get_form_action
(unHTMLButtonElement (toHTMLButtonElement self)))
foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"
ghcjs_dom_html_button_element_set_form_enctype ::
JSRef HTMLButtonElement -> JSString -> IO ()
htmlButtonElementSetFormEnctype ::
(IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()
htmlButtonElementSetFormEnctype self val
= ghcjs_dom_html_button_element_set_form_enctype
(unHTMLButtonElement (toHTMLButtonElement self))
(toJSString val)
foreign import javascript unsafe "$1[\"formEnctype\"]"
ghcjs_dom_html_button_element_get_form_enctype ::
JSRef HTMLButtonElement -> IO JSString
htmlButtonElementGetFormEnctype ::
(IsHTMLButtonElement self, FromJSString result) =>
self -> IO result
htmlButtonElementGetFormEnctype self
= fromJSString <$>
(ghcjs_dom_html_button_element_get_form_enctype
(unHTMLButtonElement (toHTMLButtonElement self)))
foreign import javascript unsafe "$1[\"formMethod\"] = $2;"
ghcjs_dom_html_button_element_set_form_method ::
JSRef HTMLButtonElement -> JSString -> IO ()
htmlButtonElementSetFormMethod ::
(IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()
htmlButtonElementSetFormMethod self val
= ghcjs_dom_html_button_element_set_form_method
(unHTMLButtonElement (toHTMLButtonElement self))
(toJSString val)
foreign import javascript unsafe "$1[\"formMethod\"]"
ghcjs_dom_html_button_element_get_form_method ::
JSRef HTMLButtonElement -> IO JSString
htmlButtonElementGetFormMethod ::
(IsHTMLButtonElement self, FromJSString result) =>
self -> IO result
htmlButtonElementGetFormMethod self
= fromJSString <$>
(ghcjs_dom_html_button_element_get_form_method
(unHTMLButtonElement (toHTMLButtonElement self)))
foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"
ghcjs_dom_html_button_element_set_form_no_validate ::
JSRef HTMLButtonElement -> Bool -> IO ()
htmlButtonElementSetFormNoValidate ::
(IsHTMLButtonElement self) => self -> Bool -> IO ()
htmlButtonElementSetFormNoValidate self val
= ghcjs_dom_html_button_element_set_form_no_validate
(unHTMLButtonElement (toHTMLButtonElement self))
val
foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"
ghcjs_dom_html_button_element_get_form_no_validate ::
JSRef HTMLButtonElement -> IO Bool
htmlButtonElementGetFormNoValidate ::
(IsHTMLButtonElement self) => self -> IO Bool
htmlButtonElementGetFormNoValidate self
= ghcjs_dom_html_button_element_get_form_no_validate
(unHTMLButtonElement (toHTMLButtonElement self))
foreign import javascript unsafe "$1[\"formTarget\"] = $2;"
ghcjs_dom_html_button_element_set_form_target ::
JSRef HTMLButtonElement -> JSString -> IO ()
htmlButtonElementSetFormTarget ::
(IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()
htmlButtonElementSetFormTarget self val
= ghcjs_dom_html_button_element_set_form_target
(unHTMLButtonElement (toHTMLButtonElement self))
(toJSString val)
foreign import javascript unsafe "$1[\"formTarget\"]"
ghcjs_dom_html_button_element_get_form_target ::
JSRef HTMLButtonElement -> IO JSString
htmlButtonElementGetFormTarget ::
(IsHTMLButtonElement self, FromJSString result) =>
self -> IO result
htmlButtonElementGetFormTarget self
= fromJSString <$>
(ghcjs_dom_html_button_element_get_form_target
(unHTMLButtonElement (toHTMLButtonElement self)))
foreign import javascript unsafe "$1[\"name\"] = $2;"
ghcjs_dom_html_button_element_set_name ::
JSRef HTMLButtonElement -> JSString -> IO ()
htmlButtonElementSetName ::
(IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()
htmlButtonElementSetName self val
= ghcjs_dom_html_button_element_set_name
(unHTMLButtonElement (toHTMLButtonElement self))
(toJSString val)
foreign import javascript unsafe "$1[\"name\"]"
ghcjs_dom_html_button_element_get_name ::
JSRef HTMLButtonElement -> IO JSString
htmlButtonElementGetName ::
(IsHTMLButtonElement self, FromJSString result) =>
self -> IO result
htmlButtonElementGetName self
= fromJSString <$>
(ghcjs_dom_html_button_element_get_name
(unHTMLButtonElement (toHTMLButtonElement self)))
foreign import javascript unsafe "$1[\"value\"] = $2;"
ghcjs_dom_html_button_element_set_value ::
JSRef HTMLButtonElement -> JSString -> IO ()
htmlButtonElementSetValue ::
(IsHTMLButtonElement self, ToJSString val) => self -> val -> IO ()
htmlButtonElementSetValue self val
= ghcjs_dom_html_button_element_set_value
(unHTMLButtonElement (toHTMLButtonElement self))
(toJSString val)
foreign import javascript unsafe "$1[\"value\"]"
ghcjs_dom_html_button_element_get_value ::
JSRef HTMLButtonElement -> IO JSString
htmlButtonElementGetValue ::
(IsHTMLButtonElement self, FromJSString result) =>
self -> IO result
htmlButtonElementGetValue self
= fromJSString <$>
(ghcjs_dom_html_button_element_get_value
(unHTMLButtonElement (toHTMLButtonElement self)))
foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"
ghcjs_dom_html_button_element_get_will_validate ::
JSRef HTMLButtonElement -> IO Bool
htmlButtonElementGetWillValidate ::
(IsHTMLButtonElement self) => self -> IO Bool
htmlButtonElementGetWillValidate self
= ghcjs_dom_html_button_element_get_will_validate
(unHTMLButtonElement (toHTMLButtonElement self))
foreign import javascript unsafe "$1[\"validity\"]"
ghcjs_dom_html_button_element_get_validity ::
JSRef HTMLButtonElement -> IO (JSRef ValidityState)
htmlButtonElementGetValidity ::
(IsHTMLButtonElement self) => self -> IO (Maybe ValidityState)
htmlButtonElementGetValidity self
= fmap ValidityState . maybeJSNull <$>
(ghcjs_dom_html_button_element_get_validity
(unHTMLButtonElement (toHTMLButtonElement self)))
foreign import javascript unsafe "$1[\"validationMessage\"]"
ghcjs_dom_html_button_element_get_validation_message ::
JSRef HTMLButtonElement -> IO JSString
htmlButtonElementGetValidationMessage ::
(IsHTMLButtonElement self, FromJSString result) =>
self -> IO result
htmlButtonElementGetValidationMessage self
= fromJSString <$>
(ghcjs_dom_html_button_element_get_validation_message
(unHTMLButtonElement (toHTMLButtonElement self)))
foreign import javascript unsafe "$1[\"labels\"]"
ghcjs_dom_html_button_element_get_labels ::
JSRef HTMLButtonElement -> IO (JSRef NodeList)
htmlButtonElementGetLabels ::
(IsHTMLButtonElement self) => self -> IO (Maybe NodeList)
htmlButtonElementGetLabels self
= fmap NodeList . maybeJSNull <$>
(ghcjs_dom_html_button_element_get_labels
(unHTMLButtonElement (toHTMLButtonElement self)))
#else
module GHCJS.DOM.HTMLButtonElement (
module Graphics.UI.Gtk.WebKit.DOM.HTMLButtonElement
) where
import Graphics.UI.Gtk.WebKit.DOM.HTMLButtonElement
#endif