module GI.WebKit.Objects.DOMEvent
(
DOMEvent(..) ,
DOMEventK ,
toDOMEvent ,
noDOMEvent ,
dOMEventGetBubbles ,
dOMEventGetCancelBubble ,
dOMEventGetCancelable ,
dOMEventGetCurrentTarget ,
dOMEventGetDefaultPrevented ,
dOMEventGetEventPhase ,
dOMEventGetReturnValue ,
dOMEventGetSrcElement ,
dOMEventGetTarget ,
dOMEventGetTimeStamp ,
dOMEventInitEvent ,
dOMEventPreventDefault ,
dOMEventSetCancelBubble ,
dOMEventSetReturnValue ,
dOMEventStopImmediatePropagation ,
dOMEventStopPropagation ,
DOMEventBubblesPropertyInfo ,
getDOMEventBubbles ,
DOMEventCancelBubblePropertyInfo ,
constructDOMEventCancelBubble ,
getDOMEventCancelBubble ,
setDOMEventCancelBubble ,
DOMEventCancelablePropertyInfo ,
getDOMEventCancelable ,
DOMEventCurrentTargetPropertyInfo ,
getDOMEventCurrentTarget ,
DOMEventDefaultPreventedPropertyInfo ,
getDOMEventDefaultPrevented ,
DOMEventEventPhasePropertyInfo ,
getDOMEventEventPhase ,
DOMEventReturnValuePropertyInfo ,
constructDOMEventReturnValue ,
getDOMEventReturnValue ,
setDOMEventReturnValue ,
DOMEventSrcElementPropertyInfo ,
getDOMEventSrcElement ,
DOMEventTargetPropertyInfo ,
getDOMEventTarget ,
DOMEventTimeStampPropertyInfo ,
getDOMEventTimeStamp ,
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
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
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
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
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
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
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
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
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
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
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
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, *)])
foreign import ccall "webkit_dom_event_get_bubbles" webkit_dom_event_get_bubbles ::
Ptr DOMEvent ->
IO CInt
dOMEventGetBubbles ::
(MonadIO m, DOMEventK a) =>
a ->
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'
foreign import ccall "webkit_dom_event_get_cancel_bubble" webkit_dom_event_get_cancel_bubble ::
Ptr DOMEvent ->
IO CInt
dOMEventGetCancelBubble ::
(MonadIO m, DOMEventK a) =>
a ->
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'
foreign import ccall "webkit_dom_event_get_cancelable" webkit_dom_event_get_cancelable ::
Ptr DOMEvent ->
IO CInt
dOMEventGetCancelable ::
(MonadIO m, DOMEventK a) =>
a ->
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'
foreign import ccall "webkit_dom_event_get_current_target" webkit_dom_event_get_current_target ::
Ptr DOMEvent ->
IO (Ptr DOMEventTarget)
dOMEventGetCurrentTarget ::
(MonadIO m, DOMEventK a) =>
a ->
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'
foreign import ccall "webkit_dom_event_get_default_prevented" webkit_dom_event_get_default_prevented ::
Ptr DOMEvent ->
IO CInt
dOMEventGetDefaultPrevented ::
(MonadIO m, DOMEventK a) =>
a ->
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'
foreign import ccall "webkit_dom_event_get_event_phase" webkit_dom_event_get_event_phase ::
Ptr DOMEvent ->
IO Word16
dOMEventGetEventPhase ::
(MonadIO m, DOMEventK a) =>
a ->
m Word16
dOMEventGetEventPhase _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_event_get_event_phase _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_event_get_return_value" webkit_dom_event_get_return_value ::
Ptr DOMEvent ->
IO CInt
dOMEventGetReturnValue ::
(MonadIO m, DOMEventK a) =>
a ->
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'
foreign import ccall "webkit_dom_event_get_src_element" webkit_dom_event_get_src_element ::
Ptr DOMEvent ->
IO (Ptr DOMEventTarget)
dOMEventGetSrcElement ::
(MonadIO m, DOMEventK a) =>
a ->
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'
foreign import ccall "webkit_dom_event_get_target" webkit_dom_event_get_target ::
Ptr DOMEvent ->
IO (Ptr DOMEventTarget)
dOMEventGetTarget ::
(MonadIO m, DOMEventK a) =>
a ->
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'
foreign import ccall "webkit_dom_event_get_time_stamp" webkit_dom_event_get_time_stamp ::
Ptr DOMEvent ->
IO Word32
dOMEventGetTimeStamp ::
(MonadIO m, DOMEventK a) =>
a ->
m Word32
dOMEventGetTimeStamp _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_event_get_time_stamp _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_event_init_event" webkit_dom_event_init_event ::
Ptr DOMEvent ->
CString ->
CInt ->
CInt ->
IO ()
dOMEventInitEvent ::
(MonadIO m, DOMEventK a) =>
a ->
T.Text ->
Bool ->
Bool ->
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 ()
foreign import ccall "webkit_dom_event_prevent_default" webkit_dom_event_prevent_default ::
Ptr DOMEvent ->
IO ()
dOMEventPreventDefault ::
(MonadIO m, DOMEventK a) =>
a ->
m ()
dOMEventPreventDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_event_prevent_default _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_event_set_cancel_bubble" webkit_dom_event_set_cancel_bubble ::
Ptr DOMEvent ->
CInt ->
IO ()
dOMEventSetCancelBubble ::
(MonadIO m, DOMEventK a) =>
a ->
Bool ->
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 ()
foreign import ccall "webkit_dom_event_set_return_value" webkit_dom_event_set_return_value ::
Ptr DOMEvent ->
CInt ->
IO ()
dOMEventSetReturnValue ::
(MonadIO m, DOMEventK a) =>
a ->
Bool ->
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 ()
foreign import ccall "webkit_dom_event_stop_immediate_propagation" webkit_dom_event_stop_immediate_propagation ::
Ptr DOMEvent ->
IO ()
dOMEventStopImmediatePropagation ::
(MonadIO m, DOMEventK a) =>
a ->
m ()
dOMEventStopImmediatePropagation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_event_stop_immediate_propagation _obj'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_event_stop_propagation" webkit_dom_event_stop_propagation ::
Ptr DOMEvent ->
IO ()
dOMEventStopPropagation ::
(MonadIO m, DOMEventK a) =>
a ->
m ()
dOMEventStopPropagation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
webkit_dom_event_stop_propagation _obj'
touchManagedPtr _obj
return ()