{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMMouseEvent
(
DOMMouseEvent(..) ,
IsDOMMouseEvent ,
toDOMMouseEvent ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMMouseEventMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetAltKeyMethodInfo ,
#endif
dOMMouseEventGetAltKey ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetButtonMethodInfo ,
#endif
dOMMouseEventGetButton ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetClientXMethodInfo ,
#endif
dOMMouseEventGetClientX ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetClientYMethodInfo ,
#endif
dOMMouseEventGetClientY ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetCtrlKeyMethodInfo ,
#endif
dOMMouseEventGetCtrlKey ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetFromElementMethodInfo ,
#endif
dOMMouseEventGetFromElement ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetMetaKeyMethodInfo ,
#endif
dOMMouseEventGetMetaKey ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetOffsetXMethodInfo ,
#endif
dOMMouseEventGetOffsetX ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetOffsetYMethodInfo ,
#endif
dOMMouseEventGetOffsetY ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetRelatedTargetMethodInfo ,
#endif
dOMMouseEventGetRelatedTarget ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetScreenXMethodInfo ,
#endif
dOMMouseEventGetScreenX ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetScreenYMethodInfo ,
#endif
dOMMouseEventGetScreenY ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetShiftKeyMethodInfo ,
#endif
dOMMouseEventGetShiftKey ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetToElementMethodInfo ,
#endif
dOMMouseEventGetToElement ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetXMethodInfo ,
#endif
dOMMouseEventGetX ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventGetYMethodInfo ,
#endif
dOMMouseEventGetY ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventInitMouseEventMethodInfo ,
#endif
dOMMouseEventInitMouseEvent ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventAltKeyPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventAltKey ,
#endif
getDOMMouseEventAltKey ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventButtonPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventButton ,
#endif
getDOMMouseEventButton ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventClientXPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventClientX ,
#endif
getDOMMouseEventClientX ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventClientYPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventClientY ,
#endif
getDOMMouseEventClientY ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventCtrlKeyPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventCtrlKey ,
#endif
getDOMMouseEventCtrlKey ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventFromElementPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventFromElement ,
#endif
getDOMMouseEventFromElement ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventMetaKeyPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventMetaKey ,
#endif
getDOMMouseEventMetaKey ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventOffsetXPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventOffsetX ,
#endif
getDOMMouseEventOffsetX ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventOffsetYPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventOffsetY ,
#endif
getDOMMouseEventOffsetY ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventRelatedTargetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventRelatedTarget ,
#endif
getDOMMouseEventRelatedTarget ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventScreenXPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventScreenX ,
#endif
getDOMMouseEventScreenX ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventScreenYPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventScreenY ,
#endif
getDOMMouseEventScreenY ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventShiftKeyPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventShiftKey ,
#endif
getDOMMouseEventShiftKey ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventToElementPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventToElement ,
#endif
getDOMMouseEventToElement ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventXPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMMouseEventX ,
#endif
getDOMMouseEventX ,
#if defined(ENABLE_OVERLOADING)
DOMMouseEventYPropertyInfo ,
#endif
#if defined(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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
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 (SP.ManagedPtr DOMMouseEvent)
deriving (DOMMouseEvent -> DOMMouseEvent -> Bool
(DOMMouseEvent -> DOMMouseEvent -> Bool)
-> (DOMMouseEvent -> DOMMouseEvent -> Bool) -> Eq DOMMouseEvent
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DOMMouseEvent -> DOMMouseEvent -> Bool
== :: DOMMouseEvent -> DOMMouseEvent -> Bool
$c/= :: DOMMouseEvent -> DOMMouseEvent -> Bool
/= :: DOMMouseEvent -> DOMMouseEvent -> Bool
Eq)
instance SP.ManagedPtrNewtype DOMMouseEvent where
toManagedPtr :: DOMMouseEvent -> ManagedPtr DOMMouseEvent
toManagedPtr (DOMMouseEvent ManagedPtr DOMMouseEvent
p) = ManagedPtr DOMMouseEvent
p
foreign import ccall "webkit_dom_mouse_event_get_type"
c_webkit_dom_mouse_event_get_type :: IO B.Types.GType
instance B.Types.TypedObject DOMMouseEvent where
glibType :: IO GType
glibType = IO GType
c_webkit_dom_mouse_event_get_type
instance B.Types.GObject DOMMouseEvent
class (SP.GObject o, O.IsDescendantOf DOMMouseEvent o) => IsDOMMouseEvent o
instance (SP.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 :: (MIO.MonadIO m, IsDOMMouseEvent o) => o -> m DOMMouseEvent
toDOMMouseEvent :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m DOMMouseEvent
toDOMMouseEvent = IO DOMMouseEvent -> m DOMMouseEvent
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMMouseEvent -> m DOMMouseEvent)
-> (o -> IO DOMMouseEvent) -> o -> m DOMMouseEvent
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMMouseEvent -> DOMMouseEvent)
-> o -> IO DOMMouseEvent
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DOMMouseEvent -> DOMMouseEvent
DOMMouseEvent
instance B.GValue.IsGValue (Maybe DOMMouseEvent) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_dom_mouse_event_get_type
gvalueSet_ :: Ptr GValue -> Maybe DOMMouseEvent -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DOMMouseEvent
P.Nothing = Ptr GValue -> Ptr DOMMouseEvent -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DOMMouseEvent
forall a. Ptr a
FP.nullPtr :: FP.Ptr DOMMouseEvent)
gvalueSet_ Ptr GValue
gv (P.Just DOMMouseEvent
obj) = DOMMouseEvent -> (Ptr DOMMouseEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMMouseEvent
obj (Ptr GValue -> Ptr DOMMouseEvent -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DOMMouseEvent)
gvalueGet_ Ptr GValue
gv = do
Ptr DOMMouseEvent
ptr <- Ptr GValue -> IO (Ptr DOMMouseEvent)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DOMMouseEvent)
if Ptr DOMMouseEvent
ptr Ptr DOMMouseEvent -> Ptr DOMMouseEvent -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DOMMouseEvent
forall a. Ptr a
FP.nullPtr
then DOMMouseEvent -> Maybe DOMMouseEvent
forall a. a -> Maybe a
P.Just (DOMMouseEvent -> Maybe DOMMouseEvent)
-> IO DOMMouseEvent -> IO (Maybe DOMMouseEvent)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DOMMouseEvent -> DOMMouseEvent)
-> Ptr DOMMouseEvent -> IO DOMMouseEvent
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMMouseEvent -> DOMMouseEvent
DOMMouseEvent Ptr DOMMouseEvent
ptr
else Maybe DOMMouseEvent -> IO (Maybe DOMMouseEvent)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMMouseEvent
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMMouseEventMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
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.OverloadedMethod info DOMMouseEvent p) => OL.IsLabel t (DOMMouseEvent -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveDOMMouseEventMethod t DOMMouseEvent, O.OverloadedMethod info DOMMouseEvent p, R.HasField t DOMMouseEvent p) => R.HasField t DOMMouseEvent p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDOMMouseEventMethod t DOMMouseEvent, O.OverloadedMethodInfo info DOMMouseEvent) => OL.IsLabel t (O.MethodProxy info DOMMouseEvent) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDOMMouseEventAltKey :: (MonadIO m, IsDOMMouseEvent o) => o -> m Bool
getDOMMouseEventAltKey :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m Bool
getDOMMouseEventAltKey o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"alt-key"
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventAltKeyPropertyInfo
instance AttrInfo DOMMouseEventAltKeyPropertyInfo where
type AttrAllowedOps DOMMouseEventAltKeyPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMMouseEventAltKeyPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventAltKeyPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventAltKeyPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventAltKeyPropertyInfo = ()
type AttrGetType DOMMouseEventAltKeyPropertyInfo = Bool
type AttrLabel DOMMouseEventAltKeyPropertyInfo = "alt-key"
type AttrOrigin DOMMouseEventAltKeyPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventAltKey
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.altKey"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:altKey"
})
#endif
getDOMMouseEventButton :: (MonadIO m, IsDOMMouseEvent o) => o -> m Word32
getDOMMouseEventButton :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m Word32
getDOMMouseEventButton o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"button"
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventButtonPropertyInfo
instance AttrInfo DOMMouseEventButtonPropertyInfo where
type AttrAllowedOps DOMMouseEventButtonPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMMouseEventButtonPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventButtonPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventButtonPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventButtonPropertyInfo = ()
type AttrGetType DOMMouseEventButtonPropertyInfo = Word32
type AttrLabel DOMMouseEventButtonPropertyInfo = "button"
type AttrOrigin DOMMouseEventButtonPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventButton
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.button"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:button"
})
#endif
getDOMMouseEventClientX :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventClientX :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m CLong
getDOMMouseEventClientX o
obj = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"client-x"
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventClientXPropertyInfo
instance AttrInfo DOMMouseEventClientXPropertyInfo where
type AttrAllowedOps DOMMouseEventClientXPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMMouseEventClientXPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventClientXPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventClientXPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventClientXPropertyInfo = ()
type AttrGetType DOMMouseEventClientXPropertyInfo = CLong
type AttrLabel DOMMouseEventClientXPropertyInfo = "client-x"
type AttrOrigin DOMMouseEventClientXPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventClientX
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.clientX"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:clientX"
})
#endif
getDOMMouseEventClientY :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventClientY :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m CLong
getDOMMouseEventClientY o
obj = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"client-y"
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventClientYPropertyInfo
instance AttrInfo DOMMouseEventClientYPropertyInfo where
type AttrAllowedOps DOMMouseEventClientYPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMMouseEventClientYPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventClientYPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventClientYPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventClientYPropertyInfo = ()
type AttrGetType DOMMouseEventClientYPropertyInfo = CLong
type AttrLabel DOMMouseEventClientYPropertyInfo = "client-y"
type AttrOrigin DOMMouseEventClientYPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventClientY
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.clientY"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:clientY"
})
#endif
getDOMMouseEventCtrlKey :: (MonadIO m, IsDOMMouseEvent o) => o -> m Bool
getDOMMouseEventCtrlKey :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m Bool
getDOMMouseEventCtrlKey o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"ctrl-key"
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventCtrlKeyPropertyInfo
instance AttrInfo DOMMouseEventCtrlKeyPropertyInfo where
type AttrAllowedOps DOMMouseEventCtrlKeyPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventCtrlKeyPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventCtrlKeyPropertyInfo = ()
type AttrGetType DOMMouseEventCtrlKeyPropertyInfo = Bool
type AttrLabel DOMMouseEventCtrlKeyPropertyInfo = "ctrl-key"
type AttrOrigin DOMMouseEventCtrlKeyPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventCtrlKey
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.ctrlKey"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:ctrlKey"
})
#endif
getDOMMouseEventFromElement :: (MonadIO m, IsDOMMouseEvent o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMMouseEventFromElement :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m DOMNode
getDOMMouseEventFromElement o
obj = IO DOMNode -> m DOMNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMMouseEventFromElement" (IO (Maybe DOMNode) -> IO DOMNode)
-> IO (Maybe DOMNode) -> IO DOMNode
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr DOMNode -> DOMNode) -> IO (Maybe DOMNode)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"from-element" ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventFromElementPropertyInfo
instance AttrInfo DOMMouseEventFromElementPropertyInfo where
type AttrAllowedOps DOMMouseEventFromElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMMouseEventFromElementPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventFromElementPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventFromElementPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventFromElementPropertyInfo = ()
type AttrGetType DOMMouseEventFromElementPropertyInfo = WebKit2WebExtension.DOMNode.DOMNode
type AttrLabel DOMMouseEventFromElementPropertyInfo = "from-element"
type AttrOrigin DOMMouseEventFromElementPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventFromElement
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.fromElement"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:fromElement"
})
#endif
getDOMMouseEventMetaKey :: (MonadIO m, IsDOMMouseEvent o) => o -> m Bool
getDOMMouseEventMetaKey :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m Bool
getDOMMouseEventMetaKey o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"meta-key"
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventMetaKeyPropertyInfo
instance AttrInfo DOMMouseEventMetaKeyPropertyInfo where
type AttrAllowedOps DOMMouseEventMetaKeyPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMMouseEventMetaKeyPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventMetaKeyPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventMetaKeyPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventMetaKeyPropertyInfo = ()
type AttrGetType DOMMouseEventMetaKeyPropertyInfo = Bool
type AttrLabel DOMMouseEventMetaKeyPropertyInfo = "meta-key"
type AttrOrigin DOMMouseEventMetaKeyPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventMetaKey
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.metaKey"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:metaKey"
})
#endif
getDOMMouseEventOffsetX :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventOffsetX :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m CLong
getDOMMouseEventOffsetX o
obj = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"offset-x"
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventOffsetXPropertyInfo
instance AttrInfo DOMMouseEventOffsetXPropertyInfo where
type AttrAllowedOps DOMMouseEventOffsetXPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMMouseEventOffsetXPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventOffsetXPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventOffsetXPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventOffsetXPropertyInfo = ()
type AttrGetType DOMMouseEventOffsetXPropertyInfo = CLong
type AttrLabel DOMMouseEventOffsetXPropertyInfo = "offset-x"
type AttrOrigin DOMMouseEventOffsetXPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventOffsetX
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.offsetX"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:offsetX"
})
#endif
getDOMMouseEventOffsetY :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventOffsetY :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m CLong
getDOMMouseEventOffsetY o
obj = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"offset-y"
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventOffsetYPropertyInfo
instance AttrInfo DOMMouseEventOffsetYPropertyInfo where
type AttrAllowedOps DOMMouseEventOffsetYPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMMouseEventOffsetYPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventOffsetYPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventOffsetYPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventOffsetYPropertyInfo = ()
type AttrGetType DOMMouseEventOffsetYPropertyInfo = CLong
type AttrLabel DOMMouseEventOffsetYPropertyInfo = "offset-y"
type AttrOrigin DOMMouseEventOffsetYPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventOffsetY
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.offsetY"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:offsetY"
})
#endif
getDOMMouseEventRelatedTarget :: (MonadIO m, IsDOMMouseEvent o) => o -> m (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
getDOMMouseEventRelatedTarget :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m (Maybe DOMEventTarget)
getDOMMouseEventRelatedTarget o
obj = IO (Maybe DOMEventTarget) -> m (Maybe DOMEventTarget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe DOMEventTarget) -> m (Maybe DOMEventTarget))
-> IO (Maybe DOMEventTarget) -> m (Maybe DOMEventTarget)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMEventTarget -> DOMEventTarget)
-> IO (Maybe DOMEventTarget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"related-target" ManagedPtr DOMEventTarget -> DOMEventTarget
WebKit2WebExtension.DOMEventTarget.DOMEventTarget
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventRelatedTargetPropertyInfo
instance AttrInfo DOMMouseEventRelatedTargetPropertyInfo where
type AttrAllowedOps DOMMouseEventRelatedTargetPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventRelatedTargetPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventRelatedTargetPropertyInfo = ()
type AttrGetType DOMMouseEventRelatedTargetPropertyInfo = (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
type AttrLabel DOMMouseEventRelatedTargetPropertyInfo = "related-target"
type AttrOrigin DOMMouseEventRelatedTargetPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventRelatedTarget
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.relatedTarget"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:relatedTarget"
})
#endif
getDOMMouseEventScreenX :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventScreenX :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m CLong
getDOMMouseEventScreenX o
obj = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"screen-x"
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventScreenXPropertyInfo
instance AttrInfo DOMMouseEventScreenXPropertyInfo where
type AttrAllowedOps DOMMouseEventScreenXPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMMouseEventScreenXPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventScreenXPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventScreenXPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventScreenXPropertyInfo = ()
type AttrGetType DOMMouseEventScreenXPropertyInfo = CLong
type AttrLabel DOMMouseEventScreenXPropertyInfo = "screen-x"
type AttrOrigin DOMMouseEventScreenXPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventScreenX
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.screenX"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:screenX"
})
#endif
getDOMMouseEventScreenY :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventScreenY :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m CLong
getDOMMouseEventScreenY o
obj = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"screen-y"
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventScreenYPropertyInfo
instance AttrInfo DOMMouseEventScreenYPropertyInfo where
type AttrAllowedOps DOMMouseEventScreenYPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMMouseEventScreenYPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventScreenYPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventScreenYPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventScreenYPropertyInfo = ()
type AttrGetType DOMMouseEventScreenYPropertyInfo = CLong
type AttrLabel DOMMouseEventScreenYPropertyInfo = "screen-y"
type AttrOrigin DOMMouseEventScreenYPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventScreenY
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.screenY"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:screenY"
})
#endif
getDOMMouseEventShiftKey :: (MonadIO m, IsDOMMouseEvent o) => o -> m Bool
getDOMMouseEventShiftKey :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m Bool
getDOMMouseEventShiftKey o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"shift-key"
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventShiftKeyPropertyInfo
instance AttrInfo DOMMouseEventShiftKeyPropertyInfo where
type AttrAllowedOps DOMMouseEventShiftKeyPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMMouseEventShiftKeyPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventShiftKeyPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventShiftKeyPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventShiftKeyPropertyInfo = ()
type AttrGetType DOMMouseEventShiftKeyPropertyInfo = Bool
type AttrLabel DOMMouseEventShiftKeyPropertyInfo = "shift-key"
type AttrOrigin DOMMouseEventShiftKeyPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventShiftKey
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.shiftKey"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:shiftKey"
})
#endif
getDOMMouseEventToElement :: (MonadIO m, IsDOMMouseEvent o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMMouseEventToElement :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m DOMNode
getDOMMouseEventToElement o
obj = IO DOMNode -> m DOMNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe DOMNode) -> IO DOMNode
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getDOMMouseEventToElement" (IO (Maybe DOMNode) -> IO DOMNode)
-> IO (Maybe DOMNode) -> IO DOMNode
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr DOMNode -> DOMNode) -> IO (Maybe DOMNode)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"to-element" ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventToElementPropertyInfo
instance AttrInfo DOMMouseEventToElementPropertyInfo where
type AttrAllowedOps DOMMouseEventToElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMMouseEventToElementPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventToElementPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventToElementPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventToElementPropertyInfo = ()
type AttrGetType DOMMouseEventToElementPropertyInfo = WebKit2WebExtension.DOMNode.DOMNode
type AttrLabel DOMMouseEventToElementPropertyInfo = "to-element"
type AttrOrigin DOMMouseEventToElementPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventToElement
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.toElement"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:toElement"
})
#endif
getDOMMouseEventX :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventX :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m CLong
getDOMMouseEventX o
obj = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"x"
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventXPropertyInfo
instance AttrInfo DOMMouseEventXPropertyInfo where
type AttrAllowedOps DOMMouseEventXPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMMouseEventXPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventXPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventXPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventXPropertyInfo = ()
type AttrGetType DOMMouseEventXPropertyInfo = CLong
type AttrLabel DOMMouseEventXPropertyInfo = "x"
type AttrOrigin DOMMouseEventXPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventX
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.x"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:x"
})
#endif
getDOMMouseEventY :: (MonadIO m, IsDOMMouseEvent o) => o -> m CLong
getDOMMouseEventY :: forall (m :: * -> *) o.
(MonadIO m, IsDOMMouseEvent o) =>
o -> m CLong
getDOMMouseEventY o
obj = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"y"
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventYPropertyInfo
instance AttrInfo DOMMouseEventYPropertyInfo where
type AttrAllowedOps DOMMouseEventYPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMMouseEventYPropertyInfo = IsDOMMouseEvent
type AttrSetTypeConstraint DOMMouseEventYPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMMouseEventYPropertyInfo = (~) ()
type AttrTransferType DOMMouseEventYPropertyInfo = ()
type AttrGetType DOMMouseEventYPropertyInfo = CLong
type AttrLabel DOMMouseEventYPropertyInfo = "y"
type AttrOrigin DOMMouseEventYPropertyInfo = DOMMouseEvent
attrGet = getDOMMouseEventY
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.y"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#g:attr:y"
})
#endif
#if defined(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, DK.Type)])
#endif
#if defined(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 defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMMouseEvent = DOMMouseEventSignalList
type DOMMouseEventSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m Bool
dOMMouseEventGetAltKey a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMMouseEvent -> IO CInt
webkit_dom_mouse_event_get_alt_key Ptr DOMMouseEvent
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetAltKeyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetAltKeyMethodInfo a signature where
overloadedMethod = dOMMouseEventGetAltKey
instance O.OverloadedMethodInfo DOMMouseEventGetAltKeyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetAltKey",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m Word16
dOMMouseEventGetButton a
self = IO Word16 -> m Word16
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word16 -> m Word16) -> IO Word16 -> m Word16
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word16
result <- Ptr DOMMouseEvent -> IO Word16
webkit_dom_mouse_event_get_button Ptr DOMMouseEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word16 -> IO Word16
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word16
result
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetButtonMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetButtonMethodInfo a signature where
overloadedMethod = dOMMouseEventGetButton
instance O.OverloadedMethodInfo DOMMouseEventGetButtonMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetButton",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m CLong
dOMMouseEventGetClientX a
self = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMMouseEvent -> IO CLong
webkit_dom_mouse_event_get_client_x Ptr DOMMouseEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetClientXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetClientXMethodInfo a signature where
overloadedMethod = dOMMouseEventGetClientX
instance O.OverloadedMethodInfo DOMMouseEventGetClientXMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetClientX",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m CLong
dOMMouseEventGetClientY a
self = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMMouseEvent -> IO CLong
webkit_dom_mouse_event_get_client_y Ptr DOMMouseEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetClientYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetClientYMethodInfo a signature where
overloadedMethod = dOMMouseEventGetClientY
instance O.OverloadedMethodInfo DOMMouseEventGetClientYMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetClientY",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m Bool
dOMMouseEventGetCtrlKey a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMMouseEvent -> IO CInt
webkit_dom_mouse_event_get_ctrl_key Ptr DOMMouseEvent
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetCtrlKeyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetCtrlKeyMethodInfo a signature where
overloadedMethod = dOMMouseEventGetCtrlKey
instance O.OverloadedMethodInfo DOMMouseEventGetCtrlKeyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetCtrlKey",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m DOMNode
dOMMouseEventGetFromElement a
self = IO DOMNode -> m DOMNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMMouseEvent -> IO (Ptr DOMNode)
webkit_dom_mouse_event_get_from_element Ptr DOMMouseEvent
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMMouseEventGetFromElement" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetFromElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetFromElementMethodInfo a signature where
overloadedMethod = dOMMouseEventGetFromElement
instance O.OverloadedMethodInfo DOMMouseEventGetFromElementMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetFromElement",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m Bool
dOMMouseEventGetMetaKey a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMMouseEvent -> IO CInt
webkit_dom_mouse_event_get_meta_key Ptr DOMMouseEvent
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetMetaKeyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetMetaKeyMethodInfo a signature where
overloadedMethod = dOMMouseEventGetMetaKey
instance O.OverloadedMethodInfo DOMMouseEventGetMetaKeyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetMetaKey",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m CLong
dOMMouseEventGetOffsetX a
self = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMMouseEvent -> IO CLong
webkit_dom_mouse_event_get_offset_x Ptr DOMMouseEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetOffsetXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetOffsetXMethodInfo a signature where
overloadedMethod = dOMMouseEventGetOffsetX
instance O.OverloadedMethodInfo DOMMouseEventGetOffsetXMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetOffsetX",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m CLong
dOMMouseEventGetOffsetY a
self = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMMouseEvent -> IO CLong
webkit_dom_mouse_event_get_offset_y Ptr DOMMouseEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetOffsetYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetOffsetYMethodInfo a signature where
overloadedMethod = dOMMouseEventGetOffsetY
instance O.OverloadedMethodInfo DOMMouseEventGetOffsetYMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetOffsetY",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m DOMEventTarget
dOMMouseEventGetRelatedTarget a
self = IO DOMEventTarget -> m DOMEventTarget
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMEventTarget -> m DOMEventTarget)
-> IO DOMEventTarget -> m DOMEventTarget
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMEventTarget
result <- Ptr DOMMouseEvent -> IO (Ptr DOMEventTarget)
webkit_dom_mouse_event_get_related_target Ptr DOMMouseEvent
self'
Text -> Ptr DOMEventTarget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMMouseEventGetRelatedTarget" Ptr DOMEventTarget
result
DOMEventTarget
result' <- ((ManagedPtr DOMEventTarget -> DOMEventTarget)
-> Ptr DOMEventTarget -> IO DOMEventTarget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMEventTarget -> DOMEventTarget
WebKit2WebExtension.DOMEventTarget.DOMEventTarget) Ptr DOMEventTarget
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMEventTarget -> IO DOMEventTarget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMEventTarget
result'
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetRelatedTargetMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMEventTarget.DOMEventTarget), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetRelatedTargetMethodInfo a signature where
overloadedMethod = dOMMouseEventGetRelatedTarget
instance O.OverloadedMethodInfo DOMMouseEventGetRelatedTargetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetRelatedTarget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m CLong
dOMMouseEventGetScreenX a
self = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMMouseEvent -> IO CLong
webkit_dom_mouse_event_get_screen_x Ptr DOMMouseEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetScreenXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetScreenXMethodInfo a signature where
overloadedMethod = dOMMouseEventGetScreenX
instance O.OverloadedMethodInfo DOMMouseEventGetScreenXMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetScreenX",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m CLong
dOMMouseEventGetScreenY a
self = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMMouseEvent -> IO CLong
webkit_dom_mouse_event_get_screen_y Ptr DOMMouseEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetScreenYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetScreenYMethodInfo a signature where
overloadedMethod = dOMMouseEventGetScreenY
instance O.OverloadedMethodInfo DOMMouseEventGetScreenYMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetScreenY",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m Bool
dOMMouseEventGetShiftKey a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMMouseEvent -> IO CInt
webkit_dom_mouse_event_get_shift_key Ptr DOMMouseEvent
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetShiftKeyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetShiftKeyMethodInfo a signature where
overloadedMethod = dOMMouseEventGetShiftKey
instance O.OverloadedMethodInfo DOMMouseEventGetShiftKeyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetShiftKey",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m DOMNode
dOMMouseEventGetToElement a
self = IO DOMNode -> m DOMNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMMouseEvent -> IO (Ptr DOMNode)
webkit_dom_mouse_event_get_to_element Ptr DOMMouseEvent
self'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMMouseEventGetToElement" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetToElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetToElementMethodInfo a signature where
overloadedMethod = dOMMouseEventGetToElement
instance O.OverloadedMethodInfo DOMMouseEventGetToElementMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetToElement",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m CLong
dOMMouseEventGetX a
self = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMMouseEvent -> IO CLong
webkit_dom_mouse_event_get_x Ptr DOMMouseEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetXMethodInfo a signature where
overloadedMethod = dOMMouseEventGetX
instance O.OverloadedMethodInfo DOMMouseEventGetXMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetX",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMMouseEvent a) =>
a -> m CLong
dOMMouseEventGetY a
self = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMMouseEvent -> IO CLong
webkit_dom_mouse_event_get_y Ptr DOMMouseEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMMouseEventGetYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMMouseEvent a) => O.OverloadedMethod DOMMouseEventGetYMethodInfo a signature where
overloadedMethod = dOMMouseEventGetY
instance O.OverloadedMethodInfo DOMMouseEventGetYMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventGetY",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v: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 :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsDOMMouseEvent a, IsDOMDOMWindow b,
IsDOMEventTarget c) =>
a
-> Text
-> Bool
-> Bool
-> b
-> CLong
-> CLong
-> CLong
-> CLong
-> CLong
-> Bool
-> Bool
-> Bool
-> Bool
-> Word16
-> c
-> m ()
dOMMouseEventInitMouseEvent a
self Text
type_ Bool
canBubble Bool
cancelable b
view CLong
detail CLong
screenX CLong
screenY CLong
clientX CLong
clientY Bool
ctrlKey Bool
altKey Bool
shiftKey Bool
metaKey Word16
button c
relatedTarget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMMouseEvent
self' <- a -> IO (Ptr DOMMouseEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
type_' <- Text -> IO CString
textToCString Text
type_
let canBubble' :: CInt
canBubble' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
canBubble
let cancelable' :: CInt
cancelable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
cancelable
Ptr DOMDOMWindow
view' <- b -> IO (Ptr DOMDOMWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
view
let ctrlKey' :: CInt
ctrlKey' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
ctrlKey
let altKey' :: CInt
altKey' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
altKey
let shiftKey' :: CInt
shiftKey' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
shiftKey
let metaKey' :: CInt
metaKey' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
metaKey
Ptr DOMEventTarget
relatedTarget' <- c -> IO (Ptr DOMEventTarget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
relatedTarget
Ptr DOMMouseEvent
-> CString
-> CInt
-> CInt
-> Ptr DOMDOMWindow
-> CLong
-> CLong
-> CLong
-> CLong
-> CLong
-> CInt
-> CInt
-> CInt
-> CInt
-> Word16
-> Ptr DOMEventTarget
-> IO ()
webkit_dom_mouse_event_init_mouse_event Ptr DOMMouseEvent
self' CString
type_' CInt
canBubble' CInt
cancelable' Ptr DOMDOMWindow
view' CLong
detail CLong
screenX CLong
screenY CLong
clientX CLong
clientY CInt
ctrlKey' CInt
altKey' CInt
shiftKey' CInt
metaKey' Word16
button Ptr DOMEventTarget
relatedTarget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
view
c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr c
relatedTarget
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
type_'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(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.OverloadedMethod DOMMouseEventInitMouseEventMethodInfo a signature where
overloadedMethod = dOMMouseEventInitMouseEvent
instance O.OverloadedMethodInfo DOMMouseEventInitMouseEventMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMMouseEvent.dOMMouseEventInitMouseEvent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMMouseEvent.html#v:dOMMouseEventInitMouseEvent"
})
#endif