{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMEvent
(
DOMEvent(..) ,
IsDOMEvent ,
toDOMEvent ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMEventMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMEventGetBubblesMethodInfo ,
#endif
dOMEventGetBubbles ,
#if defined(ENABLE_OVERLOADING)
DOMEventGetCancelBubbleMethodInfo ,
#endif
dOMEventGetCancelBubble ,
#if defined(ENABLE_OVERLOADING)
DOMEventGetCancelableMethodInfo ,
#endif
dOMEventGetCancelable ,
#if defined(ENABLE_OVERLOADING)
DOMEventGetCurrentTargetMethodInfo ,
#endif
dOMEventGetCurrentTarget ,
#if defined(ENABLE_OVERLOADING)
DOMEventGetEventPhaseMethodInfo ,
#endif
dOMEventGetEventPhase ,
#if defined(ENABLE_OVERLOADING)
DOMEventGetEventTypeMethodInfo ,
#endif
dOMEventGetEventType ,
#if defined(ENABLE_OVERLOADING)
DOMEventGetReturnValueMethodInfo ,
#endif
dOMEventGetReturnValue ,
#if defined(ENABLE_OVERLOADING)
DOMEventGetSrcElementMethodInfo ,
#endif
dOMEventGetSrcElement ,
#if defined(ENABLE_OVERLOADING)
DOMEventGetTargetMethodInfo ,
#endif
dOMEventGetTarget ,
#if defined(ENABLE_OVERLOADING)
DOMEventGetTimeStampMethodInfo ,
#endif
dOMEventGetTimeStamp ,
#if defined(ENABLE_OVERLOADING)
DOMEventInitEventMethodInfo ,
#endif
dOMEventInitEvent ,
#if defined(ENABLE_OVERLOADING)
DOMEventPreventDefaultMethodInfo ,
#endif
dOMEventPreventDefault ,
#if defined(ENABLE_OVERLOADING)
DOMEventSetCancelBubbleMethodInfo ,
#endif
dOMEventSetCancelBubble ,
#if defined(ENABLE_OVERLOADING)
DOMEventSetReturnValueMethodInfo ,
#endif
dOMEventSetReturnValue ,
#if defined(ENABLE_OVERLOADING)
DOMEventStopPropagationMethodInfo ,
#endif
dOMEventStopPropagation ,
#if defined(ENABLE_OVERLOADING)
DOMEventBubblesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMEventBubbles ,
#endif
getDOMEventBubbles ,
#if defined(ENABLE_OVERLOADING)
DOMEventCancelBubblePropertyInfo ,
#endif
constructDOMEventCancelBubble ,
#if defined(ENABLE_OVERLOADING)
dOMEventCancelBubble ,
#endif
getDOMEventCancelBubble ,
setDOMEventCancelBubble ,
#if defined(ENABLE_OVERLOADING)
DOMEventCancelablePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMEventCancelable ,
#endif
getDOMEventCancelable ,
#if defined(ENABLE_OVERLOADING)
DOMEventCurrentTargetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMEventCurrentTarget ,
#endif
getDOMEventCurrentTarget ,
#if defined(ENABLE_OVERLOADING)
DOMEventEventPhasePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMEventEventPhase ,
#endif
getDOMEventEventPhase ,
#if defined(ENABLE_OVERLOADING)
DOMEventReturnValuePropertyInfo ,
#endif
constructDOMEventReturnValue ,
#if defined(ENABLE_OVERLOADING)
dOMEventReturnValue ,
#endif
getDOMEventReturnValue ,
setDOMEventReturnValue ,
#if defined(ENABLE_OVERLOADING)
DOMEventSrcElementPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMEventSrcElement ,
#endif
getDOMEventSrcElement ,
#if defined(ENABLE_OVERLOADING)
DOMEventTargetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMEventTarget ,
#endif
getDOMEventTarget ,
#if defined(ENABLE_OVERLOADING)
DOMEventTimeStampPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMEventTimeStamp ,
#endif
getDOMEventTimeStamp ,
#if defined(ENABLE_OVERLOADING)
DOMEventTypePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMEventType ,
#endif
getDOMEventType ,
) 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.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMEvent = DOMEvent (SP.ManagedPtr DOMEvent)
deriving (DOMEvent -> DOMEvent -> Bool
(DOMEvent -> DOMEvent -> Bool)
-> (DOMEvent -> DOMEvent -> Bool) -> Eq DOMEvent
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DOMEvent -> DOMEvent -> Bool
== :: DOMEvent -> DOMEvent -> Bool
$c/= :: DOMEvent -> DOMEvent -> Bool
/= :: DOMEvent -> DOMEvent -> Bool
Eq)
instance SP.ManagedPtrNewtype DOMEvent where
toManagedPtr :: DOMEvent -> ManagedPtr DOMEvent
toManagedPtr (DOMEvent ManagedPtr DOMEvent
p) = ManagedPtr DOMEvent
p
foreign import ccall "webkit_dom_event_get_type"
c_webkit_dom_event_get_type :: IO B.Types.GType
instance B.Types.TypedObject DOMEvent where
glibType :: IO GType
glibType = IO GType
c_webkit_dom_event_get_type
instance B.Types.GObject DOMEvent
class (SP.GObject o, O.IsDescendantOf DOMEvent o) => IsDOMEvent o
instance (SP.GObject o, O.IsDescendantOf DOMEvent o) => IsDOMEvent o
instance O.HasParentTypes DOMEvent
type instance O.ParentTypes DOMEvent = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMEvent :: (MIO.MonadIO m, IsDOMEvent o) => o -> m DOMEvent
toDOMEvent :: forall (m :: * -> *) o.
(MonadIO m, IsDOMEvent o) =>
o -> m DOMEvent
toDOMEvent = IO DOMEvent -> m DOMEvent
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMEvent -> m DOMEvent)
-> (o -> IO DOMEvent) -> o -> m DOMEvent
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMEvent -> DOMEvent) -> o -> IO DOMEvent
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DOMEvent -> DOMEvent
DOMEvent
instance B.GValue.IsGValue (Maybe DOMEvent) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_dom_event_get_type
gvalueSet_ :: Ptr GValue -> Maybe DOMEvent -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DOMEvent
P.Nothing = Ptr GValue -> Ptr DOMEvent -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DOMEvent
forall a. Ptr a
FP.nullPtr :: FP.Ptr DOMEvent)
gvalueSet_ Ptr GValue
gv (P.Just DOMEvent
obj) = DOMEvent -> (Ptr DOMEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMEvent
obj (Ptr GValue -> Ptr DOMEvent -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DOMEvent)
gvalueGet_ Ptr GValue
gv = do
Ptr DOMEvent
ptr <- Ptr GValue -> IO (Ptr DOMEvent)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DOMEvent)
if Ptr DOMEvent
ptr Ptr DOMEvent -> Ptr DOMEvent -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DOMEvent
forall a. Ptr a
FP.nullPtr
then DOMEvent -> Maybe DOMEvent
forall a. a -> Maybe a
P.Just (DOMEvent -> Maybe DOMEvent) -> IO DOMEvent -> IO (Maybe DOMEvent)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DOMEvent -> DOMEvent) -> Ptr DOMEvent -> IO DOMEvent
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMEvent -> DOMEvent
DOMEvent Ptr DOMEvent
ptr
else Maybe DOMEvent -> IO (Maybe DOMEvent)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMEvent
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMEventMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveDOMEventMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMEventMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMEventMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMEventMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMEventMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMEventMethod "initEvent" o = DOMEventInitEventMethodInfo
ResolveDOMEventMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMEventMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMEventMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMEventMethod "preventDefault" o = DOMEventPreventDefaultMethodInfo
ResolveDOMEventMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMEventMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMEventMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMEventMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMEventMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMEventMethod "stopPropagation" o = DOMEventStopPropagationMethodInfo
ResolveDOMEventMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMEventMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMEventMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMEventMethod "getBubbles" o = DOMEventGetBubblesMethodInfo
ResolveDOMEventMethod "getCancelBubble" o = DOMEventGetCancelBubbleMethodInfo
ResolveDOMEventMethod "getCancelable" o = DOMEventGetCancelableMethodInfo
ResolveDOMEventMethod "getCurrentTarget" o = DOMEventGetCurrentTargetMethodInfo
ResolveDOMEventMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMEventMethod "getEventPhase" o = DOMEventGetEventPhaseMethodInfo
ResolveDOMEventMethod "getEventType" o = DOMEventGetEventTypeMethodInfo
ResolveDOMEventMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMEventMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMEventMethod "getReturnValue" o = DOMEventGetReturnValueMethodInfo
ResolveDOMEventMethod "getSrcElement" o = DOMEventGetSrcElementMethodInfo
ResolveDOMEventMethod "getTarget" o = DOMEventGetTargetMethodInfo
ResolveDOMEventMethod "getTimeStamp" o = DOMEventGetTimeStampMethodInfo
ResolveDOMEventMethod "setCancelBubble" o = DOMEventSetCancelBubbleMethodInfo
ResolveDOMEventMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMEventMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMEventMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMEventMethod "setReturnValue" o = DOMEventSetReturnValueMethodInfo
ResolveDOMEventMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMEventMethod t DOMEvent, O.OverloadedMethod info DOMEvent p) => OL.IsLabel t (DOMEvent -> 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 ~ ResolveDOMEventMethod t DOMEvent, O.OverloadedMethod info DOMEvent p, R.HasField t DOMEvent p) => R.HasField t DOMEvent p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDOMEventMethod t DOMEvent, O.OverloadedMethodInfo info DOMEvent) => OL.IsLabel t (O.MethodProxy info DOMEvent) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDOMEventBubbles :: (MonadIO m, IsDOMEvent o) => o -> m Bool
getDOMEventBubbles :: forall (m :: * -> *) o. (MonadIO m, IsDOMEvent o) => o -> m Bool
getDOMEventBubbles 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
"bubbles"
#if defined(ENABLE_OVERLOADING)
data DOMEventBubblesPropertyInfo
instance AttrInfo DOMEventBubblesPropertyInfo where
type AttrAllowedOps DOMEventBubblesPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMEventBubblesPropertyInfo = IsDOMEvent
type AttrSetTypeConstraint DOMEventBubblesPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMEventBubblesPropertyInfo = (~) ()
type AttrTransferType DOMEventBubblesPropertyInfo = ()
type AttrGetType DOMEventBubblesPropertyInfo = Bool
type AttrLabel DOMEventBubblesPropertyInfo = "bubbles"
type AttrOrigin DOMEventBubblesPropertyInfo = DOMEvent
attrGet = getDOMEventBubbles
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.bubbles"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#g:attr:bubbles"
})
#endif
getDOMEventCancelBubble :: (MonadIO m, IsDOMEvent o) => o -> m Bool
getDOMEventCancelBubble :: forall (m :: * -> *) o. (MonadIO m, IsDOMEvent o) => o -> m Bool
getDOMEventCancelBubble 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
"cancel-bubble"
setDOMEventCancelBubble :: (MonadIO m, IsDOMEvent o) => o -> Bool -> m ()
setDOMEventCancelBubble :: forall (m :: * -> *) o.
(MonadIO m, IsDOMEvent o) =>
o -> Bool -> m ()
setDOMEventCancelBubble o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"cancel-bubble" Bool
val
constructDOMEventCancelBubble :: (IsDOMEvent o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructDOMEventCancelBubble :: forall o (m :: * -> *).
(IsDOMEvent o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructDOMEventCancelBubble Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"cancel-bubble" Bool
val
#if defined(ENABLE_OVERLOADING)
data DOMEventCancelBubblePropertyInfo
instance AttrInfo DOMEventCancelBubblePropertyInfo where
type AttrAllowedOps DOMEventCancelBubblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMEventCancelBubblePropertyInfo = IsDOMEvent
type AttrSetTypeConstraint DOMEventCancelBubblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint DOMEventCancelBubblePropertyInfo = (~) Bool
type AttrTransferType DOMEventCancelBubblePropertyInfo = Bool
type AttrGetType DOMEventCancelBubblePropertyInfo = Bool
type AttrLabel DOMEventCancelBubblePropertyInfo = "cancel-bubble"
type AttrOrigin DOMEventCancelBubblePropertyInfo = DOMEvent
attrGet = getDOMEventCancelBubble
attrSet = setDOMEventCancelBubble
attrTransfer _ v = do
return v
attrConstruct = constructDOMEventCancelBubble
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.cancelBubble"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#g:attr:cancelBubble"
})
#endif
getDOMEventCancelable :: (MonadIO m, IsDOMEvent o) => o -> m Bool
getDOMEventCancelable :: forall (m :: * -> *) o. (MonadIO m, IsDOMEvent o) => o -> m Bool
getDOMEventCancelable 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
"cancelable"
#if defined(ENABLE_OVERLOADING)
data DOMEventCancelablePropertyInfo
instance AttrInfo DOMEventCancelablePropertyInfo where
type AttrAllowedOps DOMEventCancelablePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMEventCancelablePropertyInfo = IsDOMEvent
type AttrSetTypeConstraint DOMEventCancelablePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMEventCancelablePropertyInfo = (~) ()
type AttrTransferType DOMEventCancelablePropertyInfo = ()
type AttrGetType DOMEventCancelablePropertyInfo = Bool
type AttrLabel DOMEventCancelablePropertyInfo = "cancelable"
type AttrOrigin DOMEventCancelablePropertyInfo = DOMEvent
attrGet = getDOMEventCancelable
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.cancelable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#g:attr:cancelable"
})
#endif
getDOMEventCurrentTarget :: (MonadIO m, IsDOMEvent o) => o -> m (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
getDOMEventCurrentTarget :: forall (m :: * -> *) o.
(MonadIO m, IsDOMEvent o) =>
o -> m (Maybe DOMEventTarget)
getDOMEventCurrentTarget 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
"current-target" ManagedPtr DOMEventTarget -> DOMEventTarget
WebKit2WebExtension.DOMEventTarget.DOMEventTarget
#if defined(ENABLE_OVERLOADING)
data DOMEventCurrentTargetPropertyInfo
instance AttrInfo DOMEventCurrentTargetPropertyInfo where
type AttrAllowedOps DOMEventCurrentTargetPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMEventCurrentTargetPropertyInfo = IsDOMEvent
type AttrSetTypeConstraint DOMEventCurrentTargetPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMEventCurrentTargetPropertyInfo = (~) ()
type AttrTransferType DOMEventCurrentTargetPropertyInfo = ()
type AttrGetType DOMEventCurrentTargetPropertyInfo = (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
type AttrLabel DOMEventCurrentTargetPropertyInfo = "current-target"
type AttrOrigin DOMEventCurrentTargetPropertyInfo = DOMEvent
attrGet = getDOMEventCurrentTarget
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.currentTarget"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#g:attr:currentTarget"
})
#endif
getDOMEventEventPhase :: (MonadIO m, IsDOMEvent o) => o -> m Word32
getDOMEventEventPhase :: forall (m :: * -> *) o. (MonadIO m, IsDOMEvent o) => o -> m Word32
getDOMEventEventPhase 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
"event-phase"
#if defined(ENABLE_OVERLOADING)
data DOMEventEventPhasePropertyInfo
instance AttrInfo DOMEventEventPhasePropertyInfo where
type AttrAllowedOps DOMEventEventPhasePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMEventEventPhasePropertyInfo = IsDOMEvent
type AttrSetTypeConstraint DOMEventEventPhasePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMEventEventPhasePropertyInfo = (~) ()
type AttrTransferType DOMEventEventPhasePropertyInfo = ()
type AttrGetType DOMEventEventPhasePropertyInfo = Word32
type AttrLabel DOMEventEventPhasePropertyInfo = "event-phase"
type AttrOrigin DOMEventEventPhasePropertyInfo = DOMEvent
attrGet = getDOMEventEventPhase
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.eventPhase"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#g:attr:eventPhase"
})
#endif
getDOMEventReturnValue :: (MonadIO m, IsDOMEvent o) => o -> m Bool
getDOMEventReturnValue :: forall (m :: * -> *) o. (MonadIO m, IsDOMEvent o) => o -> m Bool
getDOMEventReturnValue 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
"return-value"
setDOMEventReturnValue :: (MonadIO m, IsDOMEvent o) => o -> Bool -> m ()
setDOMEventReturnValue :: forall (m :: * -> *) o.
(MonadIO m, IsDOMEvent o) =>
o -> Bool -> m ()
setDOMEventReturnValue o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"return-value" Bool
val
constructDOMEventReturnValue :: (IsDOMEvent o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructDOMEventReturnValue :: forall o (m :: * -> *).
(IsDOMEvent o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructDOMEventReturnValue Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"return-value" Bool
val
#if defined(ENABLE_OVERLOADING)
data DOMEventReturnValuePropertyInfo
instance AttrInfo DOMEventReturnValuePropertyInfo where
type AttrAllowedOps DOMEventReturnValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DOMEventReturnValuePropertyInfo = IsDOMEvent
type AttrSetTypeConstraint DOMEventReturnValuePropertyInfo = (~) Bool
type AttrTransferTypeConstraint DOMEventReturnValuePropertyInfo = (~) Bool
type AttrTransferType DOMEventReturnValuePropertyInfo = Bool
type AttrGetType DOMEventReturnValuePropertyInfo = Bool
type AttrLabel DOMEventReturnValuePropertyInfo = "return-value"
type AttrOrigin DOMEventReturnValuePropertyInfo = DOMEvent
attrGet = getDOMEventReturnValue
attrSet = setDOMEventReturnValue
attrTransfer _ v = do
return v
attrConstruct = constructDOMEventReturnValue
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.returnValue"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#g:attr:returnValue"
})
#endif
getDOMEventSrcElement :: (MonadIO m, IsDOMEvent o) => o -> m (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
getDOMEventSrcElement :: forall (m :: * -> *) o.
(MonadIO m, IsDOMEvent o) =>
o -> m (Maybe DOMEventTarget)
getDOMEventSrcElement 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
"src-element" ManagedPtr DOMEventTarget -> DOMEventTarget
WebKit2WebExtension.DOMEventTarget.DOMEventTarget
#if defined(ENABLE_OVERLOADING)
data DOMEventSrcElementPropertyInfo
instance AttrInfo DOMEventSrcElementPropertyInfo where
type AttrAllowedOps DOMEventSrcElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMEventSrcElementPropertyInfo = IsDOMEvent
type AttrSetTypeConstraint DOMEventSrcElementPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMEventSrcElementPropertyInfo = (~) ()
type AttrTransferType DOMEventSrcElementPropertyInfo = ()
type AttrGetType DOMEventSrcElementPropertyInfo = (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
type AttrLabel DOMEventSrcElementPropertyInfo = "src-element"
type AttrOrigin DOMEventSrcElementPropertyInfo = DOMEvent
attrGet = getDOMEventSrcElement
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.srcElement"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#g:attr:srcElement"
})
#endif
getDOMEventTarget :: (MonadIO m, IsDOMEvent o) => o -> m (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
getDOMEventTarget :: forall (m :: * -> *) o.
(MonadIO m, IsDOMEvent o) =>
o -> m (Maybe DOMEventTarget)
getDOMEventTarget 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
"target" ManagedPtr DOMEventTarget -> DOMEventTarget
WebKit2WebExtension.DOMEventTarget.DOMEventTarget
#if defined(ENABLE_OVERLOADING)
data DOMEventTargetPropertyInfo
instance AttrInfo DOMEventTargetPropertyInfo where
type AttrAllowedOps DOMEventTargetPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMEventTargetPropertyInfo = IsDOMEvent
type AttrSetTypeConstraint DOMEventTargetPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMEventTargetPropertyInfo = (~) ()
type AttrTransferType DOMEventTargetPropertyInfo = ()
type AttrGetType DOMEventTargetPropertyInfo = (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
type AttrLabel DOMEventTargetPropertyInfo = "target"
type AttrOrigin DOMEventTargetPropertyInfo = DOMEvent
attrGet = getDOMEventTarget
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.target"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#g:attr:target"
})
#endif
getDOMEventTimeStamp :: (MonadIO m, IsDOMEvent o) => o -> m Word32
getDOMEventTimeStamp :: forall (m :: * -> *) o. (MonadIO m, IsDOMEvent o) => o -> m Word32
getDOMEventTimeStamp 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
"time-stamp"
#if defined(ENABLE_OVERLOADING)
data DOMEventTimeStampPropertyInfo
instance AttrInfo DOMEventTimeStampPropertyInfo where
type AttrAllowedOps DOMEventTimeStampPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMEventTimeStampPropertyInfo = IsDOMEvent
type AttrSetTypeConstraint DOMEventTimeStampPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMEventTimeStampPropertyInfo = (~) ()
type AttrTransferType DOMEventTimeStampPropertyInfo = ()
type AttrGetType DOMEventTimeStampPropertyInfo = Word32
type AttrLabel DOMEventTimeStampPropertyInfo = "time-stamp"
type AttrOrigin DOMEventTimeStampPropertyInfo = DOMEvent
attrGet = getDOMEventTimeStamp
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.timeStamp"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#g:attr:timeStamp"
})
#endif
getDOMEventType :: (MonadIO m, IsDOMEvent o) => o -> m (Maybe T.Text)
getDOMEventType :: forall (m :: * -> *) o.
(MonadIO m, IsDOMEvent o) =>
o -> m (Maybe Text)
getDOMEventType o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"type"
#if defined(ENABLE_OVERLOADING)
data DOMEventTypePropertyInfo
instance AttrInfo DOMEventTypePropertyInfo where
type AttrAllowedOps DOMEventTypePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMEventTypePropertyInfo = IsDOMEvent
type AttrSetTypeConstraint DOMEventTypePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMEventTypePropertyInfo = (~) ()
type AttrTransferType DOMEventTypePropertyInfo = ()
type AttrGetType DOMEventTypePropertyInfo = (Maybe T.Text)
type AttrLabel DOMEventTypePropertyInfo = "type"
type AttrOrigin DOMEventTypePropertyInfo = DOMEvent
attrGet = getDOMEventType
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.type"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#g:attr:type"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMEvent
type instance O.AttributeList DOMEvent = DOMEventAttributeList
type DOMEventAttributeList = ('[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancelBubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("currentTarget", DOMEventCurrentTargetPropertyInfo), '("eventPhase", DOMEventEventPhasePropertyInfo), '("returnValue", DOMEventReturnValuePropertyInfo), '("srcElement", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("timeStamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMEventBubbles :: AttrLabelProxy "bubbles"
dOMEventBubbles = AttrLabelProxy
dOMEventCancelBubble :: AttrLabelProxy "cancelBubble"
dOMEventCancelBubble = AttrLabelProxy
dOMEventCancelable :: AttrLabelProxy "cancelable"
dOMEventCancelable = AttrLabelProxy
dOMEventCurrentTarget :: AttrLabelProxy "currentTarget"
dOMEventCurrentTarget = AttrLabelProxy
dOMEventEventPhase :: AttrLabelProxy "eventPhase"
dOMEventEventPhase = AttrLabelProxy
dOMEventReturnValue :: AttrLabelProxy "returnValue"
dOMEventReturnValue = AttrLabelProxy
dOMEventSrcElement :: AttrLabelProxy "srcElement"
dOMEventSrcElement = AttrLabelProxy
dOMEventTarget :: AttrLabelProxy "target"
dOMEventTarget = AttrLabelProxy
dOMEventTimeStamp :: AttrLabelProxy "timeStamp"
dOMEventTimeStamp = AttrLabelProxy
dOMEventType :: AttrLabelProxy "type"
dOMEventType = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMEvent = DOMEventSignalList
type DOMEventSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "webkit_dom_event_get_bubbles" webkit_dom_event_get_bubbles ::
Ptr DOMEvent ->
IO CInt
{-# DEPRECATED dOMEventGetBubbles ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventGetBubbles ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> m Bool
dOMEventGetBubbles :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> m Bool
dOMEventGetBubbles 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 DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMEvent -> IO CInt
webkit_dom_event_get_bubbles Ptr DOMEvent
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 DOMEventGetBubblesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventGetBubblesMethodInfo a signature where
overloadedMethod = dOMEventGetBubbles
instance O.OverloadedMethodInfo DOMEventGetBubblesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventGetBubbles",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventGetBubbles"
})
#endif
foreign import ccall "webkit_dom_event_get_cancel_bubble" webkit_dom_event_get_cancel_bubble ::
Ptr DOMEvent ->
IO CInt
{-# DEPRECATED dOMEventGetCancelBubble ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventGetCancelBubble ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> m Bool
dOMEventGetCancelBubble :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> m Bool
dOMEventGetCancelBubble 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 DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMEvent -> IO CInt
webkit_dom_event_get_cancel_bubble Ptr DOMEvent
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 DOMEventGetCancelBubbleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventGetCancelBubbleMethodInfo a signature where
overloadedMethod = dOMEventGetCancelBubble
instance O.OverloadedMethodInfo DOMEventGetCancelBubbleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventGetCancelBubble",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventGetCancelBubble"
})
#endif
foreign import ccall "webkit_dom_event_get_cancelable" webkit_dom_event_get_cancelable ::
Ptr DOMEvent ->
IO CInt
{-# DEPRECATED dOMEventGetCancelable ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventGetCancelable ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> m Bool
dOMEventGetCancelable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> m Bool
dOMEventGetCancelable 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 DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMEvent -> IO CInt
webkit_dom_event_get_cancelable Ptr DOMEvent
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 DOMEventGetCancelableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventGetCancelableMethodInfo a signature where
overloadedMethod = dOMEventGetCancelable
instance O.OverloadedMethodInfo DOMEventGetCancelableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventGetCancelable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventGetCancelable"
})
#endif
foreign import ccall "webkit_dom_event_get_current_target" webkit_dom_event_get_current_target ::
Ptr DOMEvent ->
IO (Ptr WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
{-# DEPRECATED dOMEventGetCurrentTarget ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventGetCurrentTarget ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> m WebKit2WebExtension.DOMEventTarget.DOMEventTarget
dOMEventGetCurrentTarget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> m DOMEventTarget
dOMEventGetCurrentTarget 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 DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMEventTarget
result <- Ptr DOMEvent -> IO (Ptr DOMEventTarget)
webkit_dom_event_get_current_target Ptr DOMEvent
self'
Text -> Ptr DOMEventTarget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMEventGetCurrentTarget" 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 DOMEventGetCurrentTargetMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMEventTarget.DOMEventTarget), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventGetCurrentTargetMethodInfo a signature where
overloadedMethod = dOMEventGetCurrentTarget
instance O.OverloadedMethodInfo DOMEventGetCurrentTargetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventGetCurrentTarget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventGetCurrentTarget"
})
#endif
foreign import ccall "webkit_dom_event_get_event_phase" webkit_dom_event_get_event_phase ::
Ptr DOMEvent ->
IO Word16
{-# DEPRECATED dOMEventGetEventPhase ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventGetEventPhase ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> m Word16
dOMEventGetEventPhase :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> m Word16
dOMEventGetEventPhase 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 DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word16
result <- Ptr DOMEvent -> IO Word16
webkit_dom_event_get_event_phase Ptr DOMEvent
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 DOMEventGetEventPhaseMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventGetEventPhaseMethodInfo a signature where
overloadedMethod = dOMEventGetEventPhase
instance O.OverloadedMethodInfo DOMEventGetEventPhaseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventGetEventPhase",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventGetEventPhase"
})
#endif
foreign import ccall "webkit_dom_event_get_event_type" webkit_dom_event_get_event_type ::
Ptr DOMEvent ->
IO CString
{-# DEPRECATED dOMEventGetEventType ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventGetEventType ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> m T.Text
dOMEventGetEventType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> m Text
dOMEventGetEventType a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMEvent -> IO CString
webkit_dom_event_get_event_type Ptr DOMEvent
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMEventGetEventType" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMEventGetEventTypeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventGetEventTypeMethodInfo a signature where
overloadedMethod = dOMEventGetEventType
instance O.OverloadedMethodInfo DOMEventGetEventTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventGetEventType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventGetEventType"
})
#endif
foreign import ccall "webkit_dom_event_get_return_value" webkit_dom_event_get_return_value ::
Ptr DOMEvent ->
IO CInt
{-# DEPRECATED dOMEventGetReturnValue ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventGetReturnValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> m Bool
dOMEventGetReturnValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> m Bool
dOMEventGetReturnValue 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 DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr DOMEvent -> IO CInt
webkit_dom_event_get_return_value Ptr DOMEvent
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 DOMEventGetReturnValueMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventGetReturnValueMethodInfo a signature where
overloadedMethod = dOMEventGetReturnValue
instance O.OverloadedMethodInfo DOMEventGetReturnValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventGetReturnValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventGetReturnValue"
})
#endif
foreign import ccall "webkit_dom_event_get_src_element" webkit_dom_event_get_src_element ::
Ptr DOMEvent ->
IO (Ptr WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
{-# DEPRECATED dOMEventGetSrcElement ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventGetSrcElement ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> m WebKit2WebExtension.DOMEventTarget.DOMEventTarget
dOMEventGetSrcElement :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> m DOMEventTarget
dOMEventGetSrcElement 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 DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMEventTarget
result <- Ptr DOMEvent -> IO (Ptr DOMEventTarget)
webkit_dom_event_get_src_element Ptr DOMEvent
self'
Text -> Ptr DOMEventTarget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMEventGetSrcElement" 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 DOMEventGetSrcElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMEventTarget.DOMEventTarget), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventGetSrcElementMethodInfo a signature where
overloadedMethod = dOMEventGetSrcElement
instance O.OverloadedMethodInfo DOMEventGetSrcElementMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventGetSrcElement",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventGetSrcElement"
})
#endif
foreign import ccall "webkit_dom_event_get_target" webkit_dom_event_get_target ::
Ptr DOMEvent ->
IO (Ptr WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
{-# DEPRECATED dOMEventGetTarget ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventGetTarget ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> m WebKit2WebExtension.DOMEventTarget.DOMEventTarget
dOMEventGetTarget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> m DOMEventTarget
dOMEventGetTarget 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 DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMEventTarget
result <- Ptr DOMEvent -> IO (Ptr DOMEventTarget)
webkit_dom_event_get_target Ptr DOMEvent
self'
Text -> Ptr DOMEventTarget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMEventGetTarget" 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 DOMEventGetTargetMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMEventTarget.DOMEventTarget), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventGetTargetMethodInfo a signature where
overloadedMethod = dOMEventGetTarget
instance O.OverloadedMethodInfo DOMEventGetTargetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventGetTarget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventGetTarget"
})
#endif
foreign import ccall "webkit_dom_event_get_time_stamp" webkit_dom_event_get_time_stamp ::
Ptr DOMEvent ->
IO Word32
{-# DEPRECATED dOMEventGetTimeStamp ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventGetTimeStamp ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> m Word32
dOMEventGetTimeStamp :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> m Word32
dOMEventGetTimeStamp a
self = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr DOMEvent -> IO Word32
webkit_dom_event_get_time_stamp Ptr DOMEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data DOMEventGetTimeStampMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventGetTimeStampMethodInfo a signature where
overloadedMethod = dOMEventGetTimeStamp
instance O.OverloadedMethodInfo DOMEventGetTimeStampMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventGetTimeStamp",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventGetTimeStamp"
})
#endif
foreign import ccall "webkit_dom_event_init_event" webkit_dom_event_init_event ::
Ptr DOMEvent ->
CString ->
CInt ->
CInt ->
IO ()
{-# DEPRECATED dOMEventInitEvent ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventInitEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> T.Text
-> Bool
-> Bool
-> m ()
dOMEventInitEvent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> Text -> Bool -> Bool -> m ()
dOMEventInitEvent a
self Text
eventTypeArg Bool
canBubbleArg Bool
cancelableArg = 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 DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
eventTypeArg' <- Text -> IO CString
textToCString Text
eventTypeArg
let canBubbleArg' :: CInt
canBubbleArg' = (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
canBubbleArg
let cancelableArg' :: CInt
cancelableArg' = (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
cancelableArg
Ptr DOMEvent -> CString -> CInt -> CInt -> IO ()
webkit_dom_event_init_event Ptr DOMEvent
self' CString
eventTypeArg' CInt
canBubbleArg' CInt
cancelableArg'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
eventTypeArg'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMEventInitEventMethodInfo
instance (signature ~ (T.Text -> Bool -> Bool -> m ()), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventInitEventMethodInfo a signature where
overloadedMethod = dOMEventInitEvent
instance O.OverloadedMethodInfo DOMEventInitEventMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventInitEvent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventInitEvent"
})
#endif
foreign import ccall "webkit_dom_event_prevent_default" webkit_dom_event_prevent_default ::
Ptr DOMEvent ->
IO ()
{-# DEPRECATED dOMEventPreventDefault ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventPreventDefault ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> m ()
dOMEventPreventDefault :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> m ()
dOMEventPreventDefault a
self = 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 DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMEvent -> IO ()
webkit_dom_event_prevent_default Ptr DOMEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMEventPreventDefaultMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventPreventDefaultMethodInfo a signature where
overloadedMethod = dOMEventPreventDefault
instance O.OverloadedMethodInfo DOMEventPreventDefaultMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventPreventDefault",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventPreventDefault"
})
#endif
foreign import ccall "webkit_dom_event_set_cancel_bubble" webkit_dom_event_set_cancel_bubble ::
Ptr DOMEvent ->
CInt ->
IO ()
{-# DEPRECATED dOMEventSetCancelBubble ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventSetCancelBubble ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> Bool
-> m ()
dOMEventSetCancelBubble :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> Bool -> m ()
dOMEventSetCancelBubble a
self Bool
value = 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 DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CInt
value' = (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
value
Ptr DOMEvent -> CInt -> IO ()
webkit_dom_event_set_cancel_bubble Ptr DOMEvent
self' CInt
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMEventSetCancelBubbleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventSetCancelBubbleMethodInfo a signature where
overloadedMethod = dOMEventSetCancelBubble
instance O.OverloadedMethodInfo DOMEventSetCancelBubbleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventSetCancelBubble",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventSetCancelBubble"
})
#endif
foreign import ccall "webkit_dom_event_set_return_value" webkit_dom_event_set_return_value ::
Ptr DOMEvent ->
CInt ->
IO ()
{-# DEPRECATED dOMEventSetReturnValue ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventSetReturnValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> Bool
-> m ()
dOMEventSetReturnValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> Bool -> m ()
dOMEventSetReturnValue a
self Bool
value = 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 DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let value' :: CInt
value' = (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
value
Ptr DOMEvent -> CInt -> IO ()
webkit_dom_event_set_return_value Ptr DOMEvent
self' CInt
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMEventSetReturnValueMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventSetReturnValueMethodInfo a signature where
overloadedMethod = dOMEventSetReturnValue
instance O.OverloadedMethodInfo DOMEventSetReturnValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventSetReturnValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventSetReturnValue"
})
#endif
foreign import ccall "webkit_dom_event_stop_propagation" webkit_dom_event_stop_propagation ::
Ptr DOMEvent ->
IO ()
{-# DEPRECATED dOMEventStopPropagation ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMEventStopPropagation ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMEvent a) =>
a
-> m ()
dOMEventStopPropagation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMEvent a) =>
a -> m ()
dOMEventStopPropagation a
self = 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 DOMEvent
self' <- a -> IO (Ptr DOMEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMEvent -> IO ()
webkit_dom_event_stop_propagation Ptr DOMEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMEventStopPropagationMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMEvent a) => O.OverloadedMethod DOMEventStopPropagationMethodInfo a signature where
overloadedMethod = dOMEventStopPropagation
instance O.OverloadedMethodInfo DOMEventStopPropagationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2WebExtension.Objects.DOMEvent.dOMEventStopPropagation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.30/docs/GI-WebKit2WebExtension-Objects-DOMEvent.html#v:dOMEventStopPropagation"
})
#endif