WheelEvent.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from pointerevents4 (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.WheelEvent
       (js_newWheelEvent, js_getDeltaX, js_getDeltaY, js_getDeltaZ, js_getDeltaMode, newWheelEvent, getDeltaX, getDeltaY, getDeltaZ, getDeltaMode, pattern DOM_DELTA_PIXEL, pattern DOM_DELTA_LINE, pattern DOM_DELTA_PAGE, WheelEvent(..), gTypeWheelEvent)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2) => { return new globalThis[\"WheelEvent\"]($1, $2); })"
        js_newWheelEvent :: JSString -> JSVal -> IO WheelEvent
-- | <https://developer.mozilla.org/docs/Web/API/WheelEvent/WheelEvent MDN WheelEvent. documentation>
newWheelEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe WheelEventInit -> m WheelEvent
newWheelEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newWheelEvent (toJSString type') a2'))

foreign import javascript unsafe "(($1) => { return $1[\"deltaX\"]; })"
        js_getDeltaX :: WheelEvent -> IO Double
-- | <https://developer.mozilla.org/docs/Web/API/WheelEvent/deltaX MDN WheelEvent.deltaX documentation>
getDeltaX :: (MonadDOM m) => WheelEvent -> m Double
getDeltaX self = liftDOM ((js_getDeltaX (self)))

foreign import javascript unsafe "(($1) => { return $1[\"deltaY\"]; })"
        js_getDeltaY :: WheelEvent -> IO Double
-- | <https://developer.mozilla.org/docs/Web/API/WheelEvent/deltaY MDN WheelEvent.deltaY documentation>
getDeltaY :: (MonadDOM m) => WheelEvent -> m Double
getDeltaY self = liftDOM ((js_getDeltaY (self)))

foreign import javascript unsafe "(($1) => { return $1[\"deltaZ\"]; })"
        js_getDeltaZ :: WheelEvent -> IO Double
-- | <https://developer.mozilla.org/docs/Web/API/WheelEvent/deltaZ MDN WheelEvent.deltaZ documentation>
getDeltaZ :: (MonadDOM m) => WheelEvent -> m Double
getDeltaZ self = liftDOM ((js_getDeltaZ (self)))

foreign import javascript unsafe "(($1) => { return $1[\"deltaMode\"]; })"
        js_getDeltaMode :: WheelEvent -> IO Word
-- | <https://developer.mozilla.org/docs/Web/API/WheelEvent/deltaMode MDN WheelEvent.deltaMode documentation>
getDeltaMode :: (MonadDOM m) => WheelEvent -> m Word
getDeltaMode self = liftDOM ((js_getDeltaMode (self)))

pattern DOM_DELTA_PIXEL = 0x00

pattern DOM_DELTA_LINE = 0x01

pattern DOM_DELTA_PAGE = 0x02