{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Unions.Event
(
Event(..) ,
newZeroEvent ,
#if defined(ENABLE_OVERLOADING)
ResolveEventMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
EventCopyMethodInfo ,
#endif
eventCopy ,
#if defined(ENABLE_OVERLOADING)
EventFreeMethodInfo ,
#endif
eventFree ,
eventGet ,
#if defined(ENABLE_OVERLOADING)
EventGetAxisMethodInfo ,
#endif
eventGetAxis ,
#if defined(ENABLE_OVERLOADING)
EventGetButtonMethodInfo ,
#endif
eventGetButton ,
#if defined(ENABLE_OVERLOADING)
EventGetClickCountMethodInfo ,
#endif
eventGetClickCount ,
#if defined(ENABLE_OVERLOADING)
EventGetCoordsMethodInfo ,
#endif
eventGetCoords ,
#if defined(ENABLE_OVERLOADING)
EventGetDeviceMethodInfo ,
#endif
eventGetDevice ,
#if defined(ENABLE_OVERLOADING)
EventGetDeviceToolMethodInfo ,
#endif
eventGetDeviceTool ,
#if defined(ENABLE_OVERLOADING)
EventGetEventSequenceMethodInfo ,
#endif
eventGetEventSequence ,
#if defined(ENABLE_OVERLOADING)
EventGetEventTypeMethodInfo ,
#endif
eventGetEventType ,
#if defined(ENABLE_OVERLOADING)
EventGetKeycodeMethodInfo ,
#endif
eventGetKeycode ,
#if defined(ENABLE_OVERLOADING)
EventGetKeyvalMethodInfo ,
#endif
eventGetKeyval ,
#if defined(ENABLE_OVERLOADING)
EventGetPointerEmulatedMethodInfo ,
#endif
eventGetPointerEmulated ,
#if defined(ENABLE_OVERLOADING)
EventGetRootCoordsMethodInfo ,
#endif
eventGetRootCoords ,
#if defined(ENABLE_OVERLOADING)
EventGetScancodeMethodInfo ,
#endif
eventGetScancode ,
#if defined(ENABLE_OVERLOADING)
EventGetScreenMethodInfo ,
#endif
eventGetScreen ,
#if defined(ENABLE_OVERLOADING)
EventGetScrollDeltasMethodInfo ,
#endif
eventGetScrollDeltas ,
#if defined(ENABLE_OVERLOADING)
EventGetScrollDirectionMethodInfo ,
#endif
eventGetScrollDirection ,
#if defined(ENABLE_OVERLOADING)
EventGetSeatMethodInfo ,
#endif
eventGetSeat ,
#if defined(ENABLE_OVERLOADING)
EventGetSourceDeviceMethodInfo ,
#endif
eventGetSourceDevice ,
#if defined(ENABLE_OVERLOADING)
EventGetStateMethodInfo ,
#endif
eventGetState ,
#if defined(ENABLE_OVERLOADING)
EventGetTimeMethodInfo ,
#endif
eventGetTime ,
#if defined(ENABLE_OVERLOADING)
EventGetWindowMethodInfo ,
#endif
eventGetWindow ,
eventHandlerSet ,
#if defined(ENABLE_OVERLOADING)
EventIsScrollStopEventMethodInfo ,
#endif
eventIsScrollStopEvent ,
eventNew ,
eventPeek ,
#if defined(ENABLE_OVERLOADING)
EventPutMethodInfo ,
#endif
eventPut ,
eventRequestMotions ,
#if defined(ENABLE_OVERLOADING)
EventSetDeviceMethodInfo ,
#endif
eventSetDevice ,
#if defined(ENABLE_OVERLOADING)
EventSetDeviceToolMethodInfo ,
#endif
eventSetDeviceTool ,
#if defined(ENABLE_OVERLOADING)
EventSetScreenMethodInfo ,
#endif
eventSetScreen ,
#if defined(ENABLE_OVERLOADING)
EventSetSourceDeviceMethodInfo ,
#endif
eventSetSourceDevice ,
#if defined(ENABLE_OVERLOADING)
EventTriggersContextMenuMethodInfo ,
#endif
eventTriggersContextMenu ,
#if defined(ENABLE_OVERLOADING)
event_any ,
#endif
getEventAny ,
#if defined(ENABLE_OVERLOADING)
event_button ,
#endif
getEventButton ,
#if defined(ENABLE_OVERLOADING)
event_configure ,
#endif
getEventConfigure ,
#if defined(ENABLE_OVERLOADING)
event_crossing ,
#endif
getEventCrossing ,
#if defined(ENABLE_OVERLOADING)
event_dnd ,
#endif
getEventDnd ,
#if defined(ENABLE_OVERLOADING)
event_expose ,
#endif
getEventExpose ,
#if defined(ENABLE_OVERLOADING)
event_focusChange ,
#endif
getEventFocusChange ,
#if defined(ENABLE_OVERLOADING)
event_grabBroken ,
#endif
getEventGrabBroken ,
#if defined(ENABLE_OVERLOADING)
event_key ,
#endif
getEventKey ,
#if defined(ENABLE_OVERLOADING)
event_motion ,
#endif
getEventMotion ,
#if defined(ENABLE_OVERLOADING)
event_ownerChange ,
#endif
getEventOwnerChange ,
#if defined(ENABLE_OVERLOADING)
event_padAxis ,
#endif
getEventPadAxis ,
#if defined(ENABLE_OVERLOADING)
event_padButton ,
#endif
getEventPadButton ,
#if defined(ENABLE_OVERLOADING)
event_padGroupMode ,
#endif
getEventPadGroupMode ,
#if defined(ENABLE_OVERLOADING)
event_property ,
#endif
getEventProperty ,
#if defined(ENABLE_OVERLOADING)
event_proximity ,
#endif
getEventProximity ,
#if defined(ENABLE_OVERLOADING)
event_scroll ,
#endif
getEventScroll ,
#if defined(ENABLE_OVERLOADING)
event_selection ,
#endif
getEventSelection ,
#if defined(ENABLE_OVERLOADING)
event_setting ,
#endif
getEventSetting ,
#if defined(ENABLE_OVERLOADING)
event_touch ,
#endif
getEventTouch ,
#if defined(ENABLE_OVERLOADING)
event_touchpadPinch ,
#endif
getEventTouchpadPinch ,
#if defined(ENABLE_OVERLOADING)
event_touchpadSwipe ,
#endif
getEventTouchpadSwipe ,
#if defined(ENABLE_OVERLOADING)
event_type ,
#endif
getEventType ,
setEventType ,
#if defined(ENABLE_OVERLOADING)
event_visibility ,
#endif
getEventVisibility ,
#if defined(ENABLE_OVERLOADING)
event_windowState ,
#endif
getEventWindowState ,
) 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.GHashTable as B.GHT
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.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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.GLib.Callbacks as GLib.Callbacks
import qualified GI.Gdk.Callbacks as Gdk.Callbacks
import {-# SOURCE #-} qualified GI.Gdk.Enums as Gdk.Enums
import {-# SOURCE #-} qualified GI.Gdk.Flags as Gdk.Flags
import {-# SOURCE #-} qualified GI.Gdk.Objects.Device as Gdk.Device
import {-# SOURCE #-} qualified GI.Gdk.Objects.DeviceTool as Gdk.DeviceTool
import {-# SOURCE #-} qualified GI.Gdk.Objects.Screen as Gdk.Screen
import {-# SOURCE #-} qualified GI.Gdk.Objects.Seat as Gdk.Seat
import {-# SOURCE #-} qualified GI.Gdk.Objects.Window as Gdk.Window
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventAny as Gdk.EventAny
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventButton as Gdk.EventButton
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventConfigure as Gdk.EventConfigure
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventCrossing as Gdk.EventCrossing
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventDND as Gdk.EventDND
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventExpose as Gdk.EventExpose
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventFocus as Gdk.EventFocus
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventGrabBroken as Gdk.EventGrabBroken
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventKey as Gdk.EventKey
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventMotion as Gdk.EventMotion
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventOwnerChange as Gdk.EventOwnerChange
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventPadAxis as Gdk.EventPadAxis
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventPadButton as Gdk.EventPadButton
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventPadGroupMode as Gdk.EventPadGroupMode
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventProperty as Gdk.EventProperty
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventProximity as Gdk.EventProximity
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventScroll as Gdk.EventScroll
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventSelection as Gdk.EventSelection
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventSequence as Gdk.EventSequence
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventSetting as Gdk.EventSetting
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventTouch as Gdk.EventTouch
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventTouchpadPinch as Gdk.EventTouchpadPinch
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventTouchpadSwipe as Gdk.EventTouchpadSwipe
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventVisibility as Gdk.EventVisibility
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventWindowState as Gdk.EventWindowState
newtype Event = Event (SP.ManagedPtr Event)
deriving (Event -> Event -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Event -> Event -> Bool
$c/= :: Event -> Event -> Bool
== :: Event -> Event -> Bool
$c== :: Event -> Event -> Bool
Eq)
instance SP.ManagedPtrNewtype Event where
toManagedPtr :: Event -> ManagedPtr Event
toManagedPtr (Event ManagedPtr Event
p) = ManagedPtr Event
p
foreign import ccall "gdk_event_get_type" c_gdk_event_get_type ::
IO GType
type instance O.ParentTypes Event = '[]
instance O.HasParentTypes Event
instance B.Types.TypedObject Event where
glibType :: IO GType
glibType = IO GType
c_gdk_event_get_type
instance B.Types.GBoxed Event
instance B.GValue.IsGValue (Maybe Event) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gdk_event_get_type
gvalueSet_ :: Ptr GValue -> Maybe Event -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Event
P.Nothing = forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr Event)
gvalueSet_ Ptr GValue
gv (P.Just Event
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Event
obj (forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Event)
gvalueGet_ Ptr GValue
gv = do
Ptr Event
ptr <- forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr Event)
if Ptr Event
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr Event -> Event
Event Ptr Event
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
newZeroEvent :: MonadIO m => m Event
newZeroEvent :: forall (m :: * -> *). MonadIO m => m Event
newZeroEvent = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. GBoxed a => Int -> IO (Ptr a)
callocBoxedBytes Int
84 forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Event -> Event
Event
instance tag ~ 'AttrSet => Constructible Event tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr Event -> Event) -> [AttrOp Event tag] -> m Event
new ManagedPtr Event -> Event
_ [AttrOp Event tag]
attrs = do
Event
o <- forall (m :: * -> *). MonadIO m => m Event
newZeroEvent
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set Event
o [AttrOp Event tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return Event
o
getEventType :: MonadIO m => Event -> m Gdk.Enums.EventType
getEventType :: forall (m :: * -> *). MonadIO m => Event -> m EventType
getEventType Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
CInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO CInt
let val' :: EventType
val' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventType
val'
setEventType :: MonadIO m => Event -> Gdk.Enums.EventType -> m ()
setEventType :: forall (m :: * -> *). MonadIO m => Event -> EventType -> m ()
setEventType Event
s EventType
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val' :: CInt
val' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) EventType
val
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CInt
val' :: CInt)
#if defined(ENABLE_OVERLOADING)
data EventTypeFieldInfo
instance AttrInfo EventTypeFieldInfo where
type AttrBaseTypeConstraint EventTypeFieldInfo = (~) Event
type AttrAllowedOps EventTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTypeFieldInfo = (~) Gdk.Enums.EventType
type AttrTransferTypeConstraint EventTypeFieldInfo = (~)Gdk.Enums.EventType
type AttrTransferType EventTypeFieldInfo = Gdk.Enums.EventType
type AttrGetType EventTypeFieldInfo = Gdk.Enums.EventType
type AttrLabel EventTypeFieldInfo = "type"
type AttrOrigin EventTypeFieldInfo = Event
attrGet = getEventType
attrSet = setEventType
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.type"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:type"
})
event_type :: AttrLabelProxy "type"
event_type = AttrLabelProxy
#endif
getEventAny :: MonadIO m => Event -> m Gdk.EventAny.EventAny
getEventAny :: forall (m :: * -> *). MonadIO m => Event -> m EventAny
getEventAny Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventAny
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventAny.EventAny)
EventAny
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventAny -> EventAny
Gdk.EventAny.EventAny) Ptr EventAny
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventAny
val'
#if defined(ENABLE_OVERLOADING)
data EventAnyFieldInfo
instance AttrInfo EventAnyFieldInfo where
type AttrBaseTypeConstraint EventAnyFieldInfo = (~) Event
type AttrAllowedOps EventAnyFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventAnyFieldInfo = (~) (Ptr Gdk.EventAny.EventAny)
type AttrTransferTypeConstraint EventAnyFieldInfo = (~)(Ptr Gdk.EventAny.EventAny)
type AttrTransferType EventAnyFieldInfo = (Ptr Gdk.EventAny.EventAny)
type AttrGetType EventAnyFieldInfo = Gdk.EventAny.EventAny
type AttrLabel EventAnyFieldInfo = "any"
type AttrOrigin EventAnyFieldInfo = Event
attrGet = getEventAny
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.any"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:any"
})
event_any :: AttrLabelProxy "any"
event_any = AttrLabelProxy
#endif
getEventExpose :: MonadIO m => Event -> m Gdk.EventExpose.EventExpose
getEventExpose :: forall (m :: * -> *). MonadIO m => Event -> m EventExpose
getEventExpose Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventExpose
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventExpose.EventExpose)
EventExpose
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventExpose -> EventExpose
Gdk.EventExpose.EventExpose) Ptr EventExpose
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventExpose
val'
#if defined(ENABLE_OVERLOADING)
data EventExposeFieldInfo
instance AttrInfo EventExposeFieldInfo where
type AttrBaseTypeConstraint EventExposeFieldInfo = (~) Event
type AttrAllowedOps EventExposeFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventExposeFieldInfo = (~) (Ptr Gdk.EventExpose.EventExpose)
type AttrTransferTypeConstraint EventExposeFieldInfo = (~)(Ptr Gdk.EventExpose.EventExpose)
type AttrTransferType EventExposeFieldInfo = (Ptr Gdk.EventExpose.EventExpose)
type AttrGetType EventExposeFieldInfo = Gdk.EventExpose.EventExpose
type AttrLabel EventExposeFieldInfo = "expose"
type AttrOrigin EventExposeFieldInfo = Event
attrGet = getEventExpose
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.expose"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:expose"
})
event_expose :: AttrLabelProxy "expose"
event_expose = AttrLabelProxy
#endif
getEventVisibility :: MonadIO m => Event -> m Gdk.EventVisibility.EventVisibility
getEventVisibility :: forall (m :: * -> *). MonadIO m => Event -> m EventVisibility
getEventVisibility Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventVisibility
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventVisibility.EventVisibility)
EventVisibility
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventVisibility -> EventVisibility
Gdk.EventVisibility.EventVisibility) Ptr EventVisibility
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventVisibility
val'
#if defined(ENABLE_OVERLOADING)
data EventVisibilityFieldInfo
instance AttrInfo EventVisibilityFieldInfo where
type AttrBaseTypeConstraint EventVisibilityFieldInfo = (~) Event
type AttrAllowedOps EventVisibilityFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventVisibilityFieldInfo = (~) (Ptr Gdk.EventVisibility.EventVisibility)
type AttrTransferTypeConstraint EventVisibilityFieldInfo = (~)(Ptr Gdk.EventVisibility.EventVisibility)
type AttrTransferType EventVisibilityFieldInfo = (Ptr Gdk.EventVisibility.EventVisibility)
type AttrGetType EventVisibilityFieldInfo = Gdk.EventVisibility.EventVisibility
type AttrLabel EventVisibilityFieldInfo = "visibility"
type AttrOrigin EventVisibilityFieldInfo = Event
attrGet = getEventVisibility
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.visibility"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:visibility"
})
event_visibility :: AttrLabelProxy "visibility"
event_visibility = AttrLabelProxy
#endif
getEventMotion :: MonadIO m => Event -> m Gdk.EventMotion.EventMotion
getEventMotion :: forall (m :: * -> *). MonadIO m => Event -> m EventMotion
getEventMotion Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventMotion
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventMotion.EventMotion)
EventMotion
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventMotion -> EventMotion
Gdk.EventMotion.EventMotion) Ptr EventMotion
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventMotion
val'
#if defined(ENABLE_OVERLOADING)
data EventMotionFieldInfo
instance AttrInfo EventMotionFieldInfo where
type AttrBaseTypeConstraint EventMotionFieldInfo = (~) Event
type AttrAllowedOps EventMotionFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventMotionFieldInfo = (~) (Ptr Gdk.EventMotion.EventMotion)
type AttrTransferTypeConstraint EventMotionFieldInfo = (~)(Ptr Gdk.EventMotion.EventMotion)
type AttrTransferType EventMotionFieldInfo = (Ptr Gdk.EventMotion.EventMotion)
type AttrGetType EventMotionFieldInfo = Gdk.EventMotion.EventMotion
type AttrLabel EventMotionFieldInfo = "motion"
type AttrOrigin EventMotionFieldInfo = Event
attrGet = getEventMotion
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.motion"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:motion"
})
event_motion :: AttrLabelProxy "motion"
event_motion = AttrLabelProxy
#endif
getEventButton :: MonadIO m => Event -> m Gdk.EventButton.EventButton
getEventButton :: forall (m :: * -> *). MonadIO m => Event -> m EventButton
getEventButton Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventButton
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventButton.EventButton)
EventButton
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventButton -> EventButton
Gdk.EventButton.EventButton) Ptr EventButton
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventButton
val'
#if defined(ENABLE_OVERLOADING)
data EventButtonFieldInfo
instance AttrInfo EventButtonFieldInfo where
type AttrBaseTypeConstraint EventButtonFieldInfo = (~) Event
type AttrAllowedOps EventButtonFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventButtonFieldInfo = (~) (Ptr Gdk.EventButton.EventButton)
type AttrTransferTypeConstraint EventButtonFieldInfo = (~)(Ptr Gdk.EventButton.EventButton)
type AttrTransferType EventButtonFieldInfo = (Ptr Gdk.EventButton.EventButton)
type AttrGetType EventButtonFieldInfo = Gdk.EventButton.EventButton
type AttrLabel EventButtonFieldInfo = "button"
type AttrOrigin EventButtonFieldInfo = Event
attrGet = getEventButton
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.button"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:button"
})
event_button :: AttrLabelProxy "button"
event_button = AttrLabelProxy
#endif
getEventTouch :: MonadIO m => Event -> m Gdk.EventTouch.EventTouch
getEventTouch :: forall (m :: * -> *). MonadIO m => Event -> m EventTouch
getEventTouch Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventTouch
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventTouch.EventTouch)
EventTouch
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventTouch -> EventTouch
Gdk.EventTouch.EventTouch) Ptr EventTouch
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventTouch
val'
#if defined(ENABLE_OVERLOADING)
data EventTouchFieldInfo
instance AttrInfo EventTouchFieldInfo where
type AttrBaseTypeConstraint EventTouchFieldInfo = (~) Event
type AttrAllowedOps EventTouchFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventTouchFieldInfo = (~) (Ptr Gdk.EventTouch.EventTouch)
type AttrTransferTypeConstraint EventTouchFieldInfo = (~)(Ptr Gdk.EventTouch.EventTouch)
type AttrTransferType EventTouchFieldInfo = (Ptr Gdk.EventTouch.EventTouch)
type AttrGetType EventTouchFieldInfo = Gdk.EventTouch.EventTouch
type AttrLabel EventTouchFieldInfo = "touch"
type AttrOrigin EventTouchFieldInfo = Event
attrGet = getEventTouch
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.touch"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:touch"
})
event_touch :: AttrLabelProxy "touch"
event_touch = AttrLabelProxy
#endif
getEventScroll :: MonadIO m => Event -> m Gdk.EventScroll.EventScroll
getEventScroll :: forall (m :: * -> *). MonadIO m => Event -> m EventScroll
getEventScroll Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventScroll
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventScroll.EventScroll)
EventScroll
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventScroll -> EventScroll
Gdk.EventScroll.EventScroll) Ptr EventScroll
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventScroll
val'
#if defined(ENABLE_OVERLOADING)
data EventScrollFieldInfo
instance AttrInfo EventScrollFieldInfo where
type AttrBaseTypeConstraint EventScrollFieldInfo = (~) Event
type AttrAllowedOps EventScrollFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventScrollFieldInfo = (~) (Ptr Gdk.EventScroll.EventScroll)
type AttrTransferTypeConstraint EventScrollFieldInfo = (~)(Ptr Gdk.EventScroll.EventScroll)
type AttrTransferType EventScrollFieldInfo = (Ptr Gdk.EventScroll.EventScroll)
type AttrGetType EventScrollFieldInfo = Gdk.EventScroll.EventScroll
type AttrLabel EventScrollFieldInfo = "scroll"
type AttrOrigin EventScrollFieldInfo = Event
attrGet = getEventScroll
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.scroll"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:scroll"
})
event_scroll :: AttrLabelProxy "scroll"
event_scroll = AttrLabelProxy
#endif
getEventKey :: MonadIO m => Event -> m Gdk.EventKey.EventKey
getEventKey :: forall (m :: * -> *). MonadIO m => Event -> m EventKey
getEventKey Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventKey
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventKey.EventKey)
EventKey
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventKey -> EventKey
Gdk.EventKey.EventKey) Ptr EventKey
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventKey
val'
#if defined(ENABLE_OVERLOADING)
data EventKeyFieldInfo
instance AttrInfo EventKeyFieldInfo where
type AttrBaseTypeConstraint EventKeyFieldInfo = (~) Event
type AttrAllowedOps EventKeyFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventKeyFieldInfo = (~) (Ptr Gdk.EventKey.EventKey)
type AttrTransferTypeConstraint EventKeyFieldInfo = (~)(Ptr Gdk.EventKey.EventKey)
type AttrTransferType EventKeyFieldInfo = (Ptr Gdk.EventKey.EventKey)
type AttrGetType EventKeyFieldInfo = Gdk.EventKey.EventKey
type AttrLabel EventKeyFieldInfo = "key"
type AttrOrigin EventKeyFieldInfo = Event
attrGet = getEventKey
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.key"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:key"
})
event_key :: AttrLabelProxy "key"
event_key = AttrLabelProxy
#endif
getEventCrossing :: MonadIO m => Event -> m Gdk.EventCrossing.EventCrossing
getEventCrossing :: forall (m :: * -> *). MonadIO m => Event -> m EventCrossing
getEventCrossing Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventCrossing
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventCrossing.EventCrossing)
EventCrossing
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventCrossing -> EventCrossing
Gdk.EventCrossing.EventCrossing) Ptr EventCrossing
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventCrossing
val'
#if defined(ENABLE_OVERLOADING)
data EventCrossingFieldInfo
instance AttrInfo EventCrossingFieldInfo where
type AttrBaseTypeConstraint EventCrossingFieldInfo = (~) Event
type AttrAllowedOps EventCrossingFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventCrossingFieldInfo = (~) (Ptr Gdk.EventCrossing.EventCrossing)
type AttrTransferTypeConstraint EventCrossingFieldInfo = (~)(Ptr Gdk.EventCrossing.EventCrossing)
type AttrTransferType EventCrossingFieldInfo = (Ptr Gdk.EventCrossing.EventCrossing)
type AttrGetType EventCrossingFieldInfo = Gdk.EventCrossing.EventCrossing
type AttrLabel EventCrossingFieldInfo = "crossing"
type AttrOrigin EventCrossingFieldInfo = Event
attrGet = getEventCrossing
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.crossing"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:crossing"
})
event_crossing :: AttrLabelProxy "crossing"
event_crossing = AttrLabelProxy
#endif
getEventFocusChange :: MonadIO m => Event -> m Gdk.EventFocus.EventFocus
getEventFocusChange :: forall (m :: * -> *). MonadIO m => Event -> m EventFocus
getEventFocusChange Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventFocus
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventFocus.EventFocus)
EventFocus
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventFocus -> EventFocus
Gdk.EventFocus.EventFocus) Ptr EventFocus
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventFocus
val'
#if defined(ENABLE_OVERLOADING)
data EventFocusChangeFieldInfo
instance AttrInfo EventFocusChangeFieldInfo where
type AttrBaseTypeConstraint EventFocusChangeFieldInfo = (~) Event
type AttrAllowedOps EventFocusChangeFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventFocusChangeFieldInfo = (~) (Ptr Gdk.EventFocus.EventFocus)
type AttrTransferTypeConstraint EventFocusChangeFieldInfo = (~)(Ptr Gdk.EventFocus.EventFocus)
type AttrTransferType EventFocusChangeFieldInfo = (Ptr Gdk.EventFocus.EventFocus)
type AttrGetType EventFocusChangeFieldInfo = Gdk.EventFocus.EventFocus
type AttrLabel EventFocusChangeFieldInfo = "focus_change"
type AttrOrigin EventFocusChangeFieldInfo = Event
attrGet = getEventFocusChange
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.focusChange"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:focusChange"
})
event_focusChange :: AttrLabelProxy "focusChange"
event_focusChange = AttrLabelProxy
#endif
getEventConfigure :: MonadIO m => Event -> m Gdk.EventConfigure.EventConfigure
getEventConfigure :: forall (m :: * -> *). MonadIO m => Event -> m EventConfigure
getEventConfigure Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventConfigure
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventConfigure.EventConfigure)
EventConfigure
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventConfigure -> EventConfigure
Gdk.EventConfigure.EventConfigure) Ptr EventConfigure
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventConfigure
val'
#if defined(ENABLE_OVERLOADING)
data EventConfigureFieldInfo
instance AttrInfo EventConfigureFieldInfo where
type AttrBaseTypeConstraint EventConfigureFieldInfo = (~) Event
type AttrAllowedOps EventConfigureFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventConfigureFieldInfo = (~) (Ptr Gdk.EventConfigure.EventConfigure)
type AttrTransferTypeConstraint EventConfigureFieldInfo = (~)(Ptr Gdk.EventConfigure.EventConfigure)
type AttrTransferType EventConfigureFieldInfo = (Ptr Gdk.EventConfigure.EventConfigure)
type AttrGetType EventConfigureFieldInfo = Gdk.EventConfigure.EventConfigure
type AttrLabel EventConfigureFieldInfo = "configure"
type AttrOrigin EventConfigureFieldInfo = Event
attrGet = getEventConfigure
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.configure"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:configure"
})
event_configure :: AttrLabelProxy "configure"
event_configure = AttrLabelProxy
#endif
getEventProperty :: MonadIO m => Event -> m Gdk.EventProperty.EventProperty
getEventProperty :: forall (m :: * -> *). MonadIO m => Event -> m EventProperty
getEventProperty Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventProperty
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventProperty.EventProperty)
EventProperty
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventProperty -> EventProperty
Gdk.EventProperty.EventProperty) Ptr EventProperty
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventProperty
val'
#if defined(ENABLE_OVERLOADING)
data EventPropertyFieldInfo
instance AttrInfo EventPropertyFieldInfo where
type AttrBaseTypeConstraint EventPropertyFieldInfo = (~) Event
type AttrAllowedOps EventPropertyFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventPropertyFieldInfo = (~) (Ptr Gdk.EventProperty.EventProperty)
type AttrTransferTypeConstraint EventPropertyFieldInfo = (~)(Ptr Gdk.EventProperty.EventProperty)
type AttrTransferType EventPropertyFieldInfo = (Ptr Gdk.EventProperty.EventProperty)
type AttrGetType EventPropertyFieldInfo = Gdk.EventProperty.EventProperty
type AttrLabel EventPropertyFieldInfo = "property"
type AttrOrigin EventPropertyFieldInfo = Event
attrGet = getEventProperty
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.property"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:property"
})
event_property :: AttrLabelProxy "property"
event_property = AttrLabelProxy
#endif
getEventSelection :: MonadIO m => Event -> m Gdk.EventSelection.EventSelection
getEventSelection :: forall (m :: * -> *). MonadIO m => Event -> m EventSelection
getEventSelection Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventSelection
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventSelection.EventSelection)
EventSelection
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventSelection -> EventSelection
Gdk.EventSelection.EventSelection) Ptr EventSelection
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventSelection
val'
#if defined(ENABLE_OVERLOADING)
data EventSelectionFieldInfo
instance AttrInfo EventSelectionFieldInfo where
type AttrBaseTypeConstraint EventSelectionFieldInfo = (~) Event
type AttrAllowedOps EventSelectionFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventSelectionFieldInfo = (~) (Ptr Gdk.EventSelection.EventSelection)
type AttrTransferTypeConstraint EventSelectionFieldInfo = (~)(Ptr Gdk.EventSelection.EventSelection)
type AttrTransferType EventSelectionFieldInfo = (Ptr Gdk.EventSelection.EventSelection)
type AttrGetType EventSelectionFieldInfo = Gdk.EventSelection.EventSelection
type AttrLabel EventSelectionFieldInfo = "selection"
type AttrOrigin EventSelectionFieldInfo = Event
attrGet = getEventSelection
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.selection"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:selection"
})
event_selection :: AttrLabelProxy "selection"
event_selection = AttrLabelProxy
#endif
getEventOwnerChange :: MonadIO m => Event -> m Gdk.EventOwnerChange.EventOwnerChange
getEventOwnerChange :: forall (m :: * -> *). MonadIO m => Event -> m EventOwnerChange
getEventOwnerChange Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventOwnerChange
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventOwnerChange.EventOwnerChange)
EventOwnerChange
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventOwnerChange -> EventOwnerChange
Gdk.EventOwnerChange.EventOwnerChange) Ptr EventOwnerChange
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventOwnerChange
val'
#if defined(ENABLE_OVERLOADING)
data EventOwnerChangeFieldInfo
instance AttrInfo EventOwnerChangeFieldInfo where
type AttrBaseTypeConstraint EventOwnerChangeFieldInfo = (~) Event
type AttrAllowedOps EventOwnerChangeFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventOwnerChangeFieldInfo = (~) (Ptr Gdk.EventOwnerChange.EventOwnerChange)
type AttrTransferTypeConstraint EventOwnerChangeFieldInfo = (~)(Ptr Gdk.EventOwnerChange.EventOwnerChange)
type AttrTransferType EventOwnerChangeFieldInfo = (Ptr Gdk.EventOwnerChange.EventOwnerChange)
type AttrGetType EventOwnerChangeFieldInfo = Gdk.EventOwnerChange.EventOwnerChange
type AttrLabel EventOwnerChangeFieldInfo = "owner_change"
type AttrOrigin EventOwnerChangeFieldInfo = Event
attrGet = getEventOwnerChange
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.ownerChange"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:ownerChange"
})
event_ownerChange :: AttrLabelProxy "ownerChange"
event_ownerChange = AttrLabelProxy
#endif
getEventProximity :: MonadIO m => Event -> m Gdk.EventProximity.EventProximity
getEventProximity :: forall (m :: * -> *). MonadIO m => Event -> m EventProximity
getEventProximity Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventProximity
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventProximity.EventProximity)
EventProximity
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventProximity -> EventProximity
Gdk.EventProximity.EventProximity) Ptr EventProximity
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventProximity
val'
#if defined(ENABLE_OVERLOADING)
data EventProximityFieldInfo
instance AttrInfo EventProximityFieldInfo where
type AttrBaseTypeConstraint EventProximityFieldInfo = (~) Event
type AttrAllowedOps EventProximityFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventProximityFieldInfo = (~) (Ptr Gdk.EventProximity.EventProximity)
type AttrTransferTypeConstraint EventProximityFieldInfo = (~)(Ptr Gdk.EventProximity.EventProximity)
type AttrTransferType EventProximityFieldInfo = (Ptr Gdk.EventProximity.EventProximity)
type AttrGetType EventProximityFieldInfo = Gdk.EventProximity.EventProximity
type AttrLabel EventProximityFieldInfo = "proximity"
type AttrOrigin EventProximityFieldInfo = Event
attrGet = getEventProximity
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.proximity"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:proximity"
})
event_proximity :: AttrLabelProxy "proximity"
event_proximity = AttrLabelProxy
#endif
getEventDnd :: MonadIO m => Event -> m Gdk.EventDND.EventDND
getEventDnd :: forall (m :: * -> *). MonadIO m => Event -> m EventDND
getEventDnd Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventDND
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventDND.EventDND)
EventDND
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventDND -> EventDND
Gdk.EventDND.EventDND) Ptr EventDND
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventDND
val'
#if defined(ENABLE_OVERLOADING)
data EventDndFieldInfo
instance AttrInfo EventDndFieldInfo where
type AttrBaseTypeConstraint EventDndFieldInfo = (~) Event
type AttrAllowedOps EventDndFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventDndFieldInfo = (~) (Ptr Gdk.EventDND.EventDND)
type AttrTransferTypeConstraint EventDndFieldInfo = (~)(Ptr Gdk.EventDND.EventDND)
type AttrTransferType EventDndFieldInfo = (Ptr Gdk.EventDND.EventDND)
type AttrGetType EventDndFieldInfo = Gdk.EventDND.EventDND
type AttrLabel EventDndFieldInfo = "dnd"
type AttrOrigin EventDndFieldInfo = Event
attrGet = getEventDnd
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.dnd"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:dnd"
})
event_dnd :: AttrLabelProxy "dnd"
event_dnd = AttrLabelProxy
#endif
getEventWindowState :: MonadIO m => Event -> m Gdk.EventWindowState.EventWindowState
getEventWindowState :: forall (m :: * -> *). MonadIO m => Event -> m EventWindowState
getEventWindowState Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventWindowState
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventWindowState.EventWindowState)
EventWindowState
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventWindowState -> EventWindowState
Gdk.EventWindowState.EventWindowState) Ptr EventWindowState
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventWindowState
val'
#if defined(ENABLE_OVERLOADING)
data EventWindowStateFieldInfo
instance AttrInfo EventWindowStateFieldInfo where
type AttrBaseTypeConstraint EventWindowStateFieldInfo = (~) Event
type AttrAllowedOps EventWindowStateFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventWindowStateFieldInfo = (~) (Ptr Gdk.EventWindowState.EventWindowState)
type AttrTransferTypeConstraint EventWindowStateFieldInfo = (~)(Ptr Gdk.EventWindowState.EventWindowState)
type AttrTransferType EventWindowStateFieldInfo = (Ptr Gdk.EventWindowState.EventWindowState)
type AttrGetType EventWindowStateFieldInfo = Gdk.EventWindowState.EventWindowState
type AttrLabel EventWindowStateFieldInfo = "window_state"
type AttrOrigin EventWindowStateFieldInfo = Event
attrGet = getEventWindowState
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.windowState"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:windowState"
})
event_windowState :: AttrLabelProxy "windowState"
event_windowState = AttrLabelProxy
#endif
getEventSetting :: MonadIO m => Event -> m Gdk.EventSetting.EventSetting
getEventSetting :: forall (m :: * -> *). MonadIO m => Event -> m EventSetting
getEventSetting Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventSetting
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventSetting.EventSetting)
EventSetting
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventSetting -> EventSetting
Gdk.EventSetting.EventSetting) Ptr EventSetting
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventSetting
val'
#if defined(ENABLE_OVERLOADING)
data EventSettingFieldInfo
instance AttrInfo EventSettingFieldInfo where
type AttrBaseTypeConstraint EventSettingFieldInfo = (~) Event
type AttrAllowedOps EventSettingFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventSettingFieldInfo = (~) (Ptr Gdk.EventSetting.EventSetting)
type AttrTransferTypeConstraint EventSettingFieldInfo = (~)(Ptr Gdk.EventSetting.EventSetting)
type AttrTransferType EventSettingFieldInfo = (Ptr Gdk.EventSetting.EventSetting)
type AttrGetType EventSettingFieldInfo = Gdk.EventSetting.EventSetting
type AttrLabel EventSettingFieldInfo = "setting"
type AttrOrigin EventSettingFieldInfo = Event
attrGet = getEventSetting
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.setting"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:setting"
})
event_setting :: AttrLabelProxy "setting"
event_setting = AttrLabelProxy
#endif
getEventGrabBroken :: MonadIO m => Event -> m Gdk.EventGrabBroken.EventGrabBroken
getEventGrabBroken :: forall (m :: * -> *). MonadIO m => Event -> m EventGrabBroken
getEventGrabBroken Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventGrabBroken
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventGrabBroken.EventGrabBroken)
EventGrabBroken
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventGrabBroken -> EventGrabBroken
Gdk.EventGrabBroken.EventGrabBroken) Ptr EventGrabBroken
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventGrabBroken
val'
#if defined(ENABLE_OVERLOADING)
data EventGrabBrokenFieldInfo
instance AttrInfo EventGrabBrokenFieldInfo where
type AttrBaseTypeConstraint EventGrabBrokenFieldInfo = (~) Event
type AttrAllowedOps EventGrabBrokenFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventGrabBrokenFieldInfo = (~) (Ptr Gdk.EventGrabBroken.EventGrabBroken)
type AttrTransferTypeConstraint EventGrabBrokenFieldInfo = (~)(Ptr Gdk.EventGrabBroken.EventGrabBroken)
type AttrTransferType EventGrabBrokenFieldInfo = (Ptr Gdk.EventGrabBroken.EventGrabBroken)
type AttrGetType EventGrabBrokenFieldInfo = Gdk.EventGrabBroken.EventGrabBroken
type AttrLabel EventGrabBrokenFieldInfo = "grab_broken"
type AttrOrigin EventGrabBrokenFieldInfo = Event
attrGet = getEventGrabBroken
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.grabBroken"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:grabBroken"
})
event_grabBroken :: AttrLabelProxy "grabBroken"
event_grabBroken = AttrLabelProxy
#endif
getEventTouchpadSwipe :: MonadIO m => Event -> m Gdk.EventTouchpadSwipe.EventTouchpadSwipe
getEventTouchpadSwipe :: forall (m :: * -> *). MonadIO m => Event -> m EventTouchpadSwipe
getEventTouchpadSwipe Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventTouchpadSwipe
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventTouchpadSwipe.EventTouchpadSwipe)
EventTouchpadSwipe
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventTouchpadSwipe -> EventTouchpadSwipe
Gdk.EventTouchpadSwipe.EventTouchpadSwipe) Ptr EventTouchpadSwipe
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventTouchpadSwipe
val'
#if defined(ENABLE_OVERLOADING)
data EventTouchpadSwipeFieldInfo
instance AttrInfo EventTouchpadSwipeFieldInfo where
type AttrBaseTypeConstraint EventTouchpadSwipeFieldInfo = (~) Event
type AttrAllowedOps EventTouchpadSwipeFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventTouchpadSwipeFieldInfo = (~) (Ptr Gdk.EventTouchpadSwipe.EventTouchpadSwipe)
type AttrTransferTypeConstraint EventTouchpadSwipeFieldInfo = (~)(Ptr Gdk.EventTouchpadSwipe.EventTouchpadSwipe)
type AttrTransferType EventTouchpadSwipeFieldInfo = (Ptr Gdk.EventTouchpadSwipe.EventTouchpadSwipe)
type AttrGetType EventTouchpadSwipeFieldInfo = Gdk.EventTouchpadSwipe.EventTouchpadSwipe
type AttrLabel EventTouchpadSwipeFieldInfo = "touchpad_swipe"
type AttrOrigin EventTouchpadSwipeFieldInfo = Event
attrGet = getEventTouchpadSwipe
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.touchpadSwipe"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:touchpadSwipe"
})
event_touchpadSwipe :: AttrLabelProxy "touchpadSwipe"
event_touchpadSwipe = AttrLabelProxy
#endif
getEventTouchpadPinch :: MonadIO m => Event -> m Gdk.EventTouchpadPinch.EventTouchpadPinch
getEventTouchpadPinch :: forall (m :: * -> *). MonadIO m => Event -> m EventTouchpadPinch
getEventTouchpadPinch Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventTouchpadPinch
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventTouchpadPinch.EventTouchpadPinch)
EventTouchpadPinch
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventTouchpadPinch -> EventTouchpadPinch
Gdk.EventTouchpadPinch.EventTouchpadPinch) Ptr EventTouchpadPinch
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventTouchpadPinch
val'
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchFieldInfo
instance AttrInfo EventTouchpadPinchFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchFieldInfo = (~) Event
type AttrAllowedOps EventTouchpadPinchFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchFieldInfo = (~) (Ptr Gdk.EventTouchpadPinch.EventTouchpadPinch)
type AttrTransferTypeConstraint EventTouchpadPinchFieldInfo = (~)(Ptr Gdk.EventTouchpadPinch.EventTouchpadPinch)
type AttrTransferType EventTouchpadPinchFieldInfo = (Ptr Gdk.EventTouchpadPinch.EventTouchpadPinch)
type AttrGetType EventTouchpadPinchFieldInfo = Gdk.EventTouchpadPinch.EventTouchpadPinch
type AttrLabel EventTouchpadPinchFieldInfo = "touchpad_pinch"
type AttrOrigin EventTouchpadPinchFieldInfo = Event
attrGet = getEventTouchpadPinch
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.touchpadPinch"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:touchpadPinch"
})
event_touchpadPinch :: AttrLabelProxy "touchpadPinch"
event_touchpadPinch = AttrLabelProxy
#endif
getEventPadButton :: MonadIO m => Event -> m Gdk.EventPadButton.EventPadButton
getEventPadButton :: forall (m :: * -> *). MonadIO m => Event -> m EventPadButton
getEventPadButton Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventPadButton
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventPadButton.EventPadButton)
EventPadButton
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventPadButton -> EventPadButton
Gdk.EventPadButton.EventPadButton) Ptr EventPadButton
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventPadButton
val'
#if defined(ENABLE_OVERLOADING)
data EventPadButtonFieldInfo
instance AttrInfo EventPadButtonFieldInfo where
type AttrBaseTypeConstraint EventPadButtonFieldInfo = (~) Event
type AttrAllowedOps EventPadButtonFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventPadButtonFieldInfo = (~) (Ptr Gdk.EventPadButton.EventPadButton)
type AttrTransferTypeConstraint EventPadButtonFieldInfo = (~)(Ptr Gdk.EventPadButton.EventPadButton)
type AttrTransferType EventPadButtonFieldInfo = (Ptr Gdk.EventPadButton.EventPadButton)
type AttrGetType EventPadButtonFieldInfo = Gdk.EventPadButton.EventPadButton
type AttrLabel EventPadButtonFieldInfo = "pad_button"
type AttrOrigin EventPadButtonFieldInfo = Event
attrGet = getEventPadButton
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.padButton"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:padButton"
})
event_padButton :: AttrLabelProxy "padButton"
event_padButton = AttrLabelProxy
#endif
getEventPadAxis :: MonadIO m => Event -> m Gdk.EventPadAxis.EventPadAxis
getEventPadAxis :: forall (m :: * -> *). MonadIO m => Event -> m EventPadAxis
getEventPadAxis Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventPadAxis
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventPadAxis.EventPadAxis)
EventPadAxis
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventPadAxis -> EventPadAxis
Gdk.EventPadAxis.EventPadAxis) Ptr EventPadAxis
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventPadAxis
val'
#if defined(ENABLE_OVERLOADING)
data EventPadAxisFieldInfo
instance AttrInfo EventPadAxisFieldInfo where
type AttrBaseTypeConstraint EventPadAxisFieldInfo = (~) Event
type AttrAllowedOps EventPadAxisFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventPadAxisFieldInfo = (~) (Ptr Gdk.EventPadAxis.EventPadAxis)
type AttrTransferTypeConstraint EventPadAxisFieldInfo = (~)(Ptr Gdk.EventPadAxis.EventPadAxis)
type AttrTransferType EventPadAxisFieldInfo = (Ptr Gdk.EventPadAxis.EventPadAxis)
type AttrGetType EventPadAxisFieldInfo = Gdk.EventPadAxis.EventPadAxis
type AttrLabel EventPadAxisFieldInfo = "pad_axis"
type AttrOrigin EventPadAxisFieldInfo = Event
attrGet = getEventPadAxis
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.padAxis"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:padAxis"
})
event_padAxis :: AttrLabelProxy "padAxis"
event_padAxis = AttrLabelProxy
#endif
getEventPadGroupMode :: MonadIO m => Event -> m Gdk.EventPadGroupMode.EventPadGroupMode
getEventPadGroupMode :: forall (m :: * -> *). MonadIO m => Event -> m EventPadGroupMode
getEventPadGroupMode Event
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Event
s forall a b. (a -> b) -> a -> b
$ \Ptr Event
ptr -> do
let val :: Ptr EventPadGroupMode
val = Ptr Event
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: (Ptr Gdk.EventPadGroupMode.EventPadGroupMode)
EventPadGroupMode
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventPadGroupMode -> EventPadGroupMode
Gdk.EventPadGroupMode.EventPadGroupMode) Ptr EventPadGroupMode
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventPadGroupMode
val'
#if defined(ENABLE_OVERLOADING)
data EventPadGroupModeFieldInfo
instance AttrInfo EventPadGroupModeFieldInfo where
type AttrBaseTypeConstraint EventPadGroupModeFieldInfo = (~) Event
type AttrAllowedOps EventPadGroupModeFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventPadGroupModeFieldInfo = (~) (Ptr Gdk.EventPadGroupMode.EventPadGroupMode)
type AttrTransferTypeConstraint EventPadGroupModeFieldInfo = (~)(Ptr Gdk.EventPadGroupMode.EventPadGroupMode)
type AttrTransferType EventPadGroupModeFieldInfo = (Ptr Gdk.EventPadGroupMode.EventPadGroupMode)
type AttrGetType EventPadGroupModeFieldInfo = Gdk.EventPadGroupMode.EventPadGroupMode
type AttrLabel EventPadGroupModeFieldInfo = "pad_group_mode"
type AttrOrigin EventPadGroupModeFieldInfo = Event
attrGet = getEventPadGroupMode
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.padGroupMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#g:attr:padGroupMode"
})
event_padGroupMode :: AttrLabelProxy "padGroupMode"
event_padGroupMode = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Event
type instance O.AttributeList Event = EventAttributeList
type EventAttributeList = ('[ '("type", EventTypeFieldInfo), '("any", EventAnyFieldInfo), '("expose", EventExposeFieldInfo), '("visibility", EventVisibilityFieldInfo), '("motion", EventMotionFieldInfo), '("button", EventButtonFieldInfo), '("touch", EventTouchFieldInfo), '("scroll", EventScrollFieldInfo), '("key", EventKeyFieldInfo), '("crossing", EventCrossingFieldInfo), '("focusChange", EventFocusChangeFieldInfo), '("configure", EventConfigureFieldInfo), '("property", EventPropertyFieldInfo), '("selection", EventSelectionFieldInfo), '("ownerChange", EventOwnerChangeFieldInfo), '("proximity", EventProximityFieldInfo), '("dnd", EventDndFieldInfo), '("windowState", EventWindowStateFieldInfo), '("setting", EventSettingFieldInfo), '("grabBroken", EventGrabBrokenFieldInfo), '("touchpadSwipe", EventTouchpadSwipeFieldInfo), '("touchpadPinch", EventTouchpadPinchFieldInfo), '("padButton", EventPadButtonFieldInfo), '("padAxis", EventPadAxisFieldInfo), '("padGroupMode", EventPadGroupModeFieldInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gdk_event_new" gdk_event_new ::
CInt ->
IO (Ptr Event)
eventNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gdk.Enums.EventType
-> m Event
eventNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
EventType -> m Event
eventNew EventType
type_ = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let type_' :: CInt
type_' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) EventType
type_
Ptr Event
result <- CInt -> IO (Ptr Event)
gdk_event_new CInt
type_'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"eventNew" Ptr Event
result
Event
result' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Event -> Event
Event) Ptr Event
result
forall (m :: * -> *) a. Monad m => a -> m a
return Event
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gdk_event_copy" gdk_event_copy ::
Ptr Event ->
IO (Ptr Event)
eventCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m Event
eventCopy :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Event -> m Event
eventCopy Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Event
result <- Ptr Event -> IO (Ptr Event)
gdk_event_copy Ptr Event
event'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"eventCopy" Ptr Event
result
Event
result' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Event -> Event
Event) Ptr Event
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return Event
result'
#if defined(ENABLE_OVERLOADING)
data EventCopyMethodInfo
instance (signature ~ (m Event), MonadIO m) => O.OverloadedMethod EventCopyMethodInfo Event signature where
overloadedMethod = eventCopy
instance O.OverloadedMethodInfo EventCopyMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventCopy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventCopy"
})
#endif
foreign import ccall "gdk_event_free" gdk_event_free ::
Ptr Event ->
IO ()
eventFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m ()
eventFree :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Event -> m ()
eventFree Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Event -> IO ()
gdk_event_free Ptr Event
event'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EventFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod EventFreeMethodInfo Event signature where
overloadedMethod = eventFree
instance O.OverloadedMethodInfo EventFreeMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventFree",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventFree"
})
#endif
foreign import ccall "gdk_event_get_axis" gdk_event_get_axis ::
Ptr Event ->
CUInt ->
Ptr CDouble ->
IO CInt
eventGetAxis ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> Gdk.Enums.AxisUse
-> m ((Bool, Double))
eventGetAxis :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> AxisUse -> m (Bool, Double)
eventGetAxis Event
event AxisUse
axisUse = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
let axisUse' :: CUInt
axisUse' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) AxisUse
axisUse
Ptr CDouble
value <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
CInt
result <- Ptr Event -> CUInt -> Ptr CDouble -> IO CInt
gdk_event_get_axis Ptr Event
event' CUInt
axisUse' Ptr CDouble
value
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CDouble
value' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
value
let value'' :: Double
value'' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
value'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
value
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Double
value'')
#if defined(ENABLE_OVERLOADING)
data EventGetAxisMethodInfo
instance (signature ~ (Gdk.Enums.AxisUse -> m ((Bool, Double))), MonadIO m) => O.OverloadedMethod EventGetAxisMethodInfo Event signature where
overloadedMethod = eventGetAxis
instance O.OverloadedMethodInfo EventGetAxisMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetAxis",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetAxis"
})
#endif
foreign import ccall "gdk_event_get_button" gdk_event_get_button ::
Ptr Event ->
Ptr Word32 ->
IO CInt
eventGetButton ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m ((Bool, Word32))
eventGetButton :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m (Bool, Word32)
eventGetButton Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Word32
button <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word32)
CInt
result <- Ptr Event -> Ptr Word32 -> IO CInt
gdk_event_get_button Ptr Event
event' Ptr Word32
button
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Word32
button' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
button
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. Ptr a -> IO ()
freeMem Ptr Word32
button
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Word32
button')
#if defined(ENABLE_OVERLOADING)
data EventGetButtonMethodInfo
instance (signature ~ (m ((Bool, Word32))), MonadIO m) => O.OverloadedMethod EventGetButtonMethodInfo Event signature where
overloadedMethod = eventGetButton
instance O.OverloadedMethodInfo EventGetButtonMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetButton",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetButton"
})
#endif
foreign import ccall "gdk_event_get_click_count" gdk_event_get_click_count ::
Ptr Event ->
Ptr Word32 ->
IO CInt
eventGetClickCount ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m ((Bool, Word32))
eventGetClickCount :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m (Bool, Word32)
eventGetClickCount Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Word32
clickCount <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word32)
CInt
result <- Ptr Event -> Ptr Word32 -> IO CInt
gdk_event_get_click_count Ptr Event
event' Ptr Word32
clickCount
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Word32
clickCount' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
clickCount
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. Ptr a -> IO ()
freeMem Ptr Word32
clickCount
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Word32
clickCount')
#if defined(ENABLE_OVERLOADING)
data EventGetClickCountMethodInfo
instance (signature ~ (m ((Bool, Word32))), MonadIO m) => O.OverloadedMethod EventGetClickCountMethodInfo Event signature where
overloadedMethod = eventGetClickCount
instance O.OverloadedMethodInfo EventGetClickCountMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetClickCount",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetClickCount"
})
#endif
foreign import ccall "gdk_event_get_coords" gdk_event_get_coords ::
Ptr Event ->
Ptr CDouble ->
Ptr CDouble ->
IO CInt
eventGetCoords ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m ((Bool, Double, Double))
eventGetCoords :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m (Bool, Double, Double)
eventGetCoords Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr CDouble
xWin <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr CDouble
yWin <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
CInt
result <- Ptr Event -> Ptr CDouble -> Ptr CDouble -> IO CInt
gdk_event_get_coords Ptr Event
event' Ptr CDouble
xWin Ptr CDouble
yWin
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CDouble
xWin' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
xWin
let xWin'' :: Double
xWin'' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
xWin'
CDouble
yWin' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
yWin
let yWin'' :: Double
yWin'' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
yWin'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
xWin
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
yWin
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Double
xWin'', Double
yWin'')
#if defined(ENABLE_OVERLOADING)
data EventGetCoordsMethodInfo
instance (signature ~ (m ((Bool, Double, Double))), MonadIO m) => O.OverloadedMethod EventGetCoordsMethodInfo Event signature where
overloadedMethod = eventGetCoords
instance O.OverloadedMethodInfo EventGetCoordsMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetCoords",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetCoords"
})
#endif
foreign import ccall "gdk_event_get_device" gdk_event_get_device ::
Ptr Event ->
IO (Ptr Gdk.Device.Device)
eventGetDevice ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m (Maybe Gdk.Device.Device)
eventGetDevice :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m (Maybe Device)
eventGetDevice Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Device
result <- Ptr Event -> IO (Ptr Device)
gdk_event_get_device Ptr Event
event'
Maybe Device
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Device
result forall a b. (a -> b) -> a -> b
$ \Ptr Device
result' -> do
Device
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Device -> Device
Gdk.Device.Device) Ptr Device
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Device
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Device
maybeResult
#if defined(ENABLE_OVERLOADING)
data EventGetDeviceMethodInfo
instance (signature ~ (m (Maybe Gdk.Device.Device)), MonadIO m) => O.OverloadedMethod EventGetDeviceMethodInfo Event signature where
overloadedMethod = eventGetDevice
instance O.OverloadedMethodInfo EventGetDeviceMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetDevice",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetDevice"
})
#endif
foreign import ccall "gdk_event_get_device_tool" gdk_event_get_device_tool ::
Ptr Event ->
IO (Ptr Gdk.DeviceTool.DeviceTool)
eventGetDeviceTool ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m Gdk.DeviceTool.DeviceTool
eventGetDeviceTool :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m DeviceTool
eventGetDeviceTool Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr DeviceTool
result <- Ptr Event -> IO (Ptr DeviceTool)
gdk_event_get_device_tool Ptr Event
event'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"eventGetDeviceTool" Ptr DeviceTool
result
DeviceTool
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DeviceTool -> DeviceTool
Gdk.DeviceTool.DeviceTool) Ptr DeviceTool
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return DeviceTool
result'
#if defined(ENABLE_OVERLOADING)
data EventGetDeviceToolMethodInfo
instance (signature ~ (m Gdk.DeviceTool.DeviceTool), MonadIO m) => O.OverloadedMethod EventGetDeviceToolMethodInfo Event signature where
overloadedMethod = eventGetDeviceTool
instance O.OverloadedMethodInfo EventGetDeviceToolMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetDeviceTool",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetDeviceTool"
})
#endif
foreign import ccall "gdk_event_get_event_sequence" gdk_event_get_event_sequence ::
Ptr Event ->
IO (Ptr Gdk.EventSequence.EventSequence)
eventGetEventSequence ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m Gdk.EventSequence.EventSequence
eventGetEventSequence :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m EventSequence
eventGetEventSequence Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr EventSequence
result <- Ptr Event -> IO (Ptr EventSequence)
gdk_event_get_event_sequence Ptr Event
event'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"eventGetEventSequence" Ptr EventSequence
result
EventSequence
result' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr EventSequence -> EventSequence
Gdk.EventSequence.EventSequence) Ptr EventSequence
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return EventSequence
result'
#if defined(ENABLE_OVERLOADING)
data EventGetEventSequenceMethodInfo
instance (signature ~ (m Gdk.EventSequence.EventSequence), MonadIO m) => O.OverloadedMethod EventGetEventSequenceMethodInfo Event signature where
overloadedMethod = eventGetEventSequence
instance O.OverloadedMethodInfo EventGetEventSequenceMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetEventSequence",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetEventSequence"
})
#endif
foreign import ccall "gdk_event_get_event_type" gdk_event_get_event_type ::
Ptr Event ->
IO CInt
eventGetEventType ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m Gdk.Enums.EventType
eventGetEventType :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m EventType
eventGetEventType Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
CInt
result <- Ptr Event -> IO CInt
gdk_event_get_event_type Ptr Event
event'
let result' :: EventType
result' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return EventType
result'
#if defined(ENABLE_OVERLOADING)
data EventGetEventTypeMethodInfo
instance (signature ~ (m Gdk.Enums.EventType), MonadIO m) => O.OverloadedMethod EventGetEventTypeMethodInfo Event signature where
overloadedMethod = eventGetEventType
instance O.OverloadedMethodInfo EventGetEventTypeMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetEventType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetEventType"
})
#endif
foreign import ccall "gdk_event_get_keycode" gdk_event_get_keycode ::
Ptr Event ->
Ptr Word16 ->
IO CInt
eventGetKeycode ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m ((Bool, Word16))
eventGetKeycode :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m (Bool, Word16)
eventGetKeycode Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Word16
keycode <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word16)
CInt
result <- Ptr Event -> Ptr Word16 -> IO CInt
gdk_event_get_keycode Ptr Event
event' Ptr Word16
keycode
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Word16
keycode' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Word16
keycode
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. Ptr a -> IO ()
freeMem Ptr Word16
keycode
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Word16
keycode')
#if defined(ENABLE_OVERLOADING)
data EventGetKeycodeMethodInfo
instance (signature ~ (m ((Bool, Word16))), MonadIO m) => O.OverloadedMethod EventGetKeycodeMethodInfo Event signature where
overloadedMethod = eventGetKeycode
instance O.OverloadedMethodInfo EventGetKeycodeMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetKeycode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetKeycode"
})
#endif
foreign import ccall "gdk_event_get_keyval" gdk_event_get_keyval ::
Ptr Event ->
Ptr Word32 ->
IO CInt
eventGetKeyval ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m ((Bool, Word32))
eventGetKeyval :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m (Bool, Word32)
eventGetKeyval Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Word32
keyval <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word32)
CInt
result <- Ptr Event -> Ptr Word32 -> IO CInt
gdk_event_get_keyval Ptr Event
event' Ptr Word32
keyval
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Word32
keyval' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
keyval
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. Ptr a -> IO ()
freeMem Ptr Word32
keyval
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Word32
keyval')
#if defined(ENABLE_OVERLOADING)
data EventGetKeyvalMethodInfo
instance (signature ~ (m ((Bool, Word32))), MonadIO m) => O.OverloadedMethod EventGetKeyvalMethodInfo Event signature where
overloadedMethod = eventGetKeyval
instance O.OverloadedMethodInfo EventGetKeyvalMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetKeyval",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetKeyval"
})
#endif
foreign import ccall "gdk_event_get_pointer_emulated" gdk_event_get_pointer_emulated ::
Ptr Event ->
IO CInt
eventGetPointerEmulated ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m Bool
eventGetPointerEmulated :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Event -> m Bool
eventGetPointerEmulated Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
CInt
result <- Ptr Event -> IO CInt
gdk_event_get_pointer_emulated Ptr Event
event'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data EventGetPointerEmulatedMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod EventGetPointerEmulatedMethodInfo Event signature where
overloadedMethod = eventGetPointerEmulated
instance O.OverloadedMethodInfo EventGetPointerEmulatedMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetPointerEmulated",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetPointerEmulated"
})
#endif
foreign import ccall "gdk_event_get_root_coords" gdk_event_get_root_coords ::
Ptr Event ->
Ptr CDouble ->
Ptr CDouble ->
IO CInt
eventGetRootCoords ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m ((Bool, Double, Double))
eventGetRootCoords :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m (Bool, Double, Double)
eventGetRootCoords Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr CDouble
xRoot <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr CDouble
yRoot <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
CInt
result <- Ptr Event -> Ptr CDouble -> Ptr CDouble -> IO CInt
gdk_event_get_root_coords Ptr Event
event' Ptr CDouble
xRoot Ptr CDouble
yRoot
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CDouble
xRoot' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
xRoot
let xRoot'' :: Double
xRoot'' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
xRoot'
CDouble
yRoot' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
yRoot
let yRoot'' :: Double
yRoot'' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
yRoot'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
xRoot
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
yRoot
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Double
xRoot'', Double
yRoot'')
#if defined(ENABLE_OVERLOADING)
data EventGetRootCoordsMethodInfo
instance (signature ~ (m ((Bool, Double, Double))), MonadIO m) => O.OverloadedMethod EventGetRootCoordsMethodInfo Event signature where
overloadedMethod = eventGetRootCoords
instance O.OverloadedMethodInfo EventGetRootCoordsMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetRootCoords",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetRootCoords"
})
#endif
foreign import ccall "gdk_event_get_scancode" gdk_event_get_scancode ::
Ptr Event ->
IO Int32
eventGetScancode ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m Int32
eventGetScancode :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Event -> m Int32
eventGetScancode Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Int32
result <- Ptr Event -> IO Int32
gdk_event_get_scancode Ptr Event
event'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data EventGetScancodeMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod EventGetScancodeMethodInfo Event signature where
overloadedMethod = eventGetScancode
instance O.OverloadedMethodInfo EventGetScancodeMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetScancode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetScancode"
})
#endif
foreign import ccall "gdk_event_get_screen" gdk_event_get_screen ::
Ptr Event ->
IO (Ptr Gdk.Screen.Screen)
eventGetScreen ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m Gdk.Screen.Screen
eventGetScreen :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m Screen
eventGetScreen Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Screen
result <- Ptr Event -> IO (Ptr Screen)
gdk_event_get_screen Ptr Event
event'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"eventGetScreen" Ptr Screen
result
Screen
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Screen -> Screen
Gdk.Screen.Screen) Ptr Screen
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return Screen
result'
#if defined(ENABLE_OVERLOADING)
data EventGetScreenMethodInfo
instance (signature ~ (m Gdk.Screen.Screen), MonadIO m) => O.OverloadedMethod EventGetScreenMethodInfo Event signature where
overloadedMethod = eventGetScreen
instance O.OverloadedMethodInfo EventGetScreenMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetScreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetScreen"
})
#endif
foreign import ccall "gdk_event_get_scroll_deltas" gdk_event_get_scroll_deltas ::
Ptr Event ->
Ptr CDouble ->
Ptr CDouble ->
IO CInt
eventGetScrollDeltas ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m ((Bool, Double, Double))
eventGetScrollDeltas :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m (Bool, Double, Double)
eventGetScrollDeltas Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr CDouble
deltaX <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
Ptr CDouble
deltaY <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
CInt
result <- Ptr Event -> Ptr CDouble -> Ptr CDouble -> IO CInt
gdk_event_get_scroll_deltas Ptr Event
event' Ptr CDouble
deltaX Ptr CDouble
deltaY
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CDouble
deltaX' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
deltaX
let deltaX'' :: Double
deltaX'' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
deltaX'
CDouble
deltaY' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
deltaY
let deltaY'' :: Double
deltaY'' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
deltaY'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
deltaX
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
deltaY
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Double
deltaX'', Double
deltaY'')
#if defined(ENABLE_OVERLOADING)
data EventGetScrollDeltasMethodInfo
instance (signature ~ (m ((Bool, Double, Double))), MonadIO m) => O.OverloadedMethod EventGetScrollDeltasMethodInfo Event signature where
overloadedMethod = eventGetScrollDeltas
instance O.OverloadedMethodInfo EventGetScrollDeltasMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetScrollDeltas",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetScrollDeltas"
})
#endif
foreign import ccall "gdk_event_get_scroll_direction" gdk_event_get_scroll_direction ::
Ptr Event ->
Ptr CUInt ->
IO CInt
eventGetScrollDirection ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m ((Bool, Gdk.Enums.ScrollDirection))
eventGetScrollDirection :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m (Bool, ScrollDirection)
eventGetScrollDirection Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr CUInt
direction <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CUInt)
CInt
result <- Ptr Event -> Ptr CUInt -> IO CInt
gdk_event_get_scroll_direction Ptr Event
event' Ptr CUInt
direction
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CUInt
direction' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
direction
let direction'' :: ScrollDirection
direction'' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
direction'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
direction
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', ScrollDirection
direction'')
#if defined(ENABLE_OVERLOADING)
data EventGetScrollDirectionMethodInfo
instance (signature ~ (m ((Bool, Gdk.Enums.ScrollDirection))), MonadIO m) => O.OverloadedMethod EventGetScrollDirectionMethodInfo Event signature where
overloadedMethod = eventGetScrollDirection
instance O.OverloadedMethodInfo EventGetScrollDirectionMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetScrollDirection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetScrollDirection"
})
#endif
foreign import ccall "gdk_event_get_seat" gdk_event_get_seat ::
Ptr Event ->
IO (Ptr Gdk.Seat.Seat)
eventGetSeat ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m Gdk.Seat.Seat
eventGetSeat :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Event -> m Seat
eventGetSeat Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Seat
result <- Ptr Event -> IO (Ptr Seat)
gdk_event_get_seat Ptr Event
event'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"eventGetSeat" Ptr Seat
result
Seat
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Seat -> Seat
Gdk.Seat.Seat) Ptr Seat
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return Seat
result'
#if defined(ENABLE_OVERLOADING)
data EventGetSeatMethodInfo
instance (signature ~ (m Gdk.Seat.Seat), MonadIO m) => O.OverloadedMethod EventGetSeatMethodInfo Event signature where
overloadedMethod = eventGetSeat
instance O.OverloadedMethodInfo EventGetSeatMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetSeat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetSeat"
})
#endif
foreign import ccall "gdk_event_get_source_device" gdk_event_get_source_device ::
Ptr Event ->
IO (Ptr Gdk.Device.Device)
eventGetSourceDevice ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m (Maybe Gdk.Device.Device)
eventGetSourceDevice :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m (Maybe Device)
eventGetSourceDevice Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Device
result <- Ptr Event -> IO (Ptr Device)
gdk_event_get_source_device Ptr Event
event'
Maybe Device
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Device
result forall a b. (a -> b) -> a -> b
$ \Ptr Device
result' -> do
Device
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Device -> Device
Gdk.Device.Device) Ptr Device
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Device
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Device
maybeResult
#if defined(ENABLE_OVERLOADING)
data EventGetSourceDeviceMethodInfo
instance (signature ~ (m (Maybe Gdk.Device.Device)), MonadIO m) => O.OverloadedMethod EventGetSourceDeviceMethodInfo Event signature where
overloadedMethod = eventGetSourceDevice
instance O.OverloadedMethodInfo EventGetSourceDeviceMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetSourceDevice",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetSourceDevice"
})
#endif
foreign import ccall "gdk_event_get_state" gdk_event_get_state ::
Ptr Event ->
Ptr CUInt ->
IO CInt
eventGetState ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m ((Bool, [Gdk.Flags.ModifierType]))
eventGetState :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m (Bool, [ModifierType])
eventGetState Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr CUInt
state <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CUInt)
CInt
result <- Ptr Event -> Ptr CUInt -> IO CInt
gdk_event_get_state Ptr Event
event' Ptr CUInt
state
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CUInt
state' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
state
let state'' :: [ModifierType]
state'' = forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
state'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
state
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', [ModifierType]
state'')
#if defined(ENABLE_OVERLOADING)
data EventGetStateMethodInfo
instance (signature ~ (m ((Bool, [Gdk.Flags.ModifierType]))), MonadIO m) => O.OverloadedMethod EventGetStateMethodInfo Event signature where
overloadedMethod = eventGetState
instance O.OverloadedMethodInfo EventGetStateMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetState"
})
#endif
foreign import ccall "gdk_event_get_time" gdk_event_get_time ::
Ptr Event ->
IO Word32
eventGetTime ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m Word32
eventGetTime :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m Word32
eventGetTime Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Word32
result <- Ptr Event -> IO Word32
gdk_event_get_time Ptr Event
event'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data EventGetTimeMethodInfo
instance (signature ~ (m Word32), MonadIO m) => O.OverloadedMethod EventGetTimeMethodInfo Event signature where
overloadedMethod = eventGetTime
instance O.OverloadedMethodInfo EventGetTimeMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetTime",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetTime"
})
#endif
foreign import ccall "gdk_event_get_window" gdk_event_get_window ::
Ptr Event ->
IO (Ptr Gdk.Window.Window)
eventGetWindow ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m Gdk.Window.Window
eventGetWindow :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Event -> m Window
eventGetWindow Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Window
result <- Ptr Event -> IO (Ptr Window)
gdk_event_get_window Ptr Event
event'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"eventGetWindow" Ptr Window
result
Window
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gdk.Window.Window) Ptr Window
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return Window
result'
#if defined(ENABLE_OVERLOADING)
data EventGetWindowMethodInfo
instance (signature ~ (m Gdk.Window.Window), MonadIO m) => O.OverloadedMethod EventGetWindowMethodInfo Event signature where
overloadedMethod = eventGetWindow
instance O.OverloadedMethodInfo EventGetWindowMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventGetWindow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventGetWindow"
})
#endif
foreign import ccall "gdk_event_is_scroll_stop_event" gdk_event_is_scroll_stop_event ::
Ptr Event ->
IO CInt
eventIsScrollStopEvent ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m Bool
eventIsScrollStopEvent :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Event -> m Bool
eventIsScrollStopEvent Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
CInt
result <- Ptr Event -> IO CInt
gdk_event_is_scroll_stop_event Ptr Event
event'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data EventIsScrollStopEventMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod EventIsScrollStopEventMethodInfo Event signature where
overloadedMethod = eventIsScrollStopEvent
instance O.OverloadedMethodInfo EventIsScrollStopEventMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventIsScrollStopEvent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventIsScrollStopEvent"
})
#endif
foreign import ccall "gdk_event_put" gdk_event_put ::
Ptr Event ->
IO ()
eventPut ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m ()
eventPut :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Event -> m ()
eventPut Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Event -> IO ()
gdk_event_put Ptr Event
event'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EventPutMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod EventPutMethodInfo Event signature where
overloadedMethod = eventPut
instance O.OverloadedMethodInfo EventPutMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventPut",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventPut"
})
#endif
foreign import ccall "gdk_event_set_device" gdk_event_set_device ::
Ptr Event ->
Ptr Gdk.Device.Device ->
IO ()
eventSetDevice ::
(B.CallStack.HasCallStack, MonadIO m, Gdk.Device.IsDevice a) =>
Event
-> a
-> m ()
eventSetDevice :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDevice a) =>
Event -> a -> m ()
eventSetDevice Event
event a
device = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Device
device' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
device
Ptr Event -> Ptr Device -> IO ()
gdk_event_set_device Ptr Event
event' Ptr Device
device'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
device
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EventSetDeviceMethodInfo
instance (signature ~ (a -> m ()), MonadIO m, Gdk.Device.IsDevice a) => O.OverloadedMethod EventSetDeviceMethodInfo Event signature where
overloadedMethod = eventSetDevice
instance O.OverloadedMethodInfo EventSetDeviceMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventSetDevice",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventSetDevice"
})
#endif
foreign import ccall "gdk_event_set_device_tool" gdk_event_set_device_tool ::
Ptr Event ->
Ptr Gdk.DeviceTool.DeviceTool ->
IO ()
eventSetDeviceTool ::
(B.CallStack.HasCallStack, MonadIO m, Gdk.DeviceTool.IsDeviceTool a) =>
Event
-> Maybe (a)
-> m ()
eventSetDeviceTool :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDeviceTool a) =>
Event -> Maybe a -> m ()
eventSetDeviceTool Event
event Maybe a
tool = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr DeviceTool
maybeTool <- case Maybe a
tool of
Maybe a
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just a
jTool -> do
Ptr DeviceTool
jTool' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jTool
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DeviceTool
jTool'
Ptr Event -> Ptr DeviceTool -> IO ()
gdk_event_set_device_tool Ptr Event
event' Ptr DeviceTool
maybeTool
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
tool forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EventSetDeviceToolMethodInfo
instance (signature ~ (Maybe (a) -> m ()), MonadIO m, Gdk.DeviceTool.IsDeviceTool a) => O.OverloadedMethod EventSetDeviceToolMethodInfo Event signature where
overloadedMethod = eventSetDeviceTool
instance O.OverloadedMethodInfo EventSetDeviceToolMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventSetDeviceTool",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventSetDeviceTool"
})
#endif
foreign import ccall "gdk_event_set_screen" gdk_event_set_screen ::
Ptr Event ->
Ptr Gdk.Screen.Screen ->
IO ()
eventSetScreen ::
(B.CallStack.HasCallStack, MonadIO m, Gdk.Screen.IsScreen a) =>
Event
-> a
-> m ()
eventSetScreen :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsScreen a) =>
Event -> a -> m ()
eventSetScreen Event
event a
screen = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Screen
screen' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
screen
Ptr Event -> Ptr Screen -> IO ()
gdk_event_set_screen Ptr Event
event' Ptr Screen
screen'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
screen
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EventSetScreenMethodInfo
instance (signature ~ (a -> m ()), MonadIO m, Gdk.Screen.IsScreen a) => O.OverloadedMethod EventSetScreenMethodInfo Event signature where
overloadedMethod = eventSetScreen
instance O.OverloadedMethodInfo EventSetScreenMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventSetScreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventSetScreen"
})
#endif
foreign import ccall "gdk_event_set_source_device" gdk_event_set_source_device ::
Ptr Event ->
Ptr Gdk.Device.Device ->
IO ()
eventSetSourceDevice ::
(B.CallStack.HasCallStack, MonadIO m, Gdk.Device.IsDevice a) =>
Event
-> a
-> m ()
eventSetSourceDevice :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDevice a) =>
Event -> a -> m ()
eventSetSourceDevice Event
event a
device = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Device
device' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
device
Ptr Event -> Ptr Device -> IO ()
gdk_event_set_source_device Ptr Event
event' Ptr Device
device'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
device
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EventSetSourceDeviceMethodInfo
instance (signature ~ (a -> m ()), MonadIO m, Gdk.Device.IsDevice a) => O.OverloadedMethod EventSetSourceDeviceMethodInfo Event signature where
overloadedMethod = eventSetSourceDevice
instance O.OverloadedMethodInfo EventSetSourceDeviceMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventSetSourceDevice",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventSetSourceDevice"
})
#endif
foreign import ccall "gdk_event_triggers_context_menu" ::
Ptr Event ->
IO CInt
eventTriggersContextMenu ::
(B.CallStack.HasCallStack, MonadIO m) =>
Event
-> m Bool
Event
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
CInt
result <- Ptr Event -> IO CInt
gdk_event_triggers_context_menu Ptr Event
event'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data EventTriggersContextMenuMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod EventTriggersContextMenuMethodInfo Event signature where
overloadedMethod = eventTriggersContextMenu
instance O.OverloadedMethodInfo EventTriggersContextMenuMethodInfo Event where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Unions.Event.eventTriggersContextMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Unions-Event.html#v:eventTriggersContextMenu"
})
#endif
foreign import ccall "gdk_event_get" gdk_event_get ::
IO (Ptr Event)
eventGet ::
(B.CallStack.HasCallStack, MonadIO m) =>
m (Maybe Event)
eventGet :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m (Maybe Event)
eventGet = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
result <- IO (Ptr Event)
gdk_event_get
Maybe Event
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Event
result forall a b. (a -> b) -> a -> b
$ \Ptr Event
result' -> do
Event
result'' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Event -> Event
Event) Ptr Event
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Event
result''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Event
maybeResult
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gdk_event_handler_set" gdk_event_handler_set ::
FunPtr Gdk.Callbacks.C_EventFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
eventHandlerSet ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gdk.Callbacks.EventFunc
-> m ()
eventHandlerSet :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
EventFunc -> m ()
eventHandlerSet EventFunc
func = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
FunPtr C_EventFunc
func' <- C_EventFunc -> IO (FunPtr C_EventFunc)
Gdk.Callbacks.mk_EventFunc (Maybe (Ptr (FunPtr C_EventFunc))
-> EventFunc_WithClosures -> C_EventFunc
Gdk.Callbacks.wrap_EventFunc forall a. Maybe a
Nothing (EventFunc -> EventFunc_WithClosures
Gdk.Callbacks.drop_closures_EventFunc EventFunc
func))
let data_ :: Ptr ()
data_ = forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_EventFunc
func'
let notify :: FunPtr (Ptr a -> IO ())
notify = forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
FunPtr C_EventFunc -> Ptr () -> FunPtr C_DestroyNotify -> IO ()
gdk_event_handler_set FunPtr C_EventFunc
func' Ptr ()
data_ forall a. FunPtr (Ptr a -> IO ())
notify
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gdk_event_peek" gdk_event_peek ::
IO (Ptr Event)
eventPeek ::
(B.CallStack.HasCallStack, MonadIO m) =>
m (Maybe Event)
eventPeek :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m (Maybe Event)
eventPeek = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Event
result <- IO (Ptr Event)
gdk_event_peek
Maybe Event
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Event
result forall a b. (a -> b) -> a -> b
$ \Ptr Event
result' -> do
Event
result'' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Event -> Event
Event) Ptr Event
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Event
result''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Event
maybeResult
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gdk_event_request_motions" gdk_event_request_motions ::
Ptr Gdk.EventMotion.EventMotion ->
IO ()
eventRequestMotions ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gdk.EventMotion.EventMotion
-> m ()
eventRequestMotions :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
EventMotion -> m ()
eventRequestMotions EventMotion
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr EventMotion
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr EventMotion
event
Ptr EventMotion -> IO ()
gdk_event_request_motions Ptr EventMotion
event'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr EventMotion
event
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEventMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveEventMethod "copy" o = EventCopyMethodInfo
ResolveEventMethod "free" o = EventFreeMethodInfo
ResolveEventMethod "isScrollStopEvent" o = EventIsScrollStopEventMethodInfo
ResolveEventMethod "put" o = EventPutMethodInfo
ResolveEventMethod "triggersContextMenu" o = EventTriggersContextMenuMethodInfo
ResolveEventMethod "getAxis" o = EventGetAxisMethodInfo
ResolveEventMethod "getButton" o = EventGetButtonMethodInfo
ResolveEventMethod "getClickCount" o = EventGetClickCountMethodInfo
ResolveEventMethod "getCoords" o = EventGetCoordsMethodInfo
ResolveEventMethod "getDevice" o = EventGetDeviceMethodInfo
ResolveEventMethod "getDeviceTool" o = EventGetDeviceToolMethodInfo
ResolveEventMethod "getEventSequence" o = EventGetEventSequenceMethodInfo
ResolveEventMethod "getEventType" o = EventGetEventTypeMethodInfo
ResolveEventMethod "getKeycode" o = EventGetKeycodeMethodInfo
ResolveEventMethod "getKeyval" o = EventGetKeyvalMethodInfo
ResolveEventMethod "getPointerEmulated" o = EventGetPointerEmulatedMethodInfo
ResolveEventMethod "getRootCoords" o = EventGetRootCoordsMethodInfo
ResolveEventMethod "getScancode" o = EventGetScancodeMethodInfo
ResolveEventMethod "getScreen" o = EventGetScreenMethodInfo
ResolveEventMethod "getScrollDeltas" o = EventGetScrollDeltasMethodInfo
ResolveEventMethod "getScrollDirection" o = EventGetScrollDirectionMethodInfo
ResolveEventMethod "getSeat" o = EventGetSeatMethodInfo
ResolveEventMethod "getSourceDevice" o = EventGetSourceDeviceMethodInfo
ResolveEventMethod "getState" o = EventGetStateMethodInfo
ResolveEventMethod "getTime" o = EventGetTimeMethodInfo
ResolveEventMethod "getWindow" o = EventGetWindowMethodInfo
ResolveEventMethod "setDevice" o = EventSetDeviceMethodInfo
ResolveEventMethod "setDeviceTool" o = EventSetDeviceToolMethodInfo
ResolveEventMethod "setScreen" o = EventSetScreenMethodInfo
ResolveEventMethod "setSourceDevice" o = EventSetSourceDeviceMethodInfo
ResolveEventMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventMethod t Event, O.OverloadedMethod info Event p) => OL.IsLabel t (Event -> 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 ~ ResolveEventMethod t Event, O.OverloadedMethod info Event p, R.HasField t Event p) => R.HasField t Event p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveEventMethod t Event, O.OverloadedMethodInfo info Event) => OL.IsLabel t (O.MethodProxy info Event) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif