#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GdkX11.Functions
(
x11AtomToXatom ,
x11AtomToXatomForDisplay ,
x11DeviceGetId ,
x11DeviceManagerLookup ,
x11FreeCompoundText ,
x11FreeTextList ,
x11GetDefaultRootXwindow ,
x11GetDefaultScreen ,
x11GetDefaultXdisplay ,
x11GetParentRelativePattern ,
x11GetServerTime ,
x11GetXatomByName ,
x11GetXatomByNameForDisplay ,
x11GetXatomName ,
x11GetXatomNameForDisplay ,
x11GrabServer ,
x11LookupXdisplay ,
x11RegisterStandardEventType ,
x11SetSmClientId ,
x11UngrabServer ,
x11XatomToAtom ,
x11XatomToAtomForDisplay ,
) 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.Cairo.Structs.Pattern as Cairo.Pattern
import qualified GI.Gdk.Structs.Atom as Gdk.Atom
import {-# SOURCE #-} qualified GI.GdkX11.Objects.X11DeviceCore as GdkX11.X11DeviceCore
import {-# SOURCE #-} qualified GI.GdkX11.Objects.X11DeviceManagerCore as GdkX11.X11DeviceManagerCore
import {-# SOURCE #-} qualified GI.GdkX11.Objects.X11Display as GdkX11.X11Display
import {-# SOURCE #-} qualified GI.GdkX11.Objects.X11Window as GdkX11.X11Window
import qualified GI.Xlib.Structs.Display as Xlib.Display
foreign import ccall "gdk_x11_xatom_to_atom_for_display" gdk_x11_xatom_to_atom_for_display ::
Ptr GdkX11.X11Display.X11Display ->
CULong ->
IO (Ptr Gdk.Atom.Atom)
x11XatomToAtomForDisplay ::
(B.CallStack.HasCallStack, MonadIO m, GdkX11.X11Display.IsX11Display a) =>
a
-> CULong
-> m Gdk.Atom.Atom
x11XatomToAtomForDisplay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> CULong -> m Atom
x11XatomToAtomForDisplay a
display CULong
xatom = IO Atom -> m Atom
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Atom -> m Atom) -> IO Atom -> m Atom
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
result <- Ptr X11Display -> CULong -> IO (Ptr Atom)
gdk_x11_xatom_to_atom_for_display Ptr X11Display
display' CULong
xatom
Text -> Ptr Atom -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"x11XatomToAtomForDisplay" Ptr Atom
result
Atom
result' <- ((ManagedPtr Atom -> Atom) -> Ptr Atom -> IO Atom
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Atom -> Atom
Gdk.Atom.Atom) Ptr Atom
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
Atom -> IO Atom
forall (m :: * -> *) a. Monad m => a -> m a
return Atom
result'
foreign import ccall "gdk_x11_xatom_to_atom" gdk_x11_xatom_to_atom ::
CULong ->
IO (Ptr Gdk.Atom.Atom)
x11XatomToAtom ::
(B.CallStack.HasCallStack, MonadIO m) =>
CULong
-> m Gdk.Atom.Atom
x11XatomToAtom :: forall (m :: * -> *). (HasCallStack, MonadIO m) => CULong -> m Atom
x11XatomToAtom CULong
xatom = IO Atom -> m Atom
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Atom -> m Atom) -> IO Atom -> m Atom
forall a b. (a -> b) -> a -> b
$ do
Ptr Atom
result <- CULong -> IO (Ptr Atom)
gdk_x11_xatom_to_atom CULong
xatom
Text -> Ptr Atom -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"x11XatomToAtom" Ptr Atom
result
Atom
result' <- ((ManagedPtr Atom -> Atom) -> Ptr Atom -> IO Atom
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Atom -> Atom
Gdk.Atom.Atom) Ptr Atom
result
Atom -> IO Atom
forall (m :: * -> *) a. Monad m => a -> m a
return Atom
result'
foreign import ccall "gdk_x11_ungrab_server" gdk_x11_ungrab_server ::
IO ()
x11UngrabServer ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ()
x11UngrabServer :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m ()
x11UngrabServer = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
IO ()
gdk_x11_ungrab_server
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gdk_x11_set_sm_client_id" gdk_x11_set_sm_client_id ::
CString ->
IO ()
x11SetSmClientId ::
(B.CallStack.HasCallStack, MonadIO m) =>
Maybe (T.Text)
-> m ()
x11SetSmClientId :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Maybe Text -> m ()
x11SetSmClientId Maybe Text
smClientId = 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 CChar
maybeSmClientId <- case Maybe Text
smClientId of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jSmClientId -> do
Ptr CChar
jSmClientId' <- Text -> IO (Ptr CChar)
textToCString Text
jSmClientId
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jSmClientId'
Ptr CChar -> IO ()
gdk_x11_set_sm_client_id Ptr CChar
maybeSmClientId
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeSmClientId
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gdk_x11_register_standard_event_type" gdk_x11_register_standard_event_type ::
Ptr GdkX11.X11Display.X11Display ->
Int32 ->
Int32 ->
IO ()
x11RegisterStandardEventType ::
(B.CallStack.HasCallStack, MonadIO m, GdkX11.X11Display.IsX11Display a) =>
a
-> Int32
-> Int32
-> m ()
x11RegisterStandardEventType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> Int32 -> Int32 -> m ()
x11RegisterStandardEventType a
display Int32
eventBase Int32
nEvents = 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 -> Int32 -> IO ()
gdk_x11_register_standard_event_type Ptr X11Display
display' Int32
eventBase Int32
nEvents
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gdk_x11_lookup_xdisplay" gdk_x11_lookup_xdisplay ::
Ptr Xlib.Display.Display ->
IO (Ptr GdkX11.X11Display.X11Display)
x11LookupXdisplay ::
(B.CallStack.HasCallStack, MonadIO m) =>
Xlib.Display.Display
-> m GdkX11.X11Display.X11Display
x11LookupXdisplay :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Display -> m X11Display
x11LookupXdisplay Display
xdisplay = IO X11Display -> m X11Display
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO X11Display -> m X11Display) -> IO X11Display -> m X11Display
forall a b. (a -> b) -> a -> b
$ do
Ptr Display
xdisplay' <- Display -> IO (Ptr Display)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Display
xdisplay
Ptr X11Display
result <- Ptr Display -> IO (Ptr X11Display)
gdk_x11_lookup_xdisplay Ptr Display
xdisplay'
Text -> Ptr X11Display -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"x11LookupXdisplay" Ptr X11Display
result
X11Display
result' <- ((ManagedPtr X11Display -> X11Display)
-> Ptr X11Display -> IO X11Display
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr X11Display -> X11Display
GdkX11.X11Display.X11Display) Ptr X11Display
result
Display -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Display
xdisplay
X11Display -> IO X11Display
forall (m :: * -> *) a. Monad m => a -> m a
return X11Display
result'
foreign import ccall "gdk_x11_grab_server" gdk_x11_grab_server ::
IO ()
x11GrabServer ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ()
x11GrabServer :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m ()
x11GrabServer = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
IO ()
gdk_x11_grab_server
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gdk_x11_get_xatom_name_for_display" gdk_x11_get_xatom_name_for_display ::
Ptr GdkX11.X11Display.X11Display ->
CULong ->
IO CString
x11GetXatomNameForDisplay ::
(B.CallStack.HasCallStack, MonadIO m, GdkX11.X11Display.IsX11Display a) =>
a
-> CULong
-> m T.Text
x11GetXatomNameForDisplay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> CULong -> m Text
x11GetXatomNameForDisplay a
display CULong
xatom = 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
Ptr CChar
result <- Ptr X11Display -> CULong -> IO (Ptr CChar)
gdk_x11_get_xatom_name_for_display Ptr X11Display
display' CULong
xatom
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"x11GetXatomNameForDisplay" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
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'
foreign import ccall "gdk_x11_get_xatom_name" gdk_x11_get_xatom_name ::
CULong ->
IO CString
x11GetXatomName ::
(B.CallStack.HasCallStack, MonadIO m) =>
CULong
-> m T.Text
x11GetXatomName :: forall (m :: * -> *). (HasCallStack, MonadIO m) => CULong -> m Text
x11GetXatomName CULong
xatom = 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 CChar
result <- CULong -> IO (Ptr CChar)
gdk_x11_get_xatom_name CULong
xatom
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"x11GetXatomName" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
foreign import ccall "gdk_x11_get_xatom_by_name_for_display" gdk_x11_get_xatom_by_name_for_display ::
Ptr GdkX11.X11Display.X11Display ->
CString ->
IO CULong
x11GetXatomByNameForDisplay ::
(B.CallStack.HasCallStack, MonadIO m, GdkX11.X11Display.IsX11Display a) =>
a
-> T.Text
-> m CULong
x11GetXatomByNameForDisplay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> Text -> m CULong
x11GetXatomByNameForDisplay a
display Text
atomName = 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 X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
Ptr CChar
atomName' <- Text -> IO (Ptr CChar)
textToCString Text
atomName
CULong
result <- Ptr X11Display -> Ptr CChar -> IO CULong
gdk_x11_get_xatom_by_name_for_display Ptr X11Display
display' Ptr CChar
atomName'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
atomName'
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result
foreign import ccall "gdk_x11_get_xatom_by_name" gdk_x11_get_xatom_by_name ::
CString ->
IO CULong
x11GetXatomByName ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m CULong
x11GetXatomByName :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Text -> m CULong
x11GetXatomByName Text
atomName = 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 CChar
atomName' <- Text -> IO (Ptr CChar)
textToCString Text
atomName
CULong
result <- Ptr CChar -> IO CULong
gdk_x11_get_xatom_by_name Ptr CChar
atomName'
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
atomName'
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result
foreign import ccall "gdk_x11_get_server_time" gdk_x11_get_server_time ::
Ptr GdkX11.X11Window.X11Window ->
IO Word32
x11GetServerTime ::
(B.CallStack.HasCallStack, MonadIO m, GdkX11.X11Window.IsX11Window a) =>
a
-> m Word32
x11GetServerTime :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Window a) =>
a -> m Word32
x11GetServerTime a
window = 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 X11Window
window' <- a -> IO (Ptr X11Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Word32
result <- Ptr X11Window -> IO Word32
gdk_x11_get_server_time Ptr X11Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
foreign import ccall "gdk_x11_get_parent_relative_pattern" gdk_x11_get_parent_relative_pattern ::
IO (Ptr Cairo.Pattern.Pattern)
{-# DEPRECATED x11GetParentRelativePattern ["(Since version 3.24)","Don\\'t use this function"] #-}
x11GetParentRelativePattern ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Cairo.Pattern.Pattern
x11GetParentRelativePattern :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Pattern
x11GetParentRelativePattern = IO Pattern -> m Pattern
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Pattern -> m Pattern) -> IO Pattern -> m Pattern
forall a b. (a -> b) -> a -> b
$ do
Ptr Pattern
result <- IO (Ptr Pattern)
gdk_x11_get_parent_relative_pattern
Text -> Ptr Pattern -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"x11GetParentRelativePattern" Ptr Pattern
result
Pattern
result' <- ((ManagedPtr Pattern -> Pattern) -> Ptr Pattern -> IO Pattern
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Pattern -> Pattern
Cairo.Pattern.Pattern) Ptr Pattern
result
Pattern -> IO Pattern
forall (m :: * -> *) a. Monad m => a -> m a
return Pattern
result'
foreign import ccall "gdk_x11_get_default_xdisplay" gdk_x11_get_default_xdisplay ::
IO (Ptr Xlib.Display.Display)
x11GetDefaultXdisplay ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Xlib.Display.Display
x11GetDefaultXdisplay :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Display
x11GetDefaultXdisplay = 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 Display
result <- IO (Ptr Display)
gdk_x11_get_default_xdisplay
Text -> Ptr Display -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"x11GetDefaultXdisplay" 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
Display -> IO Display
forall (m :: * -> *) a. Monad m => a -> m a
return Display
result'
foreign import ccall "gdk_x11_get_default_screen" gdk_x11_get_default_screen ::
IO Int32
x11GetDefaultScreen ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Int32
x11GetDefaultScreen :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Int32
x11GetDefaultScreen = 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
Int32
result <- IO Int32
gdk_x11_get_default_screen
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
foreign import ccall "gdk_x11_get_default_root_xwindow" gdk_x11_get_default_root_xwindow ::
IO CULong
x11GetDefaultRootXwindow ::
(B.CallStack.HasCallStack, MonadIO m) =>
m CULong
x11GetDefaultRootXwindow :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m CULong
x11GetDefaultRootXwindow = 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
CULong
result <- IO CULong
gdk_x11_get_default_root_xwindow
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result
foreign import ccall "gdk_x11_free_text_list" gdk_x11_free_text_list ::
CString ->
IO ()
x11FreeTextList ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m ()
x11FreeTextList :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Text -> m ()
x11FreeTextList Text
list = 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 CChar
list' <- Text -> IO (Ptr CChar)
textToCString Text
list
Ptr CChar -> IO ()
gdk_x11_free_text_list Ptr CChar
list'
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
list'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gdk_x11_free_compound_text" gdk_x11_free_compound_text ::
Word8 ->
IO ()
x11FreeCompoundText ::
(B.CallStack.HasCallStack, MonadIO m) =>
Word8
-> m ()
x11FreeCompoundText :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Word8 -> m ()
x11FreeCompoundText Word8
ctext = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Word8 -> IO ()
gdk_x11_free_compound_text Word8
ctext
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gdk_x11_device_manager_lookup" gdk_x11_device_manager_lookup ::
Ptr GdkX11.X11DeviceManagerCore.X11DeviceManagerCore ->
Int32 ->
IO (Ptr GdkX11.X11DeviceCore.X11DeviceCore)
x11DeviceManagerLookup ::
(B.CallStack.HasCallStack, MonadIO m, GdkX11.X11DeviceManagerCore.IsX11DeviceManagerCore a) =>
a
-> Int32
-> m (Maybe GdkX11.X11DeviceCore.X11DeviceCore)
x11DeviceManagerLookup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11DeviceManagerCore a) =>
a -> Int32 -> m (Maybe X11DeviceCore)
x11DeviceManagerLookup a
deviceManager Int32
deviceId = IO (Maybe X11DeviceCore) -> m (Maybe X11DeviceCore)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe X11DeviceCore) -> m (Maybe X11DeviceCore))
-> IO (Maybe X11DeviceCore) -> m (Maybe X11DeviceCore)
forall a b. (a -> b) -> a -> b
$ do
Ptr X11DeviceManagerCore
deviceManager' <- a -> IO (Ptr X11DeviceManagerCore)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
deviceManager
Ptr X11DeviceCore
result <- Ptr X11DeviceManagerCore -> Int32 -> IO (Ptr X11DeviceCore)
gdk_x11_device_manager_lookup Ptr X11DeviceManagerCore
deviceManager' Int32
deviceId
Maybe X11DeviceCore
maybeResult <- Ptr X11DeviceCore
-> (Ptr X11DeviceCore -> IO X11DeviceCore)
-> IO (Maybe X11DeviceCore)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr X11DeviceCore
result ((Ptr X11DeviceCore -> IO X11DeviceCore)
-> IO (Maybe X11DeviceCore))
-> (Ptr X11DeviceCore -> IO X11DeviceCore)
-> IO (Maybe X11DeviceCore)
forall a b. (a -> b) -> a -> b
$ \Ptr X11DeviceCore
result' -> do
X11DeviceCore
result'' <- ((ManagedPtr X11DeviceCore -> X11DeviceCore)
-> Ptr X11DeviceCore -> IO X11DeviceCore
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr X11DeviceCore -> X11DeviceCore
GdkX11.X11DeviceCore.X11DeviceCore) Ptr X11DeviceCore
result'
X11DeviceCore -> IO X11DeviceCore
forall (m :: * -> *) a. Monad m => a -> m a
return X11DeviceCore
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
deviceManager
Maybe X11DeviceCore -> IO (Maybe X11DeviceCore)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe X11DeviceCore
maybeResult
foreign import ccall "gdk_x11_device_get_id" gdk_x11_device_get_id ::
Ptr GdkX11.X11DeviceCore.X11DeviceCore ->
IO Int32
x11DeviceGetId ::
(B.CallStack.HasCallStack, MonadIO m, GdkX11.X11DeviceCore.IsX11DeviceCore a) =>
a
-> m Int32
x11DeviceGetId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11DeviceCore a) =>
a -> m Int32
x11DeviceGetId a
device = 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 X11DeviceCore
device' <- a -> IO (Ptr X11DeviceCore)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
device
Int32
result <- Ptr X11DeviceCore -> IO Int32
gdk_x11_device_get_id Ptr X11DeviceCore
device'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
device
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
foreign import ccall "gdk_x11_atom_to_xatom_for_display" gdk_x11_atom_to_xatom_for_display ::
Ptr GdkX11.X11Display.X11Display ->
Ptr Gdk.Atom.Atom ->
IO CULong
x11AtomToXatomForDisplay ::
(B.CallStack.HasCallStack, MonadIO m, GdkX11.X11Display.IsX11Display a) =>
a
-> Gdk.Atom.Atom
-> m CULong
x11AtomToXatomForDisplay :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> Atom -> m CULong
x11AtomToXatomForDisplay a
display Atom
atom = 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 X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
Ptr Atom
atom' <- Atom -> IO (Ptr Atom)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Atom
atom
CULong
result <- Ptr X11Display -> Ptr Atom -> IO CULong
gdk_x11_atom_to_xatom_for_display Ptr X11Display
display' Ptr Atom
atom'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
Atom -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Atom
atom
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result
foreign import ccall "gdk_x11_atom_to_xatom" gdk_x11_atom_to_xatom ::
Ptr Gdk.Atom.Atom ->
IO CULong
x11AtomToXatom ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gdk.Atom.Atom
-> m CULong
x11AtomToXatom :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Atom -> m CULong
x11AtomToXatom Atom
atom = 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 Atom
atom' <- Atom -> IO (Ptr Atom)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Atom
atom
CULong
result <- Ptr Atom -> IO CULong
gdk_x11_atom_to_xatom Ptr Atom
atom'
Atom -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Atom
atom
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result