{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- A GtkBoxLayout is a layout manager that arranges the children of any
-- widget using it into a single row or column, depending on the value
-- of its t'GI.Gtk.Interfaces.Orientable.Orientable':@/orientation/@ property. Within the other dimension
-- all children all allocated the same size. The GtkBoxLayout will respect
-- the t'GI.Gtk.Objects.Widget.Widget':@/halign/@ and t'GI.Gtk.Objects.Widget.Widget':@/valign/@ properties of each child
-- widget.
-- 
-- If you want all children to be assigned the same size, you can use
-- the t'GI.Gtk.Objects.BoxLayout.BoxLayout':@/homogeneous/@ property.
-- 
-- If you want to specify the amount of space placed between each child,
-- you can use the t'GI.Gtk.Objects.BoxLayout.BoxLayout':@/spacing/@ property.

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.Gtk.Objects.BoxLayout
    ( 

-- * Exported types
    BoxLayout(..)                           ,
    IsBoxLayout                             ,
    toBoxLayout                             ,


 -- * Methods
-- | 
-- 
--  === __Click to display all available methods, including inherited ones__
-- ==== Methods
-- [allocate]("GI.Gtk.Objects.LayoutManager#g:method:allocate"), [bindProperty]("GI.GObject.Objects.Object#g:method:bindProperty"), [bindPropertyFull]("GI.GObject.Objects.Object#g:method:bindPropertyFull"), [forceFloating]("GI.GObject.Objects.Object#g:method:forceFloating"), [freezeNotify]("GI.GObject.Objects.Object#g:method:freezeNotify"), [getv]("GI.GObject.Objects.Object#g:method:getv"), [isFloating]("GI.GObject.Objects.Object#g:method:isFloating"), [layoutChanged]("GI.Gtk.Objects.LayoutManager#g:method:layoutChanged"), [measure]("GI.Gtk.Objects.LayoutManager#g:method:measure"), [notify]("GI.GObject.Objects.Object#g:method:notify"), [notifyByPspec]("GI.GObject.Objects.Object#g:method:notifyByPspec"), [ref]("GI.GObject.Objects.Object#g:method:ref"), [refSink]("GI.GObject.Objects.Object#g:method:refSink"), [runDispose]("GI.GObject.Objects.Object#g:method:runDispose"), [stealData]("GI.GObject.Objects.Object#g:method:stealData"), [stealQdata]("GI.GObject.Objects.Object#g:method:stealQdata"), [thawNotify]("GI.GObject.Objects.Object#g:method:thawNotify"), [unref]("GI.GObject.Objects.Object#g:method:unref"), [watchClosure]("GI.GObject.Objects.Object#g:method:watchClosure").
-- 
-- ==== Getters
-- [getBaselinePosition]("GI.Gtk.Objects.BoxLayout#g:method:getBaselinePosition"), [getData]("GI.GObject.Objects.Object#g:method:getData"), [getHomogeneous]("GI.Gtk.Objects.BoxLayout#g:method:getHomogeneous"), [getLayoutChild]("GI.Gtk.Objects.LayoutManager#g:method:getLayoutChild"), [getOrientation]("GI.Gtk.Interfaces.Orientable#g:method:getOrientation"), [getProperty]("GI.GObject.Objects.Object#g:method:getProperty"), [getQdata]("GI.GObject.Objects.Object#g:method:getQdata"), [getRequestMode]("GI.Gtk.Objects.LayoutManager#g:method:getRequestMode"), [getSpacing]("GI.Gtk.Objects.BoxLayout#g:method:getSpacing"), [getWidget]("GI.Gtk.Objects.LayoutManager#g:method:getWidget").
-- 
-- ==== Setters
-- [setBaselinePosition]("GI.Gtk.Objects.BoxLayout#g:method:setBaselinePosition"), [setData]("GI.GObject.Objects.Object#g:method:setData"), [setDataFull]("GI.GObject.Objects.Object#g:method:setDataFull"), [setHomogeneous]("GI.Gtk.Objects.BoxLayout#g:method:setHomogeneous"), [setOrientation]("GI.Gtk.Interfaces.Orientable#g:method:setOrientation"), [setProperty]("GI.GObject.Objects.Object#g:method:setProperty"), [setSpacing]("GI.Gtk.Objects.BoxLayout#g:method:setSpacing").

#if defined(ENABLE_OVERLOADING)
    ResolveBoxLayoutMethod                  ,
#endif

-- ** getBaselinePosition #method:getBaselinePosition#

#if defined(ENABLE_OVERLOADING)
    BoxLayoutGetBaselinePositionMethodInfo  ,
#endif
    boxLayoutGetBaselinePosition            ,


-- ** getHomogeneous #method:getHomogeneous#

#if defined(ENABLE_OVERLOADING)
    BoxLayoutGetHomogeneousMethodInfo       ,
#endif
    boxLayoutGetHomogeneous                 ,


-- ** getSpacing #method:getSpacing#

#if defined(ENABLE_OVERLOADING)
    BoxLayoutGetSpacingMethodInfo           ,
#endif
    boxLayoutGetSpacing                     ,


-- ** new #method:new#

    boxLayoutNew                            ,


-- ** setBaselinePosition #method:setBaselinePosition#

#if defined(ENABLE_OVERLOADING)
    BoxLayoutSetBaselinePositionMethodInfo  ,
#endif
    boxLayoutSetBaselinePosition            ,


-- ** setHomogeneous #method:setHomogeneous#

#if defined(ENABLE_OVERLOADING)
    BoxLayoutSetHomogeneousMethodInfo       ,
#endif
    boxLayoutSetHomogeneous                 ,


-- ** setSpacing #method:setSpacing#

#if defined(ENABLE_OVERLOADING)
    BoxLayoutSetSpacingMethodInfo           ,
#endif
    boxLayoutSetSpacing                     ,




 -- * Properties


-- ** baselinePosition #attr:baselinePosition#
-- | The position of the allocated baseline within the extra space
-- allocated to each child of the widget using a box layout
-- manager.
-- 
-- This property is only relevant for horizontal layouts containing
-- at least one child with a baseline alignment.

#if defined(ENABLE_OVERLOADING)
    BoxLayoutBaselinePositionPropertyInfo   ,
#endif
#if defined(ENABLE_OVERLOADING)
    boxLayoutBaselinePosition               ,
#endif
    constructBoxLayoutBaselinePosition      ,
    getBoxLayoutBaselinePosition            ,
    setBoxLayoutBaselinePosition            ,


-- ** homogeneous #attr:homogeneous#
-- | Whether the box layout should distribute the available space
-- homogeneously among the children of the widget using it as a
-- layout manager.

#if defined(ENABLE_OVERLOADING)
    BoxLayoutHomogeneousPropertyInfo        ,
#endif
#if defined(ENABLE_OVERLOADING)
    boxLayoutHomogeneous                    ,
#endif
    constructBoxLayoutHomogeneous           ,
    getBoxLayoutHomogeneous                 ,
    setBoxLayoutHomogeneous                 ,


-- ** spacing #attr:spacing#
-- | The space between each child of the widget using the box
-- layout as its layout manager.

#if defined(ENABLE_OVERLOADING)
    BoxLayoutSpacingPropertyInfo            ,
#endif
#if defined(ENABLE_OVERLOADING)
    boxLayoutSpacing                        ,
#endif
    constructBoxLayoutSpacing               ,
    getBoxLayoutSpacing                     ,
    setBoxLayoutSpacing                     ,




    ) 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.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager

-- | Memory-managed wrapper type.
newtype BoxLayout = BoxLayout (SP.ManagedPtr BoxLayout)
    deriving (BoxLayout -> BoxLayout -> Bool
(BoxLayout -> BoxLayout -> Bool)
-> (BoxLayout -> BoxLayout -> Bool) -> Eq BoxLayout
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BoxLayout -> BoxLayout -> Bool
$c/= :: BoxLayout -> BoxLayout -> Bool
== :: BoxLayout -> BoxLayout -> Bool
$c== :: BoxLayout -> BoxLayout -> Bool
Eq)

instance SP.ManagedPtrNewtype BoxLayout where
    toManagedPtr :: BoxLayout -> ManagedPtr BoxLayout
toManagedPtr (BoxLayout ManagedPtr BoxLayout
p) = ManagedPtr BoxLayout
p

foreign import ccall "gtk_box_layout_get_type"
    c_gtk_box_layout_get_type :: IO B.Types.GType

instance B.Types.TypedObject BoxLayout where
    glibType :: IO GType
glibType = IO GType
c_gtk_box_layout_get_type

instance B.Types.GObject BoxLayout

-- | Type class for types which can be safely cast to `BoxLayout`, for instance with `toBoxLayout`.
class (SP.GObject o, O.IsDescendantOf BoxLayout o) => IsBoxLayout o
instance (SP.GObject o, O.IsDescendantOf BoxLayout o) => IsBoxLayout o

instance O.HasParentTypes BoxLayout
type instance O.ParentTypes BoxLayout = '[Gtk.LayoutManager.LayoutManager, GObject.Object.Object, Gtk.Orientable.Orientable]

-- | Cast to `BoxLayout`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.
toBoxLayout :: (MIO.MonadIO m, IsBoxLayout o) => o -> m BoxLayout
toBoxLayout :: forall (m :: * -> *) o.
(MonadIO m, IsBoxLayout o) =>
o -> m BoxLayout
toBoxLayout = IO BoxLayout -> m BoxLayout
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO BoxLayout -> m BoxLayout)
-> (o -> IO BoxLayout) -> o -> m BoxLayout
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr BoxLayout -> BoxLayout) -> o -> IO BoxLayout
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
 ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr BoxLayout -> BoxLayout
