module GI.WebKit2WebExtension.Objects.DOMUIEvent
(
DOMUIEvent(..) ,
DOMUIEventK ,
toDOMUIEvent ,
noDOMUIEvent ,
dOMUIEventGetCharCode ,
dOMUIEventGetDetail ,
dOMUIEventGetKeyCode ,
dOMUIEventGetLayerX ,
dOMUIEventGetLayerY ,
dOMUIEventGetPageX ,
dOMUIEventGetPageY ,
dOMUIEventGetView ,
dOMUIEventInitUiEvent ,
DOMUIEventCharCodePropertyInfo ,
getDOMUIEventCharCode ,
DOMUIEventDetailPropertyInfo ,
getDOMUIEventDetail ,
DOMUIEventKeyCodePropertyInfo ,
getDOMUIEventKeyCode ,
DOMUIEventLayerXPropertyInfo ,
getDOMUIEventLayerX ,
DOMUIEventLayerYPropertyInfo ,
getDOMUIEventLayerY ,
DOMUIEventPageXPropertyInfo ,
getDOMUIEventPageX ,
DOMUIEventPageYPropertyInfo ,
getDOMUIEventPageY ,
DOMUIEventViewPropertyInfo ,
getDOMUIEventView ,
DOMUIEventWhichPropertyInfo ,
getDOMUIEventWhich ,
) 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.WebKit2WebExtension.Types
import GI.WebKit2WebExtension.Callbacks
import qualified GI.GObject as GObject
newtype DOMUIEvent = DOMUIEvent (ForeignPtr DOMUIEvent)
foreign import ccall "webkit_dom_ui_event_get_type"
c_webkit_dom_ui_event_get_type :: IO GType
type instance ParentTypes DOMUIEvent = DOMUIEventParentTypes
type DOMUIEventParentTypes = '[DOMEvent, DOMObject, GObject.Object]
instance GObject DOMUIEvent where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_ui_event_get_type
class GObject o => DOMUIEventK o
instance (GObject o, IsDescendantOf DOMUIEvent o) => DOMUIEventK o
toDOMUIEvent :: DOMUIEventK o => o -> IO DOMUIEvent
toDOMUIEvent = unsafeCastTo DOMUIEvent
noDOMUIEvent :: Maybe DOMUIEvent
noDOMUIEvent = Nothing
getDOMUIEventCharCode :: (MonadIO m, DOMUIEventK o) => o -> m Int64
getDOMUIEventCharCode obj = liftIO $ getObjectPropertyInt64 obj "char-code"
data DOMUIEventCharCodePropertyInfo
instance AttrInfo DOMUIEventCharCodePropertyInfo where
type AttrAllowedOps DOMUIEventCharCodePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventCharCodePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventCharCodePropertyInfo = DOMUIEventK
type AttrGetType DOMUIEventCharCodePropertyInfo = Int64
type AttrLabel DOMUIEventCharCodePropertyInfo = "DOMUIEvent::char-code"
attrGet _ = getDOMUIEventCharCode
attrSet _ = undefined
attrConstruct _ = undefined
getDOMUIEventDetail :: (MonadIO m, DOMUIEventK o) => o -> m Int64
getDOMUIEventDetail obj = liftIO $ getObjectPropertyInt64 obj "detail"
data DOMUIEventDetailPropertyInfo
instance AttrInfo DOMUIEventDetailPropertyInfo where
type AttrAllowedOps DOMUIEventDetailPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventDetailPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventDetailPropertyInfo = DOMUIEventK
type AttrGetType DOMUIEventDetailPropertyInfo = Int64
type AttrLabel DOMUIEventDetailPropertyInfo = "DOMUIEvent::detail"
attrGet _ = getDOMUIEventDetail
attrSet _ = undefined
attrConstruct _ = undefined
getDOMUIEventKeyCode :: (MonadIO m, DOMUIEventK o) => o -> m Int64
getDOMUIEventKeyCode obj = liftIO $ getObjectPropertyInt64 obj "key-code"
data DOMUIEventKeyCodePropertyInfo
instance AttrInfo DOMUIEventKeyCodePropertyInfo where
type AttrAllowedOps DOMUIEventKeyCodePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventKeyCodePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventKeyCodePropertyInfo = DOMUIEventK
type AttrGetType DOMUIEventKeyCodePropertyInfo = Int64
type AttrLabel DOMUIEventKeyCodePropertyInfo = "DOMUIEvent::key-code"
attrGet _ = getDOMUIEventKeyCode
attrSet _ = undefined
attrConstruct _ = undefined
getDOMUIEventLayerX :: (MonadIO m, DOMUIEventK o) => o -> m Int64
getDOMUIEventLayerX obj = liftIO $ getObjectPropertyInt64 obj "layer-x"
data DOMUIEventLayerXPropertyInfo
instance AttrInfo DOMUIEventLayerXPropertyInfo where
type AttrAllowedOps DOMUIEventLayerXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventLayerXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventLayerXPropertyInfo = DOMUIEventK
type AttrGetType DOMUIEventLayerXPropertyInfo = Int64
type AttrLabel DOMUIEventLayerXPropertyInfo = "DOMUIEvent::layer-x"
attrGet _ = getDOMUIEventLayerX
attrSet _ = undefined
attrConstruct _ = undefined
getDOMUIEventLayerY :: (MonadIO m, DOMUIEventK o) => o -> m Int64
getDOMUIEventLayerY obj = liftIO $ getObjectPropertyInt64 obj "layer-y"
data DOMUIEventLayerYPropertyInfo
instance AttrInfo DOMUIEventLayerYPropertyInfo where
type AttrAllowedOps DOMUIEventLayerYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventLayerYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventLayerYPropertyInfo = DOMUIEventK
type AttrGetType DOMUIEventLayerYPropertyInfo = Int64
type AttrLabel DOMUIEventLayerYPropertyInfo = "DOMUIEvent::layer-y"
attrGet _ = getDOMUIEventLayerY
attrSet _ = undefined
attrConstruct _ = undefined
getDOMUIEventPageX :: (MonadIO m, DOMUIEventK o) => o -> m Int64
getDOMUIEventPageX obj = liftIO $ getObjectPropertyInt64 obj "page-x"
data DOMUIEventPageXPropertyInfo
instance AttrInfo DOMUIEventPageXPropertyInfo where
type AttrAllowedOps DOMUIEventPageXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventPageXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventPageXPropertyInfo = DOMUIEventK
type AttrGetType DOMUIEventPageXPropertyInfo = Int64
type AttrLabel DOMUIEventPageXPropertyInfo = "DOMUIEvent::page-x"
attrGet _ = getDOMUIEventPageX
attrSet _ = undefined
attrConstruct _ = undefined
getDOMUIEventPageY :: (MonadIO m, DOMUIEventK o) => o -> m Int64
getDOMUIEventPageY obj = liftIO $ getObjectPropertyInt64 obj "page-y"
data DOMUIEventPageYPropertyInfo
instance AttrInfo DOMUIEventPageYPropertyInfo where
type AttrAllowedOps DOMUIEventPageYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventPageYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventPageYPropertyInfo = DOMUIEventK
type AttrGetType DOMUIEventPageYPropertyInfo = Int64
type AttrLabel DOMUIEventPageYPropertyInfo = "DOMUIEvent::page-y"
attrGet _ = getDOMUIEventPageY
attrSet _ = undefined
attrConstruct _ = undefined
getDOMUIEventView :: (MonadIO m, DOMUIEventK o) => o -> m DOMDOMWindow
getDOMUIEventView obj = liftIO $ getObjectPropertyObject obj "view" DOMDOMWindow
data DOMUIEventViewPropertyInfo
instance AttrInfo DOMUIEventViewPropertyInfo where
type AttrAllowedOps DOMUIEventViewPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventViewPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventViewPropertyInfo = DOMUIEventK
type AttrGetType DOMUIEventViewPropertyInfo = DOMDOMWindow
type AttrLabel DOMUIEventViewPropertyInfo = "DOMUIEvent::view"
attrGet _ = getDOMUIEventView
attrSet _ = undefined
attrConstruct _ = undefined
getDOMUIEventWhich :: (MonadIO m, DOMUIEventK o) => o -> m Int64
getDOMUIEventWhich obj = liftIO $ getObjectPropertyInt64 obj "which"
data DOMUIEventWhichPropertyInfo
instance AttrInfo DOMUIEventWhichPropertyInfo where
type AttrAllowedOps DOMUIEventWhichPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMUIEventWhichPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMUIEventWhichPropertyInfo = DOMUIEventK
type AttrGetType DOMUIEventWhichPropertyInfo = Int64
type AttrLabel DOMUIEventWhichPropertyInfo = "DOMUIEvent::which"
attrGet _ = getDOMUIEventWhich
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMUIEvent = DOMUIEventAttributeList
type DOMUIEventAttributeList = ('[ '("bubbles", DOMEventBubblesPropertyInfo), '("cancel-bubble", DOMEventCancelBubblePropertyInfo), '("cancelable", DOMEventCancelablePropertyInfo), '("char-code", DOMUIEventCharCodePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("current-target", DOMEventCurrentTargetPropertyInfo), '("default-prevented", DOMEventDefaultPreventedPropertyInfo), '("detail", DOMUIEventDetailPropertyInfo), '("event-phase", DOMEventEventPhasePropertyInfo), '("key-code", DOMUIEventKeyCodePropertyInfo), '("layer-x", DOMUIEventLayerXPropertyInfo), '("layer-y", DOMUIEventLayerYPropertyInfo), '("page-x", DOMUIEventPageXPropertyInfo), '("page-y", DOMUIEventPageYPropertyInfo), '("return-value", DOMEventReturnValuePropertyInfo), '("src-element", DOMEventSrcElementPropertyInfo), '("target", DOMEventTargetPropertyInfo), '("time-stamp", DOMEventTimeStampPropertyInfo), '("type", DOMEventTypePropertyInfo), '("view", DOMUIEventViewPropertyInfo), '("which", DOMUIEventWhichPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMUIEvent = DOMUIEventSignalList
type DOMUIEventSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_ui_event_get_char_code" webkit_dom_ui_event_get_char_code ::
Ptr DOMUIEvent ->
IO Int64
dOMUIEventGetCharCode ::
(MonadIO m, DOMUIEventK a) =>
a ->
m Int64
dOMUIEventGetCharCode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_char_code _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_ui_event_get_detail" webkit_dom_ui_event_get_detail ::
Ptr DOMUIEvent ->
IO Int64
dOMUIEventGetDetail ::
(MonadIO m, DOMUIEventK a) =>
a ->
m Int64
dOMUIEventGetDetail _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_detail _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_ui_event_get_key_code" webkit_dom_ui_event_get_key_code ::
Ptr DOMUIEvent ->
IO Int64
dOMUIEventGetKeyCode ::
(MonadIO m, DOMUIEventK a) =>
a ->
m Int64
dOMUIEventGetKeyCode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_key_code _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_ui_event_get_layer_x" webkit_dom_ui_event_get_layer_x ::
Ptr DOMUIEvent ->
IO Int64
dOMUIEventGetLayerX ::
(MonadIO m, DOMUIEventK a) =>
a ->
m Int64
dOMUIEventGetLayerX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_layer_x _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_ui_event_get_layer_y" webkit_dom_ui_event_get_layer_y ::
Ptr DOMUIEvent ->
IO Int64
dOMUIEventGetLayerY ::
(MonadIO m, DOMUIEventK a) =>
a ->
m Int64
dOMUIEventGetLayerY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_layer_y _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_ui_event_get_page_x" webkit_dom_ui_event_get_page_x ::
Ptr DOMUIEvent ->
IO Int64
dOMUIEventGetPageX ::
(MonadIO m, DOMUIEventK a) =>
a ->
m Int64
dOMUIEventGetPageX _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_page_x _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_ui_event_get_page_y" webkit_dom_ui_event_get_page_y ::
Ptr DOMUIEvent ->
IO Int64
dOMUIEventGetPageY ::
(MonadIO m, DOMUIEventK a) =>
a ->
m Int64
dOMUIEventGetPageY _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_page_y _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_ui_event_get_view" webkit_dom_ui_event_get_view ::
Ptr DOMUIEvent ->
IO (Ptr DOMDOMWindow)
dOMUIEventGetView ::
(MonadIO m, DOMUIEventK a) =>
a ->
m DOMDOMWindow
dOMUIEventGetView _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_ui_event_get_view _obj'
checkUnexpectedReturnNULL "webkit_dom_ui_event_get_view" result
result' <- (wrapObject DOMDOMWindow) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_ui_event_init_ui_event" webkit_dom_ui_event_init_ui_event ::
Ptr DOMUIEvent ->
CString ->
CInt ->
CInt ->
Ptr DOMDOMWindow ->
Int64 ->
IO ()
dOMUIEventInitUiEvent ::
(MonadIO m, DOMUIEventK a, DOMDOMWindowK b) =>
a ->
T.Text ->
Bool ->
Bool ->
b ->
Int64 ->
m ()
dOMUIEventInitUiEvent _obj type_ canBubble cancelable view detail = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
type_' <- textToCString type_
let canBubble' = (fromIntegral . fromEnum) canBubble
let cancelable' = (fromIntegral . fromEnum) cancelable
let view' = unsafeManagedPtrCastPtr view
webkit_dom_ui_event_init_ui_event _obj' type_' canBubble' cancelable' view' detail
touchManagedPtr _obj
touchManagedPtr view
freeMem type_'
return ()