{-# LANGUAGE CPP #-} #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.StyleSheet (ghcjs_dom_style_sheet_set_disabled, styleSheetSetDisabled, ghcjs_dom_style_sheet_get_disabled, styleSheetGetDisabled, ghcjs_dom_style_sheet_get_owner_node, styleSheetGetOwnerNode, ghcjs_dom_style_sheet_get_parent_style_sheet, styleSheetGetParentStyleSheet, ghcjs_dom_style_sheet_get_href, styleSheetGetHref, ghcjs_dom_style_sheet_get_title, styleSheetGetTitle, ghcjs_dom_style_sheet_get_media, styleSheetGetMedia, StyleSheet, IsStyleSheet, castToStyleSheet, gTypeStyleSheet, toStyleSheet) 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[\"disabled\"] = $2;" ghcjs_dom_style_sheet_set_disabled :: JSRef StyleSheet -> Bool -> IO () #else ghcjs_dom_style_sheet_set_disabled :: JSRef StyleSheet -> Bool -> IO () ghcjs_dom_style_sheet_set_disabled = undefined #endif styleSheetSetDisabled :: (IsStyleSheet self) => self -> Bool -> IO () styleSheetSetDisabled self val = ghcjs_dom_style_sheet_set_disabled (unStyleSheet (toStyleSheet self)) val #ifdef ghcjs_HOST_OS foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" ghcjs_dom_style_sheet_get_disabled :: JSRef StyleSheet -> IO Bool #else ghcjs_dom_style_sheet_get_disabled :: JSRef StyleSheet -> IO Bool ghcjs_dom_style_sheet_get_disabled = undefined #endif styleSheetGetDisabled :: (IsStyleSheet self) => self -> IO Bool styleSheetGetDisabled self = ghcjs_dom_style_sheet_get_disabled (unStyleSheet (toStyleSheet self)) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"ownerNode\"]" ghcjs_dom_style_sheet_get_owner_node :: JSRef StyleSheet -> IO (JSRef Node) #else ghcjs_dom_style_sheet_get_owner_node :: JSRef StyleSheet -> IO (JSRef Node) ghcjs_dom_style_sheet_get_owner_node = undefined #endif styleSheetGetOwnerNode :: (IsStyleSheet self) => self -> IO (Maybe Node) styleSheetGetOwnerNode self = fmap Node . maybeJSNull <$> (ghcjs_dom_style_sheet_get_owner_node (unStyleSheet (toStyleSheet self))) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"parentStyleSheet\"]" ghcjs_dom_style_sheet_get_parent_style_sheet :: JSRef StyleSheet -> IO (JSRef StyleSheet) #else ghcjs_dom_style_sheet_get_parent_style_sheet :: JSRef StyleSheet -> IO (JSRef StyleSheet) ghcjs_dom_style_sheet_get_parent_style_sheet = undefined #endif styleSheetGetParentStyleSheet :: (IsStyleSheet self) => self -> IO (Maybe StyleSheet) styleSheetGetParentStyleSheet self = fmap StyleSheet . maybeJSNull <$> (ghcjs_dom_style_sheet_get_parent_style_sheet (unStyleSheet (toStyleSheet self))) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"href\"]" ghcjs_dom_style_sheet_get_href :: JSRef StyleSheet -> IO JSString #else ghcjs_dom_style_sheet_get_href :: JSRef StyleSheet -> IO JSString ghcjs_dom_style_sheet_get_href = undefined #endif styleSheetGetHref :: (IsStyleSheet self, FromJSString result) => self -> IO result styleSheetGetHref self = fromJSString <$> (ghcjs_dom_style_sheet_get_href (unStyleSheet (toStyleSheet self))) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"title\"]" ghcjs_dom_style_sheet_get_title :: JSRef StyleSheet -> IO JSString #else ghcjs_dom_style_sheet_get_title :: JSRef StyleSheet -> IO JSString ghcjs_dom_style_sheet_get_title = undefined #endif styleSheetGetTitle :: (IsStyleSheet self, FromJSString result) => self -> IO result styleSheetGetTitle self = fromJSString <$> (ghcjs_dom_style_sheet_get_title (unStyleSheet (toStyleSheet self))) #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$1[\"media\"]" ghcjs_dom_style_sheet_get_media :: JSRef StyleSheet -> IO (JSRef MediaList) #else ghcjs_dom_style_sheet_get_media :: JSRef StyleSheet -> IO (JSRef MediaList) ghcjs_dom_style_sheet_get_media = undefined #endif styleSheetGetMedia :: (IsStyleSheet self) => self -> IO (Maybe MediaList) styleSheetGetMedia self = fmap MediaList . maybeJSNull <$> (ghcjs_dom_style_sheet_get_media (unStyleSheet (toStyleSheet self))) #else module GHCJS.DOM.StyleSheet ( module Graphics.UI.Gtk.WebKit.DOM.StyleSheet ) where import Graphics.UI.Gtk.WebKit.DOM.StyleSheet #endif