{-# 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 ,
noBoxLayout ,
#if defined(ENABLE_OVERLOADING)
ResolveBoxLayoutMethod ,
#endif
#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)
BoxLayoutSetBaselinePositionMethodInfo ,
#endif
boxLayoutSetBaselinePosition ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutSetHomogeneousMethodInfo ,
#endif
boxLayoutSetHomogeneous ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutSetSpacingMethodInfo ,
#endif
boxLayoutSetSpacing ,
#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.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
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
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
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]
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
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
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"
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
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
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"
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
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
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"
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
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
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 :: 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
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 :: 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
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 :: 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
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 :: 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
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 :: 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
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 :: 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
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 :: 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