module GI.WebKit.Objects.DOMKeyboardEvent
(
DOMKeyboardEvent(..) ,
DOMKeyboardEventK ,
toDOMKeyboardEvent ,
noDOMKeyboardEvent ,
dOMKeyboardEventGetAltGraphKey ,
dOMKeyboardEventGetAltKey ,
dOMKeyboardEventGetCtrlKey ,
dOMKeyboardEventGetKeyIdentifier ,
dOMKeyboardEventGetKeyLocation ,
dOMKeyboardEventGetMetaKey ,
dOMKeyboardEventGetModifierState ,
dOMKeyboardEventGetShiftKey ,
dOMKeyboardEventInitKeyboardEvent ,
DOMKeyboardEventAltGraphKeyPropertyInfo ,
getDOMKeyboardEventAltGraphKey ,
DOMKeyboardEventAltKeyPropertyInfo ,
getDOMKeyboardEventAltKey ,
DOMKeyboardEventCtrlKeyPropertyInfo ,
getDOMKeyboardEventCtrlKey ,
DOMKeyboardEventKeyIdentifierPropertyInfo,
getDOMKeyboardEventKeyIdentifier ,
DOMKeyboardEventKeyLocationPropertyInfo ,
getDOMKeyboardEventKeyLocation ,
DOMKeyboardEventMetaKeyPropertyInfo ,
getDOMKeyboardEventMetaKey ,
DOMKeyboardEventShiftKeyPropertyInfo ,
getDOMKeyboardEventShiftKey ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
newtype DOMKeyboardEvent = DOMKeyboardEvent (ForeignPtr DOMKeyboardEvent)
foreign import ccall "webkit_dom_keyboard_event_get_type"
c_webkit_dom_keyboard_event_get_type :: IO GType
type instance ParentTypes DOMKeyboardEvent = DOMKeyboardEventParentTypes
type DOMKeyboardEventParentTypes = '[DOMUIEvent, DOMEvent, DOMObject, GObject.Object]
instance GObject DOMKeyboardEvent where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_keyboard_event_get_type
class GObject o => DOMKeyboardEventK o
instance (GObject o, IsDescendantOf DOMKeyboardEvent o) => DOMKeyboardEventK o
toDOMKeyboardEvent :: DOMKeyboardEventK o => o -> IO DOMKeyboardEvent
toDOMKeyboardEvent = unsafeCastTo DOMKeyboardEvent
noDOMKeyboardEvent :: Maybe DOMKeyboardEvent
noDOMKeyboardEvent = Nothing
getDOMKeyboardEventAltGraphKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool
getDOMKeyboardEventAltGraphKey obj = liftIO $ getObjectPropertyBool obj "alt-graph-key"
data DOMKeyboardEventAltGraphKeyPropertyInfo
instance AttrInfo DOMKeyboardEventAltGraphKeyPropertyInfo where
type AttrAllowedOps DOMKeyboardEventAltGraphKeyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMKeyboardEventAltGraphKeyPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMKeyboardEventAltGraphKeyPropertyInfo = DOMKeyboardEventK
type AttrGetType DOMKeyboardEventAltGraphKeyPropertyInfo = Bool
type AttrLabel DOMKeyboardEventAltGraphKeyPropertyInfo = "DOMKeyboardEvent::alt-graph-key"
attrGet _ = getDOMKeyboardEventAltGraphKey
attrSet _ = undefined
attrConstruct _ = undefined
getDOMKeyboardEventAltKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool
getDOMKeyboardEventAltKey obj = liftIO $ getObjectPropertyBool obj "alt-key"
data DOMKeyboardEventAltKeyPropertyInfo
instance AttrInfo DOMKeyboardEventAltKeyPropertyInfo where
type AttrAllowedOps DOMKeyboardEventAltKeyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMKeyboardEventAltKeyPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMKeyboardEventAltKeyPropertyInfo = DOMKeyboardEventK
type AttrGetType DOMKeyboardEventAltKeyPropertyInfo = Bool
type AttrLabel DOMKeyboardEventAltKeyPropertyInfo = "DOMKeyboardEvent::alt-key"
attrGet _ = getDOMKeyboardEventAltKey
attrSet _ = undefined
attrConstruct _ = undefined
getDOMKeyboardEventCtrlKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool
getDOMKeyboardEventCtrlKey obj = liftIO $ getObjectPropertyBool obj "ctrl-key"
data DOMKeyboardEventCtrlKeyPropertyInfo
instance AttrInfo DOMKeyboardEventCtrlKeyPropertyInfo where
type AttrAllowedOps DOMKeyboardEventCtrlKeyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMKeyboardEventCtrlKeyPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMKeyboardEventCtrlKeyPropertyInfo = DOMKeyboardEventK
type AttrGetType DOMKeyboardEventCtrlKeyPropertyInfo = Bool
type AttrLabel DOMKeyboardEventCtrlKeyPropertyInfo = "DOMKeyboardEvent::ctrl-key"
attrGet _ = getDOMKeyboardEventCtrlKey
attrSet _ = undefined
attrConstruct _ = undefined
getDOMKeyboardEventKeyIdentifier :: (MonadIO m, DOMKeyboardEventK o) => o -> m T.Text
getDOMKeyboardEventKeyIdentifier obj = liftIO $ getObjectPropertyString obj "key-identifier"
data DOMKeyboardEventKeyIdentifierPropertyInfo
instance AttrInfo DOMKeyboardEventKeyIdentifierPropertyInfo where
type AttrAllowedOps DOMKeyboardEventKeyIdentifierPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMKeyboardEventKeyIdentifierPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMKeyboardEventKeyIdentifierPropertyInfo = DOMKeyboardEventK
type AttrGetType DOMKeyboardEventKeyIdentifierPropertyInfo = T.Text
type AttrLabel DOMKeyboardEventKeyIdentifierPropertyInfo = "DOMKeyboardEvent::key-identifier"
attrGet _ = getDOMKeyboardEventKeyIdentifier
attrSet _ = undefined
attrConstruct _ = undefined
getDOMKeyboardEventKeyLocation :: (MonadIO m, DOMKeyboardEventK o) => o -> m Word64
getDOMKeyboardEventKeyLocation obj = liftIO $ getObjectPropertyUInt64 obj "key-location"
data DOMKeyboardEventKeyLocationPropertyInfo
instance AttrInfo DOMKeyboardEventKeyLocationPropertyInfo where
type AttrAllowedOps DOMKeyboardEventKeyLocationPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMKeyboardEventKeyLocationPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMKeyboardEventKeyLocationPropertyInfo = DOMKeyboardEventK
type AttrGetType DOMKeyboardEventKeyLocationPropertyInfo = Word64
type AttrLabel DOMKeyboardEventKeyLocationPropertyInfo = "DOMKeyboardEvent::key-location"
attrGet _ = getDOMKeyboardEventKeyLocation
attrSet _ = undefined
attrConstruct _ = undefined
getDOMKeyboardEventMetaKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool
getDOMKeyboardEventMetaKey obj = liftIO $ getObjectPropertyBool obj "meta-key"
data DOMKeyboardEventMetaKeyPropertyInfo
instance AttrInfo DOMKeyboardEventMetaKeyPropertyInfo where
type AttrAllowedOps DOMKeyboardEventMetaKeyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMKeyboardEventMetaKeyPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMKeyboardEventMetaKeyPropertyInfo = DOMKeyboardEventK
type AttrGetType DOMKeyboardEventMetaKeyPropertyInfo = Bool
type AttrLabel DOMKeyboardEventMetaKeyPropertyInfo = "DOMKeyboardEvent::meta-key"
attrGet _ = getDOMKeyboardEventMetaKey
attrSet _ = undefined
attrConstruct _ = undefined
getDOMKeyboardEventShiftKey :: (MonadIO m, DOMKeyboardEventK o) => o -> m Bool
getDOMKeyboardEventShiftKey obj = liftIO $ getObjectPropertyBool obj "shift-key"
data DOMKeyboardEventShiftKeyPropertyInfo
instance AttrInfo DOMKeyboardEventShiftKeyPropertyInfo where
type AttrAllowedOps DOMKeyboardEventShiftKeyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMKeyboardEventShiftKeyPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMKeyboardEventShiftKeyPropertyInfo = DOMKeyboardEventK
type AttrGetType DOMKeyboardEventShiftKeyPropertyInfo = Bool
type AttrLabel DOMKeyboardEventShiftKeyPropertyInfo = "DOMKeyboardEvent::shift-key"
attrGet _ = getDOMKeyboardEventShiftKey
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMKeyboardEvent = DOMKeyboardEventAttributeList
type DOMKeyboardEventAttributeList = ('[ '("alt-graph-key", DOMKeyboardEventAltGraphKeyPropertyInfo), '("alt-key", DOMKeyboardEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("ctrl-key", DOMKeyboardEventCtrlKeyPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("key-identifier", DOMKeyboardEventKeyIdentifierPropertyInfo), '("key-location", DOMKeyboardEventKeyLocationPropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("meta-key", DOMKeyboardEventMetaKeyPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("shift-key", DOMKeyboardEventShiftKeyPropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMKeyboardEvent = DOMKeyboardEventSignalList
type DOMKeyboardEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_keyboard_event_get_alt_graph_key" webkit_dom_keyboard_event_get_alt_graph_key ::
Ptr DOMKeyboardEvent ->
IO CInt
dOMKeyboardEventGetAltGraphKey ::
(MonadIO m, DOMKeyboardEventK a) =>
a ->
m Bool
dOMKeyboardEventGetAltGraphKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_keyboard_event_get_alt_graph_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_keyboard_event_get_alt_key" webkit_dom_keyboard_event_get_alt_key ::
Ptr DOMKeyboardEvent ->
IO CInt
dOMKeyboardEventGetAltKey ::
(MonadIO m, DOMKeyboardEventK a) =>
a ->
m Bool
dOMKeyboardEventGetAltKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_keyboard_event_get_alt_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_keyboard_event_get_ctrl_key" webkit_dom_keyboard_event_get_ctrl_key ::
Ptr DOMKeyboardEvent ->
IO CInt
dOMKeyboardEventGetCtrlKey ::
(MonadIO m, DOMKeyboardEventK a) =>
a ->
m Bool
dOMKeyboardEventGetCtrlKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_keyboard_event_get_ctrl_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_keyboard_event_get_key_identifier" webkit_dom_keyboard_event_get_key_identifier ::
Ptr DOMKeyboardEvent ->
IO CString
dOMKeyboardEventGetKeyIdentifier ::
(MonadIO m, DOMKeyboardEventK a) =>
a ->
m T.Text
dOMKeyboardEventGetKeyIdentifier _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_keyboard_event_get_key_identifier _obj'
checkUnexpectedReturnNULL "webkit_dom_keyboard_event_get_key_identifier" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_keyboard_event_get_key_location" webkit_dom_keyboard_event_get_key_location ::
Ptr DOMKeyboardEvent ->
IO Word64
dOMKeyboardEventGetKeyLocation ::
(MonadIO m, DOMKeyboardEventK a) =>
a ->
m Word64
dOMKeyboardEventGetKeyLocation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_keyboard_event_get_key_location _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_keyboard_event_get_meta_key" webkit_dom_keyboard_event_get_meta_key ::
Ptr DOMKeyboardEvent ->
IO CInt
dOMKeyboardEventGetMetaKey ::
(MonadIO m, DOMKeyboardEventK a) =>
a ->
m Bool
dOMKeyboardEventGetMetaKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_keyboard_event_get_meta_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_keyboard_event_get_modifier_state" webkit_dom_keyboard_event_get_modifier_state ::
Ptr DOMKeyboardEvent ->
CString ->
IO CInt
dOMKeyboardEventGetModifierState ::
(MonadIO m, DOMKeyboardEventK a) =>
a ->
T.Text ->
m Bool
dOMKeyboardEventGetModifierState _obj keyIdentifierArg = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
keyIdentifierArg' <- textToCString keyIdentifierArg
result <- webkit_dom_keyboard_event_get_modifier_state _obj' keyIdentifierArg'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem keyIdentifierArg'
return result'
foreign import ccall "webkit_dom_keyboard_event_get_shift_key" webkit_dom_keyboard_event_get_shift_key ::
Ptr DOMKeyboardEvent ->
IO CInt
dOMKeyboardEventGetShiftKey ::
(MonadIO m, DOMKeyboardEventK a) =>
a ->
m Bool
dOMKeyboardEventGetShiftKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_keyboard_event_get_shift_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_keyboard_event_init_keyboard_event" webkit_dom_keyboard_event_init_keyboard_event ::
Ptr DOMKeyboardEvent ->
CString ->
CInt ->
CInt ->
Ptr DOMDOMWindow ->
CString ->
Word64 ->
CInt ->
CInt ->
CInt ->
CInt ->
CInt ->
IO ()
dOMKeyboardEventInitKeyboardEvent ::
(MonadIO m, DOMKeyboardEventK a, DOMDOMWindowK b) =>
a ->
T.Text ->
Bool ->
Bool ->
b ->
T.Text ->
Word64 ->
Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
m ()
dOMKeyboardEventInitKeyboardEvent _obj type_ canBubble cancelable view keyIdentifier location ctrlKey altKey shiftKey metaKey altGraphKey = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
type_' <- textToCString type_
let canBubble' = (fromIntegral . fromEnum) canBubble
let cancelable' = (fromIntegral . fromEnum) cancelable
let view' = unsafeManagedPtrCastPtr view
keyIdentifier' <- textToCString keyIdentifier
let ctrlKey' = (fromIntegral . fromEnum) ctrlKey
let altKey' = (fromIntegral . fromEnum) altKey
let shiftKey' = (fromIntegral . fromEnum) shiftKey
let metaKey' = (fromIntegral . fromEnum) metaKey
let altGraphKey' = (fromIntegral . fromEnum) altGraphKey
webkit_dom_keyboard_event_init_keyboard_event _obj' type_' canBubble' cancelable' view' keyIdentifier' location ctrlKey' altKey' shiftKey' metaKey' altGraphKey'
touchManagedPtr _obj
touchManagedPtr view
freeMem type_'
freeMem keyIdentifier'
return ()