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,
getTargetUnsafe, getTargetUnchecked, 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)
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 GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
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 (Nullable EventTarget)
getTarget :: (MonadIO m) => Touch -> m (Maybe EventTarget)
getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self)))
getTargetUnsafe ::
(MonadIO m, HasCallStack) => Touch -> m EventTarget
getTargetUnsafe self
= liftIO
((nullableToMaybe <$> (js_getTarget (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getTargetUnchecked :: (MonadIO m) => Touch -> m EventTarget
getTargetUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (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))