{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Window (js_openDatabase, openDatabase, js_getSelection, getSelection, js_focus, focus, js_blur, blur, js_close, close, js_print, print, js_stop, stop, js_open, open, js_showModalDialog, showModalDialog, js_alert, alert, js_confirm, confirm, js_prompt, prompt, js_find, find, js_scrollBy, scrollBy, js_scrollTo, scrollTo, js_scroll, scroll, js_moveBy, moveBy, js_moveTo, moveTo, js_resizeBy, resizeBy, js_resizeTo, resizeTo, js_matchMedia, matchMedia, js_getComputedStyle, getComputedStyle, js_getMatchedCSSRules, getMatchedCSSRules, js_webkitConvertPointFromPageToNode, webkitConvertPointFromPageToNode, js_webkitConvertPointFromNodeToPage, webkitConvertPointFromNodeToPage, js_postMessage, postMessage, js_requestAnimationFrame, requestAnimationFrame, js_cancelAnimationFrame, cancelAnimationFrame, js_webkitRequestAnimationFrame, webkitRequestAnimationFrame, js_webkitCancelAnimationFrame, webkitCancelAnimationFrame, js_webkitCancelRequestAnimationFrame, webkitCancelRequestAnimationFrame, js_captureEvents, captureEvents, js_releaseEvents, releaseEvents, js_getWebkitIndexedDB, getWebkitIndexedDB, js_getIndexedDB, getIndexedDB, js_getWebkitStorageInfo, getWebkitStorageInfo, js_getSpeechSynthesis, getSpeechSynthesis, js_getScreen, getScreen, js_getHistory, getHistory, js_getLocationbar, getLocationbar, js_getMenubar, getMenubar, js_getPersonalbar, getPersonalbar, js_getScrollbars, getScrollbars, js_getStatusbar, getStatusbar, js_getToolbar, getToolbar, js_getNavigator, getNavigator, js_getClientInformation, getClientInformation, js_getCrypto, getCrypto, js_setLocation, setLocation, js_getLocation, getLocation, js_getEvent, getEvent, js_getFrameElement, getFrameElement, js_getOffscreenBuffering, getOffscreenBuffering, js_getOuterHeight, getOuterHeight, js_getOuterWidth, getOuterWidth, js_getInnerHeight, getInnerHeight, js_getInnerWidth, getInnerWidth, js_getScreenX, getScreenX, js_getScreenY, getScreenY, js_getScreenLeft, getScreenLeft, js_getScreenTop, getScreenTop, js_getScrollX, getScrollX, js_getScrollY, getScrollY, js_getPageXOffset, getPageXOffset, js_getPageYOffset, getPageYOffset, js_getClosed, getClosed, js_getLength, getLength, js_setName, setName, js_getName, getName, js_setStatus, setStatus, js_getStatus, getStatus, js_setDefaultStatus, setDefaultStatus, js_getDefaultStatus, getDefaultStatus, js_setDefaultstatus, setDefaultstatus, js_getDefaultstatus, getDefaultstatus, js_getSelf, getSelf, js_getWindow, getWindow, js_getFrames, getFrames, js_getOpener, getOpener, js_getParent, getParent, js_getTop, getTop, js_getDocument, getDocument, js_getStyleMedia, getStyleMedia, js_getDevicePixelRatio, getDevicePixelRatio, js_getApplicationCache, getApplicationCache, js_getSessionStorage, getSessionStorage, js_getLocalStorage, getLocalStorage, js_getOrientation, getOrientation, js_getPerformance, getPerformance, js_getCSS, getCSS, abort, beforeUnload, blurEvent, canPlay, canPlayThrough, change, click, contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave, dragOver, dragStart, drop, durationChange, emptied, ended, error, focusEvent, hashChange, input, invalid, keyDown, keyPress, keyUp, load, loadedData, loadedMetadata, loadStart, message, mouseDown, mouseEnter, mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel, offline, online, pageHide, pageShow, pause, play, playing, popState, progress, rateChange, resize, scrollEvent, seeked, seeking, select, stalled, storage, submit, suspend, timeUpdate, unload, volumeChange, waiting, wheel, reset, search, webKitAnimationEnd, webKitAnimationIteration, webKitAnimationStart, animationEnd, animationIteration, animationStart, webKitTransitionEnd, transitionEnd, orientationChange, touchStart, touchMove, touchEnd, touchCancel, gestureStart, gestureChange, gestureEnd, deviceMotion, deviceOrientation, webKitDeviceProximity, webKitWillRevealBottom, webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop, Window, castToWindow, gTypeWindow) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"openDatabase\"]($2, $3, $4,\n$5, $6)" js_openDatabase :: JSRef Window -> JSString -> JSString -> JSString -> Word -> JSRef DatabaseCallback -> IO (JSRef 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 ((js_openDatabase (unWindow self) (toJSString name) (toJSString version) (toJSString displayName) estimatedSize (maybe jsNull pToJSRef creationCallback)) >>= fromJSRef) foreign import javascript unsafe "$1[\"getSelection\"]()" js_getSelection :: JSRef Window -> IO (JSRef Selection) -- | getSelection :: (MonadIO m) => Window -> m (Maybe Selection) getSelection self = liftIO ((js_getSelection (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"focus\"]()" js_focus :: JSRef Window -> IO () -- | focus :: (MonadIO m) => Window -> m () focus self = liftIO (js_focus (unWindow self)) foreign import javascript unsafe "$1[\"blur\"]()" js_blur :: JSRef Window -> IO () -- | blur :: (MonadIO m) => Window -> m () blur self = liftIO (js_blur (unWindow self)) foreign import javascript unsafe "$1[\"close\"]()" js_close :: JSRef Window -> IO () -- | close :: (MonadIO m) => Window -> m () close self = liftIO (js_close (unWindow self)) foreign import javascript unsafe "$1[\"print\"]()" js_print :: JSRef Window -> IO () -- | print :: (MonadIO m) => Window -> m () print self = liftIO (js_print (unWindow self)) foreign import javascript unsafe "$1[\"stop\"]()" js_stop :: JSRef Window -> IO () -- | stop :: (MonadIO m) => Window -> m () stop self = liftIO (js_stop (unWindow self)) foreign import javascript unsafe "$1[\"open\"]($2, $3, $4)" js_open :: JSRef Window -> JSString -> JSString -> JSString -> IO (JSRef Window) -- | open :: (MonadIO m, ToJSString url, ToJSString name, ToJSString options) => Window -> url -> name -> options -> m (Maybe Window) open self url name options = liftIO ((js_open (unWindow self) (toJSString url) (toJSString name) (toJSString options)) >>= fromJSRef) foreign import javascript unsafe "$1[\"showModalDialog\"]($2, $3,\n$4)" js_showModalDialog :: JSRef Window -> JSString -> JSRef a -> JSString -> IO (JSRef a) -- | showModalDialog :: (MonadIO m, ToJSString url, ToJSString featureArgs) => Window -> url -> JSRef a -> featureArgs -> m (JSRef a) showModalDialog self url dialogArgs featureArgs = liftIO (js_showModalDialog (unWindow self) (toJSString url) dialogArgs (toJSString featureArgs)) foreign import javascript unsafe "$1[\"alert\"]($2)" js_alert :: JSRef Window -> JSString -> IO () -- | alert :: (MonadIO m, ToJSString message) => Window -> message -> m () alert self message = liftIO (js_alert (unWindow self) (toJSString message)) foreign import javascript unsafe "($1[\"confirm\"]($2) ? 1 : 0)" js_confirm :: JSRef Window -> JSString -> IO Bool -- | confirm :: (MonadIO m, ToJSString message) => Window -> message -> m Bool confirm self message = liftIO (js_confirm (unWindow self) (toJSString message)) foreign import javascript unsafe "$1[\"prompt\"]($2, $3)" js_prompt :: JSRef Window -> JSString -> JSRef (Maybe JSString) -> IO (JSRef (Maybe JSString)) -- | prompt :: (MonadIO m, ToJSString message, ToJSString defaultValue, FromJSString result) => Window -> message -> Maybe defaultValue -> m (Maybe result) prompt self message defaultValue = liftIO (fromMaybeJSString <$> (js_prompt (unWindow self) (toJSString message) (toMaybeJSString defaultValue))) foreign import javascript unsafe "($1[\"find\"]($2, $3, $4, $5, $6,\n$7, $8) ? 1 : 0)" js_find :: JSRef Window -> JSString -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> IO Bool -- | find :: (MonadIO m, ToJSString string) => Window -> string -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> m Bool find self string caseSensitive backwards wrap wholeWord searchInFrames showDialog = liftIO (js_find (unWindow self) (toJSString string) caseSensitive backwards wrap wholeWord searchInFrames showDialog) foreign import javascript unsafe "$1[\"scrollBy\"]($2, $3)" js_scrollBy :: JSRef Window -> Int -> Int -> IO () -- | scrollBy :: (MonadIO m) => Window -> Int -> Int -> m () scrollBy self x y = liftIO (js_scrollBy (unWindow self) x y) foreign import javascript unsafe "$1[\"scrollTo\"]($2, $3)" js_scrollTo :: JSRef Window -> Int -> Int -> IO () -- | scrollTo :: (MonadIO m) => Window -> Int -> Int -> m () scrollTo self x y = liftIO (js_scrollTo (unWindow self) x y) foreign import javascript unsafe "$1[\"scroll\"]($2, $3)" js_scroll :: JSRef Window -> Int -> Int -> IO () -- | scroll :: (MonadIO m) => Window -> Int -> Int -> m () scroll self x y = liftIO (js_scroll (unWindow self) x y) foreign import javascript unsafe "$1[\"moveBy\"]($2, $3)" js_moveBy :: JSRef Window -> Float -> Float -> IO () -- | moveBy :: (MonadIO m) => Window -> Float -> Float -> m () moveBy self x y = liftIO (js_moveBy (unWindow self) x y) foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)" js_moveTo :: JSRef Window -> Float -> Float -> IO () -- | moveTo :: (MonadIO m) => Window -> Float -> Float -> m () moveTo self x y = liftIO (js_moveTo (unWindow self) x y) foreign import javascript unsafe "$1[\"resizeBy\"]($2, $3)" js_resizeBy :: JSRef Window -> Float -> Float -> IO () -- | resizeBy :: (MonadIO m) => Window -> Float -> Float -> m () resizeBy self x y = liftIO (js_resizeBy (unWindow self) x y) foreign import javascript unsafe "$1[\"resizeTo\"]($2, $3)" js_resizeTo :: JSRef Window -> Float -> Float -> IO () -- | resizeTo :: (MonadIO m) => Window -> Float -> Float -> m () resizeTo self width height = liftIO (js_resizeTo (unWindow self) width height) foreign import javascript unsafe "$1[\"matchMedia\"]($2)" js_matchMedia :: JSRef Window -> JSString -> IO (JSRef MediaQueryList) -- | matchMedia :: (MonadIO m, ToJSString query) => Window -> query -> m (Maybe MediaQueryList) matchMedia self query = liftIO ((js_matchMedia (unWindow self) (toJSString query)) >>= fromJSRef) foreign import javascript unsafe "$1[\"getComputedStyle\"]($2, $3)" js_getComputedStyle :: JSRef Window -> JSRef Element -> JSRef (Maybe JSString) -> IO (JSRef CSSStyleDeclaration) -- | getComputedStyle :: (MonadIO m, IsElement element, ToJSString pseudoElement) => Window -> Maybe element -> Maybe pseudoElement -> m (Maybe CSSStyleDeclaration) getComputedStyle self element pseudoElement = liftIO ((js_getComputedStyle (unWindow self) (maybe jsNull (unElement . toElement) element) (toMaybeJSString pseudoElement)) >>= fromJSRef) foreign import javascript unsafe "$1[\"getMatchedCSSRules\"]($2, $3)" js_getMatchedCSSRules :: JSRef Window -> JSRef Element -> JSRef (Maybe JSString) -> IO (JSRef CSSRuleList) -- | getMatchedCSSRules :: (MonadIO m, IsElement element, ToJSString pseudoElement) => Window -> Maybe element -> Maybe pseudoElement -> m (Maybe CSSRuleList) getMatchedCSSRules self element pseudoElement = liftIO ((js_getMatchedCSSRules (unWindow self) (maybe jsNull (unElement . toElement) element) (toMaybeJSString pseudoElement)) >>= fromJSRef) foreign import javascript unsafe "$1[\"webkitConvertPointFromPageToNode\"]($2,\n$3)" js_webkitConvertPointFromPageToNode :: JSRef Window -> JSRef Node -> JSRef WebKitPoint -> IO (JSRef WebKitPoint) -- | webkitConvertPointFromPageToNode :: (MonadIO m, IsNode node) => Window -> Maybe node -> Maybe WebKitPoint -> m (Maybe WebKitPoint) webkitConvertPointFromPageToNode self node p = liftIO ((js_webkitConvertPointFromPageToNode (unWindow self) (maybe jsNull (unNode . toNode) node) (maybe jsNull pToJSRef p)) >>= fromJSRef) foreign import javascript unsafe "$1[\"webkitConvertPointFromNodeToPage\"]($2,\n$3)" js_webkitConvertPointFromNodeToPage :: JSRef Window -> JSRef Node -> JSRef WebKitPoint -> IO (JSRef WebKitPoint) -- | webkitConvertPointFromNodeToPage :: (MonadIO m, IsNode node) => Window -> Maybe node -> Maybe WebKitPoint -> m (Maybe WebKitPoint) webkitConvertPointFromNodeToPage self node p = liftIO ((js_webkitConvertPointFromNodeToPage (unWindow self) (maybe jsNull (unNode . toNode) node) (maybe jsNull pToJSRef p)) >>= fromJSRef) foreign import javascript unsafe "$1[\"postMessage\"]($2, $3, $4)" js_postMessage :: JSRef Window -> JSRef SerializedScriptValue -> JSString -> JSRef Array -> IO () -- | postMessage :: (MonadIO m, IsSerializedScriptValue message, ToJSString targetOrigin, IsArray messagePorts) => Window -> Maybe message -> targetOrigin -> Maybe messagePorts -> m () postMessage self message targetOrigin messagePorts = liftIO (js_postMessage (unWindow self) (maybe jsNull (unSerializedScriptValue . toSerializedScriptValue) message) (toJSString targetOrigin) (maybe jsNull (unArray . toArray) messagePorts)) foreign import javascript unsafe "$1[\"requestAnimationFrame\"]($2)" js_requestAnimationFrame :: JSRef Window -> JSRef RequestAnimationFrameCallback -> IO Int -- | requestAnimationFrame :: (MonadIO m) => Window -> Maybe RequestAnimationFrameCallback -> m Int requestAnimationFrame self callback = liftIO (js_requestAnimationFrame (unWindow self) (maybe jsNull pToJSRef callback)) foreign import javascript unsafe "$1[\"cancelAnimationFrame\"]($2)" js_cancelAnimationFrame :: JSRef Window -> Int -> IO () -- | cancelAnimationFrame :: (MonadIO m) => Window -> Int -> m () cancelAnimationFrame self id = liftIO (js_cancelAnimationFrame (unWindow self) id) foreign import javascript unsafe "$1[\"webkitRequestAnimationFrame\"]($2)" js_webkitRequestAnimationFrame :: JSRef Window -> JSRef RequestAnimationFrameCallback -> IO Int -- | webkitRequestAnimationFrame :: (MonadIO m) => Window -> Maybe RequestAnimationFrameCallback -> m Int webkitRequestAnimationFrame self callback = liftIO (js_webkitRequestAnimationFrame (unWindow self) (maybe jsNull pToJSRef callback)) foreign import javascript unsafe "$1[\"webkitCancelAnimationFrame\"]($2)" js_webkitCancelAnimationFrame :: JSRef Window -> Int -> IO () -- | webkitCancelAnimationFrame :: (MonadIO m) => Window -> Int -> m () webkitCancelAnimationFrame self id = liftIO (js_webkitCancelAnimationFrame (unWindow self) id) foreign import javascript unsafe "$1[\"webkitCancelRequestAnimationFrame\"]($2)" js_webkitCancelRequestAnimationFrame :: JSRef Window -> Int -> IO () -- | webkitCancelRequestAnimationFrame :: (MonadIO m) => Window -> Int -> m () webkitCancelRequestAnimationFrame self id = liftIO (js_webkitCancelRequestAnimationFrame (unWindow self) id) foreign import javascript unsafe "$1[\"captureEvents\"]()" js_captureEvents :: JSRef Window -> IO () -- | captureEvents :: (MonadIO m) => Window -> m () captureEvents self = liftIO (js_captureEvents (unWindow self)) foreign import javascript unsafe "$1[\"releaseEvents\"]()" js_releaseEvents :: JSRef Window -> IO () -- | releaseEvents :: (MonadIO m) => Window -> m () releaseEvents self = liftIO (js_releaseEvents (unWindow self)) foreign import javascript unsafe "$1[\"webkitIndexedDB\"]" js_getWebkitIndexedDB :: JSRef Window -> IO (JSRef IDBFactory) -- | getWebkitIndexedDB :: (MonadIO m) => Window -> m (Maybe IDBFactory) getWebkitIndexedDB self = liftIO ((js_getWebkitIndexedDB (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"indexedDB\"]" js_getIndexedDB :: JSRef Window -> IO (JSRef IDBFactory) -- | getIndexedDB :: (MonadIO m) => Window -> m (Maybe IDBFactory) getIndexedDB self = liftIO ((js_getIndexedDB (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"webkitStorageInfo\"]" js_getWebkitStorageInfo :: JSRef Window -> IO (JSRef StorageInfo) -- | getWebkitStorageInfo :: (MonadIO m) => Window -> m (Maybe StorageInfo) getWebkitStorageInfo self = liftIO ((js_getWebkitStorageInfo (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"speechSynthesis\"]" js_getSpeechSynthesis :: JSRef Window -> IO (JSRef SpeechSynthesis) -- | getSpeechSynthesis :: (MonadIO m) => Window -> m (Maybe SpeechSynthesis) getSpeechSynthesis self = liftIO ((js_getSpeechSynthesis (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"screen\"]" js_getScreen :: JSRef Window -> IO (JSRef Screen) -- | getScreen :: (MonadIO m) => Window -> m (Maybe Screen) getScreen self = liftIO ((js_getScreen (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"history\"]" js_getHistory :: JSRef Window -> IO (JSRef History) -- | getHistory :: (MonadIO m) => Window -> m (Maybe History) getHistory self = liftIO ((js_getHistory (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"locationbar\"]" js_getLocationbar :: JSRef Window -> IO (JSRef BarProp) -- | getLocationbar :: (MonadIO m) => Window -> m (Maybe BarProp) getLocationbar self = liftIO ((js_getLocationbar (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"menubar\"]" js_getMenubar :: JSRef Window -> IO (JSRef BarProp) -- | getMenubar :: (MonadIO m) => Window -> m (Maybe BarProp) getMenubar self = liftIO ((js_getMenubar (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"personalbar\"]" js_getPersonalbar :: JSRef Window -> IO (JSRef BarProp) -- | getPersonalbar :: (MonadIO m) => Window -> m (Maybe BarProp) getPersonalbar self = liftIO ((js_getPersonalbar (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"scrollbars\"]" js_getScrollbars :: JSRef Window -> IO (JSRef BarProp) -- | getScrollbars :: (MonadIO m) => Window -> m (Maybe BarProp) getScrollbars self = liftIO ((js_getScrollbars (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"statusbar\"]" js_getStatusbar :: JSRef Window -> IO (JSRef BarProp) -- | getStatusbar :: (MonadIO m) => Window -> m (Maybe BarProp) getStatusbar self = liftIO ((js_getStatusbar (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"toolbar\"]" js_getToolbar :: JSRef Window -> IO (JSRef BarProp) -- | getToolbar :: (MonadIO m) => Window -> m (Maybe BarProp) getToolbar self = liftIO ((js_getToolbar (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"navigator\"]" js_getNavigator :: JSRef Window -> IO (JSRef Navigator) -- | getNavigator :: (MonadIO m) => Window -> m (Maybe Navigator) getNavigator self = liftIO ((js_getNavigator (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"clientInformation\"]" js_getClientInformation :: JSRef Window -> IO (JSRef Navigator) -- | getClientInformation :: (MonadIO m) => Window -> m (Maybe Navigator) getClientInformation self = liftIO ((js_getClientInformation (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"crypto\"]" js_getCrypto :: JSRef Window -> IO (JSRef Crypto) -- | getCrypto :: (MonadIO m) => Window -> m (Maybe Crypto) getCrypto self = liftIO ((js_getCrypto (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"location\"] = $2;" js_setLocation :: JSRef Window -> JSRef Location -> IO () -- | setLocation :: (MonadIO m) => Window -> Maybe Location -> m () setLocation self val = liftIO (js_setLocation (unWindow self) (maybe jsNull pToJSRef val)) foreign import javascript unsafe "$1[\"location\"]" js_getLocation :: JSRef Window -> IO (JSRef Location) -- | getLocation :: (MonadIO m) => Window -> m (Maybe Location) getLocation self = liftIO ((js_getLocation (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"event\"]" js_getEvent :: JSRef Window -> IO (JSRef Event) -- | getEvent :: (MonadIO m) => Window -> m (Maybe Event) getEvent self = liftIO ((js_getEvent (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"frameElement\"]" js_getFrameElement :: JSRef Window -> IO (JSRef Element) -- | getFrameElement :: (MonadIO m) => Window -> m (Maybe Element) getFrameElement self = liftIO ((js_getFrameElement (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "($1[\"offscreenBuffering\"] ? 1 : 0)" js_getOffscreenBuffering :: JSRef Window -> IO Bool -- | getOffscreenBuffering :: (MonadIO m) => Window -> m Bool getOffscreenBuffering self = liftIO (js_getOffscreenBuffering (unWindow self)) foreign import javascript unsafe "$1[\"outerHeight\"]" js_getOuterHeight :: JSRef Window -> IO Int -- | getOuterHeight :: (MonadIO m) => Window -> m Int getOuterHeight self = liftIO (js_getOuterHeight (unWindow self)) foreign import javascript unsafe "$1[\"outerWidth\"]" js_getOuterWidth :: JSRef Window -> IO Int -- | getOuterWidth :: (MonadIO m) => Window -> m Int getOuterWidth self = liftIO (js_getOuterWidth (unWindow self)) foreign import javascript unsafe "$1[\"innerHeight\"]" js_getInnerHeight :: JSRef Window -> IO Int -- | getInnerHeight :: (MonadIO m) => Window -> m Int getInnerHeight self = liftIO (js_getInnerHeight (unWindow self)) foreign import javascript unsafe "$1[\"innerWidth\"]" js_getInnerWidth :: JSRef Window -> IO Int -- | getInnerWidth :: (MonadIO m) => Window -> m Int getInnerWidth self = liftIO (js_getInnerWidth (unWindow self)) foreign import javascript unsafe "$1[\"screenX\"]" js_getScreenX :: JSRef Window -> IO Int -- | getScreenX :: (MonadIO m) => Window -> m Int getScreenX self = liftIO (js_getScreenX (unWindow self)) foreign import javascript unsafe "$1[\"screenY\"]" js_getScreenY :: JSRef Window -> IO Int -- | getScreenY :: (MonadIO m) => Window -> m Int getScreenY self = liftIO (js_getScreenY (unWindow self)) foreign import javascript unsafe "$1[\"screenLeft\"]" js_getScreenLeft :: JSRef Window -> IO Int -- | getScreenLeft :: (MonadIO m) => Window -> m Int getScreenLeft self = liftIO (js_getScreenLeft (unWindow self)) foreign import javascript unsafe "$1[\"screenTop\"]" js_getScreenTop :: JSRef Window -> IO Int -- | getScreenTop :: (MonadIO m) => Window -> m Int getScreenTop self = liftIO (js_getScreenTop (unWindow self)) foreign import javascript unsafe "$1[\"scrollX\"]" js_getScrollX :: JSRef Window -> IO Int -- | getScrollX :: (MonadIO m) => Window -> m Int getScrollX self = liftIO (js_getScrollX (unWindow self)) foreign import javascript unsafe "$1[\"scrollY\"]" js_getScrollY :: JSRef Window -> IO Int -- | getScrollY :: (MonadIO m) => Window -> m Int getScrollY self = liftIO (js_getScrollY (unWindow self)) foreign import javascript unsafe "$1[\"pageXOffset\"]" js_getPageXOffset :: JSRef Window -> IO Int -- | getPageXOffset :: (MonadIO m) => Window -> m Int getPageXOffset self = liftIO (js_getPageXOffset (unWindow self)) foreign import javascript unsafe "$1[\"pageYOffset\"]" js_getPageYOffset :: JSRef Window -> IO Int -- | getPageYOffset :: (MonadIO m) => Window -> m Int getPageYOffset self = liftIO (js_getPageYOffset (unWindow self)) foreign import javascript unsafe "($1[\"closed\"] ? 1 : 0)" js_getClosed :: JSRef Window -> IO Bool -- | getClosed :: (MonadIO m) => Window -> m Bool getClosed self = liftIO (js_getClosed (unWindow self)) foreign import javascript unsafe "$1[\"length\"]" js_getLength :: JSRef Window -> IO Word -- | getLength :: (MonadIO m) => Window -> m Word getLength self = liftIO (js_getLength (unWindow self)) foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: JSRef Window -> JSString -> IO () -- | setName :: (MonadIO m, ToJSString val) => Window -> val -> m () setName self val = liftIO (js_setName (unWindow self) (toJSString val)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: JSRef Window -> IO JSString -- | getName :: (MonadIO m, FromJSString result) => Window -> m result getName self = liftIO (fromJSString <$> (js_getName (unWindow self))) foreign import javascript unsafe "$1[\"status\"] = $2;" js_setStatus :: JSRef Window -> JSString -> IO () -- | setStatus :: (MonadIO m, ToJSString val) => Window -> val -> m () setStatus self val = liftIO (js_setStatus (unWindow self) (toJSString val)) foreign import javascript unsafe "$1[\"status\"]" js_getStatus :: JSRef Window -> IO JSString -- | getStatus :: (MonadIO m, FromJSString result) => Window -> m result getStatus self = liftIO (fromJSString <$> (js_getStatus (unWindow self))) foreign import javascript unsafe "$1[\"defaultStatus\"] = $2;" js_setDefaultStatus :: JSRef Window -> JSString -> IO () -- | setDefaultStatus :: (MonadIO m, ToJSString val) => Window -> val -> m () setDefaultStatus self val = liftIO (js_setDefaultStatus (unWindow self) (toJSString val)) foreign import javascript unsafe "$1[\"defaultStatus\"]" js_getDefaultStatus :: JSRef Window -> IO JSString -- | getDefaultStatus :: (MonadIO m, FromJSString result) => Window -> m result getDefaultStatus self = liftIO (fromJSString <$> (js_getDefaultStatus (unWindow self))) foreign import javascript unsafe "$1[\"defaultstatus\"] = $2;" js_setDefaultstatus :: JSRef Window -> JSString -> IO () -- | setDefaultstatus :: (MonadIO m, ToJSString val) => Window -> val -> m () setDefaultstatus self val = liftIO (js_setDefaultstatus (unWindow self) (toJSString val)) foreign import javascript unsafe "$1[\"defaultstatus\"]" js_getDefaultstatus :: JSRef Window -> IO JSString -- | getDefaultstatus :: (MonadIO m, FromJSString result) => Window -> m result getDefaultstatus self = liftIO (fromJSString <$> (js_getDefaultstatus (unWindow self))) foreign import javascript unsafe "$1[\"self\"]" js_getSelf :: JSRef Window -> IO (JSRef Window) -- | getSelf :: (MonadIO m) => Window -> m (Maybe Window) getSelf self = liftIO ((js_getSelf (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"window\"]" js_getWindow :: JSRef Window -> IO (JSRef Window) -- | getWindow :: (MonadIO m) => Window -> m (Maybe Window) getWindow self = liftIO ((js_getWindow (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"frames\"]" js_getFrames :: JSRef Window -> IO (JSRef Window) -- | getFrames :: (MonadIO m) => Window -> m (Maybe Window) getFrames self = liftIO ((js_getFrames (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"opener\"]" js_getOpener :: JSRef Window -> IO (JSRef Window) -- | getOpener :: (MonadIO m) => Window -> m (Maybe Window) getOpener self = liftIO ((js_getOpener (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"parent\"]" js_getParent :: JSRef Window -> IO (JSRef Window) -- | getParent :: (MonadIO m) => Window -> m (Maybe Window) getParent self = liftIO ((js_getParent (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"top\"]" js_getTop :: JSRef Window -> IO (JSRef Window) -- | getTop :: (MonadIO m) => Window -> m (Maybe Window) getTop self = liftIO ((js_getTop (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"document\"]" js_getDocument :: JSRef Window -> IO (JSRef Document) -- | getDocument :: (MonadIO m) => Window -> m (Maybe Document) getDocument self = liftIO ((js_getDocument (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"styleMedia\"]" js_getStyleMedia :: JSRef Window -> IO (JSRef StyleMedia) -- | getStyleMedia :: (MonadIO m) => Window -> m (Maybe StyleMedia) getStyleMedia self = liftIO ((js_getStyleMedia (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"devicePixelRatio\"]" js_getDevicePixelRatio :: JSRef Window -> IO Double -- | getDevicePixelRatio :: (MonadIO m) => Window -> m Double getDevicePixelRatio self = liftIO (js_getDevicePixelRatio (unWindow self)) foreign import javascript unsafe "$1[\"applicationCache\"]" js_getApplicationCache :: JSRef Window -> IO (JSRef ApplicationCache) -- | getApplicationCache :: (MonadIO m) => Window -> m (Maybe ApplicationCache) getApplicationCache self = liftIO ((js_getApplicationCache (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"sessionStorage\"]" js_getSessionStorage :: JSRef Window -> IO (JSRef Storage) -- | getSessionStorage :: (MonadIO m) => Window -> m (Maybe Storage) getSessionStorage self = liftIO ((js_getSessionStorage (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"localStorage\"]" js_getLocalStorage :: JSRef Window -> IO (JSRef Storage) -- | getLocalStorage :: (MonadIO m) => Window -> m (Maybe Storage) getLocalStorage self = liftIO ((js_getLocalStorage (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"orientation\"]" js_getOrientation :: JSRef Window -> IO Int -- | getOrientation :: (MonadIO m) => Window -> m Int getOrientation self = liftIO (js_getOrientation (unWindow self)) foreign import javascript unsafe "$1[\"performance\"]" js_getPerformance :: JSRef Window -> IO (JSRef Performance) -- | getPerformance :: (MonadIO m) => Window -> m (Maybe Performance) getPerformance self = liftIO ((js_getPerformance (unWindow self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"CSS\"]" js_getCSS :: JSRef Window -> IO (JSRef CSS) -- | getCSS :: (MonadIO m) => Window -> m (Maybe CSS) getCSS self = liftIO ((js_getCSS (unWindow self)) >>= fromJSRef) -- | abort :: EventName Window UIEvent abort = unsafeEventName (toJSString "abort") -- | beforeUnload :: EventName Window BeforeUnloadEvent beforeUnload = unsafeEventName (toJSString "beforeunload") -- | blurEvent :: EventName Window FocusEvent blurEvent = unsafeEventName (toJSString "blur") -- | canPlay :: EventName Window Event canPlay = unsafeEventName (toJSString "canplay") -- | canPlayThrough :: EventName Window Event canPlayThrough = unsafeEventName (toJSString "canplaythrough") -- | change :: EventName Window Event change = unsafeEventName (toJSString "change") -- | click :: EventName Window MouseEvent click = unsafeEventName (toJSString "click") -- | contextMenu :: EventName Window MouseEvent contextMenu = unsafeEventName (toJSString "contextmenu") -- | dblClick :: EventName Window MouseEvent dblClick = unsafeEventName (toJSString "dblclick") -- | drag :: EventName Window MouseEvent drag = unsafeEventName (toJSString "drag") -- | dragEnd :: EventName Window MouseEvent dragEnd = unsafeEventName (toJSString "dragend") -- | dragEnter :: EventName Window MouseEvent dragEnter = unsafeEventName (toJSString "dragenter") -- | dragLeave :: EventName Window MouseEvent dragLeave = unsafeEventName (toJSString "dragleave") -- | dragOver :: EventName Window MouseEvent dragOver = unsafeEventName (toJSString "dragover") -- | dragStart :: EventName Window MouseEvent dragStart = unsafeEventName (toJSString "dragstart") -- | drop :: EventName Window MouseEvent drop = unsafeEventName (toJSString "drop") -- | durationChange :: EventName Window Event durationChange = unsafeEventName (toJSString "durationchange") -- | emptied :: EventName Window Event emptied = unsafeEventName (toJSString "emptied") -- | ended :: EventName Window Event ended = unsafeEventName (toJSString "ended") -- | error :: EventName Window UIEvent error = unsafeEventName (toJSString "error") -- | focusEvent :: EventName Window FocusEvent focusEvent = unsafeEventName (toJSString "focus") -- | hashChange :: EventName Window HashChangeEvent hashChange = unsafeEventName (toJSString "hashchange") -- | input :: EventName Window Event input = unsafeEventName (toJSString "input") -- | invalid :: EventName Window Event invalid = unsafeEventName (toJSString "invalid") -- | keyDown :: EventName Window KeyboardEvent keyDown = unsafeEventName (toJSString "keydown") -- | keyPress :: EventName Window KeyboardEvent keyPress = unsafeEventName (toJSString "keypress") -- | keyUp :: EventName Window KeyboardEvent keyUp = unsafeEventName (toJSString "keyup") -- | load :: EventName Window UIEvent load = unsafeEventName (toJSString "load") -- | loadedData :: EventName Window Event loadedData = unsafeEventName (toJSString "loadeddata") -- | loadedMetadata :: EventName Window Event loadedMetadata = unsafeEventName (toJSString "loadedmetadata") -- | loadStart :: EventName Window ProgressEvent loadStart = unsafeEventName (toJSString "loadstart") -- | message :: EventName Window MessageEvent message = unsafeEventName (toJSString "message") -- | mouseDown :: EventName Window MouseEvent mouseDown = unsafeEventName (toJSString "mousedown") -- | mouseEnter :: EventName Window MouseEvent mouseEnter = unsafeEventName (toJSString "mouseenter") -- | mouseLeave :: EventName Window MouseEvent mouseLeave = unsafeEventName (toJSString "mouseleave") -- | mouseMove :: EventName Window MouseEvent mouseMove = unsafeEventName (toJSString "mousemove") -- | mouseOut :: EventName Window MouseEvent mouseOut = unsafeEventName (toJSString "mouseout") -- | mouseOver :: EventName Window MouseEvent mouseOver = unsafeEventName (toJSString "mouseover") -- | mouseUp :: EventName Window MouseEvent mouseUp = unsafeEventName (toJSString "mouseup") -- | mouseWheel :: EventName Window MouseEvent mouseWheel = unsafeEventName (toJSString "mousewheel") -- | offline :: EventName Window Event offline = unsafeEventName (toJSString "offline") -- | online :: EventName Window Event online = unsafeEventName (toJSString "online") -- | pageHide :: EventName Window PageTransitionEvent pageHide = unsafeEventName (toJSString "pagehide") -- | pageShow :: EventName Window PageTransitionEvent pageShow = unsafeEventName (toJSString "pageshow") -- | pause :: EventName Window Event pause = unsafeEventName (toJSString "pause") -- | play :: EventName Window Event play = unsafeEventName (toJSString "play") -- | playing :: EventName Window Event playing = unsafeEventName (toJSString "playing") -- | popState :: EventName Window PopStateEvent popState = unsafeEventName (toJSString "popstate") -- | progress :: EventName Window ProgressEvent progress = unsafeEventName (toJSString "progress") -- | rateChange :: EventName Window Event rateChange = unsafeEventName (toJSString "ratechange") -- | resize :: EventName Window UIEvent resize = unsafeEventName (toJSString "resize") -- | scrollEvent :: EventName Window UIEvent scrollEvent = unsafeEventName (toJSString "scroll") -- | seeked :: EventName Window Event seeked = unsafeEventName (toJSString "seeked") -- | seeking :: EventName Window Event seeking = unsafeEventName (toJSString "seeking") -- | select :: EventName Window UIEvent select = unsafeEventName (toJSString "select") -- | stalled :: EventName Window Event stalled = unsafeEventName (toJSString "stalled") -- | storage :: EventName Window StorageEvent storage = unsafeEventName (toJSString "storage") -- | submit :: EventName Window Event submit = unsafeEventName (toJSString "submit") -- | suspend :: EventName Window Event suspend = unsafeEventName (toJSString "suspend") -- | timeUpdate :: EventName Window Event timeUpdate = unsafeEventName (toJSString "timeupdate") -- | unload :: EventName Window UIEvent unload = unsafeEventName (toJSString "unload") -- | volumeChange :: EventName Window Event volumeChange = unsafeEventName (toJSString "volumechange") -- | waiting :: EventName Window Event waiting = unsafeEventName (toJSString "waiting") -- | wheel :: EventName Window WheelEvent wheel = unsafeEventName (toJSString "wheel") -- | reset :: EventName Window Event reset = unsafeEventName (toJSString "reset") -- | search :: EventName Window Event search = unsafeEventName (toJSString "search") -- | webKitAnimationEnd :: EventName Window AnimationEvent webKitAnimationEnd = unsafeEventName (toJSString "webkitanimationend") -- | webKitAnimationIteration :: EventName Window AnimationEvent webKitAnimationIteration = unsafeEventName (toJSString "webkitanimationiteration") -- | webKitAnimationStart :: EventName Window AnimationEvent webKitAnimationStart = unsafeEventName (toJSString "webkitanimationstart") -- | animationEnd :: EventName Window AnimationEvent animationEnd = unsafeEventName (toJSString "animationend") -- | animationIteration :: EventName Window AnimationEvent animationIteration = unsafeEventName (toJSString "animationiteration") -- | animationStart :: EventName Window AnimationEvent animationStart = unsafeEventName (toJSString "animationstart") -- | webKitTransitionEnd :: EventName Window TransitionEvent webKitTransitionEnd = unsafeEventName (toJSString "webkittransitionend") -- | transitionEnd :: EventName Window TransitionEvent transitionEnd = unsafeEventName (toJSString "transitionend") -- | orientationChange :: EventName Window Event orientationChange = unsafeEventName (toJSString "orientationchange") -- | touchStart :: EventName Window TouchEvent touchStart = unsafeEventName (toJSString "touchstart") -- | touchMove :: EventName Window TouchEvent touchMove = unsafeEventName (toJSString "touchmove") -- | touchEnd :: EventName Window TouchEvent touchEnd = unsafeEventName (toJSString "touchend") -- | touchCancel :: EventName Window TouchEvent touchCancel = unsafeEventName (toJSString "touchcancel") -- | gestureStart :: EventName Window UIEvent gestureStart = unsafeEventName (toJSString "gesturestart") -- | gestureChange :: EventName Window UIEvent gestureChange = unsafeEventName (toJSString "gesturechange") -- | gestureEnd :: EventName Window UIEvent gestureEnd = unsafeEventName (toJSString "gestureend") -- | deviceMotion :: EventName Window DeviceMotionEvent deviceMotion = unsafeEventName (toJSString "devicemotion") -- | deviceOrientation :: EventName Window DeviceOrientationEvent deviceOrientation = unsafeEventName (toJSString "deviceorientation") -- | webKitDeviceProximity :: EventName Window DeviceProximityEvent webKitDeviceProximity = unsafeEventName (toJSString "webkitdeviceproximity") -- | webKitWillRevealBottom :: EventName Window Event webKitWillRevealBottom = unsafeEventName (toJSString "webkitwillrevealbottom") -- | webKitWillRevealLeft :: EventName Window Event webKitWillRevealLeft = unsafeEventName (toJSString "webkitwillrevealleft") -- | webKitWillRevealRight :: EventName Window Event webKitWillRevealRight = unsafeEventName (toJSString "webkitwillrevealright") -- | webKitWillRevealTop :: EventName Window Event webKitWillRevealTop = unsafeEventName (toJSString "webkitwillrevealtop")