{-# 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 (JSVal(..), JSString) import GHCJS.Foreign (jsNull) 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.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 :: Window -> JSString -> JSString -> JSString -> Word -> Nullable 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 (maybeToNullable creationCallback))) 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))) 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[\"close\"]()" js_close :: Window -> IO () -- | close :: (MonadIO m) => Window -> m () close self = liftIO (js_close (self)) 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[\"stop\"]()" js_stop :: Window -> IO () -- | stop :: (MonadIO m) => Window -> m () stop self = liftIO (js_stop (self)) foreign import javascript unsafe "$1[\"open\"]($2, $3, $4)" js_open :: Window -> JSString -> JSString -> JSString -> IO (Nullable Window) -- | open :: (MonadIO m, ToJSString url, ToJSString name, ToJSString options) => Window -> url -> name -> options -> m (Maybe Window) open self url name options = liftIO (nullableToMaybe <$> (js_open (self) (toJSString url) (toJSString name) (toJSString options))) foreign import javascript unsafe "$1[\"showModalDialog\"]($2, $3,\n$4)" js_showModalDialog :: Window -> JSString -> JSVal -> JSString -> IO JSVal -- | showModalDialog :: (MonadIO m, ToJSString url, ToJSString featureArgs) => Window -> url -> JSVal -> featureArgs -> m JSVal showModalDialog self url dialogArgs featureArgs = liftIO (js_showModalDialog (self) (toJSString url) dialogArgs (toJSString featureArgs)) 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 -> JSString -> IO Bool -- | confirm :: (MonadIO m, ToJSString message) => Window -> message -> m Bool confirm self message = liftIO (js_confirm (self) (toJSString message)) foreign import javascript unsafe "$1[\"prompt\"]($2, $3)" js_prompt :: Window -> JSString -> Nullable JSString -> IO (Nullable 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 (self) (toJSString message) (toMaybeJSString defaultValue))) foreign import javascript unsafe "($1[\"find\"]($2, $3, $4, $5, $6,\n$7, $8) ? 1 : 0)" js_find :: 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 (self) (toJSString string) caseSensitive backwards wrap wholeWord searchInFrames showDialog) foreign import javascript unsafe "$1[\"scrollBy\"]($2, $3)" js_scrollBy :: Window -> Int -> Int -> IO () -- | scrollBy :: (MonadIO m) => Window -> Int -> Int -> m () scrollBy self x y = liftIO (js_scrollBy (self) x y) foreign import javascript unsafe "$1[\"scrollTo\"]($2, $3)" js_scrollTo :: Window -> Int -> Int -> IO () -- | scrollTo :: (MonadIO m) => Window -> Int -> Int -> m () scrollTo self x y = liftIO (js_scrollTo (self) x y) foreign import javascript unsafe "$1[\"scroll\"]($2, $3)" js_scroll :: Window -> Int -> Int -> IO () -- | scroll :: (MonadIO m) => Window -> Int -> Int -> m () scroll self x y = liftIO (js_scroll (self) x y) foreign import javascript unsafe "$1[\"moveBy\"]($2, $3)" js_moveBy :: Window -> Float -> Float -> IO () -- | moveBy :: (MonadIO m) => Window -> Float -> Float -> m () moveBy self x y = liftIO (js_moveBy (self) x y) foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)" js_moveTo :: Window -> Float -> Float -> IO () -- | moveTo :: (MonadIO m) => Window -> Float -> Float -> m () moveTo self x y = liftIO (js_moveTo (self) x y) foreign import javascript unsafe "$1[\"resizeBy\"]($2, $3)" js_resizeBy :: Window -> Float -> Float -> IO () -- | resizeBy :: (MonadIO m) => Window -> Float -> Float -> m () resizeBy self x y = liftIO (js_resizeBy (self) x y) foreign import javascript unsafe "$1[\"resizeTo\"]($2, $3)" js_resizeTo :: Window -> Float -> Float -> IO () -- | resizeTo :: (MonadIO m) => Window -> Float -> Float -> m () resizeTo self width height = liftIO (js_resizeTo (self) width height) foreign import javascript unsafe "$1[\"matchMedia\"]($2)" js_matchMedia :: Window -> JSString -> IO (Nullable MediaQueryList) -- | matchMedia :: (MonadIO m, ToJSString query) => Window -> query -> m (Maybe MediaQueryList) matchMedia self query = liftIO (nullableToMaybe <$> (js_matchMedia (self) (toJSString query))) foreign import javascript unsafe "$1[\"getComputedStyle\"]($2, $3)" js_getComputedStyle :: Window -> Nullable Element -> Nullable JSString -> IO (Nullable CSSStyleDeclaration) -- | getComputedStyle :: (MonadIO m, IsElement element, ToJSString pseudoElement) => Window -> Maybe element -> Maybe pseudoElement -> m (Maybe CSSStyleDeclaration) getComputedStyle self element pseudoElement = liftIO (nullableToMaybe <$> (js_getComputedStyle (self) (maybeToNullable (fmap toElement element)) (toMaybeJSString pseudoElement))) foreign import javascript unsafe "$1[\"getMatchedCSSRules\"]($2, $3)" js_getMatchedCSSRules :: Window -> Nullable Element -> Nullable JSString -> IO (Nullable CSSRuleList) -- | getMatchedCSSRules :: (MonadIO m, IsElement element, ToJSString pseudoElement) => Window -> Maybe element -> Maybe pseudoElement -> m (Maybe CSSRuleList) getMatchedCSSRules self element pseudoElement = liftIO (nullableToMaybe <$> (js_getMatchedCSSRules (self) (maybeToNullable (fmap toElement element)) (toMaybeJSString pseudoElement))) foreign import javascript unsafe "$1[\"webkitConvertPointFromPageToNode\"]($2,\n$3)" js_webkitConvertPointFromPageToNode :: Window -> Nullable Node -> Nullable WebKitPoint -> IO (Nullable WebKitPoint) -- | webkitConvertPointFromPageToNode :: (MonadIO m, IsNode node) => Window -> Maybe node -> Maybe WebKitPoint -> m (Maybe WebKitPoint) webkitConvertPointFromPageToNode self node p = liftIO (nullableToMaybe <$> (js_webkitConvertPointFromPageToNode (self) (maybeToNullable (fmap toNode node)) (maybeToNullable p))) foreign import javascript unsafe "$1[\"webkitConvertPointFromNodeToPage\"]($2,\n$3)" js_webkitConvertPointFromNodeToPage :: Window -> Nullable Node -> Nullable WebKitPoint -> IO (Nullable WebKitPoint) -- | webkitConvertPointFromNodeToPage :: (MonadIO m, IsNode node) => Window -> Maybe node -> Maybe WebKitPoint -> m (Maybe WebKitPoint) webkitConvertPointFromNodeToPage self node p = liftIO (nullableToMaybe <$> (js_webkitConvertPointFromNodeToPage (self) (maybeToNullable (fmap toNode node)) (maybeToNullable p))) foreign import javascript unsafe "$1[\"postMessage\"]($2, $3, $4)" js_postMessage :: Window -> Nullable SerializedScriptValue -> JSString -> Nullable 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 (self) (maybeToNullable (fmap toSerializedScriptValue message)) (toJSString targetOrigin) (maybeToNullable (fmap toArray messagePorts))) foreign import javascript unsafe "$1[\"requestAnimationFrame\"]($2)" js_requestAnimationFrame :: Window -> Nullable RequestAnimationFrameCallback -> IO Int -- | requestAnimationFrame :: (MonadIO m) => Window -> Maybe RequestAnimationFrameCallback -> m Int requestAnimationFrame self callback = liftIO (js_requestAnimationFrame (self) (maybeToNullable callback)) foreign import javascript unsafe "$1[\"cancelAnimationFrame\"]($2)" js_cancelAnimationFrame :: Window -> Int -> IO () -- | cancelAnimationFrame :: (MonadIO m) => Window -> Int -> m () cancelAnimationFrame self id = liftIO (js_cancelAnimationFrame (self) id) foreign import javascript unsafe "$1[\"webkitRequestAnimationFrame\"]($2)" js_webkitRequestAnimationFrame :: Window -> Nullable RequestAnimationFrameCallback -> IO Int -- | webkitRequestAnimationFrame :: (MonadIO m) => Window -> Maybe RequestAnimationFrameCallback -> m Int webkitRequestAnimationFrame self callback = liftIO (js_webkitRequestAnimationFrame (self) (maybeToNullable 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[\"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[\"webkitIndexedDB\"]" js_getWebkitIndexedDB :: Window -> IO (Nullable IDBFactory) -- | getWebkitIndexedDB :: (MonadIO m) => Window -> m (Maybe IDBFactory) getWebkitIndexedDB self = liftIO (nullableToMaybe <$> (js_getWebkitIndexedDB (self))) foreign import javascript unsafe "$1[\"indexedDB\"]" js_getIndexedDB :: Window -> IO (Nullable IDBFactory) -- | getIndexedDB :: (MonadIO m) => Window -> m (Maybe IDBFactory) getIndexedDB self = liftIO (nullableToMaybe <$> (js_getIndexedDB (self))) foreign import javascript unsafe "$1[\"webkitStorageInfo\"]" js_getWebkitStorageInfo :: Window -> IO (Nullable StorageInfo) -- | getWebkitStorageInfo :: (MonadIO m) => Window -> m (Maybe StorageInfo) getWebkitStorageInfo self = liftIO (nullableToMaybe <$> (js_getWebkitStorageInfo (self))) foreign import javascript unsafe "$1[\"speechSynthesis\"]" js_getSpeechSynthesis :: Window -> IO (Nullable SpeechSynthesis) -- | getSpeechSynthesis :: (MonadIO m) => Window -> m (Maybe SpeechSynthesis) getSpeechSynthesis self = liftIO (nullableToMaybe <$> (js_getSpeechSynthesis (self))) foreign import javascript unsafe "$1[\"screen\"]" js_getScreen :: Window -> IO (Nullable Screen) -- | getScreen :: (MonadIO m) => Window -> m (Maybe Screen) getScreen self = liftIO (nullableToMaybe <$> (js_getScreen (self))) foreign import javascript unsafe "$1[\"history\"]" js_getHistory :: Window -> IO (Nullable History) -- | getHistory :: (MonadIO m) => Window -> m (Maybe History) getHistory self = liftIO (nullableToMaybe <$> (js_getHistory (self))) foreign import javascript unsafe "$1[\"locationbar\"]" js_getLocationbar :: Window -> IO (Nullable BarProp) -- | getLocationbar :: (MonadIO m) => Window -> m (Maybe BarProp) getLocationbar self = liftIO (nullableToMaybe <$> (js_getLocationbar (self))) foreign import javascript unsafe "$1[\"menubar\"]" js_getMenubar :: Window -> IO (Nullable BarProp) -- | getMenubar :: (MonadIO m) => Window -> m (Maybe BarProp) getMenubar self = liftIO (nullableToMaybe <$> (js_getMenubar (self))) foreign import javascript unsafe "$1[\"personalbar\"]" js_getPersonalbar :: Window -> IO (Nullable BarProp) -- | getPersonalbar :: (MonadIO m) => Window -> m (Maybe BarProp) getPersonalbar self = liftIO (nullableToMaybe <$> (js_getPersonalbar (self))) foreign import javascript unsafe "$1[\"scrollbars\"]" js_getScrollbars :: Window -> IO (Nullable BarProp) -- | getScrollbars :: (MonadIO m) => Window -> m (Maybe BarProp) getScrollbars self = liftIO (nullableToMaybe <$> (js_getScrollbars (self))) foreign import javascript unsafe "$1[\"statusbar\"]" js_getStatusbar :: Window -> IO (Nullable BarProp) -- | getStatusbar :: (MonadIO m) => Window -> m (Maybe BarProp) getStatusbar self = liftIO (nullableToMaybe <$> (js_getStatusbar (self))) foreign import javascript unsafe "$1[\"toolbar\"]" js_getToolbar :: Window -> IO (Nullable BarProp) -- | getToolbar :: (MonadIO m) => Window -> m (Maybe BarProp) getToolbar self = liftIO (nullableToMaybe <$> (js_getToolbar (self))) foreign import javascript unsafe "$1[\"navigator\"]" js_getNavigator :: Window -> IO (Nullable Navigator) -- | getNavigator :: (MonadIO m) => Window -> m (Maybe Navigator) getNavigator self = liftIO (nullableToMaybe <$> (js_getNavigator (self))) foreign import javascript unsafe "$1[\"clientInformation\"]" js_getClientInformation :: Window -> IO (Nullable Navigator) -- | getClientInformation :: (MonadIO m) => Window -> m (Maybe Navigator) getClientInformation self = liftIO (nullableToMaybe <$> (js_getClientInformation (self))) foreign import javascript unsafe "$1[\"crypto\"]" js_getCrypto :: Window -> IO (Nullable Crypto) -- | getCrypto :: (MonadIO m) => Window -> m (Maybe Crypto) getCrypto self = liftIO (nullableToMaybe <$> (js_getCrypto (self))) foreign import javascript unsafe "$1[\"location\"] = $2;" js_setLocation :: Window -> Nullable Location -> IO () -- | setLocation :: (MonadIO m) => Window -> Maybe Location -> m () setLocation self val = liftIO (js_setLocation (self) (maybeToNullable val)) foreign import javascript unsafe "$1[\"location\"]" js_getLocation :: Window -> IO (Nullable Location) -- | getLocation :: (MonadIO m) => Window -> m (Maybe Location) getLocation self = liftIO (nullableToMaybe <$> (js_getLocation (self))) foreign import javascript unsafe "$1[\"event\"]" js_getEvent :: Window -> IO (Nullable Event) -- | getEvent :: (MonadIO m) => Window -> m (Maybe Event) getEvent self = liftIO (nullableToMaybe <$> (js_getEvent (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))) 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[\"outerHeight\"]" js_getOuterHeight :: Window -> IO Int -- | getOuterHeight :: (MonadIO m) => Window -> m Int getOuterHeight self = liftIO (js_getOuterHeight (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[\"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[\"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[\"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[\"scrollX\"]" js_getScrollX :: Window -> IO Int -- | getScrollX :: (MonadIO m) => Window -> m Int getScrollX self = liftIO (js_getScrollX (self)) foreign import javascript unsafe "$1[\"scrollY\"]" js_getScrollY :: Window -> IO Int -- | getScrollY :: (MonadIO m) => Window -> m Int getScrollY self = liftIO (js_getScrollY (self)) foreign import javascript unsafe "$1[\"pageXOffset\"]" js_getPageXOffset :: Window -> IO Int -- | getPageXOffset :: (MonadIO m) => Window -> m Int getPageXOffset self = liftIO (js_getPageXOffset (self)) foreign import javascript unsafe "$1[\"pageYOffset\"]" js_getPageYOffset :: Window -> IO Int -- | getPageYOffset :: (MonadIO m) => Window -> m Int getPageYOffset self = liftIO (js_getPageYOffset (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[\"length\"]" js_getLength :: Window -> IO Word -- | getLength :: (MonadIO m) => Window -> m Word getLength self = liftIO (js_getLength (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[\"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[\"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[\"self\"]" js_getSelf :: Window -> IO (Nullable Window) -- | getSelf :: (MonadIO m) => Window -> m (Maybe Window) getSelf self = liftIO (nullableToMaybe <$> (js_getSelf (self))) foreign import javascript unsafe "$1[\"window\"]" js_getWindow :: Window -> IO (Nullable Window) -- | getWindow :: (MonadIO m) => Window -> m (Maybe Window) getWindow self = liftIO (nullableToMaybe <$> (js_getWindow (self))) foreign import javascript unsafe "$1[\"frames\"]" js_getFrames :: Window -> IO (Nullable Window) -- | getFrames :: (MonadIO m) => Window -> m (Maybe Window) getFrames self = liftIO (nullableToMaybe <$> (js_getFrames (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))) 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))) 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))) foreign import javascript unsafe "$1[\"document\"]" js_getDocument :: Window -> IO (Nullable Document) -- | getDocument :: (MonadIO m) => Window -> m (Maybe Document) getDocument self = liftIO (nullableToMaybe <$> (js_getDocument (self))) foreign import javascript unsafe "$1[\"styleMedia\"]" js_getStyleMedia :: Window -> IO (Nullable StyleMedia) -- | getStyleMedia :: (MonadIO m) => Window -> m (Maybe StyleMedia) getStyleMedia self = liftIO (nullableToMaybe <$> (js_getStyleMedia (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[\"applicationCache\"]" js_getApplicationCache :: Window -> IO (Nullable ApplicationCache) -- | getApplicationCache :: (MonadIO m) => Window -> m (Maybe ApplicationCache) getApplicationCache self = liftIO (nullableToMaybe <$> (js_getApplicationCache (self))) foreign import javascript unsafe "$1[\"sessionStorage\"]" js_getSessionStorage :: Window -> IO (Nullable Storage) -- | getSessionStorage :: (MonadIO m) => Window -> m (Maybe Storage) getSessionStorage self = liftIO (nullableToMaybe <$> (js_getSessionStorage (self))) foreign import javascript unsafe "$1[\"localStorage\"]" js_getLocalStorage :: Window -> IO (Nullable Storage) -- | getLocalStorage :: (MonadIO m) => Window -> m (Maybe Storage) getLocalStorage self = liftIO (nullableToMaybe <$> (js_getLocalStorage (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[\"performance\"]" js_getPerformance :: Window -> IO (Nullable Performance) -- | getPerformance :: (MonadIO m) => Window -> m (Maybe Performance) getPerformance self = liftIO (nullableToMaybe <$> (js_getPerformance (self))) foreign import javascript unsafe "$1[\"CSS\"]" js_getCSS :: Window -> IO (Nullable CSS) -- | getCSS :: (MonadIO m) => Window -> m (Maybe CSS) getCSS self = liftIO (nullableToMaybe <$> (js_getCSS (self))) -- | 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")