#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2WebExtension.Objects.DOMUIEvent
(
DOMUIEvent(..) ,
IsDOMUIEvent ,
toDOMUIEvent ,
noDOMUIEvent ,
#if ENABLE_OVERLOADING
DOMUIEventGetCharCodeMethodInfo ,
#endif
dOMUIEventGetCharCode ,
#if ENABLE_OVERLOADING
DOMUIEventGetDetailMethodInfo ,
#endif
dOMUIEventGetDetail ,
#if ENABLE_OVERLOADING
DOMUIEventGetKeyCodeMethodInfo ,
#endif
dOMUIEventGetKeyCode ,
#if ENABLE_OVERLOADING
DOMUIEventGetLayerXMethodInfo ,
#endif
dOMUIEventGetLayerX ,
#if ENABLE_OVERLOADING
DOMUIEventGetLayerYMethodInfo ,
#endif
dOMUIEventGetLayerY ,
#if ENABLE_OVERLOADING
DOMUIEventGetPageXMethodInfo ,
#endif
dOMUIEventGetPageX ,
#if ENABLE_OVERLOADING
DOMUIEventGetPageYMethodInfo ,
#endif
dOMUIEventGetPageY ,
#if ENABLE_OVERLOADING
DOMUIEventGetViewMethodInfo ,
#endif
dOMUIEventGetView ,
#if ENABLE_OVERLOADING
DOMUIEventInitUiEventMethodInfo ,
#endif
dOMUIEventInitUiEvent ,
#if ENABLE_OVERLOADING
DOMUIEventCharCodePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMUIEventCharCode ,
#endif
getDOMUIEventCharCode ,
#if ENABLE_OVERLOADING
DOMUIEventDetailPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMUIEventDetail ,
#endif
getDOMUIEventDetail ,
#if ENABLE_OVERLOADING
DOMUIEventKeyCodePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMUIEventKeyCode ,
#endif
getDOMUIEventKeyCode ,
#if ENABLE_OVERLOADING
DOMUIEventLayerXPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMUIEventLayerX ,
#endif
getDOMUIEventLayerX ,
#if ENABLE_OVERLOADING
DOMUIEventLayerYPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMUIEventLayerY ,
#endif
getDOMUIEventLayerY ,
#if ENABLE_OVERLOADING
DOMUIEventPageXPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMUIEventPageX ,
#endif
getDOMUIEventPageX ,
#if ENABLE_OVERLOADING
DOMUIEventPageYPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMUIEventPageY ,
#endif
getDOMUIEventPageY ,
#if ENABLE_OVERLOADING
DOMUIEventViewPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMUIEventView ,
#endif
getDOMUIEventView ,
) 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.Objects.DOMDOMWindow as WebKit2WebExtension.DOMDOMWindow
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMEvent as WebKit2WebExtension.DOMEvent
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMUIEvent = DOMUIEvent (ManagedPtr DOMUIEvent)
foreign import ccall "webkit_dom_ui_event_get_type"
c_webkit_dom_ui_event_get_type :: IO GType
instance GObject DOMUIEvent where
gobjectType = c_webkit_dom_ui_event_get_type
class (GObject o, O.IsDescendantOf DOMUIEvent o) => IsDOMUIEvent o
instance (GObject o, O.IsDescendantOf DOMUIEvent o) => IsDOMUIEvent o
instance O.HasParentTypes DOMUIEvent
type instance O.ParentTypes DOMUIEvent = '[WebKit2WebExtension.DOMEvent.DOMEvent, WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMUIEvent :: (MonadIO m, IsDOMUIEvent o) => o -> m DOMUIEvent
toDOMUIEvent = liftIO . unsafeCastTo DOMUIEvent
noDOMUIEvent :: Maybe DOMUIEvent
noDOMUIEvent = Nothing
#if ENABLE_OVERLOADING
type family ResolveDOMUIEventMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMUIEventMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMUIEventMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMUIEventMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMUIEventMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMUIEventMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMUIEventMethod "initEvent" o = WebKit2WebExtension.DOMEvent.DOMEventInitEventMethodInfo
ResolveDOMUIEventMethod "initUiEvent" o = DOMUIEventInitUiEventMethodInfo
ResolveDOMUIEventMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMUIEventMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMUIEventMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMUIEventMethod "preventDefault" o = WebKit2WebExtension.DOMEvent.DOMEventPreventDefaultMethodInfo
ResolveDOMUIEventMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMUIEventMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMUIEventMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMUIEventMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMUIEventMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMUIEventMethod "stopPropagation" o = WebKit2WebExtension.DOMEvent.DOMEventStopPropagationMethodInfo
ResolveDOMUIEventMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMUIEventMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMUIEventMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMUIEventMethod "getBubbles" o = WebKit2WebExtension.DOMEvent.DOMEventGetBubblesMethodInfo
ResolveDOMUIEventMethod "getCancelBubble" o = WebKit2WebExtension.DOMEvent.DOMEventGetCancelBubbleMethodInfo
ResolveDOMUIEventMethod "getCancelable" o = WebKit2WebExtension.DOMEvent.DOMEventGetCancelableMethodInfo
ResolveDOMUIEventMethod "getCharCode" o = DOMUIEventGetCharCodeMethodInfo
ResolveDOMUIEventMethod "getCurrentTarget" o = WebKit2WebExtension.DOMEvent.DOMEventGetCurrentTargetMethodInfo
ResolveDOMUIEventMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMUIEventMethod "getDetail" o = DOMUIEventGetDetailMethodInfo
ResolveDOMUIEventMethod "getEventPhase" o = WebKit2WebExtension.DOMEvent.DOMEventGetEventPhaseMethodInfo
ResolveDOMUIEventMethod "getEventType" o = WebKit2WebExtension.DOMEvent.DOMEventGetEventTypeMethodInfo
ResolveDOMUIEventMethod "getKeyCode" o = DOMUIEventGetKeyCodeMethodInfo
ResolveDOMUIEventMethod "getLayerX" o = DOMUIEventGetLayerXMethodInfo
ResolveDOMUIEventMethod "getLayerY" o = DOMUIEventGetLayerYMethodInfo
ResolveDOMUIEventMethod "getPageX" o = DOMUIEventGetPageXMethodInfo
ResolveDOMUIEventMethod "getPageY" o = DOMUIEventGetPageYMethodInfo
ResolveDOMUIEventMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMUIEventMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMUIEventMethod "getReturnValue" o = WebKit2WebExtension.DOMEvent.DOMEventGetReturnValueMethodInfo
ResolveDOMUIEventMethod "getSrcElement" o = WebKit2WebExtension.DOMEvent.DOMEventGetSrcElementMethodInfo
ResolveDOMUIEventMethod "getTarget" o = WebKit2WebExtension.DOMEvent.DOMEventGetTargetMethodInfo
ResolveDOMUIEventMethod "getTimeStamp" o = WebKit2WebExtension.DOMEvent.DOMEventGetTimeStampMethodInfo
ResolveDOMUIEventMethod "getView" o = DOMUIEventGetViewMethodInfo
ResolveDOMUIEventMethod "setCancelBubble" o = WebKit2WebExtension.DOMEvent.DOMEventSetCancelBubbleMethodInfo
ResolveDOMUIEventMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMUIEventMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMUIEventMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMUIEventMethod "setReturnValue" o = WebKit2WebExtension.DOMEvent.DOMEventSetReturnValueMethodInfo
ResolveDOMUIEventMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMUIEventMethod t DOMUIEvent, O.MethodInfo info DOMUIEvent p) => OL.IsLabel t (DOMUIEvent -> 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
getDOMUIEventCharCode :: (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventCharCode obj = liftIO $ B.Properties.getObjectPropertyLong obj "char-code"
#if ENABLE_OVERLOADING
data DOMUIEventCharCodePropertyInfo
instance AttrInfo DOMUIEventCharCodePropertyInfo where
type AttrAllowedOps DOMUIEventCharCodePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventCharCodePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventCharCodePropertyInfo = IsDOMUIEvent
type AttrGetType DOMUIEventCharCodePropertyInfo = CLong
type AttrLabel DOMUIEventCharCodePropertyInfo = "char-code"
type AttrOrigin DOMUIEventCharCodePropertyInfo = DOMUIEvent
attrGet _ = getDOMUIEventCharCode
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMUIEventDetail :: (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventDetail obj = liftIO $ B.Properties.getObjectPropertyLong obj "detail"
#if ENABLE_OVERLOADING
data DOMUIEventDetailPropertyInfo
instance AttrInfo DOMUIEventDetailPropertyInfo where
type AttrAllowedOps DOMUIEventDetailPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventDetailPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventDetailPropertyInfo = IsDOMUIEvent
type AttrGetType DOMUIEventDetailPropertyInfo = CLong
type AttrLabel DOMUIEventDetailPropertyInfo = "detail"
type AttrOrigin DOMUIEventDetailPropertyInfo = DOMUIEvent
attrGet _ = getDOMUIEventDetail
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMUIEventKeyCode :: (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventKeyCode obj = liftIO $ B.Properties.getObjectPropertyLong obj "key-code"
#if ENABLE_OVERLOADING
data DOMUIEventKeyCodePropertyInfo
instance AttrInfo DOMUIEventKeyCodePropertyInfo where
type AttrAllowedOps DOMUIEventKeyCodePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventKeyCodePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventKeyCodePropertyInfo = IsDOMUIEvent
type AttrGetType DOMUIEventKeyCodePropertyInfo = CLong
type AttrLabel DOMUIEventKeyCodePropertyInfo = "key-code"
type AttrOrigin DOMUIEventKeyCodePropertyInfo = DOMUIEvent
attrGet _ = getDOMUIEventKeyCode
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMUIEventLayerX :: (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventLayerX obj = liftIO $ B.Properties.getObjectPropertyLong obj "layer-x"
#if ENABLE_OVERLOADING
data DOMUIEventLayerXPropertyInfo
instance AttrInfo DOMUIEventLayerXPropertyInfo where
type AttrAllowedOps DOMUIEventLayerXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventLayerXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventLayerXPropertyInfo = IsDOMUIEvent
type AttrGetType DOMUIEventLayerXPropertyInfo = CLong
type AttrLabel DOMUIEventLayerXPropertyInfo = "layer-x"
type AttrOrigin DOMUIEventLayerXPropertyInfo = DOMUIEvent
attrGet _ = getDOMUIEventLayerX
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMUIEventLayerY :: (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventLayerY obj = liftIO $ B.Properties.getObjectPropertyLong obj "layer-y"
#if ENABLE_OVERLOADING
data DOMUIEventLayerYPropertyInfo
instance AttrInfo DOMUIEventLayerYPropertyInfo where
type AttrAllowedOps DOMUIEventLayerYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventLayerYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventLayerYPropertyInfo = IsDOMUIEvent
type AttrGetType DOMUIEventLayerYPropertyInfo = CLong
type AttrLabel DOMUIEventLayerYPropertyInfo = "layer-y"
type AttrOrigin DOMUIEventLayerYPropertyInfo = DOMUIEvent
attrGet _ = getDOMUIEventLayerY
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMUIEventPageX :: (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventPageX obj = liftIO $ B.Properties.getObjectPropertyLong obj "page-x"
#if ENABLE_OVERLOADING
data DOMUIEventPageXPropertyInfo
instance AttrInfo DOMUIEventPageXPropertyInfo where
type AttrAllowedOps DOMUIEventPageXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventPageXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventPageXPropertyInfo = IsDOMUIEvent
type AttrGetType DOMUIEventPageXPropertyInfo = CLong
type AttrLabel DOMUIEventPageXPropertyInfo = "page-x"
type AttrOrigin DOMUIEventPageXPropertyInfo = DOMUIEvent
attrGet _ = getDOMUIEventPageX
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMUIEventPageY :: (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventPageY obj = liftIO $ B.Properties.getObjectPropertyLong obj "page-y"
#if ENABLE_OVERLOADING
data DOMUIEventPageYPropertyInfo
instance AttrInfo DOMUIEventPageYPropertyInfo where
type AttrAllowedOps DOMUIEventPageYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventPageYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventPageYPropertyInfo = IsDOMUIEvent
type AttrGetType DOMUIEventPageYPropertyInfo = CLong
type AttrLabel DOMUIEventPageYPropertyInfo = "page-y"
type AttrOrigin DOMUIEventPageYPropertyInfo = DOMUIEvent
attrGet _ = getDOMUIEventPageY
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMUIEventView :: (MonadIO m, IsDOMUIEvent o) => o -> m (Maybe WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow)
getDOMUIEventView obj = liftIO $ B.Properties.getObjectPropertyObject obj "view" WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow
#if ENABLE_OVERLOADING
data DOMUIEventViewPropertyInfo
instance AttrInfo DOMUIEventViewPropertyInfo where
type AttrAllowedOps DOMUIEventViewPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMUIEventViewPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventViewPropertyInfo = IsDOMUIEvent
type AttrGetType DOMUIEventViewPropertyInfo = (Maybe WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow)
type AttrLabel DOMUIEventViewPropertyInfo = "view"
type AttrOrigin DOMUIEventViewPropertyInfo = DOMUIEvent
attrGet _ = getDOMUIEventView
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList DOMUIEvent
type instance O.AttributeList DOMUIEvent = DOMUIEventAttributeList
type DOMUIEventAttributeList = ('[ '("bubbles", WebKit2WebExtension.DOMEvent.DOMEventBubblesPropertyInfo), '("cancelBubble", WebKit2WebExtension.DOMEvent.DOMEventCancelBubblePropertyInfo), '("cancelable", WebKit2WebExtension.DOMEvent.DOMEventCancelablePropertyInfo), '("charCode", DOMUIEventCharCodePropertyInfo), '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("currentTarget", WebKit2WebExtension.DOMEvent.DOMEventCurrentTargetPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("eventPhase", WebKit2WebExtension.DOMEvent.DOMEventEventPhasePropertyInfo), '("keyCode", DOMUIEventKeyCodePropertyInfo), '("layerX", DOMUIEventLayerXPropertyInfo), '("layerY", DOMUIEventLayerYPropertyInfo), '("pageX", DOMUIEventPageXPropertyInfo), '("pageY", DOMUIEventPageYPropertyInfo), '("returnValue", WebKit2WebExtension.DOMEvent.DOMEventReturnValuePropertyInfo), '("srcElement", WebKit2WebExtension.DOMEvent.DOMEventSrcElementPropertyInfo), '("target", WebKit2WebExtension.DOMEvent.DOMEventTargetPropertyInfo), '("timeStamp", WebKit2WebExtension.DOMEvent.DOMEventTimeStampPropertyInfo), '("type", WebKit2WebExtension.DOMEvent.DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
dOMUIEventCharCode :: AttrLabelProxy "charCode"
dOMUIEventCharCode = AttrLabelProxy
dOMUIEventDetail :: AttrLabelProxy "detail"
dOMUIEventDetail = AttrLabelProxy
dOMUIEventKeyCode :: AttrLabelProxy "keyCode"
dOMUIEventKeyCode = AttrLabelProxy
dOMUIEventLayerX :: AttrLabelProxy "layerX"
dOMUIEventLayerX = AttrLabelProxy
dOMUIEventLayerY :: AttrLabelProxy "layerY"
dOMUIEventLayerY = AttrLabelProxy
dOMUIEventPageX :: AttrLabelProxy "pageX"
dOMUIEventPageX = AttrLabelProxy
dOMUIEventPageY :: AttrLabelProxy "pageY"
dOMUIEventPageY = AttrLabelProxy
dOMUIEventView :: AttrLabelProxy "view"
dOMUIEventView = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList DOMUIEvent = DOMUIEventSignalList
type DOMUIEventSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_ui_event_get_char_code" webkit_dom_ui_event_get_char_code ::
Ptr DOMUIEvent ->
IO CLong
{-# DEPRECATED dOMUIEventGetCharCode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMUIEventGetCharCode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a
-> m CLong
dOMUIEventGetCharCode self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_ui_event_get_char_code self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMUIEventGetCharCodeMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMUIEvent a) => O.MethodInfo DOMUIEventGetCharCodeMethodInfo a signature where
overloadedMethod _ = dOMUIEventGetCharCode
#endif
foreign import ccall "webkit_dom_ui_event_get_detail" webkit_dom_ui_event_get_detail ::
Ptr DOMUIEvent ->
IO CLong
{-# DEPRECATED dOMUIEventGetDetail ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMUIEventGetDetail ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a
-> m CLong
dOMUIEventGetDetail self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_ui_event_get_detail self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMUIEventGetDetailMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMUIEvent a) => O.MethodInfo DOMUIEventGetDetailMethodInfo a signature where
overloadedMethod _ = dOMUIEventGetDetail
#endif
foreign import ccall "webkit_dom_ui_event_get_key_code" webkit_dom_ui_event_get_key_code ::
Ptr DOMUIEvent ->
IO CLong
{-# DEPRECATED dOMUIEventGetKeyCode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMUIEventGetKeyCode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a
-> m CLong
dOMUIEventGetKeyCode self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_ui_event_get_key_code self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMUIEventGetKeyCodeMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMUIEvent a) => O.MethodInfo DOMUIEventGetKeyCodeMethodInfo a signature where
overloadedMethod _ = dOMUIEventGetKeyCode
#endif
foreign import ccall "webkit_dom_ui_event_get_layer_x" webkit_dom_ui_event_get_layer_x ::
Ptr DOMUIEvent ->
IO CLong
{-# DEPRECATED dOMUIEventGetLayerX ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMUIEventGetLayerX ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a
-> m CLong
dOMUIEventGetLayerX self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_ui_event_get_layer_x self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMUIEventGetLayerXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMUIEvent a) => O.MethodInfo DOMUIEventGetLayerXMethodInfo a signature where
overloadedMethod _ = dOMUIEventGetLayerX
#endif
foreign import ccall "webkit_dom_ui_event_get_layer_y" webkit_dom_ui_event_get_layer_y ::
Ptr DOMUIEvent ->
IO CLong
{-# DEPRECATED dOMUIEventGetLayerY ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMUIEventGetLayerY ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a
-> m CLong
dOMUIEventGetLayerY self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_ui_event_get_layer_y self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMUIEventGetLayerYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMUIEvent a) => O.MethodInfo DOMUIEventGetLayerYMethodInfo a signature where
overloadedMethod _ = dOMUIEventGetLayerY
#endif
foreign import ccall "webkit_dom_ui_event_get_page_x" webkit_dom_ui_event_get_page_x ::
Ptr DOMUIEvent ->
IO CLong
{-# DEPRECATED dOMUIEventGetPageX ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMUIEventGetPageX ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a
-> m CLong
dOMUIEventGetPageX self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_ui_event_get_page_x self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMUIEventGetPageXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMUIEvent a) => O.MethodInfo DOMUIEventGetPageXMethodInfo a signature where
overloadedMethod _ = dOMUIEventGetPageX
#endif
foreign import ccall "webkit_dom_ui_event_get_page_y" webkit_dom_ui_event_get_page_y ::
Ptr DOMUIEvent ->
IO CLong
{-# DEPRECATED dOMUIEventGetPageY ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMUIEventGetPageY ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a
-> m CLong
dOMUIEventGetPageY self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_ui_event_get_page_y self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMUIEventGetPageYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMUIEvent a) => O.MethodInfo DOMUIEventGetPageYMethodInfo a signature where
overloadedMethod _ = dOMUIEventGetPageY
#endif
foreign import ccall "webkit_dom_ui_event_get_view" webkit_dom_ui_event_get_view ::
Ptr DOMUIEvent ->
IO (Ptr WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow)
{-# DEPRECATED dOMUIEventGetView ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMUIEventGetView ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a
-> m WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow
dOMUIEventGetView self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_ui_event_get_view self'
checkUnexpectedReturnNULL "dOMUIEventGetView" result
result' <- (wrapObject WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMUIEventGetViewMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow), MonadIO m, IsDOMUIEvent a) => O.MethodInfo DOMUIEventGetViewMethodInfo a signature where
overloadedMethod _ = dOMUIEventGetView
#endif
foreign import ccall "webkit_dom_ui_event_init_ui_event" webkit_dom_ui_event_init_ui_event ::
Ptr DOMUIEvent ->
CString ->
CInt ->
CInt ->
Ptr WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow ->
CLong ->
IO ()
{-# DEPRECATED dOMUIEventInitUiEvent ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMUIEventInitUiEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMUIEvent a, WebKit2WebExtension.DOMDOMWindow.IsDOMDOMWindow b) =>
a
-> T.Text
-> Bool
-> Bool
-> b
-> CLong
-> m ()
dOMUIEventInitUiEvent self type_ canBubble cancelable view detail = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
type_' <- textToCString type_
let canBubble' = (fromIntegral . fromEnum) canBubble
let cancelable' = (fromIntegral . fromEnum) cancelable
view' <- unsafeManagedPtrCastPtr view
webkit_dom_ui_event_init_ui_event self' type_' canBubble' cancelable' view' detail
touchManagedPtr self
touchManagedPtr view
freeMem type_'
return ()
#if ENABLE_OVERLOADING
data DOMUIEventInitUiEventMethodInfo
instance (signature ~ (T.Text -> Bool -> Bool -> b -> CLong -> m ()), MonadIO m, IsDOMUIEvent a, WebKit2WebExtension.DOMDOMWindow.IsDOMDOMWindow b) => O.MethodInfo DOMUIEventInitUiEventMethodInfo a signature where
overloadedMethod _ = dOMUIEventInitUiEvent
#endif