{-# 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 ,
#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)
GridRemoveMethodInfo ,
#endif
gridRemove ,
#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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Grid = Grid (SP.ManagedPtr Grid)
deriving (Grid -> Grid -> Bool
(Grid -> Grid -> Bool) -> (Grid -> Grid -> Bool) -> Eq Grid
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Grid -> Grid -> Bool
== :: Grid -> Grid -> Bool
$c/= :: Grid -> Grid -> Bool
/= :: Grid -> Grid -> Bool
Eq)
instance SP.ManagedPtrNewtype Grid where
toManagedPtr :: Grid -> ManagedPtr Grid
toManagedPtr (Grid ManagedPtr Grid
p) = ManagedPtr Grid
p
foreign import ccall "gtk_grid_get_type"
c_gtk_grid_get_type :: IO B.Types.GType
instance B.Types.TypedObject Grid where
glibType :: IO GType
glibType = IO GType
c_gtk_grid_get_type
instance B.Types.GObject Grid
class (SP.GObject o, O.IsDescendantOf Grid o) => IsGrid o
instance (SP.GObject o, O.IsDescendantOf Grid o) => IsGrid o
instance O.HasParentTypes Grid
type instance O.ParentTypes Grid = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Orientable.Orientable]
toGrid :: (MIO.MonadIO m, IsGrid o) => o -> m Grid
toGrid :: forall (m :: * -> *) o. (MonadIO m, IsGrid o) => o -> m Grid
toGrid = IO Grid -> m Grid
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Grid -> Grid
Grid
instance B.GValue.IsGValue (Maybe Grid) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_grid_get_type
gvalueSet_ :: Ptr GValue -> Maybe Grid -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Grid
P.Nothing = Ptr GValue -> Ptr Grid -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Grid
forall a. Ptr a
FP.nullPtr :: FP.Ptr Grid)
gvalueSet_ Ptr GValue
gv (P.Just Grid
obj) = Grid -> (Ptr Grid -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Grid
obj (Ptr GValue -> Ptr Grid -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Grid)
gvalueGet_ Ptr GValue
gv = do
Ptr Grid
ptr <- Ptr GValue -> IO (Ptr Grid)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Grid)
if Ptr Grid
ptr Ptr Grid -> Ptr Grid -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Grid
forall a. Ptr a
FP.nullPtr
then Grid -> Maybe Grid
forall a. a -> Maybe a
P.Just (Grid -> Maybe Grid) -> IO Grid -> IO (Maybe Grid)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe Grid -> IO (Maybe Grid)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Grid
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveGridMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveGridMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveGridMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveGridMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveGridMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveGridMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveGridMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
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 "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
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 "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveGridMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveGridMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveGridMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveGridMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveGridMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveGridMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveGridMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveGridMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveGridMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveGridMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveGridMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveGridMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
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 "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 "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveGridMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
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 "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveGridMethod "queryChild" o = GridQueryChildMethodInfo
ResolveGridMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveGridMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveGridMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveGridMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveGridMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveGridMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveGridMethod "remove" o = GridRemoveMethodInfo
ResolveGridMethod "removeColumn" o = GridRemoveColumnMethodInfo
ResolveGridMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveGridMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveGridMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveGridMethod "removeRow" o = GridRemoveRowMethodInfo
ResolveGridMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveGridMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveGridMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveGridMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveGridMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveGridMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
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 "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveGridMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveGridMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveGridMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveGridMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveGridMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveGridMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveGridMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
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 "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveGridMethod "getBaselineRow" o = GridGetBaselineRowMethodInfo
ResolveGridMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveGridMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveGridMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveGridMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveGridMethod "getChildAt" o = GridGetChildAtMethodInfo
ResolveGridMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveGridMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveGridMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveGridMethod "getColumnHomogeneous" o = GridGetColumnHomogeneousMethodInfo
ResolveGridMethod "getColumnSpacing" o = GridGetColumnSpacingMethodInfo
ResolveGridMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveGridMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
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 "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveGridMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveGridMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveGridMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveGridMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
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 "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveGridMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveGridMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveGridMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
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 "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveGridMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveGridMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
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 "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
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 "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveGridMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveGridMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveGridMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveGridMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveGridMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveGridMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
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 "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveGridMethod "setBaselineRow" o = GridSetBaselineRowMethodInfo
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 "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
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 "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveGridMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveGridMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveGridMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveGridMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
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 "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveGridMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveGridMethod t Grid, O.OverloadedMethod info Grid p, R.HasField t Grid p) => R.HasField t Grid p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveGridMethod t Grid, O.OverloadedMethodInfo info Grid) => OL.IsLabel t (O.MethodProxy info Grid) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getGridBaselineRow :: (MonadIO m, IsGrid o) => o -> m Int32
getGridBaselineRow :: forall (m :: * -> *) o. (MonadIO m, IsGrid o) => o -> m Int32
getGridBaselineRow o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"baseline-row"
setGridBaselineRow :: (MonadIO m, IsGrid o) => o -> Int32 -> m ()
setGridBaselineRow :: forall (m :: * -> *) o. (MonadIO m, IsGrid o) => o -> Int32 -> m ()
setGridBaselineRow o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"baseline-row" Int32
val
constructGridBaselineRow :: (IsGrid o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructGridBaselineRow :: forall o (m :: * -> *).
(IsGrid o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructGridBaselineRow Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"baseline-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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.baselineRow"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#g:attr:baselineRow"
})
#endif
getGridColumnHomogeneous :: (MonadIO m, IsGrid o) => o -> m Bool
getGridColumnHomogeneous :: forall (m :: * -> *) o. (MonadIO m, IsGrid o) => o -> m Bool
getGridColumnHomogeneous o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"column-homogeneous"
setGridColumnHomogeneous :: (MonadIO m, IsGrid o) => o -> Bool -> m ()
setGridColumnHomogeneous :: forall (m :: * -> *) o. (MonadIO m, IsGrid o) => o -> Bool -> m ()
setGridColumnHomogeneous o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"column-homogeneous" Bool
val
constructGridColumnHomogeneous :: (IsGrid o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructGridColumnHomogeneous :: forall o (m :: * -> *).
(IsGrid o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructGridColumnHomogeneous Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.columnHomogeneous"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#g:attr:columnHomogeneous"
})
#endif
getGridColumnSpacing :: (MonadIO m, IsGrid o) => o -> m Int32
getGridColumnSpacing :: forall (m :: * -> *) o. (MonadIO m, IsGrid o) => o -> m Int32
getGridColumnSpacing o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"column-spacing"
setGridColumnSpacing :: (MonadIO m, IsGrid o) => o -> Int32 -> m ()
setGridColumnSpacing :: forall (m :: * -> *) o. (MonadIO m, IsGrid o) => o -> Int32 -> m ()
setGridColumnSpacing o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"column-spacing" Int32
val
constructGridColumnSpacing :: (IsGrid o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructGridColumnSpacing :: forall o (m :: * -> *).
(IsGrid o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructGridColumnSpacing Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.columnSpacing"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#g:attr:columnSpacing"
})
#endif
getGridRowHomogeneous :: (MonadIO m, IsGrid o) => o -> m Bool
getGridRowHomogeneous :: forall (m :: * -> *) o. (MonadIO m, IsGrid o) => o -> m Bool
getGridRowHomogeneous o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"row-homogeneous"
setGridRowHomogeneous :: (MonadIO m, IsGrid o) => o -> Bool -> m ()
setGridRowHomogeneous :: forall (m :: * -> *) o. (MonadIO m, IsGrid o) => o -> Bool -> m ()
setGridRowHomogeneous o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"row-homogeneous" Bool
val
constructGridRowHomogeneous :: (IsGrid o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructGridRowHomogeneous :: forall o (m :: * -> *).
(IsGrid o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructGridRowHomogeneous Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.rowHomogeneous"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#g:attr:rowHomogeneous"
})
#endif
getGridRowSpacing :: (MonadIO m, IsGrid o) => o -> m Int32
getGridRowSpacing :: forall (m :: * -> *) o. (MonadIO m, IsGrid o) => o -> m Int32
getGridRowSpacing o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"row-spacing"
setGridRowSpacing :: (MonadIO m, IsGrid o) => o -> Int32 -> m ()
setGridRowSpacing :: forall (m :: * -> *) o. (MonadIO m, IsGrid o) => o -> Int32 -> m ()
setGridRowSpacing o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"row-spacing" Int32
val
constructGridRowSpacing :: (IsGrid o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructGridRowSpacing :: forall o (m :: * -> *).
(IsGrid o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructGridRowSpacing Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.rowSpacing"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#g:attr:rowSpacing"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Grid
type instance O.AttributeList Grid = GridAttributeList
type GridAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("baselineRow", GridBaselineRowPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("columnHomogeneous", GridColumnHomogeneousPropertyInfo), '("columnSpacing", GridColumnSpacingPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("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), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("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), '("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, DK.Type)])
#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 = ('[ '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_grid_new" gtk_grid_new ::
IO (Ptr Grid)
gridNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Grid
gridNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Grid
gridNew = IO Grid -> m Grid
forall a. IO a -> m a
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 Text
"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 a. a -> IO a
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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsGrid a, IsWidget b) =>
a -> b -> Int32 -> Int32 -> Int32 -> Int32 -> m ()
gridAttach a
grid b
child Int32
column Int32
row Int32
width Int32
height = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
column Int32
row 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 a. a -> IO a
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.OverloadedMethod GridAttachMethodInfo a signature where
overloadedMethod = gridAttach
instance O.OverloadedMethodInfo GridAttachMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridAttach",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsGrid a, IsWidget b, IsWidget c) =>
a -> b -> Maybe c -> PositionType -> Int32 -> Int32 -> m ()
gridAttachNextTo a
grid b
child Maybe c
sibling PositionType
side Int32
width Int32
height = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Maybe c
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just 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 a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod GridAttachNextToMethodInfo a signature where
overloadedMethod = gridAttachNextTo
instance O.OverloadedMethodInfo GridAttachNextToMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridAttachNextTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> m Int32
gridGetBaselineRow a
grid = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod GridGetBaselineRowMethodInfo a signature where
overloadedMethod = gridGetBaselineRow
instance O.OverloadedMethodInfo GridGetBaselineRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridGetBaselineRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> Int32 -> Int32 -> m (Maybe Widget)
gridGetChildAt a
grid Int32
column Int32
row = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
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
column Int32
row
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
$ \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 a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod GridGetChildAtMethodInfo a signature where
overloadedMethod = gridGetChildAt
instance O.OverloadedMethodInfo GridGetChildAtMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridGetChildAt",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> m Bool
gridGetColumnHomogeneous a
grid = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod GridGetColumnHomogeneousMethodInfo a signature where
overloadedMethod = gridGetColumnHomogeneous
instance O.OverloadedMethodInfo GridGetColumnHomogeneousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridGetColumnHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> m Word32
gridGetColumnSpacing a
grid = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod GridGetColumnSpacingMethodInfo a signature where
overloadedMethod = gridGetColumnSpacing
instance O.OverloadedMethodInfo GridGetColumnSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridGetColumnSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> Int32 -> m BaselinePosition
gridGetRowBaselinePosition a
grid Int32
row = IO BaselinePosition -> m BaselinePosition
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO BaselinePosition -> m BaselinePosition)
-> IO BaselinePosition -> m BaselinePosition
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod GridGetRowBaselinePositionMethodInfo a signature where
overloadedMethod = gridGetRowBaselinePosition
instance O.OverloadedMethodInfo GridGetRowBaselinePositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridGetRowBaselinePosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> m Bool
gridGetRowHomogeneous a
grid = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
Bool -> IO Bool
forall a. a -> IO a
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.OverloadedMethod GridGetRowHomogeneousMethodInfo a signature where
overloadedMethod = gridGetRowHomogeneous
instance O.OverloadedMethodInfo GridGetRowHomogeneousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridGetRowHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> m Word32
gridGetRowSpacing a
grid = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod GridGetRowSpacingMethodInfo a signature where
overloadedMethod = gridGetRowSpacing
instance O.OverloadedMethodInfo GridGetRowSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridGetRowSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> Int32 -> m ()
gridInsertColumn a
grid Int32
position = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridInsertColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGrid a) => O.OverloadedMethod GridInsertColumnMethodInfo a signature where
overloadedMethod = gridInsertColumn
instance O.OverloadedMethodInfo GridInsertColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridInsertColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsGrid a, IsWidget b) =>
a -> b -> PositionType -> m ()
gridInsertNextTo a
grid b
sibling PositionType
side = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod GridInsertNextToMethodInfo a signature where
overloadedMethod = gridInsertNextTo
instance O.OverloadedMethodInfo GridInsertNextToMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridInsertNextTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> Int32 -> m ()
gridInsertRow a
grid Int32
position = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridInsertRowMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGrid a) => O.OverloadedMethod GridInsertRowMethodInfo a signature where
overloadedMethod = gridInsertRow
instance O.OverloadedMethodInfo GridInsertRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridInsertRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsGrid a, IsWidget b) =>
a -> b -> m (Int32, Int32, Int32, Int32)
gridQueryChild a
grid b
child = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
forall a. IO a -> m a
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
column <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
row <- 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
column Ptr Int32
row Ptr Int32
width Ptr Int32
height
Int32
column' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
column
Int32
row' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
row
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
column
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
row
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
column', Int32
row', 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.OverloadedMethod GridQueryChildMethodInfo a signature where
overloadedMethod = gridQueryChild
instance O.OverloadedMethodInfo GridQueryChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridQueryChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v:gridQueryChild"
})
#endif
foreign import ccall "gtk_grid_remove" gtk_grid_remove ::
Ptr Grid ->
Ptr Gtk.Widget.Widget ->
IO ()
gridRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsGrid a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
gridRemove :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsGrid a, IsWidget b) =>
a -> b -> m ()
gridRemove a
grid b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 -> IO ()
gtk_grid_remove Ptr Grid
grid' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
grid
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsGrid a, Gtk.Widget.IsWidget b) => O.OverloadedMethod GridRemoveMethodInfo a signature where
overloadedMethod = gridRemove
instance O.OverloadedMethodInfo GridRemoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridRemove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v:gridRemove"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> Int32 -> m ()
gridRemoveColumn a
grid Int32
position = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridRemoveColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGrid a) => O.OverloadedMethod GridRemoveColumnMethodInfo a signature where
overloadedMethod = gridRemoveColumn
instance O.OverloadedMethodInfo GridRemoveColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridRemoveColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> Int32 -> m ()
gridRemoveRow a
grid Int32
position = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridRemoveRowMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGrid a) => O.OverloadedMethod GridRemoveRowMethodInfo a signature where
overloadedMethod = gridRemoveRow
instance O.OverloadedMethodInfo GridRemoveRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridRemoveRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> Int32 -> m ()
gridSetBaselineRow a
grid Int32
row = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridSetBaselineRowMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGrid a) => O.OverloadedMethod GridSetBaselineRowMethodInfo a signature where
overloadedMethod = gridSetBaselineRow
instance O.OverloadedMethodInfo GridSetBaselineRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridSetBaselineRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> Bool -> m ()
gridSetColumnHomogeneous a
grid Bool
homogeneous = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
homogeneous
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridSetColumnHomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGrid a) => O.OverloadedMethod GridSetColumnHomogeneousMethodInfo a signature where
overloadedMethod = gridSetColumnHomogeneous
instance O.OverloadedMethodInfo GridSetColumnHomogeneousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridSetColumnHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> Word32 -> m ()
gridSetColumnSpacing a
grid Word32
spacing = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridSetColumnSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsGrid a) => O.OverloadedMethod GridSetColumnSpacingMethodInfo a signature where
overloadedMethod = gridSetColumnSpacing
instance O.OverloadedMethodInfo GridSetColumnSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridSetColumnSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> Int32 -> BaselinePosition -> m ()
gridSetRowBaselinePosition a
grid Int32
row BaselinePosition
pos = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod GridSetRowBaselinePositionMethodInfo a signature where
overloadedMethod = gridSetRowBaselinePosition
instance O.OverloadedMethodInfo GridSetRowBaselinePositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridSetRowBaselinePosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> Bool -> m ()
gridSetRowHomogeneous a
grid Bool
homogeneous = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
homogeneous
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridSetRowHomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGrid a) => O.OverloadedMethod GridSetRowHomogeneousMethodInfo a signature where
overloadedMethod = gridSetRowHomogeneous
instance O.OverloadedMethodInfo GridSetRowHomogeneousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridSetRowHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGrid a) =>
a -> Word32 -> m ()
gridSetRowSpacing a
grid Word32
spacing = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridSetRowSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsGrid a) => O.OverloadedMethod GridSetRowSpacingMethodInfo a signature where
overloadedMethod = gridSetRowSpacing
instance O.OverloadedMethodInfo GridSetRowSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Grid.gridSetRowSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Grid.html#v:gridSetRowSpacing"
})
#endif