{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Touch (js_getClientX, getClientX, js_getClientY, getClientY, js_getScreenX, getScreenX, js_getScreenY, getScreenY, js_getPageX, getPageX, js_getPageY, getPageY, js_getTarget, getTarget, js_getIdentifier, getIdentifier, js_getWebkitRadiusX, getWebkitRadiusX, js_getWebkitRadiusY, getWebkitRadiusY, js_getWebkitRotationAngle, getWebkitRotationAngle, js_getWebkitForce, getWebkitForce, Touch(..), gTypeTouch) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"clientX\"]" js_getClientX :: Touch -> IO Int -- | getClientX :: (MonadIO m) => Touch -> m Int getClientX self = liftIO (js_getClientX self) foreign import javascript unsafe "$1[\"clientY\"]" js_getClientY :: Touch -> IO Int -- | getClientY :: (MonadIO m) => Touch -> m Int getClientY self = liftIO (js_getClientY self) foreign import javascript unsafe "$1[\"screenX\"]" js_getScreenX :: Touch -> IO Int -- | getScreenX :: (MonadIO m) => Touch -> m Int getScreenX self = liftIO (js_getScreenX self) foreign import javascript unsafe "$1[\"screenY\"]" js_getScreenY :: Touch -> IO Int -- | getScreenY :: (MonadIO m) => Touch -> m Int getScreenY self = liftIO (js_getScreenY self) foreign import javascript unsafe "$1[\"pageX\"]" js_getPageX :: Touch -> IO Int -- | getPageX :: (MonadIO m) => Touch -> m Int getPageX self = liftIO (js_getPageX self) foreign import javascript unsafe "$1[\"pageY\"]" js_getPageY :: Touch -> IO Int -- | getPageY :: (MonadIO m) => Touch -> m Int getPageY self = liftIO (js_getPageY self) foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: Touch -> IO EventTarget -- | getTarget :: (MonadIO m) => Touch -> m EventTarget getTarget self = liftIO (js_getTarget self) foreign import javascript unsafe "$1[\"identifier\"]" js_getIdentifier :: Touch -> IO Word -- | getIdentifier :: (MonadIO m) => Touch -> m Word getIdentifier self = liftIO (js_getIdentifier self) foreign import javascript unsafe "$1[\"webkitRadiusX\"]" js_getWebkitRadiusX :: Touch -> IO Int -- | getWebkitRadiusX :: (MonadIO m) => Touch -> m Int getWebkitRadiusX self = liftIO (js_getWebkitRadiusX self) foreign import javascript unsafe "$1[\"webkitRadiusY\"]" js_getWebkitRadiusY :: Touch -> IO Int -- | getWebkitRadiusY :: (MonadIO m) => Touch -> m Int getWebkitRadiusY self = liftIO (js_getWebkitRadiusY self) foreign import javascript unsafe "$1[\"webkitRotationAngle\"]" js_getWebkitRotationAngle :: Touch -> IO Float -- | getWebkitRotationAngle :: (MonadIO m) => Touch -> m Float getWebkitRotationAngle self = liftIO (js_getWebkitRotationAngle self) foreign import javascript unsafe "$1[\"webkitForce\"]" js_getWebkitForce :: Touch -> IO Float -- | getWebkitForce :: (MonadIO m) => Touch -> m Float getWebkitForce self = liftIO (js_getWebkitForce self)