module JSDOM.Generated.KeyboardEvent
(initKeyboardEvent, pattern DOM_KEY_LOCATION_STANDARD,
pattern DOM_KEY_LOCATION_LEFT, pattern DOM_KEY_LOCATION_RIGHT,
pattern DOM_KEY_LOCATION_NUMPAD, getKeyIdentifier, getLocation,
getKeyLocation, getCtrlKey, getShiftKey, getAltKey, getMetaKey,
getAltGraphKey, KeyboardEvent(..), gTypeKeyboardEvent)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
initKeyboardEvent ::
(MonadDOM 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
= liftDOM
(void
(self ^. jsf "initKeyboardEvent"
[toJSVal type', toJSVal canBubble, toJSVal cancelable,
toJSVal view, toJSVal keyIdentifier, toJSVal location,
toJSVal ctrlKey, toJSVal altKey, toJSVal shiftKey, toJSVal metaKey,
toJSVal 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
getKeyIdentifier ::
(MonadDOM m, FromJSString result) => KeyboardEvent -> m result
getKeyIdentifier self
= liftDOM ((self ^. js "keyIdentifier") >>= fromJSValUnchecked)
getLocation :: (MonadDOM m) => KeyboardEvent -> m Word
getLocation self
= liftDOM (round <$> ((self ^. js "location") >>= valToNumber))
getKeyLocation :: (MonadDOM m) => KeyboardEvent -> m Word
getKeyLocation self
= liftDOM (round <$> ((self ^. js "keyLocation") >>= valToNumber))
getCtrlKey :: (MonadDOM m) => KeyboardEvent -> m Bool
getCtrlKey self = liftDOM ((self ^. js "ctrlKey") >>= valToBool)
getShiftKey :: (MonadDOM m) => KeyboardEvent -> m Bool
getShiftKey self = liftDOM ((self ^. js "shiftKey") >>= valToBool)
getAltKey :: (MonadDOM m) => KeyboardEvent -> m Bool
getAltKey self = liftDOM ((self ^. js "altKey") >>= valToBool)
getMetaKey :: (MonadDOM m) => KeyboardEvent -> m Bool
getMetaKey self = liftDOM ((self ^. js "metaKey") >>= valToBool)
getAltGraphKey :: (MonadDOM m) => KeyboardEvent -> m Bool
getAltGraphKey self
= liftDOM ((self ^. js "altGraphKey") >>= valToBool)