{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLOutputElement (js_checkValidity, checkValidity, js_setCustomValidity, setCustomValidity, js_getHtmlFor, getHtmlFor, js_getForm, getForm, js_setName, setName, js_getName, getName, js_getType, getType, js_setDefaultValue, setDefaultValue, js_getDefaultValue, getDefaultValue, js_setValue, setValue, js_getValue, getValue, js_getWillValidate, getWillValidate, js_getValidity, getValidity, js_getValidationMessage, getValidationMessage, js_getLabels, getLabels, HTMLOutputElement, castToHTMLOutputElement, gTypeHTMLOutputElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: JSRef HTMLOutputElement -> IO Bool -- | checkValidity :: (MonadIO m) => HTMLOutputElement -> m Bool checkValidity self = liftIO (js_checkValidity (unHTMLOutputElement self)) foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" js_setCustomValidity :: JSRef HTMLOutputElement -> JSRef (Maybe JSString) -> IO () -- | setCustomValidity :: (MonadIO m, ToJSString error) => HTMLOutputElement -> Maybe error -> m () setCustomValidity self error = liftIO (js_setCustomValidity (unHTMLOutputElement self) (toMaybeJSString error)) foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor :: JSRef HTMLOutputElement -> IO (JSRef DOMSettableTokenList) -- | getHtmlFor :: (MonadIO m) => HTMLOutputElement -> m (Maybe DOMSettableTokenList) getHtmlFor self = liftIO ((js_getHtmlFor (unHTMLOutputElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"form\"]" js_getForm :: JSRef HTMLOutputElement -> IO (JSRef HTMLFormElement) -- | getForm :: (MonadIO m) => HTMLOutputElement -> m (Maybe HTMLFormElement) getForm self = liftIO ((js_getForm (unHTMLOutputElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: JSRef HTMLOutputElement -> JSString -> IO () -- | setName :: (MonadIO m, ToJSString val) => HTMLOutputElement -> val -> m () setName self val = liftIO (js_setName (unHTMLOutputElement self) (toJSString val)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: JSRef HTMLOutputElement -> IO JSString -- | getName :: (MonadIO m, FromJSString result) => HTMLOutputElement -> m result getName self = liftIO (fromJSString <$> (js_getName (unHTMLOutputElement self))) foreign import javascript unsafe "$1[\"type\"]" js_getType :: JSRef HTMLOutputElement -> IO JSString -- | getType :: (MonadIO m, FromJSString result) => HTMLOutputElement -> m result getType self = liftIO (fromJSString <$> (js_getType (unHTMLOutputElement self))) foreign import javascript unsafe "$1[\"defaultValue\"] = $2;" js_setDefaultValue :: JSRef HTMLOutputElement -> JSRef (Maybe JSString) -> IO () -- | setDefaultValue :: (MonadIO m, ToJSString val) => HTMLOutputElement -> Maybe val -> m () setDefaultValue self val = liftIO (js_setDefaultValue (unHTMLOutputElement self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"defaultValue\"]" js_getDefaultValue :: JSRef HTMLOutputElement -> IO (JSRef (Maybe JSString)) -- | getDefaultValue :: (MonadIO m, FromJSString result) => HTMLOutputElement -> m (Maybe result) getDefaultValue self = liftIO (fromMaybeJSString <$> (js_getDefaultValue (unHTMLOutputElement self))) foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue :: JSRef HTMLOutputElement -> JSRef (Maybe JSString) -> IO () -- | setValue :: (MonadIO m, ToJSString val) => HTMLOutputElement -> Maybe val -> m () setValue self val = liftIO (js_setValue (unHTMLOutputElement self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"value\"]" js_getValue :: JSRef HTMLOutputElement -> IO (JSRef (Maybe JSString)) -- | getValue :: (MonadIO m, FromJSString result) => HTMLOutputElement -> m (Maybe result) getValue self = liftIO (fromMaybeJSString <$> (js_getValue (unHTMLOutputElement self))) foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" js_getWillValidate :: JSRef HTMLOutputElement -> IO Bool -- | getWillValidate :: (MonadIO m) => HTMLOutputElement -> m Bool getWillValidate self = liftIO (js_getWillValidate (unHTMLOutputElement self)) foreign import javascript unsafe "$1[\"validity\"]" js_getValidity :: JSRef HTMLOutputElement -> IO (JSRef ValidityState) -- | getValidity :: (MonadIO m) => HTMLOutputElement -> m (Maybe ValidityState) getValidity self = liftIO ((js_getValidity (unHTMLOutputElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"validationMessage\"]" js_getValidationMessage :: JSRef HTMLOutputElement -> IO JSString -- | getValidationMessage :: (MonadIO m, FromJSString result) => HTMLOutputElement -> m result getValidationMessage self = liftIO (fromJSString <$> (js_getValidationMessage (unHTMLOutputElement self))) foreign import javascript unsafe "$1[\"labels\"]" js_getLabels :: JSRef HTMLOutputElement -> IO (JSRef NodeList) -- | getLabels :: (MonadIO m) => HTMLOutputElement -> m (Maybe NodeList) getLabels self = liftIO ((js_getLabels (unHTMLOutputElement self)) >>= fromJSRef)