{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GdkX11.Objects.X11Display
(
#if defined(ENABLE_OVERLOADING)
X11DisplayStringToCompoundTextMethodInfo,
#endif
#if defined(ENABLE_OVERLOADING)
X11DisplayUtf8ToCompoundTextMethodInfo ,
#endif
X11Display(..) ,
IsX11Display ,
toX11Display ,
#if defined(ENABLE_OVERLOADING)
ResolveX11DisplayMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
X11DisplayErrorTrapPopMethodInfo ,
#endif
x11DisplayErrorTrapPop ,
#if defined(ENABLE_OVERLOADING)
X11DisplayErrorTrapPopIgnoredMethodInfo ,
#endif
x11DisplayErrorTrapPopIgnored ,
#if defined(ENABLE_OVERLOADING)
X11DisplayErrorTrapPushMethodInfo ,
#endif
x11DisplayErrorTrapPush ,
x11DisplayGetGlxVersion ,
#if defined(ENABLE_OVERLOADING)
X11DisplayGetStartupNotificationIdMethodInfo,
#endif
x11DisplayGetStartupNotificationId ,
#if defined(ENABLE_OVERLOADING)
X11DisplayGetUserTimeMethodInfo ,
#endif
x11DisplayGetUserTime ,
#if defined(ENABLE_OVERLOADING)
X11DisplayGetXdisplayMethodInfo ,
#endif
x11DisplayGetXdisplay ,
#if defined(ENABLE_OVERLOADING)
X11DisplayGrabMethodInfo ,
#endif
x11DisplayGrab ,
#if defined(ENABLE_OVERLOADING)
X11DisplaySetCursorThemeMethodInfo ,
#endif
x11DisplaySetCursorTheme ,
#if defined(ENABLE_OVERLOADING)
X11DisplaySetStartupNotificationIdMethodInfo,
#endif
x11DisplaySetStartupNotificationId ,
#if defined(ENABLE_OVERLOADING)
X11DisplaySetWindowScaleMethodInfo ,
#endif
x11DisplaySetWindowScale ,
#if defined(ENABLE_OVERLOADING)
X11DisplayTextPropertyToTextListMethodInfo,
#endif
x11DisplayTextPropertyToTextList ,
#if defined(ENABLE_OVERLOADING)
X11DisplayUngrabMethodInfo ,
#endif
x11DisplayUngrab ,
) 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.Display as Gdk.Display
import qualified GI.Gdk.Structs.Atom as Gdk.Atom
import qualified GI.Xlib.Structs.Display as Xlib.Display
newtype X11Display = X11Display (SP.ManagedPtr X11Display)
deriving (X11Display -> X11Display -> Bool
(X11Display -> X11Display -> Bool)
-> (X11Display -> X11Display -> Bool) -> Eq X11Display
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: X11Display -> X11Display -> Bool
$c/= :: X11Display -> X11Display -> Bool
== :: X11Display -> X11Display -> Bool
$c== :: X11Display -> X11Display -> Bool
Eq)
instance SP.ManagedPtrNewtype X11Display where
toManagedPtr :: X11Display -> ManagedPtr X11Display
toManagedPtr (X11Display ManagedPtr X11Display
p) = ManagedPtr X11Display
p
foreign import ccall "gdk_x11_display_get_type"
c_gdk_x11_display_get_type :: IO B.Types.GType
instance B.Types.TypedObject X11Display where
glibType :: IO GType
glibType = IO GType
c_gdk_x11_display_get_type
instance B.Types.GObject X11Display
class (SP.GObject o, O.IsDescendantOf X11Display o) => IsX11Display o
instance (SP.GObject o, O.IsDescendantOf X11Display o) => IsX11Display o
instance O.HasParentTypes X11Display
type instance O.ParentTypes X11Display = '[Gdk.Display.Display, GObject.Object.Object]
toX11Display :: (MIO.MonadIO m, IsX11Display o) => o -> m X11Display
toX11Display :: forall (m :: * -> *) o.
(MonadIO m, IsX11Display o) =>
o -> m X11Display
toX11Display = IO X11Display -> m X11Display
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO X11Display -> m X11Display)
-> (o -> IO X11Display) -> o -> m X11Display
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr X11Display -> X11Display) -> o -> IO X11Display
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr X11Display -> X11Display
X11Display
instance B.GValue.IsGValue (Maybe X11Display) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gdk_x11_display_get_type
gvalueSet_ :: Ptr GValue -> Maybe X11Display -> IO ()
gvalueSet_ Ptr GValue
gv Maybe X11Display
P.Nothing = Ptr GValue -> Ptr X11Display -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr X11Display
forall a. Ptr a
FP.nullPtr :: FP.Ptr X11Display)
gvalueSet_ Ptr GValue
gv (P.Just X11Display
obj) = X11Display -> (Ptr X11Display -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr X11Display
obj (Ptr GValue -> Ptr X11Display -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe X11Display)
gvalueGet_ Ptr GValue
gv = do
Ptr X11Display
ptr <- Ptr GValue -> IO (Ptr X11Display)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr X11Display)
if Ptr X11Display
ptr Ptr X11Display -> Ptr X11Display -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr X11Display
forall a. Ptr a
FP.nullPtr
then X11Display -> Maybe X11Display
forall a. a -> Maybe a
P.Just (X11Display -> Maybe X11Display)
-> IO X11Display -> IO (Maybe X11Display)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr X11Display -> X11Display)
-> Ptr X11Display -> IO X11Display
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr X11Display -> X11Display
X11Display Ptr X11Display
ptr
else Maybe X11Display -> IO (Maybe X11Display)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe X11Display
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveX11DisplayMethod (t :: Symbol) (o :: *) :: * where
ResolveX11DisplayMethod "beep" o = Gdk.Display.DisplayBeepMethodInfo
ResolveX11DisplayMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveX11DisplayMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveX11DisplayMethod "close" o = Gdk.Display.DisplayCloseMethodInfo
ResolveX11DisplayMethod "deviceIsGrabbed" o = Gdk.Display.DisplayDeviceIsGrabbedMethodInfo
ResolveX11DisplayMethod "errorTrapPop" o = X11DisplayErrorTrapPopMethodInfo
ResolveX11DisplayMethod "errorTrapPopIgnored" o = X11DisplayErrorTrapPopIgnoredMethodInfo
ResolveX11DisplayMethod "errorTrapPush" o = X11DisplayErrorTrapPushMethodInfo
ResolveX11DisplayMethod "flush" o = Gdk.Display.DisplayFlushMethodInfo
ResolveX11DisplayMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveX11DisplayMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveX11DisplayMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveX11DisplayMethod "grab" o = X11DisplayGrabMethodInfo
ResolveX11DisplayMethod "hasPending" o = Gdk.Display.DisplayHasPendingMethodInfo
ResolveX11DisplayMethod "isClosed" o = Gdk.Display.DisplayIsClosedMethodInfo
ResolveX11DisplayMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveX11DisplayMethod "keyboardUngrab" o = Gdk.Display.DisplayKeyboardUngrabMethodInfo
ResolveX11DisplayMethod "listDevices" o = Gdk.Display.DisplayListDevicesMethodInfo
ResolveX11DisplayMethod "listSeats" o = Gdk.Display.DisplayListSeatsMethodInfo
ResolveX11DisplayMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveX11DisplayMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveX11DisplayMethod "notifyStartupComplete" o = Gdk.Display.DisplayNotifyStartupCompleteMethodInfo
ResolveX11DisplayMethod "peekEvent" o = Gdk.Display.DisplayPeekEventMethodInfo
ResolveX11DisplayMethod "pointerIsGrabbed" o = Gdk.Display.DisplayPointerIsGrabbedMethodInfo
ResolveX11DisplayMethod "pointerUngrab" o = Gdk.Display.DisplayPointerUngrabMethodInfo
ResolveX11DisplayMethod "putEvent" o = Gdk.Display.DisplayPutEventMethodInfo
ResolveX11DisplayMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveX11DisplayMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveX11DisplayMethod "requestSelectionNotification" o = Gdk.Display.DisplayRequestSelectionNotificationMethodInfo
ResolveX11DisplayMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveX11DisplayMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveX11DisplayMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveX11DisplayMethod "storeClipboard" o = Gdk.Display.DisplayStoreClipboardMethodInfo
ResolveX11DisplayMethod "stringToCompoundText" o = X11DisplayStringToCompoundTextMethodInfo
ResolveX11DisplayMethod "supportsClipboardPersistence" o = Gdk.Display.DisplaySupportsClipboardPersistenceMethodInfo
ResolveX11DisplayMethod "supportsComposite" o = Gdk.Display.DisplaySupportsCompositeMethodInfo
ResolveX11DisplayMethod "supportsCursorAlpha" o = Gdk.Display.DisplaySupportsCursorAlphaMethodInfo
ResolveX11DisplayMethod "supportsCursorColor" o = Gdk.Display.DisplaySupportsCursorColorMethodInfo
ResolveX11DisplayMethod "supportsInputShapes" o = Gdk.Display.DisplaySupportsInputShapesMethodInfo
ResolveX11DisplayMethod "supportsSelectionNotification" o = Gdk.Display.DisplaySupportsSelectionNotificationMethodInfo
ResolveX11DisplayMethod "supportsShapes" o = Gdk.Display.DisplaySupportsShapesMethodInfo
ResolveX11DisplayMethod "sync" o = Gdk.Display.DisplaySyncMethodInfo
ResolveX11DisplayMethod "textPropertyToTextList" o = X11DisplayTextPropertyToTextListMethodInfo
ResolveX11DisplayMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveX11DisplayMethod "ungrab" o = X11DisplayUngrabMethodInfo
ResolveX11DisplayMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveX11DisplayMethod "utf8ToCompoundText" o = X11DisplayUtf8ToCompoundTextMethodInfo
ResolveX11DisplayMethod "warpPointer" o = Gdk.Display.DisplayWarpPointerMethodInfo
ResolveX11DisplayMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveX11DisplayMethod "getAppLaunchContext" o = Gdk.Display.DisplayGetAppLaunchContextMethodInfo
ResolveX11DisplayMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveX11DisplayMethod "getDefaultCursorSize" o = Gdk.Display.DisplayGetDefaultCursorSizeMethodInfo
ResolveX11DisplayMethod "getDefaultGroup" o = Gdk.Display.DisplayGetDefaultGroupMethodInfo
ResolveX11DisplayMethod "getDefaultScreen" o = Gdk.Display.DisplayGetDefaultScreenMethodInfo
ResolveX11DisplayMethod "getDefaultSeat" o = Gdk.Display.DisplayGetDefaultSeatMethodInfo
ResolveX11DisplayMethod "getDeviceManager" o = Gdk.Display.DisplayGetDeviceManagerMethodInfo
ResolveX11DisplayMethod "getEvent" o = Gdk.Display.DisplayGetEventMethodInfo
ResolveX11DisplayMethod "getMaximalCursorSize" o = Gdk.Display.DisplayGetMaximalCursorSizeMethodInfo
ResolveX11DisplayMethod "getMonitor" o = Gdk.Display.DisplayGetMonitorMethodInfo
ResolveX11DisplayMethod "getMonitorAtPoint" o = Gdk.Display.DisplayGetMonitorAtPointMethodInfo
ResolveX11DisplayMethod "getMonitorAtWindow" o = Gdk.Display.DisplayGetMonitorAtWindowMethodInfo
ResolveX11DisplayMethod "getNMonitors" o = Gdk.Display.DisplayGetNMonitorsMethodInfo
ResolveX11DisplayMethod "getNScreens" o = Gdk.Display.DisplayGetNScreensMethodInfo
ResolveX11DisplayMethod "getName" o = Gdk.Display.DisplayGetNameMethodInfo
ResolveX11DisplayMethod "getPointer" o = Gdk.Display.DisplayGetPointerMethodInfo
ResolveX11DisplayMethod "getPrimaryMonitor" o = Gdk.Display.DisplayGetPrimaryMonitorMethodInfo
ResolveX11DisplayMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveX11DisplayMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveX11DisplayMethod "getScreen" o = Gdk.Display.DisplayGetScreenMethodInfo
ResolveX11DisplayMethod "getStartupNotificationId" o = X11DisplayGetStartupNotificationIdMethodInfo
ResolveX11DisplayMethod "getUserTime" o = X11DisplayGetUserTimeMethodInfo
ResolveX11DisplayMethod "getWindowAtPointer" o = Gdk.Display.DisplayGetWindowAtPointerMethodInfo
ResolveX11DisplayMethod "getXdisplay" o = X11DisplayGetXdisplayMethodInfo
ResolveX11DisplayMethod "setCursorTheme" o = X11DisplaySetCursorThemeMethodInfo
ResolveX11DisplayMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveX11DisplayMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveX11DisplayMethod "setDoubleClickDistance" o = Gdk.Display.DisplaySetDoubleClickDistanceMethodInfo
ResolveX11DisplayMethod "setDoubleClickTime" o = Gdk.Display.DisplaySetDoubleClickTimeMethodInfo
ResolveX11DisplayMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveX11DisplayMethod "setStartupNotificationId" o = X11DisplaySetStartupNotificationIdMethodInfo
ResolveX11DisplayMethod "setWindowScale" o = X11DisplaySetWindowScaleMethodInfo
ResolveX11DisplayMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveX11DisplayMethod t X11Display, O.OverloadedMethod info X11Display p) => OL.IsLabel t (X11Display -> 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 ~ ResolveX11DisplayMethod t X11Display, O.OverloadedMethod info X11Display p, R.HasField t X11Display p) => R.HasField t X11Display p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveX11DisplayMethod t X11Display, O.OverloadedMethodInfo info X11Display) => OL.IsLabel t (O.MethodProxy info X11Display) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList X11Display
type instance O.AttributeList X11Display = X11DisplayAttributeList
type X11DisplayAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList X11Display = X11DisplaySignalList
type X11DisplaySignalList = ('[ '("closed", Gdk.Display.DisplayClosedSignalInfo), '("monitorAdded", Gdk.Display.DisplayMonitorAddedSignalInfo), '("monitorRemoved", Gdk.Display.DisplayMonitorRemovedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("opened", Gdk.Display.DisplayOpenedSignalInfo), '("seatAdded", Gdk.Display.DisplaySeatAddedSignalInfo), '("seatRemoved", Gdk.Display.DisplaySeatRemovedSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gdk_x11_display_error_trap_pop" gdk_x11_display_error_trap_pop ::
Ptr X11Display ->
IO Int32
x11DisplayErrorTrapPop ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Display a) =>
a
-> m Int32
x11DisplayErrorTrapPop :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> m Int32
x11DisplayErrorTrapPop a
display = 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 X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
Int32
result <- Ptr X11Display -> IO Int32
gdk_x11_display_error_trap_pop Ptr X11Display
display'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data X11DisplayErrorTrapPopMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsX11Display a) => O.OverloadedMethod X11DisplayErrorTrapPopMethodInfo a signature where
overloadedMethod = x11DisplayErrorTrapPop
instance O.OverloadedMethodInfo X11DisplayErrorTrapPopMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Display.x11DisplayErrorTrapPop",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Display.html#v:x11DisplayErrorTrapPop"
})
#endif
foreign import ccall "gdk_x11_display_error_trap_pop_ignored" gdk_x11_display_error_trap_pop_ignored ::
Ptr X11Display ->
IO ()
x11DisplayErrorTrapPopIgnored ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Display a) =>
a
-> m ()
x11DisplayErrorTrapPopIgnored :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> m ()
x11DisplayErrorTrapPopIgnored a
display = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
Ptr X11Display -> IO ()
gdk_x11_display_error_trap_pop_ignored Ptr X11Display
display'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11DisplayErrorTrapPopIgnoredMethodInfo
instance (signature ~ (m ()), MonadIO m, IsX11Display a) => O.OverloadedMethod X11DisplayErrorTrapPopIgnoredMethodInfo a signature where
overloadedMethod = x11DisplayErrorTrapPopIgnored
instance O.OverloadedMethodInfo X11DisplayErrorTrapPopIgnoredMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Display.x11DisplayErrorTrapPopIgnored",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Display.html#v:x11DisplayErrorTrapPopIgnored"
})
#endif
foreign import ccall "gdk_x11_display_error_trap_push" gdk_x11_display_error_trap_push ::
Ptr X11Display ->
IO ()
x11DisplayErrorTrapPush ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Display a) =>
a
-> m ()
x11DisplayErrorTrapPush :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> m ()
x11DisplayErrorTrapPush a
display = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
Ptr X11Display -> IO ()
gdk_x11_display_error_trap_push Ptr X11Display
display'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11DisplayErrorTrapPushMethodInfo
instance (signature ~ (m ()), MonadIO m, IsX11Display a) => O.OverloadedMethod X11DisplayErrorTrapPushMethodInfo a signature where
overloadedMethod = x11DisplayErrorTrapPush
instance O.OverloadedMethodInfo X11DisplayErrorTrapPushMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Display.x11DisplayErrorTrapPush",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Display.html#v:x11DisplayErrorTrapPush"
})
#endif
foreign import ccall "gdk_x11_display_get_startup_notification_id" gdk_x11_display_get_startup_notification_id ::
Ptr X11Display ->
IO CString
x11DisplayGetStartupNotificationId ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Display a) =>
a
-> m T.Text
x11DisplayGetStartupNotificationId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> m Text
x11DisplayGetStartupNotificationId a
display = 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 X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
CString
result <- Ptr X11Display -> IO CString
gdk_x11_display_get_startup_notification_id Ptr X11Display
display'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"x11DisplayGetStartupNotificationId" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data X11DisplayGetStartupNotificationIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsX11Display a) => O.OverloadedMethod X11DisplayGetStartupNotificationIdMethodInfo a signature where
overloadedMethod = x11DisplayGetStartupNotificationId
instance O.OverloadedMethodInfo X11DisplayGetStartupNotificationIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Display.x11DisplayGetStartupNotificationId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Display.html#v:x11DisplayGetStartupNotificationId"
})
#endif
foreign import ccall "gdk_x11_display_get_user_time" gdk_x11_display_get_user_time ::
Ptr X11Display ->
IO Word32
x11DisplayGetUserTime ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Display a) =>
a
-> m Word32
x11DisplayGetUserTime :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> m Word32
x11DisplayGetUserTime a
display = 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 X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
Word32
result <- Ptr X11Display -> IO Word32
gdk_x11_display_get_user_time Ptr X11Display
display'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data X11DisplayGetUserTimeMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsX11Display a) => O.OverloadedMethod X11DisplayGetUserTimeMethodInfo a signature where
overloadedMethod = x11DisplayGetUserTime
instance O.OverloadedMethodInfo X11DisplayGetUserTimeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Display.x11DisplayGetUserTime",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Display.html#v:x11DisplayGetUserTime"
})
#endif
foreign import ccall "gdk_x11_display_get_xdisplay" gdk_x11_display_get_xdisplay ::
Ptr X11Display ->
IO (Ptr Xlib.Display.Display)
x11DisplayGetXdisplay ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Display a) =>
a
-> m Xlib.Display.Display
x11DisplayGetXdisplay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> m Display
x11DisplayGetXdisplay a
display = IO Display -> m Display
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Display -> m Display) -> IO Display -> m Display
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
Ptr Display
result <- Ptr X11Display -> IO (Ptr Display)
gdk_x11_display_get_xdisplay Ptr X11Display
display'
Text -> Ptr Display -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"x11DisplayGetXdisplay" Ptr Display
result
Display
result' <- ((ManagedPtr Display -> Display) -> Ptr Display -> IO Display
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Display -> Display
Xlib.Display.Display) Ptr Display
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
Display -> IO Display
forall (m :: * -> *) a. Monad m => a -> m a
return Display
result'
#if defined(ENABLE_OVERLOADING)
data X11DisplayGetXdisplayMethodInfo
instance (signature ~ (m Xlib.Display.Display), MonadIO m, IsX11Display a) => O.OverloadedMethod X11DisplayGetXdisplayMethodInfo a signature where
overloadedMethod = x11DisplayGetXdisplay
instance O.OverloadedMethodInfo X11DisplayGetXdisplayMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Display.x11DisplayGetXdisplay",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Display.html#v:x11DisplayGetXdisplay"
})
#endif
foreign import ccall "gdk_x11_display_grab" gdk_x11_display_grab ::
Ptr X11Display ->
IO ()
x11DisplayGrab ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Display a) =>
a
-> m ()
x11DisplayGrab :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> m ()
x11DisplayGrab a
display = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
Ptr X11Display -> IO ()
gdk_x11_display_grab Ptr X11Display
display'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11DisplayGrabMethodInfo
instance (signature ~ (m ()), MonadIO m, IsX11Display a) => O.OverloadedMethod X11DisplayGrabMethodInfo a signature where
overloadedMethod = x11DisplayGrab
instance O.OverloadedMethodInfo X11DisplayGrabMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Display.x11DisplayGrab",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Display.html#v:x11DisplayGrab"
})
#endif
foreign import ccall "gdk_x11_display_set_cursor_theme" gdk_x11_display_set_cursor_theme ::
Ptr X11Display ->
CString ->
Int32 ->
IO ()
x11DisplaySetCursorTheme ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Display a) =>
a
-> Maybe (T.Text)
-> Int32
-> m ()
x11DisplaySetCursorTheme :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> Maybe Text -> Int32 -> m ()
x11DisplaySetCursorTheme a
display Maybe Text
theme Int32
size = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
CString
maybeTheme <- case Maybe Text
theme of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jTheme -> do
CString
jTheme' <- Text -> IO CString
textToCString Text
jTheme
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jTheme'
Ptr X11Display -> CString -> Int32 -> IO ()
gdk_x11_display_set_cursor_theme Ptr X11Display
display' CString
maybeTheme Int32
size
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeTheme
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11DisplaySetCursorThemeMethodInfo
instance (signature ~ (Maybe (T.Text) -> Int32 -> m ()), MonadIO m, IsX11Display a) => O.OverloadedMethod X11DisplaySetCursorThemeMethodInfo a signature where
overloadedMethod = x11DisplaySetCursorTheme
instance O.OverloadedMethodInfo X11DisplaySetCursorThemeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Display.x11DisplaySetCursorTheme",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Display.html#v:x11DisplaySetCursorTheme"
})
#endif
foreign import ccall "gdk_x11_display_set_startup_notification_id" gdk_x11_display_set_startup_notification_id ::
Ptr X11Display ->
CString ->
IO ()
x11DisplaySetStartupNotificationId ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Display a) =>
a
-> T.Text
-> m ()
x11DisplaySetStartupNotificationId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> Text -> m ()
x11DisplaySetStartupNotificationId a
display Text
startupId = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
CString
startupId' <- Text -> IO CString
textToCString Text
startupId
Ptr X11Display -> CString -> IO ()
gdk_x11_display_set_startup_notification_id Ptr X11Display
display' CString
startupId'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
startupId'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11DisplaySetStartupNotificationIdMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsX11Display a) => O.OverloadedMethod X11DisplaySetStartupNotificationIdMethodInfo a signature where
overloadedMethod = x11DisplaySetStartupNotificationId
instance O.OverloadedMethodInfo X11DisplaySetStartupNotificationIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Display.x11DisplaySetStartupNotificationId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Display.html#v:x11DisplaySetStartupNotificationId"
})
#endif
foreign import ccall "gdk_x11_display_set_window_scale" gdk_x11_display_set_window_scale ::
Ptr X11Display ->
Int32 ->
IO ()
x11DisplaySetWindowScale ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Display a) =>
a
-> Int32
-> m ()
x11DisplaySetWindowScale :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> Int32 -> m ()
x11DisplaySetWindowScale a
display Int32
scale = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
Ptr X11Display -> Int32 -> IO ()
gdk_x11_display_set_window_scale Ptr X11Display
display' Int32
scale
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11DisplaySetWindowScaleMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsX11Display a) => O.OverloadedMethod X11DisplaySetWindowScaleMethodInfo a signature where
overloadedMethod = x11DisplaySetWindowScale
instance O.OverloadedMethodInfo X11DisplaySetWindowScaleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Display.x11DisplaySetWindowScale",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Display.html#v:x11DisplaySetWindowScale"
})
#endif
#if defined(ENABLE_OVERLOADING)
data X11DisplayStringToCompoundTextMethodInfo
instance (p ~ (), o ~ O.UnsupportedMethodError "stringToCompoundText" X11Display) => O.OverloadedMethod X11DisplayStringToCompoundTextMethodInfo o p where
overloadedMethod = undefined
instance (o ~ O.UnsupportedMethodError "stringToCompoundText" X11Display) => O.OverloadedMethodInfo X11DisplayStringToCompoundTextMethodInfo o where
overloadedMethodInfo = undefined
#endif
foreign import ccall "gdk_x11_display_text_property_to_text_list" gdk_x11_display_text_property_to_text_list ::
Ptr X11Display ->
Ptr Gdk.Atom.Atom ->
Int32 ->
Word8 ->
Int32 ->
CString ->
IO Int32
x11DisplayTextPropertyToTextList ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Display a) =>
a
-> Gdk.Atom.Atom
-> Int32
-> Word8
-> Int32
-> T.Text
-> m Int32
x11DisplayTextPropertyToTextList :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> Atom -> Int32 -> Word8 -> Int32 -> Text -> m Int32
x11DisplayTextPropertyToTextList a
display Atom
encoding Int32
format Word8
text Int32
length_ Text
list = 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 X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
Ptr Atom
encoding' <- Atom -> IO (Ptr Atom)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Atom
encoding
CString
list' <- Text -> IO CString
textToCString Text
list
Int32
result <- Ptr X11Display
-> Ptr Atom -> Int32 -> Word8 -> Int32 -> CString -> IO Int32
gdk_x11_display_text_property_to_text_list Ptr X11Display
display' Ptr Atom
encoding' Int32
format Word8
text Int32
length_ CString
list'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
Atom -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Atom
encoding
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
list'
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data X11DisplayTextPropertyToTextListMethodInfo
instance (signature ~ (Gdk.Atom.Atom -> Int32 -> Word8 -> Int32 -> T.Text -> m Int32), MonadIO m, IsX11Display a) => O.OverloadedMethod X11DisplayTextPropertyToTextListMethodInfo a signature where
overloadedMethod = x11DisplayTextPropertyToTextList
instance O.OverloadedMethodInfo X11DisplayTextPropertyToTextListMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Display.x11DisplayTextPropertyToTextList",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Display.html#v:x11DisplayTextPropertyToTextList"
})
#endif
foreign import ccall "gdk_x11_display_ungrab" gdk_x11_display_ungrab ::
Ptr X11Display ->
IO ()
x11DisplayUngrab ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Display a) =>
a
-> m ()
x11DisplayUngrab :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> m ()
x11DisplayUngrab a
display = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
Ptr X11Display -> IO ()
gdk_x11_display_ungrab Ptr X11Display
display'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11DisplayUngrabMethodInfo
instance (signature ~ (m ()), MonadIO m, IsX11Display a) => O.OverloadedMethod X11DisplayUngrabMethodInfo a signature where
overloadedMethod = x11DisplayUngrab
instance O.OverloadedMethodInfo X11DisplayUngrabMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Display.x11DisplayUngrab",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Display.html#v:x11DisplayUngrab"
})
#endif
#if defined(ENABLE_OVERLOADING)
data X11DisplayUtf8ToCompoundTextMethodInfo
instance (p ~ (), o ~ O.UnsupportedMethodError "utf8ToCompoundText" X11Display) => O.OverloadedMethod X11DisplayUtf8ToCompoundTextMethodInfo o p where
overloadedMethod = undefined
instance (o ~ O.UnsupportedMethodError "utf8ToCompoundText" X11Display) => O.OverloadedMethodInfo X11DisplayUtf8ToCompoundTextMethodInfo o where
overloadedMethodInfo = undefined
#endif
foreign import ccall "gdk_x11_display_get_glx_version" gdk_x11_display_get_glx_version ::
Ptr Gdk.Display.Display ->
Ptr Int32 ->
Ptr Int32 ->
IO CInt
x11DisplayGetGlxVersion ::
(B.CallStack.HasCallStack, MonadIO m, Gdk.Display.IsDisplay a) =>
a
-> m ((Bool, Int32, Int32))
x11DisplayGetGlxVersion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDisplay a) =>
a -> m (Bool, Int32, Int32)
x11DisplayGetGlxVersion a
display = IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32))
-> IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr Display
display' <- a -> IO (Ptr Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
Ptr Int32
major <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
minor <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
CInt
result <- Ptr Display -> Ptr Int32 -> Ptr Int32 -> IO CInt
gdk_x11_display_get_glx_version Ptr Display
display' Ptr Int32
major Ptr Int32
minor
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Int32
major' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
major
Int32
minor' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
minor
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
major
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
minor
(Bool, Int32, Int32) -> IO (Bool, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Int32
major', Int32
minor')
#if defined(ENABLE_OVERLOADING)
#endif