{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.GridView
(
GridView(..) ,
IsGridView ,
toGridView ,
#if defined(ENABLE_OVERLOADING)
ResolveGridViewMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
GridViewGetEnableRubberbandMethodInfo ,
#endif
gridViewGetEnableRubberband ,
#if defined(ENABLE_OVERLOADING)
GridViewGetFactoryMethodInfo ,
#endif
gridViewGetFactory ,
#if defined(ENABLE_OVERLOADING)
GridViewGetMaxColumnsMethodInfo ,
#endif
gridViewGetMaxColumns ,
#if defined(ENABLE_OVERLOADING)
GridViewGetMinColumnsMethodInfo ,
#endif
gridViewGetMinColumns ,
#if defined(ENABLE_OVERLOADING)
GridViewGetModelMethodInfo ,
#endif
gridViewGetModel ,
#if defined(ENABLE_OVERLOADING)
GridViewGetSingleClickActivateMethodInfo,
#endif
gridViewGetSingleClickActivate ,
gridViewNew ,
#if defined(ENABLE_OVERLOADING)
GridViewSetEnableRubberbandMethodInfo ,
#endif
gridViewSetEnableRubberband ,
#if defined(ENABLE_OVERLOADING)
GridViewSetFactoryMethodInfo ,
#endif
gridViewSetFactory ,
#if defined(ENABLE_OVERLOADING)
GridViewSetMaxColumnsMethodInfo ,
#endif
gridViewSetMaxColumns ,
#if defined(ENABLE_OVERLOADING)
GridViewSetMinColumnsMethodInfo ,
#endif
gridViewSetMinColumns ,
#if defined(ENABLE_OVERLOADING)
GridViewSetModelMethodInfo ,
#endif
gridViewSetModel ,
#if defined(ENABLE_OVERLOADING)
GridViewSetSingleClickActivateMethodInfo,
#endif
gridViewSetSingleClickActivate ,
#if defined(ENABLE_OVERLOADING)
GridViewEnableRubberbandPropertyInfo ,
#endif
constructGridViewEnableRubberband ,
getGridViewEnableRubberband ,
#if defined(ENABLE_OVERLOADING)
gridViewEnableRubberband ,
#endif
setGridViewEnableRubberband ,
#if defined(ENABLE_OVERLOADING)
GridViewFactoryPropertyInfo ,
#endif
clearGridViewFactory ,
constructGridViewFactory ,
getGridViewFactory ,
#if defined(ENABLE_OVERLOADING)
gridViewFactory ,
#endif
setGridViewFactory ,
#if defined(ENABLE_OVERLOADING)
GridViewMaxColumnsPropertyInfo ,
#endif
constructGridViewMaxColumns ,
getGridViewMaxColumns ,
#if defined(ENABLE_OVERLOADING)
gridViewMaxColumns ,
#endif
setGridViewMaxColumns ,
#if defined(ENABLE_OVERLOADING)
GridViewMinColumnsPropertyInfo ,
#endif
constructGridViewMinColumns ,
getGridViewMinColumns ,
#if defined(ENABLE_OVERLOADING)
gridViewMinColumns ,
#endif
setGridViewMinColumns ,
#if defined(ENABLE_OVERLOADING)
GridViewModelPropertyInfo ,
#endif
clearGridViewModel ,
constructGridViewModel ,
getGridViewModel ,
#if defined(ENABLE_OVERLOADING)
gridViewModel ,
#endif
setGridViewModel ,
#if defined(ENABLE_OVERLOADING)
GridViewSingleClickActivatePropertyInfo ,
#endif
constructGridViewSingleClickActivate ,
getGridViewSingleClickActivate ,
#if defined(ENABLE_OVERLOADING)
gridViewSingleClickActivate ,
#endif
setGridViewSingleClickActivate ,
C_GridViewActivateCallback ,
GridViewActivateCallback ,
#if defined(ENABLE_OVERLOADING)
GridViewActivateSignalInfo ,
#endif
afterGridViewActivate ,
genClosure_GridViewActivate ,
mk_GridViewActivateCallback ,
noGridViewActivateCallback ,
onGridViewActivate ,
wrap_GridViewActivateCallback ,
) 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.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.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 GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
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.Interfaces.Scrollable as Gtk.Scrollable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.SelectionModel as Gtk.SelectionModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.ListBase as Gtk.ListBase
import {-# SOURCE #-} qualified GI.Gtk.Objects.ListItemFactory as Gtk.ListItemFactory
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype GridView = GridView (SP.ManagedPtr GridView)
deriving (GridView -> GridView -> Bool
(GridView -> GridView -> Bool)
-> (GridView -> GridView -> Bool) -> Eq GridView
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GridView -> GridView -> Bool
$c/= :: GridView -> GridView -> Bool
== :: GridView -> GridView -> Bool
$c== :: GridView -> GridView -> Bool
Eq)
instance SP.ManagedPtrNewtype GridView where
toManagedPtr :: GridView -> ManagedPtr GridView
toManagedPtr (GridView ManagedPtr GridView
p) = ManagedPtr GridView
p
foreign import ccall "gtk_grid_view_get_type"
c_gtk_grid_view_get_type :: IO B.Types.GType
instance B.Types.TypedObject GridView where
glibType :: IO GType
glibType = IO GType
c_gtk_grid_view_get_type
instance B.Types.GObject GridView
class (SP.GObject o, O.IsDescendantOf GridView o) => IsGridView o
instance (SP.GObject o, O.IsDescendantOf GridView o) => IsGridView o
instance O.HasParentTypes GridView
type instance O.ParentTypes GridView = '[Gtk.ListBase.ListBase, Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Orientable.Orientable, Gtk.Scrollable.Scrollable]
toGridView :: (MIO.MonadIO m, IsGridView o) => o -> m GridView
toGridView :: forall (m :: * -> *) o.
(MonadIO m, IsGridView o) =>
o -> m GridView
toGridView = IO GridView -> m GridView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO GridView -> m GridView)
-> (o -> IO GridView) -> o -> m GridView
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr GridView -> GridView) -> o -> IO GridView
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr GridView -> GridView
GridView
instance B.GValue.IsGValue (Maybe GridView) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_grid_view_get_type
gvalueSet_ :: Ptr GValue -> Maybe GridView -> IO ()
gvalueSet_ Ptr GValue
gv Maybe GridView
P.Nothing = Ptr GValue -> Ptr GridView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr GridView
forall a. Ptr a
FP.nullPtr :: FP.Ptr GridView)
gvalueSet_ Ptr GValue
gv (P.Just GridView
obj) = GridView -> (Ptr GridView -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr GridView
obj (Ptr GValue -> Ptr GridView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe GridView)
gvalueGet_ Ptr GValue
gv = do
Ptr GridView
ptr <- Ptr GValue -> IO (Ptr GridView)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr GridView)
if Ptr GridView
ptr Ptr GridView -> Ptr GridView -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr GridView
forall a. Ptr a
FP.nullPtr
then GridView -> Maybe GridView
forall a. a -> Maybe a
P.Just (GridView -> Maybe GridView) -> IO GridView -> IO (Maybe GridView)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr GridView -> GridView) -> Ptr GridView -> IO GridView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr GridView -> GridView
GridView Ptr GridView
ptr
else Maybe GridView -> IO (Maybe GridView)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GridView
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveGridViewMethod (t :: Symbol) (o :: *) :: * where
ResolveGridViewMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveGridViewMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveGridViewMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveGridViewMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveGridViewMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveGridViewMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveGridViewMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveGridViewMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveGridViewMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveGridViewMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveGridViewMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveGridViewMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveGridViewMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveGridViewMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveGridViewMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveGridViewMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveGridViewMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveGridViewMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveGridViewMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveGridViewMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveGridViewMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveGridViewMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveGridViewMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveGridViewMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveGridViewMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveGridViewMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveGridViewMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveGridViewMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveGridViewMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveGridViewMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveGridViewMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveGridViewMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveGridViewMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveGridViewMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveGridViewMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveGridViewMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveGridViewMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveGridViewMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveGridViewMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveGridViewMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveGridViewMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveGridViewMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveGridViewMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveGridViewMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveGridViewMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveGridViewMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveGridViewMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveGridViewMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveGridViewMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveGridViewMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveGridViewMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveGridViewMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveGridViewMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveGridViewMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveGridViewMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveGridViewMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveGridViewMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveGridViewMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveGridViewMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveGridViewMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveGridViewMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveGridViewMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveGridViewMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveGridViewMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveGridViewMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveGridViewMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveGridViewMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveGridViewMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveGridViewMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveGridViewMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveGridViewMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveGridViewMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveGridViewMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveGridViewMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveGridViewMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveGridViewMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveGridViewMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveGridViewMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveGridViewMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveGridViewMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveGridViewMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveGridViewMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveGridViewMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveGridViewMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveGridViewMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveGridViewMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveGridViewMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveGridViewMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveGridViewMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveGridViewMethod "getBorder" o = Gtk.Scrollable.ScrollableGetBorderMethodInfo
ResolveGridViewMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveGridViewMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveGridViewMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveGridViewMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveGridViewMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveGridViewMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveGridViewMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveGridViewMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveGridViewMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveGridViewMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveGridViewMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveGridViewMethod "getEnableRubberband" o = GridViewGetEnableRubberbandMethodInfo
ResolveGridViewMethod "getFactory" o = GridViewGetFactoryMethodInfo
ResolveGridViewMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveGridViewMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveGridViewMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveGridViewMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveGridViewMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveGridViewMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveGridViewMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveGridViewMethod "getHadjustment" o = Gtk.Scrollable.ScrollableGetHadjustmentMethodInfo
ResolveGridViewMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveGridViewMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveGridViewMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveGridViewMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveGridViewMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveGridViewMethod "getHscrollPolicy" o = Gtk.Scrollable.ScrollableGetHscrollPolicyMethodInfo
ResolveGridViewMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveGridViewMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveGridViewMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveGridViewMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveGridViewMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveGridViewMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveGridViewMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveGridViewMethod "getMaxColumns" o = GridViewGetMaxColumnsMethodInfo
ResolveGridViewMethod "getMinColumns" o = GridViewGetMinColumnsMethodInfo
ResolveGridViewMethod "getModel" o = GridViewGetModelMethodInfo
ResolveGridViewMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveGridViewMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveGridViewMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveGridViewMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveGridViewMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveGridViewMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveGridViewMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveGridViewMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveGridViewMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveGridViewMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveGridViewMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveGridViewMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveGridViewMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveGridViewMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveGridViewMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveGridViewMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveGridViewMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveGridViewMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveGridViewMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveGridViewMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveGridViewMethod "getSingleClickActivate" o = GridViewGetSingleClickActivateMethodInfo
ResolveGridViewMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveGridViewMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveGridViewMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveGridViewMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveGridViewMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveGridViewMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveGridViewMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveGridViewMethod "getVadjustment" o = Gtk.Scrollable.ScrollableGetVadjustmentMethodInfo
ResolveGridViewMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveGridViewMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveGridViewMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveGridViewMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveGridViewMethod "getVscrollPolicy" o = Gtk.Scrollable.ScrollableGetVscrollPolicyMethodInfo
ResolveGridViewMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveGridViewMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveGridViewMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveGridViewMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveGridViewMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveGridViewMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveGridViewMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveGridViewMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveGridViewMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveGridViewMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveGridViewMethod "setEnableRubberband" o = GridViewSetEnableRubberbandMethodInfo
ResolveGridViewMethod "setFactory" o = GridViewSetFactoryMethodInfo
ResolveGridViewMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveGridViewMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveGridViewMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveGridViewMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveGridViewMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveGridViewMethod "setHadjustment" o = Gtk.Scrollable.ScrollableSetHadjustmentMethodInfo
ResolveGridViewMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveGridViewMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveGridViewMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveGridViewMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveGridViewMethod "setHscrollPolicy" o = Gtk.Scrollable.ScrollableSetHscrollPolicyMethodInfo
ResolveGridViewMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveGridViewMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveGridViewMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveGridViewMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveGridViewMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveGridViewMethod "setMaxColumns" o = GridViewSetMaxColumnsMethodInfo
ResolveGridViewMethod "setMinColumns" o = GridViewSetMinColumnsMethodInfo
ResolveGridViewMethod "setModel" o = GridViewSetModelMethodInfo
ResolveGridViewMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveGridViewMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveGridViewMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveGridViewMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveGridViewMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveGridViewMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveGridViewMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveGridViewMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveGridViewMethod "setSingleClickActivate" o = GridViewSetSingleClickActivateMethodInfo
ResolveGridViewMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveGridViewMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveGridViewMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveGridViewMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveGridViewMethod "setVadjustment" o = Gtk.Scrollable.ScrollableSetVadjustmentMethodInfo
ResolveGridViewMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveGridViewMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveGridViewMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveGridViewMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveGridViewMethod "setVscrollPolicy" o = Gtk.Scrollable.ScrollableSetVscrollPolicyMethodInfo
ResolveGridViewMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveGridViewMethod t GridView, O.OverloadedMethod info GridView p) => OL.IsLabel t (GridView -> 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 ~ ResolveGridViewMethod t GridView, O.OverloadedMethod info GridView p, R.HasField t GridView p) => R.HasField t GridView p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveGridViewMethod t GridView, O.OverloadedMethodInfo info GridView) => OL.IsLabel t (O.MethodProxy info GridView) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type GridViewActivateCallback =
Word32
-> IO ()
noGridViewActivateCallback :: Maybe GridViewActivateCallback
noGridViewActivateCallback :: Maybe GridViewActivateCallback
noGridViewActivateCallback = Maybe GridViewActivateCallback
forall a. Maybe a
Nothing
type C_GridViewActivateCallback =
Ptr () ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_GridViewActivateCallback :: C_GridViewActivateCallback -> IO (FunPtr C_GridViewActivateCallback)
genClosure_GridViewActivate :: MonadIO m => GridViewActivateCallback -> m (GClosure C_GridViewActivateCallback)
genClosure_GridViewActivate :: forall (m :: * -> *).
MonadIO m =>
GridViewActivateCallback -> m (GClosure C_GridViewActivateCallback)
genClosure_GridViewActivate GridViewActivateCallback
cb = IO (GClosure C_GridViewActivateCallback)
-> m (GClosure C_GridViewActivateCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_GridViewActivateCallback)
-> m (GClosure C_GridViewActivateCallback))
-> IO (GClosure C_GridViewActivateCallback)
-> m (GClosure C_GridViewActivateCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GridViewActivateCallback
cb' = GridViewActivateCallback -> C_GridViewActivateCallback
wrap_GridViewActivateCallback GridViewActivateCallback
cb
C_GridViewActivateCallback
-> IO (FunPtr C_GridViewActivateCallback)
mk_GridViewActivateCallback C_GridViewActivateCallback
cb' IO (FunPtr C_GridViewActivateCallback)
-> (FunPtr C_GridViewActivateCallback
-> IO (GClosure C_GridViewActivateCallback))
-> IO (GClosure C_GridViewActivateCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_GridViewActivateCallback
-> IO (GClosure C_GridViewActivateCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_GridViewActivateCallback ::
GridViewActivateCallback ->
C_GridViewActivateCallback
wrap_GridViewActivateCallback :: GridViewActivateCallback -> C_GridViewActivateCallback
wrap_GridViewActivateCallback GridViewActivateCallback
_cb Ptr ()
_ Word32
position Ptr ()
_ = do
GridViewActivateCallback
_cb Word32
position
onGridViewActivate :: (IsGridView a, MonadIO m) => a -> GridViewActivateCallback -> m SignalHandlerId
onGridViewActivate :: forall a (m :: * -> *).
(IsGridView a, MonadIO m) =>
a -> GridViewActivateCallback -> m SignalHandlerId
onGridViewActivate a
obj GridViewActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GridViewActivateCallback
cb' = GridViewActivateCallback -> C_GridViewActivateCallback
wrap_GridViewActivateCallback GridViewActivateCallback
cb
FunPtr C_GridViewActivateCallback
cb'' <- C_GridViewActivateCallback
-> IO (FunPtr C_GridViewActivateCallback)
mk_GridViewActivateCallback C_GridViewActivateCallback
cb'
a
-> Text
-> FunPtr C_GridViewActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_GridViewActivateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterGridViewActivate :: (IsGridView a, MonadIO m) => a -> GridViewActivateCallback -> m SignalHandlerId
afterGridViewActivate :: forall a (m :: * -> *).
(IsGridView a, MonadIO m) =>
a -> GridViewActivateCallback -> m SignalHandlerId
afterGridViewActivate a
obj GridViewActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_GridViewActivateCallback
cb' = GridViewActivateCallback -> C_GridViewActivateCallback
wrap_GridViewActivateCallback GridViewActivateCallback
cb
FunPtr C_GridViewActivateCallback
cb'' <- C_GridViewActivateCallback
-> IO (FunPtr C_GridViewActivateCallback)
mk_GridViewActivateCallback C_GridViewActivateCallback
cb'
a
-> Text
-> FunPtr C_GridViewActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_GridViewActivateCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data GridViewActivateSignalInfo
instance SignalInfo GridViewActivateSignalInfo where
type HaskellCallbackType GridViewActivateSignalInfo = GridViewActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_GridViewActivateCallback cb
cb'' <- mk_GridViewActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
#endif
getGridViewEnableRubberband :: (MonadIO m, IsGridView o) => o -> m Bool
getGridViewEnableRubberband :: forall (m :: * -> *) o. (MonadIO m, IsGridView o) => o -> m Bool
getGridViewEnableRubberband o
obj = IO Bool -> m Bool
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
"enable-rubberband"
setGridViewEnableRubberband :: (MonadIO m, IsGridView o) => o -> Bool -> m ()
setGridViewEnableRubberband :: forall (m :: * -> *) o.
(MonadIO m, IsGridView o) =>
o -> Bool -> m ()
setGridViewEnableRubberband o
obj Bool
val = IO () -> m ()
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
"enable-rubberband" Bool
val
constructGridViewEnableRubberband :: (IsGridView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructGridViewEnableRubberband :: forall o (m :: * -> *).
(IsGridView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructGridViewEnableRubberband Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"enable-rubberband" Bool
val
#if defined(ENABLE_OVERLOADING)
data GridViewEnableRubberbandPropertyInfo
instance AttrInfo GridViewEnableRubberbandPropertyInfo where
type AttrAllowedOps GridViewEnableRubberbandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridViewEnableRubberbandPropertyInfo = IsGridView
type AttrSetTypeConstraint GridViewEnableRubberbandPropertyInfo = (~) Bool
type AttrTransferTypeConstraint GridViewEnableRubberbandPropertyInfo = (~) Bool
type AttrTransferType GridViewEnableRubberbandPropertyInfo = Bool
type AttrGetType GridViewEnableRubberbandPropertyInfo = Bool
type AttrLabel GridViewEnableRubberbandPropertyInfo = "enable-rubberband"
type AttrOrigin GridViewEnableRubberbandPropertyInfo = GridView
attrGet = getGridViewEnableRubberband
attrSet = setGridViewEnableRubberband
attrTransfer _ v = do
return v
attrConstruct = constructGridViewEnableRubberband
attrClear = undefined
#endif
getGridViewFactory :: (MonadIO m, IsGridView o) => o -> m (Maybe Gtk.ListItemFactory.ListItemFactory)
getGridViewFactory :: forall (m :: * -> *) o.
(MonadIO m, IsGridView o) =>
o -> m (Maybe ListItemFactory)
getGridViewFactory o
obj = IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory))
-> IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr ListItemFactory -> ListItemFactory)
-> IO (Maybe ListItemFactory)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"factory" ManagedPtr ListItemFactory -> ListItemFactory
Gtk.ListItemFactory.ListItemFactory
setGridViewFactory :: (MonadIO m, IsGridView o, Gtk.ListItemFactory.IsListItemFactory a) => o -> a -> m ()
setGridViewFactory :: forall (m :: * -> *) o a.
(MonadIO m, IsGridView o, IsListItemFactory a) =>
o -> a -> m ()
setGridViewFactory o
obj a
val = IO () -> m ()
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 -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"factory" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructGridViewFactory :: (IsGridView o, MIO.MonadIO m, Gtk.ListItemFactory.IsListItemFactory a) => a -> m (GValueConstruct o)
constructGridViewFactory :: forall o (m :: * -> *) a.
(IsGridView o, MonadIO m, IsListItemFactory a) =>
a -> m (GValueConstruct o)
constructGridViewFactory a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"factory" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearGridViewFactory :: (MonadIO m, IsGridView o) => o -> m ()
clearGridViewFactory :: forall (m :: * -> *) o. (MonadIO m, IsGridView o) => o -> m ()
clearGridViewFactory o
obj = 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 -> Maybe ListItemFactory -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"factory" (Maybe ListItemFactory
forall a. Maybe a
Nothing :: Maybe Gtk.ListItemFactory.ListItemFactory)
#if defined(ENABLE_OVERLOADING)
data GridViewFactoryPropertyInfo
instance AttrInfo GridViewFactoryPropertyInfo where
type AttrAllowedOps GridViewFactoryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint GridViewFactoryPropertyInfo = IsGridView
type AttrSetTypeConstraint GridViewFactoryPropertyInfo = Gtk.ListItemFactory.IsListItemFactory
type AttrTransferTypeConstraint GridViewFactoryPropertyInfo = Gtk.ListItemFactory.IsListItemFactory
type AttrTransferType GridViewFactoryPropertyInfo = Gtk.ListItemFactory.ListItemFactory
type AttrGetType GridViewFactoryPropertyInfo = (Maybe Gtk.ListItemFactory.ListItemFactory)
type AttrLabel GridViewFactoryPropertyInfo = "factory"
type AttrOrigin GridViewFactoryPropertyInfo = GridView
attrGet = getGridViewFactory
attrSet = setGridViewFactory
attrTransfer _ v = do
unsafeCastTo Gtk.ListItemFactory.ListItemFactory v
attrConstruct = constructGridViewFactory
attrClear = clearGridViewFactory
#endif
getGridViewMaxColumns :: (MonadIO m, IsGridView o) => o -> m Word32
getGridViewMaxColumns :: forall (m :: * -> *) o. (MonadIO m, IsGridView o) => o -> m Word32
getGridViewMaxColumns o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"max-columns"
setGridViewMaxColumns :: (MonadIO m, IsGridView o) => o -> Word32 -> m ()
setGridViewMaxColumns :: forall (m :: * -> *) o.
(MonadIO m, IsGridView o) =>
o -> Word32 -> m ()
setGridViewMaxColumns o
obj Word32
val = IO () -> m ()
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 -> GridViewActivateCallback
forall a. GObject a => a -> String -> GridViewActivateCallback
B.Properties.setObjectPropertyUInt32 o
obj String
"max-columns" Word32
val
constructGridViewMaxColumns :: (IsGridView o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructGridViewMaxColumns :: forall o (m :: * -> *).
(IsGridView o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructGridViewMaxColumns Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"max-columns" Word32
val
#if defined(ENABLE_OVERLOADING)
data GridViewMaxColumnsPropertyInfo
instance AttrInfo GridViewMaxColumnsPropertyInfo where
type AttrAllowedOps GridViewMaxColumnsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridViewMaxColumnsPropertyInfo = IsGridView
type AttrSetTypeConstraint GridViewMaxColumnsPropertyInfo = (~) Word32
type AttrTransferTypeConstraint GridViewMaxColumnsPropertyInfo = (~) Word32
type AttrTransferType GridViewMaxColumnsPropertyInfo = Word32
type AttrGetType GridViewMaxColumnsPropertyInfo = Word32
type AttrLabel GridViewMaxColumnsPropertyInfo = "max-columns"
type AttrOrigin GridViewMaxColumnsPropertyInfo = GridView
attrGet = getGridViewMaxColumns
attrSet = setGridViewMaxColumns
attrTransfer _ v = do
return v
attrConstruct = constructGridViewMaxColumns
attrClear = undefined
#endif
getGridViewMinColumns :: (MonadIO m, IsGridView o) => o -> m Word32
getGridViewMinColumns :: forall (m :: * -> *) o. (MonadIO m, IsGridView o) => o -> m Word32
getGridViewMinColumns o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"min-columns"
setGridViewMinColumns :: (MonadIO m, IsGridView o) => o -> Word32 -> m ()
setGridViewMinColumns :: forall (m :: * -> *) o.
(MonadIO m, IsGridView o) =>
o -> Word32 -> m ()
setGridViewMinColumns o
obj Word32
val = IO () -> m ()
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 -> GridViewActivateCallback
forall a. GObject a => a -> String -> GridViewActivateCallback
B.Properties.setObjectPropertyUInt32 o
obj String
"min-columns" Word32
val
constructGridViewMinColumns :: (IsGridView o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructGridViewMinColumns :: forall o (m :: * -> *).
(IsGridView o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructGridViewMinColumns Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"min-columns" Word32
val
#if defined(ENABLE_OVERLOADING)
data GridViewMinColumnsPropertyInfo
instance AttrInfo GridViewMinColumnsPropertyInfo where
type AttrAllowedOps GridViewMinColumnsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridViewMinColumnsPropertyInfo = IsGridView
type AttrSetTypeConstraint GridViewMinColumnsPropertyInfo = (~) Word32
type AttrTransferTypeConstraint GridViewMinColumnsPropertyInfo = (~) Word32
type AttrTransferType GridViewMinColumnsPropertyInfo = Word32
type AttrGetType GridViewMinColumnsPropertyInfo = Word32
type AttrLabel GridViewMinColumnsPropertyInfo = "min-columns"
type AttrOrigin GridViewMinColumnsPropertyInfo = GridView
attrGet = getGridViewMinColumns
attrSet = setGridViewMinColumns
attrTransfer _ v = do
return v
attrConstruct = constructGridViewMinColumns
attrClear = undefined
#endif
getGridViewModel :: (MonadIO m, IsGridView o) => o -> m (Maybe Gtk.SelectionModel.SelectionModel)
getGridViewModel :: forall (m :: * -> *) o.
(MonadIO m, IsGridView o) =>
o -> m (Maybe SelectionModel)
getGridViewModel o
obj = IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe SelectionModel) -> m (Maybe SelectionModel))
-> IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr SelectionModel -> SelectionModel)
-> IO (Maybe SelectionModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"model" ManagedPtr SelectionModel -> SelectionModel
Gtk.SelectionModel.SelectionModel
setGridViewModel :: (MonadIO m, IsGridView o, Gtk.SelectionModel.IsSelectionModel a) => o -> a -> m ()
setGridViewModel :: forall (m :: * -> *) o a.
(MonadIO m, IsGridView o, IsSelectionModel a) =>
o -> a -> m ()
setGridViewModel o
obj a
val = IO () -> m ()
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 -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"model" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructGridViewModel :: (IsGridView o, MIO.MonadIO m, Gtk.SelectionModel.IsSelectionModel a) => a -> m (GValueConstruct o)
constructGridViewModel :: forall o (m :: * -> *) a.
(IsGridView o, MonadIO m, IsSelectionModel a) =>
a -> m (GValueConstruct o)
constructGridViewModel a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"model" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearGridViewModel :: (MonadIO m, IsGridView o) => o -> m ()
clearGridViewModel :: forall (m :: * -> *) o. (MonadIO m, IsGridView o) => o -> m ()
clearGridViewModel o
obj = 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 -> Maybe SelectionModel -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"model" (Maybe SelectionModel
forall a. Maybe a
Nothing :: Maybe Gtk.SelectionModel.SelectionModel)
#if defined(ENABLE_OVERLOADING)
data GridViewModelPropertyInfo
instance AttrInfo GridViewModelPropertyInfo where
type AttrAllowedOps GridViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint GridViewModelPropertyInfo = IsGridView
type AttrSetTypeConstraint GridViewModelPropertyInfo = Gtk.SelectionModel.IsSelectionModel
type AttrTransferTypeConstraint GridViewModelPropertyInfo = Gtk.SelectionModel.IsSelectionModel
type AttrTransferType GridViewModelPropertyInfo = Gtk.SelectionModel.SelectionModel
type AttrGetType GridViewModelPropertyInfo = (Maybe Gtk.SelectionModel.SelectionModel)
type AttrLabel GridViewModelPropertyInfo = "model"
type AttrOrigin GridViewModelPropertyInfo = GridView
attrGet = getGridViewModel
attrSet = setGridViewModel
attrTransfer _ v = do
unsafeCastTo Gtk.SelectionModel.SelectionModel v
attrConstruct = constructGridViewModel
attrClear = clearGridViewModel
#endif
getGridViewSingleClickActivate :: (MonadIO m, IsGridView o) => o -> m Bool
getGridViewSingleClickActivate :: forall (m :: * -> *) o. (MonadIO m, IsGridView o) => o -> m Bool
getGridViewSingleClickActivate o
obj = IO Bool -> m Bool
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
"single-click-activate"
setGridViewSingleClickActivate :: (MonadIO m, IsGridView o) => o -> Bool -> m ()
setGridViewSingleClickActivate :: forall (m :: * -> *) o.
(MonadIO m, IsGridView o) =>
o -> Bool -> m ()
setGridViewSingleClickActivate o
obj Bool
val = IO () -> m ()
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
"single-click-activate" Bool
val
constructGridViewSingleClickActivate :: (IsGridView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructGridViewSingleClickActivate :: forall o (m :: * -> *).
(IsGridView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructGridViewSingleClickActivate Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"single-click-activate" Bool
val
#if defined(ENABLE_OVERLOADING)
data GridViewSingleClickActivatePropertyInfo
instance AttrInfo GridViewSingleClickActivatePropertyInfo where
type AttrAllowedOps GridViewSingleClickActivatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridViewSingleClickActivatePropertyInfo = IsGridView
type AttrSetTypeConstraint GridViewSingleClickActivatePropertyInfo = (~) Bool
type AttrTransferTypeConstraint GridViewSingleClickActivatePropertyInfo = (~) Bool
type AttrTransferType GridViewSingleClickActivatePropertyInfo = Bool
type AttrGetType GridViewSingleClickActivatePropertyInfo = Bool
type AttrLabel GridViewSingleClickActivatePropertyInfo = "single-click-activate"
type AttrOrigin GridViewSingleClickActivatePropertyInfo = GridView
attrGet = getGridViewSingleClickActivate
attrSet = setGridViewSingleClickActivate
attrTransfer _ v = do
return v
attrConstruct = constructGridViewSingleClickActivate
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList GridView
type instance O.AttributeList GridView = GridViewAttributeList
type GridViewAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("enableRubberband", GridViewEnableRubberbandPropertyInfo), '("factory", GridViewFactoryPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("hadjustment", Gtk.Scrollable.ScrollableHadjustmentPropertyInfo), '("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), '("hscrollPolicy", Gtk.Scrollable.ScrollableHscrollPolicyPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maxColumns", GridViewMaxColumnsPropertyInfo), '("minColumns", GridViewMinColumnsPropertyInfo), '("model", GridViewModelPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.ListBase.ListBaseOrientationPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("singleClickActivate", GridViewSingleClickActivatePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("vadjustment", Gtk.Scrollable.ScrollableVadjustmentPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("vscrollPolicy", Gtk.Scrollable.ScrollableVscrollPolicyPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
gridViewEnableRubberband :: AttrLabelProxy "enableRubberband"
gridViewEnableRubberband = AttrLabelProxy
gridViewFactory :: AttrLabelProxy "factory"
gridViewFactory = AttrLabelProxy
gridViewMaxColumns :: AttrLabelProxy "maxColumns"
gridViewMaxColumns = AttrLabelProxy
gridViewMinColumns :: AttrLabelProxy "minColumns"
gridViewMinColumns = AttrLabelProxy
gridViewModel :: AttrLabelProxy "model"
gridViewModel = AttrLabelProxy
gridViewSingleClickActivate :: AttrLabelProxy "singleClickActivate"
gridViewSingleClickActivate = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList GridView = GridViewSignalList
type GridViewSignalList = ('[ '("activate", GridViewActivateSignalInfo), '("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, *)])
#endif
foreign import ccall "gtk_grid_view_new" gtk_grid_view_new ::
Ptr Gtk.SelectionModel.SelectionModel ->
Ptr Gtk.ListItemFactory.ListItemFactory ->
IO (Ptr GridView)
gridViewNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.SelectionModel.IsSelectionModel a, Gtk.ListItemFactory.IsListItemFactory b) =>
Maybe (a)
-> Maybe (b)
-> m GridView
gridViewNew :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSelectionModel a,
IsListItemFactory b) =>
Maybe a -> Maybe b -> m GridView
gridViewNew Maybe a
model Maybe b
factory = IO GridView -> m GridView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GridView -> m GridView) -> IO GridView -> m GridView
forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionModel
maybeModel <- case Maybe a
model of
Maybe a
Nothing -> Ptr SelectionModel -> IO (Ptr SelectionModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SelectionModel
forall a. Ptr a
nullPtr
Just a
jModel -> do
Ptr SelectionModel
jModel' <- a -> IO (Ptr SelectionModel)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject a
jModel
Ptr SelectionModel -> IO (Ptr SelectionModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SelectionModel
jModel'
Ptr ListItemFactory
maybeFactory <- case Maybe b
factory of
Maybe b
Nothing -> Ptr ListItemFactory -> IO (Ptr ListItemFactory)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListItemFactory
forall a. Ptr a
nullPtr
Just b
jFactory -> do
Ptr ListItemFactory
jFactory' <- b -> IO (Ptr ListItemFactory)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject b
jFactory
Ptr ListItemFactory -> IO (Ptr ListItemFactory)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListItemFactory
jFactory'
Ptr GridView
result <- Ptr SelectionModel -> Ptr ListItemFactory -> IO (Ptr GridView)
gtk_grid_view_new Ptr SelectionModel
maybeModel Ptr ListItemFactory
maybeFactory
Text -> Ptr GridView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"gridViewNew" Ptr GridView
result
GridView
result' <- ((ManagedPtr GridView -> GridView) -> Ptr GridView -> IO GridView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr GridView -> GridView
GridView) Ptr GridView
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
model a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
factory b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
GridView -> IO GridView
forall (m :: * -> *) a. Monad m => a -> m a
return GridView
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_grid_view_get_enable_rubberband" gtk_grid_view_get_enable_rubberband ::
Ptr GridView ->
IO CInt
gridViewGetEnableRubberband ::
(B.CallStack.HasCallStack, MonadIO m, IsGridView a) =>
a
-> m Bool
gridViewGetEnableRubberband :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridView a) =>
a -> m Bool
gridViewGetEnableRubberband a
self = 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 GridView
self' <- a -> IO (Ptr GridView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr GridView -> IO CInt
gtk_grid_view_get_enable_rubberband Ptr GridView
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GridViewGetEnableRubberbandMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGridView a) => O.OverloadedMethod GridViewGetEnableRubberbandMethodInfo a signature where
overloadedMethod = gridViewGetEnableRubberband
instance O.OverloadedMethodInfo GridViewGetEnableRubberbandMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GridView.gridViewGetEnableRubberband",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GridView.html#v:gridViewGetEnableRubberband"
}
#endif
foreign import ccall "gtk_grid_view_get_factory" gtk_grid_view_get_factory ::
Ptr GridView ->
IO (Ptr Gtk.ListItemFactory.ListItemFactory)
gridViewGetFactory ::
(B.CallStack.HasCallStack, MonadIO m, IsGridView a) =>
a
-> m (Maybe Gtk.ListItemFactory.ListItemFactory)
gridViewGetFactory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridView a) =>
a -> m (Maybe ListItemFactory)
gridViewGetFactory a
self = IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory))
-> IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a b. (a -> b) -> a -> b
$ do
Ptr GridView
self' <- a -> IO (Ptr GridView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ListItemFactory
result <- Ptr GridView -> IO (Ptr ListItemFactory)
gtk_grid_view_get_factory Ptr GridView
self'
Maybe ListItemFactory
maybeResult <- Ptr ListItemFactory
-> (Ptr ListItemFactory -> IO ListItemFactory)
-> IO (Maybe ListItemFactory)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr ListItemFactory
result ((Ptr ListItemFactory -> IO ListItemFactory)
-> IO (Maybe ListItemFactory))
-> (Ptr ListItemFactory -> IO ListItemFactory)
-> IO (Maybe ListItemFactory)
forall a b. (a -> b) -> a -> b
$ \Ptr ListItemFactory
result' -> do
ListItemFactory
result'' <- ((ManagedPtr ListItemFactory -> ListItemFactory)
-> Ptr ListItemFactory -> IO ListItemFactory
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListItemFactory -> ListItemFactory
Gtk.ListItemFactory.ListItemFactory) Ptr ListItemFactory
result'
ListItemFactory -> IO ListItemFactory
forall (m :: * -> *) a. Monad m => a -> m a
return ListItemFactory
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe ListItemFactory -> IO (Maybe ListItemFactory)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ListItemFactory
maybeResult
#if defined(ENABLE_OVERLOADING)
data GridViewGetFactoryMethodInfo
instance (signature ~ (m (Maybe Gtk.ListItemFactory.ListItemFactory)), MonadIO m, IsGridView a) => O.OverloadedMethod GridViewGetFactoryMethodInfo a signature where
overloadedMethod = gridViewGetFactory
instance O.OverloadedMethodInfo GridViewGetFactoryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GridView.gridViewGetFactory",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GridView.html#v:gridViewGetFactory"
}
#endif
foreign import ccall "gtk_grid_view_get_max_columns" gtk_grid_view_get_max_columns ::
Ptr GridView ->
IO Word32
gridViewGetMaxColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsGridView a) =>
a
-> m Word32
gridViewGetMaxColumns :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridView a) =>
a -> m Word32
gridViewGetMaxColumns a
self = 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 GridView
self' <- a -> IO (Ptr GridView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr GridView -> IO Word32
gtk_grid_view_get_max_columns Ptr GridView
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data GridViewGetMaxColumnsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsGridView a) => O.OverloadedMethod GridViewGetMaxColumnsMethodInfo a signature where
overloadedMethod = gridViewGetMaxColumns
instance O.OverloadedMethodInfo GridViewGetMaxColumnsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GridView.gridViewGetMaxColumns",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GridView.html#v:gridViewGetMaxColumns"
}
#endif
foreign import ccall "gtk_grid_view_get_min_columns" gtk_grid_view_get_min_columns ::
Ptr GridView ->
IO Word32
gridViewGetMinColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsGridView a) =>
a
-> m Word32
gridViewGetMinColumns :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridView a) =>
a -> m Word32
gridViewGetMinColumns a
self = 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 GridView
self' <- a -> IO (Ptr GridView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr GridView -> IO Word32
gtk_grid_view_get_min_columns Ptr GridView
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data GridViewGetMinColumnsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsGridView a) => O.OverloadedMethod GridViewGetMinColumnsMethodInfo a signature where
overloadedMethod = gridViewGetMinColumns
instance O.OverloadedMethodInfo GridViewGetMinColumnsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GridView.gridViewGetMinColumns",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GridView.html#v:gridViewGetMinColumns"
}
#endif
foreign import ccall "gtk_grid_view_get_model" gtk_grid_view_get_model ::
Ptr GridView ->
IO (Ptr Gtk.SelectionModel.SelectionModel)
gridViewGetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsGridView a) =>
a
-> m (Maybe Gtk.SelectionModel.SelectionModel)
gridViewGetModel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridView a) =>
a -> m (Maybe SelectionModel)
gridViewGetModel a
self = IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe SelectionModel) -> m (Maybe SelectionModel))
-> IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall a b. (a -> b) -> a -> b
$ do
Ptr GridView
self' <- a -> IO (Ptr GridView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr SelectionModel
result <- Ptr GridView -> IO (Ptr SelectionModel)
gtk_grid_view_get_model Ptr GridView
self'
Maybe SelectionModel
maybeResult <- Ptr SelectionModel
-> (Ptr SelectionModel -> IO SelectionModel)
-> IO (Maybe SelectionModel)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr SelectionModel
result ((Ptr SelectionModel -> IO SelectionModel)
-> IO (Maybe SelectionModel))
-> (Ptr SelectionModel -> IO SelectionModel)
-> IO (Maybe SelectionModel)
forall a b. (a -> b) -> a -> b
$ \Ptr SelectionModel
result' -> do
SelectionModel
result'' <- ((ManagedPtr SelectionModel -> SelectionModel)
-> Ptr SelectionModel -> IO SelectionModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr SelectionModel -> SelectionModel
Gtk.SelectionModel.SelectionModel) Ptr SelectionModel
result'
SelectionModel -> IO SelectionModel
forall (m :: * -> *) a. Monad m => a -> m a
return SelectionModel
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe SelectionModel -> IO (Maybe SelectionModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SelectionModel
maybeResult
#if defined(ENABLE_OVERLOADING)
data GridViewGetModelMethodInfo
instance (signature ~ (m (Maybe Gtk.SelectionModel.SelectionModel)), MonadIO m, IsGridView a) => O.OverloadedMethod GridViewGetModelMethodInfo a signature where
overloadedMethod = gridViewGetModel
instance O.OverloadedMethodInfo GridViewGetModelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GridView.gridViewGetModel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GridView.html#v:gridViewGetModel"
}
#endif
foreign import ccall "gtk_grid_view_get_single_click_activate" gtk_grid_view_get_single_click_activate ::
Ptr GridView ->
IO CInt
gridViewGetSingleClickActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsGridView a) =>
a
-> m Bool
gridViewGetSingleClickActivate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridView a) =>
a -> m Bool
gridViewGetSingleClickActivate a
self = 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 GridView
self' <- a -> IO (Ptr GridView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr GridView -> IO CInt
gtk_grid_view_get_single_click_activate Ptr GridView
self'
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
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GridViewGetSingleClickActivateMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGridView a) => O.OverloadedMethod GridViewGetSingleClickActivateMethodInfo a signature where
overloadedMethod = gridViewGetSingleClickActivate
instance O.OverloadedMethodInfo GridViewGetSingleClickActivateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GridView.gridViewGetSingleClickActivate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GridView.html#v:gridViewGetSingleClickActivate"
}
#endif
foreign import ccall "gtk_grid_view_set_enable_rubberband" gtk_grid_view_set_enable_rubberband ::
Ptr GridView ->
CInt ->
IO ()
gridViewSetEnableRubberband ::
(B.CallStack.HasCallStack, MonadIO m, IsGridView a) =>
a
-> Bool
-> m ()
gridViewSetEnableRubberband :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridView a) =>
a -> Bool -> m ()
gridViewSetEnableRubberband a
self Bool
enableRubberband = 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 GridView
self' <- a -> IO (Ptr GridView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let enableRubberband' :: CInt
enableRubberband' = (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
enableRubberband
Ptr GridView -> CInt -> IO ()
gtk_grid_view_set_enable_rubberband Ptr GridView
self' CInt
enableRubberband'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridViewSetEnableRubberbandMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGridView a) => O.OverloadedMethod GridViewSetEnableRubberbandMethodInfo a signature where
overloadedMethod = gridViewSetEnableRubberband
instance O.OverloadedMethodInfo GridViewSetEnableRubberbandMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GridView.gridViewSetEnableRubberband",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GridView.html#v:gridViewSetEnableRubberband"
}
#endif
foreign import ccall "gtk_grid_view_set_factory" gtk_grid_view_set_factory ::
Ptr GridView ->
Ptr Gtk.ListItemFactory.ListItemFactory ->
IO ()
gridViewSetFactory ::
(B.CallStack.HasCallStack, MonadIO m, IsGridView a, Gtk.ListItemFactory.IsListItemFactory b) =>
a
-> Maybe (b)
-> m ()
gridViewSetFactory :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsGridView a, IsListItemFactory b) =>
a -> Maybe b -> m ()
gridViewSetFactory a
self Maybe b
factory = 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 GridView
self' <- a -> IO (Ptr GridView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ListItemFactory
maybeFactory <- case Maybe b
factory of
Maybe b
Nothing -> Ptr ListItemFactory -> IO (Ptr ListItemFactory)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListItemFactory
forall a. Ptr a
nullPtr
Just b
jFactory -> do
Ptr ListItemFactory
jFactory' <- b -> IO (Ptr ListItemFactory)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jFactory
Ptr ListItemFactory -> IO (Ptr ListItemFactory)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListItemFactory
jFactory'
Ptr GridView -> Ptr ListItemFactory -> IO ()
gtk_grid_view_set_factory Ptr GridView
self' Ptr ListItemFactory
maybeFactory
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
factory b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridViewSetFactoryMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsGridView a, Gtk.ListItemFactory.IsListItemFactory b) => O.OverloadedMethod GridViewSetFactoryMethodInfo a signature where
overloadedMethod = gridViewSetFactory
instance O.OverloadedMethodInfo GridViewSetFactoryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GridView.gridViewSetFactory",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GridView.html#v:gridViewSetFactory"
}
#endif
foreign import ccall "gtk_grid_view_set_max_columns" gtk_grid_view_set_max_columns ::
Ptr GridView ->
Word32 ->
IO ()
gridViewSetMaxColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsGridView a) =>
a
-> Word32
-> m ()
gridViewSetMaxColumns :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridView a) =>
a -> Word32 -> m ()
gridViewSetMaxColumns a
self Word32
maxColumns = 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 GridView
self' <- a -> IO (Ptr GridView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr GridView -> GridViewActivateCallback
gtk_grid_view_set_max_columns Ptr GridView
self' Word32
maxColumns
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridViewSetMaxColumnsMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsGridView a) => O.OverloadedMethod GridViewSetMaxColumnsMethodInfo a signature where
overloadedMethod = gridViewSetMaxColumns
instance O.OverloadedMethodInfo GridViewSetMaxColumnsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GridView.gridViewSetMaxColumns",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GridView.html#v:gridViewSetMaxColumns"
}
#endif
foreign import ccall "gtk_grid_view_set_min_columns" gtk_grid_view_set_min_columns ::
Ptr GridView ->
Word32 ->
IO ()
gridViewSetMinColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsGridView a) =>
a
-> Word32
-> m ()
gridViewSetMinColumns :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridView a) =>
a -> Word32 -> m ()
gridViewSetMinColumns a
self Word32
minColumns = 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 GridView
self' <- a -> IO (Ptr GridView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr GridView -> GridViewActivateCallback
gtk_grid_view_set_min_columns Ptr GridView
self' Word32
minColumns
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridViewSetMinColumnsMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsGridView a) => O.OverloadedMethod GridViewSetMinColumnsMethodInfo a signature where
overloadedMethod = gridViewSetMinColumns
instance O.OverloadedMethodInfo GridViewSetMinColumnsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GridView.gridViewSetMinColumns",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GridView.html#v:gridViewSetMinColumns"
}
#endif
foreign import ccall "gtk_grid_view_set_model" gtk_grid_view_set_model ::
Ptr GridView ->
Ptr Gtk.SelectionModel.SelectionModel ->
IO ()
gridViewSetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsGridView a, Gtk.SelectionModel.IsSelectionModel b) =>
a
-> Maybe (b)
-> m ()
gridViewSetModel :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsGridView a, IsSelectionModel b) =>
a -> Maybe b -> m ()
gridViewSetModel a
self Maybe b
model = 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 GridView
self' <- a -> IO (Ptr GridView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr SelectionModel
maybeModel <- case Maybe b
model of
Maybe b
Nothing -> Ptr SelectionModel -> IO (Ptr SelectionModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SelectionModel
forall a. Ptr a
nullPtr
Just b
jModel -> do
Ptr SelectionModel
jModel' <- b -> IO (Ptr SelectionModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
Ptr SelectionModel -> IO (Ptr SelectionModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SelectionModel
jModel'
Ptr GridView -> Ptr SelectionModel -> IO ()
gtk_grid_view_set_model Ptr GridView
self' Ptr SelectionModel
maybeModel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
model b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridViewSetModelMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsGridView a, Gtk.SelectionModel.IsSelectionModel b) => O.OverloadedMethod GridViewSetModelMethodInfo a signature where
overloadedMethod = gridViewSetModel
instance O.OverloadedMethodInfo GridViewSetModelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GridView.gridViewSetModel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GridView.html#v:gridViewSetModel"
}
#endif
foreign import ccall "gtk_grid_view_set_single_click_activate" gtk_grid_view_set_single_click_activate ::
Ptr GridView ->
CInt ->
IO ()
gridViewSetSingleClickActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsGridView a) =>
a
-> Bool
-> m ()
gridViewSetSingleClickActivate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridView a) =>
a -> Bool -> m ()
gridViewSetSingleClickActivate a
self Bool
singleClickActivate = 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 GridView
self' <- a -> IO (Ptr GridView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let singleClickActivate' :: CInt
singleClickActivate' = (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
singleClickActivate
Ptr GridView -> CInt -> IO ()
gtk_grid_view_set_single_click_activate Ptr GridView
self' CInt
singleClickActivate'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridViewSetSingleClickActivateMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGridView a) => O.OverloadedMethod GridViewSetSingleClickActivateMethodInfo a signature where
overloadedMethod = gridViewSetSingleClickActivate
instance O.OverloadedMethodInfo GridViewSetSingleClickActivateMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.GridView.gridViewSetSingleClickActivate",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-GridView.html#v:gridViewSetSingleClickActivate"
}
#endif