{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMUIEvent
(
DOMUIEvent(..) ,
IsDOMUIEvent ,
toDOMUIEvent ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMUIEventMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMUIEventGetCharCodeMethodInfo ,
#endif
dOMUIEventGetCharCode ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventGetDetailMethodInfo ,
#endif
dOMUIEventGetDetail ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventGetKeyCodeMethodInfo ,
#endif
dOMUIEventGetKeyCode ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventGetLayerXMethodInfo ,
#endif
dOMUIEventGetLayerX ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventGetLayerYMethodInfo ,
#endif
dOMUIEventGetLayerY ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventGetPageXMethodInfo ,
#endif
dOMUIEventGetPageX ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventGetPageYMethodInfo ,
#endif
dOMUIEventGetPageY ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventGetViewMethodInfo ,
#endif
dOMUIEventGetView ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventInitUiEventMethodInfo ,
#endif
dOMUIEventInitUiEvent ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventCharCodePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMUIEventCharCode ,
#endif
getDOMUIEventCharCode ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventDetailPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMUIEventDetail ,
#endif
getDOMUIEventDetail ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventKeyCodePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMUIEventKeyCode ,
#endif
getDOMUIEventKeyCode ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventLayerXPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMUIEventLayerX ,
#endif
getDOMUIEventLayerX ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventLayerYPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMUIEventLayerY ,
#endif
getDOMUIEventLayerY ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventPageXPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMUIEventPageX ,
#endif
getDOMUIEventPageX ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventPageYPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMUIEventPageY ,
#endif
getDOMUIEventPageY ,
#if defined(ENABLE_OVERLOADING)
DOMUIEventViewPropertyInfo ,
#endif
#if defined(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.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.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.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 GHC.Records as R
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 (SP.ManagedPtr DOMUIEvent)
deriving (DOMUIEvent -> DOMUIEvent -> Bool
(DOMUIEvent -> DOMUIEvent -> Bool)
-> (DOMUIEvent -> DOMUIEvent -> Bool) -> Eq DOMUIEvent
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMUIEvent -> DOMUIEvent -> Bool
$c/= :: DOMUIEvent -> DOMUIEvent -> Bool
== :: DOMUIEvent -> DOMUIEvent -> Bool
$c== :: DOMUIEvent -> DOMUIEvent -> Bool
Eq)
instance SP.ManagedPtrNewtype DOMUIEvent where
toManagedPtr :: DOMUIEvent -> ManagedPtr DOMUIEvent
toManagedPtr (DOMUIEvent ManagedPtr DOMUIEvent
p) = ManagedPtr DOMUIEvent
p
foreign import ccall "webkit_dom_ui_event_get_type"
c_webkit_dom_ui_event_get_type :: IO B.Types.GType
instance B.Types.TypedObject DOMUIEvent where
glibType :: IO GType
glibType = IO GType
c_webkit_dom_ui_event_get_type
instance B.Types.GObject DOMUIEvent
class (SP.GObject o, O.IsDescendantOf DOMUIEvent o) => IsDOMUIEvent o
instance (SP.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 :: (MIO.MonadIO m, IsDOMUIEvent o) => o -> m DOMUIEvent
toDOMUIEvent :: forall (m :: * -> *) o.
(MonadIO m, IsDOMUIEvent o) =>
o -> m DOMUIEvent
toDOMUIEvent = IO DOMUIEvent -> m DOMUIEvent
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMUIEvent -> m DOMUIEvent)
-> (o -> IO DOMUIEvent) -> o -> m DOMUIEvent
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMUIEvent -> DOMUIEvent) -> o -> IO DOMUIEvent
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DOMUIEvent -> DOMUIEvent
DOMUIEvent
instance B.GValue.IsGValue (Maybe DOMUIEvent) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_dom_ui_event_get_type
gvalueSet_ :: Ptr GValue -> Maybe DOMUIEvent -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DOMUIEvent
P.Nothing = Ptr GValue -> Ptr DOMUIEvent -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DOMUIEvent
forall a. Ptr a
FP.nullPtr :: FP.Ptr DOMUIEvent)
gvalueSet_ Ptr GValue
gv (P.Just DOMUIEvent
obj) = DOMUIEvent -> (Ptr DOMUIEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMUIEvent
obj (Ptr GValue -> Ptr DOMUIEvent -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DOMUIEvent)
gvalueGet_ Ptr GValue
gv = do
Ptr DOMUIEvent
ptr <- Ptr GValue -> IO (Ptr DOMUIEvent)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DOMUIEvent)
if Ptr DOMUIEvent
ptr Ptr DOMUIEvent -> Ptr DOMUIEvent -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DOMUIEvent
forall a. Ptr a
FP.nullPtr
then DOMUIEvent -> Maybe DOMUIEvent
forall a. a -> Maybe a
P.Just (DOMUIEvent -> Maybe DOMUIEvent)
-> IO DOMUIEvent -> IO (Maybe DOMUIEvent)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DOMUIEvent -> DOMUIEvent)
-> Ptr DOMUIEvent -> IO DOMUIEvent
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMUIEvent -> DOMUIEvent
DOMUIEvent Ptr DOMUIEvent
ptr
else Maybe DOMUIEvent -> IO (Maybe DOMUIEvent)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMUIEvent
forall a. Maybe a
P.Nothing
#if defined(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.OverloadedMethod info DOMUIEvent p) => OL.IsLabel t (DOMUIEvent -> 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 ~ ResolveDOMUIEventMethod t DOMUIEvent, O.OverloadedMethod info DOMUIEvent p, R.HasField t DOMUIEvent p) => R.HasField t DOMUIEvent p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDOMUIEventMethod t DOMUIEvent, O.OverloadedMethodInfo info DOMUIEvent) => OL.IsLabel t (O.MethodProxy info DOMUIEvent) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDOMUIEventCharCode :: (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventCharCode :: forall (m :: * -> *) o. (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventCharCode o
obj = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"char-code"
#if defined(ENABLE_OVERLOADING)
data DOMUIEventCharCodePropertyInfo
instance AttrInfo DOMUIEventCharCodePropertyInfo where
type AttrAllowedOps DOMUIEventCharCodePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMUIEventCharCodePropertyInfo = IsDOMUIEvent
type AttrSetTypeConstraint DOMUIEventCharCodePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMUIEventCharCodePropertyInfo = (~) ()
type AttrTransferType DOMUIEventCharCodePropertyInfo = ()
type AttrGetType DOMUIEventCharCodePropertyInfo = CLong
type AttrLabel DOMUIEventCharCodePropertyInfo = "char-code"
type AttrOrigin DOMUIEventCharCodePropertyInfo = DOMUIEvent
attrGet = getDOMUIEventCharCode
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMUIEventDetail :: (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventDetail :: forall (m :: * -> *) o. (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventDetail o
obj = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"detail"
#if defined(ENABLE_OVERLOADING)
data DOMUIEventDetailPropertyInfo
instance AttrInfo DOMUIEventDetailPropertyInfo where
type AttrAllowedOps DOMUIEventDetailPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMUIEventDetailPropertyInfo = IsDOMUIEvent
type AttrSetTypeConstraint DOMUIEventDetailPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMUIEventDetailPropertyInfo = (~) ()
type AttrTransferType DOMUIEventDetailPropertyInfo = ()
type AttrGetType DOMUIEventDetailPropertyInfo = CLong
type AttrLabel DOMUIEventDetailPropertyInfo = "detail"
type AttrOrigin DOMUIEventDetailPropertyInfo = DOMUIEvent
attrGet = getDOMUIEventDetail
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMUIEventKeyCode :: (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventKeyCode :: forall (m :: * -> *) o. (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventKeyCode o
obj = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"key-code"
#if defined(ENABLE_OVERLOADING)
data DOMUIEventKeyCodePropertyInfo
instance AttrInfo DOMUIEventKeyCodePropertyInfo where
type AttrAllowedOps DOMUIEventKeyCodePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMUIEventKeyCodePropertyInfo = IsDOMUIEvent
type AttrSetTypeConstraint DOMUIEventKeyCodePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMUIEventKeyCodePropertyInfo = (~) ()
type AttrTransferType DOMUIEventKeyCodePropertyInfo = ()
type AttrGetType DOMUIEventKeyCodePropertyInfo = CLong
type AttrLabel DOMUIEventKeyCodePropertyInfo = "key-code"
type AttrOrigin DOMUIEventKeyCodePropertyInfo = DOMUIEvent
attrGet = getDOMUIEventKeyCode
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMUIEventLayerX :: (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventLayerX :: forall (m :: * -> *) o. (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventLayerX o
obj = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"layer-x"
#if defined(ENABLE_OVERLOADING)
data DOMUIEventLayerXPropertyInfo
instance AttrInfo DOMUIEventLayerXPropertyInfo where
type AttrAllowedOps DOMUIEventLayerXPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMUIEventLayerXPropertyInfo = IsDOMUIEvent
type AttrSetTypeConstraint DOMUIEventLayerXPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMUIEventLayerXPropertyInfo = (~) ()
type AttrTransferType DOMUIEventLayerXPropertyInfo = ()
type AttrGetType DOMUIEventLayerXPropertyInfo = CLong
type AttrLabel DOMUIEventLayerXPropertyInfo = "layer-x"
type AttrOrigin DOMUIEventLayerXPropertyInfo = DOMUIEvent
attrGet = getDOMUIEventLayerX
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMUIEventLayerY :: (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventLayerY :: forall (m :: * -> *) o. (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventLayerY o
obj = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"layer-y"
#if defined(ENABLE_OVERLOADING)
data DOMUIEventLayerYPropertyInfo
instance AttrInfo DOMUIEventLayerYPropertyInfo where
type AttrAllowedOps DOMUIEventLayerYPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMUIEventLayerYPropertyInfo = IsDOMUIEvent
type AttrSetTypeConstraint DOMUIEventLayerYPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMUIEventLayerYPropertyInfo = (~) ()
type AttrTransferType DOMUIEventLayerYPropertyInfo = ()
type AttrGetType DOMUIEventLayerYPropertyInfo = CLong
type AttrLabel DOMUIEventLayerYPropertyInfo = "layer-y"
type AttrOrigin DOMUIEventLayerYPropertyInfo = DOMUIEvent
attrGet = getDOMUIEventLayerY
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMUIEventPageX :: (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventPageX :: forall (m :: * -> *) o. (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventPageX o
obj = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"page-x"
#if defined(ENABLE_OVERLOADING)
data DOMUIEventPageXPropertyInfo
instance AttrInfo DOMUIEventPageXPropertyInfo where
type AttrAllowedOps DOMUIEventPageXPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMUIEventPageXPropertyInfo = IsDOMUIEvent
type AttrSetTypeConstraint DOMUIEventPageXPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMUIEventPageXPropertyInfo = (~) ()
type AttrTransferType DOMUIEventPageXPropertyInfo = ()
type AttrGetType DOMUIEventPageXPropertyInfo = CLong
type AttrLabel DOMUIEventPageXPropertyInfo = "page-x"
type AttrOrigin DOMUIEventPageXPropertyInfo = DOMUIEvent
attrGet = getDOMUIEventPageX
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMUIEventPageY :: (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventPageY :: forall (m :: * -> *) o. (MonadIO m, IsDOMUIEvent o) => o -> m CLong
getDOMUIEventPageY o
obj = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CLong
forall a. GObject a => a -> String -> IO CLong
B.Properties.getObjectPropertyLong o
obj String
"page-y"
#if defined(ENABLE_OVERLOADING)
data DOMUIEventPageYPropertyInfo
instance AttrInfo DOMUIEventPageYPropertyInfo where
type AttrAllowedOps DOMUIEventPageYPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMUIEventPageYPropertyInfo = IsDOMUIEvent
type AttrSetTypeConstraint DOMUIEventPageYPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMUIEventPageYPropertyInfo = (~) ()
type AttrTransferType DOMUIEventPageYPropertyInfo = ()
type AttrGetType DOMUIEventPageYPropertyInfo = CLong
type AttrLabel DOMUIEventPageYPropertyInfo = "page-y"
type AttrOrigin DOMUIEventPageYPropertyInfo = DOMUIEvent
attrGet = getDOMUIEventPageY
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMUIEventView :: (MonadIO m, IsDOMUIEvent o) => o -> m (Maybe WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow)
getDOMUIEventView :: forall (m :: * -> *) o.
(MonadIO m, IsDOMUIEvent o) =>
o -> m (Maybe DOMDOMWindow)
getDOMUIEventView o
obj = IO (Maybe DOMDOMWindow) -> m (Maybe DOMDOMWindow)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe DOMDOMWindow) -> m (Maybe DOMDOMWindow))
-> IO (Maybe DOMDOMWindow) -> m (Maybe DOMDOMWindow)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMDOMWindow -> DOMDOMWindow)
-> IO (Maybe DOMDOMWindow)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"view" ManagedPtr DOMDOMWindow -> DOMDOMWindow
WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow
#if defined(ENABLE_OVERLOADING)
data DOMUIEventViewPropertyInfo
instance AttrInfo DOMUIEventViewPropertyInfo where
type AttrAllowedOps DOMUIEventViewPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMUIEventViewPropertyInfo = IsDOMUIEvent
type AttrSetTypeConstraint DOMUIEventViewPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMUIEventViewPropertyInfo = (~) ()
type AttrTransferType DOMUIEventViewPropertyInfo = ()
type AttrGetType DOMUIEventViewPropertyInfo = (Maybe WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow)
type AttrLabel DOMUIEventViewPropertyInfo = "view"
type AttrOrigin DOMUIEventViewPropertyInfo = DOMUIEvent
attrGet = getDOMUIEventView
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(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 defined(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 defined(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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a -> m CLong
dOMUIEventGetCharCode a
self = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMUIEvent
self' <- a -> IO (Ptr DOMUIEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMUIEvent -> IO CLong
webkit_dom_ui_event_get_char_code Ptr DOMUIEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMUIEventGetCharCodeMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMUIEvent a) => O.OverloadedMethod DOMUIEventGetCharCodeMethodInfo a signature where
overloadedMethod = dOMUIEventGetCharCode
instance O.OverloadedMethodInfo DOMUIEventGetCharCodeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMUIEvent.dOMUIEventGetCharCode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMUIEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a -> m CLong
dOMUIEventGetDetail a
self = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMUIEvent
self' <- a -> IO (Ptr DOMUIEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMUIEvent -> IO CLong
webkit_dom_ui_event_get_detail Ptr DOMUIEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMUIEventGetDetailMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMUIEvent a) => O.OverloadedMethod DOMUIEventGetDetailMethodInfo a signature where
overloadedMethod = dOMUIEventGetDetail
instance O.OverloadedMethodInfo DOMUIEventGetDetailMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMUIEvent.dOMUIEventGetDetail",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMUIEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a -> m CLong
dOMUIEventGetKeyCode a
self = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMUIEvent
self' <- a -> IO (Ptr DOMUIEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMUIEvent -> IO CLong
webkit_dom_ui_event_get_key_code Ptr DOMUIEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMUIEventGetKeyCodeMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMUIEvent a) => O.OverloadedMethod DOMUIEventGetKeyCodeMethodInfo a signature where
overloadedMethod = dOMUIEventGetKeyCode
instance O.OverloadedMethodInfo DOMUIEventGetKeyCodeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMUIEvent.dOMUIEventGetKeyCode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMUIEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a -> m CLong
dOMUIEventGetLayerX a
self = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMUIEvent
self' <- a -> IO (Ptr DOMUIEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMUIEvent -> IO CLong
webkit_dom_ui_event_get_layer_x Ptr DOMUIEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMUIEventGetLayerXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMUIEvent a) => O.OverloadedMethod DOMUIEventGetLayerXMethodInfo a signature where
overloadedMethod = dOMUIEventGetLayerX
instance O.OverloadedMethodInfo DOMUIEventGetLayerXMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMUIEvent.dOMUIEventGetLayerX",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMUIEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a -> m CLong
dOMUIEventGetLayerY a
self = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMUIEvent
self' <- a -> IO (Ptr DOMUIEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMUIEvent -> IO CLong
webkit_dom_ui_event_get_layer_y Ptr DOMUIEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMUIEventGetLayerYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMUIEvent a) => O.OverloadedMethod DOMUIEventGetLayerYMethodInfo a signature where
overloadedMethod = dOMUIEventGetLayerY
instance O.OverloadedMethodInfo DOMUIEventGetLayerYMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMUIEvent.dOMUIEventGetLayerY",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMUIEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a -> m CLong
dOMUIEventGetPageX a
self = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMUIEvent
self' <- a -> IO (Ptr DOMUIEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMUIEvent -> IO CLong
webkit_dom_ui_event_get_page_x Ptr DOMUIEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMUIEventGetPageXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMUIEvent a) => O.OverloadedMethod DOMUIEventGetPageXMethodInfo a signature where
overloadedMethod = dOMUIEventGetPageX
instance O.OverloadedMethodInfo DOMUIEventGetPageXMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMUIEvent.dOMUIEventGetPageX",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMUIEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a -> m CLong
dOMUIEventGetPageY a
self = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMUIEvent
self' <- a -> IO (Ptr DOMUIEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CLong
result <- Ptr DOMUIEvent -> IO CLong
webkit_dom_ui_event_get_page_y Ptr DOMUIEvent
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DOMUIEventGetPageYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMUIEvent a) => O.OverloadedMethod DOMUIEventGetPageYMethodInfo a signature where
overloadedMethod = dOMUIEventGetPageY
instance O.OverloadedMethodInfo DOMUIEventGetPageYMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMUIEvent.dOMUIEventGetPageY",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMUIEvent.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMUIEvent a) =>
a -> m DOMDOMWindow
dOMUIEventGetView a
self = IO DOMDOMWindow -> m DOMDOMWindow
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMDOMWindow -> m DOMDOMWindow)
-> IO DOMDOMWindow -> m DOMDOMWindow
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMUIEvent
self' <- a -> IO (Ptr DOMUIEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMDOMWindow
result <- Ptr DOMUIEvent -> IO (Ptr DOMDOMWindow)
webkit_dom_ui_event_get_view Ptr DOMUIEvent
self'
Text -> Ptr DOMDOMWindow -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMUIEventGetView" Ptr DOMDOMWindow
result
DOMDOMWindow
result' <- ((ManagedPtr DOMDOMWindow -> DOMDOMWindow)
-> Ptr DOMDOMWindow -> IO DOMDOMWindow
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMDOMWindow -> DOMDOMWindow
WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow) Ptr DOMDOMWindow
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMDOMWindow -> IO DOMDOMWindow
forall (m :: * -> *) a. Monad m => a -> m a
return DOMDOMWindow
result'
#if defined(ENABLE_OVERLOADING)
data DOMUIEventGetViewMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMDOMWindow.DOMDOMWindow), MonadIO m, IsDOMUIEvent a) => O.OverloadedMethod DOMUIEventGetViewMethodInfo a signature where
overloadedMethod = dOMUIEventGetView
instance O.OverloadedMethodInfo DOMUIEventGetViewMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMUIEvent.dOMUIEventGetView",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMUIEvent.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsDOMUIEvent a, IsDOMDOMWindow b) =>
a -> Text -> Bool -> Bool -> b -> CLong -> m ()
dOMUIEventInitUiEvent a
self Text
type_ Bool
canBubble Bool
cancelable b
view CLong
detail = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMUIEvent
self' <- a -> IO (Ptr DOMUIEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
type_' <- Text -> IO CString
textToCString Text
type_
let canBubble' :: CInt
canBubble' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
canBubble
let cancelable' :: CInt
cancelable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
fromEnum) Bool
cancelable
Ptr DOMDOMWindow
view' <- b -> IO (Ptr DOMDOMWindow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
view
Ptr DOMUIEvent
-> CString -> CInt -> CInt -> Ptr DOMDOMWindow -> CLong -> IO ()
webkit_dom_ui_event_init_ui_event Ptr DOMUIEvent
self' CString
type_' CInt
canBubble' CInt
cancelable' Ptr DOMDOMWindow
view' CLong
detail
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
view
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
type_'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DOMUIEventInitUiEventMethodInfo
instance (signature ~ (T.Text -> Bool -> Bool -> b -> CLong -> m ()), MonadIO m, IsDOMUIEvent a, WebKit2WebExtension.DOMDOMWindow.IsDOMDOMWindow b) => O.OverloadedMethod DOMUIEventInitUiEventMethodInfo a signature where
overloadedMethod = dOMUIEventInitUiEvent
instance O.OverloadedMethodInfo DOMUIEventInitUiEventMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMUIEvent.dOMUIEventInitUiEvent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMUIEvent.html#v:dOMUIEventInitUiEvent"
}
#endif