BoxLayout

-- | Convert 'BoxLayout' to and from 'Data.GI.Base.GValue.GValue'. See 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
instance B.GValue.IsGValue (Maybe BoxLayout) where
    gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_box_layout_get_type
    gvalueSet_ :: Ptr GValue -> Maybe BoxLayout -> IO ()
gvalueSet_ Ptr GValue
gv Maybe BoxLayout
P.Nothing = Ptr GValue -> Ptr BoxLayout -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr BoxLayout
forall a. Ptr a
FP.nullPtr :: FP.Ptr BoxLayout)
    gvalueSet_ Ptr GValue
gv (P.Just BoxLayout
obj) = BoxLayout -> (Ptr BoxLayout -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr BoxLayout
obj (Ptr GValue -> Ptr BoxLayout -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
    gvalueGet_ :: Ptr GValue -> IO (Maybe BoxLayout)
gvalueGet_ Ptr GValue
gv = do
        Ptr BoxLayout
ptr <- Ptr GValue -> IO (Ptr BoxLayout)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr BoxLayout)
        if Ptr BoxLayout
ptr Ptr BoxLayout -> Ptr BoxLayout -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr BoxLayout
forall a. Ptr a
FP.nullPtr
        then BoxLayout -> Maybe BoxLayout
forall a. a -> Maybe a
P.Just (BoxLayout -> Maybe BoxLayout)
-> IO BoxLayout -> IO (Maybe BoxLayout)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr BoxLayout -> BoxLayout)
-> Ptr BoxLayout -> IO BoxLayout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr BoxLayout -> BoxLayout
BoxLayout Ptr BoxLayout
ptr
        else Maybe BoxLayout -> IO (Maybe BoxLayout)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe BoxLayout
