jsaddle-dom-0.10.0.0: src/JSDOM/Generated/EventModifierInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from uievents (webref). Do not edit.
module JSDOM.Generated.EventModifierInit
       (newEventModifierInit, setCtrlKey, getCtrlKey, getCtrlKeyUnsafe, getCtrlKeyUnchecked, setShiftKey, getShiftKey, getShiftKeyUnsafe, getShiftKeyUnchecked, setAltKey, getAltKey, getAltKeyUnsafe, getAltKeyUnchecked, setMetaKey, getMetaKey, getMetaKeyUnsafe, getMetaKeyUnchecked, setModifierAltGraph, getModifierAltGraph, getModifierAltGraphUnsafe, getModifierAltGraphUnchecked, setModifierCapsLock, getModifierCapsLock, getModifierCapsLockUnsafe, getModifierCapsLockUnchecked, setModifierFn, getModifierFn, getModifierFnUnsafe, getModifierFnUnchecked, setModifierFnLock, getModifierFnLock, getModifierFnLockUnsafe, getModifierFnLockUnchecked, setModifierHyper, getModifierHyper, getModifierHyperUnsafe, getModifierHyperUnchecked, setModifierNumLock, getModifierNumLock, getModifierNumLockUnsafe, getModifierNumLockUnchecked, setModifierScrollLock, getModifierScrollLock, getModifierScrollLockUnsafe, getModifierScrollLockUnchecked, setModifierSuper, getModifierSuper, getModifierSuperUnsafe, getModifierSuperUnchecked, setModifierSymbol, getModifierSymbol, getModifierSymbolUnsafe, getModifierSymbolUnchecked, setModifierSymbolLock, getModifierSymbolLock, getModifierSymbolLockUnsafe, getModifierSymbolLockUnchecked, EventModifierInit(..), gTypeEventModifierInit, IsEventModifierInit, toEventModifierInit)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://w3c.github.io/uievents/#dictdef-eventmodifierinit EventModifierInit specification>
