TouchEvent.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from touch-events (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.TouchEvent
       (js_newTouchEvent, js_getTouches, js_getTargetTouches, js_getChangedTouches, js_getAltKey, js_getMetaKey, js_getCtrlKey, js_getShiftKey, newTouchEvent, getTouches, getTargetTouches, getChangedTouches, getAltKey, getMetaKey, getCtrlKey, getShiftKey, TouchEvent(..), gTypeTouchEvent)
       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[\"TouchEvent\"]($1, $2); })"
        js_newTouchEvent :: JSString -> JSVal -> IO TouchEvent
-- | <https://developer.mozilla.org/docs/Web/API/TouchEvent/TouchEvent MDN TouchEvent. documentation>
newTouchEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe TouchEventInit -> m TouchEvent
newTouchEvent type' eventInitDict = liftDOM (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newTouchEvent (toJSString type') a2'))

foreign import javascript unsafe "(($1) => { return $1[\"touches\"]; })"
        js_getTouches :: TouchEvent -> IO TouchList
-- | <https://developer.mozilla.org/docs/Web/API/TouchEvent/touches MDN TouchEvent.touches documentation>
getTouches :: (MonadDOM m) => TouchEvent -> m TouchList
getTouches self = liftDOM ((js_getTouches (self)))

foreign import javascript unsafe "(($1) => { return $1[\"targetTouches\"]; })"
        js_getTargetTouches :: TouchEvent -> IO TouchList
-- | <https://developer.mozilla.org/docs/Web/API/TouchEvent/targetTouches MDN TouchEvent.targetTouches documentation>
getTargetTouches :: (MonadDOM m) => TouchEvent -> m TouchList
getTargetTouches self = liftDOM ((js_getTargetTouches (self)))

foreign import javascript unsafe "(($1) => { return $1[\"changedTouches\"]; })"
        js_getChangedTouches :: TouchEvent -> IO TouchList
-- | <https://developer.mozilla.org/docs/Web/API/TouchEvent/changedTouches MDN TouchEvent.changedTouches documentation>
getChangedTouches :: (MonadDOM m) => TouchEvent -> m TouchList
getChangedTouches self = liftDOM ((js_getChangedTouches (self)))

foreign import javascript unsafe "(($1) => { return $1[\"altKey\"]; })"
        js_getAltKey :: TouchEvent -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/TouchEvent/altKey MDN TouchEvent.altKey documentation>
getAltKey :: (MonadDOM m) => TouchEvent -> m Bool
getAltKey self = liftDOM ((js_getAltKey (self)))

foreign import javascript unsafe "(($1) => { return $1[\"metaKey\"]; })"
        js_getMetaKey :: TouchEvent -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/TouchEvent/metaKey MDN TouchEvent.metaKey documentation>
getMetaKey :: (MonadDOM m) => TouchEvent -> m Bool
getMetaKey self = liftDOM ((js_getMetaKey (self)))

foreign import javascript unsafe "(($1) => { return $1[\"ctrlKey\"]; })"
        js_getCtrlKey :: TouchEvent -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/TouchEvent/ctrlKey MDN TouchEvent.ctrlKey documentation>
getCtrlKey :: (MonadDOM m) => TouchEvent -> m Bool
getCtrlKey self = liftDOM ((js_getCtrlKey (self)))

foreign import javascript unsafe "(($1) => { return $1[\"shiftKey\"]; })"
        js_getShiftKey :: TouchEvent -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/TouchEvent/shiftKey MDN TouchEvent.shiftKey documentation>
getShiftKey :: (MonadDOM m) => TouchEvent -> m Bool
getShiftKey self = liftDOM ((js_getShiftKey (self)))