{-# LANGUAGE 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)
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
#if defined(ENABLE_OVERLOADING)
ToplevelComputeSizeSignalInfo ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# 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
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
/= :: Toplevel -> Toplevel -> Bool
$c/= :: Toplevel -> Toplevel -> Bool
== :: Toplevel -> Toplevel -> Bool
$c== :: 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 (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 Toplevel
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 Toplevel
ptr Ptr Toplevel -> Ptr Toplevel -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Toplevel
forall a. Ptr a
FP.nullPtr
then Toplevel -> Maybe Toplevel
forall a. a -> Maybe a
P.Just (Toplevel -> Maybe Toplevel) -> IO Toplevel -> IO (Maybe Toplevel)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Toplevel -> Toplevel) -> Ptr Toplevel -> IO Toplevel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Toplevel -> Toplevel
Toplevel Ptr Toplevel
ptr
else Maybe Toplevel -> IO (Maybe Toplevel)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Toplevel
forall a. Maybe a
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 (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 (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 (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 (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
#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 (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 (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 (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 (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
#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 (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 (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 (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 (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
#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 (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 (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 (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 (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
#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 (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 (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 (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 (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
#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 (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
#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 (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 (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 (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 (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
#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 (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
#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 (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 (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 (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 (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
#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 (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 (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 (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 (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
#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), '("scaleFactor", Gdk.Surface.SurfaceScaleFactorPropertyInfo), '("shortcutsInhibited", ToplevelShortcutsInhibitedPropertyInfo), '("startupId", ToplevelStartupIdPropertyInfo), '("state", ToplevelStatePropertyInfo), '("title", ToplevelTitlePropertyInfo), '("transientFor", ToplevelTransientForPropertyInfo), '("width", Gdk.Surface.SurfaceWidthPropertyInfo)] :: [(Symbol, *)])
#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 :: *) :: * 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 "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 "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 (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
Ptr Device
device' <- b -> IO (Ptr Device)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
device
let x' :: CDouble
x' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
x
let y' :: CDouble
y' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
y
Ptr Toplevel
-> Ptr Device -> Int32 -> CDouble -> CDouble -> Word32 -> IO ()
gdk_toplevel_begin_move Ptr Toplevel
toplevel' Ptr Device
device' Int32
button CDouble
x' CDouble
y' Word32
timestamp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toplevel
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
device
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelBeginMove",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
let edge' :: CUInt
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
Ptr Device
maybeDevice <- case Maybe b
device of
Maybe b
Nothing -> Ptr Device -> IO (Ptr Device)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Device
forall a. Ptr a
nullPtr
Just b
jDevice -> do
Ptr Device
jDevice' <- b -> IO (Ptr Device)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jDevice
Ptr Device -> IO (Ptr Device)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Device
jDevice'
let x' :: CDouble
x' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
x
let y' :: CDouble
y' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
y
Ptr Toplevel
-> CUInt
-> Ptr Device
-> Int32
-> CDouble
-> CDouble
-> Word32
-> IO ()
gdk_toplevel_begin_resize Ptr Toplevel
toplevel' CUInt
edge' Ptr Device
maybeDevice Int32
button CDouble
x' CDouble
y' Word32
timestamp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toplevel
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
device b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelBeginResize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
Ptr Toplevel -> Word32 -> IO ()
gdk_toplevel_focus Ptr Toplevel
toplevel' Word32
timestamp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toplevel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelFocus",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (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
Ptr Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
CUInt
result <- Ptr Toplevel -> IO CUInt
gdk_toplevel_get_state Ptr Toplevel
toplevel'
let result' :: [ToplevelState]
result' = CUInt -> [ToplevelState]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toplevel
[ToplevelState] -> IO [ToplevelState]
forall (m :: * -> *) a. Monad m => a -> m a
return [ToplevelState]
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelGetState",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
Ptr Event
maybeEvent <- case Maybe b
event of
Maybe b
Nothing -> Ptr Event -> IO (Ptr Event)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Event
forall a. Ptr a
nullPtr
Just b
jEvent -> do
Ptr Event
jEvent' <- b -> IO (Ptr Event)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jEvent
Ptr Event -> IO (Ptr Event)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Event
jEvent'
Ptr Toplevel -> Ptr Event -> IO ()
gdk_toplevel_inhibit_system_shortcuts Ptr Toplevel
toplevel' Ptr Event
maybeEvent
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toplevel
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
event b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelInhibitSystemShortcuts",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (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 Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
CInt
result <- Ptr Toplevel -> IO CInt
gdk_toplevel_lower Ptr Toplevel
toplevel'
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
toplevel
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelLower",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (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 Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
CInt
result <- Ptr Toplevel -> IO CInt
gdk_toplevel_minimize Ptr Toplevel
toplevel'
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
toplevel
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelMinimize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
Ptr ToplevelLayout
layout' <- ToplevelLayout -> IO (Ptr ToplevelLayout)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ToplevelLayout
layout
Ptr Toplevel -> Ptr ToplevelLayout -> IO ()
gdk_toplevel_present Ptr Toplevel
toplevel' Ptr ToplevelLayout
layout'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toplevel
ToplevelLayout -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ToplevelLayout
layout
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelPresent",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
Ptr Toplevel -> IO ()
gdk_toplevel_restore_system_shortcuts Ptr Toplevel
toplevel'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toplevel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelRestoreSystemShortcuts",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
let decorated' :: CInt
decorated' = (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
decorated
Ptr Toplevel -> CInt -> IO ()
gdk_toplevel_set_decorated Ptr Toplevel
toplevel' CInt
decorated'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toplevel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelSetDecorated",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
let deletable' :: CInt
deletable' = (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
deletable
Ptr Toplevel -> CInt -> IO ()
gdk_toplevel_set_deletable Ptr Toplevel
toplevel' CInt
deletable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toplevel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelSetDeletable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
[Ptr Texture]
surfaces' <- (b -> IO (Ptr Texture)) -> [b] -> IO [Ptr Texture]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM b -> IO (Ptr Texture)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [b]
surfaces
Ptr (GList (Ptr Texture))
surfaces'' <- [Ptr Texture] -> IO (Ptr (GList (Ptr Texture)))
forall a. [Ptr a] -> IO (Ptr (GList (Ptr a)))
packGList [Ptr Texture]
surfaces'
Ptr Toplevel -> Ptr (GList (Ptr Texture)) -> IO ()
gdk_toplevel_set_icon_list Ptr Toplevel
toplevel' Ptr (GList (Ptr Texture))
surfaces''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toplevel
(b -> IO ()) -> [b] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [b]
surfaces
Ptr (GList (Ptr Texture)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr Texture))
surfaces''
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelSetIconList",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
let modal' :: CInt
modal' = (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
modal
Ptr Toplevel -> CInt -> IO ()
gdk_toplevel_set_modal Ptr Toplevel
toplevel' CInt
modal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toplevel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelSetModal",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
CString
startupId' <- Text -> IO CString
textToCString Text
startupId
Ptr Toplevel -> CString -> IO ()
gdk_toplevel_set_startup_id Ptr Toplevel
toplevel' CString
startupId'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toplevel
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
startupId'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data 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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelSetStartupId",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr Toplevel -> CString -> IO ()
gdk_toplevel_set_title Ptr Toplevel
toplevel' CString
title'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toplevel
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
title'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelSetTitle",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
Ptr Surface
parent' <- b -> IO (Ptr Surface)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
parent
Ptr Toplevel -> Ptr Surface -> IO ()
gdk_toplevel_set_transient_for Ptr Toplevel
toplevel' Ptr Surface
parent'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
toplevel
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
parent
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelSetTransientFor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (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 Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
Ptr Event
event' <- b -> IO (Ptr Event)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
event
CInt
result <- Ptr Toplevel -> Ptr Event -> IO CInt
gdk_toplevel_show_window_menu Ptr Toplevel
toplevel' Ptr Event
event'
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
toplevel
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
event
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelShowWindowMenu",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/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 (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 Toplevel
toplevel' <- a -> IO (Ptr Toplevel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
toplevel
CInt
result <- Ptr Toplevel -> IO CInt
gdk_toplevel_supports_edge_constraints Ptr Toplevel
toplevel'
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
toplevel
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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 = O.MethodInfo {
O.overloadedMethodName = "GI.Gdk.Interfaces.Toplevel.toplevelSupportsEdgeConstraints",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gdk-4.0.3/docs/GI-Gdk-Interfaces-Toplevel.html#v:toplevelSupportsEdgeConstraints"
}
#endif
#if defined(ENABLE_OVERLOADING)
data ToplevelComputeSizeSignalInfo
instance SignalInfo ToplevelComputeSizeSignalInfo where
type HaskellCallbackType ToplevelComputeSizeSignalInfo = B.Signals.SignalCodeGenError "Toplevel::compute-size"
connectSignal = undefined
#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, *)])
#endif