{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.Event
(newEvent, composedPath, composedPath_, stopPropagation,
stopImmediatePropagation, preventDefault, initEvent, pattern NONE,
pattern CAPTURING_PHASE, pattern AT_TARGET, pattern BUBBLING_PHASE,
getType, getTarget, getTargetUnsafe, getTargetUnchecked,
getCurrentTarget, getCurrentTargetUnsafe,
getCurrentTargetUnchecked, getEventPhase, setCancelBubble,
getCancelBubble, getBubbles, getCancelable, getDefaultPrevented,
getComposed, getIsTrusted, getTimeStamp, getSrcElement,
setReturnValue, getReturnValue, Event(..), gTypeEvent, IsEvent,
toEvent)
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.Enums
newEvent ::
(MonadDOM m, ToJSString type', IsEventInit eventInitDict) =>
type' -> Maybe eventInitDict -> m Event
newEvent :: forall (m :: * -> *) type' eventInitDict.
(MonadDOM m, ToJSString type', IsEventInit eventInitDict) =>
type' -> Maybe eventInitDict -> m Event
newEvent type'
type' Maybe eventInitDict
eventInitDict
= DOM Event -> m Event
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSVal -> Event
Event (JSVal -> Event) -> JSM JSVal -> DOM Event
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
JSM JSVal -> [JSM JSVal] -> JSM JSVal
forall constructor args.
(MakeObject constructor, MakeArgs args) =>
constructor -> args -> JSM JSVal
new (String -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg String
"Event") [type' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal type'
type', Maybe eventInitDict -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe eventInitDict
eventInitDict])
composedPath ::
(MonadDOM m, IsEvent self) => self -> m [EventTarget]
composedPath :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m [EventTarget]
composedPath self
self
= DOM [EventTarget] -> m [EventTarget]
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"composedPath" ()) JSM JSVal -> (JSVal -> DOM [EventTarget]) -> DOM [EventTarget]
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM [EventTarget]
forall o. FromJSVal o => JSVal -> JSM [o]
fromJSArrayUnchecked)
composedPath_ :: (MonadDOM m, IsEvent self) => self -> m ()
composedPath_ :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m ()
composedPath_ self
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"composedPath" ()))
stopPropagation :: (MonadDOM m, IsEvent self) => self -> m ()
stopPropagation :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m ()
stopPropagation self
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"stopPropagation" ()))
stopImmediatePropagation ::
(MonadDOM m, IsEvent self) => self -> m ()
stopImmediatePropagation :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m ()
stopImmediatePropagation self
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"stopImmediatePropagation" ()))
preventDefault :: (MonadDOM m, IsEvent self) => self -> m ()
preventDefault :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m ()
preventDefault self
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"preventDefault" ()))
initEvent ::
(MonadDOM m, IsEvent self, ToJSString type') =>
self -> type' -> Bool -> Bool -> m ()
initEvent :: forall (m :: * -> *) self type'.
(MonadDOM m, IsEvent self, ToJSString type') =>
self -> type' -> Bool -> Bool -> m ()
initEvent self
self type'
type' Bool
bubbles Bool
cancelable
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"initEvent"
[type' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal type'
type', Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
bubbles, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
cancelable]))
pattern $mNONE :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bNONE :: forall {a}. (Eq a, Num a) => a
NONE = 0
pattern $mCAPTURING_PHASE :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bCAPTURING_PHASE :: forall {a}. (Eq a, Num a) => a
CAPTURING_PHASE = 1
pattern $mAT_TARGET :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bAT_TARGET :: forall {a}. (Eq a, Num a) => a
AT_TARGET = 2
pattern $mBUBBLING_PHASE :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bBUBBLING_PHASE :: forall {a}. (Eq a, Num a) => a
BUBBLING_PHASE = 3
getType ::
(MonadDOM m, IsEvent self, FromJSString result) => self -> m result
getType :: forall (m :: * -> *) self result.
(MonadDOM m, IsEvent self, FromJSString result) =>
self -> m result
getType self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"type") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getTarget ::
(MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget)
getTarget :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m (Maybe EventTarget)
getTarget self
self
= DOM (Maybe EventTarget) -> m (Maybe EventTarget)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"target") JSM JSVal
-> (JSVal -> DOM (Maybe EventTarget)) -> DOM (Maybe EventTarget)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe EventTarget)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getTargetUnsafe ::
(MonadDOM m, IsEvent self, HasCallStack) => self -> m EventTarget
getTargetUnsafe :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self, HasCallStack) =>
self -> m EventTarget
getTargetUnsafe self
self
= DOM EventTarget -> m EventTarget
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"target") JSM JSVal
-> (JSVal -> DOM (Maybe EventTarget)) -> DOM (Maybe EventTarget)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe EventTarget)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe EventTarget)
-> (Maybe EventTarget -> DOM EventTarget) -> DOM EventTarget
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM EventTarget
-> (EventTarget -> DOM EventTarget)
-> Maybe EventTarget
-> DOM EventTarget
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM EventTarget
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") EventTarget -> DOM EventTarget
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getTargetUnchecked ::
(MonadDOM m, IsEvent self) => self -> m EventTarget
getTargetUnchecked :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m EventTarget
getTargetUnchecked self
self
= DOM EventTarget -> m EventTarget
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"target") JSM JSVal -> (JSVal -> DOM EventTarget) -> DOM EventTarget
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM EventTarget
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getCurrentTarget ::
(MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget)
getCurrentTarget :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m (Maybe EventTarget)
getCurrentTarget self
self
= DOM (Maybe EventTarget) -> m (Maybe EventTarget)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"currentTarget") JSM JSVal
-> (JSVal -> DOM (Maybe EventTarget)) -> DOM (Maybe EventTarget)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe EventTarget)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getCurrentTargetUnsafe ::
(MonadDOM m, IsEvent self, HasCallStack) => self -> m EventTarget
getCurrentTargetUnsafe :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self, HasCallStack) =>
self -> m EventTarget
getCurrentTargetUnsafe self
self
= DOM EventTarget -> m EventTarget
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"currentTarget") JSM JSVal
-> (JSVal -> DOM (Maybe EventTarget)) -> DOM (Maybe EventTarget)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe EventTarget)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe EventTarget)
-> (Maybe EventTarget -> DOM EventTarget) -> DOM EventTarget
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM EventTarget
-> (EventTarget -> DOM EventTarget)
-> Maybe EventTarget
-> DOM EventTarget
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM EventTarget
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") EventTarget -> DOM EventTarget
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getCurrentTargetUnchecked ::
(MonadDOM m, IsEvent self) => self -> m EventTarget
getCurrentTargetUnchecked :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m EventTarget
getCurrentTargetUnchecked self
self
= DOM EventTarget -> m EventTarget
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"currentTarget") JSM JSVal -> (JSVal -> DOM EventTarget) -> DOM EventTarget
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM EventTarget
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getEventPhase :: (MonadDOM m, IsEvent self) => self -> m Word
getEventPhase :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m Word
getEventPhase self
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"eventPhase") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
setCancelBubble ::
(MonadDOM m, IsEvent self) => self -> Bool -> m ()
setCancelBubble :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> Bool -> m ()
setCancelBubble self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (DOM ()) Event (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"cancelBubble" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getCancelBubble :: (MonadDOM m, IsEvent self) => self -> m Bool
getCancelBubble :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m Bool
getCancelBubble self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"cancelBubble") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getBubbles :: (MonadDOM m, IsEvent self) => self -> m Bool
getBubbles :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m Bool
getBubbles self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"bubbles") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getCancelable :: (MonadDOM m, IsEvent self) => self -> m Bool
getCancelable :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m Bool
getCancelable self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"cancelable") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getDefaultPrevented :: (MonadDOM m, IsEvent self) => self -> m Bool
getDefaultPrevented :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m Bool
getDefaultPrevented self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"defaultPrevented") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getComposed :: (MonadDOM m, IsEvent self) => self -> m Bool
getComposed :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m Bool
getComposed self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"composed") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getIsTrusted :: (MonadDOM m, IsEvent self) => self -> m Bool
getIsTrusted :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m Bool
getIsTrusted self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"isTrusted") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getTimeStamp :: (MonadDOM m, IsEvent self) => self -> m Word
getTimeStamp :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m Word
getTimeStamp self
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"timeStamp") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getSrcElement ::
(MonadDOM m, IsEvent self) => self -> m EventTarget
getSrcElement :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m EventTarget
getSrcElement self
self
= DOM EventTarget -> m EventTarget
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"srcElement") JSM JSVal -> (JSVal -> DOM EventTarget) -> DOM EventTarget
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM EventTarget
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setReturnValue ::
(MonadDOM m, IsEvent self) => self -> Bool -> m ()
setReturnValue :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> Bool -> m ()
setReturnValue self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (DOM ()) Event (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"returnValue" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getReturnValue :: (MonadDOM m, IsEvent self) => self -> m Bool
getReturnValue :: forall (m :: * -> *) self.
(MonadDOM m, IsEvent self) =>
self -> m Bool
getReturnValue self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> Event
forall o. IsEvent o => o -> Event
toEvent self
self) Event -> Getting (JSM JSVal) Event (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter Event (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"returnValue") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)