{-# LANGUAGE CPP #-} #if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMTokenList (ghcjs_dom_dom_token_list_item, domTokenListItem, ghcjs_dom_dom_token_list_contains, domTokenListContains, ghcjs_dom_dom_token_list_add, domTokenListAdd, ghcjs_dom_dom_token_list_remove, domTokenListRemove, ghcjs_dom_dom_token_list_toggle, domTokenListToggle, ghcjs_dom_dom_token_list_get_length, domTokenListGetLength) 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[\"item\"]($2)" ghcjs_dom_dom_token_list_item :: JSRef DOMTokenList -> Word -> IO JSString #else ghcjs_dom_dom_token_list_item :: JSRef DOMTokenList -> Word -> IO JSString ghcjs_dom_dom_token_list_item = undefined #endif domTokenListItem :: (IsDOMTokenList self, FromJSString result) => self -> Word -> IO result domTokenListItem self index = fromJSString <$> (ghcjs_dom_dom_token_list_item (unDOMTokenList (toDOMTokenList self)) index) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)" ghcjs_dom_dom_token_list_contains :: JSRef DOMTokenList -> JSString -> IO Bool #else ghcjs_dom_dom_token_list_contains :: JSRef DOMTokenList -> JSString -> IO Bool ghcjs_dom_dom_token_list_contains = undefined #endif domTokenListContains :: (IsDOMTokenList self, ToJSString token) => self -> token -> IO Bool domTokenListContains self token = ghcjs_dom_dom_token_list_contains (unDOMTokenList (toDOMTokenList self)) (toJSString token) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"add\"]($2)" ghcjs_dom_dom_token_list_add :: JSRef DOMTokenList -> JSString -> IO () #else ghcjs_dom_dom_token_list_add :: JSRef DOMTokenList -> JSString -> IO () ghcjs_dom_dom_token_list_add = undefined #endif domTokenListAdd :: (IsDOMTokenList self, ToJSString token) => self -> token -> IO () domTokenListAdd self token = ghcjs_dom_dom_token_list_add (unDOMTokenList (toDOMTokenList self)) (toJSString token) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"remove\"]($2)" ghcjs_dom_dom_token_list_remove :: JSRef DOMTokenList -> JSString -> IO () #else ghcjs_dom_dom_token_list_remove :: JSRef DOMTokenList -> JSString -> IO () ghcjs_dom_dom_token_list_remove = undefined #endif domTokenListRemove :: (IsDOMTokenList self, ToJSString token) => self -> token -> IO () domTokenListRemove self token = ghcjs_dom_dom_token_list_remove (unDOMTokenList (toDOMTokenList self)) (toJSString token) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"toggle\"]($2) ? 1 : 0)" ghcjs_dom_dom_token_list_toggle :: JSRef DOMTokenList -> JSString -> IO Bool #else ghcjs_dom_dom_token_list_toggle :: JSRef DOMTokenList -> JSString -> IO Bool ghcjs_dom_dom_token_list_toggle = undefined #endif domTokenListToggle :: (IsDOMTokenList self, ToJSString token) => self -> token -> IO Bool domTokenListToggle self token = ghcjs_dom_dom_token_list_toggle (unDOMTokenList (toDOMTokenList self)) (toJSString token) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"length\"]" ghcjs_dom_dom_token_list_get_length :: JSRef DOMTokenList -> IO Word #else ghcjs_dom_dom_token_list_get_length :: JSRef DOMTokenList -> IO Word ghcjs_dom_dom_token_list_get_length = undefined #endif domTokenListGetLength :: (IsDOMTokenList self) => self -> IO Word domTokenListGetLength self = ghcjs_dom_dom_token_list_get_length (unDOMTokenList (toDOMTokenList self)) #else module GHCJS.DOM.DOMTokenList ( module Graphics.UI.Gtk.WebKit.DOM.DOMTokenList ) where import Graphics.UI.Gtk.WebKit.DOM.DOMTokenList #endif