{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Grid
(
Grid(..) ,
IsGrid ,
toGrid ,
noGrid ,
#if defined(ENABLE_OVERLOADING)
ResolveGridMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
GridAttachMethodInfo ,
#endif
gridAttach ,
#if defined(ENABLE_OVERLOADING)
GridAttachNextToMethodInfo ,
#endif
gridAttachNextTo ,
#if defined(ENABLE_OVERLOADING)
GridGetBaselineRowMethodInfo ,
#endif
gridGetBaselineRow ,
#if defined(ENABLE_OVERLOADING)
GridGetChildAtMethodInfo ,
#endif
gridGetChildAt ,
#if defined(ENABLE_OVERLOADING)
GridGetColumnHomogeneousMethodInfo ,
#endif
gridGetColumnHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridGetColumnSpacingMethodInfo ,
#endif
gridGetColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
GridGetRowBaselinePositionMethodInfo ,
#endif
gridGetRowBaselinePosition ,
#if defined(ENABLE_OVERLOADING)
GridGetRowHomogeneousMethodInfo ,
#endif
gridGetRowHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridGetRowSpacingMethodInfo ,
#endif
gridGetRowSpacing ,
#if defined(ENABLE_OVERLOADING)
GridInsertColumnMethodInfo ,
#endif
gridInsertColumn ,
#if defined(ENABLE_OVERLOADING)
GridInsertNextToMethodInfo ,
#endif
gridInsertNextTo ,
#if defined(ENABLE_OVERLOADING)
GridInsertRowMethodInfo ,
#endif
gridInsertRow ,
gridNew ,
#if defined(ENABLE_OVERLOADING)
GridQueryChildMethodInfo ,
#endif
gridQueryChild ,
#if defined(ENABLE_OVERLOADING)
GridRemoveColumnMethodInfo ,
#endif
gridRemoveColumn ,
#if defined(ENABLE_OVERLOADING)
GridRemoveRowMethodInfo ,
#endif
gridRemoveRow ,
#if defined(ENABLE_OVERLOADING)
GridSetBaselineRowMethodInfo ,
#endif
gridSetBaselineRow ,
#if defined(ENABLE_OVERLOADING)
GridSetColumnHomogeneousMethodInfo ,
#endif
gridSetColumnHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridSetColumnSpacingMethodInfo ,
#endif
gridSetColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
GridSetRowBaselinePositionMethodInfo ,
#endif
gridSetRowBaselinePosition ,
#if defined(ENABLE_OVERLOADING)
GridSetRowHomogeneousMethodInfo ,
#endif
gridSetRowHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridSetRowSpacingMethodInfo ,
#endif
gridSetRowSpacing ,
#if defined(ENABLE_OVERLOADING)
GridBaselineRowPropertyInfo ,
#endif
constructGridBaselineRow ,
getGridBaselineRow ,
#if defined(ENABLE_OVERLOADING)
gridBaselineRow ,
#endif
setGridBaselineRow ,
#if defined(ENABLE_OVERLOADING)
GridColumnHomogeneousPropertyInfo ,
#endif
constructGridColumnHomogeneous ,
getGridColumnHomogeneous ,
#if defined(ENABLE_OVERLOADING)
gridColumnHomogeneous ,
#endif
setGridColumnHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridColumnSpacingPropertyInfo ,
#endif
constructGridColumnSpacing ,
getGridColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
gridColumnSpacing ,
#endif
setGridColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
GridRowHomogeneousPropertyInfo ,
#endif
constructGridRowHomogeneous ,
getGridRowHomogeneous ,
#if defined(ENABLE_OVERLOADING)
gridRowHomogeneous ,
#endif
setGridRowHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridRowSpacingPropertyInfo ,
#endif
constructGridRowSpacing ,
getGridRowSpacing ,
#if defined(ENABLE_OVERLOADING)
gridRowSpacing ,
#endif
setGridRowSpacing ,
) 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.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Grid = Grid (ManagedPtr Grid)
deriving (Grid -> Grid -> Bool
(Grid -> Grid -> Bool) -> (Grid -> Grid -> Bool) -> Eq Grid
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Grid -> Grid -> Bool
$c/= :: Grid -> Grid -> Bool
== :: Grid -> Grid -> Bool
$c== :: Grid -> Grid -> Bool
Eq)
foreign import ccall "gtk_grid_get_type"
c_gtk_grid_get_type :: IO GType
instance GObject Grid where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_grid_get_type
instance B.GValue.IsGValue Grid where
toGValue :: Grid -> IO GValue
toGValue o :: Grid
o = do
GType
gtype <- IO GType
c_gtk_grid_get_type
Grid -> (Ptr Grid -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Grid
o (GType -> (GValue -> Ptr Grid -> IO ()) -> Ptr Grid -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Grid -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Grid
fromGValue gv :: GValue
gv = do
Ptr Grid
ptr <- GValue -> IO (Ptr Grid)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Grid)
(ManagedPtr Grid -> Grid) -> Ptr Grid -> IO Grid
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Grid -> Grid
Grid Ptr Grid
ptr
class (GObject o, O.IsDescendantOf Grid o) => IsGrid o
instance (GObject o, O.IsDescendantOf Grid o) => IsGrid o
instance O.HasParentTypes Grid
type instance O.ParentTypes Grid = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.Orientable.Orientable]
toGrid :: (MonadIO m, IsGrid o) => o -> m Grid
toGrid :: o -> m Grid
toGrid = IO Grid -> m Grid
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Grid -> m Grid) -> (o -> IO Grid) -> o -> m Grid
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Grid -> Grid) -> o -> IO Grid
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Grid -> Grid
Grid
noGrid :: Maybe Grid
noGrid :: Maybe Grid
noGrid = Maybe Grid
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveGridMethod (t :: Symbol) (o :: *) :: * where
ResolveGridMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveGridMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveGridMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveGridMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveGridMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveGridMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveGridMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveGridMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveGridMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveGridMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveGridMethod "attach" o = GridAttachMethodInfo
ResolveGridMethod "attachNextTo" o = GridAttachNextToMethodInfo
ResolveGridMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveGridMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveGridMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveGridMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveGridMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveGridMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveGridMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveGridMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveGridMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveGridMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveGridMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveGridMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveGridMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveGridMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveGridMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveGridMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveGridMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveGridMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveGridMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveGridMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveGridMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveGridMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveGridMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveGridMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveGridMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveGridMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveGridMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveGridMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveGridMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveGridMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveGridMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveGridMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveGridMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveGridMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveGridMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveGridMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveGridMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveGridMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveGridMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveGridMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveGridMethod "dragSourceSetIconPaintable" o = Gtk.Widget.WidgetDragSourceSetIconPaintableMethodInfo
ResolveGridMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveGridMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveGridMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveGridMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveGridMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveGridMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveGridMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveGridMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveGridMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveGridMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveGridMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveGridMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveGridMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveGridMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveGridMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveGridMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveGridMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveGridMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveGridMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveGridMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveGridMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveGridMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveGridMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveGridMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveGridMethod "insertColumn" o = GridInsertColumnMethodInfo
ResolveGridMethod "insertNextTo" o = GridInsertNextToMethodInfo
ResolveGridMethod "insertRow" o = GridInsertRowMethodInfo
ResolveGridMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveGridMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveGridMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveGridMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveGridMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveGridMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveGridMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveGridMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveGridMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveGridMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveGridMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveGridMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveGridMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveGridMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveGridMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveGridMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveGridMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveGridMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveGridMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveGridMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveGridMethod "queryChild" o = GridQueryChildMethodInfo
ResolveGridMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveGridMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveGridMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveGridMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveGridMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveGridMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveGridMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveGridMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveGridMethod "registerSurface" o = Gtk.Widget.WidgetRegisterSurfaceMethodInfo
ResolveGridMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveGridMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveGridMethod "removeColumn" o = GridRemoveColumnMethodInfo
ResolveGridMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveGridMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveGridMethod "removeRow" o = GridRemoveRowMethodInfo
ResolveGridMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveGridMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveGridMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveGridMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveGridMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveGridMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveGridMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveGridMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveGridMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveGridMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveGridMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveGridMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveGridMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveGridMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveGridMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveGridMethod "unregisterSurface" o = Gtk.Widget.WidgetUnregisterSurfaceMethodInfo
ResolveGridMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveGridMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveGridMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveGridMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveGridMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveGridMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveGridMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveGridMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveGridMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveGridMethod "getBaselineRow" o = GridGetBaselineRowMethodInfo
ResolveGridMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveGridMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveGridMethod "getChildAt" o = GridGetChildAtMethodInfo
ResolveGridMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveGridMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveGridMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveGridMethod "getColumnHomogeneous" o = GridGetColumnHomogeneousMethodInfo
ResolveGridMethod "getColumnSpacing" o = GridGetColumnSpacingMethodInfo
ResolveGridMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveGridMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveGridMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveGridMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveGridMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveGridMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveGridMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveGridMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveGridMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveGridMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveGridMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveGridMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveGridMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveGridMethod "getHasSurface" o = Gtk.Widget.WidgetGetHasSurfaceMethodInfo
ResolveGridMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveGridMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveGridMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveGridMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveGridMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveGridMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveGridMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveGridMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveGridMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveGridMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveGridMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveGridMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveGridMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveGridMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveGridMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveGridMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveGridMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveGridMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveGridMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveGridMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveGridMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveGridMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveGridMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveGridMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveGridMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveGridMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveGridMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveGridMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveGridMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveGridMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveGridMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveGridMethod "getRowBaselinePosition" o = GridGetRowBaselinePositionMethodInfo
ResolveGridMethod "getRowHomogeneous" o = GridGetRowHomogeneousMethodInfo
ResolveGridMethod "getRowSpacing" o = GridGetRowSpacingMethodInfo
ResolveGridMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveGridMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveGridMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveGridMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveGridMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveGridMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveGridMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveGridMethod "getSurface" o = Gtk.Widget.WidgetGetSurfaceMethodInfo
ResolveGridMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveGridMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveGridMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveGridMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveGridMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveGridMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveGridMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveGridMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveGridMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveGridMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveGridMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveGridMethod "setBaselineRow" o = GridSetBaselineRowMethodInfo
ResolveGridMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveGridMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveGridMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveGridMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveGridMethod "setColumnHomogeneous" o = GridSetColumnHomogeneousMethodInfo
ResolveGridMethod "setColumnSpacing" o = GridSetColumnSpacingMethodInfo
ResolveGridMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveGridMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveGridMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveGridMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveGridMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveGridMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveGridMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveGridMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveGridMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveGridMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveGridMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveGridMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveGridMethod "setHasSurface" o = Gtk.Widget.WidgetSetHasSurfaceMethodInfo
ResolveGridMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveGridMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveGridMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveGridMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveGridMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveGridMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveGridMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveGridMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveGridMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveGridMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveGridMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveGridMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveGridMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveGridMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveGridMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveGridMethod "setRowBaselinePosition" o = GridSetRowBaselinePositionMethodInfo
ResolveGridMethod "setRowHomogeneous" o = GridSetRowHomogeneousMethodInfo
ResolveGridMethod "setRowSpacing" o = GridSetRowSpacingMethodInfo
ResolveGridMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveGridMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveGridMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveGridMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveGridMethod "setSurface" o = Gtk.Widget.WidgetSetSurfaceMethodInfo
ResolveGridMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveGridMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveGridMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveGridMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveGridMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveGridMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveGridMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveGridMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveGridMethod t Grid, O.MethodInfo info Grid p) => OL.IsLabel t (Grid -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getGridBaselineRow :: (MonadIO m, IsGrid o) => o -> m Int32
getGridBaselineRow :: o -> m Int32
getGridBaselineRow 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"
setGridBaselineRow :: (MonadIO m, IsGrid o) => o -> Int32 -> m ()
setGridBaselineRow :: o -> Int32 -> m ()
setGridBaselineRow 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
constructGridBaselineRow :: (IsGrid o) => Int32 -> IO (GValueConstruct o)
constructGridBaselineRow :: Int32 -> IO (GValueConstruct o)
constructGridBaselineRow 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 GridBaselineRowPropertyInfo
instance AttrInfo GridBaselineRowPropertyInfo where
type AttrAllowedOps GridBaselineRowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridBaselineRowPropertyInfo = IsGrid
type AttrSetTypeConstraint GridBaselineRowPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GridBaselineRowPropertyInfo = (~) Int32
type AttrTransferType GridBaselineRowPropertyInfo = Int32
type AttrGetType GridBaselineRowPropertyInfo = Int32
type AttrLabel GridBaselineRowPropertyInfo = "baseline-row"
type AttrOrigin GridBaselineRowPropertyInfo = Grid
attrGet = getGridBaselineRow
attrSet = setGridBaselineRow
attrTransfer _ v = do
return v
attrConstruct = constructGridBaselineRow
attrClear = undefined
#endif
getGridColumnHomogeneous :: (MonadIO m, IsGrid o) => o -> m Bool
getGridColumnHomogeneous :: o -> m Bool
getGridColumnHomogeneous 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"
setGridColumnHomogeneous :: (MonadIO m, IsGrid o) => o -> Bool -> m ()
setGridColumnHomogeneous :: o -> Bool -> m ()
setGridColumnHomogeneous 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
constructGridColumnHomogeneous :: (IsGrid o) => Bool -> IO (GValueConstruct o)
constructGridColumnHomogeneous :: Bool -> IO (GValueConstruct o)
constructGridColumnHomogeneous 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 GridColumnHomogeneousPropertyInfo
instance AttrInfo GridColumnHomogeneousPropertyInfo where
type AttrAllowedOps GridColumnHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridColumnHomogeneousPropertyInfo = IsGrid
type AttrSetTypeConstraint GridColumnHomogeneousPropertyInfo = (~) Bool
type AttrTransferTypeConstraint GridColumnHomogeneousPropertyInfo = (~) Bool
type AttrTransferType GridColumnHomogeneousPropertyInfo = Bool
type AttrGetType GridColumnHomogeneousPropertyInfo = Bool
type AttrLabel GridColumnHomogeneousPropertyInfo = "column-homogeneous"
type AttrOrigin GridColumnHomogeneousPropertyInfo = Grid
attrGet = getGridColumnHomogeneous
attrSet = setGridColumnHomogeneous
attrTransfer _ v = do
return v
attrConstruct = constructGridColumnHomogeneous
attrClear = undefined
#endif
getGridColumnSpacing :: (MonadIO m, IsGrid o) => o -> m Int32
getGridColumnSpacing :: o -> m Int32
getGridColumnSpacing 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"
setGridColumnSpacing :: (MonadIO m, IsGrid o) => o -> Int32 -> m ()
setGridColumnSpacing :: o -> Int32 -> m ()
setGridColumnSpacing 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
constructGridColumnSpacing :: (IsGrid o) => Int32 -> IO (GValueConstruct o)
constructGridColumnSpacing :: Int32 -> IO (GValueConstruct o)
constructGridColumnSpacing 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 GridColumnSpacingPropertyInfo
instance AttrInfo GridColumnSpacingPropertyInfo where
type AttrAllowedOps GridColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridColumnSpacingPropertyInfo = IsGrid
type AttrSetTypeConstraint GridColumnSpacingPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GridColumnSpacingPropertyInfo = (~) Int32
type AttrTransferType GridColumnSpacingPropertyInfo = Int32
type AttrGetType GridColumnSpacingPropertyInfo = Int32
type AttrLabel GridColumnSpacingPropertyInfo = "column-spacing"
type AttrOrigin GridColumnSpacingPropertyInfo = Grid
attrGet = getGridColumnSpacing
attrSet = setGridColumnSpacing
attrTransfer _ v = do
return v
attrConstruct = constructGridColumnSpacing
attrClear = undefined
#endif
getGridRowHomogeneous :: (MonadIO m, IsGrid o) => o -> m Bool
getGridRowHomogeneous :: o -> m Bool
getGridRowHomogeneous 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"
setGridRowHomogeneous :: (MonadIO m, IsGrid o) => o -> Bool -> m ()
setGridRowHomogeneous :: o -> Bool -> m ()
setGridRowHomogeneous 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
constructGridRowHomogeneous :: (IsGrid o) => Bool -> IO (GValueConstruct o)
constructGridRowHomogeneous :: Bool -> IO (GValueConstruct o)
constructGridRowHomogeneous 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 GridRowHomogeneousPropertyInfo
instance AttrInfo GridRowHomogeneousPropertyInfo where
type AttrAllowedOps GridRowHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridRowHomogeneousPropertyInfo = IsGrid
type AttrSetTypeConstraint GridRowHomogeneousPropertyInfo = (~) Bool
type AttrTransferTypeConstraint GridRowHomogeneousPropertyInfo = (~) Bool
type AttrTransferType GridRowHomogeneousPropertyInfo = Bool
type AttrGetType GridRowHomogeneousPropertyInfo = Bool
type AttrLabel GridRowHomogeneousPropertyInfo = "row-homogeneous"
type AttrOrigin GridRowHomogeneousPropertyInfo = Grid
attrGet = getGridRowHomogeneous
attrSet = setGridRowHomogeneous
attrTransfer _ v = do
return v
attrConstruct = constructGridRowHomogeneous
attrClear = undefined
#endif
getGridRowSpacing :: (MonadIO m, IsGrid o) => o -> m Int32
getGridRowSpacing :: o -> m Int32
getGridRowSpacing 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"
setGridRowSpacing :: (MonadIO m, IsGrid o) => o -> Int32 -> m ()
setGridRowSpacing :: o -> Int32 -> m ()
setGridRowSpacing 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
constructGridRowSpacing :: (IsGrid o) => Int32 -> IO (GValueConstruct o)
constructGridRowSpacing :: Int32 -> IO (GValueConstruct o)
constructGridRowSpacing 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 GridRowSpacingPropertyInfo
instance AttrInfo GridRowSpacingPropertyInfo where
type AttrAllowedOps GridRowSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridRowSpacingPropertyInfo = IsGrid
type AttrSetTypeConstraint GridRowSpacingPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GridRowSpacingPropertyInfo = (~) Int32
type AttrTransferType GridRowSpacingPropertyInfo = Int32
type AttrGetType GridRowSpacingPropertyInfo = Int32
type AttrLabel GridRowSpacingPropertyInfo = "row-spacing"
type AttrOrigin GridRowSpacingPropertyInfo = Grid
attrGet = getGridRowSpacing
attrSet = setGridRowSpacing
attrTransfer _ v = do
return v
attrConstruct = constructGridRowSpacing
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Grid
type instance O.AttributeList Grid = GridAttributeList
type GridAttributeList = ('[ '("baselineRow", GridBaselineRowPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("columnHomogeneous", GridColumnHomogeneousPropertyInfo), '("columnSpacing", GridColumnSpacingPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("rowHomogeneous", GridRowHomogeneousPropertyInfo), '("rowSpacing", GridRowSpacingPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("surface", Gtk.Widget.WidgetSurfacePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
gridBaselineRow :: AttrLabelProxy "baselineRow"
gridBaselineRow = AttrLabelProxy
gridColumnHomogeneous :: AttrLabelProxy "columnHomogeneous"
gridColumnHomogeneous = AttrLabelProxy
gridColumnSpacing :: AttrLabelProxy "columnSpacing"
gridColumnSpacing = AttrLabelProxy
gridRowHomogeneous :: AttrLabelProxy "rowHomogeneous"
gridRowHomogeneous = AttrLabelProxy
gridRowSpacing :: AttrLabelProxy "rowSpacing"
gridRowSpacing = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Grid = GridSignalList
type GridSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_grid_new" gtk_grid_new ::
IO (Ptr Grid)
gridNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Grid
gridNew :: m Grid
gridNew = IO Grid -> m Grid
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Grid -> m Grid) -> IO Grid -> m Grid
forall a b. (a -> b) -> a -> b
$ do
Ptr Grid
result <- IO (Ptr Grid)
gtk_grid_new
Text -> Ptr Grid -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "gridNew" Ptr Grid
result
Grid
result' <- ((ManagedPtr Grid -> Grid) -> Ptr Grid -> IO Grid
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Grid -> Grid
Grid) Ptr Grid
result
Grid -> IO Grid
forall (m :: * -> *) a. Monad m => a -> m a
return Grid
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_grid_attach" gtk_grid_attach ::
Ptr Grid ->
Ptr Gtk.Widget.Widget ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
IO ()
gridAttach ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Int32
-> Int32
-> Int32
-> Int32
-> m ()
gridAttach :: a -> b -> Int32 -> Int32 -> Int32 -> Int32 -> m ()
gridAttach grid :: a
grid child :: b
child left :: Int32
left top :: Int32
top width :: Int32
width height :: Int32
height = 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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Grid -> Ptr Widget -> Int32 -> Int32 -> Int32 -> Int32 -> IO ()
gtk_grid_attach Ptr Grid
grid' Ptr Widget
child' Int32
left Int32
top Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridAttachMethodInfo
instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, IsGrid a, Gtk.Widget.IsWidget b) => O.MethodInfo GridAttachMethodInfo a signature where
overloadedMethod = gridAttach
#endif
foreign import ccall "gtk_grid_attach_next_to" gtk_grid_attach_next_to ::
Ptr Grid ->
Ptr Gtk.Widget.Widget ->
Ptr Gtk.Widget.Widget ->
CUInt ->
Int32 ->
Int32 ->
IO ()
gridAttachNextTo ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) =>
a
-> b
-> Maybe (c)
-> Gtk.Enums.PositionType
-> Int32
-> Int32
-> m ()
gridAttachNextTo :: a -> b -> Maybe c -> PositionType -> Int32 -> Int32 -> m ()
gridAttachNextTo grid :: a
grid child :: b
child sibling :: Maybe c
sibling side :: PositionType
side width :: Int32
width height :: Int32
height = 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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Widget
maybeSibling <- case Maybe c
sibling of
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jSibling :: c
jSibling -> do
Ptr Widget
jSibling' <- c -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jSibling
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jSibling'
let side' :: CUInt
side' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (PositionType -> Int) -> PositionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PositionType -> Int
forall a. Enum a => a -> Int
fromEnum) PositionType
side
Ptr Grid
-> Ptr Widget -> Ptr Widget -> CUInt -> Int32 -> Int32 -> IO ()
gtk_grid_attach_next_to Ptr Grid
grid' Ptr Widget
child' Ptr Widget
maybeSibling CUInt
side' Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
sibling c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridAttachNextToMethodInfo
instance (signature ~ (b -> Maybe (c) -> Gtk.Enums.PositionType -> Int32 -> Int32 -> m ()), MonadIO m, IsGrid a, Gtk.Widget.IsWidget b, Gtk.Widget.IsWidget c) => O.MethodInfo GridAttachNextToMethodInfo a signature where
overloadedMethod = gridAttachNextTo
#endif
foreign import ccall "gtk_grid_get_baseline_row" gtk_grid_get_baseline_row ::
Ptr Grid ->
IO Int32
gridGetBaselineRow ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> m Int32
gridGetBaselineRow :: a -> m Int32
gridGetBaselineRow 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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Int32
result <- Ptr Grid -> IO Int32
gtk_grid_get_baseline_row Ptr Grid
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 GridGetBaselineRowMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsGrid a) => O.MethodInfo GridGetBaselineRowMethodInfo a signature where
overloadedMethod = gridGetBaselineRow
#endif
foreign import ccall "gtk_grid_get_child_at" gtk_grid_get_child_at ::
Ptr Grid ->
Int32 ->
Int32 ->
IO (Ptr Gtk.Widget.Widget)
gridGetChildAt ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> Int32
-> Int32
-> m (Maybe Gtk.Widget.Widget)
gridGetChildAt :: a -> Int32 -> Int32 -> m (Maybe Widget)
gridGetChildAt grid :: a
grid left :: Int32
left top :: Int32
top = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr Widget
result <- Ptr Grid -> Int32 -> Int32 -> IO (Ptr Widget)
gtk_grid_get_child_at Ptr Grid
grid' Int32
left Int32
top
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data GridGetChildAtMethodInfo
instance (signature ~ (Int32 -> Int32 -> m (Maybe Gtk.Widget.Widget)), MonadIO m, IsGrid a) => O.MethodInfo GridGetChildAtMethodInfo a signature where
overloadedMethod = gridGetChildAt
#endif
foreign import ccall "gtk_grid_get_column_homogeneous" gtk_grid_get_column_homogeneous ::
Ptr Grid ->
IO CInt
gridGetColumnHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> m Bool
gridGetColumnHomogeneous :: a -> m Bool
gridGetColumnHomogeneous 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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
CInt
result <- Ptr Grid -> IO CInt
gtk_grid_get_column_homogeneous Ptr Grid
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 GridGetColumnHomogeneousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGrid a) => O.MethodInfo GridGetColumnHomogeneousMethodInfo a signature where
overloadedMethod = gridGetColumnHomogeneous
#endif
foreign import ccall "gtk_grid_get_column_spacing" gtk_grid_get_column_spacing ::
Ptr Grid ->
IO Word32
gridGetColumnSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> m Word32
gridGetColumnSpacing :: a -> m Word32
gridGetColumnSpacing 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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Word32
result <- Ptr Grid -> IO Word32
gtk_grid_get_column_spacing Ptr Grid
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 GridGetColumnSpacingMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsGrid a) => O.MethodInfo GridGetColumnSpacingMethodInfo a signature where
overloadedMethod = gridGetColumnSpacing
#endif
foreign import ccall "gtk_grid_get_row_baseline_position" gtk_grid_get_row_baseline_position ::
Ptr Grid ->
Int32 ->
IO CUInt
gridGetRowBaselinePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> Int32
-> m Gtk.Enums.BaselinePosition
gridGetRowBaselinePosition :: a -> Int32 -> m BaselinePosition
gridGetRowBaselinePosition 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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
CUInt
result <- Ptr Grid -> Int32 -> IO CUInt
gtk_grid_get_row_baseline_position Ptr Grid
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 GridGetRowBaselinePositionMethodInfo
instance (signature ~ (Int32 -> m Gtk.Enums.BaselinePosition), MonadIO m, IsGrid a) => O.MethodInfo GridGetRowBaselinePositionMethodInfo a signature where
overloadedMethod = gridGetRowBaselinePosition
#endif
foreign import ccall "gtk_grid_get_row_homogeneous" gtk_grid_get_row_homogeneous ::
Ptr Grid ->
IO CInt
gridGetRowHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> m Bool
gridGetRowHomogeneous :: a -> m Bool
gridGetRowHomogeneous 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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
CInt
result <- Ptr Grid -> IO CInt
gtk_grid_get_row_homogeneous Ptr Grid
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 GridGetRowHomogeneousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGrid a) => O.MethodInfo GridGetRowHomogeneousMethodInfo a signature where
overloadedMethod = gridGetRowHomogeneous
#endif
foreign import ccall "gtk_grid_get_row_spacing" gtk_grid_get_row_spacing ::
Ptr Grid ->
IO Word32
gridGetRowSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> m Word32
gridGetRowSpacing :: a -> m Word32
gridGetRowSpacing 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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Word32
result <- Ptr Grid -> IO Word32
gtk_grid_get_row_spacing Ptr Grid
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 GridGetRowSpacingMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsGrid a) => O.MethodInfo GridGetRowSpacingMethodInfo a signature where
overloadedMethod = gridGetRowSpacing
#endif
foreign import ccall "gtk_grid_insert_column" gtk_grid_insert_column ::
Ptr Grid ->
Int32 ->
IO ()
gridInsertColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> Int32
-> m ()
gridInsertColumn :: a -> Int32 -> m ()
gridInsertColumn grid :: a
grid position :: Int32
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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr Grid -> Int32 -> IO ()
gtk_grid_insert_column Ptr Grid
grid' Int32
position
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 GridInsertColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGrid a) => O.MethodInfo GridInsertColumnMethodInfo a signature where
overloadedMethod = gridInsertColumn
#endif
foreign import ccall "gtk_grid_insert_next_to" gtk_grid_insert_next_to ::
Ptr Grid ->
Ptr Gtk.Widget.Widget ->
CUInt ->
IO ()
gridInsertNextTo ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Gtk.Enums.PositionType
-> m ()
gridInsertNextTo :: a -> b -> PositionType -> m ()
gridInsertNextTo grid :: a
grid sibling :: b
sibling side :: PositionType
side = 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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr Widget
sibling' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
sibling
let side' :: CUInt
side' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (PositionType -> Int) -> PositionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PositionType -> Int
forall a. Enum a => a -> Int
fromEnum) PositionType
side
Ptr Grid -> Ptr Widget -> CUInt -> IO ()
gtk_grid_insert_next_to Ptr Grid
grid' Ptr Widget
sibling' CUInt
side'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
sibling
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridInsertNextToMethodInfo
instance (signature ~ (b -> Gtk.Enums.PositionType -> m ()), MonadIO m, IsGrid a, Gtk.Widget.IsWidget b) => O.MethodInfo GridInsertNextToMethodInfo a signature where
overloadedMethod = gridInsertNextTo
#endif
foreign import ccall "gtk_grid_insert_row" gtk_grid_insert_row ::
Ptr Grid ->
Int32 ->
IO ()
gridInsertRow ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> Int32
-> m ()
gridInsertRow :: a -> Int32 -> m ()
gridInsertRow grid :: a
grid position :: Int32
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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr Grid -> Int32 -> IO ()
gtk_grid_insert_row Ptr Grid
grid' Int32
position
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 GridInsertRowMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGrid a) => O.MethodInfo GridInsertRowMethodInfo a signature where
overloadedMethod = gridInsertRow
#endif
foreign import ccall "gtk_grid_query_child" gtk_grid_query_child ::
Ptr Grid ->
Ptr Gtk.Widget.Widget ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
gridQueryChild ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ((Int32, Int32, Int32, Int32))
gridQueryChild :: a -> b -> m (Int32, Int32, Int32, Int32)
gridQueryChild grid :: a
grid child :: b
child = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32))
-> IO (Int32, Int32, Int32, Int32)
-> m (Int32, Int32, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Int32
left <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
top <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
width <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
height <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Grid
-> Ptr Widget
-> Ptr Int32
-> Ptr Int32
-> Ptr Int32
-> Ptr Int32
-> IO ()
gtk_grid_query_child Ptr Grid
grid' Ptr Widget
child' Ptr Int32
left Ptr Int32
top Ptr Int32
width Ptr Int32
height
Int32
left' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
left
Int32
top' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
top
Int32
width' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
width
Int32
height' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
left
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
top
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
width
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
height
(Int32, Int32, Int32, Int32) -> IO (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
left', Int32
top', Int32
width', Int32
height')
#if defined(ENABLE_OVERLOADING)
data GridQueryChildMethodInfo
instance (signature ~ (b -> m ((Int32, Int32, Int32, Int32))), MonadIO m, IsGrid a, Gtk.Widget.IsWidget b) => O.MethodInfo GridQueryChildMethodInfo a signature where
overloadedMethod = gridQueryChild
#endif
foreign import ccall "gtk_grid_remove_column" gtk_grid_remove_column ::
Ptr Grid ->
Int32 ->
IO ()
gridRemoveColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> Int32
-> m ()
gridRemoveColumn :: a -> Int32 -> m ()
gridRemoveColumn grid :: a
grid position :: Int32
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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr Grid -> Int32 -> IO ()
gtk_grid_remove_column Ptr Grid
grid' Int32
position
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 GridRemoveColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGrid a) => O.MethodInfo GridRemoveColumnMethodInfo a signature where
overloadedMethod = gridRemoveColumn
#endif
foreign import ccall "gtk_grid_remove_row" gtk_grid_remove_row ::
Ptr Grid ->
Int32 ->
IO ()
gridRemoveRow ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> Int32
-> m ()
gridRemoveRow :: a -> Int32 -> m ()
gridRemoveRow grid :: a
grid position :: Int32
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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr Grid -> Int32 -> IO ()
gtk_grid_remove_row Ptr Grid
grid' Int32
position
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 GridRemoveRowMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGrid a) => O.MethodInfo GridRemoveRowMethodInfo a signature where
overloadedMethod = gridRemoveRow
#endif
foreign import ccall "gtk_grid_set_baseline_row" gtk_grid_set_baseline_row ::
Ptr Grid ->
Int32 ->
IO ()
gridSetBaselineRow ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> Int32
-> m ()
gridSetBaselineRow :: a -> Int32 -> m ()
gridSetBaselineRow 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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr Grid -> Int32 -> IO ()
gtk_grid_set_baseline_row Ptr Grid
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 GridSetBaselineRowMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGrid a) => O.MethodInfo GridSetBaselineRowMethodInfo a signature where
overloadedMethod = gridSetBaselineRow
#endif
foreign import ccall "gtk_grid_set_column_homogeneous" gtk_grid_set_column_homogeneous ::
Ptr Grid ->
CInt ->
IO ()
gridSetColumnHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> Bool
-> m ()
gridSetColumnHomogeneous :: a -> Bool -> m ()
gridSetColumnHomogeneous 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 Grid
grid' <- a -> IO (Ptr Grid)
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 Grid -> CInt -> IO ()
gtk_grid_set_column_homogeneous Ptr Grid
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 GridSetColumnHomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGrid a) => O.MethodInfo GridSetColumnHomogeneousMethodInfo a signature where
overloadedMethod = gridSetColumnHomogeneous
#endif
foreign import ccall "gtk_grid_set_column_spacing" gtk_grid_set_column_spacing ::
Ptr Grid ->
Word32 ->
IO ()
gridSetColumnSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> Word32
-> m ()
gridSetColumnSpacing :: a -> Word32 -> m ()
gridSetColumnSpacing 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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr Grid -> Word32 -> IO ()
gtk_grid_set_column_spacing Ptr Grid
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 GridSetColumnSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsGrid a) => O.MethodInfo GridSetColumnSpacingMethodInfo a signature where
overloadedMethod = gridSetColumnSpacing
#endif
foreign import ccall "gtk_grid_set_row_baseline_position" gtk_grid_set_row_baseline_position ::
Ptr Grid ->
Int32 ->
CUInt ->
IO ()
gridSetRowBaselinePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> Int32
-> Gtk.Enums.BaselinePosition
-> m ()
gridSetRowBaselinePosition :: a -> Int32 -> BaselinePosition -> m ()
gridSetRowBaselinePosition 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 Grid
grid' <- a -> IO (Ptr Grid)
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 Grid -> Int32 -> CUInt -> IO ()
gtk_grid_set_row_baseline_position Ptr Grid
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 GridSetRowBaselinePositionMethodInfo
instance (signature ~ (Int32 -> Gtk.Enums.BaselinePosition -> m ()), MonadIO m, IsGrid a) => O.MethodInfo GridSetRowBaselinePositionMethodInfo a signature where
overloadedMethod = gridSetRowBaselinePosition
#endif
foreign import ccall "gtk_grid_set_row_homogeneous" gtk_grid_set_row_homogeneous ::
Ptr Grid ->
CInt ->
IO ()
gridSetRowHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> Bool
-> m ()
gridSetRowHomogeneous :: a -> Bool -> m ()
gridSetRowHomogeneous 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 Grid
grid' <- a -> IO (Ptr Grid)
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 Grid -> CInt -> IO ()
gtk_grid_set_row_homogeneous Ptr Grid
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 GridSetRowHomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGrid a) => O.MethodInfo GridSetRowHomogeneousMethodInfo a signature where
overloadedMethod = gridSetRowHomogeneous
#endif
foreign import ccall "gtk_grid_set_row_spacing" gtk_grid_set_row_spacing ::
Ptr Grid ->
Word32 ->
IO ()
gridSetRowSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a) =>
a
-> Word32
-> m ()
gridSetRowSpacing :: a -> Word32 -> m ()
gridSetRowSpacing 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 Grid
grid' <- a -> IO (Ptr Grid)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
grid
Ptr Grid -> Word32 -> IO ()
gtk_grid_set_row_spacing Ptr Grid
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 GridSetRowSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsGrid a) => O.MethodInfo GridSetRowSpacingMethodInfo a signature where
overloadedMethod = gridSetRowSpacing
#endif