forall a. Maybe a
P.Nothing
        
    

#if defined(ENABLE_OVERLOADING)
type family ResolveBoxLayoutMethod (t :: Symbol) (o :: *) :: * where
    ResolveBoxLayoutMethod "allocate" o = Gtk.LayoutManager.LayoutManagerAllocateMethodInfo
    ResolveBoxLayoutMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveBoxLayoutMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveBoxLayoutMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveBoxLayoutMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveBoxLayoutMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
    ResolveBoxLayoutMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveBoxLayoutMethod "layoutChanged" o = Gtk.LayoutManager.LayoutManagerLayoutChangedMethodInfo
    ResolveBoxLayoutMethod "measure" o = Gtk.LayoutManager.LayoutManagerMeasureMethodInfo
    ResolveBoxLayoutMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveBoxLayoutMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveBoxLayoutMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveBoxLayoutMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveBoxLayoutMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveBoxLayoutMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveBoxLayoutMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveBoxLayoutMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveBoxLayoutMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveBoxLayoutMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveBoxLayoutMethod "getBaselinePosition" o = BoxLayoutGetBaselinePositionMethodInfo
    ResolveBoxLayoutMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveBoxLayoutMethod "getHomogeneous" o = BoxLayoutGetHomogeneousMethodInfo
    ResolveBoxLayoutMethod "getLayoutChild" o = Gtk.LayoutManager.LayoutManagerGetLayoutChildMethodInfo
    ResolveBoxLayoutMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
    ResolveBoxLayoutMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveBoxLayoutMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveBoxLayoutMethod "getRequestMode" o = Gtk.LayoutManager.LayoutManagerGetRequestModeMethodInfo
    ResolveBoxLayoutMethod "getSpacing" o = BoxLayoutGetSpacingMethodInfo
    ResolveBoxLayoutMethod "getWidget" o = Gtk.LayoutManager.LayoutManagerGetWidgetMethodInfo
    ResolveBoxLayoutMethod "setBaselinePosition" o = BoxLayoutSetBaselinePositionMethodInfo
    ResolveBoxLayoutMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveBoxLayoutMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
    ResolveBoxLayoutMethod "setHomogeneous" o = BoxLayoutSetHomogeneousMethodInfo
    ResolveBoxLayoutMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
    ResolveBoxLayoutMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveBoxLayoutMethod "setSpacing" o = BoxLayoutSetSpacingMethodInfo
    ResolveBoxLayoutMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveBoxLayoutMethod t BoxLayout, O.OverloadedMethod info BoxLayout p) => OL.IsLabel t (BoxLayout -> 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 ~ ResolveBoxLayoutMethod t BoxLayout, O.OverloadedMethod info BoxLayout p, R.HasField t BoxLayout p) => R.HasField t BoxLayout p where
    getField = O.overloadedMethod @info

