{-# 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                             ,
    noBoxLayout                             ,


 -- * Methods
-- ** Overloaded methods #method:Overloaded methods#

#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.ManagedPtr as B.ManagedPtr
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 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 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 (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)
foreign import ccall "gtk_box_layout_get_type"
    c_gtk_box_layout_get_type :: IO GType

instance GObject BoxLayout where
    gobjectType :: IO GType
gobjectType = IO GType
c_gtk_box_layout_get_type
    

-- | Convert 'BoxLayout' to and from 'Data.GI.Base.GValue.GValue' with 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
instance B.GValue.IsGValue BoxLayout where
    toGValue :: BoxLayout -> IO GValue
toGValue o :: BoxLayout
o = do
        GType
gtype <- IO GType
c_gtk_box_layout_get_type
        BoxLayout -> (Ptr BoxLayout -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr BoxLayout
o (GType
-> (GValue -> Ptr BoxLayout -> IO ()) -> Ptr BoxLayout -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr BoxLayout -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
        
    fromGValue :: GValue -> IO BoxLayout
fromGValue gv :: GValue
gv = do
        Ptr BoxLayout
ptr <- GValue -> IO (Ptr BoxLayout)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr BoxLayout)
        (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
        
    

-- | Type class for types which can be safely cast to `BoxLayout`, for instance with `toBoxLayout`.
class (GObject o, O.IsDescendantOf BoxLayout o) => IsBoxLayout o
instance (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 :: (MonadIO m, IsBoxLayout o) => o -> m BoxLayout
toBoxLayout :: o -> m BoxLayout
toBoxLayout = IO BoxLayout -> m BoxLayout
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr BoxLayout -> BoxLayout
BoxLayout

-- | A convenience alias for `Nothing` :: `Maybe` `BoxLayout`.
noBoxLayout :: Maybe BoxLayout
noBoxLayout :: Maybe BoxLayout
noBoxLayout = Maybe BoxLayout
forall a. Maybe a
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.MethodInfo 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

#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 :: o -> m BaselinePosition
getBoxLayoutBaselinePosition obj :: o
obj = 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
$ o -> String -> IO BaselinePosition
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "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 :: o -> BaselinePosition -> m ()
setBoxLayoutBaselinePosition obj :: o
obj val :: BaselinePosition
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> BaselinePosition -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "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) => Gtk.Enums.BaselinePosition -> IO (GValueConstruct o)
constructBoxLayoutBaselinePosition :: BaselinePosition -> IO (GValueConstruct o)
constructBoxLayoutBaselinePosition val :: BaselinePosition
val = String -> BaselinePosition -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "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 :: o -> m Bool
getBoxLayoutHomogeneous obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "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 :: o -> Bool -> m ()
setBoxLayoutHomogeneous obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "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) => Bool -> IO (GValueConstruct o)
constructBoxLayoutHomogeneous :: Bool -> IO (GValueConstruct o)
constructBoxLayoutHomogeneous val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Int32
getBoxLayoutSpacing obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "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 :: o -> Int32 -> m ()
setBoxLayoutSpacing obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "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) => Int32 -> IO (GValueConstruct o)
constructBoxLayoutSpacing :: Int32 -> IO (GValueConstruct o)
constructBoxLayoutSpacing val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 :: Orientation -> m BoxLayout
boxLayoutNew orientation :: 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 "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 :: a -> m BaselinePosition
boxLayoutGetBaselinePosition boxLayout :: 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.MethodInfo BoxLayoutGetBaselinePositionMethodInfo a signature where
    overloadedMethod = 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 :: a -> m Bool
boxLayoutGetHomogeneous boxLayout :: 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
/= 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.MethodInfo BoxLayoutGetHomogeneousMethodInfo a signature where
    overloadedMethod = 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 :: a -> m Word32
boxLayoutGetSpacing boxLayout :: 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.MethodInfo BoxLayoutGetSpacingMethodInfo a signature where
    overloadedMethod = 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 :: a -> BaselinePosition -> m ()
boxLayoutSetBaselinePosition boxLayout :: a
boxLayout position :: 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.MethodInfo BoxLayoutSetBaselinePositionMethodInfo a signature where
    overloadedMethod = 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 :: a -> Bool -> m ()
boxLayoutSetHomogeneous boxLayout :: a
boxLayout homogeneous :: 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.MethodInfo BoxLayoutSetHomogeneousMethodInfo a signature where
    overloadedMethod = 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 :: a -> Word32 -> m ()
boxLayoutSetSpacing boxLayout :: a
boxLayout spacing :: 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.MethodInfo BoxLayoutSetSpacingMethodInfo a signature where
    overloadedMethod = boxLayoutSetSpacing

#endif