module JSDOM.Generated.TouchEvent
(initTouchEvent, getTouches, getTouchesUnsafe, getTouchesUnchecked,
getTargetTouches, getTargetTouchesUnsafe,
getTargetTouchesUnchecked, getChangedTouches,
getChangedTouchesUnsafe, getChangedTouchesUnchecked, getCtrlKey,
getShiftKey, getAltKey, getMetaKey, TouchEvent(..),
gTypeTouchEvent)
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 Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
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)
import JSDOM.Enums
initTouchEvent ::
(MonadDOM m, ToJSString type') =>
TouchEvent ->
Maybe TouchList ->
Maybe TouchList ->
Maybe TouchList ->
type' ->
Maybe Window ->
Int -> Int -> Int -> Int -> Bool -> Bool -> Bool -> Bool -> m ()
initTouchEvent self touches targetTouches changedTouches type' view
screenX screenY clientX clientY ctrlKey altKey shiftKey metaKey
= liftDOM
(void
(self ^. jsf "initTouchEvent"
[toJSVal touches, toJSVal targetTouches, toJSVal changedTouches,
toJSVal type', toJSVal view, toJSVal screenX, toJSVal screenY,
toJSVal clientX, toJSVal clientY, toJSVal ctrlKey, toJSVal altKey,
toJSVal shiftKey, toJSVal metaKey]))
getTouches :: (MonadDOM m) => TouchEvent -> m (Maybe TouchList)
getTouches self = liftDOM ((self ^. js "touches") >>= fromJSVal)
getTouchesUnsafe ::
(MonadDOM m, HasCallStack) => TouchEvent -> m TouchList
getTouchesUnsafe self
= liftDOM
(((self ^. js "touches") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getTouchesUnchecked :: (MonadDOM m) => TouchEvent -> m TouchList
getTouchesUnchecked self
= liftDOM ((self ^. js "touches") >>= fromJSValUnchecked)
getTargetTouches ::
(MonadDOM m) => TouchEvent -> m (Maybe TouchList)
getTargetTouches self
= liftDOM ((self ^. js "targetTouches") >>= fromJSVal)
getTargetTouchesUnsafe ::
(MonadDOM m, HasCallStack) => TouchEvent -> m TouchList
getTargetTouchesUnsafe self
= liftDOM
(((self ^. js "targetTouches") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getTargetTouchesUnchecked ::
(MonadDOM m) => TouchEvent -> m TouchList
getTargetTouchesUnchecked self
= liftDOM ((self ^. js "targetTouches") >>= fromJSValUnchecked)
getChangedTouches ::
(MonadDOM m) => TouchEvent -> m (Maybe TouchList)
getChangedTouches self
= liftDOM ((self ^. js "changedTouches") >>= fromJSVal)
getChangedTouchesUnsafe ::
(MonadDOM m, HasCallStack) => TouchEvent -> m TouchList
getChangedTouchesUnsafe self
= liftDOM
(((self ^. js "changedTouches") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getChangedTouchesUnchecked ::
(MonadDOM m) => TouchEvent -> m TouchList
getChangedTouchesUnchecked self
= liftDOM ((self ^. js "changedTouches") >>= fromJSValUnchecked)
getCtrlKey :: (MonadDOM m) => TouchEvent -> m Bool
getCtrlKey self = liftDOM ((self ^. js "ctrlKey") >>= valToBool)
getShiftKey :: (MonadDOM m) => TouchEvent -> m Bool
getShiftKey self = liftDOM ((self ^. js "shiftKey") >>= valToBool)
getAltKey :: (MonadDOM m) => TouchEvent -> m Bool
getAltKey self = liftDOM ((self ^. js "altKey") >>= valToBool)
getMetaKey :: (MonadDOM m) => TouchEvent -> m Bool
getMetaKey self = liftDOM ((self ^. js "metaKey") >>= valToBool)