module GI.WebKit.Objects.DOMTouch
(
DOMTouch(..) ,
IsDOMTouch ,
toDOMTouch ,
noDOMTouch ,
DOMTouchGetClientXMethodInfo ,
dOMTouchGetClientX ,
DOMTouchGetClientYMethodInfo ,
dOMTouchGetClientY ,
DOMTouchGetIdentifierMethodInfo ,
dOMTouchGetIdentifier ,
DOMTouchGetPageXMethodInfo ,
dOMTouchGetPageX ,
DOMTouchGetPageYMethodInfo ,
dOMTouchGetPageY ,
DOMTouchGetScreenXMethodInfo ,
dOMTouchGetScreenX ,
DOMTouchGetScreenYMethodInfo ,
dOMTouchGetScreenY ,
DOMTouchGetTargetMethodInfo ,
dOMTouchGetTarget ,
DOMTouchGetWebkitForceMethodInfo ,
dOMTouchGetWebkitForce ,
DOMTouchGetWebkitRadiusXMethodInfo ,
dOMTouchGetWebkitRadiusX ,
DOMTouchGetWebkitRadiusYMethodInfo ,
dOMTouchGetWebkitRadiusY ,
DOMTouchGetWebkitRotationAngleMethodInfo,
dOMTouchGetWebkitRotationAngle ,
DOMTouchClientXPropertyInfo ,
dOMTouchClientX ,
getDOMTouchClientX ,
DOMTouchClientYPropertyInfo ,
dOMTouchClientY ,
getDOMTouchClientY ,
DOMTouchIdentifierPropertyInfo ,
dOMTouchIdentifier ,
getDOMTouchIdentifier ,
DOMTouchPageXPropertyInfo ,
dOMTouchPageX ,
getDOMTouchPageX ,
DOMTouchPageYPropertyInfo ,
dOMTouchPageY ,
getDOMTouchPageY ,
DOMTouchScreenXPropertyInfo ,
dOMTouchScreenX ,
getDOMTouchScreenX ,
DOMTouchScreenYPropertyInfo ,
dOMTouchScreenY ,
getDOMTouchScreenY ,
DOMTouchTargetPropertyInfo ,
dOMTouchTarget ,
getDOMTouchTarget ,
DOMTouchWebkitForcePropertyInfo ,
dOMTouchWebkitForce ,
getDOMTouchWebkitForce ,
DOMTouchWebkitRadiusXPropertyInfo ,
dOMTouchWebkitRadiusX ,
getDOMTouchWebkitRadiusX ,
DOMTouchWebkitRadiusYPropertyInfo ,
dOMTouchWebkitRadiusY ,
getDOMTouchWebkitRadiusY ,
DOMTouchWebkitRotationAnglePropertyInfo ,
dOMTouchWebkitRotationAngle ,
getDOMTouchWebkitRotationAngle ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.WebKit.Interfaces.DOMEventTarget as WebKit.DOMEventTarget
import qualified GI.WebKit.Objects.DOMObject as WebKit.DOMObject
newtype DOMTouch = DOMTouch (ManagedPtr DOMTouch)
foreign import ccall "webkit_dom_touch_get_type"
c_webkit_dom_touch_get_type :: IO GType
instance GObject DOMTouch where
gobjectType _ = c_webkit_dom_touch_get_type
class GObject o => IsDOMTouch o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DOMTouch a) =>
IsDOMTouch a
#endif
instance IsDOMTouch DOMTouch
instance WebKit.DOMObject.IsDOMObject DOMTouch
instance GObject.Object.IsObject DOMTouch
toDOMTouch :: IsDOMTouch o => o -> IO DOMTouch
toDOMTouch = unsafeCastTo DOMTouch
noDOMTouch :: Maybe DOMTouch
noDOMTouch = Nothing
type family ResolveDOMTouchMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMTouchMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMTouchMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMTouchMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMTouchMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMTouchMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMTouchMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMTouchMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMTouchMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMTouchMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMTouchMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDOMTouchMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveDOMTouchMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMTouchMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMTouchMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMTouchMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMTouchMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMTouchMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMTouchMethod "getClientX" o = DOMTouchGetClientXMethodInfo
ResolveDOMTouchMethod "getClientY" o = DOMTouchGetClientYMethodInfo
ResolveDOMTouchMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMTouchMethod "getIdentifier" o = DOMTouchGetIdentifierMethodInfo
ResolveDOMTouchMethod "getPageX" o = DOMTouchGetPageXMethodInfo
ResolveDOMTouchMethod "getPageY" o = DOMTouchGetPageYMethodInfo
ResolveDOMTouchMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMTouchMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMTouchMethod "getScreenX" o = DOMTouchGetScreenXMethodInfo
ResolveDOMTouchMethod "getScreenY" o = DOMTouchGetScreenYMethodInfo
ResolveDOMTouchMethod "getTarget" o = DOMTouchGetTargetMethodInfo
ResolveDOMTouchMethod "getWebkitForce" o = DOMTouchGetWebkitForceMethodInfo
ResolveDOMTouchMethod "getWebkitRadiusX" o = DOMTouchGetWebkitRadiusXMethodInfo
ResolveDOMTouchMethod "getWebkitRadiusY" o = DOMTouchGetWebkitRadiusYMethodInfo
ResolveDOMTouchMethod "getWebkitRotationAngle" o = DOMTouchGetWebkitRotationAngleMethodInfo
ResolveDOMTouchMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMTouchMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMTouchMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMTouchMethod t DOMTouch, O.MethodInfo info DOMTouch p) => O.IsLabelProxy t (DOMTouch -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMTouchMethod t DOMTouch, O.MethodInfo info DOMTouch p) => O.IsLabel t (DOMTouch -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getDOMTouchClientX :: (MonadIO m, IsDOMTouch o) => o -> m CLong
getDOMTouchClientX obj = liftIO $ getObjectPropertyLong obj "client-x"
data DOMTouchClientXPropertyInfo
instance AttrInfo DOMTouchClientXPropertyInfo where
type AttrAllowedOps DOMTouchClientXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMTouchClientXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTouchClientXPropertyInfo = IsDOMTouch
type AttrGetType DOMTouchClientXPropertyInfo = CLong
type AttrLabel DOMTouchClientXPropertyInfo = "client-x"
type AttrOrigin DOMTouchClientXPropertyInfo = DOMTouch
attrGet _ = getDOMTouchClientX
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMTouchClientY :: (MonadIO m, IsDOMTouch o) => o -> m CLong
getDOMTouchClientY obj = liftIO $ getObjectPropertyLong obj "client-y"
data DOMTouchClientYPropertyInfo
instance AttrInfo DOMTouchClientYPropertyInfo where
type AttrAllowedOps DOMTouchClientYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMTouchClientYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTouchClientYPropertyInfo = IsDOMTouch
type AttrGetType DOMTouchClientYPropertyInfo = CLong
type AttrLabel DOMTouchClientYPropertyInfo = "client-y"
type AttrOrigin DOMTouchClientYPropertyInfo = DOMTouch
attrGet _ = getDOMTouchClientY
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMTouchIdentifier :: (MonadIO m, IsDOMTouch o) => o -> m CULong
getDOMTouchIdentifier obj = liftIO $ getObjectPropertyULong obj "identifier"
data DOMTouchIdentifierPropertyInfo
instance AttrInfo DOMTouchIdentifierPropertyInfo where
type AttrAllowedOps DOMTouchIdentifierPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMTouchIdentifierPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTouchIdentifierPropertyInfo = IsDOMTouch
type AttrGetType DOMTouchIdentifierPropertyInfo = CULong
type AttrLabel DOMTouchIdentifierPropertyInfo = "identifier"
type AttrOrigin DOMTouchIdentifierPropertyInfo = DOMTouch
attrGet _ = getDOMTouchIdentifier
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMTouchPageX :: (MonadIO m, IsDOMTouch o) => o -> m CLong
getDOMTouchPageX obj = liftIO $ getObjectPropertyLong obj "page-x"
data DOMTouchPageXPropertyInfo
instance AttrInfo DOMTouchPageXPropertyInfo where
type AttrAllowedOps DOMTouchPageXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMTouchPageXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTouchPageXPropertyInfo = IsDOMTouch
type AttrGetType DOMTouchPageXPropertyInfo = CLong
type AttrLabel DOMTouchPageXPropertyInfo = "page-x"
type AttrOrigin DOMTouchPageXPropertyInfo = DOMTouch
attrGet _ = getDOMTouchPageX
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMTouchPageY :: (MonadIO m, IsDOMTouch o) => o -> m CLong
getDOMTouchPageY obj = liftIO $ getObjectPropertyLong obj "page-y"
data DOMTouchPageYPropertyInfo
instance AttrInfo DOMTouchPageYPropertyInfo where
type AttrAllowedOps DOMTouchPageYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMTouchPageYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTouchPageYPropertyInfo = IsDOMTouch
type AttrGetType DOMTouchPageYPropertyInfo = CLong
type AttrLabel DOMTouchPageYPropertyInfo = "page-y"
type AttrOrigin DOMTouchPageYPropertyInfo = DOMTouch
attrGet _ = getDOMTouchPageY
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMTouchScreenX :: (MonadIO m, IsDOMTouch o) => o -> m CLong
getDOMTouchScreenX obj = liftIO $ getObjectPropertyLong obj "screen-x"
data DOMTouchScreenXPropertyInfo
instance AttrInfo DOMTouchScreenXPropertyInfo where
type AttrAllowedOps DOMTouchScreenXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMTouchScreenXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTouchScreenXPropertyInfo = IsDOMTouch
type AttrGetType DOMTouchScreenXPropertyInfo = CLong
type AttrLabel DOMTouchScreenXPropertyInfo = "screen-x"
type AttrOrigin DOMTouchScreenXPropertyInfo = DOMTouch
attrGet _ = getDOMTouchScreenX
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMTouchScreenY :: (MonadIO m, IsDOMTouch o) => o -> m CLong
getDOMTouchScreenY obj = liftIO $ getObjectPropertyLong obj "screen-y"
data DOMTouchScreenYPropertyInfo
instance AttrInfo DOMTouchScreenYPropertyInfo where
type AttrAllowedOps DOMTouchScreenYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMTouchScreenYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTouchScreenYPropertyInfo = IsDOMTouch
type AttrGetType DOMTouchScreenYPropertyInfo = CLong
type AttrLabel DOMTouchScreenYPropertyInfo = "screen-y"
type AttrOrigin DOMTouchScreenYPropertyInfo = DOMTouch
attrGet _ = getDOMTouchScreenY
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMTouchTarget :: (MonadIO m, IsDOMTouch o) => o -> m (Maybe WebKit.DOMEventTarget.DOMEventTarget)
getDOMTouchTarget obj = liftIO $ getObjectPropertyObject obj "target" WebKit.DOMEventTarget.DOMEventTarget
data DOMTouchTargetPropertyInfo
instance AttrInfo DOMTouchTargetPropertyInfo where
type AttrAllowedOps DOMTouchTargetPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMTouchTargetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTouchTargetPropertyInfo = IsDOMTouch
type AttrGetType DOMTouchTargetPropertyInfo = (Maybe WebKit.DOMEventTarget.DOMEventTarget)
type AttrLabel DOMTouchTargetPropertyInfo = "target"
type AttrOrigin DOMTouchTargetPropertyInfo = DOMTouch
attrGet _ = getDOMTouchTarget
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMTouchWebkitForce :: (MonadIO m, IsDOMTouch o) => o -> m Float
getDOMTouchWebkitForce obj = liftIO $ getObjectPropertyFloat obj "webkit-force"
data DOMTouchWebkitForcePropertyInfo
instance AttrInfo DOMTouchWebkitForcePropertyInfo where
type AttrAllowedOps DOMTouchWebkitForcePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMTouchWebkitForcePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTouchWebkitForcePropertyInfo = IsDOMTouch
type AttrGetType DOMTouchWebkitForcePropertyInfo = Float
type AttrLabel DOMTouchWebkitForcePropertyInfo = "webkit-force"
type AttrOrigin DOMTouchWebkitForcePropertyInfo = DOMTouch
attrGet _ = getDOMTouchWebkitForce
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMTouchWebkitRadiusX :: (MonadIO m, IsDOMTouch o) => o -> m CLong
getDOMTouchWebkitRadiusX obj = liftIO $ getObjectPropertyLong obj "webkit-radius-x"
data DOMTouchWebkitRadiusXPropertyInfo
instance AttrInfo DOMTouchWebkitRadiusXPropertyInfo where
type AttrAllowedOps DOMTouchWebkitRadiusXPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMTouchWebkitRadiusXPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTouchWebkitRadiusXPropertyInfo = IsDOMTouch
type AttrGetType DOMTouchWebkitRadiusXPropertyInfo = CLong
type AttrLabel DOMTouchWebkitRadiusXPropertyInfo = "webkit-radius-x"
type AttrOrigin DOMTouchWebkitRadiusXPropertyInfo = DOMTouch
attrGet _ = getDOMTouchWebkitRadiusX
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMTouchWebkitRadiusY :: (MonadIO m, IsDOMTouch o) => o -> m CLong
getDOMTouchWebkitRadiusY obj = liftIO $ getObjectPropertyLong obj "webkit-radius-y"
data DOMTouchWebkitRadiusYPropertyInfo
instance AttrInfo DOMTouchWebkitRadiusYPropertyInfo where
type AttrAllowedOps DOMTouchWebkitRadiusYPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMTouchWebkitRadiusYPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTouchWebkitRadiusYPropertyInfo = IsDOMTouch
type AttrGetType DOMTouchWebkitRadiusYPropertyInfo = CLong
type AttrLabel DOMTouchWebkitRadiusYPropertyInfo = "webkit-radius-y"
type AttrOrigin DOMTouchWebkitRadiusYPropertyInfo = DOMTouch
attrGet _ = getDOMTouchWebkitRadiusY
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMTouchWebkitRotationAngle :: (MonadIO m, IsDOMTouch o) => o -> m Float
getDOMTouchWebkitRotationAngle obj = liftIO $ getObjectPropertyFloat obj "webkit-rotation-angle"
data DOMTouchWebkitRotationAnglePropertyInfo
instance AttrInfo DOMTouchWebkitRotationAnglePropertyInfo where
type AttrAllowedOps DOMTouchWebkitRotationAnglePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMTouchWebkitRotationAnglePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTouchWebkitRotationAnglePropertyInfo = IsDOMTouch
type AttrGetType DOMTouchWebkitRotationAnglePropertyInfo = Float
type AttrLabel DOMTouchWebkitRotationAnglePropertyInfo = "webkit-rotation-angle"
type AttrOrigin DOMTouchWebkitRotationAnglePropertyInfo = DOMTouch
attrGet _ = getDOMTouchWebkitRotationAngle
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
instance O.HasAttributeList DOMTouch
type instance O.AttributeList DOMTouch = DOMTouchAttributeList
type DOMTouchAttributeList = ('[ '("clientX", DOMTouchClientXPropertyInfo), '("clientY", DOMTouchClientYPropertyInfo), '("coreObject", WebKit.DOMObject.DOMObjectCoreObjectPropertyInfo), '("identifier", DOMTouchIdentifierPropertyInfo), '("pageX", DOMTouchPageXPropertyInfo), '("pageY", DOMTouchPageYPropertyInfo), '("screenX", DOMTouchScreenXPropertyInfo), '("screenY", DOMTouchScreenYPropertyInfo), '("target", DOMTouchTargetPropertyInfo), '("webkitForce", DOMTouchWebkitForcePropertyInfo), '("webkitRadiusX", DOMTouchWebkitRadiusXPropertyInfo), '("webkitRadiusY", DOMTouchWebkitRadiusYPropertyInfo), '("webkitRotationAngle", DOMTouchWebkitRotationAnglePropertyInfo)] :: [(Symbol, *)])
dOMTouchClientX :: AttrLabelProxy "clientX"
dOMTouchClientX = AttrLabelProxy
dOMTouchClientY :: AttrLabelProxy "clientY"
dOMTouchClientY = AttrLabelProxy
dOMTouchIdentifier :: AttrLabelProxy "identifier"
dOMTouchIdentifier = AttrLabelProxy
dOMTouchPageX :: AttrLabelProxy "pageX"
dOMTouchPageX = AttrLabelProxy
dOMTouchPageY :: AttrLabelProxy "pageY"
dOMTouchPageY = AttrLabelProxy
dOMTouchScreenX :: AttrLabelProxy "screenX"
dOMTouchScreenX = AttrLabelProxy
dOMTouchScreenY :: AttrLabelProxy "screenY"
dOMTouchScreenY = AttrLabelProxy
dOMTouchTarget :: AttrLabelProxy "target"
dOMTouchTarget = AttrLabelProxy
dOMTouchWebkitForce :: AttrLabelProxy "webkitForce"
dOMTouchWebkitForce = AttrLabelProxy
dOMTouchWebkitRadiusX :: AttrLabelProxy "webkitRadiusX"
dOMTouchWebkitRadiusX = AttrLabelProxy
dOMTouchWebkitRadiusY :: AttrLabelProxy "webkitRadiusY"
dOMTouchWebkitRadiusY = AttrLabelProxy
dOMTouchWebkitRotationAngle :: AttrLabelProxy "webkitRotationAngle"
dOMTouchWebkitRotationAngle = AttrLabelProxy
type instance O.SignalList DOMTouch = DOMTouchSignalList
type DOMTouchSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_touch_get_client_x" webkit_dom_touch_get_client_x ::
Ptr DOMTouch ->
IO CLong
dOMTouchGetClientX ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTouch a) =>
a
-> m CLong
dOMTouchGetClientX self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_touch_get_client_x self'
touchManagedPtr self
return result
data DOMTouchGetClientXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMTouch a) => O.MethodInfo DOMTouchGetClientXMethodInfo a signature where
overloadedMethod _ = dOMTouchGetClientX
foreign import ccall "webkit_dom_touch_get_client_y" webkit_dom_touch_get_client_y ::
Ptr DOMTouch ->
IO CLong
dOMTouchGetClientY ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTouch a) =>
a
-> m CLong
dOMTouchGetClientY self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_touch_get_client_y self'
touchManagedPtr self
return result
data DOMTouchGetClientYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMTouch a) => O.MethodInfo DOMTouchGetClientYMethodInfo a signature where
overloadedMethod _ = dOMTouchGetClientY
foreign import ccall "webkit_dom_touch_get_identifier" webkit_dom_touch_get_identifier ::
Ptr DOMTouch ->
IO CULong
dOMTouchGetIdentifier ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTouch a) =>
a
-> m CULong
dOMTouchGetIdentifier self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_touch_get_identifier self'
touchManagedPtr self
return result
data DOMTouchGetIdentifierMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMTouch a) => O.MethodInfo DOMTouchGetIdentifierMethodInfo a signature where
overloadedMethod _ = dOMTouchGetIdentifier
foreign import ccall "webkit_dom_touch_get_page_x" webkit_dom_touch_get_page_x ::
Ptr DOMTouch ->
IO CLong
dOMTouchGetPageX ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTouch a) =>
a
-> m CLong
dOMTouchGetPageX self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_touch_get_page_x self'
touchManagedPtr self
return result
data DOMTouchGetPageXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMTouch a) => O.MethodInfo DOMTouchGetPageXMethodInfo a signature where
overloadedMethod _ = dOMTouchGetPageX
foreign import ccall "webkit_dom_touch_get_page_y" webkit_dom_touch_get_page_y ::
Ptr DOMTouch ->
IO CLong
dOMTouchGetPageY ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTouch a) =>
a
-> m CLong
dOMTouchGetPageY self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_touch_get_page_y self'
touchManagedPtr self
return result
data DOMTouchGetPageYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMTouch a) => O.MethodInfo DOMTouchGetPageYMethodInfo a signature where
overloadedMethod _ = dOMTouchGetPageY
foreign import ccall "webkit_dom_touch_get_screen_x" webkit_dom_touch_get_screen_x ::
Ptr DOMTouch ->
IO CLong
dOMTouchGetScreenX ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTouch a) =>
a
-> m CLong
dOMTouchGetScreenX self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_touch_get_screen_x self'
touchManagedPtr self
return result
data DOMTouchGetScreenXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMTouch a) => O.MethodInfo DOMTouchGetScreenXMethodInfo a signature where
overloadedMethod _ = dOMTouchGetScreenX
foreign import ccall "webkit_dom_touch_get_screen_y" webkit_dom_touch_get_screen_y ::
Ptr DOMTouch ->
IO CLong
dOMTouchGetScreenY ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTouch a) =>
a
-> m CLong
dOMTouchGetScreenY self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_touch_get_screen_y self'
touchManagedPtr self
return result
data DOMTouchGetScreenYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMTouch a) => O.MethodInfo DOMTouchGetScreenYMethodInfo a signature where
overloadedMethod _ = dOMTouchGetScreenY
foreign import ccall "webkit_dom_touch_get_target" webkit_dom_touch_get_target ::
Ptr DOMTouch ->
IO (Ptr WebKit.DOMEventTarget.DOMEventTarget)
dOMTouchGetTarget ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTouch a) =>
a
-> m WebKit.DOMEventTarget.DOMEventTarget
dOMTouchGetTarget self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_touch_get_target self'
checkUnexpectedReturnNULL "dOMTouchGetTarget" result
result' <- (wrapObject WebKit.DOMEventTarget.DOMEventTarget) result
touchManagedPtr self
return result'
data DOMTouchGetTargetMethodInfo
instance (signature ~ (m WebKit.DOMEventTarget.DOMEventTarget), MonadIO m, IsDOMTouch a) => O.MethodInfo DOMTouchGetTargetMethodInfo a signature where
overloadedMethod _ = dOMTouchGetTarget
foreign import ccall "webkit_dom_touch_get_webkit_force" webkit_dom_touch_get_webkit_force ::
Ptr DOMTouch ->
IO CFloat
dOMTouchGetWebkitForce ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTouch a) =>
a
-> m Float
dOMTouchGetWebkitForce self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_touch_get_webkit_force self'
let result' = realToFrac result
touchManagedPtr self
return result'
data DOMTouchGetWebkitForceMethodInfo
instance (signature ~ (m Float), MonadIO m, IsDOMTouch a) => O.MethodInfo DOMTouchGetWebkitForceMethodInfo a signature where
overloadedMethod _ = dOMTouchGetWebkitForce
foreign import ccall "webkit_dom_touch_get_webkit_radius_x" webkit_dom_touch_get_webkit_radius_x ::
Ptr DOMTouch ->
IO CLong
dOMTouchGetWebkitRadiusX ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTouch a) =>
a
-> m CLong
dOMTouchGetWebkitRadiusX self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_touch_get_webkit_radius_x self'
touchManagedPtr self
return result
data DOMTouchGetWebkitRadiusXMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMTouch a) => O.MethodInfo DOMTouchGetWebkitRadiusXMethodInfo a signature where
overloadedMethod _ = dOMTouchGetWebkitRadiusX
foreign import ccall "webkit_dom_touch_get_webkit_radius_y" webkit_dom_touch_get_webkit_radius_y ::
Ptr DOMTouch ->
IO CLong
dOMTouchGetWebkitRadiusY ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTouch a) =>
a
-> m CLong
dOMTouchGetWebkitRadiusY self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_touch_get_webkit_radius_y self'
touchManagedPtr self
return result
data DOMTouchGetWebkitRadiusYMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDOMTouch a) => O.MethodInfo DOMTouchGetWebkitRadiusYMethodInfo a signature where
overloadedMethod _ = dOMTouchGetWebkitRadiusY
foreign import ccall "webkit_dom_touch_get_webkit_rotation_angle" webkit_dom_touch_get_webkit_rotation_angle ::
Ptr DOMTouch ->
IO CFloat
dOMTouchGetWebkitRotationAngle ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMTouch a) =>
a
-> m Float
dOMTouchGetWebkitRotationAngle self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_touch_get_webkit_rotation_angle self'
let result' = realToFrac result
touchManagedPtr self
return result'
data DOMTouchGetWebkitRotationAngleMethodInfo
instance (signature ~ (m Float), MonadIO m, IsDOMTouch a) => O.MethodInfo DOMTouchGetWebkitRotationAngleMethodInfo a signature where
overloadedMethod _ = dOMTouchGetWebkitRotationAngle