{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ListView
(
ListView(..) ,
IsListView ,
toListView ,
#if defined(ENABLE_OVERLOADING)
ResolveListViewMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ListViewGetEnableRubberbandMethodInfo ,
#endif
listViewGetEnableRubberband ,
#if defined(ENABLE_OVERLOADING)
ListViewGetFactoryMethodInfo ,
#endif
listViewGetFactory ,
#if defined(ENABLE_OVERLOADING)
ListViewGetModelMethodInfo ,
#endif
listViewGetModel ,
#if defined(ENABLE_OVERLOADING)
ListViewGetShowSeparatorsMethodInfo ,
#endif
listViewGetShowSeparators ,
#if defined(ENABLE_OVERLOADING)
ListViewGetSingleClickActivateMethodInfo,
#endif
listViewGetSingleClickActivate ,
listViewNew ,
#if defined(ENABLE_OVERLOADING)
ListViewSetEnableRubberbandMethodInfo ,
#endif
listViewSetEnableRubberband ,
#if defined(ENABLE_OVERLOADING)
ListViewSetFactoryMethodInfo ,
#endif
listViewSetFactory ,
#if defined(ENABLE_OVERLOADING)
ListViewSetModelMethodInfo ,
#endif
listViewSetModel ,
#if defined(ENABLE_OVERLOADING)
ListViewSetShowSeparatorsMethodInfo ,
#endif
listViewSetShowSeparators ,
#if defined(ENABLE_OVERLOADING)
ListViewSetSingleClickActivateMethodInfo,
#endif
listViewSetSingleClickActivate ,
#if defined(ENABLE_OVERLOADING)
ListViewEnableRubberbandPropertyInfo ,
#endif
constructListViewEnableRubberband ,
getListViewEnableRubberband ,
#if defined(ENABLE_OVERLOADING)
listViewEnableRubberband ,
#endif
setListViewEnableRubberband ,
#if defined(ENABLE_OVERLOADING)
ListViewFactoryPropertyInfo ,
#endif
clearListViewFactory ,
constructListViewFactory ,
getListViewFactory ,
#if defined(ENABLE_OVERLOADING)
listViewFactory ,
#endif
setListViewFactory ,
#if defined(ENABLE_OVERLOADING)
ListViewModelPropertyInfo ,
#endif
clearListViewModel ,
constructListViewModel ,
getListViewModel ,
#if defined(ENABLE_OVERLOADING)
listViewModel ,
#endif
setListViewModel ,
#if defined(ENABLE_OVERLOADING)
ListViewShowSeparatorsPropertyInfo ,
#endif
constructListViewShowSeparators ,
getListViewShowSeparators ,
#if defined(ENABLE_OVERLOADING)
listViewShowSeparators ,
#endif
setListViewShowSeparators ,
#if defined(ENABLE_OVERLOADING)
ListViewSingleClickActivatePropertyInfo ,
#endif
constructListViewSingleClickActivate ,
getListViewSingleClickActivate ,
#if defined(ENABLE_OVERLOADING)
listViewSingleClickActivate ,
#endif
setListViewSingleClickActivate ,
ListViewActivateCallback ,
#if defined(ENABLE_OVERLOADING)
ListViewActivateSignalInfo ,
#endif
afterListViewActivate ,
onListViewActivate ,
) 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.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 ListView = ListView (SP.ManagedPtr ListView)
deriving (ListView -> ListView -> Bool
(ListView -> ListView -> Bool)
-> (ListView -> ListView -> Bool) -> Eq ListView
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListView -> ListView -> Bool
== :: ListView -> ListView -> Bool
$c/= :: ListView -> ListView -> Bool
/= :: ListView -> ListView -> Bool
Eq)
instance SP.ManagedPtrNewtype ListView where
toManagedPtr :: ListView -> ManagedPtr ListView
toManagedPtr (ListView ManagedPtr ListView
p) = ManagedPtr ListView
p
foreign import ccall "gtk_list_view_get_type"
c_gtk_list_view_get_type :: IO B.Types.GType
instance B.Types.TypedObject ListView where
glibType :: IO GType
glibType = IO GType
c_gtk_list_view_get_type
instance B.Types.GObject ListView
class (SP.GObject o, O.IsDescendantOf ListView o) => IsListView o
instance (SP.GObject o, O.IsDescendantOf ListView o) => IsListView o
instance O.HasParentTypes ListView
type instance O.ParentTypes ListView = '[Gtk.ListBase.ListBase, Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Orientable.Orientable, Gtk.Scrollable.Scrollable]
toListView :: (MIO.MonadIO m, IsListView o) => o -> m ListView
toListView :: forall (m :: * -> *) o.
(MonadIO m, IsListView o) =>
o -> m ListView
toListView = IO ListView -> m ListView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ListView -> m ListView)
-> (o -> IO ListView) -> o -> m ListView
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ListView -> ListView) -> o -> IO ListView
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ListView -> ListView
ListView
instance B.GValue.IsGValue (Maybe ListView) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_list_view_get_type
gvalueSet_ :: Ptr GValue -> Maybe ListView -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ListView
P.Nothing = Ptr GValue -> Ptr ListView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ListView
forall a. Ptr a
FP.nullPtr :: FP.Ptr ListView)
gvalueSet_ Ptr GValue
gv (P.Just ListView
obj) = ListView -> (Ptr ListView -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ListView
obj (Ptr GValue -> Ptr ListView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ListView)
gvalueGet_ Ptr GValue
gv = do
Ptr ListView
ptr <- Ptr GValue -> IO (Ptr ListView)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ListView)
if Ptr ListView
ptr Ptr ListView -> Ptr ListView -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ListView
forall a. Ptr a
FP.nullPtr
then ListView -> Maybe ListView
forall a. a -> Maybe a
P.Just (ListView -> Maybe ListView) -> IO ListView -> IO (Maybe ListView)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ListView -> ListView) -> Ptr ListView -> IO ListView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ListView -> ListView
ListView Ptr ListView
ptr
else Maybe ListView -> IO (Maybe ListView)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ListView
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveListViewMethod (t :: Symbol) (o :: *) :: * where
ResolveListViewMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveListViewMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveListViewMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveListViewMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveListViewMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveListViewMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveListViewMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveListViewMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveListViewMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveListViewMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveListViewMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveListViewMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveListViewMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveListViewMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveListViewMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveListViewMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveListViewMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveListViewMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveListViewMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveListViewMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveListViewMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveListViewMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveListViewMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveListViewMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveListViewMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveListViewMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveListViewMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveListViewMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveListViewMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveListViewMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveListViewMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveListViewMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveListViewMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveListViewMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveListViewMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveListViewMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveListViewMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveListViewMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveListViewMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveListViewMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveListViewMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveListViewMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveListViewMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveListViewMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveListViewMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveListViewMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveListViewMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveListViewMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveListViewMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveListViewMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveListViewMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveListViewMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveListViewMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveListViewMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveListViewMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveListViewMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveListViewMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveListViewMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveListViewMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveListViewMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveListViewMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveListViewMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveListViewMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveListViewMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveListViewMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveListViewMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveListViewMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveListViewMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveListViewMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveListViewMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveListViewMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveListViewMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveListViewMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveListViewMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveListViewMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveListViewMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveListViewMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveListViewMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveListViewMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveListViewMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveListViewMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveListViewMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveListViewMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveListViewMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveListViewMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveListViewMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveListViewMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveListViewMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveListViewMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveListViewMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveListViewMethod "getBorder" o = Gtk.Scrollable.ScrollableGetBorderMethodInfo
ResolveListViewMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveListViewMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveListViewMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveListViewMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveListViewMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveListViewMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveListViewMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveListViewMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveListViewMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveListViewMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveListViewMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveListViewMethod "getEnableRubberband" o = ListViewGetEnableRubberbandMethodInfo
ResolveListViewMethod "getFactory" o = ListViewGetFactoryMethodInfo
ResolveListViewMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveListViewMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveListViewMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveListViewMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveListViewMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveListViewMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveListViewMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveListViewMethod "getHadjustment" o = Gtk.Scrollable.ScrollableGetHadjustmentMethodInfo
ResolveListViewMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveListViewMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveListViewMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveListViewMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveListViewMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveListViewMethod "getHscrollPolicy" o = Gtk.Scrollable.ScrollableGetHscrollPolicyMethodInfo
ResolveListViewMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveListViewMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveListViewMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveListViewMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveListViewMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveListViewMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveListViewMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveListViewMethod "getModel" o = ListViewGetModelMethodInfo
ResolveListViewMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveListViewMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveListViewMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveListViewMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveListViewMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveListViewMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveListViewMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveListViewMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveListViewMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveListViewMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveListViewMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveListViewMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveListViewMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveListViewMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveListViewMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveListViewMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveListViewMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveListViewMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveListViewMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveListViewMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveListViewMethod "getShowSeparators" o = ListViewGetShowSeparatorsMethodInfo
ResolveListViewMethod "getSingleClickActivate" o = ListViewGetSingleClickActivateMethodInfo
ResolveListViewMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveListViewMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveListViewMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveListViewMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveListViewMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveListViewMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveListViewMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveListViewMethod "getVadjustment" o = Gtk.Scrollable.ScrollableGetVadjustmentMethodInfo
ResolveListViewMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveListViewMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveListViewMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveListViewMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveListViewMethod "getVscrollPolicy" o = Gtk.Scrollable.ScrollableGetVscrollPolicyMethodInfo
ResolveListViewMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveListViewMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveListViewMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveListViewMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveListViewMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveListViewMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveListViewMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveListViewMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveListViewMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveListViewMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveListViewMethod "setEnableRubberband" o = ListViewSetEnableRubberbandMethodInfo
ResolveListViewMethod "setFactory" o = ListViewSetFactoryMethodInfo
ResolveListViewMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveListViewMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveListViewMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveListViewMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveListViewMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveListViewMethod "setHadjustment" o = Gtk.Scrollable.ScrollableSetHadjustmentMethodInfo
ResolveListViewMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveListViewMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveListViewMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveListViewMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveListViewMethod "setHscrollPolicy" o = Gtk.Scrollable.ScrollableSetHscrollPolicyMethodInfo
ResolveListViewMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveListViewMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveListViewMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveListViewMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveListViewMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveListViewMethod "setModel" o = ListViewSetModelMethodInfo
ResolveListViewMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveListViewMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveListViewMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveListViewMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveListViewMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveListViewMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveListViewMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveListViewMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveListViewMethod "setShowSeparators" o = ListViewSetShowSeparatorsMethodInfo
ResolveListViewMethod "setSingleClickActivate" o = ListViewSetSingleClickActivateMethodInfo
ResolveListViewMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveListViewMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveListViewMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveListViewMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveListViewMethod "setVadjustment" o = Gtk.Scrollable.ScrollableSetVadjustmentMethodInfo
ResolveListViewMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveListViewMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveListViewMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveListViewMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveListViewMethod "setVscrollPolicy" o = Gtk.Scrollable.ScrollableSetVscrollPolicyMethodInfo
ResolveListViewMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveListViewMethod t ListView, O.OverloadedMethod info ListView p) => OL.IsLabel t (ListView -> 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 ~ ResolveListViewMethod t ListView, O.OverloadedMethod info ListView p, R.HasField t ListView p) => R.HasField t ListView p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveListViewMethod t ListView, O.OverloadedMethodInfo info ListView) => OL.IsLabel t (O.MethodProxy info ListView) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ListViewActivateCallback =
Word32
-> IO ()
type C_ListViewActivateCallback =
Ptr ListView ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListViewActivateCallback :: C_ListViewActivateCallback -> IO (FunPtr C_ListViewActivateCallback)
wrap_ListViewActivateCallback ::
GObject a => (a -> ListViewActivateCallback) ->
C_ListViewActivateCallback
wrap_ListViewActivateCallback :: forall a.
GObject a =>
(a -> ListViewActivateCallback) -> C_ListViewActivateCallback
wrap_ListViewActivateCallback a -> ListViewActivateCallback
gi'cb Ptr ListView
gi'selfPtr Word32
position Ptr ()
_ = do
Ptr ListView -> (ListView -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ListView
gi'selfPtr ((ListView -> IO ()) -> IO ()) -> (ListView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ListView
gi'self -> a -> ListViewActivateCallback
gi'cb (ListView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ListView
gi'self) Word32
position
onListViewActivate :: (IsListView a, MonadIO m) => a -> ((?self :: a) => ListViewActivateCallback) -> m SignalHandlerId
onListViewActivate :: forall a (m :: * -> *).
(IsListView a, MonadIO m) =>
a -> ((?self::a) => ListViewActivateCallback) -> m SignalHandlerId
onListViewActivate a
obj (?self::a) => ListViewActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> ListViewActivateCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ListViewActivateCallback
ListViewActivateCallback
cb
let wrapped' :: C_ListViewActivateCallback
wrapped' = (a -> ListViewActivateCallback) -> C_ListViewActivateCallback
forall a.
GObject a =>
(a -> ListViewActivateCallback) -> C_ListViewActivateCallback
wrap_ListViewActivateCallback a -> ListViewActivateCallback
wrapped
FunPtr C_ListViewActivateCallback
wrapped'' <- C_ListViewActivateCallback
-> IO (FunPtr C_ListViewActivateCallback)
mk_ListViewActivateCallback C_ListViewActivateCallback
wrapped'
a
-> Text
-> FunPtr C_ListViewActivateCallback
-> 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_ListViewActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterListViewActivate :: (IsListView a, MonadIO m) => a -> ((?self :: a) => ListViewActivateCallback) -> m SignalHandlerId
afterListViewActivate :: forall a (m :: * -> *).
(IsListView a, MonadIO m) =>
a -> ((?self::a) => ListViewActivateCallback) -> m SignalHandlerId
afterListViewActivate a
obj (?self::a) => ListViewActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> ListViewActivateCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ListViewActivateCallback
ListViewActivateCallback
cb
let wrapped' :: C_ListViewActivateCallback
wrapped' = (a -> ListViewActivateCallback) -> C_ListViewActivateCallback
forall a.
GObject a =>
(a -> ListViewActivateCallback) -> C_ListViewActivateCallback
wrap_ListViewActivateCallback a -> ListViewActivateCallback
wrapped
FunPtr C_ListViewActivateCallback
wrapped'' <- C_ListViewActivateCallback
-> IO (FunPtr C_ListViewActivateCallback)
mk_ListViewActivateCallback C_ListViewActivateCallback
wrapped'
a
-> Text
-> FunPtr C_ListViewActivateCallback
-> 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_ListViewActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ListViewActivateSignalInfo
instance SignalInfo ListViewActivateSignalInfo where
type HaskellCallbackType ListViewActivateSignalInfo = ListViewActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ListViewActivateCallback cb
cb'' <- mk_ListViewActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView::activate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#g:signal:activate"})
#endif
getListViewEnableRubberband :: (MonadIO m, IsListView o) => o -> m Bool
getListViewEnableRubberband :: forall (m :: * -> *) o. (MonadIO m, IsListView o) => o -> m Bool
getListViewEnableRubberband 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
"enable-rubberband"
setListViewEnableRubberband :: (MonadIO m, IsListView o) => o -> Bool -> m ()
setListViewEnableRubberband :: forall (m :: * -> *) o.
(MonadIO m, IsListView o) =>
o -> Bool -> m ()
setListViewEnableRubberband 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
"enable-rubberband" Bool
val
constructListViewEnableRubberband :: (IsListView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructListViewEnableRubberband :: forall o (m :: * -> *).
(IsListView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructListViewEnableRubberband 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
"enable-rubberband" Bool
val
#if defined(ENABLE_OVERLOADING)
data ListViewEnableRubberbandPropertyInfo
instance AttrInfo ListViewEnableRubberbandPropertyInfo where
type AttrAllowedOps ListViewEnableRubberbandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ListViewEnableRubberbandPropertyInfo = IsListView
type AttrSetTypeConstraint ListViewEnableRubberbandPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ListViewEnableRubberbandPropertyInfo = (~) Bool
type AttrTransferType ListViewEnableRubberbandPropertyInfo = Bool
type AttrGetType ListViewEnableRubberbandPropertyInfo = Bool
type AttrLabel ListViewEnableRubberbandPropertyInfo = "enable-rubberband"
type AttrOrigin ListViewEnableRubberbandPropertyInfo = ListView
attrGet = getListViewEnableRubberband
attrSet = setListViewEnableRubberband
attrTransfer _ v = do
return v
attrConstruct = constructListViewEnableRubberband
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.enableRubberband"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#g:attr:enableRubberband"
})
#endif
getListViewFactory :: (MonadIO m, IsListView o) => o -> m (Maybe Gtk.ListItemFactory.ListItemFactory)
getListViewFactory :: forall (m :: * -> *) o.
(MonadIO m, IsListView o) =>
o -> m (Maybe ListItemFactory)
getListViewFactory o
obj = IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a. IO a -> m a
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
setListViewFactory :: (MonadIO m, IsListView o, Gtk.ListItemFactory.IsListItemFactory a) => o -> a -> m ()
setListViewFactory :: forall (m :: * -> *) o a.
(MonadIO m, IsListView o, IsListItemFactory a) =>
o -> a -> m ()
setListViewFactory o
obj a
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 -> 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)
constructListViewFactory :: (IsListView o, MIO.MonadIO m, Gtk.ListItemFactory.IsListItemFactory a) => a -> m (GValueConstruct o)
constructListViewFactory :: forall o (m :: * -> *) a.
(IsListView o, MonadIO m, IsListItemFactory a) =>
a -> m (GValueConstruct o)
constructListViewFactory a
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 -> 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)
clearListViewFactory :: (MonadIO m, IsListView o) => o -> m ()
clearListViewFactory :: forall (m :: * -> *) o. (MonadIO m, IsListView o) => o -> m ()
clearListViewFactory o
obj = 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
$ 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 ListViewFactoryPropertyInfo
instance AttrInfo ListViewFactoryPropertyInfo where
type AttrAllowedOps ListViewFactoryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ListViewFactoryPropertyInfo = IsListView
type AttrSetTypeConstraint ListViewFactoryPropertyInfo = Gtk.ListItemFactory.IsListItemFactory
type AttrTransferTypeConstraint ListViewFactoryPropertyInfo = Gtk.ListItemFactory.IsListItemFactory
type AttrTransferType ListViewFactoryPropertyInfo = Gtk.ListItemFactory.ListItemFactory
type AttrGetType ListViewFactoryPropertyInfo = (Maybe Gtk.ListItemFactory.ListItemFactory)
type AttrLabel ListViewFactoryPropertyInfo = "factory"
type AttrOrigin ListViewFactoryPropertyInfo = ListView
attrGet = getListViewFactory
attrSet = setListViewFactory
attrTransfer _ v = do
unsafeCastTo Gtk.ListItemFactory.ListItemFactory v
attrConstruct = constructListViewFactory
attrClear = clearListViewFactory
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.factory"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#g:attr:factory"
})
#endif
getListViewModel :: (MonadIO m, IsListView o) => o -> m (Maybe Gtk.SelectionModel.SelectionModel)
getListViewModel :: forall (m :: * -> *) o.
(MonadIO m, IsListView o) =>
o -> m (Maybe SelectionModel)
getListViewModel o
obj = IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall a. IO a -> m a
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
setListViewModel :: (MonadIO m, IsListView o, Gtk.SelectionModel.IsSelectionModel a) => o -> a -> m ()
setListViewModel :: forall (m :: * -> *) o a.
(MonadIO m, IsListView o, IsSelectionModel a) =>
o -> a -> m ()
setListViewModel o
obj a
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 -> 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)
constructListViewModel :: (IsListView o, MIO.MonadIO m, Gtk.SelectionModel.IsSelectionModel a) => a -> m (GValueConstruct o)
constructListViewModel :: forall o (m :: * -> *) a.
(IsListView o, MonadIO m, IsSelectionModel a) =>
a -> m (GValueConstruct o)
constructListViewModel a
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 -> 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)
clearListViewModel :: (MonadIO m, IsListView o) => o -> m ()
clearListViewModel :: forall (m :: * -> *) o. (MonadIO m, IsListView o) => o -> m ()
clearListViewModel o
obj = 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
$ 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 ListViewModelPropertyInfo
instance AttrInfo ListViewModelPropertyInfo where
type AttrAllowedOps ListViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ListViewModelPropertyInfo = IsListView
type AttrSetTypeConstraint ListViewModelPropertyInfo = Gtk.SelectionModel.IsSelectionModel
type AttrTransferTypeConstraint ListViewModelPropertyInfo = Gtk.SelectionModel.IsSelectionModel
type AttrTransferType ListViewModelPropertyInfo = Gtk.SelectionModel.SelectionModel
type AttrGetType ListViewModelPropertyInfo = (Maybe Gtk.SelectionModel.SelectionModel)
type AttrLabel ListViewModelPropertyInfo = "model"
type AttrOrigin ListViewModelPropertyInfo = ListView
attrGet = getListViewModel
attrSet = setListViewModel
attrTransfer _ v = do
unsafeCastTo Gtk.SelectionModel.SelectionModel v
attrConstruct = constructListViewModel
attrClear = clearListViewModel
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.model"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#g:attr:model"
})
#endif
getListViewShowSeparators :: (MonadIO m, IsListView o) => o -> m Bool
getListViewShowSeparators :: forall (m :: * -> *) o. (MonadIO m, IsListView o) => o -> m Bool
getListViewShowSeparators 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
"show-separators"
setListViewShowSeparators :: (MonadIO m, IsListView o) => o -> Bool -> m ()
setListViewShowSeparators :: forall (m :: * -> *) o.
(MonadIO m, IsListView o) =>
o -> Bool -> m ()
setListViewShowSeparators 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
"show-separators" Bool
val
constructListViewShowSeparators :: (IsListView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructListViewShowSeparators :: forall o (m :: * -> *).
(IsListView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructListViewShowSeparators 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
"show-separators" Bool
val
#if defined(ENABLE_OVERLOADING)
data ListViewShowSeparatorsPropertyInfo
instance AttrInfo ListViewShowSeparatorsPropertyInfo where
type AttrAllowedOps ListViewShowSeparatorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ListViewShowSeparatorsPropertyInfo = IsListView
type AttrSetTypeConstraint ListViewShowSeparatorsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ListViewShowSeparatorsPropertyInfo = (~) Bool
type AttrTransferType ListViewShowSeparatorsPropertyInfo = Bool
type AttrGetType ListViewShowSeparatorsPropertyInfo = Bool
type AttrLabel ListViewShowSeparatorsPropertyInfo = "show-separators"
type AttrOrigin ListViewShowSeparatorsPropertyInfo = ListView
attrGet = getListViewShowSeparators
attrSet = setListViewShowSeparators
attrTransfer _ v = do
return v
attrConstruct = constructListViewShowSeparators
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.showSeparators"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#g:attr:showSeparators"
})
#endif
getListViewSingleClickActivate :: (MonadIO m, IsListView o) => o -> m Bool
getListViewSingleClickActivate :: forall (m :: * -> *) o. (MonadIO m, IsListView o) => o -> m Bool
getListViewSingleClickActivate 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
"single-click-activate"
setListViewSingleClickActivate :: (MonadIO m, IsListView o) => o -> Bool -> m ()
setListViewSingleClickActivate :: forall (m :: * -> *) o.
(MonadIO m, IsListView o) =>
o -> Bool -> m ()
setListViewSingleClickActivate 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
"single-click-activate" Bool
val
constructListViewSingleClickActivate :: (IsListView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructListViewSingleClickActivate :: forall o (m :: * -> *).
(IsListView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructListViewSingleClickActivate 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
"single-click-activate" Bool
val
#if defined(ENABLE_OVERLOADING)
data ListViewSingleClickActivatePropertyInfo
instance AttrInfo ListViewSingleClickActivatePropertyInfo where
type AttrAllowedOps ListViewSingleClickActivatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ListViewSingleClickActivatePropertyInfo = IsListView
type AttrSetTypeConstraint ListViewSingleClickActivatePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ListViewSingleClickActivatePropertyInfo = (~) Bool
type AttrTransferType ListViewSingleClickActivatePropertyInfo = Bool
type AttrGetType ListViewSingleClickActivatePropertyInfo = Bool
type AttrLabel ListViewSingleClickActivatePropertyInfo = "single-click-activate"
type AttrOrigin ListViewSingleClickActivatePropertyInfo = ListView
attrGet = getListViewSingleClickActivate
attrSet = setListViewSingleClickActivate
attrTransfer _ v = do
return v
attrConstruct = constructListViewSingleClickActivate
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.singleClickActivate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#g:attr:singleClickActivate"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ListView
type instance O.AttributeList ListView = ListViewAttributeList
type ListViewAttributeList = ('[ '("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", ListViewEnableRubberbandPropertyInfo), '("factory", ListViewFactoryPropertyInfo), '("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), '("model", ListViewModelPropertyInfo), '("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), '("showSeparators", ListViewShowSeparatorsPropertyInfo), '("singleClickActivate", ListViewSingleClickActivatePropertyInfo), '("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)
listViewEnableRubberband :: AttrLabelProxy "enableRubberband"
listViewEnableRubberband = AttrLabelProxy
listViewFactory :: AttrLabelProxy "factory"
listViewFactory = AttrLabelProxy
listViewModel :: AttrLabelProxy "model"
listViewModel = AttrLabelProxy
listViewShowSeparators :: AttrLabelProxy "showSeparators"
listViewShowSeparators = AttrLabelProxy
listViewSingleClickActivate :: AttrLabelProxy "singleClickActivate"
listViewSingleClickActivate = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ListView = ListViewSignalList
type ListViewSignalList = ('[ '("activate", ListViewActivateSignalInfo), '("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_list_view_new" gtk_list_view_new ::
Ptr Gtk.SelectionModel.SelectionModel ->
Ptr Gtk.ListItemFactory.ListItemFactory ->
IO (Ptr ListView)
listViewNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.SelectionModel.IsSelectionModel a, Gtk.ListItemFactory.IsListItemFactory b) =>
Maybe (a)
-> Maybe (b)
-> m ListView
listViewNew :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSelectionModel a,
IsListItemFactory b) =>
Maybe a -> Maybe b -> m ListView
listViewNew Maybe a
model Maybe b
factory = IO ListView -> m ListView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ListView -> m ListView) -> IO ListView -> m ListView
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 a. a -> IO a
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 a. a -> IO a
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 a. a -> IO a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListItemFactory
jFactory'
Ptr ListView
result <- Ptr SelectionModel -> Ptr ListItemFactory -> IO (Ptr ListView)
gtk_list_view_new Ptr SelectionModel
maybeModel Ptr ListItemFactory
maybeFactory
Text -> Ptr ListView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"listViewNew" Ptr ListView
result
ListView
result' <- ((ManagedPtr ListView -> ListView) -> Ptr ListView -> IO ListView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListView -> ListView
ListView) Ptr ListView
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
ListView -> IO ListView
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ListView
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_list_view_get_enable_rubberband" gtk_list_view_get_enable_rubberband ::
Ptr ListView ->
IO CInt
listViewGetEnableRubberband ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a) =>
a
-> m Bool
listViewGetEnableRubberband :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListView a) =>
a -> m Bool
listViewGetEnableRubberband a
self = 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 ListView
self' <- a -> IO (Ptr ListView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ListView -> IO CInt
gtk_list_view_get_enable_rubberband Ptr ListView
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ListViewGetEnableRubberbandMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsListView a) => O.OverloadedMethod ListViewGetEnableRubberbandMethodInfo a signature where
overloadedMethod = listViewGetEnableRubberband
instance O.OverloadedMethodInfo ListViewGetEnableRubberbandMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewGetEnableRubberband",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#v:listViewGetEnableRubberband"
})
#endif
foreign import ccall "gtk_list_view_get_factory" gtk_list_view_get_factory ::
Ptr ListView ->
IO (Ptr Gtk.ListItemFactory.ListItemFactory)
listViewGetFactory ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a) =>
a
-> m (Maybe Gtk.ListItemFactory.ListItemFactory)
listViewGetFactory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListView a) =>
a -> m (Maybe ListItemFactory)
listViewGetFactory a
self = IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a. IO a -> m a
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 ListView
self' <- a -> IO (Ptr ListView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ListItemFactory
result <- Ptr ListView -> IO (Ptr ListItemFactory)
gtk_list_view_get_factory Ptr ListView
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 a. a -> IO a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ListItemFactory
maybeResult
#if defined(ENABLE_OVERLOADING)
data ListViewGetFactoryMethodInfo
instance (signature ~ (m (Maybe Gtk.ListItemFactory.ListItemFactory)), MonadIO m, IsListView a) => O.OverloadedMethod ListViewGetFactoryMethodInfo a signature where
overloadedMethod = listViewGetFactory
instance O.OverloadedMethodInfo ListViewGetFactoryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewGetFactory",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#v:listViewGetFactory"
})
#endif
foreign import ccall "gtk_list_view_get_model" gtk_list_view_get_model ::
Ptr ListView ->
IO (Ptr Gtk.SelectionModel.SelectionModel)
listViewGetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a) =>
a
-> m (Maybe Gtk.SelectionModel.SelectionModel)
listViewGetModel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListView a) =>
a -> m (Maybe SelectionModel)
listViewGetModel a
self = IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall a. IO a -> m a
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 ListView
self' <- a -> IO (Ptr ListView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr SelectionModel
result <- Ptr ListView -> IO (Ptr SelectionModel)
gtk_list_view_get_model Ptr ListView
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 a. a -> IO a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SelectionModel
maybeResult
#if defined(ENABLE_OVERLOADING)
data ListViewGetModelMethodInfo
instance (signature ~ (m (Maybe Gtk.SelectionModel.SelectionModel)), MonadIO m, IsListView a) => O.OverloadedMethod ListViewGetModelMethodInfo a signature where
overloadedMethod = listViewGetModel
instance O.OverloadedMethodInfo ListViewGetModelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewGetModel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#v:listViewGetModel"
})
#endif
foreign import ccall "gtk_list_view_get_show_separators" gtk_list_view_get_show_separators ::
Ptr ListView ->
IO CInt
listViewGetShowSeparators ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a) =>
a
-> m Bool
listViewGetShowSeparators :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListView a) =>
a -> m Bool
listViewGetShowSeparators a
self = 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 ListView
self' <- a -> IO (Ptr ListView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ListView -> IO CInt
gtk_list_view_get_show_separators Ptr ListView
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ListViewGetShowSeparatorsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsListView a) => O.OverloadedMethod ListViewGetShowSeparatorsMethodInfo a signature where
overloadedMethod = listViewGetShowSeparators
instance O.OverloadedMethodInfo ListViewGetShowSeparatorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewGetShowSeparators",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#v:listViewGetShowSeparators"
})
#endif
foreign import ccall "gtk_list_view_get_single_click_activate" gtk_list_view_get_single_click_activate ::
Ptr ListView ->
IO CInt
listViewGetSingleClickActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a) =>
a
-> m Bool
listViewGetSingleClickActivate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListView a) =>
a -> m Bool
listViewGetSingleClickActivate a
self = 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 ListView
self' <- a -> IO (Ptr ListView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ListView -> IO CInt
gtk_list_view_get_single_click_activate Ptr ListView
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ListViewGetSingleClickActivateMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsListView a) => O.OverloadedMethod ListViewGetSingleClickActivateMethodInfo a signature where
overloadedMethod = listViewGetSingleClickActivate
instance O.OverloadedMethodInfo ListViewGetSingleClickActivateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewGetSingleClickActivate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#v:listViewGetSingleClickActivate"
})
#endif
foreign import ccall "gtk_list_view_set_enable_rubberband" gtk_list_view_set_enable_rubberband ::
Ptr ListView ->
CInt ->
IO ()
listViewSetEnableRubberband ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a) =>
a
-> Bool
-> m ()
listViewSetEnableRubberband :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListView a) =>
a -> Bool -> m ()
listViewSetEnableRubberband a
self Bool
enableRubberband = 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 ListView
self' <- a -> IO (Ptr ListView)
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 ListView -> CInt -> IO ()
gtk_list_view_set_enable_rubberband Ptr ListView
self' CInt
enableRubberband'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ListViewSetEnableRubberbandMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsListView a) => O.OverloadedMethod ListViewSetEnableRubberbandMethodInfo a signature where
overloadedMethod = listViewSetEnableRubberband
instance O.OverloadedMethodInfo ListViewSetEnableRubberbandMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewSetEnableRubberband",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#v:listViewSetEnableRubberband"
})
#endif
foreign import ccall "gtk_list_view_set_factory" gtk_list_view_set_factory ::
Ptr ListView ->
Ptr Gtk.ListItemFactory.ListItemFactory ->
IO ()
listViewSetFactory ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a, Gtk.ListItemFactory.IsListItemFactory b) =>
a
-> Maybe (b)
-> m ()
listViewSetFactory :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListView a, IsListItemFactory b) =>
a -> Maybe b -> m ()
listViewSetFactory a
self Maybe b
factory = 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 ListView
self' <- a -> IO (Ptr ListView)
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 a. a -> IO a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListItemFactory
jFactory'
Ptr ListView -> Ptr ListItemFactory -> IO ()
gtk_list_view_set_factory Ptr ListView
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ListViewSetFactoryMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsListView a, Gtk.ListItemFactory.IsListItemFactory b) => O.OverloadedMethod ListViewSetFactoryMethodInfo a signature where
overloadedMethod = listViewSetFactory
instance O.OverloadedMethodInfo ListViewSetFactoryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewSetFactory",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#v:listViewSetFactory"
})
#endif
foreign import ccall "gtk_list_view_set_model" gtk_list_view_set_model ::
Ptr ListView ->
Ptr Gtk.SelectionModel.SelectionModel ->
IO ()
listViewSetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a, Gtk.SelectionModel.IsSelectionModel b) =>
a
-> Maybe (b)
-> m ()
listViewSetModel :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListView a, IsSelectionModel b) =>
a -> Maybe b -> m ()
listViewSetModel a
self Maybe b
model = 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 ListView
self' <- a -> IO (Ptr ListView)
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 a. a -> IO a
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SelectionModel
jModel'
Ptr ListView -> Ptr SelectionModel -> IO ()
gtk_list_view_set_model Ptr ListView
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ListViewSetModelMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsListView a, Gtk.SelectionModel.IsSelectionModel b) => O.OverloadedMethod ListViewSetModelMethodInfo a signature where
overloadedMethod = listViewSetModel
instance O.OverloadedMethodInfo ListViewSetModelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewSetModel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#v:listViewSetModel"
})
#endif
foreign import ccall "gtk_list_view_set_show_separators" gtk_list_view_set_show_separators ::
Ptr ListView ->
CInt ->
IO ()
listViewSetShowSeparators ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a) =>
a
-> Bool
-> m ()
listViewSetShowSeparators :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListView a) =>
a -> Bool -> m ()
listViewSetShowSeparators a
self Bool
showSeparators = 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 ListView
self' <- a -> IO (Ptr ListView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let showSeparators' :: CInt
showSeparators' = (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
showSeparators
Ptr ListView -> CInt -> IO ()
gtk_list_view_set_show_separators Ptr ListView
self' CInt
showSeparators'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ListViewSetShowSeparatorsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsListView a) => O.OverloadedMethod ListViewSetShowSeparatorsMethodInfo a signature where
overloadedMethod = listViewSetShowSeparators
instance O.OverloadedMethodInfo ListViewSetShowSeparatorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewSetShowSeparators",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#v:listViewSetShowSeparators"
})
#endif
foreign import ccall "gtk_list_view_set_single_click_activate" gtk_list_view_set_single_click_activate ::
Ptr ListView ->
CInt ->
IO ()
listViewSetSingleClickActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a) =>
a
-> Bool
-> m ()
listViewSetSingleClickActivate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListView a) =>
a -> Bool -> m ()
listViewSetSingleClickActivate a
self Bool
singleClickActivate = 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 ListView
self' <- a -> IO (Ptr ListView)
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 ListView -> CInt -> IO ()
gtk_list_view_set_single_click_activate Ptr ListView
self' CInt
singleClickActivate'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ListViewSetSingleClickActivateMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsListView a) => O.OverloadedMethod ListViewSetSingleClickActivateMethodInfo a signature where
overloadedMethod = listViewSetSingleClickActivate
instance O.OverloadedMethodInfo ListViewSetSingleClickActivateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewSetSingleClickActivate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-ListView.html#v:listViewSetSingleClickActivate"
})
#endif