{-# LANGUAGE CPP #-} #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMStringList (ghcjs_dom_dom_string_list_item, domStringListItem, ghcjs_dom_dom_string_list_contains, domStringListContains, ghcjs_dom_dom_string_list_get_length, domStringListGetLength, DOMStringList, IsDOMStringList, castToDOMStringList, gTypeDOMStringList, toDOMStringList) 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[\"item\"]($2)" ghcjs_dom_dom_string_list_item :: JSRef DOMStringList -> Word -> IO JSString #else ghcjs_dom_dom_string_list_item :: JSRef DOMStringList -> Word -> IO JSString ghcjs_dom_dom_string_list_item = undefined #endif domStringListItem :: (IsDOMStringList self, FromJSString result) => self -> Word -> IO result domStringListItem self index = fromJSString <$> (ghcjs_dom_dom_string_list_item (unDOMStringList (toDOMStringList self)) index) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)" ghcjs_dom_dom_string_list_contains :: JSRef DOMStringList -> JSString -> IO Bool #else ghcjs_dom_dom_string_list_contains :: JSRef DOMStringList -> JSString -> IO Bool ghcjs_dom_dom_string_list_contains = undefined #endif domStringListContains :: (IsDOMStringList self, ToJSString string) => self -> string -> IO Bool domStringListContains self string = ghcjs_dom_dom_string_list_contains (unDOMStringList (toDOMStringList self)) (toJSString string) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"length\"]" ghcjs_dom_dom_string_list_get_length :: JSRef DOMStringList -> IO Word #else ghcjs_dom_dom_string_list_get_length :: JSRef DOMStringList -> IO Word ghcjs_dom_dom_string_list_get_length = undefined #endif domStringListGetLength :: (IsDOMStringList self) => self -> IO Word domStringListGetLength self = ghcjs_dom_dom_string_list_get_length (unDOMStringList (toDOMStringList self)) #else module GHCJS.DOM.DOMStringList ( module Graphics.UI.Gtk.WebKit.DOM.DOMStringList ) where import Graphics.UI.Gtk.WebKit.DOM.DOMStringList #endif