{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Interfaces.Toplevel
(
Toplevel(..) ,
IsToplevel ,
toToplevel ,
#if defined(ENABLE_OVERLOADING)
ResolveToplevelMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ToplevelBeginMoveMethodInfo ,
#endif
toplevelBeginMove ,
#if defined(ENABLE_OVERLOADING)
ToplevelBeginResizeMethodInfo ,
#endif
toplevelBeginResize ,
#if defined(ENABLE_OVERLOADING)
ToplevelFocusMethodInfo ,
#endif
toplevelFocus ,
#if defined(ENABLE_OVERLOADING)
ToplevelGetStateMethodInfo ,
#endif
toplevelGetState ,
#if defined(ENABLE_OVERLOADING)
ToplevelInhibitSystemShortcutsMethodInfo,
#endif
toplevelInhibitSystemShortcuts ,
#if defined(ENABLE_OVERLOADING)
ToplevelLowerMethodInfo ,
#endif
toplevelLower ,
#if defined(ENABLE_OVERLOADING)
ToplevelMinimizeMethodInfo ,
#endif
toplevelMinimize ,
#if defined(ENABLE_OVERLOADING)
ToplevelPresentMethodInfo ,
#endif
toplevelPresent ,
#if defined(ENABLE_OVERLOADING)
ToplevelRestoreSystemShortcutsMethodInfo,
#endif
toplevelRestoreSystemShortcuts ,
#if defined(ENABLE_OVERLOADING)
ToplevelSetDecoratedMethodInfo ,
#endif
toplevelSetDecorated ,
#if defined(ENABLE_OVERLOADING)
ToplevelSetDeletableMethodInfo ,
#endif
toplevelSetDeletable ,
#if defined(ENABLE_OVERLOADING)
ToplevelSetIconListMethodInfo ,
#endif
toplevelSetIconList ,
#if defined(ENABLE_OVERLOADING)
ToplevelSetModalMethodInfo ,
#endif
toplevelSetModal ,
#if defined(ENABLE_OVERLOADING)
ToplevelSetStartupIdMethodInfo ,
#endif
toplevelSetStartupId ,
#if defined(ENABLE_OVERLOADING)
ToplevelSetTitleMethodInfo ,
#endif
toplevelSetTitle ,
#if defined(ENABLE_OVERLOADING)
ToplevelSetTransientForMethodInfo ,
#endif
toplevelSetTransientFor ,
#if defined(ENABLE_OVERLOADING)
ToplevelShowWindowMenuMethodInfo ,
#endif
toplevelShowWindowMenu ,
#if defined(ENABLE_OVERLOADING)
ToplevelSupportsEdgeConstraintsMethodInfo,
#endif
toplevelSupportsEdgeConstraints ,
#if defined(ENABLE_OVERLOADING)
ToplevelTitlebarGestureMethodInfo ,
#endif
toplevelTitlebarGesture ,
#if defined(ENABLE_OVERLOADING)
ToplevelDecoratedPropertyInfo ,
#endif
constructToplevelDecorated ,
getToplevelDecorated ,
setToplevelDecorated ,
#if defined(ENABLE_OVERLOADING)
toplevelDecorated ,
#endif
#if defined(ENABLE_OVERLOADING)
ToplevelDeletablePropertyInfo ,
#endif
constructToplevelDeletable ,
getToplevelDeletable ,
setToplevelDeletable ,
#if defined(ENABLE_OVERLOADING)
toplevelDeletable ,
#endif
#if defined(ENABLE_OVERLOADING)
ToplevelFullscreenModePropertyInfo ,
#endif
constructToplevelFullscreenMode ,
getToplevelFullscreenMode ,
setToplevelFullscreenMode ,
#if defined(ENABLE_OVERLOADING)
toplevelFullscreenMode ,
#endif
#if defined(ENABLE_OVERLOADING)
ToplevelIconListPropertyInfo ,
#endif
constructToplevelIconList ,
getToplevelIconList ,
setToplevelIconList ,
#if defined(ENABLE_OVERLOADING)
toplevelIconList ,
#endif
#if defined(ENABLE_OVERLOADING)
ToplevelModalPropertyInfo ,
#endif
constructToplevelModal ,
getToplevelModal ,
setToplevelModal ,
#if defined(ENABLE_OVERLOADING)
toplevelModal ,
#endif
#if defined(ENABLE_OVERLOADING)
ToplevelShortcutsInhibitedPropertyInfo ,
#endif
getToplevelShortcutsInhibited ,
#if defined(ENABLE_OVERLOADING)
toplevelShortcutsInhibited ,
#endif
#if defined(ENABLE_OVERLOADING)
ToplevelStartupIdPropertyInfo ,
#endif
constructToplevelStartupId ,
getToplevelStartupId ,
setToplevelStartupId ,
#if defined(ENABLE_OVERLOADING)
toplevelStartupId ,
#endif
#if defined(ENABLE_OVERLOADING)
ToplevelStatePropertyInfo ,
#endif
getToplevelState ,
#if defined(ENABLE_OVERLOADING)
toplevelState ,
#endif
#if defined(ENABLE_OVERLOADING)
ToplevelTitlePropertyInfo ,
#endif
constructToplevelTitle ,
getToplevelTitle ,
setToplevelTitle ,
#if defined(ENABLE_OVERLOADING)
toplevelTitle ,
#endif
#if defined(ENABLE_OVERLOADING)
ToplevelTransientForPropertyInfo ,
#endif
constructToplevelTransientFor ,
getToplevelTransientFor ,
setToplevelTransientFor ,
#if defined(ENABLE_OVERLOADING)
toplevelTransientFor ,
#endif
ToplevelComputeSizeCallback ,
#if defined(ENABLE_OVERLOADING)
ToplevelComputeSizeSignalInfo ,
#endif
afterToplevelComputeSize ,
onToplevelComputeSize ,
) 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.Kind as DK
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 Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Cairo.Enums as Cairo.Enums
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.Region as Cairo.Region
import qualified GI.Cairo.Structs.Surface as Cairo.Surface
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GLib.Structs.String as GLib.String
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gdk.Enums as Gdk.Enums
import {-# SOURCE #-} qualified GI.Gdk.Flags as Gdk.Flags
import {-# SOURCE #-} qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import {-# SOURCE #-} qualified GI.Gdk.Objects.AppLaunchContext as Gdk.AppLaunchContext
import {-# SOURCE #-} qualified GI.Gdk.Objects.CairoContext as Gdk.CairoContext
import {-# SOURCE #-} qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import {-# SOURCE #-} qualified GI.Gdk.Objects.ContentProvider as Gdk.ContentProvider
import {-# SOURCE #-} qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import {-# SOURCE #-} qualified GI.Gdk.Objects.Device as Gdk.Device
import {-# SOURCE #-} qualified GI.Gdk.Objects.DeviceTool as Gdk.DeviceTool
import {-# SOURCE #-} qualified GI.Gdk.Objects.Display as Gdk.Display
import {-# SOURCE #-} qualified GI.Gdk.Objects.DrawContext as Gdk.DrawContext
import {-# SOURCE #-} qualified GI.Gdk.Objects.Event as Gdk.Event
import {-# SOURCE #-} qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import {-# SOURCE #-} qualified GI.Gdk.Objects.GLContext as Gdk.GLContext
import {-# SOURCE #-} qualified GI.Gdk.Objects.Monitor as Gdk.Monitor
import {-# SOURCE #-} qualified GI.Gdk.Objects.Seat as Gdk.Seat
import {-# SOURCE #-} qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import {-# SOURCE #-} qualified GI.Gdk.Objects.Surface as Gdk.Surface
import {-# SOURCE #-} qualified GI.Gdk.Objects.Texture as Gdk.Texture
import {-# SOURCE #-} qualified GI.Gdk.Objects.VulkanContext as Gdk.VulkanContext
import {-# SOURCE #-} qualified GI.Gdk.Structs.ContentFormats as Gdk.ContentFormats
import {-# SOURCE #-} qualified GI.Gdk.Structs.DmabufFormats as Gdk.DmabufFormats
import {-# SOURCE #-} qualified GI.Gdk.Structs.EventSequence as Gdk.EventSequence
import {-# SOURCE #-} qualified GI.Gdk.Structs.FrameTimings as Gdk.FrameTimings
import {-# SOURCE #-} qualified GI.Gdk.Structs.KeymapKey as Gdk.KeymapKey
import {-# SOURCE #-} qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import {-# SOURCE #-} qualified GI.Gdk.Structs.TimeCoord as Gdk.TimeCoord
import {-# SOURCE #-} qualified GI.Gdk.Structs.ToplevelLayout as Gdk.ToplevelLayout
import {-# SOURCE #-} qualified GI.Gdk.Structs.ToplevelSize as Gdk.ToplevelSize
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gio.Callbacks as Gio.Callbacks
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Interfaces.File as Gio.File
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.Initable as Gio.Initable
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Gio.Interfaces.LoadableIcon as Gio.LoadableIcon
import qualified GI.Gio.Objects.AppLaunchContext as Gio.AppLaunchContext
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.InputStream as Gio.InputStream
import qualified GI.Gio.Objects.OutputStream as Gio.OutputStream
import qualified GI.Pango.Enums as Pango.Enums
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gdk.Enums as Gdk.Enums
import {-# SOURCE #-} qualified GI.Gdk.Flags as Gdk.Flags
import {-# SOURCE #-} qualified GI.Gdk.Objects.Device as Gdk.Device
import {-# SOURCE #-} qualified GI.Gdk.Objects.Event as Gdk.Event
import {-# SOURCE #-} qualified GI.Gdk.Objects.Surface as Gdk.Surface
import {-# SOURCE #-} qualified GI.Gdk.Objects.Texture as Gdk.Texture
import {-# SOURCE #-} qualified GI.Gdk.Structs.ToplevelLayout as Gdk.ToplevelLayout
import {-# SOURCE #-} qualified GI.Gdk.Structs.ToplevelSize as Gdk.ToplevelSize
#endif
newtype Toplevel = Toplevel (SP.ManagedPtr Toplevel)
deriving (Toplevel -> Toplevel -> Bool
(Toplevel -> Toplevel -> Bool)
-> (Toplevel -> Toplevel -> Bool) -> Eq Toplevel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Toplevel -> Toplevel -> Bool
== :: Toplevel -> Toplevel -> Bool
$c/= :: Toplevel -> Toplevel -> Bool
/= :: Toplevel -> Toplevel -> Bool
Eq)
instance SP.ManagedPtrNewtype Toplevel where
toManagedPtr :: Toplevel -> ManagedPtr Toplevel
toManagedPtr (Toplevel ManagedPtr Toplevel
p) = ManagedPtr Toplevel
p
foreign import ccall "gdk_toplevel_get_type"
c_gdk_toplevel_get_type :: IO B.Types.GType
instance B.Types.TypedObject Toplevel where
glibType :: IO GType
glibType = IO GType
c_gdk_toplevel_get_type
instance B.Types.GObject Toplevel
class (SP.GObject o, O.IsDescendantOf Toplevel o) => IsToplevel o
instance (SP.GObject o, O.IsDescendantOf Toplevel o) => IsToplevel o
instance O.HasParentTypes Toplevel
type instance O.ParentTypes Toplevel = '[GObject.Object.Object, Gdk.Surface.Surface]
toToplevel :: (MIO.MonadIO m, IsToplevel o) => o -> m Toplevel
toToplevel :: forall (m :: * -> *) o.
(MonadIO m, IsToplevel o) =>
o -> m Toplevel
toToplevel = IO Toplevel -> m Toplevel
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Toplevel -> m Toplevel)
-> (o -> IO Toplevel) -> o -> m Toplevel
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Toplevel -> Toplevel) -> o -> IO Toplevel
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Toplevel -> Toplevel
Toplevel
instance B.GValue.IsGValue (Maybe Toplevel) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gdk_toplevel_get_type
gvalueSet_ :: Ptr GValue -> Maybe Toplevel -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Toplevel
P.Nothing = Ptr GValue -> Ptr Toplevel -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Toplevel
forall a. Ptr a
FP.nullPtr :: FP.Ptr Toplevel)
gvalueSet_ Ptr GValue
gv (P.Just Toplevel
obj) = Toplevel -> (Ptr Toplevel -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Toplevel
obj (Ptr GValue -> Ptr Toplevel -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Toplevel)
gvalueGet_ Ptr GValue
gv = do
ptr <- Ptr GValue -> IO (Ptr Toplevel)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Toplevel)
if ptr /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newObject Toplevel ptr
else return P.Nothing
getToplevelDecorated :: (MonadIO m, IsToplevel o) => o -> m Bool
getToplevelDecorated :: forall (m :: * -> *) o. (MonadIO m, IsToplevel o) => o -> m Bool
getToplevelDecorated o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"decorated"
setToplevelDecorated :: (MonadIO m, IsToplevel o) => o -> Bool -> m ()
setToplevelDecorated :: forall (m :: * -> *) o.
(MonadIO m, IsToplevel o) =>
o -> Bool -> m ()
setToplevelDecorated o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"decorated" Bool
val
constructToplevelDecorated :: (IsToplevel o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructToplevelDecorated :: forall o (m :: * -> *).
(IsToplevel o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructToplevelDecorated Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"decorated" Bool
val
#if defined(ENABLE_OVERLOADING)
data ToplevelDecoratedPropertyInfo
instance AttrInfo ToplevelDecoratedPropertyInfo where
type AttrAllowedOps ToplevelDecoratedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToplevelDecoratedPropertyInfo = IsToplevel
type AttrSetTypeConstraint ToplevelDecoratedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ToplevelDecoratedPropertyInfo = (~) Bool
type AttrTransferType ToplevelDecoratedPropertyInfo = Bool
type AttrGetType ToplevelDecoratedPropertyInfo = Bool
type AttrLabel ToplevelDecoratedPropertyInfo = "decorated"
type AttrOrigin ToplevelDecoratedPropertyInfo = Toplevel
attrGet = getToplevelDecorated
attrSet = setToplevelDecorated
attrTransfer _ v = do
return v
attrConstruct = constructToplevelDecorated
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.decorated"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#g:attr:decorated"
})
#endif
getToplevelDeletable :: (MonadIO m, IsToplevel o) => o -> m Bool
getToplevelDeletable :: forall (m :: * -> *) o. (MonadIO m, IsToplevel o) => o -> m Bool
getToplevelDeletable o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"deletable"
setToplevelDeletable :: (MonadIO m, IsToplevel o) => o -> Bool -> m ()
setToplevelDeletable :: forall (m :: * -> *) o.
(MonadIO m, IsToplevel o) =>
o -> Bool -> m ()
setToplevelDeletable o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"deletable" Bool
val
constructToplevelDeletable :: (IsToplevel o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructToplevelDeletable :: forall o (m :: * -> *).
(IsToplevel o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructToplevelDeletable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"deletable" Bool
val
#if defined(ENABLE_OVERLOADING)
data ToplevelDeletablePropertyInfo
instance AttrInfo ToplevelDeletablePropertyInfo where
type AttrAllowedOps ToplevelDeletablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToplevelDeletablePropertyInfo = IsToplevel
type AttrSetTypeConstraint ToplevelDeletablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ToplevelDeletablePropertyInfo = (~) Bool
type AttrTransferType ToplevelDeletablePropertyInfo = Bool
type AttrGetType ToplevelDeletablePropertyInfo = Bool
type AttrLabel ToplevelDeletablePropertyInfo = "deletable"
type AttrOrigin ToplevelDeletablePropertyInfo = Toplevel
attrGet = getToplevelDeletable
attrSet = setToplevelDeletable
attrTransfer _ v = do
return v
attrConstruct = constructToplevelDeletable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.deletable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#g:attr:deletable"
})
#endif
getToplevelFullscreenMode :: (MonadIO m, IsToplevel o) => o -> m Gdk.Enums.FullscreenMode
getToplevelFullscreenMode :: forall (m :: * -> *) o.
(MonadIO m, IsToplevel o) =>
o -> m FullscreenMode
getToplevelFullscreenMode o
obj = IO FullscreenMode -> m FullscreenMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO FullscreenMode -> m FullscreenMode)
-> IO FullscreenMode -> m FullscreenMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO FullscreenMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"fullscreen-mode"
setToplevelFullscreenMode :: (MonadIO m, IsToplevel o) => o -> Gdk.Enums.FullscreenMode -> m ()
setToplevelFullscreenMode :: forall (m :: * -> *) o.
(MonadIO m, IsToplevel o) =>
o -> FullscreenMode -> m ()
setToplevelFullscreenMode o
obj FullscreenMode
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> FullscreenMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"fullscreen-mode" FullscreenMode
val
constructToplevelFullscreenMode :: (IsToplevel o, MIO.MonadIO m) => Gdk.Enums.FullscreenMode -> m (GValueConstruct o)
constructToplevelFullscreenMode :: forall o (m :: * -> *).
(IsToplevel o, MonadIO m) =>
FullscreenMode -> m (GValueConstruct o)
constructToplevelFullscreenMode FullscreenMode
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> FullscreenMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"fullscreen-mode" FullscreenMode
val
#if defined(ENABLE_OVERLOADING)
data ToplevelFullscreenModePropertyInfo
instance AttrInfo ToplevelFullscreenModePropertyInfo where
type AttrAllowedOps ToplevelFullscreenModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToplevelFullscreenModePropertyInfo = IsToplevel
type AttrSetTypeConstraint ToplevelFullscreenModePropertyInfo = (~) Gdk.Enums.FullscreenMode
type AttrTransferTypeConstraint ToplevelFullscreenModePropertyInfo = (~) Gdk.Enums.FullscreenMode
type AttrTransferType ToplevelFullscreenModePropertyInfo = Gdk.Enums.FullscreenMode
type AttrGetType ToplevelFullscreenModePropertyInfo = Gdk.Enums.FullscreenMode
type AttrLabel ToplevelFullscreenModePropertyInfo = "fullscreen-mode"
type AttrOrigin ToplevelFullscreenModePropertyInfo = Toplevel
attrGet = getToplevelFullscreenMode
attrSet = setToplevelFullscreenMode
attrTransfer _ v = do
return v
attrConstruct = constructToplevelFullscreenMode
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.fullscreenMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#g:attr:fullscreenMode"
})
#endif
getToplevelIconList :: (MonadIO m, IsToplevel o) => o -> m (Ptr ())
getToplevelIconList :: forall (m :: * -> *) o.
(MonadIO m, IsToplevel o) =>
o -> m (Ptr ())
getToplevelIconList o
obj = IO (Ptr ()) -> m (Ptr ())
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Ptr ())
forall a b. GObject a => a -> String -> IO (Ptr b)
B.Properties.getObjectPropertyPtr o
obj String
"icon-list"
setToplevelIconList :: (MonadIO m, IsToplevel o) => o -> Ptr () -> m ()
setToplevelIconList :: forall (m :: * -> *) o.
(MonadIO m, IsToplevel o) =>
o -> Ptr () -> m ()
setToplevelIconList o
obj Ptr ()
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Ptr () -> IO ()
forall a b. GObject a => a -> String -> Ptr b -> IO ()
B.Properties.setObjectPropertyPtr o
obj String
"icon-list" Ptr ()
val
constructToplevelIconList :: (IsToplevel o, MIO.MonadIO m) => Ptr () -> m (GValueConstruct o)
constructToplevelIconList :: forall o (m :: * -> *).
(IsToplevel o, MonadIO m) =>
Ptr () -> m (GValueConstruct o)
constructToplevelIconList Ptr ()
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Ptr () -> IO (GValueConstruct o)
forall b o. String -> Ptr b -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyPtr String
"icon-list" Ptr ()
val
#if defined(ENABLE_OVERLOADING)
data ToplevelIconListPropertyInfo
instance AttrInfo ToplevelIconListPropertyInfo where
type AttrAllowedOps ToplevelIconListPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToplevelIconListPropertyInfo = IsToplevel
type AttrSetTypeConstraint ToplevelIconListPropertyInfo = (~) (Ptr ())
type AttrTransferTypeConstraint ToplevelIconListPropertyInfo = (~) (Ptr ())
type AttrTransferType ToplevelIconListPropertyInfo = Ptr ()
type AttrGetType ToplevelIconListPropertyInfo = (Ptr ())
type AttrLabel ToplevelIconListPropertyInfo = "icon-list"
type AttrOrigin ToplevelIconListPropertyInfo = Toplevel
attrGet = getToplevelIconList
attrSet = setToplevelIconList
attrTransfer _ v = do
return v
attrConstruct = constructToplevelIconList
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.iconList"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#g:attr:iconList"
})
#endif
getToplevelModal :: (MonadIO m, IsToplevel o) => o -> m Bool
getToplevelModal :: forall (m :: * -> *) o. (MonadIO m, IsToplevel o) => o -> m Bool
getToplevelModal o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"modal"
setToplevelModal :: (MonadIO m, IsToplevel o) => o -> Bool -> m ()
setToplevelModal :: forall (m :: * -> *) o.
(MonadIO m, IsToplevel o) =>
o -> Bool -> m ()
setToplevelModal o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"modal" Bool
val
constructToplevelModal :: (IsToplevel o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructToplevelModal :: forall o (m :: * -> *).
(IsToplevel o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructToplevelModal Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"modal" Bool
val
#if defined(ENABLE_OVERLOADING)
data ToplevelModalPropertyInfo
instance AttrInfo ToplevelModalPropertyInfo where
type AttrAllowedOps ToplevelModalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToplevelModalPropertyInfo = IsToplevel
type AttrSetTypeConstraint ToplevelModalPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ToplevelModalPropertyInfo = (~) Bool
type AttrTransferType ToplevelModalPropertyInfo = Bool
type AttrGetType ToplevelModalPropertyInfo = Bool
type AttrLabel ToplevelModalPropertyInfo = "modal"
type AttrOrigin ToplevelModalPropertyInfo = Toplevel
attrGet = getToplevelModal
attrSet = setToplevelModal
attrTransfer _ v = do
return v
attrConstruct = constructToplevelModal
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.modal"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#g:attr:modal"
})
#endif
getToplevelShortcutsInhibited :: (MonadIO m, IsToplevel o) => o -> m Bool
getToplevelShortcutsInhibited :: forall (m :: * -> *) o. (MonadIO m, IsToplevel o) => o -> m Bool
getToplevelShortcutsInhibited o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"shortcuts-inhibited"
#if defined(ENABLE_OVERLOADING)
data ToplevelShortcutsInhibitedPropertyInfo
instance AttrInfo ToplevelShortcutsInhibitedPropertyInfo where
type AttrAllowedOps ToplevelShortcutsInhibitedPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ToplevelShortcutsInhibitedPropertyInfo = IsToplevel
type AttrSetTypeConstraint ToplevelShortcutsInhibitedPropertyInfo = (~) ()
type AttrTransferTypeConstraint ToplevelShortcutsInhibitedPropertyInfo = (~) ()
type AttrTransferType ToplevelShortcutsInhibitedPropertyInfo = ()
type AttrGetType ToplevelShortcutsInhibitedPropertyInfo = Bool
type AttrLabel ToplevelShortcutsInhibitedPropertyInfo = "shortcuts-inhibited"
type AttrOrigin ToplevelShortcutsInhibitedPropertyInfo = Toplevel
attrGet = getToplevelShortcutsInhibited
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.shortcutsInhibited"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#g:attr:shortcutsInhibited"
})
#endif
getToplevelStartupId :: (MonadIO m, IsToplevel o) => o -> m (Maybe T.Text)
getToplevelStartupId :: forall (m :: * -> *) o.
(MonadIO m, IsToplevel o) =>
o -> m (Maybe Text)
getToplevelStartupId o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"startup-id"
setToplevelStartupId :: (MonadIO m, IsToplevel o) => o -> T.Text -> m ()
setToplevelStartupId :: forall (m :: * -> *) o.
(MonadIO m, IsToplevel o) =>
o -> Text -> m ()
setToplevelStartupId o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"startup-id" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructToplevelStartupId :: (IsToplevel o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructToplevelStartupId :: forall o (m :: * -> *).
(IsToplevel o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructToplevelStartupId Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"startup-id" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data ToplevelStartupIdPropertyInfo
instance AttrInfo ToplevelStartupIdPropertyInfo where
type AttrAllowedOps ToplevelStartupIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToplevelStartupIdPropertyInfo = IsToplevel
type AttrSetTypeConstraint ToplevelStartupIdPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ToplevelStartupIdPropertyInfo = (~) T.Text
type AttrTransferType ToplevelStartupIdPropertyInfo = T.Text
type AttrGetType ToplevelStartupIdPropertyInfo = (Maybe T.Text)
type AttrLabel ToplevelStartupIdPropertyInfo = "startup-id"
type AttrOrigin ToplevelStartupIdPropertyInfo = Toplevel
attrGet = getToplevelStartupId
attrSet = setToplevelStartupId
attrTransfer _ v = do
return v
attrConstruct = constructToplevelStartupId
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.startupId"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#g:attr:startupId"
})
#endif
getToplevelState :: (MonadIO m, IsToplevel o) => o -> m [Gdk.Flags.ToplevelState]
getToplevelState :: forall (m :: * -> *) o.
(MonadIO m, IsToplevel o) =>
o -> m [ToplevelState]
getToplevelState o
obj = IO [ToplevelState] -> m [ToplevelState]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [ToplevelState] -> m [ToplevelState])
-> IO [ToplevelState] -> m [ToplevelState]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [ToplevelState]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"state"
#if defined(ENABLE_OVERLOADING)
data ToplevelStatePropertyInfo
instance AttrInfo ToplevelStatePropertyInfo where
type AttrAllowedOps ToplevelStatePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ToplevelStatePropertyInfo = IsToplevel
type AttrSetTypeConstraint ToplevelStatePropertyInfo = (~) ()
type AttrTransferTypeConstraint ToplevelStatePropertyInfo = (~) ()
type AttrTransferType ToplevelStatePropertyInfo = ()
type AttrGetType ToplevelStatePropertyInfo = [Gdk.Flags.ToplevelState]
type AttrLabel ToplevelStatePropertyInfo = "state"
type AttrOrigin ToplevelStatePropertyInfo = Toplevel
attrGet = getToplevelState
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.state"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#g:attr:state"
})
#endif
getToplevelTitle :: (MonadIO m, IsToplevel o) => o -> m (Maybe T.Text)
getToplevelTitle :: forall (m :: * -> *) o.
(MonadIO m, IsToplevel o) =>
o -> m (Maybe Text)
getToplevelTitle o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"title"
setToplevelTitle :: (MonadIO m, IsToplevel o) => o -> T.Text -> m ()
setToplevelTitle :: forall (m :: * -> *) o.
(MonadIO m, IsToplevel o) =>
o -> Text -> m ()
setToplevelTitle o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructToplevelTitle :: (IsToplevel o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructToplevelTitle :: forall o (m :: * -> *).
(IsToplevel o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructToplevelTitle Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data ToplevelTitlePropertyInfo
instance AttrInfo ToplevelTitlePropertyInfo where
type AttrAllowedOps ToplevelTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToplevelTitlePropertyInfo = IsToplevel
type AttrSetTypeConstraint ToplevelTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ToplevelTitlePropertyInfo = (~) T.Text
type AttrTransferType ToplevelTitlePropertyInfo = T.Text
type AttrGetType ToplevelTitlePropertyInfo = (Maybe T.Text)
type AttrLabel ToplevelTitlePropertyInfo = "title"
type AttrOrigin ToplevelTitlePropertyInfo = Toplevel
attrGet = getToplevelTitle
attrSet = setToplevelTitle
attrTransfer _ v = do
return v
attrConstruct = constructToplevelTitle
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#g:attr:title"
})
#endif
getToplevelTransientFor :: (MonadIO m, IsToplevel o) => o -> m (Maybe Gdk.Surface.Surface)
getToplevelTransientFor :: forall (m :: * -> *) o.
(MonadIO m, IsToplevel o) =>
o -> m (Maybe Surface)
getToplevelTransientFor o
obj = IO (Maybe Surface) -> m (Maybe Surface)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Surface) -> m (Maybe Surface))
-> IO (Maybe Surface) -> m (Maybe Surface)
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr Surface -> Surface) -> IO (Maybe Surface)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"transient-for" ManagedPtr Surface -> Surface
Gdk.Surface.Surface
setToplevelTransientFor :: (MonadIO m, IsToplevel o, Gdk.Surface.IsSurface a) => o -> a -> m ()
setToplevelTransientFor :: forall (m :: * -> *) o a.
(MonadIO m, IsToplevel o, IsSurface a) =>
o -> a -> m ()
setToplevelTransientFor o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"transient-for" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructToplevelTransientFor :: (IsToplevel o, MIO.MonadIO m, Gdk.Surface.IsSurface a) => a -> m (GValueConstruct o)
constructToplevelTransientFor :: forall o (m :: * -> *) a.
(IsToplevel o, MonadIO m, IsSurface a) =>
a -> m (GValueConstruct o)
constructToplevelTransientFor a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"transient-for" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data ToplevelTransientForPropertyInfo
instance AttrInfo ToplevelTransientForPropertyInfo where
type AttrAllowedOps ToplevelTransientForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToplevelTransientForPropertyInfo = IsToplevel
type AttrSetTypeConstraint ToplevelTransientForPropertyInfo = Gdk.Surface.IsSurface
type AttrTransferTypeConstraint ToplevelTransientForPropertyInfo = Gdk.Surface.IsSurface
type AttrTransferType ToplevelTransientForPropertyInfo = Gdk.Surface.Surface
type AttrGetType ToplevelTransientForPropertyInfo = (Maybe Gdk.Surface.Surface)
type AttrLabel ToplevelTransientForPropertyInfo = "transient-for"
type AttrOrigin ToplevelTransientForPropertyInfo = Toplevel
attrGet = getToplevelTransientFor
attrSet = setToplevelTransientFor
attrTransfer _ v = do
unsafeCastTo Gdk.Surface.Surface v
attrConstruct = constructToplevelTransientFor
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.transientFor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#g:attr:transientFor"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Toplevel
type instance O.AttributeList Toplevel = ToplevelAttributeList
type ToplevelAttributeList = ('[ '("cursor", Gdk.Surface.SurfaceCursorPropertyInfo), '("decorated", ToplevelDecoratedPropertyInfo), '("deletable", ToplevelDeletablePropertyInfo), '("display", Gdk.Surface.SurfaceDisplayPropertyInfo), '("frameClock", Gdk.Surface.SurfaceFrameClockPropertyInfo), '("fullscreenMode", ToplevelFullscreenModePropertyInfo), '("height", Gdk.Surface.SurfaceHeightPropertyInfo), '("iconList", ToplevelIconListPropertyInfo), '("mapped", Gdk.Surface.SurfaceMappedPropertyInfo), '("modal", ToplevelModalPropertyInfo), '("scale", Gdk.Surface.SurfaceScalePropertyInfo), '("scaleFactor", Gdk.Surface.SurfaceScaleFactorPropertyInfo), '("shortcutsInhibited", ToplevelShortcutsInhibitedPropertyInfo), '("startupId", ToplevelStartupIdPropertyInfo), '("state", ToplevelStatePropertyInfo), '("title", ToplevelTitlePropertyInfo), '("transientFor", ToplevelTransientForPropertyInfo), '("width", Gdk.Surface.SurfaceWidthPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
toplevelDecorated :: AttrLabelProxy "decorated"
toplevelDecorated = AttrLabelProxy
toplevelDeletable :: AttrLabelProxy "deletable"
toplevelDeletable = AttrLabelProxy
toplevelFullscreenMode :: AttrLabelProxy "fullscreenMode"
toplevelFullscreenMode = AttrLabelProxy
toplevelIconList :: AttrLabelProxy "iconList"
toplevelIconList = AttrLabelProxy
toplevelModal :: AttrLabelProxy "modal"
toplevelModal = AttrLabelProxy
toplevelShortcutsInhibited :: AttrLabelProxy "shortcutsInhibited"
toplevelShortcutsInhibited = AttrLabelProxy
toplevelStartupId :: AttrLabelProxy "startupId"
toplevelStartupId = AttrLabelProxy
toplevelState :: AttrLabelProxy "state"
toplevelState = AttrLabelProxy
toplevelTitle :: AttrLabelProxy "title"
toplevelTitle = AttrLabelProxy
toplevelTransientFor :: AttrLabelProxy "transientFor"
toplevelTransientFor = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveToplevelMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveToplevelMethod "beep" o = Gdk.Surface.SurfaceBeepMethodInfo
ResolveToplevelMethod "beginMove" o = ToplevelBeginMoveMethodInfo
ResolveToplevelMethod "beginResize" o = ToplevelBeginResizeMethodInfo
ResolveToplevelMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveToplevelMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveToplevelMethod "createCairoContext" o = Gdk.Surface.SurfaceCreateCairoContextMethodInfo
ResolveToplevelMethod "createGlContext" o = Gdk.Surface.SurfaceCreateGlContextMethodInfo
ResolveToplevelMethod "createSimilarSurface" o = Gdk.Surface.SurfaceCreateSimilarSurfaceMethodInfo
ResolveToplevelMethod "createVulkanContext" o = Gdk.Surface.SurfaceCreateVulkanContextMethodInfo
ResolveToplevelMethod "destroy" o = Gdk.Surface.SurfaceDestroyMethodInfo
ResolveToplevelMethod "focus" o = ToplevelFocusMethodInfo
ResolveToplevelMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveToplevelMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveToplevelMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveToplevelMethod "hide" o = Gdk.Surface.SurfaceHideMethodInfo
ResolveToplevelMethod "inhibitSystemShortcuts" o = ToplevelInhibitSystemShortcutsMethodInfo
ResolveToplevelMethod "isDestroyed" o = Gdk.Surface.SurfaceIsDestroyedMethodInfo
ResolveToplevelMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveToplevelMethod "lower" o = ToplevelLowerMethodInfo
ResolveToplevelMethod "minimize" o = ToplevelMinimizeMethodInfo
ResolveToplevelMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveToplevelMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveToplevelMethod "present" o = ToplevelPresentMethodInfo
ResolveToplevelMethod "queueRender" o = Gdk.Surface.SurfaceQueueRenderMethodInfo
ResolveToplevelMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveToplevelMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveToplevelMethod "requestLayout" o = Gdk.Surface.SurfaceRequestLayoutMethodInfo
ResolveToplevelMethod "restoreSystemShortcuts" o = ToplevelRestoreSystemShortcutsMethodInfo
ResolveToplevelMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveToplevelMethod "showWindowMenu" o = ToplevelShowWindowMenuMethodInfo
ResolveToplevelMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveToplevelMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveToplevelMethod "supportsEdgeConstraints" o = ToplevelSupportsEdgeConstraintsMethodInfo
ResolveToplevelMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveToplevelMethod "titlebarGesture" o = ToplevelTitlebarGestureMethodInfo
ResolveToplevelMethod "translateCoordinates" o = Gdk.Surface.SurfaceTranslateCoordinatesMethodInfo
ResolveToplevelMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveToplevelMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveToplevelMethod "getCursor" o = Gdk.Surface.SurfaceGetCursorMethodInfo
ResolveToplevelMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveToplevelMethod "getDeviceCursor" o = Gdk.Surface.SurfaceGetDeviceCursorMethodInfo
ResolveToplevelMethod "getDevicePosition" o = Gdk.Surface.SurfaceGetDevicePositionMethodInfo
ResolveToplevelMethod "getDisplay" o = Gdk.Surface.SurfaceGetDisplayMethodInfo
ResolveToplevelMethod "getFrameClock" o = Gdk.Surface.SurfaceGetFrameClockMethodInfo
ResolveToplevelMethod "getHeight" o = Gdk.Surface.SurfaceGetHeightMethodInfo
ResolveToplevelMethod "getMapped" o = Gdk.Surface.SurfaceGetMappedMethodInfo
ResolveToplevelMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveToplevelMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveToplevelMethod "getScale" o = Gdk.Surface.SurfaceGetScaleMethodInfo
ResolveToplevelMethod "getScaleFactor" o = Gdk.Surface.SurfaceGetScaleFactorMethodInfo
ResolveToplevelMethod "getState" o = ToplevelGetStateMethodInfo
ResolveToplevelMethod "getWidth" o = Gdk.Surface.SurfaceGetWidthMethodInfo
ResolveToplevelMethod "setCursor" o = Gdk.Surface.SurfaceSetCursorMethodInfo
ResolveToplevelMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveToplevelMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveToplevelMethod "setDecorated" o = ToplevelSetDecoratedMethodInfo
ResolveToplevelMethod "setDeletable" o = ToplevelSetDeletableMethodInfo
ResolveToplevelMethod "setDeviceCursor" o = Gdk.Surface.SurfaceSetDeviceCursorMethodInfo
ResolveToplevelMethod "setIconList" o = ToplevelSetIconListMethodInfo
ResolveToplevelMethod "setInputRegion" o = Gdk.Surface.SurfaceSetInputRegionMethodInfo
ResolveToplevelMethod "setModal" o = ToplevelSetModalMethodInfo
ResolveToplevelMethod "setOpaqueRegion" o = Gdk.Surface.SurfaceSetOpaqueRegionMethodInfo
ResolveToplevelMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveToplevelMethod "setStartupId" o = ToplevelSetStartupIdMethodInfo
ResolveToplevelMethod "setTitle" o = ToplevelSetTitleMethodInfo
ResolveToplevelMethod "setTransientFor" o = ToplevelSetTransientForMethodInfo
ResolveToplevelMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveToplevelMethod t Toplevel, O.OverloadedMethod info Toplevel p) => OL.IsLabel t (Toplevel -> 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 ~ ResolveToplevelMethod t Toplevel, O.OverloadedMethod info Toplevel p, R.HasField t Toplevel p) => R.HasField t Toplevel p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveToplevelMethod t Toplevel, O.OverloadedMethodInfo info Toplevel) => OL.IsLabel t (O.MethodProxy info Toplevel) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
foreign import ccall "gdk_toplevel_begin_move" gdk_toplevel_begin_move ::
Ptr Toplevel ->
Ptr Gdk.Device.Device ->
Int32 ->
CDouble ->
CDouble ->
Word32 ->
IO ()
toplevelBeginMove ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a, Gdk.Device.IsDevice b) =>
a
-> b
-> Int32
-> Double
-> Double
-> Word32
-> m ()
toplevelBeginMove :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsToplevel a, IsDevice b) =>
a -> b -> Int32 -> Double -> Double -> Word32 -> m ()
toplevelBeginMove a
toplevel b
device Int32
button Double
x Double
y Word32
timestamp = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
device' <- unsafeManagedPtrCastPtr device
let x' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
x
let y' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
y
gdk_toplevel_begin_move toplevel' device' button x' y' timestamp
touchManagedPtr toplevel
touchManagedPtr device
return ()
#if defined(ENABLE_OVERLOADING)
data ToplevelBeginMoveMethodInfo
instance (signature ~ (b -> Int32 -> Double -> Double -> Word32 -> m ()), MonadIO m, IsToplevel a, Gdk.Device.IsDevice b) => O.OverloadedMethod ToplevelBeginMoveMethodInfo a signature where
overloadedMethod = toplevelBeginMove
instance O.OverloadedMethodInfo ToplevelBeginMoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelBeginMove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelBeginMove"
})
#endif
foreign import ccall "gdk_toplevel_begin_resize" gdk_toplevel_begin_resize ::
Ptr Toplevel ->
CUInt ->
Ptr Gdk.Device.Device ->
Int32 ->
CDouble ->
CDouble ->
Word32 ->
IO ()
toplevelBeginResize ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a, Gdk.Device.IsDevice b) =>
a
-> Gdk.Enums.SurfaceEdge
-> Maybe (b)
-> Int32
-> Double
-> Double
-> Word32
-> m ()
toplevelBeginResize :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsToplevel a, IsDevice b) =>
a
-> SurfaceEdge
-> Maybe b
-> Int32
-> Double
-> Double
-> Word32
-> m ()
toplevelBeginResize a
toplevel SurfaceEdge
edge Maybe b
device Int32
button Double
x Double
y Word32
timestamp = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
let edge' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (SurfaceEdge -> Int) -> SurfaceEdge -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SurfaceEdge -> Int
forall a. Enum a => a -> Int
fromEnum) SurfaceEdge
edge
maybeDevice <- case device of
Maybe b
Nothing -> Ptr Device -> IO (Ptr Device)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Device
forall a. Ptr a
FP.nullPtr
Just b
jDevice -> do
jDevice' <- b -> IO (Ptr Device)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jDevice
return jDevice'
let x' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
x
let y' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
y
gdk_toplevel_begin_resize toplevel' edge' maybeDevice button x' y' timestamp
touchManagedPtr toplevel
whenJust device touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data ToplevelBeginResizeMethodInfo
instance (signature ~ (Gdk.Enums.SurfaceEdge -> Maybe (b) -> Int32 -> Double -> Double -> Word32 -> m ()), MonadIO m, IsToplevel a, Gdk.Device.IsDevice b) => O.OverloadedMethod ToplevelBeginResizeMethodInfo a signature where
overloadedMethod = toplevelBeginResize
instance O.OverloadedMethodInfo ToplevelBeginResizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelBeginResize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelBeginResize"
})
#endif
foreign import ccall "gdk_toplevel_focus" gdk_toplevel_focus ::
Ptr Toplevel ->
Word32 ->
IO ()
toplevelFocus ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a) =>
a
-> Word32
-> m ()
toplevelFocus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToplevel a) =>
a -> Word32 -> m ()
toplevelFocus a
toplevel Word32
timestamp = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
gdk_toplevel_focus toplevel' timestamp
touchManagedPtr toplevel
return ()
#if defined(ENABLE_OVERLOADING)
data ToplevelFocusMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsToplevel a) => O.OverloadedMethod ToplevelFocusMethodInfo a signature where
overloadedMethod = toplevelFocus
instance O.OverloadedMethodInfo ToplevelFocusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelFocus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelFocus"
})
#endif
foreign import ccall "gdk_toplevel_get_state" gdk_toplevel_get_state ::
Ptr Toplevel ->
IO CUInt
toplevelGetState ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a) =>
a
-> m [Gdk.Flags.ToplevelState]
toplevelGetState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToplevel a) =>
a -> m [ToplevelState]
toplevelGetState a
toplevel = IO [ToplevelState] -> m [ToplevelState]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [ToplevelState] -> m [ToplevelState])
-> IO [ToplevelState] -> m [ToplevelState]
forall a b. (a -> b) -> a -> b
$ do
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
result <- gdk_toplevel_get_state toplevel'
let result' = CUInt -> [ToplevelState]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
touchManagedPtr toplevel
return result'
#if defined(ENABLE_OVERLOADING)
data ToplevelGetStateMethodInfo
instance (signature ~ (m [Gdk.Flags.ToplevelState]), MonadIO m, IsToplevel a) => O.OverloadedMethod ToplevelGetStateMethodInfo a signature where
overloadedMethod = toplevelGetState
instance O.OverloadedMethodInfo ToplevelGetStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelGetState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelGetState"
})
#endif
foreign import ccall "gdk_toplevel_inhibit_system_shortcuts" gdk_toplevel_inhibit_system_shortcuts ::
Ptr Toplevel ->
Ptr Gdk.Event.Event ->
IO ()
toplevelInhibitSystemShortcuts ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a, Gdk.Event.IsEvent b) =>
a
-> Maybe (b)
-> m ()
toplevelInhibitSystemShortcuts :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsToplevel a, IsEvent b) =>
a -> Maybe b -> m ()
toplevelInhibitSystemShortcuts a
toplevel Maybe b
event = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
maybeEvent <- case event of
Maybe b
Nothing -> Ptr Event -> IO (Ptr Event)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Event
forall a. Ptr a
FP.nullPtr
Just b
jEvent -> do
jEvent' <- b -> IO (Ptr Event)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jEvent
return jEvent'
gdk_toplevel_inhibit_system_shortcuts toplevel' maybeEvent
touchManagedPtr toplevel
whenJust event touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data ToplevelInhibitSystemShortcutsMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsToplevel a, Gdk.Event.IsEvent b) => O.OverloadedMethod ToplevelInhibitSystemShortcutsMethodInfo a signature where
overloadedMethod = toplevelInhibitSystemShortcuts
instance O.OverloadedMethodInfo ToplevelInhibitSystemShortcutsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelInhibitSystemShortcuts",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelInhibitSystemShortcuts"
})
#endif
foreign import ccall "gdk_toplevel_lower" gdk_toplevel_lower ::
Ptr Toplevel ->
IO CInt
toplevelLower ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a) =>
a
-> m Bool
toplevelLower :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToplevel a) =>
a -> m Bool
toplevelLower a
toplevel = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
result <- gdk_toplevel_lower toplevel'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr toplevel
return result'
#if defined(ENABLE_OVERLOADING)
data ToplevelLowerMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsToplevel a) => O.OverloadedMethod ToplevelLowerMethodInfo a signature where
overloadedMethod = toplevelLower
instance O.OverloadedMethodInfo ToplevelLowerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelLower",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelLower"
})
#endif
foreign import ccall "gdk_toplevel_minimize" gdk_toplevel_minimize ::
Ptr Toplevel ->
IO CInt
toplevelMinimize ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a) =>
a
-> m Bool
toplevelMinimize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToplevel a) =>
a -> m Bool
toplevelMinimize a
toplevel = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
result <- gdk_toplevel_minimize toplevel'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr toplevel
return result'
#if defined(ENABLE_OVERLOADING)
data ToplevelMinimizeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsToplevel a) => O.OverloadedMethod ToplevelMinimizeMethodInfo a signature where
overloadedMethod = toplevelMinimize
instance O.OverloadedMethodInfo ToplevelMinimizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelMinimize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelMinimize"
})
#endif
foreign import ccall "gdk_toplevel_present" gdk_toplevel_present ::
Ptr Toplevel ->
Ptr Gdk.ToplevelLayout.ToplevelLayout ->
IO ()
toplevelPresent ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a) =>
a
-> Gdk.ToplevelLayout.ToplevelLayout
-> m ()
toplevelPresent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToplevel a) =>
a -> ToplevelLayout -> m ()
toplevelPresent a
toplevel ToplevelLayout
layout = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
layout' <- unsafeManagedPtrGetPtr layout
gdk_toplevel_present toplevel' layout'
touchManagedPtr toplevel
touchManagedPtr layout
return ()
#if defined(ENABLE_OVERLOADING)
data ToplevelPresentMethodInfo
instance (signature ~ (Gdk.ToplevelLayout.ToplevelLayout -> m ()), MonadIO m, IsToplevel a) => O.OverloadedMethod ToplevelPresentMethodInfo a signature where
overloadedMethod = toplevelPresent
instance O.OverloadedMethodInfo ToplevelPresentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelPresent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelPresent"
})
#endif
foreign import ccall "gdk_toplevel_restore_system_shortcuts" gdk_toplevel_restore_system_shortcuts ::
Ptr Toplevel ->
IO ()
toplevelRestoreSystemShortcuts ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a) =>
a
-> m ()
toplevelRestoreSystemShortcuts :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToplevel a) =>
a -> m ()
toplevelRestoreSystemShortcuts a
toplevel = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
gdk_toplevel_restore_system_shortcuts toplevel'
touchManagedPtr toplevel
return ()
#if defined(ENABLE_OVERLOADING)
data ToplevelRestoreSystemShortcutsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsToplevel a) => O.OverloadedMethod ToplevelRestoreSystemShortcutsMethodInfo a signature where
overloadedMethod = toplevelRestoreSystemShortcuts
instance O.OverloadedMethodInfo ToplevelRestoreSystemShortcutsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelRestoreSystemShortcuts",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelRestoreSystemShortcuts"
})
#endif
foreign import ccall "gdk_toplevel_set_decorated" gdk_toplevel_set_decorated ::
Ptr Toplevel ->
CInt ->
IO ()
toplevelSetDecorated ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a) =>
a
-> Bool
-> m ()
toplevelSetDecorated :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToplevel a) =>
a -> Bool -> m ()
toplevelSetDecorated a
toplevel Bool
decorated = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
let decorated' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
decorated
gdk_toplevel_set_decorated toplevel' decorated'
touchManagedPtr toplevel
return ()
#if defined(ENABLE_OVERLOADING)
data ToplevelSetDecoratedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsToplevel a) => O.OverloadedMethod ToplevelSetDecoratedMethodInfo a signature where
overloadedMethod = toplevelSetDecorated
instance O.OverloadedMethodInfo ToplevelSetDecoratedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelSetDecorated",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelSetDecorated"
})
#endif
foreign import ccall "gdk_toplevel_set_deletable" gdk_toplevel_set_deletable ::
Ptr Toplevel ->
CInt ->
IO ()
toplevelSetDeletable ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a) =>
a
-> Bool
-> m ()
toplevelSetDeletable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToplevel a) =>
a -> Bool -> m ()
toplevelSetDeletable a
toplevel Bool
deletable = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
let deletable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
deletable
gdk_toplevel_set_deletable toplevel' deletable'
touchManagedPtr toplevel
return ()
#if defined(ENABLE_OVERLOADING)
data ToplevelSetDeletableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsToplevel a) => O.OverloadedMethod ToplevelSetDeletableMethodInfo a signature where
overloadedMethod = toplevelSetDeletable
instance O.OverloadedMethodInfo ToplevelSetDeletableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelSetDeletable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelSetDeletable"
})
#endif
foreign import ccall "gdk_toplevel_set_icon_list" gdk_toplevel_set_icon_list ::
Ptr Toplevel ->
Ptr (GList (Ptr Gdk.Texture.Texture)) ->
IO ()
toplevelSetIconList ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a, Gdk.Texture.IsTexture b) =>
a
-> [b]
-> m ()
toplevelSetIconList :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsToplevel a, IsTexture b) =>
a -> [b] -> m ()
toplevelSetIconList a
toplevel [b]
surfaces = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
surfaces' <- mapM unsafeManagedPtrCastPtr surfaces
surfaces'' <- packGList surfaces'
gdk_toplevel_set_icon_list toplevel' surfaces''
touchManagedPtr toplevel
mapM_ touchManagedPtr surfaces
g_list_free surfaces''
return ()
#if defined(ENABLE_OVERLOADING)
data ToplevelSetIconListMethodInfo
instance (signature ~ ([b] -> m ()), MonadIO m, IsToplevel a, Gdk.Texture.IsTexture b) => O.OverloadedMethod ToplevelSetIconListMethodInfo a signature where
overloadedMethod = toplevelSetIconList
instance O.OverloadedMethodInfo ToplevelSetIconListMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelSetIconList",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelSetIconList"
})
#endif
foreign import ccall "gdk_toplevel_set_modal" gdk_toplevel_set_modal ::
Ptr Toplevel ->
CInt ->
IO ()
toplevelSetModal ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a) =>
a
-> Bool
-> m ()
toplevelSetModal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToplevel a) =>
a -> Bool -> m ()
toplevelSetModal a
toplevel Bool
modal = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
let modal' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
modal
gdk_toplevel_set_modal toplevel' modal'
touchManagedPtr toplevel
return ()
#if defined(ENABLE_OVERLOADING)
data ToplevelSetModalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsToplevel a) => O.OverloadedMethod ToplevelSetModalMethodInfo a signature where
overloadedMethod = toplevelSetModal
instance O.OverloadedMethodInfo ToplevelSetModalMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelSetModal",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelSetModal"
})
#endif
foreign import ccall "gdk_toplevel_set_startup_id" gdk_toplevel_set_startup_id ::
Ptr Toplevel ->
CString ->
IO ()
toplevelSetStartupId ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a) =>
a
-> T.Text
-> m ()
toplevelSetStartupId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToplevel a) =>
a -> Text -> m ()
toplevelSetStartupId a
toplevel Text
startupId = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
startupId' <- textToCString startupId
gdk_toplevel_set_startup_id toplevel' startupId'
touchManagedPtr toplevel
freeMem startupId'
return ()
#if defined(ENABLE_OVERLOADING)
data ToplevelSetStartupIdMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsToplevel a) => O.OverloadedMethod ToplevelSetStartupIdMethodInfo a signature where
overloadedMethod = toplevelSetStartupId
instance O.OverloadedMethodInfo ToplevelSetStartupIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelSetStartupId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelSetStartupId"
})
#endif
foreign import ccall "gdk_toplevel_set_title" gdk_toplevel_set_title ::
Ptr Toplevel ->
CString ->
IO ()
toplevelSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a) =>
a
-> T.Text
-> m ()
toplevelSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToplevel a) =>
a -> Text -> m ()
toplevelSetTitle a
toplevel Text
title = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
title' <- textToCString title
gdk_toplevel_set_title toplevel' title'
touchManagedPtr toplevel
freeMem title'
return ()
#if defined(ENABLE_OVERLOADING)
data ToplevelSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsToplevel a) => O.OverloadedMethod ToplevelSetTitleMethodInfo a signature where
overloadedMethod = toplevelSetTitle
instance O.OverloadedMethodInfo ToplevelSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelSetTitle"
})
#endif
foreign import ccall "gdk_toplevel_set_transient_for" gdk_toplevel_set_transient_for ::
Ptr Toplevel ->
Ptr Gdk.Surface.Surface ->
IO ()
toplevelSetTransientFor ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a, Gdk.Surface.IsSurface b) =>
a
-> b
-> m ()
toplevelSetTransientFor :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsToplevel a, IsSurface b) =>
a -> b -> m ()
toplevelSetTransientFor a
toplevel b
parent = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
parent' <- unsafeManagedPtrCastPtr parent
gdk_toplevel_set_transient_for toplevel' parent'
touchManagedPtr toplevel
touchManagedPtr parent
return ()
#if defined(ENABLE_OVERLOADING)
data ToplevelSetTransientForMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsToplevel a, Gdk.Surface.IsSurface b) => O.OverloadedMethod ToplevelSetTransientForMethodInfo a signature where
overloadedMethod = toplevelSetTransientFor
instance O.OverloadedMethodInfo ToplevelSetTransientForMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelSetTransientFor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelSetTransientFor"
})
#endif
foreign import ccall "gdk_toplevel_show_window_menu" ::
Ptr Toplevel ->
Ptr Gdk.Event.Event ->
IO CInt
toplevelShowWindowMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a, Gdk.Event.IsEvent b) =>
a
-> b
-> m Bool
a
toplevel b
event = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
event' <- unsafeManagedPtrCastPtr event
result <- gdk_toplevel_show_window_menu toplevel' event'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr toplevel
touchManagedPtr event
return result'
#if defined(ENABLE_OVERLOADING)
data ToplevelShowWindowMenuMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsToplevel a, Gdk.Event.IsEvent b) => O.OverloadedMethod ToplevelShowWindowMenuMethodInfo a signature where
overloadedMethod = toplevelShowWindowMenu
instance O.OverloadedMethodInfo ToplevelShowWindowMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelShowWindowMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelShowWindowMenu"
})
#endif
foreign import ccall "gdk_toplevel_supports_edge_constraints" gdk_toplevel_supports_edge_constraints ::
Ptr Toplevel ->
IO CInt
toplevelSupportsEdgeConstraints ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a) =>
a
-> m Bool
toplevelSupportsEdgeConstraints :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToplevel a) =>
a -> m Bool
toplevelSupportsEdgeConstraints a
toplevel = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
result <- gdk_toplevel_supports_edge_constraints toplevel'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr toplevel
return result'
#if defined(ENABLE_OVERLOADING)
data ToplevelSupportsEdgeConstraintsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsToplevel a) => O.OverloadedMethod ToplevelSupportsEdgeConstraintsMethodInfo a signature where
overloadedMethod = toplevelSupportsEdgeConstraints
instance O.OverloadedMethodInfo ToplevelSupportsEdgeConstraintsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelSupportsEdgeConstraints",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelSupportsEdgeConstraints"
})
#endif
foreign import ccall "gdk_toplevel_titlebar_gesture" gdk_toplevel_titlebar_gesture ::
Ptr Toplevel ->
CUInt ->
IO CInt
toplevelTitlebarGesture ::
(B.CallStack.HasCallStack, MonadIO m, IsToplevel a) =>
a
-> Gdk.Enums.TitlebarGesture
-> m Bool
toplevelTitlebarGesture :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToplevel a) =>
a -> TitlebarGesture -> m Bool
toplevelTitlebarGesture a
toplevel TitlebarGesture
gesture = 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
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
let gesture' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (TitlebarGesture -> Int) -> TitlebarGesture -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TitlebarGesture -> Int
forall a. Enum a => a -> Int
fromEnum) TitlebarGesture
gesture
result <- gdk_toplevel_titlebar_gesture toplevel' gesture'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr toplevel
return result'
#if defined(ENABLE_OVERLOADING)
data ToplevelTitlebarGestureMethodInfo
instance (signature ~ (Gdk.Enums.TitlebarGesture -> m Bool), MonadIO m, IsToplevel a) => O.OverloadedMethod ToplevelTitlebarGestureMethodInfo a signature where
overloadedMethod = toplevelTitlebarGesture
instance O.OverloadedMethodInfo ToplevelTitlebarGestureMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel.toplevelTitlebarGesture",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelTitlebarGesture"
})
#endif
type ToplevelComputeSizeCallback =
Gdk.ToplevelSize.ToplevelSize
-> IO ()
type C_ToplevelComputeSizeCallback =
Ptr Toplevel ->
Ptr Gdk.ToplevelSize.ToplevelSize ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ToplevelComputeSizeCallback :: C_ToplevelComputeSizeCallback -> IO (FunPtr C_ToplevelComputeSizeCallback)
wrap_ToplevelComputeSizeCallback ::
GObject a => (a -> ToplevelComputeSizeCallback) ->
C_ToplevelComputeSizeCallback
wrap_ToplevelComputeSizeCallback :: forall a.
GObject a =>
(a -> ToplevelComputeSizeCallback) -> C_ToplevelComputeSizeCallback
wrap_ToplevelComputeSizeCallback a -> ToplevelComputeSizeCallback
gi'cb Ptr Toplevel
gi'selfPtr Ptr ToplevelSize
size Ptr ()
_ = do
size' <- ((ManagedPtr ToplevelSize -> ToplevelSize)
-> Ptr ToplevelSize -> IO ToplevelSize
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr ToplevelSize -> ToplevelSize
Gdk.ToplevelSize.ToplevelSize) Ptr ToplevelSize
size
B.ManagedPtr.withNewObject gi'selfPtr $ \Toplevel
gi'self -> a -> ToplevelComputeSizeCallback
gi'cb (Toplevel -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Toplevel
gi'self) ToplevelSize
size'
onToplevelComputeSize :: (IsToplevel a, MonadIO m) => a -> ((?self :: a) => ToplevelComputeSizeCallback) -> m SignalHandlerId
onToplevelComputeSize :: forall a (m :: * -> *).
(IsToplevel a, MonadIO m) =>
a
-> ((?self::a) => ToplevelComputeSizeCallback) -> m SignalHandlerId
onToplevelComputeSize a
obj (?self::a) => ToplevelComputeSizeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ToplevelComputeSizeCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ToplevelComputeSizeCallback
ToplevelComputeSizeCallback
cb
let wrapped' :: C_ToplevelComputeSizeCallback
wrapped' = (a -> ToplevelComputeSizeCallback) -> C_ToplevelComputeSizeCallback
forall a.
GObject a =>
(a -> ToplevelComputeSizeCallback) -> C_ToplevelComputeSizeCallback
wrap_ToplevelComputeSizeCallback a -> ToplevelComputeSizeCallback
wrapped
wrapped'' <- C_ToplevelComputeSizeCallback
-> IO (FunPtr C_ToplevelComputeSizeCallback)
mk_ToplevelComputeSizeCallback C_ToplevelComputeSizeCallback
wrapped'
connectSignalFunPtr obj "compute-size" wrapped'' SignalConnectBefore Nothing
afterToplevelComputeSize :: (IsToplevel a, MonadIO m) => a -> ((?self :: a) => ToplevelComputeSizeCallback) -> m SignalHandlerId
afterToplevelComputeSize :: forall a (m :: * -> *).
(IsToplevel a, MonadIO m) =>
a
-> ((?self::a) => ToplevelComputeSizeCallback) -> m SignalHandlerId
afterToplevelComputeSize a
obj (?self::a) => ToplevelComputeSizeCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ToplevelComputeSizeCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ToplevelComputeSizeCallback
ToplevelComputeSizeCallback
cb
let wrapped' :: C_ToplevelComputeSizeCallback
wrapped' = (a -> ToplevelComputeSizeCallback) -> C_ToplevelComputeSizeCallback
forall a.
GObject a =>
(a -> ToplevelComputeSizeCallback) -> C_ToplevelComputeSizeCallback
wrap_ToplevelComputeSizeCallback a -> ToplevelComputeSizeCallback
wrapped
wrapped'' <- C_ToplevelComputeSizeCallback
-> IO (FunPtr C_ToplevelComputeSizeCallback)
mk_ToplevelComputeSizeCallback C_ToplevelComputeSizeCallback
wrapped'
connectSignalFunPtr obj "compute-size" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data ToplevelComputeSizeSignalInfo
instance SignalInfo ToplevelComputeSizeSignalInfo where
type HaskellCallbackType ToplevelComputeSizeSignalInfo = ToplevelComputeSizeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ToplevelComputeSizeCallback cb
cb'' <- mk_ToplevelComputeSizeCallback cb'
connectSignalFunPtr obj "compute-size" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Interfaces.Toplevel::compute-size"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-4.0.9/docs/GI-Gdk-Interfaces-Toplevel.html#g:signal:computeSize"})
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Toplevel = ToplevelSignalList
type ToplevelSignalList = ('[ '("computeSize", ToplevelComputeSizeSignalInfo), '("enterMonitor", Gdk.Surface.SurfaceEnterMonitorSignalInfo), '("event", Gdk.Surface.SurfaceEventSignalInfo), '("layout", Gdk.Surface.SurfaceLayoutSignalInfo), '("leaveMonitor", Gdk.Surface.SurfaceLeaveMonitorSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("render", Gdk.Surface.SurfaceRenderSignalInfo)] :: [(Symbol, DK.Type)])
#endif