{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLSelectElement (js_item, item, js_namedItem, namedItem, js_addBefore, addBefore, js_add, add, js_remove, remove, js_checkValidity, checkValidity, js_setCustomValidity, setCustomValidity, js_setAutofocus, setAutofocus, js_getAutofocus, getAutofocus, js_setDisabled, setDisabled, js_getDisabled, getDisabled, js_getForm, getForm, js_setMultiple, setMultiple, js_getMultiple, getMultiple, js_setName, setName, js_getName, getName, js_setRequired, setRequired, js_getRequired, getRequired, js_setSize, setSize, js_getSize, getSize, js_getType, getType, js_getOptions, getOptions, js_setLength, setLength, js_getLength, getLength, js_getSelectedOptions, getSelectedOptions, js_setSelectedIndex, setSelectedIndex, js_getSelectedIndex, getSelectedIndex, js_setValue, setValue, js_getValue, getValue, js_getWillValidate, getWillValidate, js_getValidity, getValidity, js_getValidationMessage, getValidationMessage, js_getLabels, getLabels, HTMLSelectElement, castToHTMLSelectElement, gTypeHTMLSelectElement) 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[\"item\"]($2)" js_item :: JSRef HTMLSelectElement -> Word -> IO (JSRef Node) -- | item :: (MonadIO m) => HTMLSelectElement -> Word -> m (Maybe Node) item self index = liftIO ((js_item (unHTMLSelectElement self) index) >>= fromJSRef) foreign import javascript unsafe "$1[\"namedItem\"]($2)" js_namedItem :: JSRef HTMLSelectElement -> JSString -> IO (JSRef Node) -- | namedItem :: (MonadIO m, ToJSString name) => HTMLSelectElement -> name -> m (Maybe Node) namedItem self name = liftIO ((js_namedItem (unHTMLSelectElement self) (toJSString name)) >>= fromJSRef) foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_addBefore :: JSRef HTMLSelectElement -> JSRef HTMLElement -> JSRef HTMLElement -> IO () -- | addBefore :: (MonadIO m, IsHTMLElement element, IsHTMLElement before) => HTMLSelectElement -> Maybe element -> Maybe before -> m () addBefore self element before = liftIO (js_addBefore (unHTMLSelectElement self) (maybe jsNull (unHTMLElement . toHTMLElement) element) (maybe jsNull (unHTMLElement . toHTMLElement) before)) foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add :: JSRef HTMLSelectElement -> JSRef HTMLElement -> Int -> IO () -- | add :: (MonadIO m, IsHTMLElement element) => HTMLSelectElement -> Maybe element -> Int -> m () add self element index = liftIO (js_add (unHTMLSelectElement self) (maybe jsNull (unHTMLElement . toHTMLElement) element) index) foreign import javascript unsafe "$1[\"remove\"]()" js_remove :: JSRef HTMLSelectElement -> IO () -- | remove :: (MonadIO m) => HTMLSelectElement -> m () remove self = liftIO (js_remove (unHTMLSelectElement self)) foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: JSRef HTMLSelectElement -> IO Bool -- | checkValidity :: (MonadIO m) => HTMLSelectElement -> m Bool checkValidity self = liftIO (js_checkValidity (unHTMLSelectElement self)) foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" js_setCustomValidity :: JSRef HTMLSelectElement -> JSRef (Maybe JSString) -> IO () -- | setCustomValidity :: (MonadIO m, ToJSString error) => HTMLSelectElement -> Maybe error -> m () setCustomValidity self error = liftIO (js_setCustomValidity (unHTMLSelectElement self) (toMaybeJSString error)) foreign import javascript unsafe "$1[\"autofocus\"] = $2;" js_setAutofocus :: JSRef HTMLSelectElement -> Bool -> IO () -- | setAutofocus :: (MonadIO m) => HTMLSelectElement -> Bool -> m () setAutofocus self val = liftIO (js_setAutofocus (unHTMLSelectElement self) val) foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)" js_getAutofocus :: JSRef HTMLSelectElement -> IO Bool -- | getAutofocus :: (MonadIO m) => HTMLSelectElement -> m Bool getAutofocus self = liftIO (js_getAutofocus (unHTMLSelectElement self)) foreign import javascript unsafe "$1[\"disabled\"] = $2;" js_setDisabled :: JSRef HTMLSelectElement -> Bool -> IO () -- | setDisabled :: (MonadIO m) => HTMLSelectElement -> Bool -> m () setDisabled self val = liftIO (js_setDisabled (unHTMLSelectElement self) val) foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" js_getDisabled :: JSRef HTMLSelectElement -> IO Bool -- | getDisabled :: (MonadIO m) => HTMLSelectElement -> m Bool getDisabled self = liftIO (js_getDisabled (unHTMLSelectElement self)) foreign import javascript unsafe "$1[\"form\"]" js_getForm :: JSRef HTMLSelectElement -> IO (JSRef HTMLFormElement) -- | getForm :: (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLFormElement) getForm self = liftIO ((js_getForm (unHTMLSelectElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"multiple\"] = $2;" js_setMultiple :: JSRef HTMLSelectElement -> Bool -> IO () -- | setMultiple :: (MonadIO m) => HTMLSelectElement -> Bool -> m () setMultiple self val = liftIO (js_setMultiple (unHTMLSelectElement self) val) foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)" js_getMultiple :: JSRef HTMLSelectElement -> IO Bool -- | getMultiple :: (MonadIO m) => HTMLSelectElement -> m Bool getMultiple self = liftIO (js_getMultiple (unHTMLSelectElement self)) foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: JSRef HTMLSelectElement -> JSString -> IO () -- | setName :: (MonadIO m, ToJSString val) => HTMLSelectElement -> val -> m () setName self val = liftIO (js_setName (unHTMLSelectElement self) (toJSString val)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: JSRef HTMLSelectElement -> IO JSString -- | getName :: (MonadIO m, FromJSString result) => HTMLSelectElement -> m result getName self = liftIO (fromJSString <$> (js_getName (unHTMLSelectElement self))) foreign import javascript unsafe "$1[\"required\"] = $2;" js_setRequired :: JSRef HTMLSelectElement -> Bool -> IO () -- | setRequired :: (MonadIO m) => HTMLSelectElement -> Bool -> m () setRequired self val = liftIO (js_setRequired (unHTMLSelectElement self) val) foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)" js_getRequired :: JSRef HTMLSelectElement -> IO Bool -- | getRequired :: (MonadIO m) => HTMLSelectElement -> m Bool getRequired self = liftIO (js_getRequired (unHTMLSelectElement self)) foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize :: JSRef HTMLSelectElement -> Int -> IO () -- | setSize :: (MonadIO m) => HTMLSelectElement -> Int -> m () setSize self val = liftIO (js_setSize (unHTMLSelectElement self) val) foreign import javascript unsafe "$1[\"size\"]" js_getSize :: JSRef HTMLSelectElement -> IO Int -- | getSize :: (MonadIO m) => HTMLSelectElement -> m Int getSize self = liftIO (js_getSize (unHTMLSelectElement self)) foreign import javascript unsafe "$1[\"type\"]" js_getType :: JSRef HTMLSelectElement -> IO JSString -- | getType :: (MonadIO m, FromJSString result) => HTMLSelectElement -> m result getType self = liftIO (fromJSString <$> (js_getType (unHTMLSelectElement self))) foreign import javascript unsafe "$1[\"options\"]" js_getOptions :: JSRef HTMLSelectElement -> IO (JSRef HTMLOptionsCollection) -- | getOptions :: (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLOptionsCollection) getOptions self = liftIO ((js_getOptions (unHTMLSelectElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"length\"] = $2;" js_setLength :: JSRef HTMLSelectElement -> Word -> IO () -- | setLength :: (MonadIO m) => HTMLSelectElement -> Word -> m () setLength self val = liftIO (js_setLength (unHTMLSelectElement self) val) foreign import javascript unsafe "$1[\"length\"]" js_getLength :: JSRef HTMLSelectElement -> IO Word -- | getLength :: (MonadIO m) => HTMLSelectElement -> m Word getLength self = liftIO (js_getLength (unHTMLSelectElement self)) foreign import javascript unsafe "$1[\"selectedOptions\"]" js_getSelectedOptions :: JSRef HTMLSelectElement -> IO (JSRef HTMLCollection) -- | getSelectedOptions :: (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLCollection) getSelectedOptions self = liftIO ((js_getSelectedOptions (unHTMLSelectElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;" js_setSelectedIndex :: JSRef HTMLSelectElement -> Int -> IO () -- | setSelectedIndex :: (MonadIO m) => HTMLSelectElement -> Int -> m () setSelectedIndex self val = liftIO (js_setSelectedIndex (unHTMLSelectElement self) val) foreign import javascript unsafe "$1[\"selectedIndex\"]" js_getSelectedIndex :: JSRef HTMLSelectElement -> IO Int -- | getSelectedIndex :: (MonadIO m) => HTMLSelectElement -> m Int getSelectedIndex self = liftIO (js_getSelectedIndex (unHTMLSelectElement self)) foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue :: JSRef HTMLSelectElement -> JSRef (Maybe JSString) -> IO () -- | setValue :: (MonadIO m, ToJSString val) => HTMLSelectElement -> Maybe val -> m () setValue self val = liftIO (js_setValue (unHTMLSelectElement self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"value\"]" js_getValue :: JSRef HTMLSelectElement -> IO (JSRef (Maybe JSString)) -- | getValue :: (MonadIO m, FromJSString result) => HTMLSelectElement -> m (Maybe result) getValue self = liftIO (fromMaybeJSString <$> (js_getValue (unHTMLSelectElement self))) foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" js_getWillValidate :: JSRef HTMLSelectElement -> IO Bool -- | getWillValidate :: (MonadIO m) => HTMLSelectElement -> m Bool getWillValidate self = liftIO (js_getWillValidate (unHTMLSelectElement self)) foreign import javascript unsafe "$1[\"validity\"]" js_getValidity :: JSRef HTMLSelectElement -> IO (JSRef ValidityState) -- | getValidity :: (MonadIO m) => HTMLSelectElement -> m (Maybe ValidityState) getValidity self = liftIO ((js_getValidity (unHTMLSelectElement self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"validationMessage\"]" js_getValidationMessage :: JSRef HTMLSelectElement -> IO JSString -- | getValidationMessage :: (MonadIO m, FromJSString result) => HTMLSelectElement -> m result getValidationMessage self = liftIO (fromJSString <$> (js_getValidationMessage (unHTMLSelectElement self))) foreign import javascript unsafe "$1[\"labels\"]" js_getLabels :: JSRef HTMLSelectElement -> IO (JSRef NodeList) -- | getLabels :: (MonadIO m) => HTMLSelectElement -> m (Maybe NodeList) getLabels self = liftIO ((js_getLabels (unHTMLSelectElement self)) >>= fromJSRef)