#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2WebExtension.Objects.DOMMouseEvent
(
DOMMouseEvent(..) ,
IsDOMMouseEvent ,
toDOMMouseEvent ,
noDOMMouseEvent ,
#if ENABLE_OVERLOADING
DOMMouseEventGetAltKeyMethodInfo ,
#endif
dOMMouseEventGetAltKey ,
#if ENABLE_OVERLOADING
DOMMouseEventGetButtonMethodInfo ,
#endif
dOMMouseEventGetButton ,
#if ENABLE_OVERLOADING
DOMMouseEventGetClientXMethodInfo ,
#endif
dOMMouseEventGetClientX ,
#if ENABLE_OVERLOADING
DOMMouseEventGetClientYMethodInfo ,
#endif
dOMMouseEventGetClientY ,
#if ENABLE_OVERLOADING
DOMMouseEventGetCtrlKeyMethodInfo ,
#endif
dOMMouseEventGetCtrlKey ,
#if ENABLE_OVERLOADING
DOMMouseEventGetFromElementMethodInfo ,
#endif
dOMMouseEventGetFromElement ,
#if ENABLE_OVERLOADING
DOMMouseEventGetMetaKeyMethodInfo ,
#endif
dOMMouseEventGetMetaKey ,
#if ENABLE_OVERLOADING
DOMMouseEventGetOffsetXMethodInfo ,
#endif
dOMMouseEventGetOffsetX ,
#if ENABLE_OVERLOADING
DOMMouseEventGetOffsetYMethodInfo ,
#endif
dOMMouseEventGetOffsetY ,
#if ENABLE_OVERLOADING
DOMMouseEventGetRelatedTargetMethodInfo ,
#endif
dOMMouseEventGetRelatedTarget ,
#if ENABLE_OVERLOADING
DOMMouseEventGetScreenXMethodInfo ,
#endif
dOMMouseEventGetScreenX ,
#if ENABLE_OVERLOADING
DOMMouseEventGetScreenYMethodInfo ,
#endif
dOMMouseEventGetScreenY ,
#if ENABLE_OVERLOADING
DOMMouseEventGetShiftKeyMethodInfo ,
#endif
dOMMouseEventGetShiftKey ,
#if ENABLE_OVERLOADING
DOMMouseEventGetToElementMethodInfo ,
#endif
dOMMouseEventGetToElement ,
#if ENABLE_OVERLOADING
DOMMouseEventGetXMethodInfo ,
#endif
dOMMouseEventGetX ,
#if ENABLE_OVERLOADING
DOMMouseEventGetYMethodInfo ,
#endif
dOMMouseEventGetY ,
#if ENABLE_OVERLOADING
DOMMouseEventInitMouseEventMethodInfo ,
#endif
dOMMouseEventInitMouseEvent ,
#if ENABLE_OVERLOADING
DOMMouseEventAltKeyPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventAltKey ,
#endif
getDOMMouseEventAltKey ,
#if ENABLE_OVERLOADING
DOMMouseEventButtonPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventButton ,
#endif
getDOMMouseEventButton ,
#if ENABLE_OVERLOADING
DOMMouseEventClientXPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventClientX ,
#endif
getDOMMouseEventClientX ,
#if ENABLE_OVERLOADING
DOMMouseEventClientYPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventClientY ,
#endif
getDOMMouseEventClientY ,
#if ENABLE_OVERLOADING
DOMMouseEventCtrlKeyPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventCtrlKey ,
#endif
getDOMMouseEventCtrlKey ,
#if ENABLE_OVERLOADING
DOMMouseEventFromElementPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventFromElement ,
#endif
getDOMMouseEventFromElement ,
#if ENABLE_OVERLOADING
DOMMouseEventMetaKeyPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventMetaKey ,
#endif
getDOMMouseEventMetaKey ,
#if ENABLE_OVERLOADING
DOMMouseEventOffsetXPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventOffsetX ,
#endif
getDOMMouseEventOffsetX ,
#if ENABLE_OVERLOADING
DOMMouseEventOffsetYPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventOffsetY ,
#endif
getDOMMouseEventOffsetY ,
#if ENABLE_OVERLOADING
DOMMouseEventRelatedTargetPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventRelatedTarget ,
#endif
getDOMMouseEventRelatedTarget ,
#if ENABLE_OVERLOADING
DOMMouseEventScreenXPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventScreenX ,
#endif
getDOMMouseEventScreenX ,
#if ENABLE_OVERLOADING
DOMMouseEventScreenYPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventScreenY ,
#endif
getDOMMouseEventScreenY ,
#if ENABLE_OVERLOADING
DOMMouseEventShiftKeyPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventShiftKey ,
#endif
getDOMMouseEventShiftKey ,
#if ENABLE_OVERLOADING
DOMMouseEventToElementPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventToElement ,
#endif
getDOMMouseEventToElement ,
#if ENABLE_OVERLOADING
DOMMouseEventXPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventX ,
#endif
getDOMMouseEventX ,
#if ENABLE_OVERLOADING
DOMMouseEventYPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMMouseEventY ,
#endif
getDOMMouseEventY ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Interfaces.DOMEventTarget as WebKit2WebExtension.DOMEventTarget
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMDOMWindow as WebKit2WebExtension.DOMDOMWindow
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMEvent as WebKit2WebExtension.DOMEvent
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMUIEvent as WebKit2WebExtension.DOMUIEvent
newtype DOMMouseEvent = DOMMouseEvent (ManagedPtr DOMMouseEvent)
foreign import ccall "webkit_dom_mouse_event_get_type"
c_webkit_dom_mouse_event_get_type :: IO GType
instance GObject DOMMouseEvent where
gobjectType = c_webkit_dom_mouse_event_get_type
class (GObject o, O.IsDescendantOf DOMMouseEvent o) => IsDOMMouseEvent o
instance (GObject o, O.IsDescendantOf DOMMouseEvent o) => IsDOMMouseEvent o
instance O.HasParentTypes DOMMouseEvent
type instance O.ParentTypes DOMMouseEvent = '[WebKit2WebExtension.DOMUIEvent.DOMUIEvent, WebKit2WebExtension.DOMEvent.DOMEvent, WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMMouseEvent :: (MonadIO m, IsDOMMouseEvent o) => o -> m DOMMouseEvent
toDOMMouseEvent = liftIO . unsafeCastTo DOMMouseEvent
noDOMMouseEvent :: Maybe DOMMouseEvent
noDOMMouseEvent = Nothing
#if ENABLE_OVERLOADING
type family ResolveDOMMouseEventMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMMouseEventMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMMouseEventMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMMouseEventMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMMouseEventMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMMouseEventMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMMouseEventMethod "initEvent" o = WebKit2WebExtension.DOMEvent.DOMEventInitEventMethodInfo
ResolveDOMMouseEventMethod "initMouseEvent" o = DOMMouseEventInitMouseEventMethodInfo
ResolveDOMMouseEventMethod "initUiEvent" o = WebKit2WebExtension.DOMUIEvent.DOMUIEventInitUiEventMethodInfo
ResolveDOMMouseEventMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMMouseEventMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMMouseEventMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMMouseEventMethod "preventDefault" o = WebKit2WebExtension.DOMEvent.DOMEventPreventDefaultMethodInfo
ResolveDOMMouseEventMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMMouseEventMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMMouseEventMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMMouseEventMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMMouseEventMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMMouseEventMethod "stopPropagation" o = WebKit2WebExtension.DOMEvent.DOMEventStopPropagationMethodInfo
ResolveDOMMouseEventMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMMouseEventMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMMouseEventMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMMouseEventMethod "getAltKey" o = DOMMouseEventGetAltKeyMethodInfo
ResolveDOMMouseEventMethod "getBubbles" o = WebKit2WebExtension.DOMEvent.DOMEventGetBubblesMethodInfo
ResolveDOMMouseEventMethod "getButton" o = DOMMouseEventGetButtonMethodInfo
ResolveDOMMouseEventMethod "getCancelBubble" o = WebKit2WebExtension.DOMEvent.DOMEventGetCancelBubbleMethodInfo
ResolveDOMMouseEventMethod "getCancelable" o = WebKit2WebExtension.DOMEvent.DOMEventGetCancelableMethodInfo
ResolveDOMMouseEventMethod "getCharCode" o = WebKit2WebExtension.DOMUIEvent.DOMUIEventGetCharCodeMethodInfo
ResolveDOMMouseEventMethod "getClientX" o = DOMMouseEventGetClientXMethodInfo
ResolveDOMMouseEventMethod "getClientY" o = DOMMouseEventGetClientYMethodInfo
ResolveDOMMouseEventMethod "getCtrlKey" o = DOMMouseEventGetCtrlKeyMethodInfo
ResolveDOMMouseEventMethod "getCurrentTarget" o = WebKit2WebExtension.DOMEvent.DOMEventGetCurrentTargetMethodInfo
ResolveDOMMouseEventMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMMouseEventMethod "getDetail" o = WebKit2WebExtension.DOMUIEvent.DOMUIEventGetDetailMethodInfo
ResolveDOMMouseEventMethod "getEventPhase" o = WebKit2WebExtension.DOMEvent.DOMEventGetEventPhaseMethodInfo
ResolveDOMMouseEventMethod "getEventType" o = WebKit2WebExtension.DOMEvent.DOMEventGetEventTypeMethodInfo
ResolveDOMMouseEventMethod "getFromElement" o = DOMMouseEventGetFromElementMethodInfo
ResolveDOMMouseEventMethod "getKeyCode" o = WebKit2WebExtension.DOMUIEvent.DOMUIEventGetKeyCodeMethodInfo
ResolveDOMMouseEventMethod "getLayerX" o = WebKit2WebExtension.DOMUIEvent.DOMUIEventGetLayerXMethodInfo
ResolveDOMMouseEventMethod "getLayerY" o = WebKit2WebExtension.DOMUIEvent.DOMUIEventGetLayerYMethodInfo
ResolveDOMMouseEventMethod "getMetaKey" o = DOMMouseEventGetMetaKeyMethodInfo
ResolveDOMMouseEventMethod "getOffsetX" o = DOMMouseEventGetOffsetXMethodInfo
ResolveDOMMouseEventMethod "getOffsetY" o = DOMMouseEventGetOffsetYMethodInfo
ResolveDOMMouseEventMethod "getPageX" o = WebKit2WebExtension.DOMUIEvent.DOMUIEventGetPageXMethodInfo
ResolveDOMMouseEventMethod "getPageY" o = WebKit2WebExtension.DOMUIEvent.DOMUIEventGetPageYMethodInfo
ResolveDOMMouseEventMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMMouseEventMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMMouseEventMethod "getRelatedTarget" o = DOMMouseEventGetRelatedTargetMethodInfo
ResolveDOMMouseEventMethod "getReturnValue" o = WebKit2WebExtension.DOMEvent.DOMEventGetReturnValueMethodInfo
ResolveDOMMouseEventMethod "getScreenX" o = DOMMouseEventGetScreenXMethodInfo
ResolveDOMMouseEventMethod "getScreenY" o = DOMMouseEventGetScreenYMethodInfo
ResolveDOMMouseEventMethod "getShiftKey" o = DOMMouseEventGetShiftKeyMethodInfo
ResolveDOMMouseEventMethod "getSrcElement" o = WebKit2WebExtension.DOMEvent.DOMEventGetSrcElementMethodInfo
ResolveDOMMouseEventMethod "getTarget" o = WebKit2WebExtension.DOMEvent.DOMEventGetTargetMethodInfo
ResolveDOMMouseEventMethod "getTimeStamp" o = WebKit2WebExtension.DOMEvent.DOMEventGetTimeStampMethodInfo
ResolveDOMMouseEventMethod "getToElement" o = DOMMouseEventGetToElementMethodInfo
ResolveDOMMouseEventMethod "getView" o = WebKit2WebExtension.DOMUIEvent.DOMUIEventGetViewMethodInfo
ResolveDOMMouseEventMethod "getX" o = DOMMouseEventGetXMethodInfo
ResolveDOMMouseEventMethod "getY" o = DOMMouseEventGetYMethodInfo
ResolveDOMMouseEventMethod "setCancelBubble" o = WebKit2WebExtension.DOMEvent.DOMEventSetCancelBubbleMethodInfo
ResolveDOMMouseEventMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMMouseEventMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMMouseEventMethod "setReturnValue" o = WebKit2WebExtension.DOMEvent.DOMEventSetReturnValueMethodInfo
ResolveDOMMouseEventMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMMouseEventMethod t DOMMouseEvent, O.MethodInfo info DOMMouseEvent p) => OL.IsLabel t (DOMMouseEvent -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
getDOMMouseEventAltKey :: (MonadIO m, IsDOMMouseEvent o) => o -> m Bool
getDOMMouseEventAltKey obj = liftIO $ B.Properties.getObjectPropertyBool obj "alt-key"
#if ENABLE_OVERLOADING
data DOMMouseEventAltKeyPropertyInfo
instance AttrInfo DOMMouseEventAltKeyPropertyInfo where
type AttrAllowedOps DOMMouseEventAltKeyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventAltKeyPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventAltKeyPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventAltKeyPropertyInfo = Bool
type AttrLabel DOMMouseEventAltKeyPropertyInfo = "alt-key"
type AttrOrigin DOMMouseEventAltKeyPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventAltKey
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventButton :: (MonadIO m, IsDOMMouseEvent o) => o -> m Word32
getDOMMouseEventButton obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "button"
#if ENABLE_OVERLOADING
data DOMMouseEventButtonPropertyInfo
instance AttrInfo DOMMouseEventButtonPropertyInfo where
type AttrAllowedOps DOMMouseEventButtonPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventButtonPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventButtonPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventButtonPropertyInfo = Word32
type AttrLabel DOMMouseEventButtonPropertyInfo = "button"
type AttrOrigin DOMMouseEventButtonPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventButton
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventClientX :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventClientX obj = liftIO $ B.Properties.getObjectPropertyLong obj "client-x"
#if ENABLE_OVERLOADING
data DOMMouseEventClientXPropertyInfo
instance AttrInfo DOMMouseEventClientXPropertyInfo where
type AttrAllowedOps DOMMouseEventClientXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventClientXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventClientXPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventClientXPropertyInfo = CLong
type AttrLabel DOMMouseEventClientXPropertyInfo = "client-x"
type AttrOrigin DOMMouseEventClientXPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventClientX
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventClientY :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventClientY obj = liftIO $ B.Properties.getObjectPropertyLong obj "client-y"
#if ENABLE_OVERLOADING
data DOMMouseEventClientYPropertyInfo
instance AttrInfo DOMMouseEventClientYPropertyInfo where
type AttrAllowedOps DOMMouseEventClientYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventClientYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventClientYPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventClientYPropertyInfo = CLong
type AttrLabel DOMMouseEventClientYPropertyInfo = "client-y"
type AttrOrigin DOMMouseEventClientYPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventClientY
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventCtrlKey :: (MonadIO m, IsDOMMouseEvent o) => o -> m Bool
getDOMMouseEventCtrlKey obj = liftIO $ B.Properties.getObjectPropertyBool obj "ctrl-key"
#if ENABLE_OVERLOADING
data DOMMouseEventCtrlKeyPropertyInfo
instance AttrInfo DOMMouseEventCtrlKeyPropertyInfo where
type AttrAllowedOps DOMMouseEventCtrlKeyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventCtrlKeyPropertyInfo = Bool
type AttrLabel DOMMouseEventCtrlKeyPropertyInfo = "ctrl-key"
type AttrOrigin DOMMouseEventCtrlKeyPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventCtrlKey
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventFromElement :: (MonadIO m, IsDOMMouseEvent o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMMouseEventFromElement obj = liftIO $ checkUnexpectedNothing "getDOMMouseEventFromElement" $ B.Properties.getObjectPropertyObject obj "from-element" WebKit2WebExtension.DOMNode.DOMNode
#if ENABLE_OVERLOADING
data DOMMouseEventFromElementPropertyInfo
instance AttrInfo DOMMouseEventFromElementPropertyInfo where
type AttrAllowedOps DOMMouseEventFromElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMMouseEventFromElementPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventFromElementPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventFromElementPropertyInfo = WebKit2WebExtension.DOMNode.DOMNode
type AttrLabel DOMMouseEventFromElementPropertyInfo = "from-element"
type AttrOrigin DOMMouseEventFromElementPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventFromElement
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventMetaKey :: (MonadIO m, IsDOMMouseEvent o) => o -> m Bool
getDOMMouseEventMetaKey obj = liftIO $ B.Properties.getObjectPropertyBool obj "meta-key"
#if ENABLE_OVERLOADING
data DOMMouseEventMetaKeyPropertyInfo
instance AttrInfo DOMMouseEventMetaKeyPropertyInfo where
type AttrAllowedOps DOMMouseEventMetaKeyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventMetaKeyPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventMetaKeyPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventMetaKeyPropertyInfo = Bool
type AttrLabel DOMMouseEventMetaKeyPropertyInfo = "meta-key"
type AttrOrigin DOMMouseEventMetaKeyPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventMetaKey
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventOffsetX :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventOffsetX obj = liftIO $ B.Properties.getObjectPropertyLong obj "offset-x"
#if ENABLE_OVERLOADING
data DOMMouseEventOffsetXPropertyInfo
instance AttrInfo DOMMouseEventOffsetXPropertyInfo where
type AttrAllowedOps DOMMouseEventOffsetXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventOffsetXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventOffsetXPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventOffsetXPropertyInfo = CLong
type AttrLabel DOMMouseEventOffsetXPropertyInfo = "offset-x"
type AttrOrigin DOMMouseEventOffsetXPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventOffsetX
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventOffsetY :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventOffsetY obj = liftIO $ B.Properties.getObjectPropertyLong obj "offset-y"
#if ENABLE_OVERLOADING
data DOMMouseEventOffsetYPropertyInfo
instance AttrInfo DOMMouseEventOffsetYPropertyInfo where
type AttrAllowedOps DOMMouseEventOffsetYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventOffsetYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventOffsetYPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventOffsetYPropertyInfo = CLong
type AttrLabel DOMMouseEventOffsetYPropertyInfo = "offset-y"
type AttrOrigin DOMMouseEventOffsetYPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventOffsetY
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventRelatedTarget :: (MonadIO m, IsDOMMouseEvent o) => o -> m (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
getDOMMouseEventRelatedTarget obj = liftIO $ B.Properties.getObjectPropertyObject obj "related-target" WebKit2WebExtension.DOMEventTarget.DOMEventTarget
#if ENABLE_OVERLOADING
data DOMMouseEventRelatedTargetPropertyInfo
instance AttrInfo DOMMouseEventRelatedTargetPropertyInfo where
type AttrAllowedOps DOMMouseEventRelatedTargetPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventRelatedTargetPropertyInfo = (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
type AttrLabel DOMMouseEventRelatedTargetPropertyInfo = "related-target"
type AttrOrigin DOMMouseEventRelatedTargetPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventRelatedTarget
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventScreenX :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventScreenX obj = liftIO $ B.Properties.getObjectPropertyLong obj "screen-x"
#if ENABLE_OVERLOADING
data DOMMouseEventScreenXPropertyInfo
instance AttrInfo DOMMouseEventScreenXPropertyInfo where
type AttrAllowedOps DOMMouseEventScreenXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventScreenXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventScreenXPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventScreenXPropertyInfo = CLong
type AttrLabel DOMMouseEventScreenXPropertyInfo = "screen-x"
type AttrOrigin DOMMouseEventScreenXPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventScreenX
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventScreenY :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventScreenY obj = liftIO $ B.Properties.getObjectPropertyLong obj "screen-y"
#if ENABLE_OVERLOADING
data DOMMouseEventScreenYPropertyInfo
instance AttrInfo DOMMouseEventScreenYPropertyInfo where
type AttrAllowedOps DOMMouseEventScreenYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventScreenYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventScreenYPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventScreenYPropertyInfo = CLong
type AttrLabel DOMMouseEventScreenYPropertyInfo = "screen-y"
type AttrOrigin DOMMouseEventScreenYPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventScreenY
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventShiftKey :: (MonadIO m, IsDOMMouseEvent o) => o -> m Bool
getDOMMouseEventShiftKey obj = liftIO $ B.Properties.getObjectPropertyBool obj "shift-key"
#if ENABLE_OVERLOADING
data DOMMouseEventShiftKeyPropertyInfo
instance AttrInfo DOMMouseEventShiftKeyPropertyInfo where
type AttrAllowedOps DOMMouseEventShiftKeyPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventShiftKeyPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventShiftKeyPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventShiftKeyPropertyInfo = Bool
type AttrLabel DOMMouseEventShiftKeyPropertyInfo = "shift-key"
type AttrOrigin DOMMouseEventShiftKeyPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventShiftKey
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventToElement :: (MonadIO m, IsDOMMouseEvent o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMMouseEventToElement obj = liftIO $ checkUnexpectedNothing "getDOMMouseEventToElement" $ B.Properties.getObjectPropertyObject obj "to-element" WebKit2WebExtension.DOMNode.DOMNode
#if ENABLE_OVERLOADING
data DOMMouseEventToElementPropertyInfo
instance AttrInfo DOMMouseEventToElementPropertyInfo where
type AttrAllowedOps DOMMouseEventToElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMMouseEventToElementPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventToElementPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventToElementPropertyInfo = WebKit2WebExtension.DOMNode.DOMNode
type AttrLabel DOMMouseEventToElementPropertyInfo = "to-element"
type AttrOrigin DOMMouseEventToElementPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventToElement
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventX :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventX obj = liftIO $ B.Properties.getObjectPropertyLong obj "x"
#if ENABLE_OVERLOADING
data DOMMouseEventXPropertyInfo
instance AttrInfo DOMMouseEventXPropertyInfo where
type AttrAllowedOps DOMMouseEventXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventXPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventXPropertyInfo = CLong
type AttrLabel DOMMouseEventXPropertyInfo = "x"
type AttrOrigin DOMMouseEventXPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventX
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMMouseEventY :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventY obj = liftIO $ B.Properties.getObjectPropertyLong obj "y"
#if ENABLE_OVERLOADING
data DOMMouseEventYPropertyInfo
instance AttrInfo DOMMouseEventYPropertyInfo where
type AttrAllowedOps DOMMouseEventYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMouseEventYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMouseEventYPropertyInfo = IsDOMMouseEvent
type AttrGetType DOMMouseEventYPropertyInfo = CLong
type AttrLabel DOMMouseEventYPropertyInfo = "y"
type AttrOrigin DOMMouseEventYPropertyInfo = DOMMouseEvent
attrGet _ = getDOMMouseEventY
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList DOMMouseEvent
type instance O.AttributeList DOMMouseEvent = DOMMouseEventAttributeList
type DOMMouseEventAttributeList = ('[ '("altKey", DOMMouseEventAltKeyPropertyInfo), '("bubbles", WebKit2WebExtension.DOMEvent.DOMEventBubblesPropertyInfo), '("button", DOMMouseEventButtonPropertyInfo), '("cancelBubble", WebKit2WebExtension.DOMEvent.DOMEventCancelBubblePropertyInfo), '("cancelable", WebKit2WebExtension.DOMEvent.DOMEventCancelablePropertyInfo), '("charCode", WebKit2WebExtension.DOMUIEvent.DOMUIEventCharCodePropertyInfo), '("clientX", DOMMouseEventClientXPropertyInfo), '("clientY", DOMMouseEventClientYPropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("ctrlKey", DOMMouseEventCtrlKeyPropertyInfo), '("currentTarget", WebKit2WebExtension.DOMEvent.DOMEventCurrentTargetPropertyInfo), '("detail", WebKit2WebExtension.DOMUIEvent.DOMUIEventDetailPropertyInfo), '("eventPhase", WebKit2WebExtension.DOMEvent.DOMEventEventPhasePropertyInfo), '("fromElement", DOMMouseEventFromElementPropertyInfo), '("keyCode", WebKit2WebExtension.DOMUIEvent.DOMUIEventKeyCodePropertyInfo), '("layerX", WebKit2WebExtension.DOMUIEvent.DOMUIEventLayerXPropertyInfo), '("layerY", WebKit2WebExtension.DOMUIEvent.DOMUIEventLayerYPropertyInfo), '("metaKey", DOMMouseEventMetaKeyPropertyInfo), '("offsetX", DOMMouseEventOffsetXPropertyInfo), '("offsetY", DOMMouseEventOffsetYPropertyInfo), '("pageX", WebKit2WebExtension.DOMUIEvent.DOMUIEventPageXPropertyInfo), '("pageY", WebKit2WebExtension.DOMUIEvent.DOMUIEventPageYPropertyInfo), '("relatedTarget", DOMMouseEventRelatedTargetPropertyInfo), '("returnValue", WebKit2WebExtension.DOMEvent.DOMEventReturnValuePropertyInfo), '("screenX", DOMMouseEventScreenXPropertyInfo), '("screenY", DOMMouseEventScreenYPropertyInfo), '("shiftKey", DOMMouseEventShiftKeyPropertyInfo), '("srcElement", WebKit2WebExtension.DOMEvent.DOMEventSrcElementPropertyInfo), '("target", WebKit2WebExtension.DOMEvent.DOMEventTargetPropertyInfo), '("timeStamp", WebKit2WebExtension.DOMEvent.DOMEventTimeStampPropertyInfo), '("toElement", DOMMouseEventToElementPropertyInfo), '("type", WebKit2WebExtension.DOMEvent.DOMEventTypePropertyInfo), '("view", WebKit2WebExtension.DOMUIEvent.DOMUIEventViewPropertyInfo), '("x", DOMMouseEventXPropertyInfo), '("y", DOMMouseEventYPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
dOMMouseEventAltKey :: AttrLabelProxy "altKey"
dOMMouseEventAltKey = AttrLabelProxy
dOMMouseEventButton :: AttrLabelProxy "button"
dOMMouseEventButton = AttrLabelProxy
dOMMouseEventClientX :: AttrLabelProxy "clientX"
dOMMouseEventClientX = AttrLabelProxy
dOMMouseEventClientY :: AttrLabelProxy "clientY"
dOMMouseEventClientY = AttrLabelProxy
dOMMouseEventCtrlKey :: AttrLabelProxy "ctrlKey"
dOMMouseEventCtrlKey = AttrLabelProxy
dOMMouseEventFromElement :: AttrLabelProxy "fromElement"
dOMMouseEventFromElement = AttrLabelProxy
dOMMouseEventMetaKey :: AttrLabelProxy "metaKey"
dOMMouseEventMetaKey = AttrLabelProxy
dOMMouseEventOffsetX :: AttrLabelProxy "offsetX"
dOMMouseEventOffsetX = AttrLabelProxy
dOMMouseEventOffsetY :: AttrLabelProxy "offsetY"
dOMMouseEventOffsetY = AttrLabelProxy
dOMMouseEventRelatedTarget :: AttrLabelProxy "relatedTarget"
dOMMouseEventRelatedTarget = AttrLabelProxy
dOMMouseEventScreenX :: AttrLabelProxy "screenX"
dOMMouseEventScreenX = AttrLabelProxy
dOMMouseEventScreenY :: AttrLabelProxy "screenY"
dOMMouseEventScreenY = AttrLabelProxy
dOMMouseEventShiftKey :: AttrLabelProxy "shiftKey"
dOMMouseEventShiftKey = AttrLabelProxy
dOMMouseEventToElement :: AttrLabelProxy "toElement"
dOMMouseEventToElement = AttrLabelProxy
dOMMouseEventX :: AttrLabelProxy "x"
dOMMouseEventX = AttrLabelProxy
dOMMouseEventY :: AttrLabelProxy "y"
dOMMouseEventY = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList DOMMouseEvent = DOMMouseEventSignalList
type DOMMouseEventSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_mouse_event_get_alt_key" webkit_dom_mouse_event_get_alt_key ::
Ptr DOMMouseEvent ->
IO CInt
{-# DEPRECATED dOMMouseEventGetAltKey ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetAltKey ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m Bool
dOMMouseEventGetAltKey self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_alt_key self'
let result' = (/= 0) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMMouseEventGetAltKeyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetAltKeyMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetAltKey
#endif
foreign import ccall "webkit_dom_mouse_event_get_button" webkit_dom_mouse_event_get_button ::
Ptr DOMMouseEvent ->
IO Word16
{-# DEPRECATED dOMMouseEventGetButton ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetButton ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m Word16
dOMMouseEventGetButton self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_button self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMMouseEventGetButtonMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetButtonMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetButton
#endif
foreign import ccall "webkit_dom_mouse_event_get_client_x" webkit_dom_mouse_event_get_client_x ::
Ptr DOMMouseEvent ->
IO CLong
{-# DEPRECATED dOMMouseEventGetClientX ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetClientX ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m CLong
dOMMouseEventGetClientX self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_client_x self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMMouseEventGetClientXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetClientXMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetClientX
#endif
foreign import ccall "webkit_dom_mouse_event_get_client_y" webkit_dom_mouse_event_get_client_y ::
Ptr DOMMouseEvent ->
IO CLong
{-# DEPRECATED dOMMouseEventGetClientY ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetClientY ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m CLong
dOMMouseEventGetClientY self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_client_y self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMMouseEventGetClientYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetClientYMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetClientY
#endif
foreign import ccall "webkit_dom_mouse_event_get_ctrl_key" webkit_dom_mouse_event_get_ctrl_key ::
Ptr DOMMouseEvent ->
IO CInt
{-# DEPRECATED dOMMouseEventGetCtrlKey ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetCtrlKey ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m Bool
dOMMouseEventGetCtrlKey self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_ctrl_key self'
let result' = (/= 0) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMMouseEventGetCtrlKeyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetCtrlKeyMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetCtrlKey
#endif
foreign import ccall "webkit_dom_mouse_event_get_from_element" webkit_dom_mouse_event_get_from_element ::
Ptr DOMMouseEvent ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMMouseEventGetFromElement ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetFromElement ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMMouseEventGetFromElement self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_from_element self'
checkUnexpectedReturnNULL "dOMMouseEventGetFromElement" result
result' <- (newObject WebKit2WebExtension.DOMNode.DOMNode) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMMouseEventGetFromElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetFromElementMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetFromElement
#endif
foreign import ccall "webkit_dom_mouse_event_get_meta_key" webkit_dom_mouse_event_get_meta_key ::
Ptr DOMMouseEvent ->
IO CInt
{-# DEPRECATED dOMMouseEventGetMetaKey ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetMetaKey ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m Bool
dOMMouseEventGetMetaKey self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_meta_key self'
let result' = (/= 0) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMMouseEventGetMetaKeyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetMetaKeyMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetMetaKey
#endif
foreign import ccall "webkit_dom_mouse_event_get_offset_x" webkit_dom_mouse_event_get_offset_x ::
Ptr DOMMouseEvent ->
IO CLong
{-# DEPRECATED dOMMouseEventGetOffsetX ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetOffsetX ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m CLong
dOMMouseEventGetOffsetX self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_offset_x self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMMouseEventGetOffsetXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetOffsetXMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetOffsetX
#endif
foreign import ccall "webkit_dom_mouse_event_get_offset_y" webkit_dom_mouse_event_get_offset_y ::
Ptr DOMMouseEvent ->
IO CLong
{-# DEPRECATED dOMMouseEventGetOffsetY ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetOffsetY ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m CLong
dOMMouseEventGetOffsetY self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_offset_y self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMMouseEventGetOffsetYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetOffsetYMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetOffsetY
#endif
foreign import ccall "webkit_dom_mouse_event_get_related_target" webkit_dom_mouse_event_get_related_target ::
Ptr DOMMouseEvent ->
IO (Ptr WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
{-# DEPRECATED dOMMouseEventGetRelatedTarget ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetRelatedTarget ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m WebKit2WebExtension.DOMEventTarget.DOMEventTarget
dOMMouseEventGetRelatedTarget self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_related_target self'
checkUnexpectedReturnNULL "dOMMouseEventGetRelatedTarget" result
result' <- (wrapObject WebKit2WebExtension.DOMEventTarget.DOMEventTarget) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMMouseEventGetRelatedTargetMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMEventTarget.DOMEventTarget), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetRelatedTargetMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetRelatedTarget
#endif
foreign import ccall "webkit_dom_mouse_event_get_screen_x" webkit_dom_mouse_event_get_screen_x ::
Ptr DOMMouseEvent ->
IO CLong
{-# DEPRECATED dOMMouseEventGetScreenX ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetScreenX ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m CLong
dOMMouseEventGetScreenX self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_screen_x self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMMouseEventGetScreenXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetScreenXMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetScreenX
#endif
foreign import ccall "webkit_dom_mouse_event_get_screen_y" webkit_dom_mouse_event_get_screen_y ::
Ptr DOMMouseEvent ->
IO CLong
{-# DEPRECATED dOMMouseEventGetScreenY ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetScreenY ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m CLong
dOMMouseEventGetScreenY self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_screen_y self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMMouseEventGetScreenYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetScreenYMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetScreenY
#endif
foreign import ccall "webkit_dom_mouse_event_get_shift_key" webkit_dom_mouse_event_get_shift_key ::
Ptr DOMMouseEvent ->
IO CInt
{-# DEPRECATED dOMMouseEventGetShiftKey ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetShiftKey ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m Bool
dOMMouseEventGetShiftKey self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_shift_key self'
let result' = (/= 0) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMMouseEventGetShiftKeyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetShiftKeyMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetShiftKey
#endif
foreign import ccall "webkit_dom_mouse_event_get_to_element" webkit_dom_mouse_event_get_to_element ::
Ptr DOMMouseEvent ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMMouseEventGetToElement ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetToElement ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMMouseEventGetToElement self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_to_element self'
checkUnexpectedReturnNULL "dOMMouseEventGetToElement" result
result' <- (newObject WebKit2WebExtension.DOMNode.DOMNode) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMMouseEventGetToElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetToElementMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetToElement
#endif
foreign import ccall "webkit_dom_mouse_event_get_x" webkit_dom_mouse_event_get_x ::
Ptr DOMMouseEvent ->
IO CLong
{-# DEPRECATED dOMMouseEventGetX ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetX ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m CLong
dOMMouseEventGetX self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_x self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMMouseEventGetXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetXMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetX
#endif
foreign import ccall "webkit_dom_mouse_event_get_y" webkit_dom_mouse_event_get_y ::
Ptr DOMMouseEvent ->
IO CLong
{-# DEPRECATED dOMMouseEventGetY ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventGetY ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a
-> m CLong
dOMMouseEventGetY self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_mouse_event_get_y self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMMouseEventGetYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.MethodInfo DOMMouseEventGetYMethodInfo a signature where
overloadedMethod _ = dOMMouseEventGetY
#endif
foreign import ccall "webkit_dom_mouse_event_init_mouse_event" webkit_dom_mouse_event_init_mouse_event ::
Ptr DOMMouseEvent ->
CString ->
CInt ->
CInt ->
Ptr WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow ->
CLong ->
CLong ->
CLong ->
CLong ->
CLong ->
CInt ->
CInt ->
CInt ->
CInt ->
Word16 ->
Ptr WebKit2WebExtension.DOMEventTarget.DOMEventTarget ->
IO ()
{-# DEPRECATED dOMMouseEventInitMouseEvent ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMMouseEventInitMouseEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMouseEvent a, WebKit2WebExtension.DOMDOMWindow.IsDOMDOMWindow b, WebKit2WebExtension.DOMEventTarget.IsDOMEventTarget c) =>
a
-> T.Text
-> Bool
-> Bool
-> b
-> CLong
-> CLong
-> CLong
-> CLong
-> CLong
-> Bool
-> Bool
-> Bool
-> Bool
-> Word16
-> c
-> m ()
dOMMouseEventInitMouseEvent self type_ canBubble cancelable view detail screenX screenY clientX clientY ctrlKey altKey shiftKey metaKey button relatedTarget = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
type_' <- textToCString type_
let canBubble' = (fromIntegral . fromEnum) canBubble
let cancelable' = (fromIntegral . fromEnum) cancelable
view' <- unsafeManagedPtrCastPtr view
let ctrlKey' = (fromIntegral . fromEnum) ctrlKey
let altKey' = (fromIntegral . fromEnum) altKey
let shiftKey' = (fromIntegral . fromEnum) shiftKey
let metaKey' = (fromIntegral . fromEnum) metaKey
relatedTarget' <- unsafeManagedPtrCastPtr relatedTarget
webkit_dom_mouse_event_init_mouse_event self' type_' canBubble' cancelable' view' detail screenX screenY clientX clientY ctrlKey' altKey' shiftKey' metaKey' button relatedTarget'
touchManagedPtr self
touchManagedPtr view
touchManagedPtr relatedTarget
freeMem type_'
return ()
#if ENABLE_OVERLOADING
data DOMMouseEventInitMouseEventMethodInfo
instance (signature ~ (T.Text -> Bool -> Bool -> b -> CLong -> CLong -> CLong -> CLong -> CLong -> Bool -> Bool -> Bool -> Bool -> Word16 -> c -> m ()), MonadIO m, IsDOMMouseEvent a, WebKit2WebExtension.DOMDOMWindow.IsDOMDOMWindow b, WebKit2WebExtension.DOMEventTarget.IsDOMEventTarget c) => O.MethodInfo DOMMouseEventInitMouseEventMethodInfo a signature where
overloadedMethod _ = dOMMouseEventInitMouseEvent
#endif