module GI.WebKit2WebExtension.Objects.DOMMouseEvent
(
DOMMouseEvent(..) ,
DOMMouseEventK ,
toDOMMouseEvent ,
noDOMMouseEvent ,
dOMMouseEventGetAltKey ,
dOMMouseEventGetButton ,
dOMMouseEventGetClientX ,
dOMMouseEventGetClientY ,
dOMMouseEventGetCtrlKey ,
dOMMouseEventGetFromElement ,
dOMMouseEventGetMetaKey ,
dOMMouseEventGetOffsetX ,
dOMMouseEventGetOffsetY ,
dOMMouseEventGetRelatedTarget ,
dOMMouseEventGetScreenX ,
dOMMouseEventGetScreenY ,
dOMMouseEventGetShiftKey ,
dOMMouseEventGetToElement ,
dOMMouseEventGetX ,
dOMMouseEventGetY ,
dOMMouseEventInitMouseEvent ,
DOMMouseEventAltKeyPropertyInfo ,
getDOMMouseEventAltKey ,
DOMMouseEventButtonPropertyInfo ,
getDOMMouseEventButton ,
DOMMouseEventClientXPropertyInfo ,
getDOMMouseEventClientX ,
DOMMouseEventClientYPropertyInfo ,
getDOMMouseEventClientY ,
DOMMouseEventCtrlKeyPropertyInfo ,
getDOMMouseEventCtrlKey ,
DOMMouseEventFromElementPropertyInfo ,
getDOMMouseEventFromElement ,
DOMMouseEventMetaKeyPropertyInfo ,
getDOMMouseEventMetaKey ,
DOMMouseEventMovementXPropertyInfo ,
getDOMMouseEventMovementX ,
DOMMouseEventMovementYPropertyInfo ,
getDOMMouseEventMovementY ,
DOMMouseEventOffsetXPropertyInfo ,
getDOMMouseEventOffsetX ,
DOMMouseEventOffsetYPropertyInfo ,
getDOMMouseEventOffsetY ,
DOMMouseEventRelatedTargetPropertyInfo ,
getDOMMouseEventRelatedTarget ,
DOMMouseEventScreenXPropertyInfo ,
getDOMMouseEventScreenX ,
DOMMouseEventScreenYPropertyInfo ,
getDOMMouseEventScreenY ,
DOMMouseEventShiftKeyPropertyInfo ,
getDOMMouseEventShiftKey ,
DOMMouseEventToElementPropertyInfo ,
getDOMMouseEventToElement ,
DOMMouseEventXPropertyInfo ,
getDOMMouseEventX ,
DOMMouseEventYPropertyInfo ,
getDOMMouseEventY ,
) 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.WebKit2WebExtension.Types
import GI.WebKit2WebExtension.Callbacks
import qualified GI.GObject as GObject
newtype DOMMouseEvent = DOMMouseEvent (ForeignPtr DOMMouseEvent)
foreign import ccall "webkit_dom_mouse_event_get_type"
c_webkit_dom_mouse_event_get_type :: IO GType
type instance ParentTypes DOMMouseEvent = DOMMouseEventParentTypes
type DOMMouseEventParentTypes = '[DOMUIEvent, DOMEvent, DOMObject, GObject.Object]
instance GObject DOMMouseEvent where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_mouse_event_get_type
class GObject o => DOMMouseEventK o
instance (GObject o, IsDescendantOf DOMMouseEvent o) => DOMMouseEventK o
toDOMMouseEvent :: DOMMouseEventK o => o -> IO DOMMouseEvent
toDOMMouseEvent = unsafeCastTo DOMMouseEvent
noDOMMouseEvent :: Maybe DOMMouseEvent
noDOMMouseEvent = Nothing
getDOMMouseEventAltKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool
getDOMMouseEventAltKey obj = liftIO $ getObjectPropertyBool obj "alt-key"
data DOMMouseEventAltKeyPropertyInfo
instance AttrInfo DOMMouseEventAltKeyPropertyInfo where
type AttrAllowedOps DOMMouseEventAltKeyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventAltKeyPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventAltKeyPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventAltKeyPropertyInfo = Bool
type AttrLabel DOMMouseEventAltKeyPropertyInfo = "DOMMouseEvent::alt-key"
attrGet _ = getDOMMouseEventAltKey
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventButton :: (MonadIO m, DOMMouseEventK o) => o -> m Word32
getDOMMouseEventButton obj = liftIO $ getObjectPropertyCUInt obj "button"
data DOMMouseEventButtonPropertyInfo
instance AttrInfo DOMMouseEventButtonPropertyInfo where
type AttrAllowedOps DOMMouseEventButtonPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventButtonPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventButtonPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventButtonPropertyInfo = Word32
type AttrLabel DOMMouseEventButtonPropertyInfo = "DOMMouseEvent::button"
attrGet _ = getDOMMouseEventButton
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventClientX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64
getDOMMouseEventClientX obj = liftIO $ getObjectPropertyInt64 obj "client-x"
data DOMMouseEventClientXPropertyInfo
instance AttrInfo DOMMouseEventClientXPropertyInfo where
type AttrAllowedOps DOMMouseEventClientXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventClientXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventClientXPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventClientXPropertyInfo = Int64
type AttrLabel DOMMouseEventClientXPropertyInfo = "DOMMouseEvent::client-x"
attrGet _ = getDOMMouseEventClientX
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventClientY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64
getDOMMouseEventClientY obj = liftIO $ getObjectPropertyInt64 obj "client-y"
data DOMMouseEventClientYPropertyInfo
instance AttrInfo DOMMouseEventClientYPropertyInfo where
type AttrAllowedOps DOMMouseEventClientYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventClientYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventClientYPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventClientYPropertyInfo = Int64
type AttrLabel DOMMouseEventClientYPropertyInfo = "DOMMouseEvent::client-y"
attrGet _ = getDOMMouseEventClientY
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventCtrlKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool
getDOMMouseEventCtrlKey obj = liftIO $ getObjectPropertyBool obj "ctrl-key"
data DOMMouseEventCtrlKeyPropertyInfo
instance AttrInfo DOMMouseEventCtrlKeyPropertyInfo where
type AttrAllowedOps DOMMouseEventCtrlKeyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventCtrlKeyPropertyInfo = Bool
type AttrLabel DOMMouseEventCtrlKeyPropertyInfo = "DOMMouseEvent::ctrl-key"
attrGet _ = getDOMMouseEventCtrlKey
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventFromElement :: (MonadIO m, DOMMouseEventK o) => o -> m DOMNode
getDOMMouseEventFromElement obj = liftIO $ getObjectPropertyObject obj "from-element" DOMNode
data DOMMouseEventFromElementPropertyInfo
instance AttrInfo DOMMouseEventFromElementPropertyInfo where
type AttrAllowedOps DOMMouseEventFromElementPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventFromElementPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventFromElementPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventFromElementPropertyInfo = DOMNode
type AttrLabel DOMMouseEventFromElementPropertyInfo = "DOMMouseEvent::from-element"
attrGet _ = getDOMMouseEventFromElement
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventMetaKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool
getDOMMouseEventMetaKey obj = liftIO $ getObjectPropertyBool obj "meta-key"
data DOMMouseEventMetaKeyPropertyInfo
instance AttrInfo DOMMouseEventMetaKeyPropertyInfo where
type AttrAllowedOps DOMMouseEventMetaKeyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventMetaKeyPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventMetaKeyPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventMetaKeyPropertyInfo = Bool
type AttrLabel DOMMouseEventMetaKeyPropertyInfo = "DOMMouseEvent::meta-key"
attrGet _ = getDOMMouseEventMetaKey
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventMovementX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64
getDOMMouseEventMovementX obj = liftIO $ getObjectPropertyInt64 obj "movement-x"
data DOMMouseEventMovementXPropertyInfo
instance AttrInfo DOMMouseEventMovementXPropertyInfo where
type AttrAllowedOps DOMMouseEventMovementXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventMovementXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventMovementXPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventMovementXPropertyInfo = Int64
type AttrLabel DOMMouseEventMovementXPropertyInfo = "DOMMouseEvent::movement-x"
attrGet _ = getDOMMouseEventMovementX
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventMovementY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64
getDOMMouseEventMovementY obj = liftIO $ getObjectPropertyInt64 obj "movement-y"
data DOMMouseEventMovementYPropertyInfo
instance AttrInfo DOMMouseEventMovementYPropertyInfo where
type AttrAllowedOps DOMMouseEventMovementYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventMovementYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventMovementYPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventMovementYPropertyInfo = Int64
type AttrLabel DOMMouseEventMovementYPropertyInfo = "DOMMouseEvent::movement-y"
attrGet _ = getDOMMouseEventMovementY
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventOffsetX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64
getDOMMouseEventOffsetX obj = liftIO $ getObjectPropertyInt64 obj "offset-x"
data DOMMouseEventOffsetXPropertyInfo
instance AttrInfo DOMMouseEventOffsetXPropertyInfo where
type AttrAllowedOps DOMMouseEventOffsetXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventOffsetXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventOffsetXPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventOffsetXPropertyInfo = Int64
type AttrLabel DOMMouseEventOffsetXPropertyInfo = "DOMMouseEvent::offset-x"
attrGet _ = getDOMMouseEventOffsetX
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventOffsetY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64
getDOMMouseEventOffsetY obj = liftIO $ getObjectPropertyInt64 obj "offset-y"
data DOMMouseEventOffsetYPropertyInfo
instance AttrInfo DOMMouseEventOffsetYPropertyInfo where
type AttrAllowedOps DOMMouseEventOffsetYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventOffsetYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventOffsetYPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventOffsetYPropertyInfo = Int64
type AttrLabel DOMMouseEventOffsetYPropertyInfo = "DOMMouseEvent::offset-y"
attrGet _ = getDOMMouseEventOffsetY
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventRelatedTarget :: (MonadIO m, DOMMouseEventK o) => o -> m DOMEventTarget
getDOMMouseEventRelatedTarget obj = liftIO $ getObjectPropertyObject obj "related-target" DOMEventTarget
data DOMMouseEventRelatedTargetPropertyInfo
instance AttrInfo DOMMouseEventRelatedTargetPropertyInfo where
type AttrAllowedOps DOMMouseEventRelatedTargetPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventRelatedTargetPropertyInfo = DOMEventTarget
type AttrLabel DOMMouseEventRelatedTargetPropertyInfo = "DOMMouseEvent::related-target"
attrGet _ = getDOMMouseEventRelatedTarget
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventScreenX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64
getDOMMouseEventScreenX obj = liftIO $ getObjectPropertyInt64 obj "screen-x"
data DOMMouseEventScreenXPropertyInfo
instance AttrInfo DOMMouseEventScreenXPropertyInfo where
type AttrAllowedOps DOMMouseEventScreenXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventScreenXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventScreenXPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventScreenXPropertyInfo = Int64
type AttrLabel DOMMouseEventScreenXPropertyInfo = "DOMMouseEvent::screen-x"
attrGet _ = getDOMMouseEventScreenX
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventScreenY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64
getDOMMouseEventScreenY obj = liftIO $ getObjectPropertyInt64 obj "screen-y"
data DOMMouseEventScreenYPropertyInfo
instance AttrInfo DOMMouseEventScreenYPropertyInfo where
type AttrAllowedOps DOMMouseEventScreenYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventScreenYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventScreenYPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventScreenYPropertyInfo = Int64
type AttrLabel DOMMouseEventScreenYPropertyInfo = "DOMMouseEvent::screen-y"
attrGet _ = getDOMMouseEventScreenY
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventShiftKey :: (MonadIO m, DOMMouseEventK o) => o -> m Bool
getDOMMouseEventShiftKey obj = liftIO $ getObjectPropertyBool obj "shift-key"
data DOMMouseEventShiftKeyPropertyInfo
instance AttrInfo DOMMouseEventShiftKeyPropertyInfo where
type AttrAllowedOps DOMMouseEventShiftKeyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventShiftKeyPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventShiftKeyPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventShiftKeyPropertyInfo = Bool
type AttrLabel DOMMouseEventShiftKeyPropertyInfo = "DOMMouseEvent::shift-key"
attrGet _ = getDOMMouseEventShiftKey
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventToElement :: (MonadIO m, DOMMouseEventK o) => o -> m DOMNode
getDOMMouseEventToElement obj = liftIO $ getObjectPropertyObject obj "to-element" DOMNode
data DOMMouseEventToElementPropertyInfo
instance AttrInfo DOMMouseEventToElementPropertyInfo where
type AttrAllowedOps DOMMouseEventToElementPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventToElementPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventToElementPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventToElementPropertyInfo = DOMNode
type AttrLabel DOMMouseEventToElementPropertyInfo = "DOMMouseEvent::to-element"
attrGet _ = getDOMMouseEventToElement
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventX :: (MonadIO m, DOMMouseEventK o) => o -> m Int64
getDOMMouseEventX obj = liftIO $ getObjectPropertyInt64 obj "x"
data DOMMouseEventXPropertyInfo
instance AttrInfo DOMMouseEventXPropertyInfo where
type AttrAllowedOps DOMMouseEventXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventXPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventXPropertyInfo = Int64
type AttrLabel DOMMouseEventXPropertyInfo = "DOMMouseEvent::x"
attrGet _ = getDOMMouseEventX
attrSet _ = undefined
attrConstruct _ = undefined
getDOMMouseEventY :: (MonadIO m, DOMMouseEventK o) => o -> m Int64
getDOMMouseEventY obj = liftIO $ getObjectPropertyInt64 obj "y"
data DOMMouseEventYPropertyInfo
instance AttrInfo DOMMouseEventYPropertyInfo where
type AttrAllowedOps DOMMouseEventYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventYPropertyInfo = DOMMouseEventK
type AttrGetType DOMMouseEventYPropertyInfo = Int64
type AttrLabel DOMMouseEventYPropertyInfo = "DOMMouseEvent::y"
attrGet _ = getDOMMouseEventY
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMMouseEvent = DOMMouseEventAttributeList
type DOMMouseEventAttributeList = ('[ '("alt-key", DOMMouseEventAltKeyPropertyInfo), '("bubbles", DOMEventBubblesPropertyInfo), '("button", DOMMouseEventButtonPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("client-x", DOMMouseEventClientXPropertyInfo), '("client-y", DOMMouseEventClientYPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("ctrl-key", DOMMouseEventCtrlKeyPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("from-element", DOMMouseEventFromElementPropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("meta-key", DOMMouseEventMetaKeyPropertyInfo), '("movement-x", DOMMouseEventMovementXPropertyInfo), '("movement-y", DOMMouseEventMovementYPropertyInfo), '("offset-x", DOMMouseEventOffsetXPropertyInfo), '("offset-y", DOMMouseEventOffsetYPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("related-target", DOMMouseEventRelatedTargetPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("screen-x", DOMMouseEventScreenXPropertyInfo), '("screen-y", DOMMouseEventScreenYPropertyInfo), '("shift-key", DOMMouseEventShiftKeyPropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("to-element", DOMMouseEventToElementPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMMouseEvent = DOMMouseEventSignalList
type DOMMouseEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_mouse_event_get_alt_key" webkit_dom_mouse_event_get_alt_key ::
Ptr DOMMouseEvent ->
IO CInt
dOMMouseEventGetAltKey ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m Bool
dOMMouseEventGetAltKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_alt_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_mouse_event_get_button" webkit_dom_mouse_event_get_button ::
Ptr DOMMouseEvent ->
IO Word16
dOMMouseEventGetButton ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m Word16
dOMMouseEventGetButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_button _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_mouse_event_get_client_x" webkit_dom_mouse_event_get_client_x ::
Ptr DOMMouseEvent ->
IO Int64
dOMMouseEventGetClientX ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m Int64
dOMMouseEventGetClientX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_client_x _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_mouse_event_get_client_y" webkit_dom_mouse_event_get_client_y ::
Ptr DOMMouseEvent ->
IO Int64
dOMMouseEventGetClientY ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m Int64
dOMMouseEventGetClientY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_client_y _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_mouse_event_get_ctrl_key" webkit_dom_mouse_event_get_ctrl_key ::
Ptr DOMMouseEvent ->
IO CInt
dOMMouseEventGetCtrlKey ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m Bool
dOMMouseEventGetCtrlKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_ctrl_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_mouse_event_get_from_element" webkit_dom_mouse_event_get_from_element ::
Ptr DOMMouseEvent ->
IO (Ptr DOMNode)
dOMMouseEventGetFromElement ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m DOMNode
dOMMouseEventGetFromElement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_from_element _obj'
checkUnexpectedReturnNULL "webkit_dom_mouse_event_get_from_element" result
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_mouse_event_get_meta_key" webkit_dom_mouse_event_get_meta_key ::
Ptr DOMMouseEvent ->
IO CInt
dOMMouseEventGetMetaKey ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m Bool
dOMMouseEventGetMetaKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_meta_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_mouse_event_get_offset_x" webkit_dom_mouse_event_get_offset_x ::
Ptr DOMMouseEvent ->
IO Int64
dOMMouseEventGetOffsetX ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m Int64
dOMMouseEventGetOffsetX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_offset_x _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_mouse_event_get_offset_y" webkit_dom_mouse_event_get_offset_y ::
Ptr DOMMouseEvent ->
IO Int64
dOMMouseEventGetOffsetY ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m Int64
dOMMouseEventGetOffsetY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_offset_y _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_mouse_event_get_related_target" webkit_dom_mouse_event_get_related_target ::
Ptr DOMMouseEvent ->
IO (Ptr DOMEventTarget)
dOMMouseEventGetRelatedTarget ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m DOMEventTarget
dOMMouseEventGetRelatedTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_related_target _obj'
checkUnexpectedReturnNULL "webkit_dom_mouse_event_get_related_target" result
result' <- (wrapObject DOMEventTarget) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_mouse_event_get_screen_x" webkit_dom_mouse_event_get_screen_x ::
Ptr DOMMouseEvent ->
IO Int64
dOMMouseEventGetScreenX ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m Int64
dOMMouseEventGetScreenX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_screen_x _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_mouse_event_get_screen_y" webkit_dom_mouse_event_get_screen_y ::
Ptr DOMMouseEvent ->
IO Int64
dOMMouseEventGetScreenY ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m Int64
dOMMouseEventGetScreenY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_screen_y _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_mouse_event_get_shift_key" webkit_dom_mouse_event_get_shift_key ::
Ptr DOMMouseEvent ->
IO CInt
dOMMouseEventGetShiftKey ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m Bool
dOMMouseEventGetShiftKey _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_shift_key _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_mouse_event_get_to_element" webkit_dom_mouse_event_get_to_element ::
Ptr DOMMouseEvent ->
IO (Ptr DOMNode)
dOMMouseEventGetToElement ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m DOMNode
dOMMouseEventGetToElement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_to_element _obj'
checkUnexpectedReturnNULL "webkit_dom_mouse_event_get_to_element" result
result' <- (newObject DOMNode) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_mouse_event_get_x" webkit_dom_mouse_event_get_x ::
Ptr DOMMouseEvent ->
IO Int64
dOMMouseEventGetX ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m Int64
dOMMouseEventGetX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_x _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_mouse_event_get_y" webkit_dom_mouse_event_get_y ::
Ptr DOMMouseEvent ->
IO Int64
dOMMouseEventGetY ::
(MonadIO m, DOMMouseEventK a) =>
a ->
m Int64
dOMMouseEventGetY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_mouse_event_get_y _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_mouse_event_init_mouse_event" webkit_dom_mouse_event_init_mouse_event ::
Ptr DOMMouseEvent ->
CString ->
CInt ->
CInt ->
Ptr DOMDOMWindow ->
Int64 ->
Int64 ->
Int64 ->
Int64 ->
Int64 ->
CInt ->
CInt ->
CInt ->
CInt ->
Word16 ->
Ptr DOMEventTarget ->
IO ()
dOMMouseEventInitMouseEvent ::
(MonadIO m, DOMMouseEventK a, DOMDOMWindowK b, DOMEventTargetK c) =>
a ->
T.Text ->
Bool ->
Bool ->
b ->
Int64 ->
Int64 ->
Int64 ->
Int64 ->
Int64 ->
Bool ->
Bool ->
Bool ->
Bool ->
Word16 ->
c ->
m ()
dOMMouseEventInitMouseEvent _obj type_ canBubble cancelable view detail screenX screenY clientX clientY ctrlKey altKey shiftKey metaKey button relatedTarget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
type_' <- textToCString type_
let canBubble' = (fromIntegral . fromEnum) canBubble
let cancelable' = (fromIntegral . fromEnum) cancelable
let view' = unsafeManagedPtrCastPtr view
let ctrlKey' = (fromIntegral . fromEnum) ctrlKey
let altKey' = (fromIntegral . fromEnum) altKey
let shiftKey' = (fromIntegral . fromEnum) shiftKey
let metaKey' = (fromIntegral . fromEnum) metaKey
let relatedTarget' = unsafeManagedPtrCastPtr relatedTarget
webkit_dom_mouse_event_init_mouse_event _obj' type_' canBubble' cancelable' view' detail screenX screenY clientX clientY ctrlKey' altKey' shiftKey' metaKey' button relatedTarget'
touchManagedPtr _obj
touchManagedPtr view
touchManagedPtr relatedTarget
freeMem type_'
return ()