#endif

instance (info ~ ResolveBoxLayoutMethod t BoxLayout, O.OverloadedMethodInfo info BoxLayout) => OL.IsLabel t (O.MethodProxy info BoxLayout) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.MethodProxy
#else
    fromLabel _ = O.MethodProxy
#endif

#endif

-- VVV Prop "baseline-position"
   -- Type: TInterface (Name {namespace = "Gtk", name = "BaselinePosition"})
   -- Flags: [PropertyReadable,PropertyWritable]
   -- Nullable: (Just False,Just False)

-- | Get the value of the “@baseline-position@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' boxLayout #baselinePosition
-- @
getBoxLayoutBaselinePosition :: (MonadIO m, IsBoxLayout o) => o -> m Gtk.Enums.BaselinePosition
getBoxLayoutBaselinePosition :: forall (m :: * -> *) o.
(MonadIO m, IsBoxLayout o) =>
o -> m BaselinePosition
getBoxLayoutBaselinePosition o
obj = IO BaselinePosition -> m BaselinePosition
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO BaselinePosition -> m BaselinePosition)
-> IO BaselinePosition -> m BaselinePosition
forall a b. (a -> b) -> a -> b
$ o -> String -> IO BaselinePosition
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"baseline-position"

-- | Set the value of the “@baseline-position@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' boxLayout [ #baselinePosition 'Data.GI.Base.Attributes.:=' value ]
-- @
setBoxLayoutBaselinePosition :: (MonadIO m, IsBoxLayout o) => o -> Gtk.Enums.BaselinePosition -> m ()
setBoxLayoutBaselinePosition :: forall (m :: * -> *) o.
(MonadIO m, IsBoxLayout o) =>
o -> BaselinePosition -> m ()
setBoxLayoutBaselinePosition o
obj BaselinePosition
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 -> BaselinePosition -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"baseline-position" BaselinePosition
val

-- | Construct a `GValueConstruct` with valid value for the “@baseline-position@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
constructBoxLayoutBaselinePosition :: (IsBoxLayout o, MIO.MonadIO m) => Gtk.Enums.BaselinePosition -> m (GValueConstruct o)
constructBoxLayoutBaselinePosition :: forall o (m :: * -> *).
(IsBoxLayout o, MonadIO m) =>
BaselinePosition -> m (GValueConstruct o)
constructBoxLayoutBaselinePosition BaselinePosition
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 -> BaselinePosition -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"baseline-position" BaselinePosition
val

#if defined(ENABLE_OVERLOADING)
data BoxLayoutBaselinePositionPropertyInfo
instance AttrInfo BoxLayoutBaselinePositionPropertyInfo where
    type AttrAllowedOps BoxLayoutBaselinePositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint BoxLayoutBaselinePositionPropertyInfo = IsBoxLayout
    type AttrSetTypeConstraint BoxLayoutBaselinePositionPropertyInfo = (~) Gtk.Enums.BaselinePosition
    type AttrTransferTypeConstraint BoxLayoutBaselinePositionPropertyInfo = (~) Gtk.Enums.BaselinePosition
    type AttrTransferType BoxLayoutBaselinePositionPropertyInfo = Gtk.Enums.BaselinePosition
    type AttrGetType BoxLayoutBaselinePositionPropertyInfo = Gtk.Enums.BaselinePosition
    type AttrLabel BoxLayoutBaselinePositionPropertyInfo = "baseline-position"
    type AttrOrigin BoxLayoutBaselinePositionPropertyInfo = BoxLayout
    attrGet = getBoxLayoutBaselinePosition
    attrSet = setBoxLayoutBaselinePosition
    attrTransfer _ v = do
        return v
    attrConstruct = constructBoxLayoutBaselinePosition
    attrClear = undefined
#endif

-- VVV Prop "homogeneous"
   -- Type: TBasicType TBoolean
   -- Flags: [PropertyReadable,PropertyWritable]
   -- Nullable: (Just False,Just False)

-- | Get the value of the “@homogeneous@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' boxLayout #homogeneous
-- @
getBoxLayoutHomogeneous :: (MonadIO m, IsBoxLayout o) => o -> m Bool
getBoxLayoutHomogeneous :: forall (m :: * -> *) o. (MonadIO m, IsBoxLayout o) => o -> m Bool
getBoxLayoutHomogeneous 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
"homogeneous"

