{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Window (js_decodeURI, decodeURI, decodeURI_, js_decodeURIComponent, decodeURIComponent, decodeURIComponent_, js_encodeURI, encodeURI, encodeURI_, js_encodeURIComponent, encodeURIComponent, encodeURIComponent_, js_fetch, fetch, fetch_, js_openDatabase, openDatabase, openDatabase_, openDatabaseUnsafe, openDatabaseUnchecked, js_close, close, js_stop, stop, js_focus, focus, js_blur, blur, js_open, open, open_, openUnsafe, openUnchecked, js_alertNoMessage, alertNoMessage, js_alert, alert, js_confirm, confirm, confirm_, js_prompt, prompt, prompt_, promptUnsafe, promptUnchecked, js_print, print, js_requestAnimationFrame, requestAnimationFrame, requestAnimationFrame_, js_cancelAnimationFrame, cancelAnimationFrame, js_postMessage, postMessage, js_captureEvents, captureEvents, js_releaseEvents, releaseEvents, js_getComputedStyle, getComputedStyle, getComputedStyle_, js_matchMedia, matchMedia, matchMedia_, js_moveTo, moveTo, js_moveBy, moveBy, js_resizeTo, resizeTo, js_resizeBy, resizeBy, js_scrollOpt, scrollOpt, js_scroll, scroll, js_scrollToOpt, scrollToOpt, js_scrollTo, scrollTo, js_scrollByOpt, scrollByOpt, js_scrollBy, scrollBy, js_getSelection, getSelection, getSelection_, getSelectionUnsafe, getSelectionUnchecked, js_find, find, find_, js_webkitRequestAnimationFrame, webkitRequestAnimationFrame, webkitRequestAnimationFrame_, js_webkitCancelAnimationFrame, webkitCancelAnimationFrame, js_webkitCancelRequestAnimationFrame, webkitCancelRequestAnimationFrame, js_getMatchedCSSRules, getMatchedCSSRules, getMatchedCSSRules_, js_showModalDialog, showModalDialog, showModalDialog_, js_webkitConvertPointFromPageToNode, webkitConvertPointFromPageToNode, webkitConvertPointFromPageToNode_, js_webkitConvertPointFromNodeToPage, webkitConvertPointFromNodeToPage, webkitConvertPointFromNodeToPage_, js_collectMatchingElementsInFlatTree, collectMatchingElementsInFlatTree, collectMatchingElementsInFlatTree_, js_matchingElementInFlatTree, matchingElementInFlatTree, matchingElementInFlatTree_, matchingElementInFlatTreeUnsafe, matchingElementInFlatTreeUnchecked, js_getIndexedDB, getIndexedDB, js_getWebkitIndexedDB, getWebkitIndexedDB, js_getWebkitStorageInfo, getWebkitStorageInfo, js_getSpeechSynthesis, getSpeechSynthesis, js_getWindow, getWindow, js_getSelf, getSelf, js_getDocument, getDocument, js_setName, setName, js_getName, getName, js_getLocation, getLocation, js_getHistory, getHistory, js_getCustomElements, getCustomElements, js_getLocationbar, getLocationbar, js_getMenubar, getMenubar, js_getPersonalbar, getPersonalbar, js_getScrollbars, getScrollbars, js_getStatusbar, getStatusbar, js_getToolbar, getToolbar, js_setStatus, setStatus, js_getStatus, getStatus, js_getClosed, getClosed, js_getFrames, getFrames, js_getLength, getLength, js_getTop, getTop, getTopUnsafe, getTopUnchecked, js_getOpener, getOpener, getOpenerUnsafe, getOpenerUnchecked, js_getParent, getParent, getParentUnsafe, getParentUnchecked, js_getFrameElement, getFrameElement, getFrameElementUnsafe, getFrameElementUnchecked, js_getNavigator, getNavigator, js_getApplicationCache, getApplicationCache, js_getSessionStorage, getSessionStorage, js_getLocalStorage, getLocalStorage, js_getScreen, getScreen, js_getInnerHeight, getInnerHeight, js_getInnerWidth, getInnerWidth, js_getScrollX, getScrollX, js_getPageXOffset, getPageXOffset, js_getScrollY, getScrollY, js_getPageYOffset, getPageYOffset, js_getScreenX, getScreenX, js_getScreenY, getScreenY, js_getOuterWidth, getOuterWidth, js_getOuterHeight, getOuterHeight, js_getDevicePixelRatio, getDevicePixelRatio, js_getOrientation, getOrientation, js_getEvent, getEvent, js_setDefaultStatus, setDefaultStatus, js_getDefaultStatus, getDefaultStatus, js_setDefaultstatus, setDefaultstatus, js_getDefaultstatus, getDefaultstatus, js_getOffscreenBuffering, getOffscreenBuffering, js_getScreenLeft, getScreenLeft, js_getScreenTop, getScreenTop, js_getClientInformation, getClientInformation, js_getStyleMedia, getStyleMedia, gestureChange, gestureEnd, gestureStart, deviceMotion, deviceOrientation, webKitDeviceProximity, webKitAnimationEnd, webKitAnimationIteration, webKitAnimationStart, webKitTransitionEnd, Window(..), gTypeWindow) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"decodeURI\"]($2)" js_decodeURI :: Window -> JSString -> IO JSString -- | decodeURI :: (MonadIO m, ToJSString uri, FromJSString result) => Window -> uri -> m result decodeURI self uri = liftIO (fromJSString <$> (js_decodeURI self (toJSString uri))) -- | decodeURI_ :: (MonadIO m, ToJSString uri) => Window -> uri -> m () decodeURI_ self uri = liftIO (void (js_decodeURI self (toJSString uri))) foreign import javascript unsafe "$1[\"decodeURIComponent\"]($2)" js_decodeURIComponent :: Window -> JSString -> IO JSString -- | decodeURIComponent :: (MonadIO m, ToJSString uri, FromJSString result) => Window -> uri -> m result decodeURIComponent self uri = liftIO (fromJSString <$> (js_decodeURIComponent self (toJSString uri))) -- | decodeURIComponent_ :: (MonadIO m, ToJSString uri) => Window -> uri -> m () decodeURIComponent_ self uri = liftIO (void (js_decodeURIComponent self (toJSString uri))) foreign import javascript unsafe "$1[\"encodeURI\"]($2)" js_encodeURI :: Window -> JSString -> IO JSString -- | encodeURI :: (MonadIO m, ToJSString uri, FromJSString result) => Window -> uri -> m result encodeURI self uri = liftIO (fromJSString <$> (js_encodeURI self (toJSString uri))) -- | encodeURI_ :: (MonadIO m, ToJSString uri) => Window -> uri -> m () encodeURI_ self uri = liftIO (void (js_encodeURI self (toJSString uri))) foreign import javascript unsafe "$1[\"encodeURIComponent\"]($2)" js_encodeURIComponent :: Window -> JSString -> IO JSString -- | encodeURIComponent :: (MonadIO m, ToJSString uri, FromJSString result) => Window -> uri -> m result encodeURIComponent self uri = liftIO (fromJSString <$> (js_encodeURIComponent self (toJSString uri))) -- | encodeURIComponent_ :: (MonadIO m, ToJSString uri) => Window -> uri -> m () encodeURIComponent_ self uri = liftIO (void (js_encodeURIComponent self (toJSString uri))) foreign import javascript interruptible "$1[\"fetch\"]($2, $3).then(function(s) { $c(null, s);}, function(e) { $c(e, null);});" js_fetch :: Window -> JSVal -> Optional RequestInit -> IO (JSVal, Response) -- | fetch :: (MonadIO m, ToJSVal input) => Window -> input -> Maybe RequestInit -> m Response fetch self input init = liftIO ((toJSVal input >>= \ input' -> js_fetch self input' (maybeToOptional init)) >>= checkPromiseResult) -- | fetch_ :: (MonadIO m, ToJSVal input) => Window -> input -> Maybe RequestInit -> m () fetch_ self input init = liftIO (void (toJSVal input >>= \ input' -> js_fetch self input' (maybeToOptional init))) foreign import javascript unsafe "$1[\"openDatabase\"]($2, $3, $4,\n$5, $6)" js_openDatabase :: Window -> JSString -> JSString -> JSString -> Word -> Optional DatabaseCallback -> IO (Nullable Database) -- | openDatabase :: (MonadIO m, ToJSString name, ToJSString version, ToJSString displayName) => Window -> name -> version -> displayName -> Word -> Maybe DatabaseCallback -> m (Maybe Database) openDatabase self name version displayName estimatedSize creationCallback = liftIO (nullableToMaybe <$> (js_openDatabase self (toJSString name) (toJSString version) (toJSString displayName) estimatedSize (maybeToOptional creationCallback))) -- | openDatabase_ :: (MonadIO m, ToJSString name, ToJSString version, ToJSString displayName) => Window -> name -> version -> displayName -> Word -> Maybe DatabaseCallback -> m () openDatabase_ self name version displayName estimatedSize creationCallback = liftIO (void (js_openDatabase self (toJSString name) (toJSString version) (toJSString displayName) estimatedSize (maybeToOptional creationCallback))) -- | openDatabaseUnsafe :: (MonadIO m, ToJSString name, ToJSString version, ToJSString displayName, HasCallStack) => Window -> name -> version -> displayName -> Word -> Maybe DatabaseCallback -> m Database openDatabaseUnsafe self name version displayName estimatedSize creationCallback = liftIO ((nullableToMaybe <$> (js_openDatabase self (toJSString name) (toJSString version) (toJSString displayName) estimatedSize (maybeToOptional creationCallback))) >>= maybe (Prelude.error "Nothing to return") return) -- | openDatabaseUnchecked :: (MonadIO m, ToJSString name, ToJSString version, ToJSString displayName) => Window -> name -> version -> displayName -> Word -> Maybe DatabaseCallback -> m Database openDatabaseUnchecked self name version displayName estimatedSize creationCallback = liftIO (fromJust . nullableToMaybe <$> (js_openDatabase self (toJSString name) (toJSString version) (toJSString displayName) estimatedSize (maybeToOptional creationCallback))) foreign import javascript unsafe "$1[\"close\"]()" js_close :: Window -> IO () -- | close :: (MonadIO m) => Window -> m () close self = liftIO (js_close self) foreign import javascript unsafe "$1[\"stop\"]()" js_stop :: Window -> IO () -- | stop :: (MonadIO m) => Window -> m () stop self = liftIO (js_stop self) foreign import javascript unsafe "$1[\"focus\"]()" js_focus :: Window -> IO () -- | focus :: (MonadIO m) => Window -> m () focus self = liftIO (js_focus self) foreign import javascript unsafe "$1[\"blur\"]()" js_blur :: Window -> IO () -- | blur :: (MonadIO m) => Window -> m () blur self = liftIO (js_blur self) foreign import javascript unsafe "$1[\"open\"]($2, $3, $4)" js_open :: Window -> Optional JSString -> Optional JSString -> Optional JSString -> IO (Nullable Window) -- | open :: (MonadIO m, ToJSString url, ToJSString target, ToJSString features) => Window -> Maybe url -> Maybe target -> Maybe features -> m (Maybe Window) open self url target features = liftIO (nullableToMaybe <$> (js_open self (toOptionalJSString url) (toOptionalJSString target) (toOptionalJSString features))) -- | open_ :: (MonadIO m, ToJSString url, ToJSString target, ToJSString features) => Window -> Maybe url -> Maybe target -> Maybe features -> m () open_ self url target features = liftIO (void (js_open self (toOptionalJSString url) (toOptionalJSString target) (toOptionalJSString features))) -- | openUnsafe :: (MonadIO m, ToJSString url, ToJSString target, ToJSString features, HasCallStack) => Window -> Maybe url -> Maybe target -> Maybe features -> m Window openUnsafe self url target features = liftIO ((nullableToMaybe <$> (js_open self (toOptionalJSString url) (toOptionalJSString target) (toOptionalJSString features))) >>= maybe (Prelude.error "Nothing to return") return) -- | openUnchecked :: (MonadIO m, ToJSString url, ToJSString target, ToJSString features) => Window -> Maybe url -> Maybe target -> Maybe features -> m Window openUnchecked self url target features = liftIO (fromJust . nullableToMaybe <$> (js_open self (toOptionalJSString url) (toOptionalJSString target) (toOptionalJSString features))) foreign import javascript unsafe "$1[\"alert\"]()" js_alertNoMessage :: Window -> IO () -- | alertNoMessage :: (MonadIO m) => Window -> m () alertNoMessage self = liftIO (js_alertNoMessage self) foreign import javascript unsafe "$1[\"alert\"]($2)" js_alert :: Window -> JSString -> IO () -- | alert :: (MonadIO m, ToJSString message) => Window -> message -> m () alert self message = liftIO (js_alert self (toJSString message)) foreign import javascript unsafe "($1[\"confirm\"]($2) ? 1 : 0)" js_confirm :: Window -> Optional JSString -> IO Bool -- | confirm :: (MonadIO m, ToJSString message) => Window -> Maybe message -> m Bool confirm self message = liftIO (js_confirm self (toOptionalJSString message)) -- | confirm_ :: (MonadIO m, ToJSString message) => Window -> Maybe message -> m () confirm_ self message = liftIO (void (js_confirm self (toOptionalJSString message))) foreign import javascript unsafe "$1[\"prompt\"]($2, $3)" js_prompt :: Window -> Optional JSString -> Optional JSString -> IO (Nullable JSString) -- | prompt :: (MonadIO m, ToJSString message, ToJSString defaultValue, FromJSString result) => Window -> Maybe message -> Maybe defaultValue -> m (Maybe result) prompt self message defaultValue = liftIO (fromMaybeJSString <$> (js_prompt self (toOptionalJSString message) (toOptionalJSString defaultValue))) -- | prompt_ :: (MonadIO m, ToJSString message, ToJSString defaultValue) => Window -> Maybe message -> Maybe defaultValue -> m () prompt_ self message defaultValue = liftIO (void (js_prompt self (toOptionalJSString message) (toOptionalJSString defaultValue))) -- | promptUnsafe :: (MonadIO m, ToJSString message, ToJSString defaultValue, HasCallStack, FromJSString result) => Window -> Maybe message -> Maybe defaultValue -> m result promptUnsafe self message defaultValue = liftIO ((fromMaybeJSString <$> (js_prompt self (toOptionalJSString message) (toOptionalJSString defaultValue))) >>= maybe (Prelude.error "Nothing to return") return) -- | promptUnchecked :: (MonadIO m, ToJSString message, ToJSString defaultValue, FromJSString result) => Window -> Maybe message -> Maybe defaultValue -> m result promptUnchecked self message defaultValue = liftIO (fromJust . fromMaybeJSString <$> (js_prompt self (toOptionalJSString message) (toOptionalJSString defaultValue))) foreign import javascript unsafe "$1[\"print\"]()" js_print :: Window -> IO () -- | print :: (MonadIO m) => Window -> m () print self = liftIO (js_print self) foreign import javascript unsafe "$1[\"requestAnimationFrame\"]($2)" js_requestAnimationFrame :: Window -> RequestAnimationFrameCallback -> IO Int -- | requestAnimationFrame :: (MonadIO m) => Window -> RequestAnimationFrameCallback -> m Int requestAnimationFrame self callback = liftIO (js_requestAnimationFrame self callback) -- | requestAnimationFrame_ :: (MonadIO m) => Window -> RequestAnimationFrameCallback -> m () requestAnimationFrame_ self callback = liftIO (void (js_requestAnimationFrame self callback)) foreign import javascript unsafe "$1[\"cancelAnimationFrame\"]($2)" js_cancelAnimationFrame :: Window -> Int -> IO () -- | cancelAnimationFrame :: (MonadIO m) => Window -> Int -> m () cancelAnimationFrame self handle = liftIO (js_cancelAnimationFrame self handle) foreign import javascript unsafe "$1[\"postMessage\"]($2, $3, $4)" js_postMessage :: Window -> JSVal -> JSString -> JSVal -> IO () -- | postMessage :: (MonadIO m, ToJSVal message, ToJSString targetOrigin, IsGObject transfer) => Window -> message -> targetOrigin -> [transfer] -> m () postMessage self message targetOrigin transfer = liftIO (toJSVal transfer >>= \ transfer' -> toJSVal message >>= \ message' -> js_postMessage self message' (toJSString targetOrigin) transfer') foreign import javascript unsafe "$1[\"captureEvents\"]()" js_captureEvents :: Window -> IO () -- | captureEvents :: (MonadIO m) => Window -> m () captureEvents self = liftIO (js_captureEvents self) foreign import javascript unsafe "$1[\"releaseEvents\"]()" js_releaseEvents :: Window -> IO () -- | releaseEvents :: (MonadIO m) => Window -> m () releaseEvents self = liftIO (js_releaseEvents self) foreign import javascript unsafe "$1[\"getComputedStyle\"]($2, $3)" js_getComputedStyle :: Window -> Element -> Optional JSString -> IO CSSStyleDeclaration -- | getComputedStyle :: (MonadIO m, IsElement element, ToJSString pseudoElement) => Window -> element -> Maybe pseudoElement -> m CSSStyleDeclaration getComputedStyle self element pseudoElement = liftIO (js_getComputedStyle self (toElement element) (toOptionalJSString pseudoElement)) -- | getComputedStyle_ :: (MonadIO m, IsElement element, ToJSString pseudoElement) => Window -> element -> Maybe pseudoElement -> m () getComputedStyle_ self element pseudoElement = liftIO (void (js_getComputedStyle self (toElement element) (toOptionalJSString pseudoElement))) foreign import javascript unsafe "$1[\"matchMedia\"]($2)" js_matchMedia :: Window -> JSString -> IO MediaQueryList -- | matchMedia :: (MonadIO m, ToJSString query) => Window -> query -> m MediaQueryList matchMedia self query = liftIO (js_matchMedia self (toJSString query)) -- | matchMedia_ :: (MonadIO m, ToJSString query) => Window -> query -> m () matchMedia_ self query = liftIO (void (js_matchMedia self (toJSString query))) foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)" js_moveTo :: Window -> Optional Float -> Optional Float -> IO () -- | moveTo :: (MonadIO m) => Window -> Maybe Float -> Maybe Float -> m () moveTo self x y = liftIO (js_moveTo self (maybeToOptional x) (maybeToOptional y)) foreign import javascript unsafe "$1[\"moveBy\"]($2, $3)" js_moveBy :: Window -> Optional Float -> Optional Float -> IO () -- | moveBy :: (MonadIO m) => Window -> Maybe Float -> Maybe Float -> m () moveBy self x y = liftIO (js_moveBy self (maybeToOptional x) (maybeToOptional y)) foreign import javascript unsafe "$1[\"resizeTo\"]($2, $3)" js_resizeTo :: Window -> Optional Float -> Optional Float -> IO () -- | resizeTo :: (MonadIO m) => Window -> Maybe Float -> Maybe Float -> m () resizeTo self width height = liftIO (js_resizeTo self (maybeToOptional width) (maybeToOptional height)) foreign import javascript unsafe "$1[\"resizeBy\"]($2, $3)" js_resizeBy :: Window -> Optional Float -> Optional Float -> IO () -- | resizeBy :: (MonadIO m) => Window -> Maybe Float -> Maybe Float -> m () resizeBy self x y = liftIO (js_resizeBy self (maybeToOptional x) (maybeToOptional y)) foreign import javascript unsafe "$1[\"scroll\"]($2)" js_scrollOpt :: Window -> Optional ScrollToOptions -> IO () -- | scrollOpt :: (MonadIO m) => Window -> Maybe ScrollToOptions -> m () scrollOpt self options = liftIO (js_scrollOpt self (maybeToOptional options)) foreign import javascript unsafe "$1[\"scroll\"]($2, $3)" js_scroll :: Window -> Double -> Double -> IO () -- | scroll :: (MonadIO m) => Window -> Double -> Double -> m () scroll self x y = liftIO (js_scroll self x y) foreign import javascript unsafe "$1[\"scrollTo\"]($2)" js_scrollToOpt :: Window -> Optional ScrollToOptions -> IO () -- | scrollToOpt :: (MonadIO m) => Window -> Maybe ScrollToOptions -> m () scrollToOpt self options = liftIO (js_scrollToOpt self (maybeToOptional options)) foreign import javascript unsafe "$1[\"scrollTo\"]($2, $3)" js_scrollTo :: Window -> Double -> Double -> IO () -- | scrollTo :: (MonadIO m) => Window -> Double -> Double -> m () scrollTo self x y = liftIO (js_scrollTo self x y) foreign import javascript unsafe "$1[\"scrollBy\"]($2)" js_scrollByOpt :: Window -> Optional ScrollToOptions -> IO () -- | scrollByOpt :: (MonadIO m) => Window -> Maybe ScrollToOptions -> m () scrollByOpt self option = liftIO (js_scrollByOpt self (maybeToOptional option)) foreign import javascript unsafe "$1[\"scrollBy\"]($2, $3)" js_scrollBy :: Window -> Double -> Double -> IO () -- | scrollBy :: (MonadIO m) => Window -> Double -> Double -> m () scrollBy self x y = liftIO (js_scrollBy self x y) foreign import javascript unsafe "$1[\"getSelection\"]()" js_getSelection :: Window -> IO (Nullable Selection) -- | getSelection :: (MonadIO m) => Window -> m (Maybe Selection) getSelection self = liftIO (nullableToMaybe <$> (js_getSelection self)) -- | getSelection_ :: (MonadIO m) => Window -> m () getSelection_ self = liftIO (void (js_getSelection self)) -- | getSelectionUnsafe :: (MonadIO m, HasCallStack) => Window -> m Selection getSelectionUnsafe self = liftIO ((nullableToMaybe <$> (js_getSelection self)) >>= maybe (Prelude.error "Nothing to return") return) -- | getSelectionUnchecked :: (MonadIO m) => Window -> m Selection getSelectionUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getSelection self)) foreign import javascript unsafe "($1[\"find\"]($2, $3, $4, $5, $6,\n$7, $8) ? 1 : 0)" js_find :: Window -> Optional JSString -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> IO Bool -- | find :: (MonadIO m, ToJSString string) => Window -> Maybe string -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> m Bool find self string caseSensitive backwards wrap wholeWord searchInFrames showDialog = liftIO (js_find self (toOptionalJSString string) caseSensitive backwards wrap wholeWord searchInFrames showDialog) -- | find_ :: (MonadIO m, ToJSString string) => Window -> Maybe string -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> m () find_ self string caseSensitive backwards wrap wholeWord searchInFrames showDialog = liftIO (void (js_find self (toOptionalJSString string) caseSensitive backwards wrap wholeWord searchInFrames showDialog)) foreign import javascript unsafe "$1[\"webkitRequestAnimationFrame\"]($2)" js_webkitRequestAnimationFrame :: Window -> RequestAnimationFrameCallback -> IO Int -- | webkitRequestAnimationFrame :: (MonadIO m) => Window -> RequestAnimationFrameCallback -> m Int webkitRequestAnimationFrame self callback = liftIO (js_webkitRequestAnimationFrame self callback) -- | webkitRequestAnimationFrame_ :: (MonadIO m) => Window -> RequestAnimationFrameCallback -> m () webkitRequestAnimationFrame_ self callback = liftIO (void (js_webkitRequestAnimationFrame self callback)) foreign import javascript unsafe "$1[\"webkitCancelAnimationFrame\"]($2)" js_webkitCancelAnimationFrame :: Window -> Int -> IO () -- | webkitCancelAnimationFrame :: (MonadIO m) => Window -> Int -> m () webkitCancelAnimationFrame self id = liftIO (js_webkitCancelAnimationFrame self id) foreign import javascript unsafe "$1[\"webkitCancelRequestAnimationFrame\"]($2)" js_webkitCancelRequestAnimationFrame :: Window -> Int -> IO () -- | webkitCancelRequestAnimationFrame :: (MonadIO m) => Window -> Int -> m () webkitCancelRequestAnimationFrame self id = liftIO (js_webkitCancelRequestAnimationFrame self id) foreign import javascript unsafe "$1[\"getMatchedCSSRules\"]($2, $3)" js_getMatchedCSSRules :: Window -> Optional Element -> Optional JSString -> IO CSSRuleList -- | getMatchedCSSRules :: (MonadIO m, IsElement element, ToJSString pseudoElement) => Window -> Maybe element -> Maybe pseudoElement -> m CSSRuleList getMatchedCSSRules self element pseudoElement = liftIO (js_getMatchedCSSRules self (maybeToOptional (fmap toElement element)) (toOptionalJSString pseudoElement)) -- | getMatchedCSSRules_ :: (MonadIO m, IsElement element, ToJSString pseudoElement) => Window -> Maybe element -> Maybe pseudoElement -> m () getMatchedCSSRules_ self element pseudoElement = liftIO (void (js_getMatchedCSSRules self (maybeToOptional (fmap toElement element)) (toOptionalJSString pseudoElement))) foreign import javascript unsafe "$1[\"showModalDialog\"]($2, $3,\n$4)" js_showModalDialog :: Window -> JSString -> Optional JSVal -> Optional JSString -> IO JSVal -- | showModalDialog :: (MonadIO m, ToJSString url, ToJSVal dialogArgs, ToJSString featureArgs) => Window -> url -> Maybe dialogArgs -> Maybe featureArgs -> m JSVal showModalDialog self url dialogArgs featureArgs = liftIO (mapM toJSVal dialogArgs >>= \ dialogArgs' -> js_showModalDialog self (toJSString url) (maybeToOptional dialogArgs') (toOptionalJSString featureArgs)) -- | showModalDialog_ :: (MonadIO m, ToJSString url, ToJSVal dialogArgs, ToJSString featureArgs) => Window -> url -> Maybe dialogArgs -> Maybe featureArgs -> m () showModalDialog_ self url dialogArgs featureArgs = liftIO (void (mapM toJSVal dialogArgs >>= \ dialogArgs' -> js_showModalDialog self (toJSString url) (maybeToOptional dialogArgs') (toOptionalJSString featureArgs))) foreign import javascript unsafe "$1[\"webkitConvertPointFromPageToNode\"]($2,\n$3)" js_webkitConvertPointFromPageToNode :: Window -> Optional Node -> Optional WebKitPoint -> IO WebKitPoint -- | webkitConvertPointFromPageToNode :: (MonadIO m, IsNode node) => Window -> Maybe node -> Maybe WebKitPoint -> m WebKitPoint webkitConvertPointFromPageToNode self node p = liftIO (js_webkitConvertPointFromPageToNode self (maybeToOptional (fmap toNode node)) (maybeToOptional p)) -- | webkitConvertPointFromPageToNode_ :: (MonadIO m, IsNode node) => Window -> Maybe node -> Maybe WebKitPoint -> m () webkitConvertPointFromPageToNode_ self node p = liftIO (void (js_webkitConvertPointFromPageToNode self (maybeToOptional (fmap toNode node)) (maybeToOptional p))) foreign import javascript unsafe "$1[\"webkitConvertPointFromNodeToPage\"]($2,\n$3)" js_webkitConvertPointFromNodeToPage :: Window -> Optional Node -> Optional WebKitPoint -> IO WebKitPoint -- | webkitConvertPointFromNodeToPage :: (MonadIO m, IsNode node) => Window -> Maybe node -> Maybe WebKitPoint -> m WebKitPoint webkitConvertPointFromNodeToPage self node p = liftIO (js_webkitConvertPointFromNodeToPage self (maybeToOptional (fmap toNode node)) (maybeToOptional p)) -- | webkitConvertPointFromNodeToPage_ :: (MonadIO m, IsNode node) => Window -> Maybe node -> Maybe WebKitPoint -> m () webkitConvertPointFromNodeToPage_ self node p = liftIO (void (js_webkitConvertPointFromNodeToPage self (maybeToOptional (fmap toNode node)) (maybeToOptional p))) foreign import javascript unsafe "$1[\"collectMatchingElementsInFlatTree\"]($2,\n$3)" js_collectMatchingElementsInFlatTree :: Window -> Node -> JSString -> IO NodeList -- | collectMatchingElementsInFlatTree :: (MonadIO m, IsNode scope, ToJSString selectors) => Window -> scope -> selectors -> m NodeList collectMatchingElementsInFlatTree self scope selectors = liftIO (js_collectMatchingElementsInFlatTree self (toNode scope) (toJSString selectors)) -- | collectMatchingElementsInFlatTree_ :: (MonadIO m, IsNode scope, ToJSString selectors) => Window -> scope -> selectors -> m () collectMatchingElementsInFlatTree_ self scope selectors = liftIO (void (js_collectMatchingElementsInFlatTree self (toNode scope) (toJSString selectors))) foreign import javascript unsafe "$1[\"matchingElementInFlatTree\"]($2,\n$3)" js_matchingElementInFlatTree :: Window -> Node -> JSString -> IO (Nullable Element) -- | matchingElementInFlatTree :: (MonadIO m, IsNode scope, ToJSString selectors) => Window -> scope -> selectors -> m (Maybe Element) matchingElementInFlatTree self scope selectors = liftIO (nullableToMaybe <$> (js_matchingElementInFlatTree self (toNode scope) (toJSString selectors))) -- | matchingElementInFlatTree_ :: (MonadIO m, IsNode scope, ToJSString selectors) => Window -> scope -> selectors -> m () matchingElementInFlatTree_ self scope selectors = liftIO (void (js_matchingElementInFlatTree self (toNode scope) (toJSString selectors))) -- | matchingElementInFlatTreeUnsafe :: (MonadIO m, IsNode scope, ToJSString selectors, HasCallStack) => Window -> scope -> selectors -> m Element matchingElementInFlatTreeUnsafe self scope selectors = liftIO ((nullableToMaybe <$> (js_matchingElementInFlatTree self (toNode scope) (toJSString selectors))) >>= maybe (Prelude.error "Nothing to return") return) -- | matchingElementInFlatTreeUnchecked :: (MonadIO m, IsNode scope, ToJSString selectors) => Window -> scope -> selectors -> m Element matchingElementInFlatTreeUnchecked self scope selectors = liftIO (fromJust . nullableToMaybe <$> (js_matchingElementInFlatTree self (toNode scope) (toJSString selectors))) foreign import javascript unsafe "$1[\"indexedDB\"]" js_getIndexedDB :: Window -> IO IDBFactory -- | getIndexedDB :: (MonadIO m) => Window -> m IDBFactory getIndexedDB self = liftIO (js_getIndexedDB self) foreign import javascript unsafe "$1[\"webkitIndexedDB\"]" js_getWebkitIndexedDB :: Window -> IO IDBFactory -- | getWebkitIndexedDB :: (MonadIO m) => Window -> m IDBFactory getWebkitIndexedDB self = liftIO (js_getWebkitIndexedDB self) foreign import javascript unsafe "$1[\"webkitStorageInfo\"]" js_getWebkitStorageInfo :: Window -> IO StorageInfo -- | getWebkitStorageInfo :: (MonadIO m) => Window -> m StorageInfo getWebkitStorageInfo self = liftIO (js_getWebkitStorageInfo self) foreign import javascript unsafe "$1[\"speechSynthesis\"]" js_getSpeechSynthesis :: Window -> IO SpeechSynthesis -- | getSpeechSynthesis :: (MonadIO m) => Window -> m SpeechSynthesis getSpeechSynthesis self = liftIO (js_getSpeechSynthesis self) foreign import javascript unsafe "$1[\"window\"]" js_getWindow :: Window -> IO Window -- | getWindow :: (MonadIO m) => Window -> m Window getWindow self = liftIO (js_getWindow self) foreign import javascript unsafe "$1[\"self\"]" js_getSelf :: Window -> IO Window -- | getSelf :: (MonadIO m) => Window -> m Window getSelf self = liftIO (js_getSelf self) foreign import javascript unsafe "$1[\"document\"]" js_getDocument :: Window -> IO Document -- | getDocument :: (MonadIO m) => Window -> m Document getDocument self = liftIO (js_getDocument self) foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: Window -> JSString -> IO () -- | setName :: (MonadIO m, ToJSString val) => Window -> val -> m () setName self val = liftIO (js_setName self (toJSString val)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: Window -> IO JSString -- | getName :: (MonadIO m, FromJSString result) => Window -> m result getName self = liftIO (fromJSString <$> (js_getName self)) foreign import javascript unsafe "$1[\"location\"]" js_getLocation :: Window -> IO Location -- | getLocation :: (MonadIO m) => Window -> m Location getLocation self = liftIO (js_getLocation self) foreign import javascript unsafe "$1[\"history\"]" js_getHistory :: Window -> IO History -- | getHistory :: (MonadIO m) => Window -> m History getHistory self = liftIO (js_getHistory self) foreign import javascript unsafe "$1[\"customElements\"]" js_getCustomElements :: Window -> IO CustomElementRegistry -- | getCustomElements :: (MonadIO m) => Window -> m CustomElementRegistry getCustomElements self = liftIO (js_getCustomElements self) foreign import javascript unsafe "$1[\"locationbar\"]" js_getLocationbar :: Window -> IO BarProp -- | getLocationbar :: (MonadIO m) => Window -> m BarProp getLocationbar self = liftIO (js_getLocationbar self) foreign import javascript unsafe "$1[\"menubar\"]" js_getMenubar :: Window -> IO BarProp -- | getMenubar :: (MonadIO m) => Window -> m BarProp getMenubar self = liftIO (js_getMenubar self) foreign import javascript unsafe "$1[\"personalbar\"]" js_getPersonalbar :: Window -> IO BarProp -- | getPersonalbar :: (MonadIO m) => Window -> m BarProp getPersonalbar self = liftIO (js_getPersonalbar self) foreign import javascript unsafe "$1[\"scrollbars\"]" js_getScrollbars :: Window -> IO BarProp -- | getScrollbars :: (MonadIO m) => Window -> m BarProp getScrollbars self = liftIO (js_getScrollbars self) foreign import javascript unsafe "$1[\"statusbar\"]" js_getStatusbar :: Window -> IO BarProp -- | getStatusbar :: (MonadIO m) => Window -> m BarProp getStatusbar self = liftIO (js_getStatusbar self) foreign import javascript unsafe "$1[\"toolbar\"]" js_getToolbar :: Window -> IO BarProp -- | getToolbar :: (MonadIO m) => Window -> m BarProp getToolbar self = liftIO (js_getToolbar self) foreign import javascript unsafe "$1[\"status\"] = $2;" js_setStatus :: Window -> JSString -> IO () -- | setStatus :: (MonadIO m, ToJSString val) => Window -> val -> m () setStatus self val = liftIO (js_setStatus self (toJSString val)) foreign import javascript unsafe "$1[\"status\"]" js_getStatus :: Window -> IO JSString -- | getStatus :: (MonadIO m, FromJSString result) => Window -> m result getStatus self = liftIO (fromJSString <$> (js_getStatus self)) foreign import javascript unsafe "($1[\"closed\"] ? 1 : 0)" js_getClosed :: Window -> IO Bool -- | getClosed :: (MonadIO m) => Window -> m Bool getClosed self = liftIO (js_getClosed self) foreign import javascript unsafe "$1[\"frames\"]" js_getFrames :: Window -> IO Window -- | getFrames :: (MonadIO m) => Window -> m Window getFrames self = liftIO (js_getFrames self) foreign import javascript unsafe "$1[\"length\"]" js_getLength :: Window -> IO Word -- | getLength :: (MonadIO m) => Window -> m Word getLength self = liftIO (js_getLength self) foreign import javascript unsafe "$1[\"top\"]" js_getTop :: Window -> IO (Nullable Window) -- | getTop :: (MonadIO m) => Window -> m (Maybe Window) getTop self = liftIO (nullableToMaybe <$> (js_getTop self)) -- | getTopUnsafe :: (MonadIO m, HasCallStack) => Window -> m Window getTopUnsafe self = liftIO ((nullableToMaybe <$> (js_getTop self)) >>= maybe (Prelude.error "Nothing to return") return) -- | getTopUnchecked :: (MonadIO m) => Window -> m Window getTopUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getTop self)) foreign import javascript unsafe "$1[\"opener\"]" js_getOpener :: Window -> IO (Nullable Window) -- | getOpener :: (MonadIO m) => Window -> m (Maybe Window) getOpener self = liftIO (nullableToMaybe <$> (js_getOpener self)) -- | getOpenerUnsafe :: (MonadIO m, HasCallStack) => Window -> m Window getOpenerUnsafe self = liftIO ((nullableToMaybe <$> (js_getOpener self)) >>= maybe (Prelude.error "Nothing to return") return) -- | getOpenerUnchecked :: (MonadIO m) => Window -> m Window getOpenerUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getOpener self)) foreign import javascript unsafe "$1[\"parent\"]" js_getParent :: Window -> IO (Nullable Window) -- | getParent :: (MonadIO m) => Window -> m (Maybe Window) getParent self = liftIO (nullableToMaybe <$> (js_getParent self)) -- | getParentUnsafe :: (MonadIO m, HasCallStack) => Window -> m Window getParentUnsafe self = liftIO ((nullableToMaybe <$> (js_getParent self)) >>= maybe (Prelude.error "Nothing to return") return) -- | getParentUnchecked :: (MonadIO m) => Window -> m Window getParentUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getParent self)) foreign import javascript unsafe "$1[\"frameElement\"]" js_getFrameElement :: Window -> IO (Nullable Element) -- | getFrameElement :: (MonadIO m) => Window -> m (Maybe Element) getFrameElement self = liftIO (nullableToMaybe <$> (js_getFrameElement self)) -- | getFrameElementUnsafe :: (MonadIO m, HasCallStack) => Window -> m Element getFrameElementUnsafe self = liftIO ((nullableToMaybe <$> (js_getFrameElement self)) >>= maybe (Prelude.error "Nothing to return") return) -- | getFrameElementUnchecked :: (MonadIO m) => Window -> m Element getFrameElementUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getFrameElement self)) foreign import javascript unsafe "$1[\"navigator\"]" js_getNavigator :: Window -> IO Navigator -- | getNavigator :: (MonadIO m) => Window -> m Navigator getNavigator self = liftIO (js_getNavigator self) foreign import javascript unsafe "$1[\"applicationCache\"]" js_getApplicationCache :: Window -> IO ApplicationCache -- | getApplicationCache :: (MonadIO m) => Window -> m ApplicationCache getApplicationCache self = liftIO (js_getApplicationCache self) foreign import javascript unsafe "$1[\"sessionStorage\"]" js_getSessionStorage :: Window -> IO Storage -- | getSessionStorage :: (MonadIO m) => Window -> m Storage getSessionStorage self = liftIO (js_getSessionStorage self) foreign import javascript unsafe "$1[\"localStorage\"]" js_getLocalStorage :: Window -> IO Storage -- | getLocalStorage :: (MonadIO m) => Window -> m Storage getLocalStorage self = liftIO (js_getLocalStorage self) foreign import javascript unsafe "$1[\"screen\"]" js_getScreen :: Window -> IO Screen -- | getScreen :: (MonadIO m) => Window -> m Screen getScreen self = liftIO (js_getScreen self) foreign import javascript unsafe "$1[\"innerHeight\"]" js_getInnerHeight :: Window -> IO Int -- | getInnerHeight :: (MonadIO m) => Window -> m Int getInnerHeight self = liftIO (js_getInnerHeight self) foreign import javascript unsafe "$1[\"innerWidth\"]" js_getInnerWidth :: Window -> IO Int -- | getInnerWidth :: (MonadIO m) => Window -> m Int getInnerWidth self = liftIO (js_getInnerWidth self) foreign import javascript unsafe "$1[\"scrollX\"]" js_getScrollX :: Window -> IO Double -- | getScrollX :: (MonadIO m) => Window -> m Double getScrollX self = liftIO (js_getScrollX self) foreign import javascript unsafe "$1[\"pageXOffset\"]" js_getPageXOffset :: Window -> IO Double -- | getPageXOffset :: (MonadIO m) => Window -> m Double getPageXOffset self = liftIO (js_getPageXOffset self) foreign import javascript unsafe "$1[\"scrollY\"]" js_getScrollY :: Window -> IO Double -- | getScrollY :: (MonadIO m) => Window -> m Double getScrollY self = liftIO (js_getScrollY self) foreign import javascript unsafe "$1[\"pageYOffset\"]" js_getPageYOffset :: Window -> IO Double -- | getPageYOffset :: (MonadIO m) => Window -> m Double getPageYOffset self = liftIO (js_getPageYOffset self) foreign import javascript unsafe "$1[\"screenX\"]" js_getScreenX :: Window -> IO Int -- | getScreenX :: (MonadIO m) => Window -> m Int getScreenX self = liftIO (js_getScreenX self) foreign import javascript unsafe "$1[\"screenY\"]" js_getScreenY :: Window -> IO Int -- | getScreenY :: (MonadIO m) => Window -> m Int getScreenY self = liftIO (js_getScreenY self) foreign import javascript unsafe "$1[\"outerWidth\"]" js_getOuterWidth :: Window -> IO Int -- | getOuterWidth :: (MonadIO m) => Window -> m Int getOuterWidth self = liftIO (js_getOuterWidth self) foreign import javascript unsafe "$1[\"outerHeight\"]" js_getOuterHeight :: Window -> IO Int -- | getOuterHeight :: (MonadIO m) => Window -> m Int getOuterHeight self = liftIO (js_getOuterHeight self) foreign import javascript unsafe "$1[\"devicePixelRatio\"]" js_getDevicePixelRatio :: Window -> IO Double -- | getDevicePixelRatio :: (MonadIO m) => Window -> m Double getDevicePixelRatio self = liftIO (js_getDevicePixelRatio self) foreign import javascript unsafe "$1[\"orientation\"]" js_getOrientation :: Window -> IO Int -- | getOrientation :: (MonadIO m) => Window -> m Int getOrientation self = liftIO (js_getOrientation self) foreign import javascript unsafe "$1[\"event\"]" js_getEvent :: Window -> IO Event -- | getEvent :: (MonadIO m) => Window -> m Event getEvent self = liftIO (js_getEvent self) foreign import javascript unsafe "$1[\"defaultStatus\"] = $2;" js_setDefaultStatus :: Window -> JSString -> IO () -- | setDefaultStatus :: (MonadIO m, ToJSString val) => Window -> val -> m () setDefaultStatus self val = liftIO (js_setDefaultStatus self (toJSString val)) foreign import javascript unsafe "$1[\"defaultStatus\"]" js_getDefaultStatus :: Window -> IO JSString -- | getDefaultStatus :: (MonadIO m, FromJSString result) => Window -> m result getDefaultStatus self = liftIO (fromJSString <$> (js_getDefaultStatus self)) foreign import javascript unsafe "$1[\"defaultstatus\"] = $2;" js_setDefaultstatus :: Window -> JSString -> IO () -- | setDefaultstatus :: (MonadIO m, ToJSString val) => Window -> val -> m () setDefaultstatus self val = liftIO (js_setDefaultstatus self (toJSString val)) foreign import javascript unsafe "$1[\"defaultstatus\"]" js_getDefaultstatus :: Window -> IO JSString -- | getDefaultstatus :: (MonadIO m, FromJSString result) => Window -> m result getDefaultstatus self = liftIO (fromJSString <$> (js_getDefaultstatus self)) foreign import javascript unsafe "($1[\"offscreenBuffering\"] ? 1 : 0)" js_getOffscreenBuffering :: Window -> IO Bool -- | getOffscreenBuffering :: (MonadIO m) => Window -> m Bool getOffscreenBuffering self = liftIO (js_getOffscreenBuffering self) foreign import javascript unsafe "$1[\"screenLeft\"]" js_getScreenLeft :: Window -> IO Int -- | getScreenLeft :: (MonadIO m) => Window -> m Int getScreenLeft self = liftIO (js_getScreenLeft self) foreign import javascript unsafe "$1[\"screenTop\"]" js_getScreenTop :: Window -> IO Int -- | getScreenTop :: (MonadIO m) => Window -> m Int getScreenTop self = liftIO (js_getScreenTop self) foreign import javascript unsafe "$1[\"clientInformation\"]" js_getClientInformation :: Window -> IO Navigator -- | getClientInformation :: (MonadIO m) => Window -> m Navigator getClientInformation self = liftIO (js_getClientInformation self) foreign import javascript unsafe "$1[\"styleMedia\"]" js_getStyleMedia :: Window -> IO StyleMedia -- | getStyleMedia :: (MonadIO m) => Window -> m StyleMedia getStyleMedia self = liftIO (js_getStyleMedia self) -- | gestureChange :: EventName Window UIEvent gestureChange = unsafeEventName (toJSString "gesturechange") -- | gestureEnd :: EventName Window UIEvent gestureEnd = unsafeEventName (toJSString "gestureend") -- | gestureStart :: EventName Window UIEvent gestureStart = unsafeEventName (toJSString "gesturestart") -- | deviceMotion :: EventName Window DeviceMotionEvent deviceMotion = unsafeEventName (toJSString "devicemotion") -- | deviceOrientation :: EventName Window DeviceOrientationEvent deviceOrientation = unsafeEventName (toJSString "deviceorientation") -- | webKitDeviceProximity :: EventName Window DeviceProximityEvent webKitDeviceProximity = unsafeEventName (toJSString "webkitdeviceproximity") -- | webKitAnimationEnd :: EventName Window AnimationEvent webKitAnimationEnd = unsafeEventName (toJSString "webkitanimationend") -- | webKitAnimationIteration :: EventName Window AnimationEvent webKitAnimationIteration = unsafeEventName (toJSString "webkitanimationiteration") -- | webKitAnimationStart :: EventName Window AnimationEvent webKitAnimationStart = unsafeEventName (toJSString "webkitanimationstart") -- | webKitTransitionEnd :: EventName Window TransitionEvent webKitTransitionEnd = unsafeEventName (toJSString "webkittransitionend")