{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.IBus.Objects.XEvent
(
XEvent(..) ,
IsXEvent ,
toXEvent ,
#if defined(ENABLE_OVERLOADING)
ResolveXEventMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventGetEventTypeMethodInfo ,
#endif
xEventGetEventType ,
#if defined(ENABLE_OVERLOADING)
XEventGetGroupMethodInfo ,
#endif
xEventGetGroup ,
#if defined(ENABLE_OVERLOADING)
XEventGetHardwareKeycodeMethodInfo ,
#endif
xEventGetHardwareKeycode ,
#if defined(ENABLE_OVERLOADING)
XEventGetIsModifierMethodInfo ,
#endif
xEventGetIsModifier ,
#if defined(ENABLE_OVERLOADING)
XEventGetKeyvalMethodInfo ,
#endif
xEventGetKeyval ,
#if defined(ENABLE_OVERLOADING)
XEventGetLengthMethodInfo ,
#endif
xEventGetLength ,
#if defined(ENABLE_OVERLOADING)
XEventGetPurposeMethodInfo ,
#endif
xEventGetPurpose ,
#if defined(ENABLE_OVERLOADING)
XEventGetRootMethodInfo ,
#endif
xEventGetRoot ,
#if defined(ENABLE_OVERLOADING)
XEventGetSameScreenMethodInfo ,
#endif
xEventGetSameScreen ,
#if defined(ENABLE_OVERLOADING)
XEventGetSendEventMethodInfo ,
#endif
xEventGetSendEvent ,
#if defined(ENABLE_OVERLOADING)
XEventGetSerialMethodInfo ,
#endif
xEventGetSerial ,
#if defined(ENABLE_OVERLOADING)
XEventGetStateMethodInfo ,
#endif
xEventGetState ,
#if defined(ENABLE_OVERLOADING)
XEventGetStringMethodInfo ,
#endif
xEventGetString ,
#if defined(ENABLE_OVERLOADING)
XEventGetSubwindowMethodInfo ,
#endif
xEventGetSubwindow ,
#if defined(ENABLE_OVERLOADING)
XEventGetTimeMethodInfo ,
#endif
xEventGetTime ,
#if defined(ENABLE_OVERLOADING)
XEventGetVersionMethodInfo ,
#endif
xEventGetVersion ,
#if defined(ENABLE_OVERLOADING)
XEventGetWindowMethodInfo ,
#endif
xEventGetWindow ,
#if defined(ENABLE_OVERLOADING)
XEventGetXMethodInfo ,
#endif
xEventGetX ,
#if defined(ENABLE_OVERLOADING)
XEventGetXRootMethodInfo ,
#endif
xEventGetXRoot ,
#if defined(ENABLE_OVERLOADING)
XEventGetYMethodInfo ,
#endif
xEventGetY ,
#if defined(ENABLE_OVERLOADING)
XEventGetYRootMethodInfo ,
#endif
xEventGetYRoot ,
#if defined(ENABLE_OVERLOADING)
XEventEventTypePropertyInfo ,
#endif
constructXEventEventType ,
getXEventEventType ,
#if defined(ENABLE_OVERLOADING)
xEventEventType ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventGroupPropertyInfo ,
#endif
constructXEventGroup ,
getXEventGroup ,
#if defined(ENABLE_OVERLOADING)
xEventGroup ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventHardwareKeycodePropertyInfo ,
#endif
constructXEventHardwareKeycode ,
getXEventHardwareKeycode ,
#if defined(ENABLE_OVERLOADING)
xEventHardwareKeycode ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventIsModifierPropertyInfo ,
#endif
constructXEventIsModifier ,
getXEventIsModifier ,
#if defined(ENABLE_OVERLOADING)
xEventIsModifier ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventKeyvalPropertyInfo ,
#endif
constructXEventKeyval ,
getXEventKeyval ,
#if defined(ENABLE_OVERLOADING)
xEventKeyval ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventLengthPropertyInfo ,
#endif
constructXEventLength ,
getXEventLength ,
#if defined(ENABLE_OVERLOADING)
xEventLength ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventPurposePropertyInfo ,
#endif
constructXEventPurpose ,
getXEventPurpose ,
#if defined(ENABLE_OVERLOADING)
xEventPurpose ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventRootPropertyInfo ,
#endif
constructXEventRoot ,
getXEventRoot ,
#if defined(ENABLE_OVERLOADING)
xEventRoot ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventSameScreenPropertyInfo ,
#endif
constructXEventSameScreen ,
getXEventSameScreen ,
#if defined(ENABLE_OVERLOADING)
xEventSameScreen ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventSendEventPropertyInfo ,
#endif
constructXEventSendEvent ,
getXEventSendEvent ,
#if defined(ENABLE_OVERLOADING)
xEventSendEvent ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventSerialPropertyInfo ,
#endif
constructXEventSerial ,
getXEventSerial ,
#if defined(ENABLE_OVERLOADING)
xEventSerial ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventStatePropertyInfo ,
#endif
constructXEventState ,
getXEventState ,
#if defined(ENABLE_OVERLOADING)
xEventState ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventStringPropertyInfo ,
#endif
constructXEventString ,
getXEventString ,
#if defined(ENABLE_OVERLOADING)
xEventString ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventSubwindowPropertyInfo ,
#endif
constructXEventSubwindow ,
getXEventSubwindow ,
#if defined(ENABLE_OVERLOADING)
xEventSubwindow ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventTimePropertyInfo ,
#endif
constructXEventTime ,
getXEventTime ,
#if defined(ENABLE_OVERLOADING)
xEventTime ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventVersionPropertyInfo ,
#endif
getXEventVersion ,
#if defined(ENABLE_OVERLOADING)
xEventVersion ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventWindowPropertyInfo ,
#endif
constructXEventWindow ,
getXEventWindow ,
#if defined(ENABLE_OVERLOADING)
xEventWindow ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventXPropertyInfo ,
#endif
constructXEventX ,
getXEventX ,
#if defined(ENABLE_OVERLOADING)
xEventX ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventXRootPropertyInfo ,
#endif
constructXEventXRoot ,
getXEventXRoot ,
#if defined(ENABLE_OVERLOADING)
xEventXRoot ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventYPropertyInfo ,
#endif
constructXEventY ,
getXEventY ,
#if defined(ENABLE_OVERLOADING)
xEventY ,
#endif
#if defined(ENABLE_OVERLOADING)
XEventYRootPropertyInfo ,
#endif
constructXEventYRoot ,
getXEventYRoot ,
#if defined(ENABLE_OVERLOADING)
xEventYRoot ,
#endif
) 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.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.Text as T
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.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.IBus.Enums as IBus.Enums
import {-# SOURCE #-} qualified GI.IBus.Objects.Object as IBus.Object
import {-# SOURCE #-} qualified GI.IBus.Objects.Serializable as IBus.Serializable
newtype XEvent = XEvent (SP.ManagedPtr XEvent)
deriving (XEvent -> XEvent -> Bool
(XEvent -> XEvent -> Bool)
-> (XEvent -> XEvent -> Bool) -> Eq XEvent
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: XEvent -> XEvent -> Bool
$c/= :: XEvent -> XEvent -> Bool
== :: XEvent -> XEvent -> Bool
$c== :: XEvent -> XEvent -> Bool
Eq)
instance SP.ManagedPtrNewtype XEvent where
toManagedPtr :: XEvent -> ManagedPtr XEvent
toManagedPtr (XEvent ManagedPtr XEvent
p) = ManagedPtr XEvent
p
foreign import ccall "ibus_x_event_get_type"
c_ibus_x_event_get_type :: IO B.Types.GType
instance B.Types.TypedObject XEvent where
glibType :: IO GType
glibType = IO GType
c_ibus_x_event_get_type
instance B.Types.GObject XEvent
class (SP.GObject o, O.IsDescendantOf XEvent o) => IsXEvent o
instance (SP.GObject o, O.IsDescendantOf XEvent o) => IsXEvent o
instance O.HasParentTypes XEvent
type instance O.ParentTypes XEvent = '[IBus.Serializable.Serializable, IBus.Object.Object, GObject.Object.Object]
toXEvent :: (MIO.MonadIO m, IsXEvent o) => o -> m XEvent
toXEvent :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m XEvent
toXEvent = IO XEvent -> m XEvent
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO XEvent -> m XEvent) -> (o -> IO XEvent) -> o -> m XEvent
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr XEvent -> XEvent) -> o -> IO XEvent
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr XEvent -> XEvent
XEvent
instance B.GValue.IsGValue (Maybe XEvent) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ibus_x_event_get_type
gvalueSet_ :: Ptr GValue -> Maybe XEvent -> IO ()
gvalueSet_ Ptr GValue
gv Maybe XEvent
P.Nothing = Ptr GValue -> Ptr XEvent -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr XEvent
forall a. Ptr a
FP.nullPtr :: FP.Ptr XEvent)
gvalueSet_ Ptr GValue
gv (P.Just XEvent
obj) = XEvent -> (Ptr XEvent -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr XEvent
obj (Ptr GValue -> Ptr XEvent -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe XEvent)
gvalueGet_ Ptr GValue
gv = do
Ptr XEvent
ptr <- Ptr GValue -> IO (Ptr XEvent)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr XEvent)
if Ptr XEvent
ptr Ptr XEvent -> Ptr XEvent -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr XEvent
forall a. Ptr a
FP.nullPtr
then XEvent -> Maybe XEvent
forall a. a -> Maybe a
P.Just (XEvent -> Maybe XEvent) -> IO XEvent -> IO (Maybe XEvent)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr XEvent -> XEvent) -> Ptr XEvent -> IO XEvent
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr XEvent -> XEvent
XEvent Ptr XEvent
ptr
else Maybe XEvent -> IO (Maybe XEvent)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe XEvent
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveXEventMethod (t :: Symbol) (o :: *) :: * where
ResolveXEventMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveXEventMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveXEventMethod "copy" o = IBus.Serializable.SerializableCopyMethodInfo
ResolveXEventMethod "destroy" o = IBus.Object.ObjectDestroyMethodInfo
ResolveXEventMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveXEventMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveXEventMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveXEventMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveXEventMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveXEventMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveXEventMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveXEventMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveXEventMethod "removeQattachment" o = IBus.Serializable.SerializableRemoveQattachmentMethodInfo
ResolveXEventMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveXEventMethod "serializeObject" o = IBus.Serializable.SerializableSerializeObjectMethodInfo
ResolveXEventMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveXEventMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveXEventMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveXEventMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveXEventMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveXEventMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveXEventMethod "getEventType" o = XEventGetEventTypeMethodInfo
ResolveXEventMethod "getGroup" o = XEventGetGroupMethodInfo
ResolveXEventMethod "getHardwareKeycode" o = XEventGetHardwareKeycodeMethodInfo
ResolveXEventMethod "getIsModifier" o = XEventGetIsModifierMethodInfo
ResolveXEventMethod "getKeyval" o = XEventGetKeyvalMethodInfo
ResolveXEventMethod "getLength" o = XEventGetLengthMethodInfo
ResolveXEventMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveXEventMethod "getPurpose" o = XEventGetPurposeMethodInfo
ResolveXEventMethod "getQattachment" o = IBus.Serializable.SerializableGetQattachmentMethodInfo
ResolveXEventMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveXEventMethod "getRoot" o = XEventGetRootMethodInfo
ResolveXEventMethod "getSameScreen" o = XEventGetSameScreenMethodInfo
ResolveXEventMethod "getSendEvent" o = XEventGetSendEventMethodInfo
ResolveXEventMethod "getSerial" o = XEventGetSerialMethodInfo
ResolveXEventMethod "getState" o = XEventGetStateMethodInfo
ResolveXEventMethod "getString" o = XEventGetStringMethodInfo
ResolveXEventMethod "getSubwindow" o = XEventGetSubwindowMethodInfo
ResolveXEventMethod "getTime" o = XEventGetTimeMethodInfo
ResolveXEventMethod "getVersion" o = XEventGetVersionMethodInfo
ResolveXEventMethod "getWindow" o = XEventGetWindowMethodInfo
ResolveXEventMethod "getX" o = XEventGetXMethodInfo
ResolveXEventMethod "getXRoot" o = XEventGetXRootMethodInfo
ResolveXEventMethod "getY" o = XEventGetYMethodInfo
ResolveXEventMethod "getYRoot" o = XEventGetYRootMethodInfo
ResolveXEventMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveXEventMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveXEventMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveXEventMethod "setQattachment" o = IBus.Serializable.SerializableSetQattachmentMethodInfo
ResolveXEventMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveXEventMethod t XEvent, O.OverloadedMethod info XEvent p) => OL.IsLabel t (XEvent -> 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 ~ ResolveXEventMethod t XEvent, O.OverloadedMethod info XEvent p, R.HasField t XEvent p) => R.HasField t XEvent p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveXEventMethod t XEvent, O.OverloadedMethodInfo info XEvent) => OL.IsLabel t (O.MethodProxy info XEvent) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getXEventEventType :: (MonadIO m, IsXEvent o) => o -> m Int32
getXEventEventType :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Int32
getXEventEventType o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"event-type"
constructXEventEventType :: (IsXEvent o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructXEventEventType :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructXEventEventType Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"event-type" Int32
val
#if defined(ENABLE_OVERLOADING)
data XEventEventTypePropertyInfo
instance AttrInfo XEventEventTypePropertyInfo where
type AttrAllowedOps XEventEventTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventEventTypePropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventEventTypePropertyInfo = (~) Int32
type AttrTransferTypeConstraint XEventEventTypePropertyInfo = (~) Int32
type AttrTransferType XEventEventTypePropertyInfo = Int32
type AttrGetType XEventEventTypePropertyInfo = Int32
type AttrLabel XEventEventTypePropertyInfo = "event-type"
type AttrOrigin XEventEventTypePropertyInfo = XEvent
attrGet = getXEventEventType
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventEventType
attrClear = undefined
#endif
getXEventGroup :: (MonadIO m, IsXEvent o) => o -> m Word32
getXEventGroup :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Word32
getXEventGroup o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"group"
constructXEventGroup :: (IsXEvent o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructXEventGroup :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructXEventGroup Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"group" Word32
val
#if defined(ENABLE_OVERLOADING)
data XEventGroupPropertyInfo
instance AttrInfo XEventGroupPropertyInfo where
type AttrAllowedOps XEventGroupPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventGroupPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventGroupPropertyInfo = (~) Word32
type AttrTransferTypeConstraint XEventGroupPropertyInfo = (~) Word32
type AttrTransferType XEventGroupPropertyInfo = Word32
type AttrGetType XEventGroupPropertyInfo = Word32
type AttrLabel XEventGroupPropertyInfo = "group"
type AttrOrigin XEventGroupPropertyInfo = XEvent
attrGet = getXEventGroup
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventGroup
attrClear = undefined
#endif
getXEventHardwareKeycode :: (MonadIO m, IsXEvent o) => o -> m Word32
getXEventHardwareKeycode :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Word32
getXEventHardwareKeycode o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"hardware-keycode"
constructXEventHardwareKeycode :: (IsXEvent o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructXEventHardwareKeycode :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructXEventHardwareKeycode Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"hardware-keycode" Word32
val
#if defined(ENABLE_OVERLOADING)
data XEventHardwareKeycodePropertyInfo
instance AttrInfo XEventHardwareKeycodePropertyInfo where
type AttrAllowedOps XEventHardwareKeycodePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventHardwareKeycodePropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventHardwareKeycodePropertyInfo = (~) Word32
type AttrTransferTypeConstraint XEventHardwareKeycodePropertyInfo = (~) Word32
type AttrTransferType XEventHardwareKeycodePropertyInfo = Word32
type AttrGetType XEventHardwareKeycodePropertyInfo = Word32
type AttrLabel XEventHardwareKeycodePropertyInfo = "hardware-keycode"
type AttrOrigin XEventHardwareKeycodePropertyInfo = XEvent
attrGet = getXEventHardwareKeycode
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventHardwareKeycode
attrClear = undefined
#endif
getXEventIsModifier :: (MonadIO m, IsXEvent o) => o -> m Bool
getXEventIsModifier :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Bool
getXEventIsModifier o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"is-modifier"
constructXEventIsModifier :: (IsXEvent o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructXEventIsModifier :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructXEventIsModifier Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"is-modifier" Bool
val
#if defined(ENABLE_OVERLOADING)
data XEventIsModifierPropertyInfo
instance AttrInfo XEventIsModifierPropertyInfo where
type AttrAllowedOps XEventIsModifierPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventIsModifierPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventIsModifierPropertyInfo = (~) Bool
type AttrTransferTypeConstraint XEventIsModifierPropertyInfo = (~) Bool
type AttrTransferType XEventIsModifierPropertyInfo = Bool
type AttrGetType XEventIsModifierPropertyInfo = Bool
type AttrLabel XEventIsModifierPropertyInfo = "is-modifier"
type AttrOrigin XEventIsModifierPropertyInfo = XEvent
attrGet = getXEventIsModifier
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventIsModifier
attrClear = undefined
#endif
getXEventKeyval :: (MonadIO m, IsXEvent o) => o -> m Word32
getXEventKeyval :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Word32
getXEventKeyval o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"keyval"
constructXEventKeyval :: (IsXEvent o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructXEventKeyval :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructXEventKeyval Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"keyval" Word32
val
#if defined(ENABLE_OVERLOADING)
data XEventKeyvalPropertyInfo
instance AttrInfo XEventKeyvalPropertyInfo where
type AttrAllowedOps XEventKeyvalPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventKeyvalPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventKeyvalPropertyInfo = (~) Word32
type AttrTransferTypeConstraint XEventKeyvalPropertyInfo = (~) Word32
type AttrTransferType XEventKeyvalPropertyInfo = Word32
type AttrGetType XEventKeyvalPropertyInfo = Word32
type AttrLabel XEventKeyvalPropertyInfo = "keyval"
type AttrOrigin XEventKeyvalPropertyInfo = XEvent
attrGet = getXEventKeyval
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventKeyval
attrClear = undefined
#endif
getXEventLength :: (MonadIO m, IsXEvent o) => o -> m Int32
getXEventLength :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Int32
getXEventLength o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"length"
constructXEventLength :: (IsXEvent o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructXEventLength :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructXEventLength Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"length" Int32
val
#if defined(ENABLE_OVERLOADING)
data XEventLengthPropertyInfo
instance AttrInfo XEventLengthPropertyInfo where
type AttrAllowedOps XEventLengthPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventLengthPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventLengthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint XEventLengthPropertyInfo = (~) Int32
type AttrTransferType XEventLengthPropertyInfo = Int32
type AttrGetType XEventLengthPropertyInfo = Int32
type AttrLabel XEventLengthPropertyInfo = "length"
type AttrOrigin XEventLengthPropertyInfo = XEvent
attrGet = getXEventLength
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventLength
attrClear = undefined
#endif
getXEventPurpose :: (MonadIO m, IsXEvent o) => o -> m T.Text
getXEventPurpose :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Text
getXEventPurpose o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getXEventPurpose" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"purpose"
constructXEventPurpose :: (IsXEvent o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructXEventPurpose :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructXEventPurpose Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"purpose" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data XEventPurposePropertyInfo
instance AttrInfo XEventPurposePropertyInfo where
type AttrAllowedOps XEventPurposePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint XEventPurposePropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventPurposePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint XEventPurposePropertyInfo = (~) T.Text
type AttrTransferType XEventPurposePropertyInfo = T.Text
type AttrGetType XEventPurposePropertyInfo = T.Text
type AttrLabel XEventPurposePropertyInfo = "purpose"
type AttrOrigin XEventPurposePropertyInfo = XEvent
attrGet = getXEventPurpose
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventPurpose
attrClear = undefined
#endif
getXEventRoot :: (MonadIO m, IsXEvent o) => o -> m Word32
getXEventRoot :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Word32
getXEventRoot o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"root"
constructXEventRoot :: (IsXEvent o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructXEventRoot :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructXEventRoot Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"root" Word32
val
#if defined(ENABLE_OVERLOADING)
data XEventRootPropertyInfo
instance AttrInfo XEventRootPropertyInfo where
type AttrAllowedOps XEventRootPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventRootPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventRootPropertyInfo = (~) Word32
type AttrTransferTypeConstraint XEventRootPropertyInfo = (~) Word32
type AttrTransferType XEventRootPropertyInfo = Word32
type AttrGetType XEventRootPropertyInfo = Word32
type AttrLabel XEventRootPropertyInfo = "root"
type AttrOrigin XEventRootPropertyInfo = XEvent
attrGet = getXEventRoot
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventRoot
attrClear = undefined
#endif
getXEventSameScreen :: (MonadIO m, IsXEvent o) => o -> m Bool
getXEventSameScreen :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Bool
getXEventSameScreen o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"same-screen"
constructXEventSameScreen :: (IsXEvent o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructXEventSameScreen :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructXEventSameScreen Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"same-screen" Bool
val
#if defined(ENABLE_OVERLOADING)
data XEventSameScreenPropertyInfo
instance AttrInfo XEventSameScreenPropertyInfo where
type AttrAllowedOps XEventSameScreenPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventSameScreenPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventSameScreenPropertyInfo = (~) Bool
type AttrTransferTypeConstraint XEventSameScreenPropertyInfo = (~) Bool
type AttrTransferType XEventSameScreenPropertyInfo = Bool
type AttrGetType XEventSameScreenPropertyInfo = Bool
type AttrLabel XEventSameScreenPropertyInfo = "same-screen"
type AttrOrigin XEventSameScreenPropertyInfo = XEvent
attrGet = getXEventSameScreen
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventSameScreen
attrClear = undefined
#endif
getXEventSendEvent :: (MonadIO m, IsXEvent o) => o -> m Int32
getXEventSendEvent :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Int32
getXEventSendEvent o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"send-event"
constructXEventSendEvent :: (IsXEvent o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructXEventSendEvent :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructXEventSendEvent Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"send-event" Int32
val
#if defined(ENABLE_OVERLOADING)
data XEventSendEventPropertyInfo
instance AttrInfo XEventSendEventPropertyInfo where
type AttrAllowedOps XEventSendEventPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventSendEventPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventSendEventPropertyInfo = (~) Int32
type AttrTransferTypeConstraint XEventSendEventPropertyInfo = (~) Int32
type AttrTransferType XEventSendEventPropertyInfo = Int32
type AttrGetType XEventSendEventPropertyInfo = Int32
type AttrLabel XEventSendEventPropertyInfo = "send-event"
type AttrOrigin XEventSendEventPropertyInfo = XEvent
attrGet = getXEventSendEvent
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventSendEvent
attrClear = undefined
#endif
getXEventSerial :: (MonadIO m, IsXEvent o) => o -> m CULong
getXEventSerial :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m CULong
getXEventSerial o
obj = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CULong
forall a. GObject a => a -> String -> IO CULong
B.Properties.getObjectPropertyULong o
obj String
"serial"
constructXEventSerial :: (IsXEvent o, MIO.MonadIO m) => CULong -> m (GValueConstruct o)
constructXEventSerial :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
CULong -> m (GValueConstruct o)
constructXEventSerial CULong
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> CULong -> IO (GValueConstruct o)
forall o. String -> CULong -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyULong String
"serial" CULong
val
#if defined(ENABLE_OVERLOADING)
data XEventSerialPropertyInfo
instance AttrInfo XEventSerialPropertyInfo where
type AttrAllowedOps XEventSerialPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventSerialPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventSerialPropertyInfo = (~) CULong
type AttrTransferTypeConstraint XEventSerialPropertyInfo = (~) CULong
type AttrTransferType XEventSerialPropertyInfo = CULong
type AttrGetType XEventSerialPropertyInfo = CULong
type AttrLabel XEventSerialPropertyInfo = "serial"
type AttrOrigin XEventSerialPropertyInfo = XEvent
attrGet = getXEventSerial
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventSerial
attrClear = undefined
#endif
getXEventState :: (MonadIO m, IsXEvent o) => o -> m Word32
getXEventState :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Word32
getXEventState o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"state"
constructXEventState :: (IsXEvent o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructXEventState :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructXEventState Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"state" Word32
val
#if defined(ENABLE_OVERLOADING)
data XEventStatePropertyInfo
instance AttrInfo XEventStatePropertyInfo where
type AttrAllowedOps XEventStatePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventStatePropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventStatePropertyInfo = (~) Word32
type AttrTransferTypeConstraint XEventStatePropertyInfo = (~) Word32
type AttrTransferType XEventStatePropertyInfo = Word32
type AttrGetType XEventStatePropertyInfo = Word32
type AttrLabel XEventStatePropertyInfo = "state"
type AttrOrigin XEventStatePropertyInfo = XEvent
attrGet = getXEventState
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventState
attrClear = undefined
#endif
getXEventString :: (MonadIO m, IsXEvent o) => o -> m T.Text
getXEventString :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Text
getXEventString o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getXEventString" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"string"
constructXEventString :: (IsXEvent o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructXEventString :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructXEventString Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"string" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data XEventStringPropertyInfo
instance AttrInfo XEventStringPropertyInfo where
type AttrAllowedOps XEventStringPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint XEventStringPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventStringPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint XEventStringPropertyInfo = (~) T.Text
type AttrTransferType XEventStringPropertyInfo = T.Text
type AttrGetType XEventStringPropertyInfo = T.Text
type AttrLabel XEventStringPropertyInfo = "string"
type AttrOrigin XEventStringPropertyInfo = XEvent
attrGet = getXEventString
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventString
attrClear = undefined
#endif
getXEventSubwindow :: (MonadIO m, IsXEvent o) => o -> m Word32
getXEventSubwindow :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Word32
getXEventSubwindow o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"subwindow"
constructXEventSubwindow :: (IsXEvent o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructXEventSubwindow :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructXEventSubwindow Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"subwindow" Word32
val
#if defined(ENABLE_OVERLOADING)
data XEventSubwindowPropertyInfo
instance AttrInfo XEventSubwindowPropertyInfo where
type AttrAllowedOps XEventSubwindowPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventSubwindowPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventSubwindowPropertyInfo = (~) Word32
type AttrTransferTypeConstraint XEventSubwindowPropertyInfo = (~) Word32
type AttrTransferType XEventSubwindowPropertyInfo = Word32
type AttrGetType XEventSubwindowPropertyInfo = Word32
type AttrLabel XEventSubwindowPropertyInfo = "subwindow"
type AttrOrigin XEventSubwindowPropertyInfo = XEvent
attrGet = getXEventSubwindow
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventSubwindow
attrClear = undefined
#endif
getXEventTime :: (MonadIO m, IsXEvent o) => o -> m Word32
getXEventTime :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Word32
getXEventTime o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"time"
constructXEventTime :: (IsXEvent o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructXEventTime :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructXEventTime Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"time" Word32
val
#if defined(ENABLE_OVERLOADING)
data XEventTimePropertyInfo
instance AttrInfo XEventTimePropertyInfo where
type AttrAllowedOps XEventTimePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventTimePropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventTimePropertyInfo = (~) Word32
type AttrTransferTypeConstraint XEventTimePropertyInfo = (~) Word32
type AttrTransferType XEventTimePropertyInfo = Word32
type AttrGetType XEventTimePropertyInfo = Word32
type AttrLabel XEventTimePropertyInfo = "time"
type AttrOrigin XEventTimePropertyInfo = XEvent
attrGet = getXEventTime
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventTime
attrClear = undefined
#endif
getXEventVersion :: (MonadIO m, IsXEvent o) => o -> m Word32
getXEventVersion :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Word32
getXEventVersion o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"version"
#if defined(ENABLE_OVERLOADING)
data XEventVersionPropertyInfo
instance AttrInfo XEventVersionPropertyInfo where
type AttrAllowedOps XEventVersionPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint XEventVersionPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventVersionPropertyInfo = (~) ()
type AttrTransferTypeConstraint XEventVersionPropertyInfo = (~) ()
type AttrTransferType XEventVersionPropertyInfo = ()
type AttrGetType XEventVersionPropertyInfo = Word32
type AttrLabel XEventVersionPropertyInfo = "version"
type AttrOrigin XEventVersionPropertyInfo = XEvent
attrGet = getXEventVersion
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getXEventWindow :: (MonadIO m, IsXEvent o) => o -> m Word32
getXEventWindow :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Word32
getXEventWindow o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"window"
constructXEventWindow :: (IsXEvent o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructXEventWindow :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructXEventWindow Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"window" Word32
val
#if defined(ENABLE_OVERLOADING)
data XEventWindowPropertyInfo
instance AttrInfo XEventWindowPropertyInfo where
type AttrAllowedOps XEventWindowPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventWindowPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventWindowPropertyInfo = (~) Word32
type AttrTransferTypeConstraint XEventWindowPropertyInfo = (~) Word32
type AttrTransferType XEventWindowPropertyInfo = Word32
type AttrGetType XEventWindowPropertyInfo = Word32
type AttrLabel XEventWindowPropertyInfo = "window"
type AttrOrigin XEventWindowPropertyInfo = XEvent
attrGet = getXEventWindow
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventWindow
attrClear = undefined
#endif
getXEventX :: (MonadIO m, IsXEvent o) => o -> m Int32
getXEventX :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Int32
getXEventX o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"x"
constructXEventX :: (IsXEvent o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructXEventX :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructXEventX Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"x" Int32
val
#if defined(ENABLE_OVERLOADING)
data XEventXPropertyInfo
instance AttrInfo XEventXPropertyInfo where
type AttrAllowedOps XEventXPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventXPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventXPropertyInfo = (~) Int32
type AttrTransferTypeConstraint XEventXPropertyInfo = (~) Int32
type AttrTransferType XEventXPropertyInfo = Int32
type AttrGetType XEventXPropertyInfo = Int32
type AttrLabel XEventXPropertyInfo = "x"
type AttrOrigin XEventXPropertyInfo = XEvent
attrGet = getXEventX
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventX
attrClear = undefined
#endif
getXEventXRoot :: (MonadIO m, IsXEvent o) => o -> m Int32
getXEventXRoot :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Int32
getXEventXRoot o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"x-root"
constructXEventXRoot :: (IsXEvent o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructXEventXRoot :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructXEventXRoot Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"x-root" Int32
val
#if defined(ENABLE_OVERLOADING)
data XEventXRootPropertyInfo
instance AttrInfo XEventXRootPropertyInfo where
type AttrAllowedOps XEventXRootPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventXRootPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventXRootPropertyInfo = (~) Int32
type AttrTransferTypeConstraint XEventXRootPropertyInfo = (~) Int32
type AttrTransferType XEventXRootPropertyInfo = Int32
type AttrGetType XEventXRootPropertyInfo = Int32
type AttrLabel XEventXRootPropertyInfo = "x-root"
type AttrOrigin XEventXRootPropertyInfo = XEvent
attrGet = getXEventXRoot
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventXRoot
attrClear = undefined
#endif
getXEventY :: (MonadIO m, IsXEvent o) => o -> m Int32
getXEventY :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Int32
getXEventY o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"y"
constructXEventY :: (IsXEvent o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructXEventY :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructXEventY Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"y" Int32
val
#if defined(ENABLE_OVERLOADING)
data XEventYPropertyInfo
instance AttrInfo XEventYPropertyInfo where
type AttrAllowedOps XEventYPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventYPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventYPropertyInfo = (~) Int32
type AttrTransferTypeConstraint XEventYPropertyInfo = (~) Int32
type AttrTransferType XEventYPropertyInfo = Int32
type AttrGetType XEventYPropertyInfo = Int32
type AttrLabel XEventYPropertyInfo = "y"
type AttrOrigin XEventYPropertyInfo = XEvent
attrGet = getXEventY
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventY
attrClear = undefined
#endif
getXEventYRoot :: (MonadIO m, IsXEvent o) => o -> m Int32
getXEventYRoot :: forall (m :: * -> *) o. (MonadIO m, IsXEvent o) => o -> m Int32
getXEventYRoot o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"y-root"
constructXEventYRoot :: (IsXEvent o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructXEventYRoot :: forall o (m :: * -> *).
(IsXEvent o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructXEventYRoot Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"y-root" Int32
val
#if defined(ENABLE_OVERLOADING)
data XEventYRootPropertyInfo
instance AttrInfo XEventYRootPropertyInfo where
type AttrAllowedOps XEventYRootPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint XEventYRootPropertyInfo = IsXEvent
type AttrSetTypeConstraint XEventYRootPropertyInfo = (~) Int32
type AttrTransferTypeConstraint XEventYRootPropertyInfo = (~) Int32
type AttrTransferType XEventYRootPropertyInfo = Int32
type AttrGetType XEventYRootPropertyInfo = Int32
type AttrLabel XEventYRootPropertyInfo = "y-root"
type AttrOrigin XEventYRootPropertyInfo = XEvent
attrGet = getXEventYRoot
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructXEventYRoot
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList XEvent
type instance O.AttributeList XEvent = XEventAttributeList
type XEventAttributeList = ('[ '("eventType", XEventEventTypePropertyInfo), '("group", XEventGroupPropertyInfo), '("hardwareKeycode", XEventHardwareKeycodePropertyInfo), '("isModifier", XEventIsModifierPropertyInfo), '("keyval", XEventKeyvalPropertyInfo), '("length", XEventLengthPropertyInfo), '("purpose", XEventPurposePropertyInfo), '("root", XEventRootPropertyInfo), '("sameScreen", XEventSameScreenPropertyInfo), '("sendEvent", XEventSendEventPropertyInfo), '("serial", XEventSerialPropertyInfo), '("state", XEventStatePropertyInfo), '("string", XEventStringPropertyInfo), '("subwindow", XEventSubwindowPropertyInfo), '("time", XEventTimePropertyInfo), '("version", XEventVersionPropertyInfo), '("window", XEventWindowPropertyInfo), '("x", XEventXPropertyInfo), '("xRoot", XEventXRootPropertyInfo), '("y", XEventYPropertyInfo), '("yRoot", XEventYRootPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
xEventEventType :: AttrLabelProxy "eventType"
xEventEventType = AttrLabelProxy
xEventGroup :: AttrLabelProxy "group"
xEventGroup = AttrLabelProxy
xEventHardwareKeycode :: AttrLabelProxy "hardwareKeycode"
xEventHardwareKeycode = AttrLabelProxy
xEventIsModifier :: AttrLabelProxy "isModifier"
xEventIsModifier = AttrLabelProxy
xEventKeyval :: AttrLabelProxy "keyval"
xEventKeyval = AttrLabelProxy
xEventLength :: AttrLabelProxy "length"
xEventLength = AttrLabelProxy
xEventPurpose :: AttrLabelProxy "purpose"
xEventPurpose = AttrLabelProxy
xEventRoot :: AttrLabelProxy "root"
xEventRoot = AttrLabelProxy
xEventSameScreen :: AttrLabelProxy "sameScreen"
xEventSameScreen = AttrLabelProxy
xEventSendEvent :: AttrLabelProxy "sendEvent"
xEventSendEvent = AttrLabelProxy
xEventSerial :: AttrLabelProxy "serial"
xEventSerial = AttrLabelProxy
xEventState :: AttrLabelProxy "state"
xEventState = AttrLabelProxy
xEventString :: AttrLabelProxy "string"
xEventString = AttrLabelProxy
xEventSubwindow :: AttrLabelProxy "subwindow"
xEventSubwindow = AttrLabelProxy
xEventTime :: AttrLabelProxy "time"
xEventTime = AttrLabelProxy
xEventVersion :: AttrLabelProxy "version"
xEventVersion = AttrLabelProxy
xEventWindow :: AttrLabelProxy "window"
xEventWindow = AttrLabelProxy
xEventX :: AttrLabelProxy "x"
xEventX = AttrLabelProxy
xEventXRoot :: AttrLabelProxy "xRoot"
xEventXRoot = AttrLabelProxy
xEventY :: AttrLabelProxy "y"
xEventY = AttrLabelProxy
xEventYRoot :: AttrLabelProxy "yRoot"
xEventYRoot = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList XEvent = XEventSignalList
type XEventSignalList = ('[ '("destroy", IBus.Object.ObjectDestroySignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "ibus_x_event_get_event_type" ibus_x_event_get_event_type ::
Ptr XEvent ->
IO CInt
xEventGetEventType ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m IBus.Enums.XEventType
xEventGetEventType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m XEventType
xEventGetEventType a
event = IO XEventType -> m XEventType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO XEventType -> m XEventType) -> IO XEventType -> m XEventType
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
CInt
result <- Ptr XEvent -> IO CInt
ibus_x_event_get_event_type Ptr XEvent
event'
let result' :: XEventType
result' = (Int -> XEventType
forall a. Enum a => Int -> a
toEnum (Int -> XEventType) -> (CInt -> Int) -> CInt -> XEventType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
XEventType -> IO XEventType
forall (m :: * -> *) a. Monad m => a -> m a
return XEventType
result'
#if defined(ENABLE_OVERLOADING)
data XEventGetEventTypeMethodInfo
instance (signature ~ (m IBus.Enums.XEventType), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetEventTypeMethodInfo a signature where
overloadedMethod = xEventGetEventType
instance O.OverloadedMethodInfo XEventGetEventTypeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetEventType",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetEventType"
}
#endif
foreign import ccall "ibus_x_event_get_group" ibus_x_event_get_group ::
Ptr XEvent ->
IO Word8
xEventGetGroup ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Word8
xEventGetGroup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Word8
xEventGetGroup a
event = IO Word8 -> m Word8
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word8 -> m Word8) -> IO Word8 -> m Word8
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Word8
result <- Ptr XEvent -> IO Word8
ibus_x_event_get_group Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Word8 -> IO Word8
forall (m :: * -> *) a. Monad m => a -> m a
return Word8
result
#if defined(ENABLE_OVERLOADING)
data XEventGetGroupMethodInfo
instance (signature ~ (m Word8), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetGroupMethodInfo a signature where
overloadedMethod = xEventGetGroup
instance O.OverloadedMethodInfo XEventGetGroupMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetGroup",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetGroup"
}
#endif
foreign import ccall "ibus_x_event_get_hardware_keycode" ibus_x_event_get_hardware_keycode ::
Ptr XEvent ->
IO Word16
xEventGetHardwareKeycode ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Word16
xEventGetHardwareKeycode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Word16
xEventGetHardwareKeycode a
event = IO Word16 -> m Word16
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word16 -> m Word16) -> IO Word16 -> m Word16
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Word16
result <- Ptr XEvent -> IO Word16
ibus_x_event_get_hardware_keycode Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Word16 -> IO Word16
forall (m :: * -> *) a. Monad m => a -> m a
return Word16
result
#if defined(ENABLE_OVERLOADING)
data XEventGetHardwareKeycodeMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetHardwareKeycodeMethodInfo a signature where
overloadedMethod = xEventGetHardwareKeycode
instance O.OverloadedMethodInfo XEventGetHardwareKeycodeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetHardwareKeycode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetHardwareKeycode"
}
#endif
foreign import ccall "ibus_x_event_get_is_modifier" ibus_x_event_get_is_modifier ::
Ptr XEvent ->
IO CInt
xEventGetIsModifier ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Bool
xEventGetIsModifier :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Bool
xEventGetIsModifier a
event = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
CInt
result <- Ptr XEvent -> IO CInt
ibus_x_event_get_is_modifier Ptr XEvent
event'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data XEventGetIsModifierMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetIsModifierMethodInfo a signature where
overloadedMethod = xEventGetIsModifier
instance O.OverloadedMethodInfo XEventGetIsModifierMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetIsModifier",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetIsModifier"
}
#endif
foreign import ccall "ibus_x_event_get_keyval" ibus_x_event_get_keyval ::
Ptr XEvent ->
IO Word32
xEventGetKeyval ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Word32
xEventGetKeyval :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Word32
xEventGetKeyval a
event = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Word32
result <- Ptr XEvent -> IO Word32
ibus_x_event_get_keyval Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data XEventGetKeyvalMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetKeyvalMethodInfo a signature where
overloadedMethod = xEventGetKeyval
instance O.OverloadedMethodInfo XEventGetKeyvalMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetKeyval",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetKeyval"
}
#endif
foreign import ccall "ibus_x_event_get_length" ibus_x_event_get_length ::
Ptr XEvent ->
IO Int32
xEventGetLength ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Int32
xEventGetLength :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Int32
xEventGetLength a
event = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Int32
result <- Ptr XEvent -> IO Int32
ibus_x_event_get_length Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data XEventGetLengthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetLengthMethodInfo a signature where
overloadedMethod = xEventGetLength
instance O.OverloadedMethodInfo XEventGetLengthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetLength",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetLength"
}
#endif
foreign import ccall "ibus_x_event_get_purpose" ibus_x_event_get_purpose ::
Ptr XEvent ->
IO CString
xEventGetPurpose ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m T.Text
xEventGetPurpose :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Text
xEventGetPurpose a
event = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
CString
result <- Ptr XEvent -> IO CString
ibus_x_event_get_purpose Ptr XEvent
event'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"xEventGetPurpose" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data XEventGetPurposeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetPurposeMethodInfo a signature where
overloadedMethod = xEventGetPurpose
instance O.OverloadedMethodInfo XEventGetPurposeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetPurpose",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetPurpose"
}
#endif
foreign import ccall "ibus_x_event_get_root" ibus_x_event_get_root ::
Ptr XEvent ->
IO Word32
xEventGetRoot ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Word32
xEventGetRoot :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Word32
xEventGetRoot a
event = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Word32
result <- Ptr XEvent -> IO Word32
ibus_x_event_get_root Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data XEventGetRootMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetRootMethodInfo a signature where
overloadedMethod = xEventGetRoot
instance O.OverloadedMethodInfo XEventGetRootMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetRoot",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetRoot"
}
#endif
foreign import ccall "ibus_x_event_get_same_screen" ibus_x_event_get_same_screen ::
Ptr XEvent ->
IO CInt
xEventGetSameScreen ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Bool
xEventGetSameScreen :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Bool
xEventGetSameScreen a
event = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
CInt
result <- Ptr XEvent -> IO CInt
ibus_x_event_get_same_screen Ptr XEvent
event'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data XEventGetSameScreenMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetSameScreenMethodInfo a signature where
overloadedMethod = xEventGetSameScreen
instance O.OverloadedMethodInfo XEventGetSameScreenMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetSameScreen",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetSameScreen"
}
#endif
foreign import ccall "ibus_x_event_get_send_event" ibus_x_event_get_send_event ::
Ptr XEvent ->
IO Int8
xEventGetSendEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Int8
xEventGetSendEvent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Int8
xEventGetSendEvent a
event = IO Int8 -> m Int8
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int8 -> m Int8) -> IO Int8 -> m Int8
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Int8
result <- Ptr XEvent -> IO Int8
ibus_x_event_get_send_event Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Int8 -> IO Int8
forall (m :: * -> *) a. Monad m => a -> m a
return Int8
result
#if defined(ENABLE_OVERLOADING)
data XEventGetSendEventMethodInfo
instance (signature ~ (m Int8), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetSendEventMethodInfo a signature where
overloadedMethod = xEventGetSendEvent
instance O.OverloadedMethodInfo XEventGetSendEventMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetSendEvent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetSendEvent"
}
#endif
foreign import ccall "ibus_x_event_get_serial" ibus_x_event_get_serial ::
Ptr XEvent ->
IO CULong
xEventGetSerial ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m CULong
xEventGetSerial :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m CULong
xEventGetSerial a
event = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
CULong
result <- Ptr XEvent -> IO CULong
ibus_x_event_get_serial Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result
#if defined(ENABLE_OVERLOADING)
data XEventGetSerialMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetSerialMethodInfo a signature where
overloadedMethod = xEventGetSerial
instance O.OverloadedMethodInfo XEventGetSerialMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetSerial",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetSerial"
}
#endif
foreign import ccall "ibus_x_event_get_state" ibus_x_event_get_state ::
Ptr XEvent ->
IO Word32
xEventGetState ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Word32
xEventGetState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Word32
xEventGetState a
event = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Word32
result <- Ptr XEvent -> IO Word32
ibus_x_event_get_state Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data XEventGetStateMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetStateMethodInfo a signature where
overloadedMethod = xEventGetState
instance O.OverloadedMethodInfo XEventGetStateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetState",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetState"
}
#endif
foreign import ccall "ibus_x_event_get_string" ibus_x_event_get_string ::
Ptr XEvent ->
IO CString
xEventGetString ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m T.Text
xEventGetString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Text
xEventGetString a
event = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
CString
result <- Ptr XEvent -> IO CString
ibus_x_event_get_string Ptr XEvent
event'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"xEventGetString" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data XEventGetStringMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetStringMethodInfo a signature where
overloadedMethod = xEventGetString
instance O.OverloadedMethodInfo XEventGetStringMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetString",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetString"
}
#endif
foreign import ccall "ibus_x_event_get_subwindow" ibus_x_event_get_subwindow ::
Ptr XEvent ->
IO Word32
xEventGetSubwindow ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Word32
xEventGetSubwindow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Word32
xEventGetSubwindow a
event = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Word32
result <- Ptr XEvent -> IO Word32
ibus_x_event_get_subwindow Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data XEventGetSubwindowMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetSubwindowMethodInfo a signature where
overloadedMethod = xEventGetSubwindow
instance O.OverloadedMethodInfo XEventGetSubwindowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetSubwindow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetSubwindow"
}
#endif
foreign import ccall "ibus_x_event_get_time" ibus_x_event_get_time ::
Ptr XEvent ->
IO Word32
xEventGetTime ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Word32
xEventGetTime :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Word32
xEventGetTime a
event = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Word32
result <- Ptr XEvent -> IO Word32
ibus_x_event_get_time Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data XEventGetTimeMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetTimeMethodInfo a signature where
overloadedMethod = xEventGetTime
instance O.OverloadedMethodInfo XEventGetTimeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetTime",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetTime"
}
#endif
foreign import ccall "ibus_x_event_get_version" ibus_x_event_get_version ::
Ptr XEvent ->
IO Word32
xEventGetVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Word32
xEventGetVersion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Word32
xEventGetVersion a
event = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Word32
result <- Ptr XEvent -> IO Word32
ibus_x_event_get_version Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data XEventGetVersionMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetVersionMethodInfo a signature where
overloadedMethod = xEventGetVersion
instance O.OverloadedMethodInfo XEventGetVersionMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetVersion",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetVersion"
}
#endif
foreign import ccall "ibus_x_event_get_window" ibus_x_event_get_window ::
Ptr XEvent ->
IO Word32
xEventGetWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Word32
xEventGetWindow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Word32
xEventGetWindow a
event = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Word32
result <- Ptr XEvent -> IO Word32
ibus_x_event_get_window Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data XEventGetWindowMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetWindowMethodInfo a signature where
overloadedMethod = xEventGetWindow
instance O.OverloadedMethodInfo XEventGetWindowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetWindow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetWindow"
}
#endif
foreign import ccall "ibus_x_event_get_x" ibus_x_event_get_x ::
Ptr XEvent ->
IO Int32
xEventGetX ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Int32
xEventGetX :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Int32
xEventGetX a
event = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Int32
result <- Ptr XEvent -> IO Int32
ibus_x_event_get_x Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data XEventGetXMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetXMethodInfo a signature where
overloadedMethod = xEventGetX
instance O.OverloadedMethodInfo XEventGetXMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetX",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetX"
}
#endif
foreign import ccall "ibus_x_event_get_x_root" ibus_x_event_get_x_root ::
Ptr XEvent ->
IO Int32
xEventGetXRoot ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Int32
xEventGetXRoot :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Int32
xEventGetXRoot a
event = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Int32
result <- Ptr XEvent -> IO Int32
ibus_x_event_get_x_root Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data XEventGetXRootMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetXRootMethodInfo a signature where
overloadedMethod = xEventGetXRoot
instance O.OverloadedMethodInfo XEventGetXRootMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetXRoot",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetXRoot"
}
#endif
foreign import ccall "ibus_x_event_get_y" ibus_x_event_get_y ::
Ptr XEvent ->
IO Int32
xEventGetY ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Int32
xEventGetY :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Int32
xEventGetY a
event = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Int32
result <- Ptr XEvent -> IO Int32
ibus_x_event_get_y Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data XEventGetYMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetYMethodInfo a signature where
overloadedMethod = xEventGetY
instance O.OverloadedMethodInfo XEventGetYMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetY",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetY"
}
#endif
foreign import ccall "ibus_x_event_get_y_root" ibus_x_event_get_y_root ::
Ptr XEvent ->
IO Int32
xEventGetYRoot ::
(B.CallStack.HasCallStack, MonadIO m, IsXEvent a) =>
a
-> m Int32
xEventGetYRoot :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsXEvent a) =>
a -> m Int32
xEventGetYRoot a
event = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr XEvent
event' <- a -> IO (Ptr XEvent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
event
Int32
result <- Ptr XEvent -> IO Int32
ibus_x_event_get_y_root Ptr XEvent
event'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
event
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data XEventGetYRootMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsXEvent a) => O.OverloadedMethod XEventGetYRootMethodInfo a signature where
overloadedMethod = xEventGetYRoot
instance O.OverloadedMethodInfo XEventGetYRootMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.IBus.Objects.XEvent.xEventGetYRoot",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ibus-1.5.3/docs/GI-IBus-Objects-XEvent.html#v:xEventGetYRoot"
}
#endif