{-# 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)
ListViewGetHeaderFactoryMethodInfo ,
#endif
listViewGetHeaderFactory ,
#if defined(ENABLE_OVERLOADING)
ListViewGetModelMethodInfo ,
#endif
listViewGetModel ,
#if defined(ENABLE_OVERLOADING)
ListViewGetShowSeparatorsMethodInfo ,
#endif
listViewGetShowSeparators ,
#if defined(ENABLE_OVERLOADING)
ListViewGetSingleClickActivateMethodInfo,
#endif
listViewGetSingleClickActivate ,
#if defined(ENABLE_OVERLOADING)
ListViewGetTabBehaviorMethodInfo ,
#endif
listViewGetTabBehavior ,
listViewNew ,
#if defined(ENABLE_OVERLOADING)
ListViewScrollToMethodInfo ,
#endif
listViewScrollTo ,
#if defined(ENABLE_OVERLOADING)
ListViewSetEnableRubberbandMethodInfo ,
#endif
listViewSetEnableRubberband ,
#if defined(ENABLE_OVERLOADING)
ListViewSetFactoryMethodInfo ,
#endif
listViewSetFactory ,
#if defined(ENABLE_OVERLOADING)
ListViewSetHeaderFactoryMethodInfo ,
#endif
listViewSetHeaderFactory ,
#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)
ListViewSetTabBehaviorMethodInfo ,
#endif
listViewSetTabBehavior ,
#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)
ListViewHeaderFactoryPropertyInfo ,
#endif
clearListViewHeaderFactory ,
constructListViewHeaderFactory ,
getListViewHeaderFactory ,
#if defined(ENABLE_OVERLOADING)
listViewHeaderFactory ,
#endif
setListViewHeaderFactory ,
#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 ,
#if defined(ENABLE_OVERLOADING)
ListViewTabBehaviorPropertyInfo ,
#endif
constructListViewTabBehavior ,
getListViewTabBehavior ,
#if defined(ENABLE_OVERLOADING)
listViewTabBehavior ,
#endif
setListViewTabBehavior ,
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.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import qualified GI.Gdk.Objects.Surface as Gdk.Surface
import qualified GI.Gdk.Objects.Texture as Gdk.Texture
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Point3D as Graphene.Point3D
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import qualified GI.Graphene.Structs.Size as Graphene.Size
import qualified GI.Graphene.Structs.Vec3 as Graphene.Vec3
import qualified GI.Graphene.Structs.Vec4 as Graphene.Vec4
import qualified GI.Gsk.Enums as Gsk.Enums
import qualified GI.Gsk.Objects.GLShader as Gsk.GLShader
import qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import qualified GI.Gsk.Objects.Renderer as Gsk.Renderer
import qualified GI.Gsk.Structs.ColorStop as Gsk.ColorStop
import qualified GI.Gsk.Structs.Path as Gsk.Path
import qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
import qualified GI.Gsk.Structs.Shadow as Gsk.Shadow
import qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
import qualified GI.Gsk.Structs.Transform as Gsk.Transform
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
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.Native as Gtk.Native
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
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.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Objects.ATContext as Gtk.ATContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment
import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutChild as Gtk.LayoutChild
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
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.Settings as Gtk.Settings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.Bitset as Gtk.Bitset
import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
import {-# SOURCE #-} qualified GI.Gtk.Structs.ScrollInfo as Gtk.ScrollInfo
import qualified GI.Pango.Enums as Pango.Enums
import qualified GI.Pango.Objects.Context as Pango.Context
import qualified GI.Pango.Objects.FontMap as Pango.FontMap
import qualified GI.Pango.Objects.Layout as Pango.Layout
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
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
import {-# SOURCE #-} qualified GI.Gtk.Structs.ScrollInfo as Gtk.ScrollInfo
#endif
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 :: DK.Type) :: DK.Type 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 "announce" o = Gtk.Accessible.AccessibleAnnounceMethodInfo
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 "scrollTo" o = ListViewScrollToMethodInfo
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 "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
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 "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
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 "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveListViewMethod "getBaseline" o = Gtk.Widget.WidgetGetBaselineMethodInfo
ResolveListViewMethod "getBorder" o = Gtk.Scrollable.ScrollableGetBorderMethodInfo
ResolveListViewMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
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 "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
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 "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
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 "getHeaderFactory" o = ListViewGetHeaderFactoryMethodInfo
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 "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
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 "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
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 "getTabBehavior" o = ListViewGetTabBehaviorMethodInfo
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 "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
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 "setHeaderFactory" o = ListViewSetHeaderFactoryMethodInfo
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 "setTabBehavior" o = ListViewSetTabBehaviorMethodInfo
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 o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject 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.9/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.9/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.9/docs/GI-Gtk-Objects-ListView.html#g:attr:factory"
})
#endif
getListViewHeaderFactory :: (MonadIO m, IsListView o) => o -> m (Maybe Gtk.ListItemFactory.ListItemFactory)
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
"header-factory" ManagedPtr ListItemFactory -> ListItemFactory
Gtk.ListItemFactory.ListItemFactory
setListViewHeaderFactory :: (MonadIO m, IsListView o, Gtk.ListItemFactory.IsListItemFactory a) => o -> a -> m ()
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
"header-factory" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructListViewHeaderFactory :: (IsListView o, MIO.MonadIO m, Gtk.ListItemFactory.IsListItemFactory a) => a -> m (GValueConstruct o)
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
"header-factory" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearListViewHeaderFactory :: (MonadIO m, IsListView o) => o -> m ()
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
"header-factory" (Maybe ListItemFactory
forall a. Maybe a
Nothing :: Maybe Gtk.ListItemFactory.ListItemFactory)
#if defined(ENABLE_OVERLOADING)
data ListViewHeaderFactoryPropertyInfo
instance AttrInfo ListViewHeaderFactoryPropertyInfo where
type AttrAllowedOps ListViewHeaderFactoryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ListViewHeaderFactoryPropertyInfo = IsListView
type AttrSetTypeConstraint ListViewHeaderFactoryPropertyInfo = Gtk.ListItemFactory.IsListItemFactory
type AttrTransferTypeConstraint ListViewHeaderFactoryPropertyInfo = Gtk.ListItemFactory.IsListItemFactory
type AttrTransferType ListViewHeaderFactoryPropertyInfo = Gtk.ListItemFactory.ListItemFactory
type AttrGetType ListViewHeaderFactoryPropertyInfo = (Maybe Gtk.ListItemFactory.ListItemFactory)
type AttrLabel ListViewHeaderFactoryPropertyInfo = "header-factory"
type AttrOrigin ListViewHeaderFactoryPropertyInfo = ListView
attrGet = getListViewHeaderFactory
attrSet = setListViewHeaderFactory
attrTransfer _ v = do
unsafeCastTo Gtk.ListItemFactory.ListItemFactory v
attrConstruct = constructListViewHeaderFactory
attrClear = clearListViewHeaderFactory
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.headerFactory"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ListView.html#g:attr:headerFactory"
})
#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.9/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.9/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.9/docs/GI-Gtk-Objects-ListView.html#g:attr:singleClickActivate"
})
#endif
getListViewTabBehavior :: (MonadIO m, IsListView o) => o -> m Gtk.Enums.ListTabBehavior
getListViewTabBehavior :: forall (m :: * -> *) o.
(MonadIO m, IsListView o) =>
o -> m ListTabBehavior
getListViewTabBehavior o
obj = IO ListTabBehavior -> m ListTabBehavior
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ListTabBehavior -> m ListTabBehavior)
-> IO ListTabBehavior -> m ListTabBehavior
forall a b. (a -> b) -> a -> b
$ o -> String -> IO ListTabBehavior
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"tab-behavior"
setListViewTabBehavior :: (MonadIO m, IsListView o) => o -> Gtk.Enums.ListTabBehavior -> m ()
setListViewTabBehavior :: forall (m :: * -> *) o.
(MonadIO m, IsListView o) =>
o -> ListTabBehavior -> m ()
setListViewTabBehavior o
obj ListTabBehavior
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 -> ListTabBehavior -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"tab-behavior" ListTabBehavior
val
constructListViewTabBehavior :: (IsListView o, MIO.MonadIO m) => Gtk.Enums.ListTabBehavior -> m (GValueConstruct o)
constructListViewTabBehavior :: forall o (m :: * -> *).
(IsListView o, MonadIO m) =>
ListTabBehavior -> m (GValueConstruct o)
constructListViewTabBehavior ListTabBehavior
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 -> ListTabBehavior -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"tab-behavior" ListTabBehavior
val
#if defined(ENABLE_OVERLOADING)
data ListViewTabBehaviorPropertyInfo
instance AttrInfo ListViewTabBehaviorPropertyInfo where
type AttrAllowedOps ListViewTabBehaviorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ListViewTabBehaviorPropertyInfo = IsListView
type AttrSetTypeConstraint ListViewTabBehaviorPropertyInfo = (~) Gtk.Enums.ListTabBehavior
type AttrTransferTypeConstraint ListViewTabBehaviorPropertyInfo = (~) Gtk.Enums.ListTabBehavior
type AttrTransferType ListViewTabBehaviorPropertyInfo = Gtk.Enums.ListTabBehavior
type AttrGetType ListViewTabBehaviorPropertyInfo = Gtk.Enums.ListTabBehavior
type AttrLabel ListViewTabBehaviorPropertyInfo = "tab-behavior"
type AttrOrigin ListViewTabBehaviorPropertyInfo = ListView
attrGet = getListViewTabBehavior
attrSet = setListViewTabBehavior
attrTransfer _ v = do
return v
attrConstruct = constructListViewTabBehavior
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.tabBehavior"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ListView.html#g:attr:tabBehavior"
})
#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), '("headerFactory", ListViewHeaderFactoryPropertyInfo), '("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), '("tabBehavior", ListViewTabBehaviorPropertyInfo), '("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, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
listViewEnableRubberband :: AttrLabelProxy "enableRubberband"
listViewEnableRubberband = AttrLabelProxy
listViewFactory :: AttrLabelProxy "factory"
listViewFactory = AttrLabelProxy
listViewHeaderFactory :: AttrLabelProxy "headerFactory"
listViewHeaderFactory = AttrLabelProxy
listViewModel :: AttrLabelProxy "model"
listViewModel = AttrLabelProxy
listViewShowSeparators :: AttrLabelProxy "showSeparators"
listViewShowSeparators = AttrLabelProxy
listViewSingleClickActivate :: AttrLabelProxy "singleClickActivate"
listViewSingleClickActivate = AttrLabelProxy
listViewTabBehavior :: AttrLabelProxy "tabBehavior"
listViewTabBehavior = 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, DK.Type)])
#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.9/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.9/docs/GI-Gtk-Objects-ListView.html#v:listViewGetFactory"
})
#endif
foreign import ccall "gtk_list_view_get_header_factory" ::
Ptr ListView ->
IO (Ptr Gtk.ListItemFactory.ListItemFactory)
listViewGetHeaderFactory ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a) =>
a
-> m (Maybe Gtk.ListItemFactory.ListItemFactory)
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_header_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 ListViewGetHeaderFactoryMethodInfo
instance (signature ~ (m (Maybe Gtk.ListItemFactory.ListItemFactory)), MonadIO m, IsListView a) => O.OverloadedMethod ListViewGetHeaderFactoryMethodInfo a signature where
overloadedMethod = listViewGetHeaderFactory
instance O.OverloadedMethodInfo ListViewGetHeaderFactoryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewGetHeaderFactory",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ListView.html#v:listViewGetHeaderFactory"
})
#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.9/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.9/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.9/docs/GI-Gtk-Objects-ListView.html#v:listViewGetSingleClickActivate"
})
#endif
foreign import ccall "gtk_list_view_get_tab_behavior" gtk_list_view_get_tab_behavior ::
Ptr ListView ->
IO CUInt
listViewGetTabBehavior ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a) =>
a
-> m Gtk.Enums.ListTabBehavior
listViewGetTabBehavior :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListView a) =>
a -> m ListTabBehavior
listViewGetTabBehavior a
self = IO ListTabBehavior -> m ListTabBehavior
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ListTabBehavior -> m ListTabBehavior)
-> IO ListTabBehavior -> m ListTabBehavior
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
CUInt
result <- Ptr ListView -> IO CUInt
gtk_list_view_get_tab_behavior Ptr ListView
self'
let result' :: ListTabBehavior
result' = (Int -> ListTabBehavior
forall a. Enum a => Int -> a
toEnum (Int -> ListTabBehavior)
-> (CUInt -> Int) -> CUInt -> ListTabBehavior
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
ListTabBehavior -> IO ListTabBehavior
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ListTabBehavior
result'
#if defined(ENABLE_OVERLOADING)
data ListViewGetTabBehaviorMethodInfo
instance (signature ~ (m Gtk.Enums.ListTabBehavior), MonadIO m, IsListView a) => O.OverloadedMethod ListViewGetTabBehaviorMethodInfo a signature where
overloadedMethod = listViewGetTabBehavior
instance O.OverloadedMethodInfo ListViewGetTabBehaviorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewGetTabBehavior",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ListView.html#v:listViewGetTabBehavior"
})
#endif
foreign import ccall "gtk_list_view_scroll_to" gtk_list_view_scroll_to ::
Ptr ListView ->
Word32 ->
CUInt ->
Ptr Gtk.ScrollInfo.ScrollInfo ->
IO ()
listViewScrollTo ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a) =>
a
-> Word32
-> [Gtk.Flags.ListScrollFlags]
-> Maybe (Gtk.ScrollInfo.ScrollInfo)
-> m ()
listViewScrollTo :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListView a) =>
a -> Word32 -> [ListScrollFlags] -> Maybe ScrollInfo -> m ()
listViewScrollTo a
self Word32
pos [ListScrollFlags]
flags Maybe ScrollInfo
scroll = 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 flags' :: CUInt
flags' = [ListScrollFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ListScrollFlags]
flags
Ptr ScrollInfo
maybeScroll <- case Maybe ScrollInfo
scroll of
Maybe ScrollInfo
Nothing -> Ptr ScrollInfo -> IO (Ptr ScrollInfo)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ScrollInfo
forall a. Ptr a
nullPtr
Just ScrollInfo
jScroll -> do
Ptr ScrollInfo
jScroll' <- ScrollInfo -> IO (Ptr ScrollInfo)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed ScrollInfo
jScroll
Ptr ScrollInfo -> IO (Ptr ScrollInfo)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ScrollInfo
jScroll'
Ptr ListView -> Word32 -> CUInt -> Ptr ScrollInfo -> IO ()
gtk_list_view_scroll_to Ptr ListView
self' Word32
pos CUInt
flags' Ptr ScrollInfo
maybeScroll
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe ScrollInfo -> (ScrollInfo -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe ScrollInfo
scroll ScrollInfo -> 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 ListViewScrollToMethodInfo
instance (signature ~ (Word32 -> [Gtk.Flags.ListScrollFlags] -> Maybe (Gtk.ScrollInfo.ScrollInfo) -> m ()), MonadIO m, IsListView a) => O.OverloadedMethod ListViewScrollToMethodInfo a signature where
overloadedMethod = listViewScrollTo
instance O.OverloadedMethodInfo ListViewScrollToMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewScrollTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ListView.html#v:listViewScrollTo"
})
#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
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
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.9/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.9/docs/GI-Gtk-Objects-ListView.html#v:listViewSetFactory"
})
#endif
foreign import ccall "gtk_list_view_set_header_factory" ::
Ptr ListView ->
Ptr Gtk.ListItemFactory.ListItemFactory ->
IO ()
listViewSetHeaderFactory ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a, Gtk.ListItemFactory.IsListItemFactory b) =>
a
-> Maybe (b)
-> m ()
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_header_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 ListViewSetHeaderFactoryMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsListView a, Gtk.ListItemFactory.IsListItemFactory b) => O.OverloadedMethod ListViewSetHeaderFactoryMethodInfo a signature where
overloadedMethod = listViewSetHeaderFactory
instance O.OverloadedMethodInfo ListViewSetHeaderFactoryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewSetHeaderFactory",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ListView.html#v:listViewSetHeaderFactory"
})
#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.9/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
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
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.9/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
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
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.9/docs/GI-Gtk-Objects-ListView.html#v:listViewSetSingleClickActivate"
})
#endif
foreign import ccall "gtk_list_view_set_tab_behavior" gtk_list_view_set_tab_behavior ::
Ptr ListView ->
CUInt ->
IO ()
listViewSetTabBehavior ::
(B.CallStack.HasCallStack, MonadIO m, IsListView a) =>
a
-> Gtk.Enums.ListTabBehavior
-> m ()
listViewSetTabBehavior :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListView a) =>
a -> ListTabBehavior -> m ()
listViewSetTabBehavior a
self ListTabBehavior
tabBehavior = 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 tabBehavior' :: CUInt
tabBehavior' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (ListTabBehavior -> Int) -> ListTabBehavior -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ListTabBehavior -> Int
forall a. Enum a => a -> Int
fromEnum) ListTabBehavior
tabBehavior
Ptr ListView -> CUInt -> IO ()
gtk_list_view_set_tab_behavior Ptr ListView
self' CUInt
tabBehavior'
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 ListViewSetTabBehaviorMethodInfo
instance (signature ~ (Gtk.Enums.ListTabBehavior -> m ()), MonadIO m, IsListView a) => O.OverloadedMethod ListViewSetTabBehaviorMethodInfo a signature where
overloadedMethod = listViewSetTabBehavior
instance O.OverloadedMethodInfo ListViewSetTabBehaviorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListView.listViewSetTabBehavior",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ListView.html#v:listViewSetTabBehavior"
})
#endif