{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) -} module GI.WebKit.Objects.DOMEvent ( -- * Exported types DOMEvent(..) , DOMEventK , toDOMEvent , noDOMEvent , -- * Methods -- ** dOMEventGetBubbles dOMEventGetBubbles , -- ** dOMEventGetCancelBubble dOMEventGetCancelBubble , -- ** dOMEventGetCancelable dOMEventGetCancelable , -- ** dOMEventGetCurrentTarget dOMEventGetCurrentTarget , -- ** dOMEventGetDefaultPrevented dOMEventGetDefaultPrevented , -- ** dOMEventGetEventPhase dOMEventGetEventPhase , -- ** dOMEventGetReturnValue dOMEventGetReturnValue , -- ** dOMEventGetSrcElement dOMEventGetSrcElement , -- ** dOMEventGetTarget dOMEventGetTarget , -- ** dOMEventGetTimeStamp dOMEventGetTimeStamp , -- ** dOMEventInitEvent dOMEventInitEvent , -- ** dOMEventPreventDefault dOMEventPreventDefault , -- ** dOMEventSetCancelBubble dOMEventSetCancelBubble , -- ** dOMEventSetReturnValue dOMEventSetReturnValue , -- ** dOMEventStopImmediatePropagation dOMEventStopImmediatePropagation , -- ** dOMEventStopPropagation dOMEventStopPropagation , -- * Properties -- ** Bubbles DOMEventBubblesPropertyInfo , getDOMEventBubbles , -- ** CancelBubble DOMEventCancelBubblePropertyInfo , constructDOMEventCancelBubble , getDOMEventCancelBubble , setDOMEventCancelBubble , -- ** Cancelable DOMEventCancelablePropertyInfo , getDOMEventCancelable , -- ** CurrentTarget DOMEventCurrentTargetPropertyInfo , getDOMEventCurrentTarget , -- ** DefaultPrevented DOMEventDefaultPreventedPropertyInfo , getDOMEventDefaultPrevented , -- ** EventPhase DOMEventEventPhasePropertyInfo , getDOMEventEventPhase , -- ** ReturnValue DOMEventReturnValuePropertyInfo , constructDOMEventReturnValue , getDOMEventReturnValue , setDOMEventReturnValue , -- ** SrcElement DOMEventSrcElementPropertyInfo , getDOMEventSrcElement , -- ** Target DOMEventTargetPropertyInfo , getDOMEventTarget , -- ** TimeStamp DOMEventTimeStampPropertyInfo , getDOMEventTimeStamp , -- ** Type DOMEventTypePropertyInfo , getDOMEventType , ) where import Prelude () import Data.GI.Base.ShortPrelude import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map import GI.WebKit.Types import GI.WebKit.Callbacks import qualified GI.GObject as GObject newtype DOMEvent = DOMEvent (ForeignPtr DOMEvent) foreign import ccall "webkit_dom_event_get_type" c_webkit_dom_event_get_type :: IO GType type instance ParentTypes DOMEvent = DOMEventParentTypes type DOMEventParentTypes = '[DOMObject, GObject.Object] instance GObject DOMEvent where gobjectIsInitiallyUnowned _ = False gobjectType _ = c_webkit_dom_event_get_type class GObject o => DOMEventK o instance (GObject o, IsDescendantOf DOMEvent o) => DOMEventK o toDOMEvent :: DOMEventK o => o -> IO DOMEvent toDOMEvent = unsafeCastTo DOMEvent noDOMEvent :: Maybe DOMEvent noDOMEvent = Nothing -- VVV Prop "bubbles" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] getDOMEventBubbles :: (MonadIO m, DOMEventK o) => o -> m Bool getDOMEventBubbles obj = liftIO $ getObjectPropertyBool obj "bubbles" data DOMEventBubblesPropertyInfo instance AttrInfo DOMEventBubblesPropertyInfo where type AttrAllowedOps DOMEventBubblesPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMEventBubblesPropertyInfo = (~) () type AttrBaseTypeConstraint DOMEventBubblesPropertyInfo = DOMEventK type AttrGetType DOMEventBubblesPropertyInfo = Bool type AttrLabel DOMEventBubblesPropertyInfo = "DOMEvent::bubbles" attrGet _ = getDOMEventBubbles attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "cancel-bubble" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] getDOMEventCancelBubble :: (MonadIO m, DOMEventK o) => o -> m Bool getDOMEventCancelBubble obj = liftIO $ getObjectPropertyBool obj "cancel-bubble" setDOMEventCancelBubble :: (MonadIO m, DOMEventK o) => o -> Bool -> m () setDOMEventCancelBubble obj val = liftIO $ setObjectPropertyBool obj "cancel-bubble" val constructDOMEventCancelBubble :: Bool -> IO ([Char], GValue) constructDOMEventCancelBubble val = constructObjectPropertyBool "cancel-bubble" val data DOMEventCancelBubblePropertyInfo instance AttrInfo DOMEventCancelBubblePropertyInfo where type AttrAllowedOps DOMEventCancelBubblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMEventCancelBubblePropertyInfo = (~) Bool type AttrBaseTypeConstraint DOMEventCancelBubblePropertyInfo = DOMEventK type AttrGetType DOMEventCancelBubblePropertyInfo = Bool type AttrLabel DOMEventCancelBubblePropertyInfo = "DOMEvent::cancel-bubble" attrGet _ = getDOMEventCancelBubble attrSet _ = setDOMEventCancelBubble attrConstruct _ = constructDOMEventCancelBubble -- VVV Prop "cancelable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] getDOMEventCancelable :: (MonadIO m, DOMEventK o) => o -> m Bool getDOMEventCancelable obj = liftIO $ getObjectPropertyBool obj "cancelable" data DOMEventCancelablePropertyInfo instance AttrInfo DOMEventCancelablePropertyInfo where type AttrAllowedOps DOMEventCancelablePropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMEventCancelablePropertyInfo = (~) () type AttrBaseTypeConstraint DOMEventCancelablePropertyInfo = DOMEventK type AttrGetType DOMEventCancelablePropertyInfo = Bool type AttrLabel DOMEventCancelablePropertyInfo = "DOMEvent::cancelable" attrGet _ = getDOMEventCancelable attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "current-target" -- Type: TInterface "WebKit" "DOMEventTarget" -- Flags: [PropertyReadable] getDOMEventCurrentTarget :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget getDOMEventCurrentTarget obj = liftIO $ getObjectPropertyObject obj "current-target" DOMEventTarget data DOMEventCurrentTargetPropertyInfo instance AttrInfo DOMEventCurrentTargetPropertyInfo where type AttrAllowedOps DOMEventCurrentTargetPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMEventCurrentTargetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMEventCurrentTargetPropertyInfo = DOMEventK type AttrGetType DOMEventCurrentTargetPropertyInfo = DOMEventTarget type AttrLabel DOMEventCurrentTargetPropertyInfo = "DOMEvent::current-target" attrGet _ = getDOMEventCurrentTarget attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "default-prevented" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] getDOMEventDefaultPrevented :: (MonadIO m, DOMEventK o) => o -> m Bool getDOMEventDefaultPrevented obj = liftIO $ getObjectPropertyBool obj "default-prevented" data DOMEventDefaultPreventedPropertyInfo instance AttrInfo DOMEventDefaultPreventedPropertyInfo where type AttrAllowedOps DOMEventDefaultPreventedPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMEventDefaultPreventedPropertyInfo = (~) () type AttrBaseTypeConstraint DOMEventDefaultPreventedPropertyInfo = DOMEventK type AttrGetType DOMEventDefaultPreventedPropertyInfo = Bool type AttrLabel DOMEventDefaultPreventedPropertyInfo = "DOMEvent::default-prevented" attrGet _ = getDOMEventDefaultPrevented attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "event-phase" -- Type: TBasicType TUInt32 -- Flags: [PropertyReadable] getDOMEventEventPhase :: (MonadIO m, DOMEventK o) => o -> m Word32 getDOMEventEventPhase obj = liftIO $ getObjectPropertyCUInt obj "event-phase" data DOMEventEventPhasePropertyInfo instance AttrInfo DOMEventEventPhasePropertyInfo where type AttrAllowedOps DOMEventEventPhasePropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMEventEventPhasePropertyInfo = (~) () type AttrBaseTypeConstraint DOMEventEventPhasePropertyInfo = DOMEventK type AttrGetType DOMEventEventPhasePropertyInfo = Word32 type AttrLabel DOMEventEventPhasePropertyInfo = "DOMEvent::event-phase" attrGet _ = getDOMEventEventPhase attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "return-value" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] getDOMEventReturnValue :: (MonadIO m, DOMEventK o) => o -> m Bool getDOMEventReturnValue obj = liftIO $ getObjectPropertyBool obj "return-value" setDOMEventReturnValue :: (MonadIO m, DOMEventK o) => o -> Bool -> m () setDOMEventReturnValue obj val = liftIO $ setObjectPropertyBool obj "return-value" val constructDOMEventReturnValue :: Bool -> IO ([Char], GValue) constructDOMEventReturnValue val = constructObjectPropertyBool "return-value" val data DOMEventReturnValuePropertyInfo instance AttrInfo DOMEventReturnValuePropertyInfo where type AttrAllowedOps DOMEventReturnValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint DOMEventReturnValuePropertyInfo = (~) Bool type AttrBaseTypeConstraint DOMEventReturnValuePropertyInfo = DOMEventK type AttrGetType DOMEventReturnValuePropertyInfo = Bool type AttrLabel DOMEventReturnValuePropertyInfo = "DOMEvent::return-value" attrGet _ = getDOMEventReturnValue attrSet _ = setDOMEventReturnValue attrConstruct _ = constructDOMEventReturnValue -- VVV Prop "src-element" -- Type: TInterface "WebKit" "DOMEventTarget" -- Flags: [PropertyReadable] getDOMEventSrcElement :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget getDOMEventSrcElement obj = liftIO $ getObjectPropertyObject obj "src-element" DOMEventTarget data DOMEventSrcElementPropertyInfo instance AttrInfo DOMEventSrcElementPropertyInfo where type AttrAllowedOps DOMEventSrcElementPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMEventSrcElementPropertyInfo = (~) () type AttrBaseTypeConstraint DOMEventSrcElementPropertyInfo = DOMEventK type AttrGetType DOMEventSrcElementPropertyInfo = DOMEventTarget type AttrLabel DOMEventSrcElementPropertyInfo = "DOMEvent::src-element" attrGet _ = getDOMEventSrcElement attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "target" -- Type: TInterface "WebKit" "DOMEventTarget" -- Flags: [PropertyReadable] getDOMEventTarget :: (MonadIO m, DOMEventK o) => o -> m DOMEventTarget getDOMEventTarget obj = liftIO $ getObjectPropertyObject obj "target" DOMEventTarget data DOMEventTargetPropertyInfo instance AttrInfo DOMEventTargetPropertyInfo where type AttrAllowedOps DOMEventTargetPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMEventTargetPropertyInfo = (~) () type AttrBaseTypeConstraint DOMEventTargetPropertyInfo = DOMEventK type AttrGetType DOMEventTargetPropertyInfo = DOMEventTarget type AttrLabel DOMEventTargetPropertyInfo = "DOMEvent::target" attrGet _ = getDOMEventTarget attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "time-stamp" -- Type: TBasicType TUInt32 -- Flags: [PropertyReadable] getDOMEventTimeStamp :: (MonadIO m, DOMEventK o) => o -> m Word32 getDOMEventTimeStamp obj = liftIO $ getObjectPropertyCUInt obj "time-stamp" data DOMEventTimeStampPropertyInfo instance AttrInfo DOMEventTimeStampPropertyInfo where type AttrAllowedOps DOMEventTimeStampPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMEventTimeStampPropertyInfo = (~) () type AttrBaseTypeConstraint DOMEventTimeStampPropertyInfo = DOMEventK type AttrGetType DOMEventTimeStampPropertyInfo = Word32 type AttrLabel DOMEventTimeStampPropertyInfo = "DOMEvent::time-stamp" attrGet _ = getDOMEventTimeStamp attrSet _ = undefined attrConstruct _ = undefined -- VVV Prop "type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] getDOMEventType :: (MonadIO m, DOMEventK o) => o -> m T.Text getDOMEventType obj = liftIO $ getObjectPropertyString obj "type" data DOMEventTypePropertyInfo instance AttrInfo DOMEventTypePropertyInfo where type AttrAllowedOps DOMEventTypePropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint DOMEventTypePropertyInfo = (~) () type AttrBaseTypeConstraint DOMEventTypePropertyInfo = DOMEventK type AttrGetType DOMEventTypePropertyInfo = T.Text type AttrLabel DOMEventTypePropertyInfo = "DOMEvent::type" attrGet _ = getDOMEventType attrSet _ = undefined attrConstruct _ = undefined type instance AttributeList DOMEvent = DOMEventAttributeList type DOMEventAttributeList = ('[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo)] :: [(Symbol, *)]) type instance SignalList DOMEvent = DOMEventSignalList type DOMEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method DOMEvent::get_bubbles -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_get_bubbles" webkit_dom_event_get_bubbles :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" IO CInt dOMEventGetBubbles :: (MonadIO m, DOMEventK a) => a -> -- _obj m Bool dOMEventGetBubbles _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_event_get_bubbles _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method DOMEvent::get_cancel_bubble -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_get_cancel_bubble" webkit_dom_event_get_cancel_bubble :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" IO CInt dOMEventGetCancelBubble :: (MonadIO m, DOMEventK a) => a -> -- _obj m Bool dOMEventGetCancelBubble _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_event_get_cancel_bubble _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method DOMEvent::get_cancelable -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_get_cancelable" webkit_dom_event_get_cancelable :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" IO CInt dOMEventGetCancelable :: (MonadIO m, DOMEventK a) => a -> -- _obj m Bool dOMEventGetCancelable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_event_get_cancelable _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method DOMEvent::get_current_target -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMEventTarget" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_get_current_target" webkit_dom_event_get_current_target :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" IO (Ptr DOMEventTarget) dOMEventGetCurrentTarget :: (MonadIO m, DOMEventK a) => a -> -- _obj m DOMEventTarget dOMEventGetCurrentTarget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_event_get_current_target _obj' checkUnexpectedReturnNULL "webkit_dom_event_get_current_target" result result' <- (wrapObject DOMEventTarget) result touchManagedPtr _obj return result' -- method DOMEvent::get_default_prevented -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_get_default_prevented" webkit_dom_event_get_default_prevented :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" IO CInt dOMEventGetDefaultPrevented :: (MonadIO m, DOMEventK a) => a -> -- _obj m Bool dOMEventGetDefaultPrevented _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_event_get_default_prevented _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method DOMEvent::get_event_phase -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt16 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_get_event_phase" webkit_dom_event_get_event_phase :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" IO Word16 dOMEventGetEventPhase :: (MonadIO m, DOMEventK a) => a -> -- _obj m Word16 dOMEventGetEventPhase _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_event_get_event_phase _obj' touchManagedPtr _obj return result -- method DOMEvent::get_return_value -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_get_return_value" webkit_dom_event_get_return_value :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" IO CInt dOMEventGetReturnValue :: (MonadIO m, DOMEventK a) => a -> -- _obj m Bool dOMEventGetReturnValue _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_event_get_return_value _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method DOMEvent::get_src_element -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMEventTarget" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_get_src_element" webkit_dom_event_get_src_element :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" IO (Ptr DOMEventTarget) dOMEventGetSrcElement :: (MonadIO m, DOMEventK a) => a -> -- _obj m DOMEventTarget dOMEventGetSrcElement _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_event_get_src_element _obj' checkUnexpectedReturnNULL "webkit_dom_event_get_src_element" result result' <- (wrapObject DOMEventTarget) result touchManagedPtr _obj return result' -- method DOMEvent::get_target -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "WebKit" "DOMEventTarget" -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_get_target" webkit_dom_event_get_target :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" IO (Ptr DOMEventTarget) dOMEventGetTarget :: (MonadIO m, DOMEventK a) => a -> -- _obj m DOMEventTarget dOMEventGetTarget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_event_get_target _obj' checkUnexpectedReturnNULL "webkit_dom_event_get_target" result result' <- (wrapObject DOMEventTarget) result touchManagedPtr _obj return result' -- method DOMEvent::get_time_stamp -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_get_time_stamp" webkit_dom_event_get_time_stamp :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" IO Word32 dOMEventGetTimeStamp :: (MonadIO m, DOMEventK a) => a -> -- _obj m Word32 dOMEventGetTimeStamp _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- webkit_dom_event_get_time_stamp _obj' touchManagedPtr _obj return result -- method DOMEvent::init_event -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "eventTypeArg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubbleArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelableArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "eventTypeArg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canBubbleArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancelableArg", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_init_event" webkit_dom_event_init_event :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" CString -> -- eventTypeArg : TBasicType TUTF8 CInt -> -- canBubbleArg : TBasicType TBoolean CInt -> -- cancelableArg : TBasicType TBoolean IO () dOMEventInitEvent :: (MonadIO m, DOMEventK a) => a -> -- _obj T.Text -> -- eventTypeArg Bool -> -- canBubbleArg Bool -> -- cancelableArg m () dOMEventInitEvent _obj eventTypeArg canBubbleArg cancelableArg = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj eventTypeArg' <- textToCString eventTypeArg let canBubbleArg' = (fromIntegral . fromEnum) canBubbleArg let cancelableArg' = (fromIntegral . fromEnum) cancelableArg webkit_dom_event_init_event _obj' eventTypeArg' canBubbleArg' cancelableArg' touchManagedPtr _obj freeMem eventTypeArg' return () -- method DOMEvent::prevent_default -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_prevent_default" webkit_dom_event_prevent_default :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" IO () dOMEventPreventDefault :: (MonadIO m, DOMEventK a) => a -> -- _obj m () dOMEventPreventDefault _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_event_prevent_default _obj' touchManagedPtr _obj return () -- method DOMEvent::set_cancel_bubble -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_set_cancel_bubble" webkit_dom_event_set_cancel_bubble :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" CInt -> -- value : TBasicType TBoolean IO () dOMEventSetCancelBubble :: (MonadIO m, DOMEventK a) => a -> -- _obj Bool -> -- value m () dOMEventSetCancelBubble _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let value' = (fromIntegral . fromEnum) value webkit_dom_event_set_cancel_bubble _obj' value' touchManagedPtr _obj return () -- method DOMEvent::set_return_value -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_set_return_value" webkit_dom_event_set_return_value :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" CInt -> -- value : TBasicType TBoolean IO () dOMEventSetReturnValue :: (MonadIO m, DOMEventK a) => a -> -- _obj Bool -> -- value m () dOMEventSetReturnValue _obj value = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let value' = (fromIntegral . fromEnum) value webkit_dom_event_set_return_value _obj' value' touchManagedPtr _obj return () -- method DOMEvent::stop_immediate_propagation -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_stop_immediate_propagation" webkit_dom_event_stop_immediate_propagation :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" IO () dOMEventStopImmediatePropagation :: (MonadIO m, DOMEventK a) => a -> -- _obj m () dOMEventStopImmediatePropagation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_event_stop_immediate_propagation _obj' touchManagedPtr _obj return () -- method DOMEvent::stop_propagation -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "WebKit" "DOMEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False foreign import ccall "webkit_dom_event_stop_propagation" webkit_dom_event_stop_propagation :: Ptr DOMEvent -> -- _obj : TInterface "WebKit" "DOMEvent" IO () dOMEventStopPropagation :: (MonadIO m, DOMEventK a) => a -> -- _obj m () dOMEventStopPropagation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj webkit_dom_event_stop_propagation _obj' touchManagedPtr _obj return ()