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")