#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2WebExtension.Objects.DOMEvent
(
DOMEvent(..) ,
IsDOMEvent ,
toDOMEvent ,
noDOMEvent ,
#if ENABLE_OVERLOADING
DOMEventGetBubblesMethodInfo ,
#endif
dOMEventGetBubbles ,
#if ENABLE_OVERLOADING
DOMEventGetCancelBubbleMethodInfo ,
#endif
dOMEventGetCancelBubble ,
#if ENABLE_OVERLOADING
DOMEventGetCancelableMethodInfo ,
#endif
dOMEventGetCancelable ,
#if ENABLE_OVERLOADING
DOMEventGetCurrentTargetMethodInfo ,
#endif
dOMEventGetCurrentTarget ,
#if ENABLE_OVERLOADING
DOMEventGetEventPhaseMethodInfo ,
#endif
dOMEventGetEventPhase ,
#if ENABLE_OVERLOADING
DOMEventGetEventTypeMethodInfo ,
#endif
dOMEventGetEventType ,
#if ENABLE_OVERLOADING
DOMEventGetReturnValueMethodInfo ,
#endif
dOMEventGetReturnValue ,
#if ENABLE_OVERLOADING
DOMEventGetSrcElementMethodInfo ,
#endif
dOMEventGetSrcElement ,
#if ENABLE_OVERLOADING
DOMEventGetTargetMethodInfo ,
#endif
dOMEventGetTarget ,
#if ENABLE_OVERLOADING
DOMEventGetTimeStampMethodInfo ,
#endif
dOMEventGetTimeStamp ,
#if ENABLE_OVERLOADING
DOMEventInitEventMethodInfo ,
#endif
dOMEventInitEvent ,
#if ENABLE_OVERLOADING
DOMEventPreventDefaultMethodInfo ,
#endif
dOMEventPreventDefault ,
#if ENABLE_OVERLOADING
DOMEventSetCancelBubbleMethodInfo ,
#endif
dOMEventSetCancelBubble ,
#if ENABLE_OVERLOADING
DOMEventSetReturnValueMethodInfo ,
#endif
dOMEventSetReturnValue ,
#if ENABLE_OVERLOADING
DOMEventStopPropagationMethodInfo ,
#endif
dOMEventStopPropagation ,
#if ENABLE_OVERLOADING
DOMEventBubblesPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMEventBubbles ,
#endif
getDOMEventBubbles ,
#if ENABLE_OVERLOADING
DOMEventCancelBubblePropertyInfo ,
#endif
constructDOMEventCancelBubble ,
#if ENABLE_OVERLOADING
dOMEventCancelBubble ,
#endif
getDOMEventCancelBubble ,
setDOMEventCancelBubble ,
#if ENABLE_OVERLOADING
DOMEventCancelablePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMEventCancelable ,
#endif
getDOMEventCancelable ,
#if ENABLE_OVERLOADING
DOMEventCurrentTargetPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMEventCurrentTarget ,
#endif
getDOMEventCurrentTarget ,
#if ENABLE_OVERLOADING
DOMEventEventPhasePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMEventEventPhase ,
#endif
getDOMEventEventPhase ,
#if ENABLE_OVERLOADING
DOMEventReturnValuePropertyInfo ,
#endif
constructDOMEventReturnValue ,
#if ENABLE_OVERLOADING
dOMEventReturnValue ,
#endif
getDOMEventReturnValue ,
setDOMEventReturnValue ,
#if ENABLE_OVERLOADING
DOMEventSrcElementPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMEventSrcElement ,
#endif
getDOMEventSrcElement ,
#if ENABLE_OVERLOADING
DOMEventTargetPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMEventTarget ,
#endif
getDOMEventTarget ,
#if ENABLE_OVERLOADING
DOMEventTimeStampPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMEventTimeStamp ,
#endif
getDOMEventTimeStamp ,
#if ENABLE_OVERLOADING
DOMEventTypePropertyInfo ,
#endif
#if 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Interfaces.DOMEventTarget as WebKit2WebExtension.DOMEventTarget
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMEvent = DOMEvent (ManagedPtr DOMEvent)
foreign import ccall "webkit_dom_event_get_type"
c_webkit_dom_event_get_type :: IO GType
instance GObject DOMEvent where
gobjectType = c_webkit_dom_event_get_type
class (GObject o, O.IsDescendantOf DOMEvent o) => IsDOMEvent o
instance (GObject o, O.IsDescendantOf DOMEvent o) => IsDOMEvent o
instance O.HasParentTypes DOMEvent
type instance O.ParentTypes DOMEvent = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMEvent :: (MonadIO m, IsDOMEvent o) => o -> m DOMEvent
toDOMEvent = liftIO . unsafeCastTo DOMEvent
noDOMEvent :: Maybe DOMEvent
noDOMEvent = Nothing
#if ENABLE_OVERLOADING
type family ResolveDOMEventMethod (t :: Symbol) (o :: *) :: * 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.MethodInfo info DOMEvent p) => OL.IsLabel t (DOMEvent -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
getDOMEventBubbles :: (MonadIO m, IsDOMEvent o) => o -> m Bool
getDOMEventBubbles obj = liftIO $ B.Properties.getObjectPropertyBool obj "bubbles"
#if ENABLE_OVERLOADING
data DOMEventBubblesPropertyInfo
instance AttrInfo DOMEventBubblesPropertyInfo where
type AttrAllowedOps DOMEventBubblesPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMEventBubblesPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMEventBubblesPropertyInfo = IsDOMEvent
type AttrGetType DOMEventBubblesPropertyInfo = Bool
type AttrLabel DOMEventBubblesPropertyInfo = "bubbles"
type AttrOrigin DOMEventBubblesPropertyInfo = DOMEvent
attrGet _ = getDOMEventBubbles
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMEventCancelBubble :: (MonadIO m, IsDOMEvent o) => o -> m Bool
getDOMEventCancelBubble obj = liftIO $ B.Properties.getObjectPropertyBool obj "cancel-bubble"
setDOMEventCancelBubble :: (MonadIO m, IsDOMEvent o) => o -> Bool -> m ()
setDOMEventCancelBubble obj val = liftIO $ B.Properties.setObjectPropertyBool obj "cancel-bubble" val
constructDOMEventCancelBubble :: (IsDOMEvent o) => Bool -> IO (GValueConstruct o)
constructDOMEventCancelBubble val = B.Properties.constructObjectPropertyBool "cancel-bubble" val
#if ENABLE_OVERLOADING
data DOMEventCancelBubblePropertyInfo
instance AttrInfo DOMEventCancelBubblePropertyInfo where
type AttrAllowedOps DOMEventCancelBubblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMEventCancelBubblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMEventCancelBubblePropertyInfo = IsDOMEvent
type AttrGetType DOMEventCancelBubblePropertyInfo = Bool
type AttrLabel DOMEventCancelBubblePropertyInfo = "cancel-bubble"
type AttrOrigin DOMEventCancelBubblePropertyInfo = DOMEvent
attrGet _ = getDOMEventCancelBubble
attrSet _ = setDOMEventCancelBubble
attrConstruct _ = constructDOMEventCancelBubble
attrClear _ = undefined
#endif
getDOMEventCancelable :: (MonadIO m, IsDOMEvent o) => o -> m Bool
getDOMEventCancelable obj = liftIO $ B.Properties.getObjectPropertyBool obj "cancelable"
#if ENABLE_OVERLOADING
data DOMEventCancelablePropertyInfo
instance AttrInfo DOMEventCancelablePropertyInfo where
type AttrAllowedOps DOMEventCancelablePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMEventCancelablePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMEventCancelablePropertyInfo = IsDOMEvent
type AttrGetType DOMEventCancelablePropertyInfo = Bool
type AttrLabel DOMEventCancelablePropertyInfo = "cancelable"
type AttrOrigin DOMEventCancelablePropertyInfo = DOMEvent
attrGet _ = getDOMEventCancelable
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMEventCurrentTarget :: (MonadIO m, IsDOMEvent o) => o -> m (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
getDOMEventCurrentTarget obj = liftIO $ B.Properties.getObjectPropertyObject obj "current-target" WebKit2WebExtension.DOMEventTarget.DOMEventTarget
#if ENABLE_OVERLOADING
data DOMEventCurrentTargetPropertyInfo
instance AttrInfo DOMEventCurrentTargetPropertyInfo where
type AttrAllowedOps DOMEventCurrentTargetPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMEventCurrentTargetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMEventCurrentTargetPropertyInfo = IsDOMEvent
type AttrGetType DOMEventCurrentTargetPropertyInfo = (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
type AttrLabel DOMEventCurrentTargetPropertyInfo = "current-target"
type AttrOrigin DOMEventCurrentTargetPropertyInfo = DOMEvent
attrGet _ = getDOMEventCurrentTarget
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMEventEventPhase :: (MonadIO m, IsDOMEvent o) => o -> m Word32
getDOMEventEventPhase obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "event-phase"
#if ENABLE_OVERLOADING
data DOMEventEventPhasePropertyInfo
instance AttrInfo DOMEventEventPhasePropertyInfo where
type AttrAllowedOps DOMEventEventPhasePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMEventEventPhasePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMEventEventPhasePropertyInfo = IsDOMEvent
type AttrGetType DOMEventEventPhasePropertyInfo = Word32
type AttrLabel DOMEventEventPhasePropertyInfo = "event-phase"
type AttrOrigin DOMEventEventPhasePropertyInfo = DOMEvent
attrGet _ = getDOMEventEventPhase
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMEventReturnValue :: (MonadIO m, IsDOMEvent o) => o -> m Bool
getDOMEventReturnValue obj = liftIO $ B.Properties.getObjectPropertyBool obj "return-value"
setDOMEventReturnValue :: (MonadIO m, IsDOMEvent o) => o -> Bool -> m ()
setDOMEventReturnValue obj val = liftIO $ B.Properties.setObjectPropertyBool obj "return-value" val
constructDOMEventReturnValue :: (IsDOMEvent o) => Bool -> IO (GValueConstruct o)
constructDOMEventReturnValue val = B.Properties.constructObjectPropertyBool "return-value" val
#if ENABLE_OVERLOADING
data DOMEventReturnValuePropertyInfo
instance AttrInfo DOMEventReturnValuePropertyInfo where
type AttrAllowedOps DOMEventReturnValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMEventReturnValuePropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMEventReturnValuePropertyInfo = IsDOMEvent
type AttrGetType DOMEventReturnValuePropertyInfo = Bool
type AttrLabel DOMEventReturnValuePropertyInfo = "return-value"
type AttrOrigin DOMEventReturnValuePropertyInfo = DOMEvent
attrGet _ = getDOMEventReturnValue
attrSet _ = setDOMEventReturnValue
attrConstruct _ = constructDOMEventReturnValue
attrClear _ = undefined
#endif
getDOMEventSrcElement :: (MonadIO m, IsDOMEvent o) => o -> m (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
getDOMEventSrcElement obj = liftIO $ B.Properties.getObjectPropertyObject obj "src-element" WebKit2WebExtension.DOMEventTarget.DOMEventTarget
#if ENABLE_OVERLOADING
data DOMEventSrcElementPropertyInfo
instance AttrInfo DOMEventSrcElementPropertyInfo where
type AttrAllowedOps DOMEventSrcElementPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMEventSrcElementPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMEventSrcElementPropertyInfo = IsDOMEvent
type AttrGetType DOMEventSrcElementPropertyInfo = (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
type AttrLabel DOMEventSrcElementPropertyInfo = "src-element"
type AttrOrigin DOMEventSrcElementPropertyInfo = DOMEvent
attrGet _ = getDOMEventSrcElement
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMEventTarget :: (MonadIO m, IsDOMEvent o) => o -> m (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
getDOMEventTarget obj = liftIO $ B.Properties.getObjectPropertyObject obj "target" WebKit2WebExtension.DOMEventTarget.DOMEventTarget
#if ENABLE_OVERLOADING
data DOMEventTargetPropertyInfo
instance AttrInfo DOMEventTargetPropertyInfo where
type AttrAllowedOps DOMEventTargetPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMEventTargetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMEventTargetPropertyInfo = IsDOMEvent
type AttrGetType DOMEventTargetPropertyInfo = (Maybe WebKit2WebExtension.DOMEventTarget.DOMEventTarget)
type AttrLabel DOMEventTargetPropertyInfo = "target"
type AttrOrigin DOMEventTargetPropertyInfo = DOMEvent
attrGet _ = getDOMEventTarget
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMEventTimeStamp :: (MonadIO m, IsDOMEvent o) => o -> m Word32
getDOMEventTimeStamp obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "time-stamp"
#if ENABLE_OVERLOADING
data DOMEventTimeStampPropertyInfo
instance AttrInfo DOMEventTimeStampPropertyInfo where
type AttrAllowedOps DOMEventTimeStampPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMEventTimeStampPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMEventTimeStampPropertyInfo = IsDOMEvent
type AttrGetType DOMEventTimeStampPropertyInfo = Word32
type AttrLabel DOMEventTimeStampPropertyInfo = "time-stamp"
type AttrOrigin DOMEventTimeStampPropertyInfo = DOMEvent
attrGet _ = getDOMEventTimeStamp
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMEventType :: (MonadIO m, IsDOMEvent o) => o -> m (Maybe T.Text)
getDOMEventType obj = liftIO $ B.Properties.getObjectPropertyString obj "type"
#if ENABLE_OVERLOADING
data DOMEventTypePropertyInfo
instance AttrInfo DOMEventTypePropertyInfo where
type AttrAllowedOps DOMEventTypePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMEventTypePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMEventTypePropertyInfo = IsDOMEvent
type AttrGetType DOMEventTypePropertyInfo = (Maybe T.Text)
type AttrLabel DOMEventTypePropertyInfo = "type"
type AttrOrigin DOMEventTypePropertyInfo = DOMEvent
attrGet _ = getDOMEventType
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
#if 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, *)])
#endif
#if 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 ENABLE_OVERLOADING
type instance O.SignalList DOMEvent = DOMEventSignalList
type DOMEventSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#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 self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_event_get_bubbles self'
let result' = (/= 0) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMEventGetBubblesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventGetBubblesMethodInfo a signature where
overloadedMethod _ = 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 self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_event_get_cancel_bubble self'
let result' = (/= 0) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMEventGetCancelBubbleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventGetCancelBubbleMethodInfo a signature where
overloadedMethod _ = 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 self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_event_get_cancelable self'
let result' = (/= 0) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMEventGetCancelableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventGetCancelableMethodInfo a signature where
overloadedMethod _ = 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 self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_event_get_current_target self'
checkUnexpectedReturnNULL "dOMEventGetCurrentTarget" result
result' <- (wrapObject WebKit2WebExtension.DOMEventTarget.DOMEventTarget) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMEventGetCurrentTargetMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMEventTarget.DOMEventTarget), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventGetCurrentTargetMethodInfo a signature where
overloadedMethod _ = 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 self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_event_get_event_phase self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMEventGetEventPhaseMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventGetEventPhaseMethodInfo a signature where
overloadedMethod _ = 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 self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_event_get_event_type self'
checkUnexpectedReturnNULL "dOMEventGetEventType" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMEventGetEventTypeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventGetEventTypeMethodInfo a signature where
overloadedMethod _ = 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 self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_event_get_return_value self'
let result' = (/= 0) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMEventGetReturnValueMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventGetReturnValueMethodInfo a signature where
overloadedMethod _ = 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 self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_event_get_src_element self'
checkUnexpectedReturnNULL "dOMEventGetSrcElement" result
result' <- (wrapObject WebKit2WebExtension.DOMEventTarget.DOMEventTarget) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMEventGetSrcElementMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMEventTarget.DOMEventTarget), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventGetSrcElementMethodInfo a signature where
overloadedMethod _ = 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 self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_event_get_target self'
checkUnexpectedReturnNULL "dOMEventGetTarget" result
result' <- (wrapObject WebKit2WebExtension.DOMEventTarget.DOMEventTarget) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMEventGetTargetMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMEventTarget.DOMEventTarget), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventGetTargetMethodInfo a signature where
overloadedMethod _ = 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 self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_event_get_time_stamp self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMEventGetTimeStampMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventGetTimeStampMethodInfo a signature where
overloadedMethod _ = 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 self eventTypeArg canBubbleArg cancelableArg = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
eventTypeArg' <- textToCString eventTypeArg
let canBubbleArg' = (fromIntegral . fromEnum) canBubbleArg
let cancelableArg' = (fromIntegral . fromEnum) cancelableArg
webkit_dom_event_init_event self' eventTypeArg' canBubbleArg' cancelableArg'
touchManagedPtr self
freeMem eventTypeArg'
return ()
#if ENABLE_OVERLOADING
data DOMEventInitEventMethodInfo
instance (signature ~ (T.Text -> Bool -> Bool -> m ()), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventInitEventMethodInfo a signature where
overloadedMethod _ = 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 self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
webkit_dom_event_prevent_default self'
touchManagedPtr self
return ()
#if ENABLE_OVERLOADING
data DOMEventPreventDefaultMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventPreventDefaultMethodInfo a signature where
overloadedMethod _ = 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 self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
let value' = (fromIntegral . fromEnum) value
webkit_dom_event_set_cancel_bubble self' value'
touchManagedPtr self
return ()
#if ENABLE_OVERLOADING
data DOMEventSetCancelBubbleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventSetCancelBubbleMethodInfo a signature where
overloadedMethod _ = 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 self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
let value' = (fromIntegral . fromEnum) value
webkit_dom_event_set_return_value self' value'
touchManagedPtr self
return ()
#if ENABLE_OVERLOADING
data DOMEventSetReturnValueMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventSetReturnValueMethodInfo a signature where
overloadedMethod _ = 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 self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
webkit_dom_event_stop_propagation self'
touchManagedPtr self
return ()
#if ENABLE_OVERLOADING
data DOMEventStopPropagationMethodInfo
instance (signature ~ (m ()), MonadIO m, IsDOMEvent a) => O.MethodInfo DOMEventStopPropagationMethodInfo a signature where
overloadedMethod _ = dOMEventStopPropagation
#endif