{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.GlobalEventHandlers (abort, autocomplete, autocompleteerror, blur, canPlay, canPlayThrough, change, click, contextMenu, cueChange, dblClick, drag, dragEnd, dragEnter, dragLeave, dragOver, dragStart, drop, durationChange, emptied, ended, error, focus, input, invalid, keyDown, keyPress, keyUp, load, loadedData, loadedMetadata, loadStart, mouseDown, mouseEnter, mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel, pause, play, playing, progress, rateChange, rejectionhandled, reset, resize, scroll, seeked, seeking, select, stalled, submit, suspend, timeUpdate, toggle, unhandledrejection, volumeChange, waiting, transitionEnd, animationEnd, animationIteration, animationStart, search, wheel, touchCancel, touchEnd, touchMove, touchStart, touchForcechange, webKitMouseForcechanged, webKitMouseForcedown, webKitMouseForcewillbegin, webKitMouseForceup, webKitWillRevealBottom, webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop, GlobalEventHandlers(..), gTypeGlobalEventHandlers, IsGlobalEventHandlers, toGlobalEventHandlers) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import JSDOM.Enums -- | abort :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self UIEvent abort = unsafeEventNameAsync (toJSString "abort") -- | autocomplete :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self onautocomplete autocomplete = unsafeEventName (toJSString "autocomplete") -- | autocompleteerror :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self onautocompleteerror autocompleteerror = unsafeEventName (toJSString "autocompleteerror") -- | blur :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self FocusEvent blur = unsafeEventNameAsync (toJSString "blur") -- | canPlay :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event canPlay = unsafeEventName (toJSString "canplay") -- | canPlayThrough :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event canPlayThrough = unsafeEventName (toJSString "canplaythrough") -- | change :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event change = unsafeEventName (toJSString "change") -- | click :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent click = unsafeEventName (toJSString "click") -- | contextMenu :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent contextMenu = unsafeEventName (toJSString "contextmenu") -- | cueChange :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event cueChange = unsafeEventName (toJSString "cuechange") -- | dblClick :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent dblClick = unsafeEventName (toJSString "dblclick") -- | drag :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent drag = unsafeEventName (toJSString "drag") -- | dragEnd :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent dragEnd = unsafeEventName (toJSString "dragend") -- | dragEnter :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent dragEnter = unsafeEventName (toJSString "dragenter") -- | dragLeave :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent dragLeave = unsafeEventName (toJSString "dragleave") -- | dragOver :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent dragOver = unsafeEventName (toJSString "dragover") -- | dragStart :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent dragStart = unsafeEventName (toJSString "dragstart") -- | drop :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent drop = unsafeEventName (toJSString "drop") -- | durationChange :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event durationChange = unsafeEventName (toJSString "durationchange") -- | emptied :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event emptied = unsafeEventName (toJSString "emptied") -- | ended :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event ended = unsafeEventName (toJSString "ended") -- | error :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self UIEvent error = unsafeEventNameAsync (toJSString "error") -- | focus :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self FocusEvent focus = unsafeEventNameAsync (toJSString "focus") -- | input :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event input = unsafeEventName (toJSString "input") -- | invalid :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event invalid = unsafeEventName (toJSString "invalid") -- | keyDown :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self KeyboardEvent keyDown = unsafeEventName (toJSString "keydown") -- | keyPress :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self KeyboardEvent keyPress = unsafeEventName (toJSString "keypress") -- | keyUp :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self KeyboardEvent keyUp = unsafeEventName (toJSString "keyup") -- | load :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self UIEvent load = unsafeEventNameAsync (toJSString "load") -- | loadedData :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event loadedData = unsafeEventName (toJSString "loadeddata") -- | loadedMetadata :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event loadedMetadata = unsafeEventName (toJSString "loadedmetadata") -- | loadStart :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self ProgressEvent loadStart = unsafeEventNameAsync (toJSString "loadstart") -- | mouseDown :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent mouseDown = unsafeEventName (toJSString "mousedown") -- | mouseEnter :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent mouseEnter = unsafeEventName (toJSString "mouseenter") -- | mouseLeave :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent mouseLeave = unsafeEventName (toJSString "mouseleave") -- | mouseMove :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent mouseMove = unsafeEventName (toJSString "mousemove") -- | mouseOut :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent mouseOut = unsafeEventName (toJSString "mouseout") -- | mouseOver :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent mouseOver = unsafeEventName (toJSString "mouseover") -- | mouseUp :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent mouseUp = unsafeEventName (toJSString "mouseup") -- | mouseWheel :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self MouseEvent mouseWheel = unsafeEventName (toJSString "mousewheel") -- | pause :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event pause = unsafeEventName (toJSString "pause") -- | play :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event play = unsafeEventName (toJSString "play") -- | playing :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event playing = unsafeEventName (toJSString "playing") -- | progress :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self ProgressEvent progress = unsafeEventNameAsync (toJSString "progress") -- | rateChange :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event rateChange = unsafeEventName (toJSString "ratechange") -- | rejectionhandled :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self onrejectionhandled rejectionhandled = unsafeEventName (toJSString "rejectionhandled") -- | reset :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event reset = unsafeEventName (toJSString "reset") -- | resize :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self UIEvent resize = unsafeEventName (toJSString "resize") -- | scroll :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self UIEvent scroll = unsafeEventName (toJSString "scroll") -- | seeked :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event seeked = unsafeEventName (toJSString "seeked") -- | seeking :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event seeking = unsafeEventName (toJSString "seeking") -- | select :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self UIEvent select = unsafeEventName (toJSString "select") -- | stalled :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event stalled = unsafeEventName (toJSString "stalled") -- | submit :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event submit = unsafeEventName (toJSString "submit") -- | suspend :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event suspend = unsafeEventName (toJSString "suspend") -- | timeUpdate :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event timeUpdate = unsafeEventName (toJSString "timeupdate") -- | toggle :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self ontoggle toggle = unsafeEventName (toJSString "toggle") -- | unhandledrejection :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self onunhandledrejection unhandledrejection = unsafeEventName (toJSString "unhandledrejection") -- | volumeChange :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event volumeChange = unsafeEventName (toJSString "volumechange") -- | waiting :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event waiting = unsafeEventName (toJSString "waiting") -- | transitionEnd :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self TransitionEvent transitionEnd = unsafeEventName (toJSString "transitionend") -- | animationEnd :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self AnimationEvent animationEnd = unsafeEventName (toJSString "animationend") -- | animationIteration :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self AnimationEvent animationIteration = unsafeEventName (toJSString "animationiteration") -- | animationStart :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self AnimationEvent animationStart = unsafeEventName (toJSString "animationstart") -- | search :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event search = unsafeEventName (toJSString "search") -- | wheel :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self WheelEvent wheel = unsafeEventName (toJSString "wheel") -- | touchCancel :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self TouchEvent touchCancel = unsafeEventName (toJSString "touchcancel") -- | touchEnd :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self TouchEvent touchEnd = unsafeEventName (toJSString "touchend") -- | touchMove :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self TouchEvent touchMove = unsafeEventName (toJSString "touchmove") -- | touchStart :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self TouchEvent touchStart = unsafeEventName (toJSString "touchstart") -- | touchForcechange :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self ontouchforcechange touchForcechange = unsafeEventName (toJSString "touchforcechange") -- | webKitMouseForcechanged :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self onwebkitmouseforcechanged webKitMouseForcechanged = unsafeEventName (toJSString "webkitmouseforcechanged") -- | webKitMouseForcedown :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self onwebkitmouseforcedown webKitMouseForcedown = unsafeEventName (toJSString "webkitmouseforcedown") -- | webKitMouseForcewillbegin :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self onwebkitmouseforcewillbegin webKitMouseForcewillbegin = unsafeEventName (toJSString "webkitmouseforcewillbegin") -- | webKitMouseForceup :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self onwebkitmouseforceup webKitMouseForceup = unsafeEventName (toJSString "webkitmouseforceup") -- | webKitWillRevealBottom :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event webKitWillRevealBottom = unsafeEventName (toJSString "webkitwillrevealbottom") -- | webKitWillRevealLeft :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event webKitWillRevealLeft = unsafeEventName (toJSString "webkitwillrevealleft") -- | webKitWillRevealRight :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event webKitWillRevealRight = unsafeEventName (toJSString "webkitwillrevealright") -- | webKitWillRevealTop :: (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event webKitWillRevealTop = unsafeEventName (toJSString "webkitwillrevealtop")