module GHCJS.DOM.JSFFI.Generated.KeyboardEvent
(js_initKeyboardEvent, initKeyboardEvent,
pattern DOM_KEY_LOCATION_STANDARD, pattern DOM_KEY_LOCATION_LEFT,
pattern DOM_KEY_LOCATION_RIGHT, pattern DOM_KEY_LOCATION_NUMPAD,
js_getKeyIdentifier, getKeyIdentifier, js_getLocation, getLocation,
js_getKeyLocation, getKeyLocation, js_getCtrlKey, getCtrlKey,
js_getShiftKey, getShiftKey, js_getAltKey, getAltKey,
js_getMetaKey, getMetaKey, js_getAltGraphKey, getAltGraphKey,
KeyboardEvent(..), gTypeKeyboardEvent)
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[\"initKeyboardEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11, $12)"
js_initKeyboardEvent ::
KeyboardEvent ->
JSString ->
Bool ->
Bool ->
Nullable Window ->
JSString -> Word -> Bool -> Bool -> Bool -> Bool -> Bool -> IO ()
initKeyboardEvent ::
(MonadIO m, ToJSString type', ToJSString keyIdentifier) =>
KeyboardEvent ->
type' ->
Bool ->
Bool ->
Maybe Window ->
keyIdentifier ->
Word -> Bool -> Bool -> Bool -> Bool -> Bool -> m ()
initKeyboardEvent self type' canBubble cancelable view
keyIdentifier location ctrlKey altKey shiftKey metaKey altGraphKey
= liftIO
(js_initKeyboardEvent (self) (toJSString type') canBubble
cancelable
(maybeToNullable view)
(toJSString keyIdentifier)
location
ctrlKey
altKey
shiftKey
metaKey
altGraphKey)
pattern DOM_KEY_LOCATION_STANDARD = 0
pattern DOM_KEY_LOCATION_LEFT = 1
pattern DOM_KEY_LOCATION_RIGHT = 2
pattern DOM_KEY_LOCATION_NUMPAD = 3
foreign import javascript unsafe "$1[\"keyIdentifier\"]"
js_getKeyIdentifier :: KeyboardEvent -> IO JSString
getKeyIdentifier ::
(MonadIO m, FromJSString result) => KeyboardEvent -> m result
getKeyIdentifier self
= liftIO (fromJSString <$> (js_getKeyIdentifier (self)))
foreign import javascript unsafe "$1[\"location\"]" js_getLocation
:: KeyboardEvent -> IO Word
getLocation :: (MonadIO m) => KeyboardEvent -> m Word
getLocation self = liftIO (js_getLocation (self))
foreign import javascript unsafe "$1[\"keyLocation\"]"
js_getKeyLocation :: KeyboardEvent -> IO Word
getKeyLocation :: (MonadIO m) => KeyboardEvent -> m Word
getKeyLocation self = liftIO (js_getKeyLocation (self))
foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)"
js_getCtrlKey :: KeyboardEvent -> IO Bool
getCtrlKey :: (MonadIO m) => KeyboardEvent -> m Bool
getCtrlKey self = liftIO (js_getCtrlKey (self))
foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)"
js_getShiftKey :: KeyboardEvent -> IO Bool
getShiftKey :: (MonadIO m) => KeyboardEvent -> m Bool
getShiftKey self = liftIO (js_getShiftKey (self))
foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)"
js_getAltKey :: KeyboardEvent -> IO Bool
getAltKey :: (MonadIO m) => KeyboardEvent -> m Bool
getAltKey self = liftIO (js_getAltKey (self))
foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)"
js_getMetaKey :: KeyboardEvent -> IO Bool
getMetaKey :: (MonadIO m) => KeyboardEvent -> m Bool
getMetaKey self = liftIO (js_getMetaKey (self))
foreign import javascript unsafe "($1[\"altGraphKey\"] ? 1 : 0)"
js_getAltGraphKey :: KeyboardEvent -> IO Bool
getAltGraphKey :: (MonadIO m) => KeyboardEvent -> m Bool
getAltGraphKey self = liftIO (js_getAltGraphKey (self))