#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GtkLayerShell.Functions
(
autoExclusiveZoneEnable ,
autoExclusiveZoneIsEnabled ,
getAnchor ,
getExclusiveZone ,
getKeyboardInteractivity ,
getKeyboardMode ,
getLayer ,
getMajorVersion ,
getMargin ,
getMicroVersion ,
getMinorVersion ,
getNamespace ,
getProtocolVersion ,
getZwlrLayerSurfaceV1 ,
initForWindow ,
isLayerWindow ,
isSupported ,
setAnchor ,
setExclusiveZone ,
setKeyboardInteractivity ,
setKeyboardMode ,
setLayer ,
setMargin ,
setMonitor ,
setNamespace ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.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.Gdk.Objects.Monitor as Gdk.Monitor
import qualified GI.Gtk.Objects.Window as Gtk.Window
import {-# SOURCE #-} qualified GI.GtkLayerShell.Enums as GtkLayerShell.Enums
foreign import ccall "gtk_layer_set_namespace" gtk_layer_set_namespace ::
Ptr Gtk.Window.Window ->
CString ->
IO ()
setNamespace ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> T.Text
-> m ()
setNamespace :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Text -> m ()
setNamespace a
window Text
nameSpace = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
nameSpace' <- Text -> IO CString
textToCString Text
nameSpace
Ptr Window -> CString -> IO ()
gtk_layer_set_namespace Ptr Window
window' CString
nameSpace'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
nameSpace'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gtk_layer_set_monitor" gtk_layer_set_monitor ::
Ptr Gtk.Window.Window ->
Ptr Gdk.Monitor.Monitor ->
IO ()
setMonitor ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a, Gdk.Monitor.IsMonitor b) =>
a
-> b
-> m ()
setMonitor :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindow a, IsMonitor b) =>
a -> b -> m ()
setMonitor a
window b
monitor = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Monitor
monitor' <- b -> IO (Ptr Monitor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
monitor
Ptr Window -> Ptr Monitor -> IO ()
gtk_layer_set_monitor Ptr Window
window' Ptr Monitor
monitor'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
monitor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gtk_layer_set_margin" gtk_layer_set_margin ::
Ptr Gtk.Window.Window ->
CUInt ->
Int32 ->
IO ()
setMargin ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> GtkLayerShell.Enums.Edge
-> Int32
-> m ()
setMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Edge -> Int32 -> m ()
setMargin a
window Edge
edge Int32
marginSize = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let edge' :: CUInt
edge' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Edge -> Int) -> Edge -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Edge -> Int
forall a. Enum a => a -> Int
fromEnum) Edge
edge
Ptr Window -> CUInt -> Int32 -> IO ()
gtk_layer_set_margin Ptr Window
window' CUInt
edge' Int32
marginSize
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gtk_layer_set_layer" gtk_layer_set_layer ::
Ptr Gtk.Window.Window ->
CUInt ->
IO ()
setLayer ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> GtkLayerShell.Enums.Layer
-> m ()
setLayer :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Layer -> m ()
setLayer a
window Layer
layer = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let layer' :: CUInt
layer' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Layer -> Int) -> Layer -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Layer -> Int
forall a. Enum a => a -> Int
fromEnum) Layer
layer
Ptr Window -> CUInt -> IO ()
gtk_layer_set_layer Ptr Window
window' CUInt
layer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gtk_layer_set_keyboard_mode" gtk_layer_set_keyboard_mode ::
Ptr Gtk.Window.Window ->
CUInt ->
IO ()
setKeyboardMode ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> GtkLayerShell.Enums.KeyboardMode
-> m ()
setKeyboardMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> KeyboardMode -> m ()
setKeyboardMode a
window KeyboardMode
mode = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let mode' :: CUInt
mode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (KeyboardMode -> Int) -> KeyboardMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. KeyboardMode -> Int
forall a. Enum a => a -> Int
fromEnum) KeyboardMode
mode
Ptr Window -> CUInt -> IO ()
gtk_layer_set_keyboard_mode Ptr Window
window' CUInt
mode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gtk_layer_set_keyboard_interactivity" gtk_layer_set_keyboard_interactivity ::
Ptr Gtk.Window.Window ->
CInt ->
IO ()
{-# DEPRECATED setKeyboardInteractivity ["(Since version 0.6)","Use gtk_layer_set_keyboard_mode () instead."] #-}
setKeyboardInteractivity ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> Bool
-> m ()
setKeyboardInteractivity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Bool -> m ()
setKeyboardInteractivity a
window Bool
interactivity = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let interactivity' :: CInt
interactivity' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
interactivity
Ptr Window -> CInt -> IO ()
gtk_layer_set_keyboard_interactivity Ptr Window
window' CInt
interactivity'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gtk_layer_set_exclusive_zone" gtk_layer_set_exclusive_zone ::
Ptr Gtk.Window.Window ->
Int32 ->
IO ()
setExclusiveZone ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> Int32
-> m ()
setExclusiveZone :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Int32 -> m ()
setExclusiveZone a
window Int32
exclusiveZone = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> Int32 -> IO ()
gtk_layer_set_exclusive_zone Ptr Window
window' Int32
exclusiveZone
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gtk_layer_set_anchor" gtk_layer_set_anchor ::
Ptr Gtk.Window.Window ->
CUInt ->
CInt ->
IO ()
setAnchor ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> GtkLayerShell.Enums.Edge
-> Bool
-> m ()
setAnchor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Edge -> Bool -> m ()
setAnchor a
window Edge
edge Bool
anchorToEdge = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let edge' :: CUInt
edge' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Edge -> Int) -> Edge -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Edge -> Int
forall a. Enum a => a -> Int
fromEnum) Edge
edge
let anchorToEdge' :: CInt
anchorToEdge' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
anchorToEdge
Ptr Window -> CUInt -> CInt -> IO ()
gtk_layer_set_anchor Ptr Window
window' CUInt
edge' CInt
anchorToEdge'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gtk_layer_is_supported" gtk_layer_is_supported ::
IO CInt
isSupported ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Bool
isSupported :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Bool
isSupported = IO Bool -> m Bool
forall a. IO a -> m a
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
CInt
result <- IO CInt
gtk_layer_is_supported
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "gtk_layer_is_layer_window" gtk_layer_is_layer_window ::
Ptr Gtk.Window.Window ->
IO CInt
isLayerWindow ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> m Bool
isLayerWindow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
isLayerWindow a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_layer_is_layer_window Ptr Window
window'
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
window
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "gtk_layer_init_for_window" gtk_layer_init_for_window ::
Ptr Gtk.Window.Window ->
IO ()
initForWindow ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> m ()
initForWindow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
initForWindow a
window = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
gtk_layer_init_for_window Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gtk_layer_get_zwlr_layer_surface_v1" gtk_layer_get_zwlr_layer_surface_v1 ::
Ptr Gtk.Window.Window ->
IO (Ptr ())
getZwlrLayerSurfaceV1 ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> m (Ptr ())
getZwlrLayerSurfaceV1 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m (Ptr ())
getZwlrLayerSurfaceV1 a
window = IO (Ptr ()) -> m (Ptr ())
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr ()
result <- Ptr Window -> IO (Ptr ())
gtk_layer_get_zwlr_layer_surface_v1 Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Ptr () -> IO (Ptr ())
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
result
foreign import ccall "gtk_layer_get_protocol_version" gtk_layer_get_protocol_version ::
IO Word32
getProtocolVersion ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Word32
getProtocolVersion :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Word32
getProtocolVersion = IO Word32 -> m Word32
forall a. IO a -> m a
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
Word32
result <- IO Word32
gtk_layer_get_protocol_version
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
foreign import ccall "gtk_layer_get_namespace" gtk_layer_get_namespace ::
Ptr Gtk.Window.Window ->
IO CString
getNamespace ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> m T.Text
getNamespace :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Text
getNamespace a
window = IO Text -> m Text
forall a. IO a -> m a
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 Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
result <- Ptr Window -> IO CString
gtk_layer_get_namespace Ptr Window
window'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"getNamespace" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
foreign import ccall "gtk_layer_get_minor_version" gtk_layer_get_minor_version ::
IO Word32
getMinorVersion ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Word32
getMinorVersion :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Word32
getMinorVersion = IO Word32 -> m Word32
forall a. IO a -> m a
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
Word32
result <- IO Word32
gtk_layer_get_minor_version
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
foreign import ccall "gtk_layer_get_micro_version" gtk_layer_get_micro_version ::
IO Word32
getMicroVersion ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Word32
getMicroVersion :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Word32
getMicroVersion = IO Word32 -> m Word32
forall a. IO a -> m a
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
Word32
result <- IO Word32
gtk_layer_get_micro_version
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
foreign import ccall "gtk_layer_get_margin" gtk_layer_get_margin ::
Ptr Gtk.Window.Window ->
CUInt ->
IO Int32
getMargin ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> GtkLayerShell.Enums.Edge
-> m Int32
getMargin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Edge -> m Int32
getMargin a
window Edge
edge = IO Int32 -> m Int32
forall a. IO a -> m a
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 Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let edge' :: CUInt
edge' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Edge -> Int) -> Edge -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Edge -> Int
forall a. Enum a => a -> Int
fromEnum) Edge
edge
Int32
result <- Ptr Window -> CUInt -> IO Int32
gtk_layer_get_margin Ptr Window
window' CUInt
edge'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
foreign import ccall "gtk_layer_get_major_version" gtk_layer_get_major_version ::
IO Word32
getMajorVersion ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Word32
getMajorVersion :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Word32
getMajorVersion = IO Word32 -> m Word32
forall a. IO a -> m a
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
Word32
result <- IO Word32
gtk_layer_get_major_version
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
foreign import ccall "gtk_layer_get_layer" gtk_layer_get_layer ::
Ptr Gtk.Window.Window ->
IO CUInt
getLayer ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> m GtkLayerShell.Enums.Layer
getLayer :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Layer
getLayer a
window = IO Layer -> m Layer
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Layer -> m Layer) -> IO Layer -> m Layer
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CUInt
result <- Ptr Window -> IO CUInt
gtk_layer_get_layer Ptr Window
window'
let result' :: Layer
result' = (Int -> Layer
forall a. Enum a => Int -> a
toEnum (Int -> Layer) -> (CUInt -> Int) -> CUInt -> Layer
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Layer -> IO Layer
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Layer
result'
foreign import ccall "gtk_layer_get_keyboard_mode" gtk_layer_get_keyboard_mode ::
Ptr Gtk.Window.Window ->
IO CUInt
getKeyboardMode ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> m GtkLayerShell.Enums.KeyboardMode
getKeyboardMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m KeyboardMode
getKeyboardMode a
window = IO KeyboardMode -> m KeyboardMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO KeyboardMode -> m KeyboardMode)
-> IO KeyboardMode -> m KeyboardMode
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CUInt
result <- Ptr Window -> IO CUInt
gtk_layer_get_keyboard_mode Ptr Window
window'
let result' :: KeyboardMode
result' = (Int -> KeyboardMode
forall a. Enum a => Int -> a
toEnum (Int -> KeyboardMode) -> (CUInt -> Int) -> CUInt -> KeyboardMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
KeyboardMode -> IO KeyboardMode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return KeyboardMode
result'
foreign import ccall "gtk_layer_get_keyboard_interactivity" gtk_layer_get_keyboard_interactivity ::
Ptr Gtk.Window.Window ->
IO CInt
{-# DEPRECATED getKeyboardInteractivity ["(Since version 0.6)","Use gtk_layer_get_keyboard_mode () instead."] #-}
getKeyboardInteractivity ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> m Bool
getKeyboardInteractivity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
getKeyboardInteractivity a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_layer_get_keyboard_interactivity Ptr Window
window'
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
window
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "gtk_layer_get_exclusive_zone" gtk_layer_get_exclusive_zone ::
Ptr Gtk.Window.Window ->
IO Int32
getExclusiveZone ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> m Int32
getExclusiveZone :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Int32
getExclusiveZone a
window = IO Int32 -> m Int32
forall a. IO a -> m a
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 Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Int32
result <- Ptr Window -> IO Int32
gtk_layer_get_exclusive_zone Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
foreign import ccall "gtk_layer_get_anchor" gtk_layer_get_anchor ::
Ptr Gtk.Window.Window ->
CUInt ->
IO CInt
getAnchor ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> GtkLayerShell.Enums.Edge
-> m Bool
getAnchor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> Edge -> m Bool
getAnchor a
window Edge
edge = IO Bool -> m Bool
forall a. IO a -> m a
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 Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let edge' :: CUInt
edge' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Edge -> Int) -> Edge -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Edge -> Int
forall a. Enum a => a -> Int
fromEnum) Edge
edge
CInt
result <- Ptr Window -> CUInt -> IO CInt
gtk_layer_get_anchor Ptr Window
window' CUInt
edge'
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
window
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "gtk_layer_auto_exclusive_zone_is_enabled" gtk_layer_auto_exclusive_zone_is_enabled ::
Ptr Gtk.Window.Window ->
IO CInt
autoExclusiveZoneIsEnabled ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> m Bool
autoExclusiveZoneIsEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m Bool
autoExclusiveZoneIsEnabled a
window = IO Bool -> m Bool
forall a. IO a -> m a
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 Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CInt
result <- Ptr Window -> IO CInt
gtk_layer_auto_exclusive_zone_is_enabled Ptr Window
window'
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
window
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "gtk_layer_auto_exclusive_zone_enable" gtk_layer_auto_exclusive_zone_enable ::
Ptr Gtk.Window.Window ->
IO ()
autoExclusiveZoneEnable ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Window.IsWindow a) =>
a
-> m ()
autoExclusiveZoneEnable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindow a) =>
a -> m ()
autoExclusiveZoneEnable a
window = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Window
window' <- a -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr Window -> IO ()
gtk_layer_auto_exclusive_zone_enable Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()