{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.GridLayout
(
GridLayout(..) ,
IsGridLayout ,
toGridLayout ,
noGridLayout ,
#if defined(ENABLE_OVERLOADING)
ResolveGridLayoutMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
GridLayoutGetBaselineRowMethodInfo ,
#endif
gridLayoutGetBaselineRow ,
#if defined(ENABLE_OVERLOADING)
GridLayoutGetColumnHomogeneousMethodInfo,
#endif
gridLayoutGetColumnHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridLayoutGetColumnSpacingMethodInfo ,
#endif
gridLayoutGetColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
GridLayoutGetRowBaselinePositionMethodInfo,
#endif
gridLayoutGetRowBaselinePosition ,
#if defined(ENABLE_OVERLOADING)
GridLayoutGetRowHomogeneousMethodInfo ,
#endif
gridLayoutGetRowHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridLayoutGetRowSpacingMethodInfo ,
#endif
gridLayoutGetRowSpacing ,
gridLayoutNew ,
#if defined(ENABLE_OVERLOADING)
GridLayoutSetBaselineRowMethodInfo ,
#endif
gridLayoutSetBaselineRow ,
#if defined(ENABLE_OVERLOADING)
GridLayoutSetColumnHomogeneousMethodInfo,
#endif
gridLayoutSetColumnHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridLayoutSetColumnSpacingMethodInfo ,
#endif
gridLayoutSetColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
GridLayoutSetRowBaselinePositionMethodInfo,
#endif
gridLayoutSetRowBaselinePosition ,
#if defined(ENABLE_OVERLOADING)
GridLayoutSetRowHomogeneousMethodInfo ,
#endif
gridLayoutSetRowHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridLayoutSetRowSpacingMethodInfo ,
#endif
gridLayoutSetRowSpacing ,
#if defined(ENABLE_OVERLOADING)
GridLayoutBaselineRowPropertyInfo ,
#endif
constructGridLayoutBaselineRow ,
getGridLayoutBaselineRow ,
#if defined(ENABLE_OVERLOADING)
gridLayoutBaselineRow ,
#endif
setGridLayoutBaselineRow ,
#if defined(ENABLE_OVERLOADING)
GridLayoutColumnHomogeneousPropertyInfo ,
#endif
constructGridLayoutColumnHomogeneous ,
getGridLayoutColumnHomogeneous ,
#if defined(ENABLE_OVERLOADING)
gridLayoutColumnHomogeneous ,
#endif
setGridLayoutColumnHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridLayoutColumnSpacingPropertyInfo ,
#endif
constructGridLayoutColumnSpacing ,
getGridLayoutColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
gridLayoutColumnSpacing ,
#endif
setGridLayoutColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
GridLayoutRowHomogeneousPropertyInfo ,
#endif
constructGridLayoutRowHomogeneous ,
getGridLayoutRowHomogeneous ,
#if defined(ENABLE_OVERLOADING)
gridLayoutRowHomogeneous ,
#endif
setGridLayoutRowHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridLayoutRowSpacingPropertyInfo ,
#endif
constructGridLayoutRowSpacing ,
getGridLayoutRowSpacing ,
#if defined(ENABLE_OVERLOADING)
gridLayoutRowSpacing ,
#endif
setGridLayoutRowSpacing ,
) 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.Objects.LayoutManager as Gtk.LayoutManager
newtype GridLayout = GridLayout (ManagedPtr GridLayout)
deriving (GridLayout -> GridLayout -> Bool
(GridLayout -> GridLayout -> Bool)
-> (GridLayout -> GridLayout -> Bool) -> Eq GridLayout
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GridLayout -> GridLayout -> Bool
$c/= :: GridLayout -> GridLayout -> Bool
== :: GridLayout -> GridLayout -> Bool
$c== :: GridLayout -> GridLayout -> Bool
Eq)
foreign import ccall "gtk_grid_layout_get_type"
c_gtk_grid_layout_get_type :: IO GType
instance GObject GridLayout where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_grid_layout_get_type
instance B.GValue.IsGValue GridLayout where
toGValue :: GridLayout -> IO GValue
toGValue o :: GridLayout
o = do
GType
gtype <- IO GType
c_gtk_grid_layout_get_type
GridLayout -> (Ptr GridLayout -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr GridLayout
o (GType
-> (GValue -> Ptr GridLayout -> IO ())
-> Ptr GridLayout
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr GridLayout -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO GridLayout
fromGValue gv :: GValue
gv = do
Ptr GridLayout
ptr <- GValue -> IO (Ptr GridLayout)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr GridLayout)
(ManagedPtr GridLayout -> GridLayout)
-> Ptr GridLayout -> IO GridLayout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr GridLayout -> GridLayout
GridLayout Ptr GridLayout
ptr
class (GObject o, O.IsDescendantOf GridLayout o) => IsGridLayout o
instance (GObject o, O.IsDescendantOf GridLayout o) => IsGridLayout o
instance O.HasParentTypes GridLayout
type instance O.ParentTypes GridLayout = '[Gtk.LayoutManager.LayoutManager, GObject.Object.Object]
toGridLayout :: (MonadIO m, IsGridLayout o) => o -> m GridLayout
toGridLayout :: o -> m GridLayout
toGridLayout = IO GridLayout -> m GridLayout
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GridLayout -> m GridLayout)
-> (o -> IO GridLayout) -> o -> m GridLayout
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr GridLayout -> GridLayout) -> o -> IO GridLayout
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr GridLayout -> GridLayout
GridLayout
noGridLayout :: Maybe GridLayout
noGridLayout :: Maybe GridLayout
noGridLayout = Maybe GridLayout
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveGridLayoutMethod (t :: Symbol) (o :: *) :: * where
ResolveGridLayoutMethod "allocate" o = Gtk.LayoutManager.LayoutManagerAllocateMethodInfo
ResolveGridLayoutMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveGridLayoutMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveGridLayoutMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveGridLayoutMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveGridLayoutMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveGridLayoutMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveGridLayoutMethod "layoutChanged" o = Gtk.LayoutManager.LayoutManagerLayoutChangedMethodInfo
ResolveGridLayoutMethod "measure" o = Gtk.LayoutManager.LayoutManagerMeasureMethodInfo
ResolveGridLayoutMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveGridLayoutMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveGridLayoutMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveGridLayoutMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveGridLayoutMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveGridLayoutMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveGridLayoutMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveGridLayoutMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveGridLayoutMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveGridLayoutMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveGridLayoutMethod "getBaselineRow" o = GridLayoutGetBaselineRowMethodInfo
ResolveGridLayoutMethod "getColumnHomogeneous" o = GridLayoutGetColumnHomogeneousMethodInfo
ResolveGridLayoutMethod "getColumnSpacing" o = GridLayoutGetColumnSpacingMethodInfo
ResolveGridLayoutMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveGridLayoutMethod "getLayoutChild" o = Gtk.LayoutManager.LayoutManagerGetLayoutChildMethodInfo
ResolveGridLayoutMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveGridLayoutMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveGridLayoutMethod "getRequestMode" o = Gtk.LayoutManager.LayoutManagerGetRequestModeMethodInfo
ResolveGridLayoutMethod "getRowBaselinePosition" o = GridLayoutGetRowBaselinePositionMethodInfo
ResolveGridLayoutMethod "getRowHomogeneous" o = GridLayoutGetRowHomogeneousMethodInfo
ResolveGridLayoutMethod "getRowSpacing" o = GridLayoutGetRowSpacingMethodInfo
ResolveGridLayoutMethod "getWidget" o = Gtk.LayoutManager.LayoutManagerGetWidgetMethodInfo
ResolveGridLayoutMethod "setBaselineRow" o = GridLayoutSetBaselineRowMethodInfo
ResolveGridLayoutMethod "setColumnHomogeneous" o = GridLayoutSetColumnHomogeneousMethodInfo
ResolveGridLayoutMethod "setColumnSpacing" o = GridLayoutSetColumnSpacingMethodInfo
ResolveGridLayoutMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveGridLayoutMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveGridLayoutMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveGridLayoutMethod "setRowBaselinePosition" o = GridLayoutSetRowBaselinePositionMethodInfo
ResolveGridLayoutMethod "setRowHomogeneous" o = GridLayoutSetRowHomogeneousMethodInfo
ResolveGridLayoutMethod "setRowSpacing" o = GridLayoutSetRowSpacingMethodInfo
ResolveGridLayoutMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveGridLayoutMethod t GridLayout, O.MethodInfo info GridLayout p) => OL.IsLabel t (GridLayout -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getGridLayoutBaselineRow :: (MonadIO m, IsGridLayout o) => o -> m Int32
getGridLayoutBaselineRow :: o -> m Int32
getGridLayoutBaselineRow 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 "baseline-row"
setGridLayoutBaselineRow :: (MonadIO m, IsGridLayout o) => o -> Int32 -> m ()
setGridLayoutBaselineRow :: o -> Int32 -> m ()
setGridLayoutBaselineRow 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 "baseline-row" Int32
val
constructGridLayoutBaselineRow :: (IsGridLayout o) => Int32 -> IO (GValueConstruct o)
constructGridLayoutBaselineRow :: Int32 -> IO (GValueConstruct o)
constructGridLayoutBaselineRow val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "baseline-row" Int32
val
#if defined(ENABLE_OVERLOADING)
data GridLayoutBaselineRowPropertyInfo
instance AttrInfo GridLayoutBaselineRowPropertyInfo where
type AttrAllowedOps GridLayoutBaselineRowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridLayoutBaselineRowPropertyInfo = IsGridLayout
type AttrSetTypeConstraint GridLayoutBaselineRowPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GridLayoutBaselineRowPropertyInfo = (~) Int32
type AttrTransferType GridLayoutBaselineRowPropertyInfo = Int32
type AttrGetType GridLayoutBaselineRowPropertyInfo = Int32
type AttrLabel GridLayoutBaselineRowPropertyInfo = "baseline-row"
type AttrOrigin GridLayoutBaselineRowPropertyInfo = GridLayout
attrGet = getGridLayoutBaselineRow
attrSet = setGridLayoutBaselineRow
attrTransfer _ v = do
return v
attrConstruct = constructGridLayoutBaselineRow
attrClear = undefined
#endif
getGridLayoutColumnHomogeneous :: (MonadIO m, IsGridLayout o) => o -> m Bool
getGridLayoutColumnHomogeneous :: o -> m Bool
getGridLayoutColumnHomogeneous 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 "column-homogeneous"
setGridLayoutColumnHomogeneous :: (MonadIO m, IsGridLayout o) => o -> Bool -> m ()
setGridLayoutColumnHomogeneous :: o -> Bool -> m ()
setGridLayoutColumnHomogeneous 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 "column-homogeneous" Bool
val
constructGridLayoutColumnHomogeneous :: (IsGridLayout o) => Bool -> IO (GValueConstruct o)
constructGridLayoutColumnHomogeneous :: Bool -> IO (GValueConstruct o)
constructGridLayoutColumnHomogeneous val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "column-homogeneous" Bool
val
#if defined(ENABLE_OVERLOADING)
data GridLayoutColumnHomogeneousPropertyInfo
instance AttrInfo GridLayoutColumnHomogeneousPropertyInfo where
type AttrAllowedOps GridLayoutColumnHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridLayoutColumnHomogeneousPropertyInfo = IsGridLayout
type AttrSetTypeConstraint GridLayoutColumnHomogeneousPropertyInfo = (~) Bool
type AttrTransferTypeConstraint GridLayoutColumnHomogeneousPropertyInfo = (~) Bool
type AttrTransferType GridLayoutColumnHomogeneousPropertyInfo = Bool
type AttrGetType GridLayoutColumnHomogeneousPropertyInfo = Bool
type AttrLabel GridLayoutColumnHomogeneousPropertyInfo = "column-homogeneous"
type AttrOrigin GridLayoutColumnHomogeneousPropertyInfo = GridLayout
attrGet = getGridLayoutColumnHomogeneous
attrSet = setGridLayoutColumnHomogeneous
attrTransfer _ v = do
return v
attrConstruct = constructGridLayoutColumnHomogeneous
attrClear = undefined
#endif
getGridLayoutColumnSpacing :: (MonadIO m, IsGridLayout o) => o -> m Int32
getGridLayoutColumnSpacing :: o -> m Int32
getGridLayoutColumnSpacing 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 "column-spacing"
setGridLayoutColumnSpacing :: (MonadIO m, IsGridLayout o) => o -> Int32 -> m ()
setGridLayoutColumnSpacing :: o -> Int32 -> m ()
setGridLayoutColumnSpacing 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 "column-spacing" Int32
val
constructGridLayoutColumnSpacing :: (IsGridLayout o) => Int32 -> IO (GValueConstruct o)
constructGridLayoutColumnSpacing :: Int32 -> IO (GValueConstruct o)
constructGridLayoutColumnSpacing val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "column-spacing" Int32
val
#if defined(ENABLE_OVERLOADING)
data GridLayoutColumnSpacingPropertyInfo
instance AttrInfo GridLayoutColumnSpacingPropertyInfo where
type AttrAllowedOps GridLayoutColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridLayoutColumnSpacingPropertyInfo = IsGridLayout
type AttrSetTypeConstraint GridLayoutColumnSpacingPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GridLayoutColumnSpacingPropertyInfo = (~) Int32
type AttrTransferType GridLayoutColumnSpacingPropertyInfo = Int32
type AttrGetType GridLayoutColumnSpacingPropertyInfo = Int32
type AttrLabel GridLayoutColumnSpacingPropertyInfo = "column-spacing"
type AttrOrigin GridLayoutColumnSpacingPropertyInfo = GridLayout
attrGet = getGridLayoutColumnSpacing
attrSet = setGridLayoutColumnSpacing
attrTransfer _ v = do
return v
attrConstruct = constructGridLayoutColumnSpacing
attrClear = undefined
#endif
getGridLayoutRowHomogeneous :: (MonadIO m, IsGridLayout o) => o -> m Bool
getGridLayoutRowHomogeneous :: o -> m Bool
getGridLayoutRowHomogeneous 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 "row-homogeneous"
setGridLayoutRowHomogeneous :: (MonadIO m, IsGridLayout o) => o -> Bool -> m ()
setGridLayoutRowHomogeneous :: o -> Bool -> m ()
setGridLayoutRowHomogeneous 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 "row-homogeneous" Bool
val
constructGridLayoutRowHomogeneous :: (IsGridLayout o) => Bool -> IO (GValueConstruct o)
constructGridLayoutRowHomogeneous :: Bool -> IO (GValueConstruct o)
constructGridLayoutRowHomogeneous val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "row-homogeneous" Bool
val
#if defined(ENABLE_OVERLOADING)
data GridLayoutRowHomogeneousPropertyInfo
instance AttrInfo GridLayoutRowHomogeneousPropertyInfo where
type AttrAllowedOps GridLayoutRowHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridLayoutRowHomogeneousPropertyInfo = IsGridLayout
type AttrSetTypeConstraint GridLayoutRowHomogeneousPropertyInfo = (~) Bool
type AttrTransferTypeConstraint GridLayoutRowHomogeneousPropertyInfo = (~) Bool
type AttrTransferType GridLayoutRowHomogeneousPropertyInfo = Bool
type AttrGetType GridLayoutRowHomogeneousPropertyInfo = Bool
type AttrLabel GridLayoutRowHomogeneousPropertyInfo = "row-homogeneous"
type AttrOrigin GridLayoutRowHomogeneousPropertyInfo = GridLayout
attrGet = getGridLayoutRowHomogeneous
attrSet = setGridLayoutRowHomogeneous
attrTransfer _ v = do
return v
attrConstruct = constructGridLayoutRowHomogeneous
attrClear = undefined
#endif
getGridLayoutRowSpacing :: (MonadIO m, IsGridLayout o) => o -> m Int32
getGridLayoutRowSpacing :: o -> m Int32
getGridLayoutRowSpacing 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 "row-spacing"
setGridLayoutRowSpacing :: (MonadIO m, IsGridLayout o) => o -> Int32 -> m ()
setGridLayoutRowSpacing :: o -> Int32 -> m ()
setGridLayoutRowSpacing 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 "row-spacing" Int32
val
constructGridLayoutRowSpacing :: (IsGridLayout o) => Int32 -> IO (GValueConstruct o)
constructGridLayoutRowSpacing :: Int32 -> IO (GValueConstruct o)
constructGridLayoutRowSpacing val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "row-spacing" Int32
val
#if defined(ENABLE_OVERLOADING)
data GridLayoutRowSpacingPropertyInfo
instance AttrInfo GridLayoutRowSpacingPropertyInfo where
type AttrAllowedOps GridLayoutRowSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridLayoutRowSpacingPropertyInfo = IsGridLayout
type AttrSetTypeConstraint GridLayoutRowSpacingPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GridLayoutRowSpacingPropertyInfo = (~) Int32
type AttrTransferType GridLayoutRowSpacingPropertyInfo = Int32
type AttrGetType GridLayoutRowSpacingPropertyInfo = Int32
type AttrLabel GridLayoutRowSpacingPropertyInfo = "row-spacing"
type AttrOrigin GridLayoutRowSpacingPropertyInfo = GridLayout
attrGet = getGridLayoutRowSpacing
attrSet = setGridLayoutRowSpacing
attrTransfer _ v = do
return v
attrConstruct = constructGridLayoutRowSpacing
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList GridLayout
type instance O.AttributeList GridLayout = GridLayoutAttributeList
type GridLayoutAttributeList = ('[ '("baselineRow", GridLayoutBaselineRowPropertyInfo), '("columnHomogeneous", GridLayoutColumnHomogeneousPropertyInfo), '("columnSpacing", GridLayoutColumnSpacingPropertyInfo), '("rowHomogeneous", GridLayoutRowHomogeneousPropertyInfo), '("rowSpacing", GridLayoutRowSpacingPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
gridLayoutBaselineRow :: AttrLabelProxy "baselineRow"
gridLayoutBaselineRow = AttrLabelProxy
gridLayoutColumnHomogeneous :: AttrLabelProxy "columnHomogeneous"
gridLayoutColumnHomogeneous = AttrLabelProxy
gridLayoutColumnSpacing :: AttrLabelProxy "columnSpacing"
gridLayoutColumnSpacing = AttrLabelProxy
gridLayoutRowHomogeneous :: AttrLabelProxy "rowHomogeneous"
gridLayoutRowHomogeneous = AttrLabelProxy
gridLayoutRowSpacing :: AttrLabelProxy "rowSpacing"
gridLayoutRowSpacing = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList GridLayout = GridLayoutSignalList
type GridLayoutSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_grid_layout_new" gtk_grid_layout_new ::
IO (Ptr GridLayout)
gridLayoutNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m GridLayout
gridLayoutNew :: m GridLayout
gridLayoutNew = IO GridLayout -> m GridLayout
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GridLayout -> m GridLayout) -> IO GridLayout -> m GridLayout
forall a b. (a -> b) -> a -> b
$ do
Ptr GridLayout
result <- IO (Ptr GridLayout)
gtk_grid_layout_new
Text -> Ptr GridLayout -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "gridLayoutNew" Ptr GridLayout
result
GridLayout
result' <- ((ManagedPtr GridLayout -> GridLayout)
-> Ptr GridLayout -> IO GridLayout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr GridLayout -> GridLayout
GridLayout) Ptr GridLayout
result
GridLayout -> IO GridLayout
forall (m :: * -> *) a. Monad m => a -> m a
return GridLayout
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_grid_layout_get_baseline_row" gtk_grid_layout_get_baseline_row ::
Ptr GridLayout ->
IO Int32
gridLayoutGetBaselineRow ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> m Int32
gridLayoutGetBaselineRow :: a -> m Int32
gridLayoutGetBaselineRow grid :: a
grid = 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
$ do
Ptr GridLayout
grid' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Int32
result <- Ptr GridLayout -> IO Int32
gtk_grid_layout_get_baseline_row Ptr GridLayout
grid'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data GridLayoutGetBaselineRowMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsGridLayout a) => O.MethodInfo GridLayoutGetBaselineRowMethodInfo a signature where
overloadedMethod = gridLayoutGetBaselineRow
#endif
foreign import ccall "gtk_grid_layout_get_column_homogeneous" gtk_grid_layout_get_column_homogeneous ::
Ptr GridLayout ->
IO CInt
gridLayoutGetColumnHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> m Bool
gridLayoutGetColumnHomogeneous :: a -> m Bool
gridLayoutGetColumnHomogeneous grid :: a
grid = 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 GridLayout
grid' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
CInt
result <- Ptr GridLayout -> IO CInt
gtk_grid_layout_get_column_homogeneous Ptr GridLayout
grid'
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
grid
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GridLayoutGetColumnHomogeneousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGridLayout a) => O.MethodInfo GridLayoutGetColumnHomogeneousMethodInfo a signature where
overloadedMethod = gridLayoutGetColumnHomogeneous
#endif
foreign import ccall "gtk_grid_layout_get_column_spacing" gtk_grid_layout_get_column_spacing ::
Ptr GridLayout ->
IO Word32
gridLayoutGetColumnSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> m Word32
gridLayoutGetColumnSpacing :: a -> m Word32
gridLayoutGetColumnSpacing grid :: a
grid = 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 GridLayout
grid' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Word32
result <- Ptr GridLayout -> IO Word32
gtk_grid_layout_get_column_spacing Ptr GridLayout
grid'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data GridLayoutGetColumnSpacingMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsGridLayout a) => O.MethodInfo GridLayoutGetColumnSpacingMethodInfo a signature where
overloadedMethod = gridLayoutGetColumnSpacing
#endif
foreign import ccall "gtk_grid_layout_get_row_baseline_position" gtk_grid_layout_get_row_baseline_position ::
Ptr GridLayout ->
Int32 ->
IO CUInt
gridLayoutGetRowBaselinePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Int32
-> m Gtk.Enums.BaselinePosition
gridLayoutGetRowBaselinePosition :: a -> Int32 -> m BaselinePosition
gridLayoutGetRowBaselinePosition grid :: a
grid row :: Int32
row = 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 GridLayout
grid' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
CUInt
result <- Ptr GridLayout -> Int32 -> IO CUInt
gtk_grid_layout_get_row_baseline_position Ptr GridLayout
grid' Int32
row
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
grid
BaselinePosition -> IO BaselinePosition
forall (m :: * -> *) a. Monad m => a -> m a
return BaselinePosition
result'
#if defined(ENABLE_OVERLOADING)
data GridLayoutGetRowBaselinePositionMethodInfo
instance (signature ~ (Int32 -> m Gtk.Enums.BaselinePosition), MonadIO m, IsGridLayout a) => O.MethodInfo GridLayoutGetRowBaselinePositionMethodInfo a signature where
overloadedMethod = gridLayoutGetRowBaselinePosition
#endif
foreign import ccall "gtk_grid_layout_get_row_homogeneous" gtk_grid_layout_get_row_homogeneous ::
Ptr GridLayout ->
IO CInt
gridLayoutGetRowHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> m Bool
gridLayoutGetRowHomogeneous :: a -> m Bool
gridLayoutGetRowHomogeneous grid :: a
grid = 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 GridLayout
grid' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
CInt
result <- Ptr GridLayout -> IO CInt
gtk_grid_layout_get_row_homogeneous Ptr GridLayout
grid'
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
grid
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GridLayoutGetRowHomogeneousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGridLayout a) => O.MethodInfo GridLayoutGetRowHomogeneousMethodInfo a signature where
overloadedMethod = gridLayoutGetRowHomogeneous
#endif
foreign import ccall "gtk_grid_layout_get_row_spacing" gtk_grid_layout_get_row_spacing ::
Ptr GridLayout ->
IO Word32
gridLayoutGetRowSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> m Word32
gridLayoutGetRowSpacing :: a -> m Word32
gridLayoutGetRowSpacing grid :: a
grid = 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 GridLayout
grid' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Word32
result <- Ptr GridLayout -> IO Word32
gtk_grid_layout_get_row_spacing Ptr GridLayout
grid'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data GridLayoutGetRowSpacingMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsGridLayout a) => O.MethodInfo GridLayoutGetRowSpacingMethodInfo a signature where
overloadedMethod = gridLayoutGetRowSpacing
#endif
foreign import ccall "gtk_grid_layout_set_baseline_row" gtk_grid_layout_set_baseline_row ::
Ptr GridLayout ->
Int32 ->
IO ()
gridLayoutSetBaselineRow ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Int32
-> m ()
gridLayoutSetBaselineRow :: a -> Int32 -> m ()
gridLayoutSetBaselineRow grid :: a
grid row :: Int32
row = 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 GridLayout
grid' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr GridLayout -> Int32 -> IO ()
gtk_grid_layout_set_baseline_row Ptr GridLayout
grid' Int32
row
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutSetBaselineRowMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGridLayout a) => O.MethodInfo GridLayoutSetBaselineRowMethodInfo a signature where
overloadedMethod = gridLayoutSetBaselineRow
#endif
foreign import ccall "gtk_grid_layout_set_column_homogeneous" gtk_grid_layout_set_column_homogeneous ::
Ptr GridLayout ->
CInt ->
IO ()
gridLayoutSetColumnHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Bool
-> m ()
gridLayoutSetColumnHomogeneous :: a -> Bool -> m ()
gridLayoutSetColumnHomogeneous grid :: a
grid 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 GridLayout
grid' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
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 GridLayout -> CInt -> IO ()
gtk_grid_layout_set_column_homogeneous Ptr GridLayout
grid' CInt
homogeneous'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutSetColumnHomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGridLayout a) => O.MethodInfo GridLayoutSetColumnHomogeneousMethodInfo a signature where
overloadedMethod = gridLayoutSetColumnHomogeneous
#endif
foreign import ccall "gtk_grid_layout_set_column_spacing" gtk_grid_layout_set_column_spacing ::
Ptr GridLayout ->
Word32 ->
IO ()
gridLayoutSetColumnSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Word32
-> m ()
gridLayoutSetColumnSpacing :: a -> Word32 -> m ()
gridLayoutSetColumnSpacing grid :: a
grid 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 GridLayout
grid' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr GridLayout -> Word32 -> IO ()
gtk_grid_layout_set_column_spacing Ptr GridLayout
grid' Word32
spacing
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutSetColumnSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsGridLayout a) => O.MethodInfo GridLayoutSetColumnSpacingMethodInfo a signature where
overloadedMethod = gridLayoutSetColumnSpacing
#endif
foreign import ccall "gtk_grid_layout_set_row_baseline_position" gtk_grid_layout_set_row_baseline_position ::
Ptr GridLayout ->
Int32 ->
CUInt ->
IO ()
gridLayoutSetRowBaselinePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Int32
-> Gtk.Enums.BaselinePosition
-> m ()
gridLayoutSetRowBaselinePosition :: a -> Int32 -> BaselinePosition -> m ()
gridLayoutSetRowBaselinePosition grid :: a
grid row :: Int32
row pos :: BaselinePosition
pos = 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 GridLayout
grid' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
let pos' :: CUInt
pos' = (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
pos
Ptr GridLayout -> Int32 -> CUInt -> IO ()
gtk_grid_layout_set_row_baseline_position Ptr GridLayout
grid' Int32
row CUInt
pos'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutSetRowBaselinePositionMethodInfo
instance (signature ~ (Int32 -> Gtk.Enums.BaselinePosition -> m ()), MonadIO m, IsGridLayout a) => O.MethodInfo GridLayoutSetRowBaselinePositionMethodInfo a signature where
overloadedMethod = gridLayoutSetRowBaselinePosition
#endif
foreign import ccall "gtk_grid_layout_set_row_homogeneous" gtk_grid_layout_set_row_homogeneous ::
Ptr GridLayout ->
CInt ->
IO ()
gridLayoutSetRowHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Bool
-> m ()
gridLayoutSetRowHomogeneous :: a -> Bool -> m ()
gridLayoutSetRowHomogeneous grid :: a
grid 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 GridLayout
grid' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
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 GridLayout -> CInt -> IO ()
gtk_grid_layout_set_row_homogeneous Ptr GridLayout
grid' CInt
homogeneous'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutSetRowHomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGridLayout a) => O.MethodInfo GridLayoutSetRowHomogeneousMethodInfo a signature where
overloadedMethod = gridLayoutSetRowHomogeneous
#endif
foreign import ccall "gtk_grid_layout_set_row_spacing" gtk_grid_layout_set_row_spacing ::
Ptr GridLayout ->
Word32 ->
IO ()
gridLayoutSetRowSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Word32
-> m ()
gridLayoutSetRowSpacing :: a -> Word32 -> m ()
gridLayoutSetRowSpacing grid :: a
grid 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 GridLayout
grid' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr GridLayout -> Word32 -> IO ()
gtk_grid_layout_set_row_spacing Ptr GridLayout
grid' Word32
spacing
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutSetRowSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsGridLayout a) => O.MethodInfo GridLayoutSetRowSpacingMethodInfo a signature where
overloadedMethod = gridLayoutSetRowSpacing
#endif