{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} 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, castToTouch, gTypeTouch) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"clientX\"]" js_getClientX :: JSRef Touch -> IO Int -- | getClientX :: (MonadIO m) => Touch -> m Int getClientX self = liftIO (js_getClientX (unTouch self)) foreign import javascript unsafe "$1[\"clientY\"]" js_getClientY :: JSRef Touch -> IO Int -- | getClientY :: (MonadIO m) => Touch -> m Int getClientY self = liftIO (js_getClientY (unTouch self)) foreign import javascript unsafe "$1[\"screenX\"]" js_getScreenX :: JSRef Touch -> IO Int -- | getScreenX :: (MonadIO m) => Touch -> m Int getScreenX self = liftIO (js_getScreenX (unTouch self)) foreign import javascript unsafe "$1[\"screenY\"]" js_getScreenY :: JSRef Touch -> IO Int -- | getScreenY :: (MonadIO m) => Touch -> m Int getScreenY self = liftIO (js_getScreenY (unTouch self)) foreign import javascript unsafe "$1[\"pageX\"]" js_getPageX :: JSRef Touch -> IO Int -- | getPageX :: (MonadIO m) => Touch -> m Int getPageX self = liftIO (js_getPageX (unTouch self)) foreign import javascript unsafe "$1[\"pageY\"]" js_getPageY :: JSRef Touch -> IO Int -- | getPageY :: (MonadIO m) => Touch -> m Int getPageY self = liftIO (js_getPageY (unTouch self)) foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: JSRef Touch -> IO (JSRef EventTarget) -- | getTarget :: (MonadIO m) => Touch -> m (Maybe EventTarget) getTarget self = liftIO ((js_getTarget (unTouch self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"identifier\"]" js_getIdentifier :: JSRef Touch -> IO Word -- | getIdentifier :: (MonadIO m) => Touch -> m Word getIdentifier self = liftIO (js_getIdentifier (unTouch self)) foreign import javascript unsafe "$1[\"webkitRadiusX\"]" js_getWebkitRadiusX :: JSRef Touch -> IO Int -- | getWebkitRadiusX :: (MonadIO m) => Touch -> m Int getWebkitRadiusX self = liftIO (js_getWebkitRadiusX (unTouch self)) foreign import javascript unsafe "$1[\"webkitRadiusY\"]" js_getWebkitRadiusY :: JSRef Touch -> IO Int -- | getWebkitRadiusY :: (MonadIO m) => Touch -> m Int getWebkitRadiusY self = liftIO (js_getWebkitRadiusY (unTouch self)) foreign import javascript unsafe "$1[\"webkitRotationAngle\"]" js_getWebkitRotationAngle :: JSRef Touch -> IO Float -- | getWebkitRotationAngle :: (MonadIO m) => Touch -> m Float getWebkitRotationAngle self = liftIO (js_getWebkitRotationAngle (unTouch self)) foreign import javascript unsafe "$1[\"webkitForce\"]" js_getWebkitForce :: JSRef Touch -> IO Float -- | getWebkitForce :: (MonadIO m) => Touch -> m Float getWebkitForce self = liftIO (js_getWebkitForce (unTouch self))