{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GdkX11.Objects.X11DeviceCore
(
X11DeviceCore(..) ,
IsX11DeviceCore ,
toX11DeviceCore ,
#if defined(ENABLE_OVERLOADING)
ResolveX11DeviceCoreMethod ,
#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.Coerce as Coerce
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 qualified GI.Gdk.Objects.Device as Gdk.Device
newtype X11DeviceCore = X11DeviceCore (SP.ManagedPtr X11DeviceCore)
deriving (X11DeviceCore -> X11DeviceCore -> Bool
(X11DeviceCore -> X11DeviceCore -> Bool)
-> (X11DeviceCore -> X11DeviceCore -> Bool) -> Eq X11DeviceCore
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: X11DeviceCore -> X11DeviceCore -> Bool
$c/= :: X11DeviceCore -> X11DeviceCore -> Bool
== :: X11DeviceCore -> X11DeviceCore -> Bool
$c== :: X11DeviceCore -> X11DeviceCore -> Bool
Eq)
instance SP.ManagedPtrNewtype X11DeviceCore where
toManagedPtr :: X11DeviceCore -> ManagedPtr X11DeviceCore
toManagedPtr (X11DeviceCore ManagedPtr X11DeviceCore
p) = ManagedPtr X11DeviceCore
p
foreign import ccall "gdk_x11_device_core_get_type"
c_gdk_x11_device_core_get_type :: IO B.Types.GType
instance B.Types.TypedObject X11DeviceCore where
glibType :: IO GType
glibType = IO GType
c_gdk_x11_device_core_get_type
instance B.Types.GObject X11DeviceCore
class (SP.GObject o, O.IsDescendantOf X11DeviceCore o) => IsX11DeviceCore o
instance (SP.GObject o, O.IsDescendantOf X11DeviceCore o) => IsX11DeviceCore o
instance O.HasParentTypes X11DeviceCore
type instance O.ParentTypes X11DeviceCore = '[Gdk.Device.Device, GObject.Object.Object]
toX11DeviceCore :: (MIO.MonadIO m, IsX11DeviceCore o) => o -> m X11DeviceCore
toX11DeviceCore :: forall (m :: * -> *) o.
(MonadIO m, IsX11DeviceCore o) =>
o -> m X11DeviceCore
toX11DeviceCore = IO X11DeviceCore -> m X11DeviceCore
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO X11DeviceCore -> m X11DeviceCore)
-> (o -> IO X11DeviceCore) -> o -> m X11DeviceCore
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr X11DeviceCore -> X11DeviceCore)
-> o -> IO X11DeviceCore
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr X11DeviceCore -> X11DeviceCore
X11DeviceCore
instance B.GValue.IsGValue (Maybe X11DeviceCore) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gdk_x11_device_core_get_type
gvalueSet_ :: Ptr GValue -> Maybe X11DeviceCore -> IO ()
gvalueSet_ Ptr GValue
gv Maybe X11DeviceCore
P.Nothing = Ptr GValue -> Ptr X11DeviceCore -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr X11DeviceCore
forall a. Ptr a
FP.nullPtr :: FP.Ptr X11DeviceCore)
gvalueSet_ Ptr GValue
gv (P.Just X11DeviceCore
obj) = X11DeviceCore -> (Ptr X11DeviceCore -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr X11DeviceCore
obj (Ptr GValue -> Ptr X11DeviceCore -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe X11DeviceCore)
gvalueGet_ Ptr GValue
gv = do
Ptr X11DeviceCore
ptr <- Ptr GValue -> IO (Ptr X11DeviceCore)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr X11DeviceCore)
if Ptr X11DeviceCore
ptr Ptr X11DeviceCore -> Ptr X11DeviceCore -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr X11DeviceCore
forall a. Ptr a
FP.nullPtr
then X11DeviceCore -> Maybe X11DeviceCore
forall a. a -> Maybe a
P.Just (X11DeviceCore -> Maybe X11DeviceCore)
-> IO X11DeviceCore -> IO (Maybe X11DeviceCore)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr X11DeviceCore -> X11DeviceCore)
-> Ptr X11DeviceCore -> IO X11DeviceCore
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr X11DeviceCore -> X11DeviceCore
X11DeviceCore Ptr X11DeviceCore
ptr
else Maybe X11DeviceCore -> IO (Maybe X11DeviceCore)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe X11DeviceCore
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveX11DeviceCoreMethod (t :: Symbol) (o :: *) :: * where
ResolveX11DeviceCoreMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveX11DeviceCoreMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveX11DeviceCoreMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveX11DeviceCoreMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveX11DeviceCoreMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveX11DeviceCoreMethod "grab" o = Gdk.Device.DeviceGrabMethodInfo
ResolveX11DeviceCoreMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveX11DeviceCoreMethod "listAxes" o = Gdk.Device.DeviceListAxesMethodInfo
ResolveX11DeviceCoreMethod "listSlaveDevices" o = Gdk.Device.DeviceListSlaveDevicesMethodInfo
ResolveX11DeviceCoreMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveX11DeviceCoreMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveX11DeviceCoreMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveX11DeviceCoreMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveX11DeviceCoreMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveX11DeviceCoreMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveX11DeviceCoreMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveX11DeviceCoreMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveX11DeviceCoreMethod "ungrab" o = Gdk.Device.DeviceUngrabMethodInfo
ResolveX11DeviceCoreMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveX11DeviceCoreMethod "warp" o = Gdk.Device.DeviceWarpMethodInfo
ResolveX11DeviceCoreMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveX11DeviceCoreMethod "getAssociatedDevice" o = Gdk.Device.DeviceGetAssociatedDeviceMethodInfo
ResolveX11DeviceCoreMethod "getAxes" o = Gdk.Device.DeviceGetAxesMethodInfo
ResolveX11DeviceCoreMethod "getAxisUse" o = Gdk.Device.DeviceGetAxisUseMethodInfo
ResolveX11DeviceCoreMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveX11DeviceCoreMethod "getDeviceType" o = Gdk.Device.DeviceGetDeviceTypeMethodInfo
ResolveX11DeviceCoreMethod "getDisplay" o = Gdk.Device.DeviceGetDisplayMethodInfo
ResolveX11DeviceCoreMethod "getHasCursor" o = Gdk.Device.DeviceGetHasCursorMethodInfo
ResolveX11DeviceCoreMethod "getKey" o = Gdk.Device.DeviceGetKeyMethodInfo
ResolveX11DeviceCoreMethod "getLastEventWindow" o = Gdk.Device.DeviceGetLastEventWindowMethodInfo
ResolveX11DeviceCoreMethod "getMode" o = Gdk.Device.DeviceGetModeMethodInfo
ResolveX11DeviceCoreMethod "getNAxes" o = Gdk.Device.DeviceGetNAxesMethodInfo
ResolveX11DeviceCoreMethod "getNKeys" o = Gdk.Device.DeviceGetNKeysMethodInfo
ResolveX11DeviceCoreMethod "getName" o = Gdk.Device.DeviceGetNameMethodInfo
ResolveX11DeviceCoreMethod "getPosition" o = Gdk.Device.DeviceGetPositionMethodInfo
ResolveX11DeviceCoreMethod "getPositionDouble" o = Gdk.Device.DeviceGetPositionDoubleMethodInfo
ResolveX11DeviceCoreMethod "getProductId" o = Gdk.Device.DeviceGetProductIdMethodInfo
ResolveX11DeviceCoreMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveX11DeviceCoreMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveX11DeviceCoreMethod "getSeat" o = Gdk.Device.DeviceGetSeatMethodInfo
ResolveX11DeviceCoreMethod "getSource" o = Gdk.Device.DeviceGetSourceMethodInfo
ResolveX11DeviceCoreMethod "getVendorId" o = Gdk.Device.DeviceGetVendorIdMethodInfo
ResolveX11DeviceCoreMethod "getWindowAtPosition" o = Gdk.Device.DeviceGetWindowAtPositionMethodInfo
ResolveX11DeviceCoreMethod "getWindowAtPositionDouble" o = Gdk.Device.DeviceGetWindowAtPositionDoubleMethodInfo
ResolveX11DeviceCoreMethod "setAxisUse" o = Gdk.Device.DeviceSetAxisUseMethodInfo
ResolveX11DeviceCoreMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveX11DeviceCoreMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveX11DeviceCoreMethod "setKey" o = Gdk.Device.DeviceSetKeyMethodInfo
ResolveX11DeviceCoreMethod "setMode" o = Gdk.Device.DeviceSetModeMethodInfo
ResolveX11DeviceCoreMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveX11DeviceCoreMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveX11DeviceCoreMethod t X11DeviceCore, O.OverloadedMethod info X11DeviceCore p) => OL.IsLabel t (X11DeviceCore -> 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 ~ ResolveX11DeviceCoreMethod t X11DeviceCore, O.OverloadedMethod info X11DeviceCore p, R.HasField t X11DeviceCore p) => R.HasField t X11DeviceCore p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveX11DeviceCoreMethod t X11DeviceCore, O.OverloadedMethodInfo info X11DeviceCore) => OL.IsLabel t (O.MethodProxy info X11DeviceCore) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList X11DeviceCore
type instance O.AttributeList X11DeviceCore = X11DeviceCoreAttributeList
type X11DeviceCoreAttributeList = ('[ '("associatedDevice", Gdk.Device.DeviceAssociatedDevicePropertyInfo), '("axes", Gdk.Device.DeviceAxesPropertyInfo), '("deviceManager", Gdk.Device.DeviceDeviceManagerPropertyInfo), '("display", Gdk.Device.DeviceDisplayPropertyInfo), '("hasCursor", Gdk.Device.DeviceHasCursorPropertyInfo), '("inputMode", Gdk.Device.DeviceInputModePropertyInfo), '("inputSource", Gdk.Device.DeviceInputSourcePropertyInfo), '("nAxes", Gdk.Device.DeviceNAxesPropertyInfo), '("name", Gdk.Device.DeviceNamePropertyInfo), '("numTouches", Gdk.Device.DeviceNumTouchesPropertyInfo), '("productId", Gdk.Device.DeviceProductIdPropertyInfo), '("seat", Gdk.Device.DeviceSeatPropertyInfo), '("tool", Gdk.Device.DeviceToolPropertyInfo), '("type", Gdk.Device.DeviceTypePropertyInfo), '("vendorId", Gdk.Device.DeviceVendorIdPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList X11DeviceCore = X11DeviceCoreSignalList
type X11DeviceCoreSignalList = ('[ '("changed", Gdk.Device.DeviceChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("toolChanged", Gdk.Device.DeviceToolChangedSignalInfo)] :: [(Symbol, *)])
#endif