{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.CenterLayout
(
CenterLayout(..) ,
IsCenterLayout ,
toCenterLayout ,
#if defined(ENABLE_OVERLOADING)
ResolveCenterLayoutMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CenterLayoutGetBaselinePositionMethodInfo,
#endif
centerLayoutGetBaselinePosition ,
#if defined(ENABLE_OVERLOADING)
CenterLayoutGetCenterWidgetMethodInfo ,
#endif
centerLayoutGetCenterWidget ,
#if defined(ENABLE_OVERLOADING)
CenterLayoutGetEndWidgetMethodInfo ,
#endif
centerLayoutGetEndWidget ,
#if defined(ENABLE_OVERLOADING)
CenterLayoutGetOrientationMethodInfo ,
#endif
centerLayoutGetOrientation ,
#if defined(ENABLE_OVERLOADING)
CenterLayoutGetShrinkCenterLastMethodInfo,
#endif
centerLayoutGetShrinkCenterLast ,
#if defined(ENABLE_OVERLOADING)
CenterLayoutGetStartWidgetMethodInfo ,
#endif
centerLayoutGetStartWidget ,
centerLayoutNew ,
#if defined(ENABLE_OVERLOADING)
CenterLayoutSetBaselinePositionMethodInfo,
#endif
centerLayoutSetBaselinePosition ,
#if defined(ENABLE_OVERLOADING)
CenterLayoutSetCenterWidgetMethodInfo ,
#endif
centerLayoutSetCenterWidget ,
#if defined(ENABLE_OVERLOADING)
CenterLayoutSetEndWidgetMethodInfo ,
#endif
centerLayoutSetEndWidget ,
#if defined(ENABLE_OVERLOADING)
CenterLayoutSetOrientationMethodInfo ,
#endif
centerLayoutSetOrientation ,
#if defined(ENABLE_OVERLOADING)
CenterLayoutSetShrinkCenterLastMethodInfo,
#endif
centerLayoutSetShrinkCenterLast ,
#if defined(ENABLE_OVERLOADING)
CenterLayoutSetStartWidgetMethodInfo ,
#endif
centerLayoutSetStartWidget ,
#if defined(ENABLE_OVERLOADING)
CenterLayoutShrinkCenterLastPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
centerLayoutShrinkCenterLast ,
#endif
constructCenterLayoutShrinkCenterLast ,
getCenterLayoutShrinkCenterLast ,
setCenterLayoutShrinkCenterLast ,
) 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.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import qualified GI.Gdk.Objects.Surface as Gdk.Surface
import qualified GI.Gdk.Objects.Texture as Gdk.Texture
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Point3D as Graphene.Point3D
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import qualified GI.Graphene.Structs.Size as Graphene.Size
import qualified GI.Graphene.Structs.Vec3 as Graphene.Vec3
import qualified GI.Graphene.Structs.Vec4 as Graphene.Vec4
import qualified GI.Gsk.Enums as Gsk.Enums
import qualified GI.Gsk.Objects.GLShader as Gsk.GLShader
import qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import qualified GI.Gsk.Objects.Renderer as Gsk.Renderer
import qualified GI.Gsk.Structs.ColorStop as Gsk.ColorStop
import qualified GI.Gsk.Structs.Path as Gsk.Path
import qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
import qualified GI.Gsk.Structs.Shadow as Gsk.Shadow
import qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
import qualified GI.Gsk.Structs.Transform as Gsk.Transform
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Native as Gtk.Native
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Objects.ATContext as Gtk.ATContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutChild as Gtk.LayoutChild
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
import qualified GI.Pango.Enums as Pango.Enums
import qualified GI.Pango.Objects.Context as Pango.Context
import qualified GI.Pango.Objects.FontMap as Pango.FontMap
import qualified GI.Pango.Objects.Layout as Pango.Layout
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
#endif
newtype CenterLayout = CenterLayout (SP.ManagedPtr CenterLayout)
deriving (CenterLayout -> CenterLayout -> Bool
(CenterLayout -> CenterLayout -> Bool)
-> (CenterLayout -> CenterLayout -> Bool) -> Eq CenterLayout
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CenterLayout -> CenterLayout -> Bool
== :: CenterLayout -> CenterLayout -> Bool
$c/= :: CenterLayout -> CenterLayout -> Bool
/= :: CenterLayout -> CenterLayout -> Bool
Eq)
instance SP.ManagedPtrNewtype CenterLayout where
toManagedPtr :: CenterLayout -> ManagedPtr CenterLayout
toManagedPtr (CenterLayout ManagedPtr CenterLayout
p) = ManagedPtr CenterLayout
p
foreign import ccall "gtk_center_layout_get_type"
c_gtk_center_layout_get_type :: IO B.Types.GType
instance B.Types.TypedObject CenterLayout where
glibType :: IO GType
glibType = IO GType
c_gtk_center_layout_get_type
instance B.Types.GObject CenterLayout
class (SP.GObject o, O.IsDescendantOf CenterLayout o) => IsCenterLayout o
instance (SP.GObject o, O.IsDescendantOf CenterLayout o) => IsCenterLayout o
instance O.HasParentTypes CenterLayout
type instance O.ParentTypes CenterLayout = '[Gtk.LayoutManager.LayoutManager, GObject.Object.Object]
toCenterLayout :: (MIO.MonadIO m, IsCenterLayout o) => o -> m CenterLayout
toCenterLayout :: forall (m :: * -> *) o.
(MonadIO m, IsCenterLayout o) =>
o -> m CenterLayout
toCenterLayout = IO CenterLayout -> m CenterLayout
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CenterLayout -> m CenterLayout)
-> (o -> IO CenterLayout) -> o -> m CenterLayout
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CenterLayout -> CenterLayout) -> o -> IO CenterLayout
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr CenterLayout -> CenterLayout
CenterLayout
instance B.GValue.IsGValue (Maybe CenterLayout) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_center_layout_get_type
gvalueSet_ :: Ptr GValue -> Maybe CenterLayout -> IO ()
gvalueSet_ Ptr GValue
gv Maybe CenterLayout
P.Nothing = Ptr GValue -> Ptr CenterLayout -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr CenterLayout
forall a. Ptr a
FP.nullPtr :: FP.Ptr CenterLayout)
gvalueSet_ Ptr GValue
gv (P.Just CenterLayout
obj) = CenterLayout -> (Ptr CenterLayout -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CenterLayout
obj (Ptr GValue -> Ptr CenterLayout -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe CenterLayout)
gvalueGet_ Ptr GValue
gv = do
Ptr CenterLayout
ptr <- Ptr GValue -> IO (Ptr CenterLayout)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr CenterLayout)
if Ptr CenterLayout
ptr Ptr CenterLayout -> Ptr CenterLayout -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr CenterLayout
forall a. Ptr a
FP.nullPtr
then CenterLayout -> Maybe CenterLayout
forall a. a -> Maybe a
P.Just (CenterLayout -> Maybe CenterLayout)
-> IO CenterLayout -> IO (Maybe CenterLayout)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr CenterLayout -> CenterLayout)
-> Ptr CenterLayout -> IO CenterLayout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CenterLayout -> CenterLayout
CenterLayout Ptr CenterLayout
ptr
else Maybe CenterLayout -> IO (Maybe CenterLayout)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CenterLayout
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCenterLayoutMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveCenterLayoutMethod "allocate" o = Gtk.LayoutManager.LayoutManagerAllocateMethodInfo
ResolveCenterLayoutMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCenterLayoutMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCenterLayoutMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCenterLayoutMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCenterLayoutMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCenterLayoutMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCenterLayoutMethod "layoutChanged" o = Gtk.LayoutManager.LayoutManagerLayoutChangedMethodInfo
ResolveCenterLayoutMethod "measure" o = Gtk.LayoutManager.LayoutManagerMeasureMethodInfo
ResolveCenterLayoutMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCenterLayoutMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCenterLayoutMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCenterLayoutMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCenterLayoutMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCenterLayoutMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCenterLayoutMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCenterLayoutMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCenterLayoutMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCenterLayoutMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCenterLayoutMethod "getBaselinePosition" o = CenterLayoutGetBaselinePositionMethodInfo
ResolveCenterLayoutMethod "getCenterWidget" o = CenterLayoutGetCenterWidgetMethodInfo
ResolveCenterLayoutMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCenterLayoutMethod "getEndWidget" o = CenterLayoutGetEndWidgetMethodInfo
ResolveCenterLayoutMethod "getLayoutChild" o = Gtk.LayoutManager.LayoutManagerGetLayoutChildMethodInfo
ResolveCenterLayoutMethod "getOrientation" o = CenterLayoutGetOrientationMethodInfo
ResolveCenterLayoutMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCenterLayoutMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCenterLayoutMethod "getRequestMode" o = Gtk.LayoutManager.LayoutManagerGetRequestModeMethodInfo
ResolveCenterLayoutMethod "getShrinkCenterLast" o = CenterLayoutGetShrinkCenterLastMethodInfo
ResolveCenterLayoutMethod "getStartWidget" o = CenterLayoutGetStartWidgetMethodInfo
ResolveCenterLayoutMethod "getWidget" o = Gtk.LayoutManager.LayoutManagerGetWidgetMethodInfo
ResolveCenterLayoutMethod "setBaselinePosition" o = CenterLayoutSetBaselinePositionMethodInfo
ResolveCenterLayoutMethod "setCenterWidget" o = CenterLayoutSetCenterWidgetMethodInfo
ResolveCenterLayoutMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCenterLayoutMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCenterLayoutMethod "setEndWidget" o = CenterLayoutSetEndWidgetMethodInfo
ResolveCenterLayoutMethod "setOrientation" o = CenterLayoutSetOrientationMethodInfo
ResolveCenterLayoutMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCenterLayoutMethod "setShrinkCenterLast" o = CenterLayoutSetShrinkCenterLastMethodInfo
ResolveCenterLayoutMethod "setStartWidget" o = CenterLayoutSetStartWidgetMethodInfo
ResolveCenterLayoutMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCenterLayoutMethod t CenterLayout, O.OverloadedMethod info CenterLayout p) => OL.IsLabel t (CenterLayout -> 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 ~ ResolveCenterLayoutMethod t CenterLayout, O.OverloadedMethod info CenterLayout p, R.HasField t CenterLayout p) => R.HasField t CenterLayout p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCenterLayoutMethod t CenterLayout, O.OverloadedMethodInfo info CenterLayout) => OL.IsLabel t (O.MethodProxy info CenterLayout) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getCenterLayoutShrinkCenterLast :: (MonadIO m, IsCenterLayout o) => o -> m Bool
getCenterLayoutShrinkCenterLast :: forall (m :: * -> *) o.
(MonadIO m, IsCenterLayout o) =>
o -> m Bool
getCenterLayoutShrinkCenterLast 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
"shrink-center-last"
setCenterLayoutShrinkCenterLast :: (MonadIO m, IsCenterLayout o) => o -> Bool -> m ()
setCenterLayoutShrinkCenterLast :: forall (m :: * -> *) o.
(MonadIO m, IsCenterLayout o) =>
o -> Bool -> m ()
setCenterLayoutShrinkCenterLast 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
"shrink-center-last" Bool
val
constructCenterLayoutShrinkCenterLast :: (IsCenterLayout o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCenterLayoutShrinkCenterLast :: forall o (m :: * -> *).
(IsCenterLayout o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructCenterLayoutShrinkCenterLast 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
"shrink-center-last" Bool
val
#if defined(ENABLE_OVERLOADING)
data CenterLayoutShrinkCenterLastPropertyInfo
instance AttrInfo CenterLayoutShrinkCenterLastPropertyInfo where
type AttrAllowedOps CenterLayoutShrinkCenterLastPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CenterLayoutShrinkCenterLastPropertyInfo = IsCenterLayout
type AttrSetTypeConstraint CenterLayoutShrinkCenterLastPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CenterLayoutShrinkCenterLastPropertyInfo = (~) Bool
type AttrTransferType CenterLayoutShrinkCenterLastPropertyInfo = Bool
type AttrGetType CenterLayoutShrinkCenterLastPropertyInfo = Bool
type AttrLabel CenterLayoutShrinkCenterLastPropertyInfo = "shrink-center-last"
type AttrOrigin CenterLayoutShrinkCenterLastPropertyInfo = CenterLayout
attrGet = getCenterLayoutShrinkCenterLast
attrSet = setCenterLayoutShrinkCenterLast
attrTransfer _ v = do
return v
attrConstruct = constructCenterLayoutShrinkCenterLast
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CenterLayout.shrinkCenterLast"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-CenterLayout.html#g:attr:shrinkCenterLast"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CenterLayout
type instance O.AttributeList CenterLayout = CenterLayoutAttributeList
type CenterLayoutAttributeList = ('[ '("shrinkCenterLast", CenterLayoutShrinkCenterLastPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
centerLayoutShrinkCenterLast :: AttrLabelProxy "shrinkCenterLast"
centerLayoutShrinkCenterLast = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CenterLayout = CenterLayoutSignalList
type CenterLayoutSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_center_layout_new" gtk_center_layout_new ::
IO (Ptr CenterLayout)
centerLayoutNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m CenterLayout
centerLayoutNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m CenterLayout
centerLayoutNew = IO CenterLayout -> m CenterLayout
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CenterLayout -> m CenterLayout)
-> IO CenterLayout -> m CenterLayout
forall a b. (a -> b) -> a -> b
$ do
Ptr CenterLayout
result <- IO (Ptr CenterLayout)
gtk_center_layout_new
Text -> Ptr CenterLayout -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"centerLayoutNew" Ptr CenterLayout
result
CenterLayout
result' <- ((ManagedPtr CenterLayout -> CenterLayout)
-> Ptr CenterLayout -> IO CenterLayout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr CenterLayout -> CenterLayout
CenterLayout) Ptr CenterLayout
result
CenterLayout -> IO CenterLayout
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CenterLayout
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_center_layout_get_baseline_position" gtk_center_layout_get_baseline_position ::
Ptr CenterLayout ->
IO CUInt
centerLayoutGetBaselinePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsCenterLayout a) =>
a
-> m Gtk.Enums.BaselinePosition
centerLayoutGetBaselinePosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCenterLayout a) =>
a -> m BaselinePosition
centerLayoutGetBaselinePosition a
self = IO BaselinePosition -> m BaselinePosition
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO BaselinePosition -> m BaselinePosition)
-> IO BaselinePosition -> m BaselinePosition
forall a b. (a -> b) -> a -> b
$ do
Ptr CenterLayout
self' <- a -> IO (Ptr CenterLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr CenterLayout -> IO CUInt
gtk_center_layout_get_baseline_position Ptr CenterLayout
self'
let result' :: BaselinePosition
result' = (Int -> BaselinePosition
forall a. Enum a => Int -> a
toEnum (Int -> BaselinePosition)
-> (CUInt -> Int) -> CUInt -> BaselinePosition
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
BaselinePosition -> IO BaselinePosition
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return BaselinePosition
result'
#if defined(ENABLE_OVERLOADING)
data CenterLayoutGetBaselinePositionMethodInfo
instance (signature ~ (m Gtk.Enums.BaselinePosition), MonadIO m, IsCenterLayout a) => O.OverloadedMethod CenterLayoutGetBaselinePositionMethodInfo a signature where
overloadedMethod = centerLayoutGetBaselinePosition
instance O.OverloadedMethodInfo CenterLayoutGetBaselinePositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CenterLayout.centerLayoutGetBaselinePosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-CenterLayout.html#v:centerLayoutGetBaselinePosition"
})
#endif
foreign import ccall "gtk_center_layout_get_center_widget" gtk_center_layout_get_center_widget ::
Ptr CenterLayout ->
IO (Ptr Gtk.Widget.Widget)
centerLayoutGetCenterWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsCenterLayout a) =>
a
-> m (Maybe Gtk.Widget.Widget)
centerLayoutGetCenterWidget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCenterLayout a) =>
a -> m (Maybe Widget)
centerLayoutGetCenterWidget a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr CenterLayout
self' <- a -> IO (Ptr CenterLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr CenterLayout -> IO (Ptr Widget)
gtk_center_layout_get_center_widget Ptr CenterLayout
self'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data CenterLayoutGetCenterWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsCenterLayout a) => O.OverloadedMethod CenterLayoutGetCenterWidgetMethodInfo a signature where
overloadedMethod = centerLayoutGetCenterWidget
instance O.OverloadedMethodInfo CenterLayoutGetCenterWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CenterLayout.centerLayoutGetCenterWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-CenterLayout.html#v:centerLayoutGetCenterWidget"
})
#endif
foreign import ccall "gtk_center_layout_get_end_widget" gtk_center_layout_get_end_widget ::
Ptr CenterLayout ->
IO (Ptr Gtk.Widget.Widget)
centerLayoutGetEndWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsCenterLayout a) =>
a
-> m (Maybe Gtk.Widget.Widget)
centerLayoutGetEndWidget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCenterLayout a) =>
a -> m (Maybe Widget)
centerLayoutGetEndWidget a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr CenterLayout
self' <- a -> IO (Ptr CenterLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr CenterLayout -> IO (Ptr Widget)
gtk_center_layout_get_end_widget Ptr CenterLayout
self'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data CenterLayoutGetEndWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsCenterLayout a) => O.OverloadedMethod CenterLayoutGetEndWidgetMethodInfo a signature where
overloadedMethod = centerLayoutGetEndWidget
instance O.OverloadedMethodInfo CenterLayoutGetEndWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CenterLayout.centerLayoutGetEndWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-CenterLayout.html#v:centerLayoutGetEndWidget"
})
#endif
foreign import ccall "gtk_center_layout_get_orientation" gtk_center_layout_get_orientation ::
Ptr CenterLayout ->
IO CUInt
centerLayoutGetOrientation ::
(B.CallStack.HasCallStack, MonadIO m, IsCenterLayout a) =>
a
-> m Gtk.Enums.Orientation
centerLayoutGetOrientation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCenterLayout a) =>
a -> m Orientation
centerLayoutGetOrientation a
self = IO Orientation -> m Orientation
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Orientation -> m Orientation)
-> IO Orientation -> m Orientation
forall a b. (a -> b) -> a -> b
$ do
Ptr CenterLayout
self' <- a -> IO (Ptr CenterLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr CenterLayout -> IO CUInt
gtk_center_layout_get_orientation Ptr CenterLayout
self'
let result' :: Orientation
result' = (Int -> Orientation
forall a. Enum a => Int -> a
toEnum (Int -> Orientation) -> (CUInt -> Int) -> CUInt -> Orientation
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Orientation -> IO Orientation
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Orientation
result'
#if defined(ENABLE_OVERLOADING)
data CenterLayoutGetOrientationMethodInfo
instance (signature ~ (m Gtk.Enums.Orientation), MonadIO m, IsCenterLayout a) => O.OverloadedMethod CenterLayoutGetOrientationMethodInfo a signature where
overloadedMethod = centerLayoutGetOrientation
instance O.OverloadedMethodInfo CenterLayoutGetOrientationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CenterLayout.centerLayoutGetOrientation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-CenterLayout.html#v:centerLayoutGetOrientation"
})
#endif
foreign import ccall "gtk_center_layout_get_shrink_center_last" gtk_center_layout_get_shrink_center_last ::
Ptr CenterLayout ->
IO CInt
centerLayoutGetShrinkCenterLast ::
(B.CallStack.HasCallStack, MonadIO m, IsCenterLayout a) =>
a
-> m Bool
centerLayoutGetShrinkCenterLast :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCenterLayout a) =>
a -> m Bool
centerLayoutGetShrinkCenterLast a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr CenterLayout
self' <- a -> IO (Ptr CenterLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr CenterLayout -> IO CInt
gtk_center_layout_get_shrink_center_last Ptr CenterLayout
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data CenterLayoutGetShrinkCenterLastMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCenterLayout a) => O.OverloadedMethod CenterLayoutGetShrinkCenterLastMethodInfo a signature where
overloadedMethod = centerLayoutGetShrinkCenterLast
instance O.OverloadedMethodInfo CenterLayoutGetShrinkCenterLastMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CenterLayout.centerLayoutGetShrinkCenterLast",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-CenterLayout.html#v:centerLayoutGetShrinkCenterLast"
})
#endif
foreign import ccall "gtk_center_layout_get_start_widget" gtk_center_layout_get_start_widget ::
Ptr CenterLayout ->
IO (Ptr Gtk.Widget.Widget)
centerLayoutGetStartWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsCenterLayout a) =>
a
-> m (Maybe Gtk.Widget.Widget)
centerLayoutGetStartWidget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCenterLayout a) =>
a -> m (Maybe Widget)
centerLayoutGetStartWidget a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr CenterLayout
self' <- a -> IO (Ptr CenterLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr CenterLayout -> IO (Ptr Widget)
gtk_center_layout_get_start_widget Ptr CenterLayout
self'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data CenterLayoutGetStartWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsCenterLayout a) => O.OverloadedMethod CenterLayoutGetStartWidgetMethodInfo a signature where
overloadedMethod = centerLayoutGetStartWidget
instance O.OverloadedMethodInfo CenterLayoutGetStartWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CenterLayout.centerLayoutGetStartWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-CenterLayout.html#v:centerLayoutGetStartWidget"
})
#endif
foreign import ccall "gtk_center_layout_set_baseline_position" gtk_center_layout_set_baseline_position ::
Ptr CenterLayout ->
CUInt ->
IO ()
centerLayoutSetBaselinePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsCenterLayout a) =>
a
-> Gtk.Enums.BaselinePosition
-> m ()
centerLayoutSetBaselinePosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCenterLayout a) =>
a -> BaselinePosition -> m ()
centerLayoutSetBaselinePosition a
self BaselinePosition
baselinePosition = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CenterLayout
self' <- a -> IO (Ptr CenterLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let baselinePosition' :: CUInt
baselinePosition' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (BaselinePosition -> Int) -> BaselinePosition -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. BaselinePosition -> Int
forall a. Enum a => a -> Int
fromEnum) BaselinePosition
baselinePosition
Ptr CenterLayout -> CUInt -> IO ()
gtk_center_layout_set_baseline_position Ptr CenterLayout
self' CUInt
baselinePosition'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CenterLayoutSetBaselinePositionMethodInfo
instance (signature ~ (Gtk.Enums.BaselinePosition -> m ()), MonadIO m, IsCenterLayout a) => O.OverloadedMethod CenterLayoutSetBaselinePositionMethodInfo a signature where
overloadedMethod = centerLayoutSetBaselinePosition
instance O.OverloadedMethodInfo CenterLayoutSetBaselinePositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CenterLayout.centerLayoutSetBaselinePosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-CenterLayout.html#v:centerLayoutSetBaselinePosition"
})
#endif
foreign import ccall "gtk_center_layout_set_center_widget" gtk_center_layout_set_center_widget ::
Ptr CenterLayout ->
Ptr Gtk.Widget.Widget ->
IO ()
centerLayoutSetCenterWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsCenterLayout a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
centerLayoutSetCenterWidget :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCenterLayout a, IsWidget b) =>
a -> Maybe b -> m ()
centerLayoutSetCenterWidget a
self Maybe b
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CenterLayout
self' <- a -> IO (Ptr CenterLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
maybeWidget <- case Maybe b
widget of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jWidget -> do
Ptr Widget
jWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jWidget
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jWidget'
Ptr CenterLayout -> Ptr Widget -> IO ()
gtk_center_layout_set_center_widget Ptr CenterLayout
self' Ptr Widget
maybeWidget
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
widget b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CenterLayoutSetCenterWidgetMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsCenterLayout a, Gtk.Widget.IsWidget b) => O.OverloadedMethod CenterLayoutSetCenterWidgetMethodInfo a signature where
overloadedMethod = centerLayoutSetCenterWidget
instance O.OverloadedMethodInfo CenterLayoutSetCenterWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CenterLayout.centerLayoutSetCenterWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-CenterLayout.html#v:centerLayoutSetCenterWidget"
})
#endif
foreign import ccall "gtk_center_layout_set_end_widget" gtk_center_layout_set_end_widget ::
Ptr CenterLayout ->
Ptr Gtk.Widget.Widget ->
IO ()
centerLayoutSetEndWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsCenterLayout a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
centerLayoutSetEndWidget :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCenterLayout a, IsWidget b) =>
a -> Maybe b -> m ()
centerLayoutSetEndWidget a
self Maybe b
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CenterLayout
self' <- a -> IO (Ptr CenterLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
maybeWidget <- case Maybe b
widget of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jWidget -> do
Ptr Widget
jWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jWidget
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jWidget'
Ptr CenterLayout -> Ptr Widget -> IO ()
gtk_center_layout_set_end_widget Ptr CenterLayout
self' Ptr Widget
maybeWidget
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
widget b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CenterLayoutSetEndWidgetMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsCenterLayout a, Gtk.Widget.IsWidget b) => O.OverloadedMethod CenterLayoutSetEndWidgetMethodInfo a signature where
overloadedMethod = centerLayoutSetEndWidget
instance O.OverloadedMethodInfo CenterLayoutSetEndWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CenterLayout.centerLayoutSetEndWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-CenterLayout.html#v:centerLayoutSetEndWidget"
})
#endif
foreign import ccall "gtk_center_layout_set_orientation" gtk_center_layout_set_orientation ::
Ptr CenterLayout ->
CUInt ->
IO ()
centerLayoutSetOrientation ::
(B.CallStack.HasCallStack, MonadIO m, IsCenterLayout a) =>
a
-> Gtk.Enums.Orientation
-> m ()
centerLayoutSetOrientation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCenterLayout a) =>
a -> Orientation -> m ()
centerLayoutSetOrientation a
self Orientation
orientation = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CenterLayout
self' <- a -> IO (Ptr CenterLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let orientation' :: CUInt
orientation' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Orientation -> Int) -> Orientation -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Orientation -> Int
forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
Ptr CenterLayout -> CUInt -> IO ()
gtk_center_layout_set_orientation Ptr CenterLayout
self' CUInt
orientation'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CenterLayoutSetOrientationMethodInfo
instance (signature ~ (Gtk.Enums.Orientation -> m ()), MonadIO m, IsCenterLayout a) => O.OverloadedMethod CenterLayoutSetOrientationMethodInfo a signature where
overloadedMethod = centerLayoutSetOrientation
instance O.OverloadedMethodInfo CenterLayoutSetOrientationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CenterLayout.centerLayoutSetOrientation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-CenterLayout.html#v:centerLayoutSetOrientation"
})
#endif
foreign import ccall "gtk_center_layout_set_shrink_center_last" gtk_center_layout_set_shrink_center_last ::
Ptr CenterLayout ->
CInt ->
IO ()
centerLayoutSetShrinkCenterLast ::
(B.CallStack.HasCallStack, MonadIO m, IsCenterLayout a) =>
a
-> Bool
-> m ()
centerLayoutSetShrinkCenterLast :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCenterLayout a) =>
a -> Bool -> m ()
centerLayoutSetShrinkCenterLast a
self Bool
shrinkCenterLast = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CenterLayout
self' <- a -> IO (Ptr CenterLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let shrinkCenterLast' :: CInt
shrinkCenterLast' = (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
shrinkCenterLast
Ptr CenterLayout -> CInt -> IO ()
gtk_center_layout_set_shrink_center_last Ptr CenterLayout
self' CInt
shrinkCenterLast'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CenterLayoutSetShrinkCenterLastMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCenterLayout a) => O.OverloadedMethod CenterLayoutSetShrinkCenterLastMethodInfo a signature where
overloadedMethod = centerLayoutSetShrinkCenterLast
instance O.OverloadedMethodInfo CenterLayoutSetShrinkCenterLastMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CenterLayout.centerLayoutSetShrinkCenterLast",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-CenterLayout.html#v:centerLayoutSetShrinkCenterLast"
})
#endif
foreign import ccall "gtk_center_layout_set_start_widget" gtk_center_layout_set_start_widget ::
Ptr CenterLayout ->
Ptr Gtk.Widget.Widget ->
IO ()
centerLayoutSetStartWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsCenterLayout a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
centerLayoutSetStartWidget :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsCenterLayout a, IsWidget b) =>
a -> Maybe b -> m ()
centerLayoutSetStartWidget a
self Maybe b
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CenterLayout
self' <- a -> IO (Ptr CenterLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
maybeWidget <- case Maybe b
widget of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jWidget -> do
Ptr Widget
jWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jWidget
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jWidget'
Ptr CenterLayout -> Ptr Widget -> IO ()
gtk_center_layout_set_start_widget Ptr CenterLayout
self' Ptr Widget
maybeWidget
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
widget b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data CenterLayoutSetStartWidgetMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsCenterLayout a, Gtk.Widget.IsWidget b) => O.OverloadedMethod CenterLayoutSetStartWidgetMethodInfo a signature where
overloadedMethod = centerLayoutSetStartWidget
instance O.OverloadedMethodInfo CenterLayoutSetStartWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.CenterLayout.centerLayoutSetStartWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-CenterLayout.html#v:centerLayoutSetStartWidget"
})
#endif