{-# LANGUAGE CPP #-} #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLOptionsCollection (ghcjs_dom_html_options_collection_named_item, htmlOptionsCollectionNamedItem, ghcjs_dom_html_options_collection_set_selected_index, htmlOptionsCollectionSetSelectedIndex, ghcjs_dom_html_options_collection_get_selected_index, htmlOptionsCollectionGetSelectedIndex, HTMLOptionsCollection, IsHTMLOptionsCollection, castToHTMLOptionsCollection, gTypeHTMLOptionsCollection, toHTMLOptionsCollection) 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[\"namedItem\"]($2)" ghcjs_dom_html_options_collection_named_item :: JSRef HTMLOptionsCollection -> JSString -> IO (JSRef Node) #else ghcjs_dom_html_options_collection_named_item :: JSRef HTMLOptionsCollection -> JSString -> IO (JSRef Node) ghcjs_dom_html_options_collection_named_item = undefined #endif htmlOptionsCollectionNamedItem :: (IsHTMLOptionsCollection self, ToJSString name) => self -> name -> IO (Maybe Node) htmlOptionsCollectionNamedItem self name = fmap Node . maybeJSNull <$> (ghcjs_dom_html_options_collection_named_item (unHTMLOptionsCollection (toHTMLOptionsCollection self)) (toJSString name)) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;" ghcjs_dom_html_options_collection_set_selected_index :: JSRef HTMLOptionsCollection -> Int -> IO () #else ghcjs_dom_html_options_collection_set_selected_index :: JSRef HTMLOptionsCollection -> Int -> IO () ghcjs_dom_html_options_collection_set_selected_index = undefined #endif htmlOptionsCollectionSetSelectedIndex :: (IsHTMLOptionsCollection self) => self -> Int -> IO () htmlOptionsCollectionSetSelectedIndex self val = ghcjs_dom_html_options_collection_set_selected_index (unHTMLOptionsCollection (toHTMLOptionsCollection self)) val #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"selectedIndex\"]" ghcjs_dom_html_options_collection_get_selected_index :: JSRef HTMLOptionsCollection -> IO Int #else ghcjs_dom_html_options_collection_get_selected_index :: JSRef HTMLOptionsCollection -> IO Int ghcjs_dom_html_options_collection_get_selected_index = undefined #endif htmlOptionsCollectionGetSelectedIndex :: (IsHTMLOptionsCollection self) => self -> IO Int htmlOptionsCollectionGetSelectedIndex self = ghcjs_dom_html_options_collection_get_selected_index (unHTMLOptionsCollection (toHTMLOptionsCollection self)) #else module GHCJS.DOM.HTMLOptionsCollection ( module Graphics.UI.Gtk.WebKit.DOM.HTMLOptionsCollection ) where import Graphics.UI.Gtk.WebKit.DOM.HTMLOptionsCollection #endif