WheelEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from pointerevents4 (webref). Do not edit.
module JSDOM.Generated.WheelEventInit
       (newWheelEventInit, setDeltaX, getDeltaX, getDeltaXUnsafe, getDeltaXUnchecked, setDeltaY, getDeltaY, getDeltaYUnsafe, getDeltaYUnchecked, setDeltaZ, getDeltaZ, getDeltaZUnsafe, getDeltaZUnchecked, setDeltaMode, getDeltaMode, getDeltaModeUnsafe, getDeltaModeUnchecked, setMomentum, getMomentum, getMomentumUnsafe, getMomentumUnchecked, WheelEventInit(..), gTypeWheelEventInit)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit WheelEventInit specification>
newWheelEventInit :: (MonadDOM m) => m WheelEventInit
newWheelEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltax WheelEventInit.deltaX specification>
setDeltaX :: (MonadDOM m) => WheelEventInit -> Double -> m ()
setDeltaX self val = liftDOM (void (self ^. jss "deltaX" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltax WheelEventInit.deltaX specification>
getDeltaX :: (MonadDOM m) => WheelEventInit -> m (Maybe Double)
getDeltaX self = liftDOM (((self ^. js "deltaX") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltax WheelEventInit.deltaX specification>
getDeltaXUnsafe :: (MonadDOM m, HasCallStack) => WheelEventInit -> m Double
getDeltaXUnsafe self = liftDOM ((((self ^. js "deltaX") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltax WheelEventInit.deltaX specification>
getDeltaXUnchecked :: (MonadDOM m) => WheelEventInit -> m Double
getDeltaXUnchecked self = liftDOM (((self ^. js "deltaX") >>= valToNumber))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltay WheelEventInit.deltaY specification>
setDeltaY :: (MonadDOM m) => WheelEventInit -> Double -> m ()
setDeltaY self val = liftDOM (void (self ^. jss "deltaY" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltay WheelEventInit.deltaY specification>
getDeltaY :: (MonadDOM m) => WheelEventInit -> m (Maybe Double)
getDeltaY self = liftDOM (((self ^. js "deltaY") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltay WheelEventInit.deltaY specification>
getDeltaYUnsafe :: (MonadDOM m, HasCallStack) => WheelEventInit -> m Double
getDeltaYUnsafe self = liftDOM ((((self ^. js "deltaY") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltay WheelEventInit.deltaY specification>
getDeltaYUnchecked :: (MonadDOM m) => WheelEventInit -> m Double
getDeltaYUnchecked self = liftDOM (((self ^. js "deltaY") >>= valToNumber))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltaz WheelEventInit.deltaZ specification>
setDeltaZ :: (MonadDOM m) => WheelEventInit -> Double -> m ()
setDeltaZ self val = liftDOM (void (self ^. jss "deltaZ" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltaz WheelEventInit.deltaZ specification>
getDeltaZ :: (MonadDOM m) => WheelEventInit -> m (Maybe Double)
getDeltaZ self = liftDOM (((self ^. js "deltaZ") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltaz WheelEventInit.deltaZ specification>
getDeltaZUnsafe :: (MonadDOM m, HasCallStack) => WheelEventInit -> m Double
getDeltaZUnsafe self = liftDOM ((((self ^. js "deltaZ") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltaz WheelEventInit.deltaZ specification>
getDeltaZUnchecked :: (MonadDOM m) => WheelEventInit -> m Double
getDeltaZUnchecked self = liftDOM (((self ^. js "deltaZ") >>= valToNumber))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltamode WheelEventInit.deltaMode specification>
setDeltaMode :: (MonadDOM m) => WheelEventInit -> Word -> m ()
setDeltaMode self val = liftDOM (void (self ^. jss "deltaMode" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltamode WheelEventInit.deltaMode specification>
getDeltaMode :: (MonadDOM m) => WheelEventInit -> m (Maybe Word)
getDeltaMode self = liftDOM (((self ^. js "deltaMode") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltamode WheelEventInit.deltaMode specification>
getDeltaModeUnsafe :: (MonadDOM m, HasCallStack) => WheelEventInit -> m Word
getDeltaModeUnsafe self = liftDOM ((((self ^. js "deltaMode") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-deltamode WheelEventInit.deltaMode specification>
getDeltaModeUnchecked :: (MonadDOM m) => WheelEventInit -> m Word
getDeltaModeUnchecked self = liftDOM ((P.round <$> ((self ^. js "deltaMode") >>= valToNumber)))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-momentum WheelEventInit.momentum specification>
setMomentum :: (MonadDOM m) => WheelEventInit -> Bool -> m ()
setMomentum self val = liftDOM (void (self ^. jss "momentum" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-momentum WheelEventInit.momentum specification>
getMomentum :: (MonadDOM m) => WheelEventInit -> m (Maybe Bool)
getMomentum self = liftDOM (((self ^. js "momentum") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-momentum WheelEventInit.momentum specification>
getMomentumUnsafe :: (MonadDOM m, HasCallStack) => WheelEventInit -> m Bool
getMomentumUnsafe self = liftDOM ((((self ^. js "momentum") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-wheeleventinit-momentum WheelEventInit.momentum specification>
getMomentumUnchecked :: (MonadDOM m) => WheelEventInit -> m Bool
getMomentumUnchecked self = liftDOM (((self ^. js "momentum") >>= valToBool))