-- | Set the value of the “@homogeneous@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' boxLayout [ #homogeneous 'Data.GI.Base.Attributes.:=' value ]
-- @
setBoxLayoutHomogeneous :: (MonadIO m, IsBoxLayout o) => o -> Bool -> m ()
setBoxLayoutHomogeneous :: forall (m :: * -> *) o.
(MonadIO m, IsBoxLayout o) =>
o -> Bool -> m ()
setBoxLayoutHomogeneous 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
"homogeneous" Bool
val

-- | Construct a `GValueConstruct` with valid value for the “@homogeneous@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
constructBoxLayoutHomogeneous :: (IsBoxLayout o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructBoxLayoutHomogeneous :: forall o (m :: * -> *).
(IsBoxLayout o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructBoxLayoutHomogeneous 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
"homogeneous" Bool
val

#if defined(ENABLE_OVERLOADING)
data BoxLayoutHomogeneousPropertyInfo
instance AttrInfo BoxLayoutHomogeneousPropertyInfo where
    type AttrAllowedOps BoxLayoutHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint BoxLayoutHomogeneousPropertyInfo = IsBoxLayout
    type AttrSetTypeConstraint BoxLayoutHomogeneousPropertyInfo = (~) Bool
    type AttrTransferTypeConstraint BoxLayoutHomogeneousPropertyInfo = (~) Bool
    type AttrTransferType BoxLayoutHomogeneousPropertyInfo = Bool
    type AttrGetType BoxLayoutHomogeneousPropertyInfo = Bool
    type AttrLabel BoxLayoutHomogeneousPropertyInfo = "homogeneous"
    type AttrOrigin BoxLayoutHomogeneousPropertyInfo = BoxLayout
    attrGet = getBoxLayoutHomogeneous
    attrSet = setBoxLayoutHomogeneous
    attrTransfer _ v = do
        return v
    attrConstruct = constructBoxLayoutHomogeneous
    attrClear = undefined
#endif

-- VVV Prop "spacing"
   -- Type: TBasicType TInt
   -- Flags: [PropertyReadable,PropertyWritable]
   -- Nullable: (Nothing,Nothing)

-- | Get the value of the “@spacing@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' boxLayout #spacing
-- @
getBoxLayoutSpacing :: (MonadIO m, IsBoxLayout o) => o -> m Int32
getBoxLayoutSpacing :: forall (m :: * -> *) o. (MonadIO m, IsBoxLayout o) => o -> m Int32
getBoxLayoutSpacing o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"spacing"

-- | Set the value of the “@spacing@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' boxLayout [ #spacing 'Data.GI.Base.Attributes.:=' value ]
-- @
setBoxLayoutSpacing :: (MonadIO m, IsBoxLayout o) => o -> Int32 -> m ()
setBoxLayoutSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsBoxLayout o) =>
o -> Int32 -> m ()
setBoxLayoutSpacing o
obj Int32
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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"spacing" Int32
val

-- | Construct a `GValueConstruct` with valid value for the “@spacing@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
constructBoxLayoutSpacing :: (IsBoxLayout o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructBoxLayoutSpacing :: forall o (m :: * -> *).
(IsBoxLayout o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructBoxLayoutSpacing Int32
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 -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"spacing" Int32
val

#if defined(ENABLE_OVERLOADING)
data BoxLayoutSpacingPropertyInfo
instance AttrInfo BoxLayoutSpacingPropertyInfo where
    type AttrAllowedOps BoxLayoutSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint BoxLayoutSpacingPropertyInfo = IsBoxLayout
    type AttrSetTypeConstraint BoxLayoutSpacingPropertyInfo = (~) Int32
    type AttrTransferTypeConstraint BoxLayoutSpacingPropertyInfo = (~) Int32
    type AttrTransferType BoxLayoutSpacingPropertyInfo = Int32
    type AttrGetType BoxLayoutSpacingPropertyInfo = Int32
    type AttrLabel BoxLayoutSpacingPropertyInfo = "spacing"
    type AttrOrigin BoxLayoutSpacingPropertyInfo = BoxLayout
    attrGet = getBoxLayoutSpacing
    attrSet = setBoxLayoutSpacing
    attrTransfer _ v = do
        return v
    attrConstruct = constructBoxLayoutSpacing
    attrClear = undefined
#endif

#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList BoxLayout
type instance O.AttributeList BoxLayout = BoxLayoutAttributeList
type BoxLayoutAttributeList = ('[ '("baselinePosition", BoxLayoutBaselinePositionPropertyInfo), '("homogeneous", BoxLayoutHomogeneousPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("spacing", BoxLayoutSpacingPropertyInfo)] :: [(Symbol, *)])
#endif

#if defined(ENABLE_OVERLOADING)
boxLayoutBaselinePosition :: AttrLabelProxy "baselinePosition"
boxLayoutBaselinePosition = AttrLabelProxy

boxLayoutHomogeneous :: AttrLabelProxy "homogeneous"
boxLayoutHomogeneous = AttrLabelProxy

boxLayoutSpacing :: AttrLabelProxy "spacing"
boxLayoutSpacing = AttrLabelProxy

#endif

#if defined(ENABLE_OVERLOADING)
type instance O.SignalList BoxLayout = BoxLayoutSignalList
type BoxLayoutSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])

#endif

-- method BoxLayout::new
-- method type : Constructor
-- Args: [ Arg
--           { argCName = "orientation"
--           , argType =
--               TInterface Name { namespace = "Gtk" , name = "Orientation" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the orientation for the new layout"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TInterface Name { namespace = "Gtk" , name = "BoxLayout" })
-- throws : False
-- Skip return : False

foreign import ccall "gtk_box_layout_new" gtk_box_layout_new :: 
    CUInt ->                                -- orientation : TInterface (Name {namespace = "Gtk", name = "Orientation"})
    IO (Ptr BoxLayout)

-- | Creates a new box layout.
boxLayoutNew ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    Gtk.Enums.Orientation
    -- ^ /@orientation@/: the orientation for the new layout
    -> m BoxLayout
    -- ^ __Returns:__ a new box layout
boxLayoutNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Orientation -> m BoxLayout
boxLayoutNew Orientation
orientation = IO BoxLayout -> m BoxLayout
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO BoxLayout -> m BoxLayout) -> IO BoxLayout -> m BoxLayout
forall a b. (a -> b) -> a -> b
$ do
    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 BoxLayout
result <- CUInt -> IO (Ptr BoxLayout)
gtk_box_layout_new CUInt
orientation'
    Text -> Ptr BoxLayout -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"boxLayoutNew" Ptr BoxLayout
result
    BoxLayout
result' <- ((ManagedPtr BoxLayout -> BoxLayout)
-> Ptr BoxLayout -> IO BoxLayout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr BoxLayout -> BoxLayout
BoxLayout) Ptr BoxLayout
result
    BoxLayout -> IO BoxLayout
forall (m :: * -> *) a. Monad m => a -> m a
return BoxLayout
result'

#if defined(ENABLE_OVERLOADING)
#endif

-- method BoxLayout::get_baseline_position
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "box_layout"
--           , argType =
--               TInterface Name { namespace = "Gtk" , name = "BoxLayout" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GtkBoxLayout" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface Name { namespace = "Gtk" , name = "BaselinePosition" })
-- throws : False
-- Skip return : False

foreign import ccall "gtk_box_layout_get_baseline_position" gtk_box_layout_get_baseline_position :: 
    Ptr BoxLayout ->                        -- box_layout : TInterface (Name {namespace = "Gtk", name = "BoxLayout"})
    IO CUInt

-- | Gets the value set by 'GI.Gtk.Objects.BoxLayout.boxLayoutSetBaselinePosition'.
boxLayoutGetBaselinePosition ::
    (B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
    a
    -- ^ /@boxLayout@/: a t'GI.Gtk.Objects.BoxLayout.BoxLayout'
    -> m Gtk.Enums.BaselinePosition
    -- ^ __Returns:__ the baseline position
boxLayoutGetBaselinePosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> m BaselinePosition
boxLayoutGetBaselinePosition a
boxLayout = IO BaselinePosition -> m BaselinePosition
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 BoxLayout
boxLayout' <- a -> IO (Ptr BoxLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
boxLayout
    CUInt
result <- Ptr BoxLayout -> IO CUInt
gtk_box_layout_get_baseline_position Ptr BoxLayout
boxLayout'
    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
boxLayout
    BaselinePosition -> IO BaselinePosition
forall (m :: * -> *) a. Monad m => a -> m a
return BaselinePosition
result'

#if defined(ENABLE_OVERLOADING)
data BoxLayoutGetBaselinePositionMethodInfo
instance (signature ~ (m Gtk.Enums.BaselinePosition), MonadIO m, IsBoxLayout a) => O.OverloadedMethod BoxLayoutGetBaselinePositionMethodInfo a signature where
    overloadedMethod = boxLayoutGetBaselinePosition

instance O.OverloadedMethodInfo BoxLayoutGetBaselinePositionMethodInfo a where
    overloadedMethodInfo = O.MethodInfo {
        O.overloadedMethodName = "GI.Gtk.Objects.BoxLayout.boxLayoutGetBaselinePosition",
        O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutGetBaselinePosition"
        }


#endif

-- method BoxLayout::get_homogeneous
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "box_layout"
--           , argType =
--               TInterface Name { namespace = "Gtk" , name = "BoxLayout" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GtkBoxLayout" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TBoolean)
-- throws : False
-- Skip return : False

foreign import ccall "gtk_box_layout_get_homogeneous" gtk_box_layout_get_homogeneous :: 
    Ptr BoxLayout ->                        -- box_layout : TInterface (Name {namespace = "Gtk", name = "BoxLayout"})
    IO CInt

-- | Returns whether the layout is set to be homogeneous.
boxLayoutGetHomogeneous ::
    (B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
    a
    -- ^ /@boxLayout@/: a t'GI.Gtk.Objects.BoxLayout.BoxLayout'
    -> m Bool
    -- ^ __Returns:__ 'P.True' if the layout is homogeneous
boxLayoutGetHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> m Bool
boxLayoutGetHomogeneous a
boxLayout = 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 BoxLayout
boxLayout' <- a -> IO (Ptr BoxLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
boxLayout
    CInt
result <- Ptr BoxLayout -> IO CInt
gtk_box_layout_get_homogeneous Ptr BoxLayout
boxLayout'
    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
boxLayout
    Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'

#if defined(ENABLE_OVERLOADING)
data BoxLayoutGetHomogeneousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBoxLayout a) => O.OverloadedMethod BoxLayoutGetHomogeneousMethodInfo a signature where
    overloadedMethod = boxLayoutGetHomogeneous

instance O.OverloadedMethodInfo BoxLayoutGetHomogeneousMethodInfo a where
    overloadedMethodInfo = O.MethodInfo {
        O.overloadedMethodName = "GI.Gtk.Objects.BoxLayout.boxLayoutGetHomogeneous",
        O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutGetHomogeneous"
        }


#endif

-- method BoxLayout::get_spacing
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "box_layout"
--           , argType =
--               TInterface Name { namespace = "Gtk" , name = "BoxLayout" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GtkBoxLayout" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TUInt)
-- throws : False
-- Skip return : False

foreign import ccall "gtk_box_layout_get_spacing" gtk_box_layout_get_spacing :: 
    Ptr BoxLayout ->                        -- box_layout : TInterface (Name {namespace = "Gtk", name = "BoxLayout"})
    IO Word32

-- | Returns the space that /@boxLayout@/ puts between children.
boxLayoutGetSpacing ::
    (B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
    a
    -- ^ /@boxLayout@/: a t'GI.Gtk.Objects.BoxLayout.BoxLayout'
    -> m Word32
    -- ^ __Returns:__ the spacing of the layout
boxLayoutGetSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> m Word32
boxLayoutGetSpacing a
boxLayout = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
    Ptr BoxLayout
boxLayout' <- a -> IO (Ptr BoxLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
boxLayout
    Word32
result <- Ptr BoxLayout -> IO Word32
gtk_box_layout_get_spacing Ptr BoxLayout
boxLayout'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
boxLayout
    Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result

#if defined(ENABLE_OVERLOADING)
data BoxLayoutGetSpacingMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsBoxLayout a) => O.OverloadedMethod BoxLayoutGetSpacingMethodInfo a signature where
    overloadedMethod = boxLayoutGetSpacing

instance O.OverloadedMethodInfo BoxLayoutGetSpacingMethodInfo a where
    overloadedMethodInfo = O.MethodInfo {
        O.overloadedMethodName = "GI.Gtk.Objects.BoxLayout.boxLayoutGetSpacing",
        O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutGetSpacing"
        }


#endif

-- method BoxLayout::set_baseline_position
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "box_layout"
--           , argType =
--               TInterface Name { namespace = "Gtk" , name = "BoxLayout" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GtkBoxLayout" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "position"
--           , argType =
--               TInterface Name { namespace = "Gtk" , name = "BaselinePosition" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GtkBaselinePosition"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_box_layout_set_baseline_position" gtk_box_layout_set_baseline_position :: 
    Ptr BoxLayout ->                        -- box_layout : TInterface (Name {namespace = "Gtk", name = "BoxLayout"})
    CUInt ->                                -- position : TInterface (Name {namespace = "Gtk", name = "BaselinePosition"})
    IO ()

-- | Sets the baseline position of a box layout.
-- 
-- The baseline position affects only horizontal boxes with at least one
-- baseline aligned child. If there is more vertical space available than
-- requested, and the baseline is not allocated by the parent then the
-- given /@position@/ is used to allocate the baseline within the extra
-- space available.
boxLayoutSetBaselinePosition ::
    (B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
    a
    -- ^ /@boxLayout@/: a t'GI.Gtk.Objects.BoxLayout.BoxLayout'
    -> Gtk.Enums.BaselinePosition
    -- ^ /@position@/: a t'GI.Gtk.Enums.BaselinePosition'
    -> m ()
boxLayoutSetBaselinePosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> BaselinePosition -> m ()
boxLayoutSetBaselinePosition a
boxLayout BaselinePosition
position = 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 BoxLayout
boxLayout' <- a -> IO (Ptr BoxLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
boxLayout
    let position' :: CUInt
position' = (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
position
    Ptr BoxLayout -> CUInt -> IO ()
gtk_box_layout_set_baseline_position Ptr BoxLayout
boxLayout' CUInt
position'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
boxLayout
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BoxLayoutSetBaselinePositionMethodInfo
instance (signature ~ (Gtk.Enums.BaselinePosition -> m ()), MonadIO m, IsBoxLayout a) => O.OverloadedMethod BoxLayoutSetBaselinePositionMethodInfo a signature where
    overloadedMethod = boxLayoutSetBaselinePosition

instance O.OverloadedMethodInfo BoxLayoutSetBaselinePositionMethodInfo a where
    overloadedMethodInfo = O.MethodInfo {
        O.overloadedMethodName = "GI.Gtk.Objects.BoxLayout.boxLayoutSetBaselinePosition",
        O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutSetBaselinePosition"
        }


#endif

-- method BoxLayout::set_homogeneous
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "box_layout"
--           , argType =
--               TInterface Name { namespace = "Gtk" , name = "BoxLayout" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GtkBoxLayout" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "homogeneous"
--           , argType = TBasicType TBoolean
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "%TRUE to set the box layout as homogeneous"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_box_layout_set_homogeneous" gtk_box_layout_set_homogeneous :: 
    Ptr BoxLayout ->                        -- box_layout : TInterface (Name {namespace = "Gtk", name = "BoxLayout"})
    CInt ->                                 -- homogeneous : TBasicType TBoolean
    IO ()

-- | Sets whether the box layout will allocate the same
-- size to all children.
boxLayoutSetHomogeneous ::
    (B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
    a
    -- ^ /@boxLayout@/: a t'GI.Gtk.Objects.BoxLayout.BoxLayout'
    -> Bool
    -- ^ /@homogeneous@/: 'P.True' to set the box layout as homogeneous
    -> m ()
boxLayoutSetHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> Bool -> m ()
boxLayoutSetHomogeneous a
boxLayout Bool
homogeneous = 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 BoxLayout
boxLayout' <- a -> IO (Ptr BoxLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
boxLayout
    let homogeneous' :: CInt
homogeneous' = (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
homogeneous
    Ptr BoxLayout -> CInt -> IO ()
gtk_box_layout_set_homogeneous Ptr BoxLayout
boxLayout' CInt
homogeneous'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
boxLayout
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BoxLayoutSetHomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBoxLayout a) => O.OverloadedMethod BoxLayoutSetHomogeneousMethodInfo a signature where
    overloadedMethod = boxLayoutSetHomogeneous

instance O.OverloadedMethodInfo BoxLayoutSetHomogeneousMethodInfo a where
    overloadedMethodInfo = O.MethodInfo {
        O.overloadedMethodName = "GI.Gtk.Objects.BoxLayout.boxLayoutSetHomogeneous",
        O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutSetHomogeneous"
        }


#endif

-- method BoxLayout::set_spacing
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "box_layout"
--           , argType =
--               TInterface Name { namespace = "Gtk" , name = "BoxLayout" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GtkBoxLayout" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "spacing"
--           , argType = TBasicType TUInt
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the spacing to apply between children"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "gtk_box_layout_set_spacing" gtk_box_layout_set_spacing :: 
    Ptr BoxLayout ->                        -- box_layout : TInterface (Name {namespace = "Gtk", name = "BoxLayout"})
    Word32 ->                               -- spacing : TBasicType TUInt
    IO ()

-- | Sets how much spacing to put between children.
boxLayoutSetSpacing ::
    (B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
    a
    -- ^ /@boxLayout@/: a t'GI.Gtk.Objects.BoxLayout.BoxLayout'
    -> Word32
    -- ^ /@spacing@/: the spacing to apply between children
    -> m ()
boxLayoutSetSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> Word32 -> m ()
boxLayoutSetSpacing a
boxLayout Word32
spacing = 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 BoxLayout
boxLayout' <- a -> IO (Ptr BoxLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
boxLayout
    Ptr BoxLayout -> Word32 -> IO ()
gtk_box_layout_set_spacing Ptr BoxLayout
boxLayout' Word32
spacing
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
boxLayout
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data BoxLayoutSetSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsBoxLayout a) => O.OverloadedMethod BoxLayoutSetSpacingMethodInfo a signature where
    overloadedMethod = boxLayoutSetSpacing

instance O.OverloadedMethodInfo BoxLayoutSetSpacingMethodInfo a where
    overloadedMethodInfo = O.MethodInfo {
        O.overloadedMethodName = "GI.Gtk.Objects.BoxLayout.boxLayoutSetSpacing",
        O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutSetSpacing"
        }


#endif