{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.BoxLayout
(
BoxLayout(..) ,
IsBoxLayout ,
toBoxLayout ,
#if defined(ENABLE_OVERLOADING)
ResolveBoxLayoutMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
BoxLayoutGetBaselineChildMethodInfo ,
#endif
boxLayoutGetBaselineChild ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutGetBaselinePositionMethodInfo ,
#endif
boxLayoutGetBaselinePosition ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutGetHomogeneousMethodInfo ,
#endif
boxLayoutGetHomogeneous ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutGetSpacingMethodInfo ,
#endif
boxLayoutGetSpacing ,
boxLayoutNew ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutSetBaselineChildMethodInfo ,
#endif
boxLayoutSetBaselineChild ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutSetBaselinePositionMethodInfo ,
#endif
boxLayoutSetBaselinePosition ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutSetHomogeneousMethodInfo ,
#endif
boxLayoutSetHomogeneous ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutSetSpacingMethodInfo ,
#endif
boxLayoutSetSpacing ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutBaselineChildPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
boxLayoutBaselineChild ,
#endif
constructBoxLayoutBaselineChild ,
getBoxLayoutBaselineChild ,
setBoxLayoutBaselineChild ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutBaselinePositionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
boxLayoutBaselinePosition ,
#endif
constructBoxLayoutBaselinePosition ,
getBoxLayoutBaselinePosition ,
setBoxLayoutBaselinePosition ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutHomogeneousPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
boxLayoutHomogeneous ,
#endif
constructBoxLayoutHomogeneous ,
getBoxLayoutHomogeneous ,
setBoxLayoutHomogeneous ,
#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.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.Orientable as Gtk.Orientable
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.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
#endif
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
$c== :: BoxLayout -> BoxLayout -> Bool
== :: BoxLayout -> BoxLayout -> Bool
$c/= :: BoxLayout -> BoxLayout -> Bool
/= :: 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
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]
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 a. IO a -> m a
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
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 a. a -> IO a
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 :: DK.Type) :: DK.Type 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 "getBaselineChild" o = BoxLayoutGetBaselineChildMethodInfo
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 "setBaselineChild" o = BoxLayoutSetBaselineChildMethodInfo
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
getBoxLayoutBaselineChild :: (MonadIO m, IsBoxLayout o) => o -> m Int32
getBoxLayoutBaselineChild :: forall (m :: * -> *) o. (MonadIO m, IsBoxLayout o) => o -> m Int32
getBoxLayoutBaselineChild o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
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
"baseline-child"
setBoxLayoutBaselineChild :: (MonadIO m, IsBoxLayout o) => o -> Int32 -> m ()
setBoxLayoutBaselineChild :: forall (m :: * -> *) o.
(MonadIO m, IsBoxLayout o) =>
o -> Int32 -> m ()
setBoxLayoutBaselineChild o
obj Int32
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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"baseline-child" Int32
val
constructBoxLayoutBaselineChild :: (IsBoxLayout o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructBoxLayoutBaselineChild :: forall o (m :: * -> *).
(IsBoxLayout o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructBoxLayoutBaselineChild Int32
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 -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"baseline-child" Int32
val
#if defined(ENABLE_OVERLOADING)
data BoxLayoutBaselineChildPropertyInfo
instance AttrInfo BoxLayoutBaselineChildPropertyInfo where
type AttrAllowedOps BoxLayoutBaselineChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BoxLayoutBaselineChildPropertyInfo = IsBoxLayout
type AttrSetTypeConstraint BoxLayoutBaselineChildPropertyInfo = (~) Int32
type AttrTransferTypeConstraint BoxLayoutBaselineChildPropertyInfo = (~) Int32
type AttrTransferType BoxLayoutBaselineChildPropertyInfo = Int32
type AttrGetType BoxLayoutBaselineChildPropertyInfo = Int32
type AttrLabel BoxLayoutBaselineChildPropertyInfo = "baseline-child"
type AttrOrigin BoxLayoutBaselineChildPropertyInfo = BoxLayout
attrGet = getBoxLayoutBaselineChild
attrSet = setBoxLayoutBaselineChild
attrTransfer _ v = do
return v
attrConstruct = constructBoxLayoutBaselineChild
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.baselineChild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-BoxLayout.html#g:attr:baselineChild"
})
#endif
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 a. IO a -> m a
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"
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 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 -> 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
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 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 -> 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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.baselinePosition"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-BoxLayout.html#g:attr:baselinePosition"
})
#endif
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 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
"homogeneous"
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 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
"homogeneous" Bool
val
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 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
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.homogeneous"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-BoxLayout.html#g:attr:homogeneous"
})
#endif
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 a. IO a -> m a
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"
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 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 -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"spacing" Int32
val
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 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 -> 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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.spacing"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-BoxLayout.html#g:attr:spacing"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList BoxLayout
type instance O.AttributeList BoxLayout = BoxLayoutAttributeList
type BoxLayoutAttributeList = ('[ '("baselineChild", BoxLayoutBaselineChildPropertyInfo), '("baselinePosition", BoxLayoutBaselinePositionPropertyInfo), '("homogeneous", BoxLayoutHomogeneousPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("spacing", BoxLayoutSpacingPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
boxLayoutBaselineChild :: AttrLabelProxy "baselineChild"
boxLayoutBaselineChild = AttrLabelProxy
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, DK.Type)])
#endif
foreign import ccall "gtk_box_layout_new" gtk_box_layout_new ::
CUInt ->
IO (Ptr BoxLayout)
boxLayoutNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gtk.Enums.Orientation
-> m BoxLayout
boxLayoutNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Orientation -> m BoxLayout
boxLayoutNew Orientation
orientation = IO BoxLayout -> m BoxLayout
forall a. IO a -> m a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return BoxLayout
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_box_layout_get_baseline_child" gtk_box_layout_get_baseline_child ::
Ptr BoxLayout ->
IO Int32
boxLayoutGetBaselineChild ::
(B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
a
-> m Int32
boxLayoutGetBaselineChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> m Int32
boxLayoutGetBaselineChild a
boxLayout = IO Int32 -> m Int32
forall a. IO a -> m a
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
$ do
Ptr BoxLayout
boxLayout' <- a -> IO (Ptr BoxLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
boxLayout
Int32
result <- Ptr BoxLayout -> IO Int32
gtk_box_layout_get_baseline_child Ptr BoxLayout
boxLayout'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
boxLayout
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data BoxLayoutGetBaselineChildMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsBoxLayout a) => O.OverloadedMethod BoxLayoutGetBaselineChildMethodInfo a signature where
overloadedMethod = boxLayoutGetBaselineChild
instance O.OverloadedMethodInfo BoxLayoutGetBaselineChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.boxLayoutGetBaselineChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutGetBaselineChild"
})
#endif
foreign import ccall "gtk_box_layout_get_baseline_position" gtk_box_layout_get_baseline_position ::
Ptr BoxLayout ->
IO CUInt
boxLayoutGetBaselinePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
a
-> m Gtk.Enums.BaselinePosition
boxLayoutGetBaselinePosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> m BaselinePosition
boxLayoutGetBaselinePosition a
boxLayout = 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 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 a. a -> IO a
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.boxLayoutGetBaselinePosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutGetBaselinePosition"
})
#endif
foreign import ccall "gtk_box_layout_get_homogeneous" gtk_box_layout_get_homogeneous ::
Ptr BoxLayout ->
IO CInt
boxLayoutGetHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
a
-> m Bool
boxLayoutGetHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> m Bool
boxLayoutGetHomogeneous a
boxLayout = 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 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 a. a -> IO a
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.boxLayoutGetHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutGetHomogeneous"
})
#endif
foreign import ccall "gtk_box_layout_get_spacing" gtk_box_layout_get_spacing ::
Ptr BoxLayout ->
IO Word32
boxLayoutGetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
a
-> m Word32
boxLayoutGetSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> m Word32
boxLayoutGetSpacing a
boxLayout = IO Word32 -> m Word32
forall a. IO a -> m a
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 a. a -> IO a
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.boxLayoutGetSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutGetSpacing"
})
#endif
foreign import ccall "gtk_box_layout_set_baseline_child" gtk_box_layout_set_baseline_child ::
Ptr BoxLayout ->
Int32 ->
IO ()
boxLayoutSetBaselineChild ::
(B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
a
-> Int32
-> m ()
boxLayoutSetBaselineChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> Int32 -> m ()
boxLayoutSetBaselineChild a
boxLayout Int32
child = 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 BoxLayout
boxLayout' <- a -> IO (Ptr BoxLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
boxLayout
Ptr BoxLayout -> Int32 -> IO ()
gtk_box_layout_set_baseline_child Ptr BoxLayout
boxLayout' Int32
child
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
boxLayout
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BoxLayoutSetBaselineChildMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsBoxLayout a) => O.OverloadedMethod BoxLayoutSetBaselineChildMethodInfo a signature where
overloadedMethod = boxLayoutSetBaselineChild
instance O.OverloadedMethodInfo BoxLayoutSetBaselineChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.boxLayoutSetBaselineChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutSetBaselineChild"
})
#endif
foreign import ccall "gtk_box_layout_set_baseline_position" gtk_box_layout_set_baseline_position ::
Ptr BoxLayout ->
CUInt ->
IO ()
boxLayoutSetBaselinePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
a
-> Gtk.Enums.BaselinePosition
-> m ()
boxLayoutSetBaselinePosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> BaselinePosition -> m ()
boxLayoutSetBaselinePosition a
boxLayout BaselinePosition
position = 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 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 a. a -> IO a
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.boxLayoutSetBaselinePosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutSetBaselinePosition"
})
#endif
foreign import ccall "gtk_box_layout_set_homogeneous" gtk_box_layout_set_homogeneous ::
Ptr BoxLayout ->
CInt ->
IO ()
boxLayoutSetHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
a
-> Bool
-> m ()
boxLayoutSetHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> Bool -> m ()
boxLayoutSetHomogeneous a
boxLayout Bool
homogeneous = 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 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
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
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 a. a -> IO a
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.boxLayoutSetHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutSetHomogeneous"
})
#endif
foreign import ccall "gtk_box_layout_set_spacing" gtk_box_layout_set_spacing ::
Ptr BoxLayout ->
Word32 ->
IO ()
boxLayoutSetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
a
-> Word32
-> m ()
boxLayoutSetSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> Word32 -> m ()
boxLayoutSetSpacing a
boxLayout Word32
spacing = 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 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 a. a -> IO a
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.boxLayoutSetSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutSetSpacing"
})
#endif