{-# LANGUAGE CPP #-} #if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.MediaQueryList (ghcjs_dom_media_query_list_get_media, mediaQueryListGetMedia, ghcjs_dom_media_query_list_get_matches, mediaQueryListGetMatches, MediaQueryList, IsMediaQueryList, castToMediaQueryList, gTypeMediaQueryList, toMediaQueryList) where import GHCJS.Types import GHCJS.Foreign import GHCJS.Marshal import Data.Int import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM foreign import javascript unsafe "$1[\"media\"]" ghcjs_dom_media_query_list_get_media :: JSRef MediaQueryList -> IO JSString mediaQueryListGetMedia :: (IsMediaQueryList self, FromJSString result) => self -> IO result mediaQueryListGetMedia self = fromJSString <$> (ghcjs_dom_media_query_list_get_media (unMediaQueryList (toMediaQueryList self))) foreign import javascript unsafe "($1[\"matches\"] ? 1 : 0)" ghcjs_dom_media_query_list_get_matches :: JSRef MediaQueryList -> IO Bool mediaQueryListGetMatches :: (IsMediaQueryList self) => self -> IO Bool mediaQueryListGetMatches self = ghcjs_dom_media_query_list_get_matches (unMediaQueryList (toMediaQueryList self)) #else module GHCJS.DOM.MediaQueryList ( module Graphics.UI.Gtk.WebKit.DOM.MediaQueryList ) where import Graphics.UI.Gtk.WebKit.DOM.MediaQueryList #endif