{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Window (js_openDatabase, openDatabase, openDatabase_, openDatabaseUnsafe, openDatabaseUnchecked, js_getSelection, getSelection, getSelection_, getSelectionUnsafe, getSelectionUnchecked, js_focus, focus, js_blur, blur, js_close, close, js_print, print, js_stop, stop, js_open, open, open_, openUnsafe, openUnchecked, js_showModalDialog, showModalDialog, showModalDialog_, js_alert, alert, js_confirm, confirm, confirm_, js_prompt, prompt, prompt_, promptUnsafe, promptUnchecked, js_find, 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, matchMedia_, matchMediaUnsafe, matchMediaUnchecked, js_getComputedStyle, getComputedStyle, getComputedStyle_, getComputedStyleUnsafe, getComputedStyleUnchecked, js_getMatchedCSSRules, getMatchedCSSRules, getMatchedCSSRules_, getMatchedCSSRulesUnsafe, getMatchedCSSRulesUnchecked, js_webkitConvertPointFromPageToNode, webkitConvertPointFromPageToNode, webkitConvertPointFromPageToNode_, webkitConvertPointFromPageToNodeUnsafe, webkitConvertPointFromPageToNodeUnchecked, js_webkitConvertPointFromNodeToPage, webkitConvertPointFromNodeToPage, webkitConvertPointFromNodeToPage_, webkitConvertPointFromNodeToPageUnsafe, webkitConvertPointFromNodeToPageUnchecked, js_postMessage, postMessage, js_requestAnimationFrame, requestAnimationFrame, requestAnimationFrame_, js_cancelAnimationFrame, cancelAnimationFrame, js_webkitRequestAnimationFrame, webkitRequestAnimationFrame, webkitRequestAnimationFrame_, js_webkitCancelAnimationFrame, webkitCancelAnimationFrame, js_webkitCancelRequestAnimationFrame, webkitCancelRequestAnimationFrame, js_captureEvents, captureEvents, js_releaseEvents, releaseEvents, js_getWebkitIndexedDB, getWebkitIndexedDB, getWebkitIndexedDBUnsafe, getWebkitIndexedDBUnchecked, js_getIndexedDB, getIndexedDB, getIndexedDBUnsafe, getIndexedDBUnchecked, js_getWebkitStorageInfo, getWebkitStorageInfo, getWebkitStorageInfoUnsafe, getWebkitStorageInfoUnchecked, js_getSpeechSynthesis, getSpeechSynthesis, getSpeechSynthesisUnsafe, getSpeechSynthesisUnchecked, js_getScreen, getScreen, getScreenUnsafe, getScreenUnchecked, js_getHistory, getHistory, getHistoryUnsafe, getHistoryUnchecked, js_getLocationbar, getLocationbar, getLocationbarUnsafe, getLocationbarUnchecked, js_getMenubar, getMenubar, getMenubarUnsafe, getMenubarUnchecked, js_getPersonalbar, getPersonalbar, getPersonalbarUnsafe, getPersonalbarUnchecked, js_getScrollbars, getScrollbars, getScrollbarsUnsafe, getScrollbarsUnchecked, js_getStatusbar, getStatusbar, getStatusbarUnsafe, getStatusbarUnchecked, js_getToolbar, getToolbar, getToolbarUnsafe, getToolbarUnchecked, js_getNavigator, getNavigator, getNavigatorUnsafe, getNavigatorUnchecked, js_getClientInformation, getClientInformation, getClientInformationUnsafe, getClientInformationUnchecked, js_getCrypto, getCrypto, getCryptoUnsafe, getCryptoUnchecked, js_setLocation, setLocation, js_getLocation, getLocation, getLocationUnsafe, getLocationUnchecked, js_getEvent, getEvent, getEventUnsafe, getEventUnchecked, js_getFrameElement, getFrameElement, getFrameElementUnsafe, getFrameElementUnchecked, 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, getSelfUnsafe, getSelfUnchecked, js_getWindow, getWindow, getWindowUnsafe, getWindowUnchecked, js_getFrames, getFrames, getFramesUnsafe, getFramesUnchecked, js_getOpener, getOpener, getOpenerUnsafe, getOpenerUnchecked, js_getParent, getParent, getParentUnsafe, getParentUnchecked, js_getTop, getTop, getTopUnsafe, getTopUnchecked, js_getDocument, getDocument, getDocumentUnsafe, getDocumentUnchecked, js_getStyleMedia, getStyleMedia, getStyleMediaUnsafe, getStyleMediaUnchecked, js_getDevicePixelRatio, getDevicePixelRatio, js_getApplicationCache, getApplicationCache, getApplicationCacheUnsafe, getApplicationCacheUnchecked, js_getSessionStorage, getSessionStorage, getSessionStorageUnsafe, getSessionStorageUnchecked, js_getLocalStorage, getLocalStorage, getLocalStorageUnsafe, getLocalStorageUnchecked, js_getOrientation, getOrientation, js_getPerformance, getPerformance, getPerformanceUnsafe, getPerformanceUnchecked, js_getCSS, getCSS, getCSSUnsafe, getCSSUnchecked, 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(..), 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) 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 GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.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))) -- | 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 (maybeToNullable 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 (maybeToNullable 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 (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))) -- | 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[\"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))) -- | open_ :: (MonadIO m, ToJSString url, ToJSString name, ToJSString options) => Window -> url -> name -> options -> m () open_ self url name options = liftIO (void (js_open (self) (toJSString url) (toJSString name) (toJSString options))) -- | openUnsafe :: (MonadIO m, ToJSString url, ToJSString name, ToJSString options, HasCallStack) => Window -> url -> name -> options -> m Window openUnsafe self url name options = liftIO ((nullableToMaybe <$> (js_open (self) (toJSString url) (toJSString name) (toJSString options))) >>= maybe (Prelude.error "Nothing to return") return) -- | openUnchecked :: (MonadIO m, ToJSString url, ToJSString name, ToJSString options) => Window -> url -> name -> options -> m Window openUnchecked self url name options = liftIO (fromJust . 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)) -- | showModalDialog_ :: (MonadIO m, ToJSString url, ToJSString featureArgs) => Window -> url -> JSVal -> featureArgs -> m () showModalDialog_ self url dialogArgs featureArgs = liftIO (void (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)) -- | confirm_ :: (MonadIO m, ToJSString message) => Window -> message -> m () confirm_ self message = liftIO (void (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))) -- | prompt_ :: (MonadIO m, ToJSString message, ToJSString defaultValue) => Window -> message -> Maybe defaultValue -> m () prompt_ self message defaultValue = liftIO (void (js_prompt (self) (toJSString message) (toMaybeJSString defaultValue))) -- | promptUnsafe :: (MonadIO m, ToJSString message, ToJSString defaultValue, HasCallStack, FromJSString result) => Window -> message -> Maybe defaultValue -> m result promptUnsafe self message defaultValue = liftIO ((fromMaybeJSString <$> (js_prompt (self) (toJSString message) (toMaybeJSString defaultValue))) >>= maybe (Prelude.error "Nothing to return") return) -- | promptUnchecked :: (MonadIO m, ToJSString message, ToJSString defaultValue, FromJSString result) => Window -> message -> Maybe defaultValue -> m result promptUnchecked self message defaultValue = liftIO (fromJust . 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) -- | find_ :: (MonadIO m, ToJSString string) => Window -> string -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> m () find_ self string caseSensitive backwards wrap wholeWord searchInFrames showDialog = liftIO (void (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))) -- | matchMedia_ :: (MonadIO m, ToJSString query) => Window -> query -> m () matchMedia_ self query = liftIO (void (js_matchMedia (self) (toJSString query))) -- | matchMediaUnsafe :: (MonadIO m, ToJSString query, HasCallStack) => Window -> query -> m MediaQueryList matchMediaUnsafe self query = liftIO ((nullableToMaybe <$> (js_matchMedia (self) (toJSString query))) >>= maybe (Prelude.error "Nothing to return") return) -- | matchMediaUnchecked :: (MonadIO m, ToJSString query) => Window -> query -> m MediaQueryList matchMediaUnchecked self query = liftIO (fromJust . 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))) -- | getComputedStyle_ :: (MonadIO m, IsElement element, ToJSString pseudoElement) => Window -> Maybe element -> Maybe pseudoElement -> m () getComputedStyle_ self element pseudoElement = liftIO (void (js_getComputedStyle (self) (maybeToNullable (fmap toElement element)) (toMaybeJSString pseudoElement))) -- | getComputedStyleUnsafe :: (MonadIO m, IsElement element, ToJSString pseudoElement, HasCallStack) => Window -> Maybe element -> Maybe pseudoElement -> m CSSStyleDeclaration getComputedStyleUnsafe self element pseudoElement = liftIO ((nullableToMaybe <$> (js_getComputedStyle (self) (maybeToNullable (fmap toElement element)) (toMaybeJSString pseudoElement))) >>= maybe (Prelude.error "Nothing to return") return) -- | getComputedStyleUnchecked :: (MonadIO m, IsElement element, ToJSString pseudoElement) => Window -> Maybe element -> Maybe pseudoElement -> m CSSStyleDeclaration getComputedStyleUnchecked self element pseudoElement = liftIO (fromJust . 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))) -- | getMatchedCSSRules_ :: (MonadIO m, IsElement element, ToJSString pseudoElement) => Window -> Maybe element -> Maybe pseudoElement -> m () getMatchedCSSRules_ self element pseudoElement = liftIO (void (js_getMatchedCSSRules (self) (maybeToNullable (fmap toElement element)) (toMaybeJSString pseudoElement))) -- | getMatchedCSSRulesUnsafe :: (MonadIO m, IsElement element, ToJSString pseudoElement, HasCallStack) => Window -> Maybe element -> Maybe pseudoElement -> m CSSRuleList getMatchedCSSRulesUnsafe self element pseudoElement = liftIO ((nullableToMaybe <$> (js_getMatchedCSSRules (self) (maybeToNullable (fmap toElement element)) (toMaybeJSString pseudoElement))) >>= maybe (Prelude.error "Nothing to return") return) -- | getMatchedCSSRulesUnchecked :: (MonadIO m, IsElement element, ToJSString pseudoElement) => Window -> Maybe element -> Maybe pseudoElement -> m CSSRuleList getMatchedCSSRulesUnchecked self element pseudoElement = liftIO (fromJust . 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))) -- | webkitConvertPointFromPageToNode_ :: (MonadIO m, IsNode node) => Window -> Maybe node -> Maybe WebKitPoint -> m () webkitConvertPointFromPageToNode_ self node p = liftIO (void (js_webkitConvertPointFromPageToNode (self) (maybeToNullable (fmap toNode node)) (maybeToNullable p))) -- | webkitConvertPointFromPageToNodeUnsafe :: (MonadIO m, IsNode node, HasCallStack) => Window -> Maybe node -> Maybe WebKitPoint -> m WebKitPoint webkitConvertPointFromPageToNodeUnsafe self node p = liftIO ((nullableToMaybe <$> (js_webkitConvertPointFromPageToNode (self) (maybeToNullable (fmap toNode node)) (maybeToNullable p))) >>= maybe (Prelude.error "Nothing to return") return) -- | webkitConvertPointFromPageToNodeUnchecked :: (MonadIO m, IsNode node) => Window -> Maybe node -> Maybe WebKitPoint -> m WebKitPoint webkitConvertPointFromPageToNodeUnchecked self node p = liftIO (fromJust . 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))) -- | webkitConvertPointFromNodeToPage_ :: (MonadIO m, IsNode node) => Window -> Maybe node -> Maybe WebKitPoint -> m () webkitConvertPointFromNodeToPage_ self node p = liftIO (void (js_webkitConvertPointFromNodeToPage (self) (maybeToNullable (fmap toNode node)) (maybeToNullable p))) -- | webkitConvertPointFromNodeToPageUnsafe :: (MonadIO m, IsNode node, HasCallStack) => Window -> Maybe node -> Maybe WebKitPoint -> m WebKitPoint webkitConvertPointFromNodeToPageUnsafe self node p = liftIO ((nullableToMaybe <$> (js_webkitConvertPointFromNodeToPage (self) (maybeToNullable (fmap toNode node)) (maybeToNullable p))) >>= maybe (Prelude.error "Nothing to return") return) -- | webkitConvertPointFromNodeToPageUnchecked :: (MonadIO m, IsNode node) => Window -> Maybe node -> Maybe WebKitPoint -> m WebKitPoint webkitConvertPointFromNodeToPageUnchecked self node p = liftIO (fromJust . 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)) -- | requestAnimationFrame_ :: (MonadIO m) => Window -> Maybe RequestAnimationFrameCallback -> m () requestAnimationFrame_ self callback = liftIO (void (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)) -- | webkitRequestAnimationFrame_ :: (MonadIO m) => Window -> Maybe RequestAnimationFrameCallback -> m () webkitRequestAnimationFrame_ self callback = liftIO (void (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))) -- | getWebkitIndexedDBUnsafe :: (MonadIO m, HasCallStack) => Window -> m IDBFactory getWebkitIndexedDBUnsafe self = liftIO ((nullableToMaybe <$> (js_getWebkitIndexedDB (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getWebkitIndexedDBUnchecked :: (MonadIO m) => Window -> m IDBFactory getWebkitIndexedDBUnchecked self = liftIO (fromJust . 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))) -- | getIndexedDBUnsafe :: (MonadIO m, HasCallStack) => Window -> m IDBFactory getIndexedDBUnsafe self = liftIO ((nullableToMaybe <$> (js_getIndexedDB (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getIndexedDBUnchecked :: (MonadIO m) => Window -> m IDBFactory getIndexedDBUnchecked self = liftIO (fromJust . 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))) -- | getWebkitStorageInfoUnsafe :: (MonadIO m, HasCallStack) => Window -> m StorageInfo getWebkitStorageInfoUnsafe self = liftIO ((nullableToMaybe <$> (js_getWebkitStorageInfo (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getWebkitStorageInfoUnchecked :: (MonadIO m) => Window -> m StorageInfo getWebkitStorageInfoUnchecked self = liftIO (fromJust . 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))) -- | getSpeechSynthesisUnsafe :: (MonadIO m, HasCallStack) => Window -> m SpeechSynthesis getSpeechSynthesisUnsafe self = liftIO ((nullableToMaybe <$> (js_getSpeechSynthesis (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getSpeechSynthesisUnchecked :: (MonadIO m) => Window -> m SpeechSynthesis getSpeechSynthesisUnchecked self = liftIO (fromJust . 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))) -- | getScreenUnsafe :: (MonadIO m, HasCallStack) => Window -> m Screen getScreenUnsafe self = liftIO ((nullableToMaybe <$> (js_getScreen (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getScreenUnchecked :: (MonadIO m) => Window -> m Screen getScreenUnchecked self = liftIO (fromJust . 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))) -- | getHistoryUnsafe :: (MonadIO m, HasCallStack) => Window -> m History getHistoryUnsafe self = liftIO ((nullableToMaybe <$> (js_getHistory (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getHistoryUnchecked :: (MonadIO m) => Window -> m History getHistoryUnchecked self = liftIO (fromJust . 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))) -- | getLocationbarUnsafe :: (MonadIO m, HasCallStack) => Window -> m BarProp getLocationbarUnsafe self = liftIO ((nullableToMaybe <$> (js_getLocationbar (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getLocationbarUnchecked :: (MonadIO m) => Window -> m BarProp getLocationbarUnchecked self = liftIO (fromJust . 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))) -- | getMenubarUnsafe :: (MonadIO m, HasCallStack) => Window -> m BarProp getMenubarUnsafe self = liftIO ((nullableToMaybe <$> (js_getMenubar (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getMenubarUnchecked :: (MonadIO m) => Window -> m BarProp getMenubarUnchecked self = liftIO (fromJust . 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))) -- | getPersonalbarUnsafe :: (MonadIO m, HasCallStack) => Window -> m BarProp getPersonalbarUnsafe self = liftIO ((nullableToMaybe <$> (js_getPersonalbar (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getPersonalbarUnchecked :: (MonadIO m) => Window -> m BarProp getPersonalbarUnchecked self = liftIO (fromJust . 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))) -- | getScrollbarsUnsafe :: (MonadIO m, HasCallStack) => Window -> m BarProp getScrollbarsUnsafe self = liftIO ((nullableToMaybe <$> (js_getScrollbars (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getScrollbarsUnchecked :: (MonadIO m) => Window -> m BarProp getScrollbarsUnchecked self = liftIO (fromJust . 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))) -- | getStatusbarUnsafe :: (MonadIO m, HasCallStack) => Window -> m BarProp getStatusbarUnsafe self = liftIO ((nullableToMaybe <$> (js_getStatusbar (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getStatusbarUnchecked :: (MonadIO m) => Window -> m BarProp getStatusbarUnchecked self = liftIO (fromJust . 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))) -- | getToolbarUnsafe :: (MonadIO m, HasCallStack) => Window -> m BarProp getToolbarUnsafe self = liftIO ((nullableToMaybe <$> (js_getToolbar (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getToolbarUnchecked :: (MonadIO m) => Window -> m BarProp getToolbarUnchecked self = liftIO (fromJust . 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))) -- | getNavigatorUnsafe :: (MonadIO m, HasCallStack) => Window -> m Navigator getNavigatorUnsafe self = liftIO ((nullableToMaybe <$> (js_getNavigator (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getNavigatorUnchecked :: (MonadIO m) => Window -> m Navigator getNavigatorUnchecked self = liftIO (fromJust . 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))) -- | getClientInformationUnsafe :: (MonadIO m, HasCallStack) => Window -> m Navigator getClientInformationUnsafe self = liftIO ((nullableToMaybe <$> (js_getClientInformation (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getClientInformationUnchecked :: (MonadIO m) => Window -> m Navigator getClientInformationUnchecked self = liftIO (fromJust . 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))) -- | getCryptoUnsafe :: (MonadIO m, HasCallStack) => Window -> m Crypto getCryptoUnsafe self = liftIO ((nullableToMaybe <$> (js_getCrypto (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getCryptoUnchecked :: (MonadIO m) => Window -> m Crypto getCryptoUnchecked self = liftIO (fromJust . 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))) -- | getLocationUnsafe :: (MonadIO m, HasCallStack) => Window -> m Location getLocationUnsafe self = liftIO ((nullableToMaybe <$> (js_getLocation (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getLocationUnchecked :: (MonadIO m) => Window -> m Location getLocationUnchecked self = liftIO (fromJust . 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))) -- | getEventUnsafe :: (MonadIO m, HasCallStack) => Window -> m Event getEventUnsafe self = liftIO ((nullableToMaybe <$> (js_getEvent (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getEventUnchecked :: (MonadIO m) => Window -> m Event getEventUnchecked self = liftIO (fromJust . 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))) -- | 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[\"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))) -- | getSelfUnsafe :: (MonadIO m, HasCallStack) => Window -> m Window getSelfUnsafe self = liftIO ((nullableToMaybe <$> (js_getSelf (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getSelfUnchecked :: (MonadIO m) => Window -> m Window getSelfUnchecked self = liftIO (fromJust . 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))) -- | getWindowUnsafe :: (MonadIO m, HasCallStack) => Window -> m Window getWindowUnsafe self = liftIO ((nullableToMaybe <$> (js_getWindow (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getWindowUnchecked :: (MonadIO m) => Window -> m Window getWindowUnchecked self = liftIO (fromJust . 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))) -- | getFramesUnsafe :: (MonadIO m, HasCallStack) => Window -> m Window getFramesUnsafe self = liftIO ((nullableToMaybe <$> (js_getFrames (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getFramesUnchecked :: (MonadIO m) => Window -> m Window getFramesUnchecked self = liftIO (fromJust . 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))) -- | 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[\"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[\"document\"]" js_getDocument :: Window -> IO (Nullable Document) -- | getDocument :: (MonadIO m) => Window -> m (Maybe Document) getDocument self = liftIO (nullableToMaybe <$> (js_getDocument (self))) -- | getDocumentUnsafe :: (MonadIO m, HasCallStack) => Window -> m Document getDocumentUnsafe self = liftIO ((nullableToMaybe <$> (js_getDocument (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getDocumentUnchecked :: (MonadIO m) => Window -> m Document getDocumentUnchecked self = liftIO (fromJust . 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))) -- | getStyleMediaUnsafe :: (MonadIO m, HasCallStack) => Window -> m StyleMedia getStyleMediaUnsafe self = liftIO ((nullableToMaybe <$> (js_getStyleMedia (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getStyleMediaUnchecked :: (MonadIO m) => Window -> m StyleMedia getStyleMediaUnchecked self = liftIO (fromJust . 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))) -- | getApplicationCacheUnsafe :: (MonadIO m, HasCallStack) => Window -> m ApplicationCache getApplicationCacheUnsafe self = liftIO ((nullableToMaybe <$> (js_getApplicationCache (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getApplicationCacheUnchecked :: (MonadIO m) => Window -> m ApplicationCache getApplicationCacheUnchecked self = liftIO (fromJust . 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))) -- | getSessionStorageUnsafe :: (MonadIO m, HasCallStack) => Window -> m Storage getSessionStorageUnsafe self = liftIO ((nullableToMaybe <$> (js_getSessionStorage (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getSessionStorageUnchecked :: (MonadIO m) => Window -> m Storage getSessionStorageUnchecked self = liftIO (fromJust . 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))) -- | getLocalStorageUnsafe :: (MonadIO m, HasCallStack) => Window -> m Storage getLocalStorageUnsafe self = liftIO ((nullableToMaybe <$> (js_getLocalStorage (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getLocalStorageUnchecked :: (MonadIO m) => Window -> m Storage getLocalStorageUnchecked self = liftIO (fromJust . 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))) -- | getPerformanceUnsafe :: (MonadIO m, HasCallStack) => Window -> m Performance getPerformanceUnsafe self = liftIO ((nullableToMaybe <$> (js_getPerformance (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getPerformanceUnchecked :: (MonadIO m) => Window -> m Performance getPerformanceUnchecked self = liftIO (fromJust . 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))) -- | getCSSUnsafe :: (MonadIO m, HasCallStack) => Window -> m CSS getCSSUnsafe self = liftIO ((nullableToMaybe <$> (js_getCSS (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getCSSUnchecked :: (MonadIO m) => Window -> m CSS getCSSUnchecked self = liftIO (fromJust . 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")