gi-gtk-0.3.18.12: GI/Gtk/Objects/Grid.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gtk.Objects.Grid
(
-- * Exported types
Grid(..) ,
GridK ,
toGrid ,
noGrid ,
-- * Methods
-- ** gridAttach
gridAttach ,
-- ** gridAttachNextTo
gridAttachNextTo ,
-- ** gridGetBaselineRow
gridGetBaselineRow ,
-- ** gridGetChildAt
gridGetChildAt ,
-- ** gridGetColumnHomogeneous
gridGetColumnHomogeneous ,
-- ** gridGetColumnSpacing
gridGetColumnSpacing ,
-- ** gridGetRowBaselinePosition
gridGetRowBaselinePosition ,
-- ** gridGetRowHomogeneous
gridGetRowHomogeneous ,
-- ** gridGetRowSpacing
gridGetRowSpacing ,
-- ** gridInsertColumn
gridInsertColumn ,
-- ** gridInsertNextTo
gridInsertNextTo ,
-- ** gridInsertRow
gridInsertRow ,
-- ** gridNew
gridNew ,
-- ** gridRemoveColumn
gridRemoveColumn ,
-- ** gridRemoveRow
gridRemoveRow ,
-- ** gridSetBaselineRow
gridSetBaselineRow ,
-- ** gridSetColumnHomogeneous
gridSetColumnHomogeneous ,
-- ** gridSetColumnSpacing
gridSetColumnSpacing ,
-- ** gridSetRowBaselinePosition
gridSetRowBaselinePosition ,
-- ** gridSetRowHomogeneous
gridSetRowHomogeneous ,
-- ** gridSetRowSpacing
gridSetRowSpacing ,
-- * Properties
-- ** BaselineRow
GridBaselineRowPropertyInfo ,
constructGridBaselineRow ,
getGridBaselineRow ,
setGridBaselineRow ,
-- ** ColumnHomogeneous
GridColumnHomogeneousPropertyInfo ,
constructGridColumnHomogeneous ,
getGridColumnHomogeneous ,
setGridColumnHomogeneous ,
-- ** ColumnSpacing
GridColumnSpacingPropertyInfo ,
constructGridColumnSpacing ,
getGridColumnSpacing ,
setGridColumnSpacing ,
-- ** RowHomogeneous
GridRowHomogeneousPropertyInfo ,
constructGridRowHomogeneous ,
getGridRowHomogeneous ,
setGridRowHomogeneous ,
-- ** RowSpacing
GridRowSpacingPropertyInfo ,
constructGridRowSpacing ,
getGridRowSpacing ,
setGridRowSpacing ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.Atk as Atk
import qualified GI.GObject as GObject
newtype Grid = Grid (ForeignPtr Grid)
foreign import ccall "gtk_grid_get_type"
c_gtk_grid_get_type :: IO GType
type instance ParentTypes Grid = GridParentTypes
type GridParentTypes = '[Container, Widget, GObject.Object, Atk.ImplementorIface, Buildable, Orientable]
instance GObject Grid where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_grid_get_type
class GObject o => GridK o
instance (GObject o, IsDescendantOf Grid o) => GridK o
toGrid :: GridK o => o -> IO Grid
toGrid = unsafeCastTo Grid
noGrid :: Maybe Grid
noGrid = Nothing
-- VVV Prop "baseline-row"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
getGridBaselineRow :: (MonadIO m, GridK o) => o -> m Int32
getGridBaselineRow obj = liftIO $ getObjectPropertyCInt obj "baseline-row"
setGridBaselineRow :: (MonadIO m, GridK o) => o -> Int32 -> m ()
setGridBaselineRow obj val = liftIO $ setObjectPropertyCInt obj "baseline-row" val
constructGridBaselineRow :: Int32 -> IO ([Char], GValue)
constructGridBaselineRow val = constructObjectPropertyCInt "baseline-row" val
data GridBaselineRowPropertyInfo
instance AttrInfo GridBaselineRowPropertyInfo where
type AttrAllowedOps GridBaselineRowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GridBaselineRowPropertyInfo = (~) Int32
type AttrBaseTypeConstraint GridBaselineRowPropertyInfo = GridK
type AttrGetType GridBaselineRowPropertyInfo = Int32
type AttrLabel GridBaselineRowPropertyInfo = "Grid::baseline-row"
attrGet _ = getGridBaselineRow
attrSet _ = setGridBaselineRow
attrConstruct _ = constructGridBaselineRow
-- VVV Prop "column-homogeneous"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getGridColumnHomogeneous :: (MonadIO m, GridK o) => o -> m Bool
getGridColumnHomogeneous obj = liftIO $ getObjectPropertyBool obj "column-homogeneous"
setGridColumnHomogeneous :: (MonadIO m, GridK o) => o -> Bool -> m ()
setGridColumnHomogeneous obj val = liftIO $ setObjectPropertyBool obj "column-homogeneous" val
constructGridColumnHomogeneous :: Bool -> IO ([Char], GValue)
constructGridColumnHomogeneous val = constructObjectPropertyBool "column-homogeneous" val
data GridColumnHomogeneousPropertyInfo
instance AttrInfo GridColumnHomogeneousPropertyInfo where
type AttrAllowedOps GridColumnHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GridColumnHomogeneousPropertyInfo = (~) Bool
type AttrBaseTypeConstraint GridColumnHomogeneousPropertyInfo = GridK
type AttrGetType GridColumnHomogeneousPropertyInfo = Bool
type AttrLabel GridColumnHomogeneousPropertyInfo = "Grid::column-homogeneous"
attrGet _ = getGridColumnHomogeneous
attrSet _ = setGridColumnHomogeneous
attrConstruct _ = constructGridColumnHomogeneous
-- VVV Prop "column-spacing"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
getGridColumnSpacing :: (MonadIO m, GridK o) => o -> m Int32
getGridColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "column-spacing"
setGridColumnSpacing :: (MonadIO m, GridK o) => o -> Int32 -> m ()
setGridColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "column-spacing" val
constructGridColumnSpacing :: Int32 -> IO ([Char], GValue)
constructGridColumnSpacing val = constructObjectPropertyCInt "column-spacing" val
data GridColumnSpacingPropertyInfo
instance AttrInfo GridColumnSpacingPropertyInfo where
type AttrAllowedOps GridColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GridColumnSpacingPropertyInfo = (~) Int32
type AttrBaseTypeConstraint GridColumnSpacingPropertyInfo = GridK
type AttrGetType GridColumnSpacingPropertyInfo = Int32
type AttrLabel GridColumnSpacingPropertyInfo = "Grid::column-spacing"
attrGet _ = getGridColumnSpacing
attrSet _ = setGridColumnSpacing
attrConstruct _ = constructGridColumnSpacing
-- VVV Prop "row-homogeneous"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getGridRowHomogeneous :: (MonadIO m, GridK o) => o -> m Bool
getGridRowHomogeneous obj = liftIO $ getObjectPropertyBool obj "row-homogeneous"
setGridRowHomogeneous :: (MonadIO m, GridK o) => o -> Bool -> m ()
setGridRowHomogeneous obj val = liftIO $ setObjectPropertyBool obj "row-homogeneous" val
constructGridRowHomogeneous :: Bool -> IO ([Char], GValue)
constructGridRowHomogeneous val = constructObjectPropertyBool "row-homogeneous" val
data GridRowHomogeneousPropertyInfo
instance AttrInfo GridRowHomogeneousPropertyInfo where
type AttrAllowedOps GridRowHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GridRowHomogeneousPropertyInfo = (~) Bool
type AttrBaseTypeConstraint GridRowHomogeneousPropertyInfo = GridK
type AttrGetType GridRowHomogeneousPropertyInfo = Bool
type AttrLabel GridRowHomogeneousPropertyInfo = "Grid::row-homogeneous"
attrGet _ = getGridRowHomogeneous
attrSet _ = setGridRowHomogeneous
attrConstruct _ = constructGridRowHomogeneous
-- VVV Prop "row-spacing"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
getGridRowSpacing :: (MonadIO m, GridK o) => o -> m Int32
getGridRowSpacing obj = liftIO $ getObjectPropertyCInt obj "row-spacing"
setGridRowSpacing :: (MonadIO m, GridK o) => o -> Int32 -> m ()
setGridRowSpacing obj val = liftIO $ setObjectPropertyCInt obj "row-spacing" val
constructGridRowSpacing :: Int32 -> IO ([Char], GValue)
constructGridRowSpacing val = constructObjectPropertyCInt "row-spacing" val
data GridRowSpacingPropertyInfo
instance AttrInfo GridRowSpacingPropertyInfo where
type AttrAllowedOps GridRowSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint GridRowSpacingPropertyInfo = (~) Int32
type AttrBaseTypeConstraint GridRowSpacingPropertyInfo = GridK
type AttrGetType GridRowSpacingPropertyInfo = Int32
type AttrLabel GridRowSpacingPropertyInfo = "Grid::row-spacing"
attrGet _ = getGridRowSpacing
attrSet _ = setGridRowSpacing
attrConstruct _ = constructGridRowSpacing
type instance AttributeList Grid = GridAttributeList
type GridAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-row", GridBaselineRowPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-homogeneous", GridColumnHomogeneousPropertyInfo), '("column-spacing", GridColumnSpacingPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-homogeneous", GridRowHomogeneousPropertyInfo), '("row-spacing", GridRowSpacingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)])
type instance SignalList Grid = GridSignalList
type GridSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method Grid::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "Grid"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_new" gtk_grid_new ::
IO (Ptr Grid)
gridNew ::
(MonadIO m) =>
m Grid
gridNew = liftIO $ do
result <- gtk_grid_new
checkUnexpectedReturnNULL "gtk_grid_new" result
result' <- (newObject Grid) result
return result'
-- method Grid::attach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_attach" gtk_grid_attach ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Int32 -> -- left : TBasicType TInt32
Int32 -> -- top : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
gridAttach ::
(MonadIO m, GridK a, WidgetK b) =>
a -> -- _obj
b -> -- child
Int32 -> -- left
Int32 -> -- top
Int32 -> -- width
Int32 -> -- height
m ()
gridAttach _obj child left top width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
gtk_grid_attach _obj' child' left top width height
touchManagedPtr _obj
touchManagedPtr child
return ()
-- method Grid::attach_next_to
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_attach_next_to" gtk_grid_attach_next_to ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Ptr Widget -> -- child : TInterface "Gtk" "Widget"
Ptr Widget -> -- sibling : TInterface "Gtk" "Widget"
CUInt -> -- side : TInterface "Gtk" "PositionType"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
gridAttachNextTo ::
(MonadIO m, GridK a, WidgetK b, WidgetK c) =>
a -> -- _obj
b -> -- child
Maybe (c) -> -- sibling
PositionType -> -- side
Int32 -> -- width
Int32 -> -- height
m ()
gridAttachNextTo _obj child sibling side width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let child' = unsafeManagedPtrCastPtr child
maybeSibling <- case sibling of
Nothing -> return nullPtr
Just jSibling -> do
let jSibling' = unsafeManagedPtrCastPtr jSibling
return jSibling'
let side' = (fromIntegral . fromEnum) side
gtk_grid_attach_next_to _obj' child' maybeSibling side' width height
touchManagedPtr _obj
touchManagedPtr child
whenJust sibling touchManagedPtr
return ()
-- method Grid::get_baseline_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_get_baseline_row" gtk_grid_get_baseline_row ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
IO Int32
gridGetBaselineRow ::
(MonadIO m, GridK a) =>
a -> -- _obj
m Int32
gridGetBaselineRow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_grid_get_baseline_row _obj'
touchManagedPtr _obj
return result
-- method Grid::get_child_at
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_get_child_at" gtk_grid_get_child_at ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- left : TBasicType TInt32
Int32 -> -- top : TBasicType TInt32
IO (Ptr Widget)
gridGetChildAt ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- left
Int32 -> -- top
m Widget
gridGetChildAt _obj left top = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_grid_get_child_at _obj' left top
checkUnexpectedReturnNULL "gtk_grid_get_child_at" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method Grid::get_column_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_get_column_homogeneous" gtk_grid_get_column_homogeneous ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
IO CInt
gridGetColumnHomogeneous ::
(MonadIO m, GridK a) =>
a -> -- _obj
m Bool
gridGetColumnHomogeneous _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_grid_get_column_homogeneous _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Grid::get_column_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_get_column_spacing" gtk_grid_get_column_spacing ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
IO Word32
gridGetColumnSpacing ::
(MonadIO m, GridK a) =>
a -> -- _obj
m Word32
gridGetColumnSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_grid_get_column_spacing _obj'
touchManagedPtr _obj
return result
-- method Grid::get_row_baseline_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "BaselinePosition"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_get_row_baseline_position" gtk_grid_get_row_baseline_position ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- row : TBasicType TInt32
IO CUInt
gridGetRowBaselinePosition ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- row
m BaselinePosition
gridGetRowBaselinePosition _obj row = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_grid_get_row_baseline_position _obj' row
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Grid::get_row_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_get_row_homogeneous" gtk_grid_get_row_homogeneous ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
IO CInt
gridGetRowHomogeneous ::
(MonadIO m, GridK a) =>
a -> -- _obj
m Bool
gridGetRowHomogeneous _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_grid_get_row_homogeneous _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Grid::get_row_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_get_row_spacing" gtk_grid_get_row_spacing ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
IO Word32
gridGetRowSpacing ::
(MonadIO m, GridK a) =>
a -> -- _obj
m Word32
gridGetRowSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_grid_get_row_spacing _obj'
touchManagedPtr _obj
return result
-- method Grid::insert_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_insert_column" gtk_grid_insert_column ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- position : TBasicType TInt32
IO ()
gridInsertColumn ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- position
m ()
gridInsertColumn _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grid_insert_column _obj' position
touchManagedPtr _obj
return ()
-- method Grid::insert_next_to
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_insert_next_to" gtk_grid_insert_next_to ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Ptr Widget -> -- sibling : TInterface "Gtk" "Widget"
CUInt -> -- side : TInterface "Gtk" "PositionType"
IO ()
gridInsertNextTo ::
(MonadIO m, GridK a, WidgetK b) =>
a -> -- _obj
b -> -- sibling
PositionType -> -- side
m ()
gridInsertNextTo _obj sibling side = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let sibling' = unsafeManagedPtrCastPtr sibling
let side' = (fromIntegral . fromEnum) side
gtk_grid_insert_next_to _obj' sibling' side'
touchManagedPtr _obj
touchManagedPtr sibling
return ()
-- method Grid::insert_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_insert_row" gtk_grid_insert_row ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- position : TBasicType TInt32
IO ()
gridInsertRow ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- position
m ()
gridInsertRow _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grid_insert_row _obj' position
touchManagedPtr _obj
return ()
-- method Grid::remove_column
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_remove_column" gtk_grid_remove_column ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- position : TBasicType TInt32
IO ()
gridRemoveColumn ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- position
m ()
gridRemoveColumn _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grid_remove_column _obj' position
touchManagedPtr _obj
return ()
-- method Grid::remove_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_remove_row" gtk_grid_remove_row ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- position : TBasicType TInt32
IO ()
gridRemoveRow ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- position
m ()
gridRemoveRow _obj position = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grid_remove_row _obj' position
touchManagedPtr _obj
return ()
-- method Grid::set_baseline_row
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_set_baseline_row" gtk_grid_set_baseline_row ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- row : TBasicType TInt32
IO ()
gridSetBaselineRow ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- row
m ()
gridSetBaselineRow _obj row = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grid_set_baseline_row _obj' row
touchManagedPtr _obj
return ()
-- method Grid::set_column_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_set_column_homogeneous" gtk_grid_set_column_homogeneous ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
CInt -> -- homogeneous : TBasicType TBoolean
IO ()
gridSetColumnHomogeneous ::
(MonadIO m, GridK a) =>
a -> -- _obj
Bool -> -- homogeneous
m ()
gridSetColumnHomogeneous _obj homogeneous = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let homogeneous' = (fromIntegral . fromEnum) homogeneous
gtk_grid_set_column_homogeneous _obj' homogeneous'
touchManagedPtr _obj
return ()
-- method Grid::set_column_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_set_column_spacing" gtk_grid_set_column_spacing ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Word32 -> -- spacing : TBasicType TUInt32
IO ()
gridSetColumnSpacing ::
(MonadIO m, GridK a) =>
a -> -- _obj
Word32 -> -- spacing
m ()
gridSetColumnSpacing _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grid_set_column_spacing _obj' spacing
touchManagedPtr _obj
return ()
-- method Grid::set_row_baseline_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_set_row_baseline_position" gtk_grid_set_row_baseline_position ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Int32 -> -- row : TBasicType TInt32
CUInt -> -- pos : TInterface "Gtk" "BaselinePosition"
IO ()
gridSetRowBaselinePosition ::
(MonadIO m, GridK a) =>
a -> -- _obj
Int32 -> -- row
BaselinePosition -> -- pos
m ()
gridSetRowBaselinePosition _obj row pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pos' = (fromIntegral . fromEnum) pos
gtk_grid_set_row_baseline_position _obj' row pos'
touchManagedPtr _obj
return ()
-- method Grid::set_row_homogeneous
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_set_row_homogeneous" gtk_grid_set_row_homogeneous ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
CInt -> -- homogeneous : TBasicType TBoolean
IO ()
gridSetRowHomogeneous ::
(MonadIO m, GridK a) =>
a -> -- _obj
Bool -> -- homogeneous
m ()
gridSetRowHomogeneous _obj homogeneous = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let homogeneous' = (fromIntegral . fromEnum) homogeneous
gtk_grid_set_row_homogeneous _obj' homogeneous'
touchManagedPtr _obj
return ()
-- method Grid::set_row_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_grid_set_row_spacing" gtk_grid_set_row_spacing ::
Ptr Grid -> -- _obj : TInterface "Gtk" "Grid"
Word32 -> -- spacing : TBasicType TUInt32
IO ()
gridSetRowSpacing ::
(MonadIO m, GridK a) =>
a -> -- _obj
Word32 -> -- spacing
m ()
gridSetRowSpacing _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_grid_set_row_spacing _obj' spacing
touchManagedPtr _obj
return ()