newEventModifierInit :: (MonadDOM m) => m EventModifierInit
newEventModifierInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-ctrlkey EventModifierInit.ctrlKey specification>
setCtrlKey :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()
setCtrlKey self val = liftDOM (void ((Types.toEventModifierInit self) ^. jss "ctrlKey" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-ctrlkey EventModifierInit.ctrlKey specification>
getCtrlKey :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)
getCtrlKey self = liftDOM ((((Types.toEventModifierInit self) ^. js "ctrlKey") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-ctrlkey EventModifierInit.ctrlKey specification>
getCtrlKeyUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool
getCtrlKeyUnsafe self = liftDOM (((((Types.toEventModifierInit self) ^. js "ctrlKey") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-ctrlkey EventModifierInit.ctrlKey specification>
getCtrlKeyUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool
getCtrlKeyUnchecked self = liftDOM ((((Types.toEventModifierInit self) ^. js "ctrlKey") >>= valToBool))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-shiftkey EventModifierInit.shiftKey specification>
setShiftKey :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()
setShiftKey self val = liftDOM (void ((Types.toEventModifierInit self) ^. jss "shiftKey" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-shiftkey EventModifierInit.shiftKey specification>
getShiftKey :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)
getShiftKey self = liftDOM ((((Types.toEventModifierInit self) ^. js "shiftKey") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-shiftkey EventModifierInit.shiftKey specification>
getShiftKeyUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool
getShiftKeyUnsafe self = liftDOM (((((Types.toEventModifierInit self) ^. js "shiftKey") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-shiftkey EventModifierInit.shiftKey specification>
getShiftKeyUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool
getShiftKeyUnchecked self = liftDOM ((((Types.toEventModifierInit self) ^. js "shiftKey") >>= valToBool))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-altkey EventModifierInit.altKey specification>
setAltKey :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()
setAltKey self val = liftDOM (void ((Types.toEventModifierInit self) ^. jss "altKey" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-altkey EventModifierInit.altKey specification>
getAltKey :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)
getAltKey self = liftDOM ((((Types.toEventModifierInit self) ^. js "altKey") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-altkey EventModifierInit.altKey specification>
getAltKeyUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool
getAltKeyUnsafe self = liftDOM (((((Types.toEventModifierInit self) ^. js "altKey") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-altkey EventModifierInit.altKey specification>
getAltKeyUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool
getAltKeyUnchecked self = liftDOM ((((Types.toEventModifierInit self) ^. js "altKey") >>= valToBool))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-metakey EventModifierInit.metaKey specification>
setMetaKey :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()
setMetaKey self val = liftDOM (void ((Types.toEventModifierInit self) ^. jss "metaKey" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-metakey EventModifierInit.metaKey specification>
getMetaKey :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)
getMetaKey self = liftDOM ((((Types.toEventModifierInit self) ^. js "metaKey") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-metakey EventModifierInit.metaKey specification>
getMetaKeyUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool
getMetaKeyUnsafe self = liftDOM (((((Types.toEventModifierInit self) ^. js "metaKey") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-metakey EventModifierInit.metaKey specification>
getMetaKeyUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool
getMetaKeyUnchecked self = liftDOM ((((Types.toEventModifierInit self) ^. js "metaKey") >>= valToBool))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifieraltgraph EventModifierInit.modifierAltGraph specification>
setModifierAltGraph :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()
setModifierAltGraph self val = liftDOM (void ((Types.toEventModifierInit self) ^. jss "modifierAltGraph" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifieraltgraph EventModifierInit.modifierAltGraph specification>
getModifierAltGraph :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)
getModifierAltGraph self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierAltGraph") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifieraltgraph EventModifierInit.modifierAltGraph specification>
getModifierAltGraphUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool
getModifierAltGraphUnsafe self = liftDOM (((((Types.toEventModifierInit self) ^. js "modifierAltGraph") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifieraltgraph EventModifierInit.modifierAltGraph specification>
getModifierAltGraphUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool
getModifierAltGraphUnchecked self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierAltGraph") >>= valToBool))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiercapslock EventModifierInit.modifierCapsLock specification>
setModifierCapsLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()
setModifierCapsLock self val = liftDOM (void ((Types.toEventModifierInit self) ^. jss "modifierCapsLock" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiercapslock EventModifierInit.modifierCapsLock specification>
getModifierCapsLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)
getModifierCapsLock self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierCapsLock") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiercapslock EventModifierInit.modifierCapsLock specification>
getModifierCapsLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool
getModifierCapsLockUnsafe self = liftDOM (((((Types.toEventModifierInit self) ^. js "modifierCapsLock") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiercapslock EventModifierInit.modifierCapsLock specification>
getModifierCapsLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool
getModifierCapsLockUnchecked self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierCapsLock") >>= valToBool))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfn EventModifierInit.modifierFn specification>
setModifierFn :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()
setModifierFn self val = liftDOM (void ((Types.toEventModifierInit self) ^. jss "modifierFn" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfn EventModifierInit.modifierFn specification>
getModifierFn :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)
getModifierFn self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierFn") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfn EventModifierInit.modifierFn specification>
getModifierFnUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool
getModifierFnUnsafe self = liftDOM (((((Types.toEventModifierInit self) ^. js "modifierFn") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfn EventModifierInit.modifierFn specification>
getModifierFnUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool
getModifierFnUnchecked self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierFn") >>= valToBool))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfnlock EventModifierInit.modifierFnLock specification>
setModifierFnLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()
setModifierFnLock self val = liftDOM (void ((Types.toEventModifierInit self) ^. jss "modifierFnLock" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfnlock EventModifierInit.modifierFnLock specification>
getModifierFnLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)
getModifierFnLock self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierFnLock") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfnlock EventModifierInit.modifierFnLock specification>
getModifierFnLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool
getModifierFnLockUnsafe self = liftDOM (((((Types.toEventModifierInit self) ^. js "modifierFnLock") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierfnlock EventModifierInit.modifierFnLock specification>
getModifierFnLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool
getModifierFnLockUnchecked self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierFnLock") >>= valToBool))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierhyper EventModifierInit.modifierHyper specification>
setModifierHyper :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()
setModifierHyper self val = liftDOM (void ((Types.toEventModifierInit self) ^. jss "modifierHyper" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierhyper EventModifierInit.modifierHyper specification>
getModifierHyper :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)
getModifierHyper self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierHyper") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierhyper EventModifierInit.modifierHyper specification>
getModifierHyperUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool
getModifierHyperUnsafe self = liftDOM (((((Types.toEventModifierInit self) ^. js "modifierHyper") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierhyper EventModifierInit.modifierHyper specification>
getModifierHyperUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool
getModifierHyperUnchecked self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierHyper") >>= valToBool))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiernumlock EventModifierInit.modifierNumLock specification>
setModifierNumLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()
setModifierNumLock self val = liftDOM (void ((Types.toEventModifierInit self) ^. jss "modifierNumLock" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiernumlock EventModifierInit.modifierNumLock specification>
getModifierNumLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)
getModifierNumLock self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierNumLock") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiernumlock EventModifierInit.modifierNumLock specification>
getModifierNumLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool
getModifierNumLockUnsafe self = liftDOM (((((Types.toEventModifierInit self) ^. js "modifierNumLock") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiernumlock EventModifierInit.modifierNumLock specification>
getModifierNumLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool
getModifierNumLockUnchecked self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierNumLock") >>= valToBool))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierscrolllock EventModifierInit.modifierScrollLock specification>
setModifierScrollLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()
setModifierScrollLock self val = liftDOM (void ((Types.toEventModifierInit self) ^. jss "modifierScrollLock" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierscrolllock EventModifierInit.modifierScrollLock specification>
getModifierScrollLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)
getModifierScrollLock self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierScrollLock") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierscrolllock EventModifierInit.modifierScrollLock specification>
getModifierScrollLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool
getModifierScrollLockUnsafe self = liftDOM (((((Types.toEventModifierInit self) ^. js "modifierScrollLock") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifierscrolllock EventModifierInit.modifierScrollLock specification>
getModifierScrollLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool
getModifierScrollLockUnchecked self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierScrollLock") >>= valToBool))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersuper EventModifierInit.modifierSuper specification>
setModifierSuper :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()
setModifierSuper self val = liftDOM (void ((Types.toEventModifierInit self) ^. jss "modifierSuper" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersuper EventModifierInit.modifierSuper specification>
getModifierSuper :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)
getModifierSuper self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierSuper") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersuper EventModifierInit.modifierSuper specification>
getModifierSuperUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool
getModifierSuperUnsafe self = liftDOM (((((Types.toEventModifierInit self) ^. js "modifierSuper") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersuper EventModifierInit.modifierSuper specification>
getModifierSuperUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool
getModifierSuperUnchecked self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierSuper") >>= valToBool))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbol EventModifierInit.modifierSymbol specification>
setModifierSymbol :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()
setModifierSymbol self val = liftDOM (void ((Types.toEventModifierInit self) ^. jss "modifierSymbol" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbol EventModifierInit.modifierSymbol specification>
getModifierSymbol :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)
getModifierSymbol self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierSymbol") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbol EventModifierInit.modifierSymbol specification>
getModifierSymbolUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool
getModifierSymbolUnsafe self = liftDOM (((((Types.toEventModifierInit self) ^. js "modifierSymbol") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbol EventModifierInit.modifierSymbol specification>
getModifierSymbolUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool
getModifierSymbolUnchecked self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierSymbol") >>= valToBool))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbollock EventModifierInit.modifierSymbolLock specification>
setModifierSymbolLock :: (MonadDOM m, IsEventModifierInit self) => self -> Bool -> m ()
setModifierSymbolLock self val = liftDOM (void ((Types.toEventModifierInit self) ^. jss "modifierSymbolLock" (toJSVal val)))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbollock EventModifierInit.modifierSymbolLock specification>
getModifierSymbolLock :: (MonadDOM m, IsEventModifierInit self) => self -> m (Maybe Bool)
getModifierSymbolLock self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierSymbolLock") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbollock EventModifierInit.modifierSymbolLock specification>
getModifierSymbolLockUnsafe :: (MonadDOM m, IsEventModifierInit self, HasCallStack) => self -> m Bool
getModifierSymbolLockUnsafe self = liftDOM (((((Types.toEventModifierInit self) ^. js "modifierSymbolLock") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/uievents/#dom-eventmodifierinit-modifiersymbollock EventModifierInit.modifierSymbolLock specification>
getModifierSymbolLockUnchecked :: (MonadDOM m, IsEventModifierInit self) => self -> m Bool
getModifierSymbolLockUnchecked self = liftDOM ((((Types.toEventModifierInit self) ^. js "modifierSymbolLock") >>= valToBool))