MouseEvent.hs

{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}
module GHCJS.DOM.JSFFI.Generated.MouseEvent
       (js_initMouseEvent, initMouseEvent, js_getScreenX, getScreenX,
        js_getScreenY, getScreenY, js_getClientX, getClientX,
        js_getClientY, getClientY, js_getCtrlKey, getCtrlKey,
        js_getShiftKey, getShiftKey, js_getAltKey, getAltKey,
        js_getMetaKey, getMetaKey, js_getButton, getButton,
        js_getRelatedTarget, getRelatedTarget, js_getMovementX,
        getMovementX, js_getMovementY, getMovementY, js_getOffsetX,
        getOffsetX, js_getOffsetY, getOffsetY, js_getX, getX, js_getY,
        getY, js_getFromElement, getFromElement, js_getToElement,
        getToElement, js_getDataTransfer, getDataTransfer, MouseEvent,
        castToMouseEvent, gTypeMouseEvent, IsMouseEvent, toMouseEvent)
       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.Enums
 
foreign import javascript unsafe
        "$1[\"initMouseEvent\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12, $13, $14, $15, $16)"
        js_initMouseEvent ::
        JSRef MouseEvent ->
          JSString ->
            Bool ->
              Bool ->
                JSRef Window ->
                  Int ->
                    Int ->
                      Int ->
                        Int ->
                          Int ->
                            Bool -> Bool -> Bool -> Bool -> Word -> JSRef EventTarget -> IO ()

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.initMouseEvent Mozilla MouseEvent.initMouseEvent documentation> 
initMouseEvent ::
               (MonadIO m, IsMouseEvent self, ToJSString type',
                IsEventTarget relatedTarget) =>
                 self ->
                   type' ->
                     Bool ->
                       Bool ->
                         Maybe Window ->
                           Int ->
                             Int ->
                               Int ->
                                 Int ->
                                   Int ->
                                     Bool ->
                                       Bool -> Bool -> Bool -> Word -> Maybe relatedTarget -> m ()
