{-# LANGUAGE CPP #-} #if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLFieldSetElement (ghcjs_dom_html_field_set_element_check_validity, htmlFieldSetElementCheckValidity, ghcjs_dom_html_field_set_element_set_custom_validity, htmlFieldSetElementSetCustomValidity, ghcjs_dom_html_field_set_element_set_disabled, htmlFieldSetElementSetDisabled, ghcjs_dom_html_field_set_element_get_disabled, htmlFieldSetElementGetDisabled, ghcjs_dom_html_field_set_element_get_form, htmlFieldSetElementGetForm, ghcjs_dom_html_field_set_element_set_name, htmlFieldSetElementSetName, ghcjs_dom_html_field_set_element_get_name, htmlFieldSetElementGetName, ghcjs_dom_html_field_set_element_get_elements, htmlFieldSetElementGetElements, ghcjs_dom_html_field_set_element_get_will_validate, htmlFieldSetElementGetWillValidate, ghcjs_dom_html_field_set_element_get_validity, htmlFieldSetElementGetValidity, ghcjs_dom_html_field_set_element_get_validation_message, htmlFieldSetElementGetValidationMessage) 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__ foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" ghcjs_dom_html_field_set_element_check_validity :: JSRef HTMLFieldSetElement -> IO Bool #else ghcjs_dom_html_field_set_element_check_validity :: JSRef HTMLFieldSetElement -> IO Bool ghcjs_dom_html_field_set_element_check_validity = undefined #endif htmlFieldSetElementCheckValidity :: (IsHTMLFieldSetElement self) => self -> IO Bool htmlFieldSetElementCheckValidity self = ghcjs_dom_html_field_set_element_check_validity (unHTMLFieldSetElement (toHTMLFieldSetElement self)) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" ghcjs_dom_html_field_set_element_set_custom_validity :: JSRef HTMLFieldSetElement -> JSString -> IO () #else ghcjs_dom_html_field_set_element_set_custom_validity :: JSRef HTMLFieldSetElement -> JSString -> IO () ghcjs_dom_html_field_set_element_set_custom_validity = undefined #endif htmlFieldSetElementSetCustomValidity :: (IsHTMLFieldSetElement self, ToJSString error) => self -> error -> IO () htmlFieldSetElementSetCustomValidity self error = ghcjs_dom_html_field_set_element_set_custom_validity (unHTMLFieldSetElement (toHTMLFieldSetElement self)) (toJSString error) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"disabled\"] = $2;" ghcjs_dom_html_field_set_element_set_disabled :: JSRef HTMLFieldSetElement -> Bool -> IO () #else ghcjs_dom_html_field_set_element_set_disabled :: JSRef HTMLFieldSetElement -> Bool -> IO () ghcjs_dom_html_field_set_element_set_disabled = undefined #endif htmlFieldSetElementSetDisabled :: (IsHTMLFieldSetElement self) => self -> Bool -> IO () htmlFieldSetElementSetDisabled self val = ghcjs_dom_html_field_set_element_set_disabled (unHTMLFieldSetElement (toHTMLFieldSetElement self)) val #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" ghcjs_dom_html_field_set_element_get_disabled :: JSRef HTMLFieldSetElement -> IO Bool #else ghcjs_dom_html_field_set_element_get_disabled :: JSRef HTMLFieldSetElement -> IO Bool ghcjs_dom_html_field_set_element_get_disabled = undefined #endif htmlFieldSetElementGetDisabled :: (IsHTMLFieldSetElement self) => self -> IO Bool htmlFieldSetElementGetDisabled self = ghcjs_dom_html_field_set_element_get_disabled (unHTMLFieldSetElement (toHTMLFieldSetElement self)) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"form\"]" ghcjs_dom_html_field_set_element_get_form :: JSRef HTMLFieldSetElement -> IO (JSRef HTMLFormElement) #else ghcjs_dom_html_field_set_element_get_form :: JSRef HTMLFieldSetElement -> IO (JSRef HTMLFormElement) ghcjs_dom_html_field_set_element_get_form = undefined #endif htmlFieldSetElementGetForm :: (IsHTMLFieldSetElement self) => self -> IO (Maybe HTMLFormElement) htmlFieldSetElementGetForm self = fmap HTMLFormElement . maybeJSNull <$> (ghcjs_dom_html_field_set_element_get_form (unHTMLFieldSetElement (toHTMLFieldSetElement self))) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"name\"] = $2;" ghcjs_dom_html_field_set_element_set_name :: JSRef HTMLFieldSetElement -> JSString -> IO () #else ghcjs_dom_html_field_set_element_set_name :: JSRef HTMLFieldSetElement -> JSString -> IO () ghcjs_dom_html_field_set_element_set_name = undefined #endif htmlFieldSetElementSetName :: (IsHTMLFieldSetElement self, ToJSString val) => self -> val -> IO () htmlFieldSetElementSetName self val = ghcjs_dom_html_field_set_element_set_name (unHTMLFieldSetElement (toHTMLFieldSetElement self)) (toJSString val) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"name\"]" ghcjs_dom_html_field_set_element_get_name :: JSRef HTMLFieldSetElement -> IO JSString #else ghcjs_dom_html_field_set_element_get_name :: JSRef HTMLFieldSetElement -> IO JSString ghcjs_dom_html_field_set_element_get_name = undefined #endif htmlFieldSetElementGetName :: (IsHTMLFieldSetElement self, FromJSString result) => self -> IO result htmlFieldSetElementGetName self = fromJSString <$> (ghcjs_dom_html_field_set_element_get_name (unHTMLFieldSetElement (toHTMLFieldSetElement self))) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"elements\"]" ghcjs_dom_html_field_set_element_get_elements :: JSRef HTMLFieldSetElement -> IO (JSRef HTMLCollection) #else ghcjs_dom_html_field_set_element_get_elements :: JSRef HTMLFieldSetElement -> IO (JSRef HTMLCollection) ghcjs_dom_html_field_set_element_get_elements = undefined #endif htmlFieldSetElementGetElements :: (IsHTMLFieldSetElement self) => self -> IO (Maybe HTMLCollection) htmlFieldSetElementGetElements self = fmap HTMLCollection . maybeJSNull <$> (ghcjs_dom_html_field_set_element_get_elements (unHTMLFieldSetElement (toHTMLFieldSetElement self))) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" ghcjs_dom_html_field_set_element_get_will_validate :: JSRef HTMLFieldSetElement -> IO Bool #else ghcjs_dom_html_field_set_element_get_will_validate :: JSRef HTMLFieldSetElement -> IO Bool ghcjs_dom_html_field_set_element_get_will_validate = undefined #endif htmlFieldSetElementGetWillValidate :: (IsHTMLFieldSetElement self) => self -> IO Bool htmlFieldSetElementGetWillValidate self = ghcjs_dom_html_field_set_element_get_will_validate (unHTMLFieldSetElement (toHTMLFieldSetElement self)) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"validity\"]" ghcjs_dom_html_field_set_element_get_validity :: JSRef HTMLFieldSetElement -> IO (JSRef ValidityState) #else ghcjs_dom_html_field_set_element_get_validity :: JSRef HTMLFieldSetElement -> IO (JSRef ValidityState) ghcjs_dom_html_field_set_element_get_validity = undefined #endif htmlFieldSetElementGetValidity :: (IsHTMLFieldSetElement self) => self -> IO (Maybe ValidityState) htmlFieldSetElementGetValidity self = fmap ValidityState . maybeJSNull <$> (ghcjs_dom_html_field_set_element_get_validity (unHTMLFieldSetElement (toHTMLFieldSetElement self))) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"validationMessage\"]" ghcjs_dom_html_field_set_element_get_validation_message :: JSRef HTMLFieldSetElement -> IO JSString #else ghcjs_dom_html_field_set_element_get_validation_message :: JSRef HTMLFieldSetElement -> IO JSString ghcjs_dom_html_field_set_element_get_validation_message = undefined #endif htmlFieldSetElementGetValidationMessage :: (IsHTMLFieldSetElement self, FromJSString result) => self -> IO result htmlFieldSetElementGetValidationMessage self = fromJSString <$> (ghcjs_dom_html_field_set_element_get_validation_message (unHTMLFieldSetElement (toHTMLFieldSetElement self))) #else module GHCJS.DOM.HTMLFieldSetElement ( module Graphics.UI.Gtk.WebKit.DOM.HTMLFieldSetElement ) where import Graphics.UI.Gtk.WebKit.DOM.HTMLFieldSetElement #endif