{-# LANGUAGE CPP #-} #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.HTMLUListElement (ghcjs_dom_htmlu_list_element_set_compact, htmluListElementSetCompact, ghcjs_dom_htmlu_list_element_get_compact, htmluListElementGetCompact, HTMLUListElement, IsHTMLUListElement, castToHTMLUListElement, gTypeHTMLUListElement, toHTMLUListElement) 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[\"compact\"] = $2;" ghcjs_dom_htmlu_list_element_set_compact :: JSRef HTMLUListElement -> Bool -> IO () #else ghcjs_dom_htmlu_list_element_set_compact :: JSRef HTMLUListElement -> Bool -> IO () ghcjs_dom_htmlu_list_element_set_compact = undefined #endif htmluListElementSetCompact :: (IsHTMLUListElement self) => self -> Bool -> IO () htmluListElementSetCompact self val = ghcjs_dom_htmlu_list_element_set_compact (unHTMLUListElement (toHTMLUListElement self)) val #ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)" ghcjs_dom_htmlu_list_element_get_compact :: JSRef HTMLUListElement -> IO Bool #else ghcjs_dom_htmlu_list_element_get_compact :: JSRef HTMLUListElement -> IO Bool ghcjs_dom_htmlu_list_element_get_compact = undefined #endif htmluListElementGetCompact :: (IsHTMLUListElement self) => self -> IO Bool htmluListElementGetCompact self = ghcjs_dom_htmlu_list_element_get_compact (unHTMLUListElement (toHTMLUListElement self)) #else module GHCJS.DOM.HTMLUListElement ( module Graphics.UI.Gtk.WebKit.DOM.HTMLUListElement ) where import Graphics.UI.Gtk.WebKit.DOM.HTMLUListElement #endif