initMouseEvent self type' canBubble cancelable view detail screenX
  screenY clientX clientY ctrlKey altKey shiftKey metaKey button
  relatedTarget
  = liftIO
      (js_initMouseEvent (unMouseEvent (toMouseEvent self))
         (toJSString type')
         canBubble
         cancelable
         (maybe jsNull pToJSRef view)
         detail
         screenX
         screenY
         clientX
         clientY
         ctrlKey
         altKey
         shiftKey
         metaKey
         button
         (maybe jsNull (unEventTarget . toEventTarget) relatedTarget))
 
foreign import javascript unsafe "$1[\"screenX\"]" js_getScreenX ::
        JSRef MouseEvent -> IO Int

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.screenX Mozilla MouseEvent.screenX documentation> 
getScreenX :: (MonadIO m, IsMouseEvent self) => self -> m Int
getScreenX self
  = liftIO (js_getScreenX (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "$1[\"screenY\"]" js_getScreenY ::
        JSRef MouseEvent -> IO Int

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.screenY Mozilla MouseEvent.screenY documentation> 
getScreenY :: (MonadIO m, IsMouseEvent self) => self -> m Int
getScreenY self
  = liftIO (js_getScreenY (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "$1[\"clientX\"]" js_getClientX ::
        JSRef MouseEvent -> IO Int

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.clientX Mozilla MouseEvent.clientX documentation> 
getClientX :: (MonadIO m, IsMouseEvent self) => self -> m Int
getClientX self
  = liftIO (js_getClientX (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "$1[\"clientY\"]" js_getClientY ::
        JSRef MouseEvent -> IO Int

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.clientY Mozilla MouseEvent.clientY documentation> 
getClientY :: (MonadIO m, IsMouseEvent self) => self -> m Int
getClientY self
  = liftIO (js_getClientY (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)"
        js_getCtrlKey :: JSRef MouseEvent -> IO Bool

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.ctrlKey Mozilla MouseEvent.ctrlKey documentation> 
getCtrlKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool
getCtrlKey self
  = liftIO (js_getCtrlKey (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)"
        js_getShiftKey :: JSRef MouseEvent -> IO Bool

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.shiftKey Mozilla MouseEvent.shiftKey documentation> 
getShiftKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool
getShiftKey self
  = liftIO (js_getShiftKey (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)"
        js_getAltKey :: JSRef MouseEvent -> IO Bool

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.altKey Mozilla MouseEvent.altKey documentation> 
getAltKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool
getAltKey self
  = liftIO (js_getAltKey (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)"
        js_getMetaKey :: JSRef MouseEvent -> IO Bool

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.metaKey Mozilla MouseEvent.metaKey documentation> 
getMetaKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool
getMetaKey self
  = liftIO (js_getMetaKey (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "$1[\"button\"]" js_getButton ::
        JSRef MouseEvent -> IO Word

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.button Mozilla MouseEvent.button documentation> 
getButton :: (MonadIO m, IsMouseEvent self) => self -> m Word
getButton self
  = liftIO (js_getButton (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "$1[\"relatedTarget\"]"
        js_getRelatedTarget :: JSRef MouseEvent -> IO (JSRef EventTarget)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.relatedTarget Mozilla MouseEvent.relatedTarget documentation> 
getRelatedTarget ::
                 (MonadIO m, IsMouseEvent self) => self -> m (Maybe EventTarget)
getRelatedTarget self
  = liftIO
      ((js_getRelatedTarget (unMouseEvent (toMouseEvent self))) >>=
         fromJSRef)
 
foreign import javascript unsafe "$1[\"movementX\"]"
        js_getMovementX :: JSRef MouseEvent -> IO Int

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.movementX Mozilla MouseEvent.movementX documentation> 
getMovementX :: (MonadIO m, IsMouseEvent self) => self -> m Int
getMovementX self
  = liftIO (js_getMovementX (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "$1[\"movementY\"]"
        js_getMovementY :: JSRef MouseEvent -> IO Int

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.movementY Mozilla MouseEvent.movementY documentation> 
getMovementY :: (MonadIO m, IsMouseEvent self) => self -> m Int
getMovementY self
  = liftIO (js_getMovementY (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "$1[\"offsetX\"]" js_getOffsetX ::
        JSRef MouseEvent -> IO Int

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.offsetX Mozilla MouseEvent.offsetX documentation> 
getOffsetX :: (MonadIO m, IsMouseEvent self) => self -> m Int
getOffsetX self
  = liftIO (js_getOffsetX (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "$1[\"offsetY\"]" js_getOffsetY ::
        JSRef MouseEvent -> IO Int

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.offsetY Mozilla MouseEvent.offsetY documentation> 
getOffsetY :: (MonadIO m, IsMouseEvent self) => self -> m Int
getOffsetY self
  = liftIO (js_getOffsetY (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "$1[\"x\"]" js_getX ::
        JSRef MouseEvent -> IO Int

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.x Mozilla MouseEvent.x documentation> 
getX :: (MonadIO m, IsMouseEvent self) => self -> m Int
getX self = liftIO (js_getX (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "$1[\"y\"]" js_getY ::
        JSRef MouseEvent -> IO Int

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.y Mozilla MouseEvent.y documentation> 
getY :: (MonadIO m, IsMouseEvent self) => self -> m Int
getY self = liftIO (js_getY (unMouseEvent (toMouseEvent self)))
 
foreign import javascript unsafe "$1[\"fromElement\"]"
        js_getFromElement :: JSRef MouseEvent -> IO (JSRef Node)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.fromElement Mozilla MouseEvent.fromElement documentation> 
getFromElement ::
               (MonadIO m, IsMouseEvent self) => self -> m (Maybe Node)
getFromElement self
  = liftIO
      ((js_getFromElement (unMouseEvent (toMouseEvent self))) >>=
         fromJSRef)
 
foreign import javascript unsafe "$1[\"toElement\"]"
        js_getToElement :: JSRef MouseEvent -> IO (JSRef Node)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.toElement Mozilla MouseEvent.toElement documentation> 
getToElement ::
             (MonadIO m, IsMouseEvent self) => self -> m (Maybe Node)
getToElement self
  = liftIO
      ((js_getToElement (unMouseEvent (toMouseEvent self))) >>=
         fromJSRef)
 
foreign import javascript unsafe "$1[\"dataTransfer\"]"
        js_getDataTransfer :: JSRef MouseEvent -> IO (JSRef DataTransfer)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.dataTransfer Mozilla MouseEvent.dataTransfer documentation> 
getDataTransfer ::
                (MonadIO m, IsMouseEvent self) => self -> m (Maybe DataTransfer)
getDataTransfer self
  = liftIO
      ((js_getDataTransfer (unMouseEvent (toMouseEvent self))) >>=
         fromJSRef)